Digital PDFs

AH-8689D-MC

January 1979

84 pages

Original

42MB

view download

OCR Version

53MB

view download

Document:	CZDUDD0 DU11 OFF-LINE TRANSMITTER TESTS JAN 1979 bw
Order Number:	AH-8689D-MC
Revision:	000
Pages:	84
Original Filename:	CZDUDD0__DU11__OFF-LINE_TRANSMITTER_TESTS__AH-8689D-MC__JAN_1979_gray.pdf

OCR Text

OFF-LINE TRANSMITTER TESTS

AH-8689D-MC

JAN 19

CZDUDDO

=OEORED

FICHE1 OF
1

MADE
IN USA

(Z0UD=D MACY11

CZDUTT MO

_30A(1052)

20-NOV=78

21-NOV=78

15:46

16:48

PAGE 1

SEQ 0001

IDENTIFICATION
PRODUCT CODE:

AC-8688D-M(C

PRODUCT NAME:

CZDUDDO DU11 OFFLINE TRANSMITTER TESTS

RELEASE DATE:

JUN 1978

MAINTAINER

DIAGNOSTICS

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

"HE

IN THIS DOCUMENT.

SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND

MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF

SUCH LICENSE.

OIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF
RELIABILITY OF [TS SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
TOPYRIGHT

(()

1973,

1978 BY DIGITAL EQUIPMENT CORPORATION

(ZOUD-D MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-78 16:48

15:46

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,
mTEBNTIMES EXERCISING ALL DEVICES IN THIS FASHION UNTIL

THE DUT1 OFFLINE TRANSMITTER TESTS VERIFY THAT THE TRANSMITTER
SECTION PROVIDES THE CORRECT ERROR FLAGS,AND THAT IT
TRANSMITS CHARACTERS THRU THE BIT WINDOW AT THE CORRECT
NUMBER OF BITS PER CHARACTER.
REQUIREMENTS

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

DUTT

SYNCRONOUS/ISOCRONOUS OPTION

ONE CONSOLE TELETYPE OR EQUIVALENT

2.2

STORAGE
THE PROGRAM LOADS AND RUNS IN 8K OF MEMORY.

LOADING PROCEDURE
THE _STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES

IS TO BE USED.

STARTING ADDRESS
4K

FOR ABSOLUTE LOADER

017500

8K
12K

037500
057500

20K
24K
28K

117500
137500
157500

16K

077500

STARTING PROCEDURE
A

NOTE :

BEFORE PROCEEDING IT IS IMPORTANT TO
TO REALIZE

IF ONE DOESNOT

HAVE THE DU11 SET UP TO THE

| CZDUD=D MACY11_30A(1052) 21-NOV-78
CZDUT1.HLO
20-NOV=78 16:48

15:46

PAGE 3

SEQ 0003

DEFAULT PARAMETERS ( SEE SECTION

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

QUESTION Roufxne.

FEEPEEPL44 3440440444444 4 4444444444444 4444444444444 4444444444444 4444444

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.

6.1.1

4.1.2

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
(ONLY IN SINGLE DEVICE TESTS)

SW01=1

4.1.4

6.2

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

SW02=1
NOTE1: IN GENERAL
SWO1 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

TESTS IS

000200

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

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3.1

INITIAL PROGRAM START

000200

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

TYPE 'DU11

(ZDUD-D TAPE D'‘ (ONCE ONLY)

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

15:46

PAGE 4

SEQ 0004

NOTE:IF THE SOFTWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR'S OPTION)

4.3.1.7 THE PROGRAM WILL TYPE 'R'* TO INDICATE THAT IT IS ABOUT
TO START TESTING ,AND THEN TESTING WILL BEGIN

6£.3.2

PROGRAM RESTART WITH ALL SWITCHES DOWN

4.3.2.1
4.3.3

THE PROGRAM WILL TYPE ‘R'‘ AND WILL COMMENCE TESTING

PROGRAM RESTART WITH SW00=1
4.3.3.1 LOAD ADDRESS

000200

4.3.3.2 SET SW00=1
4.3.3.3 PRESS START
NOTE:IF THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING

SHRSXN0OX NEW= | (REFER T SECTION 5. FOR OPERATOR'S OPTION)

4.3.3.4 THE PROGRAM WILL TYPE '' 1ST DEVICE: RECEIVER CONTROL REGISTER

ADDRESS'' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL
REGISTER ADDRESS OF

THE DU11

TO BE TESTED

FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘2"

AND WILL

THEN REPEAT THE MESSAGE OF 4.3.3.4

4.3.3.6 THE PROGRAM WILL TYPE 'VECTOR ADDRESS='' AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD
4.3.3.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS
FOR THE DU11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>
IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘'

AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6

4.3.3.8 THE PROGRAM WILL TYPE "‘ARE YOU RUNNING MULTIPLE DEVICES 2"
(Y OR N)="* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
4.3.3.9 TYPE IN THE APPROPRIATE ANSWER
<CARRIAGE RETURN>

YES OR NO FOLLOWED BY A

IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE *'**'

AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8

IF A "NO'" ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.72

CZDUD=D MACY11 30A(‘|052)
21-ov-78
CZDUT1.HLO
20-NOV-78 16:48

15:46

PAGE 5

SEQ 0005

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

4.3.3.1M

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 TYPE '’
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10
NOTE :ALL ADDRESSES SHALL BE CONTIGUOUS

4.3.3.11.1

‘OUT OF RANGE'' ADDRESS IS TYPED

IE. FU?E THAN 16 (10) DEVICES AWAY (UPWARDS)..... THE

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

4.3.3.11.2
TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL
REGISTER ADDRESS OF THE DU11 TO BE TESTED FOLLOWED
BY A <CARRIAGE RETURN>
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘7"’

AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1

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
4.3.3.13

" SEE SECTION 7.2

THE PROGRAM WILL TYPE 'DU PRIORITY LEVEL-"" AND

WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

TYPE IN THE APPROPRIATE DEVICE PRIORITY LEVEL OF THE
DU11 OR DUT1'S TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>

EQSEE)THATIIE\LL %ULTIPLE DEVICES MUST BE AT THE SAME PRIORITY

IF AN INCORRECT LEVEL IS TYPED ,THE PROGRAM WILL TYPE ‘"'

AND
4.3.3.14

4.3.3.15

REPEAT THE MESSAGE OF 4.3.5.12

EE%ECTEB

THE PROGRAM WILL TYPE '# OF SYNC CHARS
(1 OR 2)="" AND WAIT FOR AN INPUT FROM THE

TELETYPE

TYPE 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 ,THE PROGRAM WILL

TYPE """’

p—

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

15:46

PAGE 6

SEQ 0006

AND WILL REPEAT THE MESSAGE OF 4.3.3.14
4.3.3.16

THE PROGRAM WILL TYPE '' IS SEC XMIT JUMPER #6 IN ? (Y OR N)=''

AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4£.3.3.17

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

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

AN INCORRECT ANSWER IS TYPED ,THE PROGRM WILL TYPE '7*'

AND WILL REPEAT THE MESSAGE
OF 4.3.3.1
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

6£.3.3.19

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <(ARRIAGE 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

# 4

IN ?

THE PROGRAM WILL TYPE ''IS OPT CLR ENABLE JUMPER

(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 DEVICES MUST BE THE SAME)
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘"'

AND WILL REPEAT THE MESSAGE OF 4.3.3.20

4.3.3.22

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

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

4.3.3.23

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.22
4.3.3.24
4.3.4

THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT IT

HAS STARTED AND WILL COMMENCE TESTING AT TEST 1

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

IS SFLECTED

+0.JT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED

IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200,
g'E‘E) EE%E(SIT SWO0=1 AND ANSWER ‘NO"* TO THE MULTIPLE DEVICE QUESTION

CZDUD=D MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-7816:48

15:46

PAGE 7

. SEQ 0007

4.3.4.1 LOAD 000200

4£.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 ITSELF:

SWR=XXXXXX NEW=

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

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

FROM

4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS T0
BE STARTED FOLLOWED BY A <CARRIAGE RETURN>

4.3.4.6 THE PROGRM WILL TYPE 'R’ TO INDICATE THAT IT HAS STARTED
TESTING AT THE SELECTED TEST

NOTE:

CARE MUST BE TAKEN WHEN THIS FEATURE IS USED

.SINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS

THAT IS IN THE MIDDLE OF A TEST

4.3.5

PROGRAM RESTART WITH SW02 =1

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

4.3.5.1 LOAD ADDRESS 000200

4.3.5.2 SET Sw02 =1
NOTE: IT 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
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR S OPTION)
4.3.5.4 THE PROGRAM WILL TYPE 'LOCK ON SELECTED TEST ? (Y OR N)='
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

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

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 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED

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
IT
WILL PERFORM AS IN SECTION 4.3.4
ALLOWING ONE TO FREEZE
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1

CZDUD-D MACY11_30A(1052) 21-NOV-78
20-NOV-78 16:48

CZDUT1.HLO

6.4

15:46

PAGE 8

SEQ 0008

STATUS MAP

THE STATUS MAP IS AN AREA OF THE DU11 DIAGNOSTICS,
WHICH WILL ALLOW
THE TRANSFER OF PARAMETERS
BETWEEN DIAGNOSTICS.

IF YOU WISH TO TEST

A DUI1

, WHICH IS NOT AT THE DEFAULT

VALUES ,YOU NEED ONLY GO THROUGH THE
AND ANSWERING ROUTINE ONCE.

TEDIOUS QUESTIONING

THE FOLLOWING COMBINATIONS OF SWITCH REGISTER SETTINGS WILL
ALLOW YOU ACCESS TO THE STATUS MAP,
1)

SW07=1

2) START AT 200
3) THE DIAGNOSTIC WILL

GO TO THE STATUS MAP

AND BYPASS ALL OF THE QUESTIONING ROUTINE.

NOTE :

IT IS

EXTREMELY IMPORTANT THAT EITHER YOU HAVE

JUST ANSWERED THESE QUESTIONS DURING A PRIOR

DIAGNOSTIC

OR THAT YOU HAVE MANUALLY ENTERED THE CORRECT VALUES
FOR VECTOR ADDRESSES ETC.,IN THE AREA DESIGNATED
FOR THE STATUS MAP. 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 SWO0 (SWITCH REGISTER SWITCHES)

ARE SET ,(EQUAL TO 1), THE PROGRAM WILL IGNORE SWO0 AND

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

IS EXPLAINEC IN GREATER DETAIL IN SECTION

THE USE OF w00

OF THIS DOCUMENT.
THE FIRST TIME A
A PROGRAM IS ALTERED VIA
AND ANSWER ROUTINE,
THIS MAP WILL BE PRINTED

PROGRAM IS LOADED OR THE FIRST TIME
THE PARAMETER RESELECTION QUESTION
A PARTIAL STATUS MAP WILL BE PRINTED.
ONCE FOR ANY COMBINATION OF SWITCHES

EXCEPT SWO1. RESTARTING THE PROGRAM WILLNOT PRINT CUT A

MAP UNLESS

4.3

THE PROGRAM PARAMETERS ARE BEING RESELECTED

BY PUTTING SWOO=1.(ON)

THE MAP WILL LOOK LIKE:

STATUS MAP

m—sm—

W&MOCV" 30A(1057g)16?18-mv-78

15:46

PAGE 9

SEQ 0009

1300/ 177777

1302/ 002000
13047 177777
THE BYTES ARE DEFINED AS FOLLOWS:

1300

THE NUMBER OF SYNCHRONOUS CHARACTERS REQUIRED FOR

SYNCHRONI ZATION.

1301
1302
1303
1304

SEC TRANSMIT JUMPER
SEC RECEIVER JUMPER
OPTIONAL JUMPER
MULTIPLE DEVICES (NO=0 , YES=

1305

EXTERNAL MODEM BYPASS? (NO=0 ,YES=

1D)

IF THE BYTE_IS O , THE JUMPER IS NOT CONNECTED

AND IF

THE BYTE IS 377 ETC.

OPERATING PROCEDURE

THE JUMPER SHOULD BE CONNECTED.

IF THE DIAGNOSTIC IS RUN ON
A CPU WITHOUT A SWITCH
REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLOWS

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES s (177777)
THEN THE SOF TWARE SWITCH
(1

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF

THE

SOF TWARE

SWITCH

DOING THE FOLLOWING:

TYPE CONTROL G <*G>;

THIS WILL ALLOW THE TTY TO ENTER DATA INTO

LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.
2) THE MACHINE WILL THEN TYPE: SW-XXXXXXAEI# (XXXXXX IS THE OCTAL CONTENTS
OF THE SOFTWARE SWITCH REGISTER.)

3 AFTER THE °°NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF THE FOLLCWING AT THE TTY:

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>.
(ONLY NUMBERS BETWEEN O-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.

B) IF A CONTROL
U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YQU
BACK TO STEP 2.
<
5.1

OPERATIONAL SWITCH SETTINGS

w15 =1
Swi4 =1
Swi3 =1

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR TYPEOUT

)

CZIID-D MCVH 30A(1052)

Czoul

20-NOV-78

21-NOV-78

16:48

SW1l =
SW10 =
SW08 =
SW0?7 =
SW02 =
Swo1 =1
SW00 =

15:46

PAGE 10

SEQ@ 0010

INHIBIT ITERATIONS
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
CPARAMETERS AFTER A PROGRAM RESTAR

TO INHIBIT "END OF PASS'' TYPEOUT - TURN TELETYPE OFF
6.

ERRORS

6.1

ERROR HALTS

THERE ARE FOUR DISTINCT ERRCR TYPEOUTS

NOTE: IF THE SOFTWARE SWITTH REGISTER IS TO BE CHANGED AFTER A HALT

THE THE OPERATOR IS REQUIRED TO TYPE A <“G> BEFORE DEPRESSING CONTINUE.
THE FOLLOWING WILL BE TYPED:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR OPTION)

6.1.1

PC+2 = ERROR PC

WHERE PC +2 IS THE ADDRESS OF

THE CALL TO THE ERROR HMOLER +2

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

CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER
TEST WHEN RUNNING MULTIPLE DEVICES

6.1.2

PC +2 = REGISTER ERROR P(

EXPECTED
YYYYYY

ACTUAL
222222

WHERE 16XXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER
WHERE YYYYYY IS THE EXPECTED CONTENTS OF

WHERE 2ZZ2ZZ 1S THE ACTUAL CONTENTS OF

6.1.3

PC +2 = RECEIVER ERROR PC

EXPECTED
YYYYYY

THAT REGISTER

ACTUAL
22222127

WHERE 16XXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER

WHERE ZZ2ZZZ 1S THE ACTUAL DATA CONTENTS OF

6.1.4

PC +2 = TRANSMITTER ERROR PC
REGISTER
EXPECTED
16XXXX

YYYYYY

THAT REGISTER

ACTUAL

222712

‘

WHERE 16XXXX IS THE ADDRESS OF THF FAILING TRANSMITTER (TXCSR) REGISTER
WHERE YYYYYY [S THE EXPECTED CONTENTS OF

THAT REGISTER

CZOUD-D MACY11_30A(105 )
21-M)V-78
CZDUT1.HLO
20-NOV6:48

15:46

PAGE 11

SEQ 0011

WHERE 222277 1S THE ACTUAL CONTENTS OF THAT REGISTER

6.1.5

ERROR DESCRIPTIONS
SEE LISTINGS FOR DETAILS OF ERRCRS

6.2

ERROR RECOVERY

6.2.1

SW15 =0

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

REQUIRED TO CONTINUE TESTING

6.2.2

SWis =1
IF _THE PROGRAM IS RUN WITH SW15 =1 ,TO CONTINUE TESTING
AFTER THE PROGRAM HAS HALTED .PRESS’THE PROCESSOR

CONSOLE '‘CONTINUE SWITCH'

NOTE: THE PC + 2 OF THE "HLT'' WILL BE DISPLAYED IN THE DATA LIGHTS
6.2.3

ILLEGAL INTERRUPTS
IF AN _INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED
DURING PROGRAM INITIALIZATION, THE:PROGRAM WILL HALT INy
THE TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM
HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRU"T
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 TYPEOUT IS MENTIONED HERE FOR CONVENIENCE

IT IS IN THE FORM:

END OF PASS TAPE Y
16XXXX = DEVICE
WHERE Y IS THE TAPE LOADED

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS
TO INHIBIT THIS TYPEOUT - TURN TELETYPE OFF

RESTRICTIONS
MULTIPLE DEVICES

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

NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR
YO CAN CHANGE ‘'7ZERO:
ADD
#10 BASEIV
sNEXT BLOCK
(VECTORS)'' TO *ZERO:
ADD
#0,RASEIV";
.
THEREBY THE VECTOR ADDRESSES WILL NOT BE"

UPDATED AFTER FACH PASS.

CZDUD-D MACY11 30A(107g)
21-00\/-78
CZDUT1.HLO

PAGE 12

SEQ@ 0012

DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES
WHEN RUNNING MULTIPLE DEVICES
FOR EACH DEVICE

DEVICE O

,BIT 15

.sl

7.2

15:46

AN ACTIVE BIT IS SET

ING UNDER
!
EST

FOR DEVICE 1

IE. BIT 0 FOR

TO DISQUALIFY DEVICES:

7.2.1

7.2.2

IF DEVLCE O IS TO BE DISQUALIFIED

,SIMPLY RESTART

PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE.

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

Tololol sossnss OR ..... LOAD 000200 WITH SWOO =1 AND DEPRESS START....
ANSWER THE QUESTION :1ST DEVICE : ETC...... seces
«...THE PROGRAM WILL CONTINUE WITH DEVICE 0

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

7.3.1

CABLE DELAYS
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON)
TO PROVIDE SWFICIENT DELAY FOR CLOCK SIGNAL OVER THE CASLE,

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

160040

VECTOR ADDRESS-

DURIV: 770

ARE YOU RUNNING MULTIPLE DEVICES ?- NO

MULTD: O

LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESSDU PRIORITY LEVEL# OF

LEVEL 5

SYNC CHARS SELECTED -

IS SEC XMIT JUMPER # 6 IN ?-

IS SEC REC JUMPER # 5 IN 7=

LASTADD: 0

DUPRT: LEVEL 5
2

YES

VYES

SYNCNO:

377

SEXMIT:

377

SCREC: 377

CZDUD-D MACY11_30A(103 )
21-NOV-78
CZDUT1.HLO
20-NOvV6:48

15:46

PAGE 13

IS OPT CLR ENABLE JUMPER # & IN ?-

SEQ 0013
YES OPTCLR: 377

DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER

CONNECTOR ON (H315)=

YES

JMRBY: 377

PROGRAM DESCRIPTION

9.1

THIS PROGRAM PERFORMS THE OFFLINE TRANSMITTER SECTION TESTING

OF THE DEVICE
SEE LISTING FOR DETAILS

10.

FLOW CHARTS:

LISTINGS

RECEIVER FLOW,TRANSMITTER FLOW,TRANSMITTER & RECEIVER FLOW

CZOUD-D MACY11_30A(1052)
21-NOV=78
CZDUT1.PAR
15:17
21=NOv676
677

000000* 000000G

15:46

PAGE 15

SEQ 0014

CZDUD-D MACY11 30A(1052)

CZDUDD.P11

PAGE 18

.ENABLE ABS

680

:DUT1 CZDUD-D TAPE D

SEQ 0015

683
684
685
686

: STARTING PROCEDURE
:LOAD PROGRAM
*PRESS START
*PROGRAM WILL TYPE 'DUT1 CZDUD-D TAPE D ‘'

688
689

;AT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE D'
:AND THEN RESUME TESTING

¢87

*PROGRAM WILL TYPE

gg%

694
695
696
697
698
699
700
701
702
703
704
705

15:46

e78

679
gg}

21-NOV-78

18-JUL-78 15:54

707
708
709
;}?

'R''

TO INDICATE THAT TESTING HAS STARTED

:SWITCH REGISTER OPTIONS

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

SwW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
Sw09=1000
Sw08=400
SW07=200
SW06=100
SW05=40
SW04=20
Sw03=10
Sw02=4
SW01=2
Sw00=1

:=1,HALT ON ERROR
;=1,L00P ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT
:=1,INHIBIT ITERATIONS
:=1,ESCAPE TO NEXT TEST ON ERROR
:=1,L00P WITH CURRENT DATA
:=1,L00P ON ERROR
;+ =1, USE STATUS MAP

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

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JuL~78
115:54

15:46

PAGE 19

SEQ 0016

sREGISTER DEFINIT IONS

RO=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6

PC=%7

;GENERAL REGISTER
sGENERAL REGISTER
:GENERAL REGISTER
:GENERAL REGISTER
:GENERAL REGISTER
sGENERAL REGISTER
:PROCESSOR STACK POINTER

:PROGRAM COUNTER

;LOCATION EQUIVAL ENCIES
177570
177570
177776

001100

DSWR=177570
DLIGHTS=177570
PS=177776
STACK=1100

sHARDWARE SWITCH REGISTER LOC.
sHARDWARE DISPLAY REGiSTER LOC.
;PROCESSOR STATUS WORD
;START OF PROCESSOR STACK

s INSTRUCTION DEFI NITIONS

PUSH1 SP-5746

sDECREMENT PROCESSOR STACK ! WORD =TST =(SP)

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

BIT4=20
BIT3=10
BIT2=4
BIT1=2
BITO=1
;PROCESSER LEVELS

LEVEL7=340

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

§§§§§§§§§§§§i’?&fl%fi@i‘%fiéiéflééififii9383353

CZDUD-D MACY11 30A(105 )1 g;‘-mv-n
CZDUDD.P11
18-JuL-

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000010
000004

SEQ 0017

RXCSR BIT DEFINIT!IONS

RING=8IT14

CTS=BIT13
CARDET=B]T12
RECACT=8]T11
SRD=B1T10
DSR=BIT9
STPSYN=B]T8

RXDONE=B]T7
RINTEN=B]T6

DSINTE=BITS

SYNSCH=B] T4

STD=BIT3

RTS=BIT2
DTR=BIT1

100000

RXERR=B] T‘l 5
OVRRUN=BIT1

040000
020000
010000

gATA SET CHANGE

sRING

:CLR _TO SEND
:CARRIER DETECT
sREC ACTIVE
sSEC REC DATA
:DATA SET RDY
:STRIP SYNC
sREC DONE
sREC INTR ENABLE
:DSC INTR ENABLE
:SYNC SEARCH
:SEC XMIT DATA

;REQ TO SEND
:DATA TERM RDY

VOID=8] ro

RXDBUF BIT DEFINITI(NS

sREC_ERROR

s OVERRUN
FM ERROR

FKRR%ITB
PARER=BIT12
PARITY ERROR
;PARCSR BIT DEFINITI(NS
PAREN=B]T9
sPARITY ENABLE

EVPAR=BIT8

;EVEN PARITY SENSE

SYNINT=30000

sSYNC EXTERNAL MODE
:SYNC INTERNAL MODE
: 1SOC MODE

:PARCSR WRD DEF INITIONS

WORD LENGTH 5 BITS
sWORD LENGTH 6 BITS
;WORD LENGTH 7 BITS
sWORD LENGTH 8 BITS

:NO PARITY
;0DD PARITY
;EVEN PARITY

:TXCSR BIT DEF INITIONS

DNA=B]IT15

mwm:ex T4

CLK=BIT13
BITW=BIT10
MRESET=BIT8
TXDONE=B]T7
TXINTE=BIT6

DNAINTE=RITS
SEND=BI T4
HDXEN=BIT3
BREAK=BIT0

816

817

822

Dsc=81T18

000001

814
815

820
821

PAGE 20

RGGISTER DEF INITIONS

810
811
812
813

818
819

15:46

004000

010000
014000

USER=0

sDATA NOT AVAILABLE

:FC\AINT DATA
:CLK

:BIT WINDOW
sMASTER RESET

sXMIT DONE

sXMIT INTR ENABLE
'g%INTR ENAB
HDX/ FDX*
EAK

:TXCSR WRD oermin%ws

MINT=4000

MEXT=10000
SYSTST=14000

R _MODE
sMAINT INT MODE
:MAINT EXT MODE

:SYSTEM TEST MODE

s TRAPCAT(rER FOR ILLEGAL

INTERRUPTS

CZDUD-D MACY11 30A(1052)

CZDUDD.P11

21-NOV-78

18-JUL~-78 15:54

15:46

ggz

827
828
829
830
831
gg

000024
000026
000030
000032
000034
000036

000024

=24

016250
000340
016000
000340
015746
000340

gglos

836

837
838

&33

000174
000176

000200

843
844

000174

000000
000000

000167

=174
001214

001100

873
874
875
876
877
878

.START

;SOF TWARE DISPLAY REG.
:SOF TWARE SWITCH REGISTER

;GO TO START OF PROGRAM

:INDIRECT POINTERS

001100

001102
001104
001106
001110
001112

177570

177570
177560
177562
177564
177566

SWR :

177570

LIGHTS:177570
TKCSR:
177560
TKDBR:
177562
TPCSR:
177564
TPDBR:
177566

;SWITCH REGISTER POINTER

;DISPLAY REGISTER POINTER
sTELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
:TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

:PROGRAM CONTROL PARAMETERS

001114
001116
001120
001122
001124
001126
001130
001132
001134

000000
000000
000000
000000
000000
000000
000000
000000
000000

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

ggg
868
869
870
871
872

;POWER FAIL HANDLER
*SERVICE AT LEVEL 7
*ERROR HANDLER
*SERVICE AT LEVEL 7
*GENERAL HANDLER DISPATCH SERVICE
:SERVICE AT LEVEL 7

DISPREG: .WORD 0
SWREG:
.WORD 0

.=1100

ggls.

856
857
858
859
860
861
862
863
ggg

PFAIL
340
LHLT
340
. TRPSRY
340

JMP

gzg
88
849
850
851
gg%

SEQ 0018

:SOF TWARE SWITCH REGISTER

841
842

:STANDARD INTERRUPT VECTORS

825

826

PAGE 21

0
O
0
0
0
O
0
0
0

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

:PROGRAM VARIABLES
001136
001140
001142
001144
001146

001150
001152
001154
001156
001160
001162

000020
000000
000000
000000
000000

000000
002000
000000
000000
000000
000000

HOLD:
SHIFT:
COUNT:
TEMP1:
TEMP2:

TEMP3:
TEMP4:
TEMPS:
SAVRO:
SAVR1:
SAVR2:

20
0
0
O

0
0
0
0
0
0

; TEMPORARY
;TEMPORARY
;TEMPORARY
: TEMPORARY
: TEMPORARY

STORAGE=DELAY TIME FOR CABLES
STORAGE= # OF SHIFTS PER CHAR
STORAGE= # OF TIMES A CHAR WILL BE SENT
STORAGE
STORAGE

:TEMPORARY STORAGE
: TEMPORARY STORAGE
TEMPORARY STORAGE
;RO STORAGE
:R1 STORAGE
*R2 STORAGE

879
880
881
882
883

000000
000000
000000
000000

15:46

PAGE 22

SAVR3:

SAVRSG:
SAVRS:
SAVSP:
SAVPC:

OOO0O0O

CZDUD-D MACY11 30A(1052)
21-NOvV-78
18-JuL-78 15:54
CZDuDD.P11

SEQ 0019
;R3 STORAGE

R4 STORAGE

RS STORAGE

:STACK POINTER STORAGE

:PROGRAM COUNTER STORAGE

CZDUD-D MACY11 30A(1052)
21-NOV=78
CZDUDD.P11
18-JUL~-78 15:54

884

885
886
887
888
889

890

gg;

893

8%
895
8%
897
898
899

900

901

902

903

001176
001177
001200
001201
001202

001203

377
377
377
377
000

000000
000000
000000
000000
000000
000000

001220

000000

904

907
908
909
910
911
912
913
914

915

916

001222
001224
001226
001230
001232
001234
001236

000000
000000
000000
000000
000002
003006
000G00

001242

000000

001240

920
921
922

852

001244
001245
001246

001247

000
000
000

000

;8 OF SYNC CHARS REO D FOR SYNC'ZATION
.SEC XMIT JUMPER'. IN:
:SEC REC JUMPER “'IN''
sOPTIONAL JUMPER CLR '‘IN'
:NO MULTIPLE DEVICE FLAG
e

377

EXTERNAL MODEM BYPASS JUMPER

"‘IN

;PROGRAM MULTIPLE DEVICE PARMETERS
0
0
0
0
0
0

ROTADD:

PROG CONTROLLED 1ST DEVICE ADDR
SAVED 1ST DEVICE ADDR
:LAST DEVICE RXCSR ADDR
PROG CONTROLLED IV
*SAVED INTR VECTOR
ACTIVE REGISTER ,,,MODIFY THIS

:LOCATI(N TO DISQUALIFY OR QUALIFY

sDEVICES (1= RUN,,,0= DON'T RUN)

sROTATING POINTER FOR ACTREG..POINTS

sTO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

: THESE ARE STORAGE FOR THE STATUS MAP PRINT OUT
LAG:0
HOLDO 0
HOLD1:0
COUNT1:0
TABLE
: &

3006
3006

JRRARARRARRAR AN

INIFLG: .BYTE
STFLG:
.BYTE
ERRFLG: .BYTE

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

RN RR R AR AR AN

LOKFLG: .BYTE

0
0
O

;PROGRAM INITIALIZATION FLAG
JTEST START FLAG
sERROR OCCURED FLAG

IRRARAAN

928
001300
001301
001302
001303
001304
001305

001300
000001
000001
000001
000001
000001
002001

ggg
939

.BYTE

377
377
377
377
0

;LOCK ON CURRENT TEST FLAG

.EVEN |

927

929

BASEADD :
KEEPADD
LASTADD
BASEIV:
KEEP]IV:
ACTREG:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

;PROGRAM CONTROL FLAGS

925
926

930
931
932
933
934
ggg

.EVEN

;PROGRAM CONVERSAT IONAL PARMETERS

003006

3};
919

JMRBY:

SEQ 0020

-tttnnt-ctttnqtttt-tttncatttttatttttant

905

906

PAGE 23

SYNCNO:
SEXMIT:
SEREC:
OPTCLR:
MULTD:

377

001204
001206
001210
001212
001214
001216

15:46

.=1300

STATUS: NOSYNC: .BLKB 1
MITSEX: .BLKB 1
RESEC: .BLKB 1
CLROPT: .BLKB 1
DMULT: .BLKB 1
BYJMR: .BLKB 1

: MULTIPLE
001306

000001

STATUS

MAP

AR AAARR

;SYNC CHARS
JXMIT JUMPER
sREC SEC JUMPER
;OPTIONAL JUMPER
JMULTIPLE DEVICE FLAG
JEXTERNAL MODEM

DEVICE PARAMETERS

ADDBASE: .BLKW 1

;PROG CONTROLLED 1ST DEVICE ADDR

CZDUD-D MACY11 30A(1052)
21-NOV=78
CZDUDD.P11
18-JuUL-7815:54
90

001310

001312

000001

9%3

001316

000001

9%6

001326

94
95

001314

2
SEQ 0021

ADDKEEP:

ADDLAST:

000001

.BLKW 1

;SAVED 1ST DEVICE ADDR

.BLKW 1

;LAST DEVICE

IVBASE: .BLKW
1

RXCSR

ADDR

:PROG CONTROLLED IV

IVKEEP: .BLKW 1

:SAVED INTR VECTOR

001320
001322

000001
000001

REGACT:
ADDROT:

.BLKW
1
.BLKW
1

:ACTIVE REGISTER
:ROTATING POINTER

9%7
9%8
949

001326
001330
001332

000001
000001
000001

RIVDU:
TIVDU:
TISDU:

.BLKW 1
.BLKW 1
.BLKW 1

:DU11 REC_INTR VECTOR
:DUTT XMIT INTR VECTOR
:DUI1 XMIT INTR STATUS

951
952
953
954

001336
001340
001342
001344

000001
000001
000001
000001

950

955

956
957
958
959
90
91
92
ggz

001334

001346

001350
001352
001354
001356
001360
001362
001364

000001

PRTDU:

000001

RISDU:

000001

9%9

972

001366

.TRPTAB:

104400

001370

014716

977

001372

014736

979

001374

014776

.INSTR

981

001376

015114

. INSTER

983

001400

015146

.PARAM

985

001402

015362

.SAV05

987

001404

015422

.RES0S

989

001406

015454

. CONVRT

991

001410

015460

.CNVRT

993

001412

015700

.SETFLG

995

001414

016414

.CKSWR

982

984
986
988
990

540

994

;DUT1 RXCSR BASE ADDR

:tttttt.tt.tttttt.t.t.tttt'tttttttttt'.tt..t'ttt'ttttt...'.'ttt.tt'ttt..'.
:tQQttttttQt.t.ttfitttttttttttt't....tQ..tttQ."t..t."...'..'tt.".""t.t

975

980

REC INTR STATUS

:IN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS

014532

978

;DU

:PRIORITY TO ALLOW INTR
: DEFAULT OR ALTERED PARAME TERS
:

:DEF INITIONS FOR TRAP SUBROUTINE CALLS
:POINTERS TO SUBROUTINES CAN BE FOUND

001366

976

.BLKW 1

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

973

974

:DU11 PRIORITY

BUFHRXD: .BLKW
1

000001
000001
000001
000001
000001
000001
000001

ggg

970
971

.BLKW 1

L1ESS: .BLKW
1
CSRRX: .BLKW 1
CSRHRX: .BLKW
1
BUFRXD: .BLKW
1

965
966

PAGE 24

000001

15:46

. SCOPE

104401

104402
104403

104404

104405

104406

104407
104410
104411

104412

104413

.SCOP1
.TYPE

SCOPE=TRAP+0

;CALL TO SCOPE LOOP AND ITERATION HANDLER

SCOP1=TRAP+1

;CALL TO LOOP ON CURRENT DATA HANDLER

TYPE=TRAP+2
INSTR=TRAP+3

;CALL TO TELETYPE OUTPUT ROUTINE
;CALL TO ASCII STRING INPUT ROUTINE

INSTER=TRAP+4

:CALL TO INPUT ERROR HANDLER

PARAM=TRAP+S

;CALL TO NUMERICAL DATA INPUT ROUTINE

SAVOS=TRAP+6

;CALL TO REGISTER SAVE ROUTINE

RESO5=TRAP+7

;CALL TO REGISTER RESTORE ROUT INE

CONVRT=TRAF+10
CNVRT=TRAP+11

;CALL TO DATA OUTPUT ROUTINE
;CALL TO DATA OUTPUT ROUTINE WITHOUT CR/LF

SETFLG=TRAP+12

;CALL TO FLAG SET ROUTINE
;(ALL TO ALLOW SWREG TO BE LOADED FROM TTY

(KSWR=TRA"+13

CZDUD-D MACY11 30A(105 )152;29{)\!-78
CZDUDD.P11
18-JuL-

996
997

m
m

001416

15:46

104414

016470

LCNTLU

1000

012767
012706
012737

000340
001100
016250

1013

001450

005067

177454

001460
001464
001470
001476

005067
005067
012767
012767

177446
177444
000001
001420

001504

105767

177534

104402

016570

177570

1019
1020

1021

001440
001444

001454

005067
105067

105067

001510

001004

001516

105167

1022

001512

1024

001522

012767

1029

001554

022777

1031

001564

1023

177460
177575

1032
1033

1034
1035
1036

1037

1038
1039
1040
1041

1“2

001562

001402

001566
001570

022626
012767

001576
001604
001610

001614

001620
001622
001630

001632

176350

000024

005737

001005
022767
001001

CLR
CLRB

177522

177777

177430
177410

177350

177344

000176
000174
000004
000006

ONCE:

000004

177316

177302
177276

668:

000042

000176

1050

ERRFLG

*CLEAR ERROR FLAG

INIFLG

*TESTING STARTS
*HAS INITIALIZATION BZEN PERFORMED

MTITLE

:TYPE TITLE MESSAGE

#DSWR, SWR

*RELOAD HARDWARE SWITCH REGISTER INTO POINTER

BNE

ONCE

CcOM8

INIFLG

MOV

*CLEAR PASS COUNT

*IF NOT SET FLAG AND DO

MOV
MOV
MOV
MOV

#DLIGHTS, L IGHTS
a6, -(SPS
ah -(SP)
#64$, an

BEQ

658

(WP
MOV

(SP)+,(SP)+
#SWREG, SWR
#DISPREG,L IGHTS
(SP)+, a4
(SP)+.a#6

MOV
MOV
MOV

CNTLU

*CLEAR ERROR COUNT
*CLEAR LAST ERROR POINTER
*SET UP FOR TEST 1
:SET UP FOR POWER FAIL BEFORE

#-1,35WR

668

MAP
#SWREG, SWR
MAP

*RELOAD HARDWARE DISPLAY REGISTER INTO POINTER
:SAVE VECTORS

:SET UP FOR TIMEOUT

*REFERENCE HARDWARE SWITCH REGISTER
;ADJUST STACK
*POINT TO SOF TWARE SWITCH REG

*POINT TO SOFT DISPLAY REG
*RESTORE VECTORS
;UNDER MONITOR

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

:ttttttttttttitttt'ttitt'ttttttttt.ttttttttttt.tttttttt'ttt

1043

1048
1049

:CLEAR # OF ITERATION COMPLETED LOCATION
*CLEAR START FLAG

TSTB

104414

LPCNT
STFLG

ERRCNT
LSTERR
#1,TSTNO
#.START ,RTRN

BNE
cMP
BNE

177250

;LOCK OUT INTERRUPTS
:SET UP STACK
*SET UP POWER FAIL VECTOR

CLR
CLR
MOV
MOV

€s:
658:

#340,PS
#STACK, SP
#.PFAIL,an24

PASCNT

TYPE

; CODE FOR STATUS MAP

1044
1045

}8:.“7’

:CALL TO ALLOW LOADING OF SWREG FROM TTY

CLR

CLRB

000407

012767
012637
012637

.START: MOV
MOV
MOV

177566

1025 001530 012767 177570
1026 001536 013746 000006
1027 001542 013746 000004
1028 001546 012737 001566
1030

CNTLU=TRAP+14

:TYPE TITLE MESSAGE

1008 001420
1009 001426
1010 001432

1015
1016
1017
1018

SEQ 0022

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

}88(7’

1014

;QtttttttQ'.tt.t."t.Q."ttt".tttttt.Qtt..'t'.t'.t.t.t.t.tt.t..t.t.".'t.
;t..ttttt.t.t.....ttt.t""t'.tt.t"t..'t.Qtt.QQtt...t.tttttt.'.t..t'tt'.t

1001
1002
1003
1004
1005

1011
1012

PAGE 25

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

032777
001537

000200

1051

177236

MAP:

: SETUP, OR REENTER QUESTIONING ROUTINE

BIT #SW07. @aSWR
BEQ $67

;
-

1S Sw07=1?
IF NOT, GO TO TEST FOR SWO0O=1

: NOW SET 'JP MAP VALUES FOR PROGRAM

THESE VALUES FROM THE STATUS MAP WILL BE USED IN THE

CZDUD-D MACY11 30A(1052)
21-NOV=78
CZDUDD.P11
18-JuL-78 15:54

17743
17742

PAGE 26
OPERATION OF THIS

177416
1776411
177404
177377
177372

CSEXMIT
L,SEREC
"OPTCLR

MOVB BYJMR

- JMRBY

b
s
b
i
s

; SYNC CHAR
: XMIT
JUMPER
* SEC REC JUMPER
*OPTIONAL JUMPER
*MULTIPLE DEVICE

JMULTD

ADDBASE
MOV ADDKEEP
MOV ADDLAST
MOV IVKEEP
MOV REGACT
MOV ADDROT
MOV IVBASE,

.BASEADD
- KEEPADD
.LASTADD
"KEEPIV
"ACTREG
ROTADD
BASEIV

MOV
MOV
MOV
MOV

DURIV
DURIS
DUTIV
DUTIS

*EXTERNAL MODEM

mos 1ST DEVICE ADDR

: SAVED 1ST DEVICE ADDR

* LAST DEVICE RXCSR ADDR
: SAVED INTR VECTOR
*ACTIVE REGISTER

*ROTATING POINTER

, BASEADD

RIVDU,
RISDU.
TIVDU,
TISDU.

MOV L1ESS.
MOV a#PRTDU,

LESST
a#DUPRT

MOV CSRRX,
MOV CSRHRX,

RXCSR
HRXCSR

MOV

BASEDU, DUBASE

MOV
MOV
MOV
MOV
MOV
MOV

BUFRXD, RXDBUF
BUF HRXD
CSRPAR,
CSRHP
CSRTX, TXCSR
CSRHTX,

MOV BUFTXD,
MOV BUFHTXD,
JMP _BEGIN

TXDBUF
HTXDBUF

BIT

,aSWR

BASE mm VECTOR

REC m’m VECTOR

LOAD BASEADD

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

HRXDBUF
PARCSR
HPARC
SR

HTXCSR
;BRANCH TO BEGIN TESTING

'tt'tt't.'t......fi't.'t't'tttt.tttttttfitt...fittlfiflfitt.t

D e

176730

$67:

) i

1%:

2%:

BNE
MOV

#302.R1
#4 R
R1. (RO)

CLR

; RESELECT VECTOR $ CONTROL REG?
; BRANCH TO QUESTIONING
: GO TO LOAD STATUS MAP ETC.

; CLEAR FLAG SO STATUS MAP PRINTS OUT

#300,R0

MOV
MOV
MOV

INSTR

#SWO0

JMP .BEGIN
CLR S#FLAG

cMP
BLT

001000

:RESTORE VECTOR AREA TO TRAPCATCHER

:START AT LOCATION 300

(R1)

#1000.R1
2

MRE GAD
PARAM

160000

167776

"BYTE

MOVB MITSEX
MOVB RESEC
MOVB CLROPT

MOV KEEPADD

i e

PROGRAM.

, SYNCNO

MOVB

- e

—_—

SEQ 0023

MOVB. NOSYNC

177324

So0o00000
=ilelele)
& A J3JA NN STEZFEREREE 22%% 57
KIRIC2Y
EEREEF
SR EL A

105

15:46

016154

176746

.BY TE

:1>taAse

sOUTPUT MESSAGE & GET INPUT STRING
:ME SSAGE

: CONVERT STRING

;

;LOW LIMIT

HIGH LIMIT

*STORE AT THIS LOCATION

:HASK

MOV

;END AT LOCATION 776

DUBASE ,KEEPADD ; SAVE

JHOW MANY TIMES + 2

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18=JUL-78 15:54

1108 002240 004767 016014

1109 ooszu. 016767 176736
1110

1111

002252

15:46

JSR

176732

104403

MOV

INSTR

002260

000300

300

“LOW LIMIT

PARAM

002266
001
002267
004
002270 016767 016440
002276 016767 016432

1121

002306

002264

002304

002310
002312

000776

020734

104403

1126

002320

1127
1128

002322
002326

176716
176706

rof

1130
1131

002336
002336

1135

002346

100406

000167

1132
1133
1134

002340
002342
002344

017004
104405
1

002350

001210

002354

012767

1136

1137 00235
1138 00235
1139

1140
1141
1142
1143

1144

002362

002376

000140

005067
056767
000241

000001

176630
176626

1$:

176622

2%:

1146, 002404
1147 " 002412
1148 002420

062767
026767
101362

000010
176572

176572
176564

056767

176572

176566

1152 002430
1153 002436
1154 002444
1155 002446

012767
016767
000414
016767

000001
176544

176562
176540

4$:

176534

176530

3$:

1157 002456
1158 002460
1159 002462

017167
104405
160000

1161

002466

001210

002471

001

1149

1150

002422

1151

1156

002454

1160

002464

1162

002470

1163

104403

001

BM]

B8RS

JMP

OUTMUL

ACTREG
ROTADD

;OUTPUT MESSAGE & GET INPUT STRING

;MESSAGE

sr FLAG BASED UPON INPUT STRING
1S FLAG

;ARE THERE -unbl.e DEVICES

:ON THE SYSTEM

*YES,ASK NEXT ouesnou

;JUMP AROUND NEXT QUESTION

;OUTPUT MESSAGE & GET INPUT STRING

*ME SSAGE
*CONVERT STRING
;LOW LIMIT

LASTADD

1
1

MOV

CL
BIS
cLC

sHIGH LIMIT

*STORE AT THIS LOCATION

msx
HOW MANY TIMES + 2

ADD
CMP
BHI

#10,BASEADD
:SET UP BASE ADDRESS
LAszoo.aAswo,,xs THIS THE LAST DEVICE ?
2$
NO DO IT AGAIN

BYTE

:SET UP POINTER

ROTADD

BIS
%

#1,ROTADD

ACTREG
:CLR ACTIVE REGISTER
ROTADD,ACTREG
;MAKE THIS DEVICE ACTIVE'
.

ROL

BCS

167776

MULTD

;SAVE
:SET UP FOR ROTATION

:THE FOLLOWING ROUTINE SETS UP ACTREG Ffi THE FIRST TIME

176636

176616

103421

SETFLE
MULTD

INSTR

BYTE
BYTE

006167

002402

*MASK
“HOW MANY TIMES + 2

167776

002376

1145

MMULT

MLASTD
PARAM
160000

;

¢
%
DURIV,KEEPIV
DURIV.BASEIV

*STORE AT THIS LOCATION

CLR
CLR

BBR:

104403

001
001

1
&
MOV
MOV

- . TSTB

176670
176666

167776

SHIGH LIMIT

INSTR

104412
001202

"%8 002332

DURIV

.BYTE
BYTE
\

016725

005067
005067

*CONVERT STRING

776

1124 002314 105767 176662

1125

OUTPUT MESSAGE & GET INPUT STRING

'ESSAGE

1116
117
1118
1119
112§
1123

PC,DUADDR

“KEEPADD,BASEADD ;RESTORE FOR ROTATION

MVECTO

002262

1120

SEQ 0024

016622

1114

1115

002254

111§ oogzss 104405
1113

PAGE 27

MOV
MOV
B8R
MOV

INSTR

ROTADD,ACTREG

*MULTIPLE DEVICE QUESTION

#1 _,ROTADD
:SET UP FOR LATER USE IN END OF PASS ROUTINE
KEEPADD ,BASEADD :DITTO
OUTMUL ; CONTINUE QUESTIONS
KEEPADD éAssAoo Resrmf
:OUTPUT MESSAGE & GET INPUT STRING

*ME SSAGE
*CONVERT smmc
SLOW LIMIT

167776
1

:THIS ASSUMES THAT THERE ARE AT

:LEAST TWO DEVICES WHEN YOU ANSWER YES TO

MRANGE
PARAM
160000
LASTADD

;SET UP POINTER

:ARE YOU OUT OF RANGE ?

mcu LIMIT

*STORE AT THIS LOCATION

*MASK

‘HOW MANY TIMES + 2

)

—

———

—

CZDUD-D MACY11 30A(1052)

—

21-NOV-78

CZbuoD.P11

18-JUL=78

15:54

1164

002472

000167

177656

002476

104403

1165

1
1
1 9

002476

15:46

OUTMUL:

& 002500 017453

1 69
1 70

002504
0025

002510

i 002512

DD DD

1
1

002502

D DD

1173
1174
1175
1176
177
1178

002513
002514

104405

000004
000007

020254
000
001
004767

002520
002520
002502

104403
017500

1183
118

002532
002534

001003
105067

1179
1180
1181
D D

1182

D e

1185
1186
1187
1188

00250¢

002540
002542
002550
002552

122767

000412
122767
001004
112767

.BYTE
BYTE

015464

015312

D e
b ed e e

119

1195

177777

~
015274
:
176416

104412

—d d

1205

1202

002614

JSR

STME AT THIS LOCATION
sMASK
sHOW MANY TIMES + 2

,
PC,DULEV

INSTR
MSYNC
CMPB
BNE
CLRB
BR
*
CMPB
BNE
MOVB

INSTER

NOP
INSTR

sOUTPUT MESSAGE & GET INPUT STRING
*MESSAGE

#:1,INGUF

GIS IT 7 2

18
SYNCNO

;000

48
#'2, INBUF
28
#-1,SYNCNO

;18 IV "X’}
;377

:RETRY

38
;

017661

MwIRE4
v

104403
2 01773
¢ loce12
00120

sOUTPUT MESSAGE & GET INPUT STRING

*MESSAGE

:SET_FLAG BASED UPON INPUT STRING

:THIS FLAG
:0UTPUT MESSAGE & GET INPUT STRING
:MESSAGE
:SET_FLAG BASED UPON INPUT STRING
:THIS FLAG
:0UTPUT MESSAGE & GET INPUT STRING

*ME SSAGE

SETFLG

:SET FLAG BASED UPON INPUT STRING

INSTR
MEXTJ
SETFLG

:0UTPUT MESSAGE & GET INPUT STRING
*MESSAGE
:SET_FLAG BASED UPON INPUT STRING

OPTCLR
JMRBY

:THIS FLAG

WN=O

48:

DUPRT
0
1

:LOW LIMIT
HIGH LIMIT

SEXMIT
INSTR
MJIRES
SETFLG
SEREC
INSTR

d —d

VO NV

1
1
1

d —d —

1
1

— —d —d —d

1
1
1
1
1

MNONLNLMNLNLNLNINONONY

1
1209

sOUTPUT MESSAGE & GET INPUT STRING
s MESSAGE
:CONVERT STRING

SETFLG

1206 002616 001201

1205
1206
1207

;D0 IT AGAIN

INSTR
MLEVEL
PARAM

MJIREG

10441

0011
104403
017614
104412
001200
104403

\ O 28: °

72 017546

1196
76
1197
1198
1199
120 %0
1201
10

1%:

000240
104403

002574

3$:

176436
000062

:COMPARE THE FIRST CHARACTER IN
THE TELETYPE INPUT
:BUFFER TO THE CHARACTERS 1" AND "2
"
:IF THE CHARACTER IS
'*i' CLEARMhe FLi
:IF THE CHARACTER IS '2'* SET THE FLAG

AAA:

000061

JMP

SEQ 0025

4
7

)

1189
000402
1190
104404
1191 002564 000757

1 9;
119

PAGE 28

sTEST START AND RESTART

002630

012767

000340

175140

.BEGIN: MOV
#340,PS
:LOCK OUT INTERRUPTS
; weRRRw
Lfifl) STATUS MAP ternnn
*THE VALUES NOW BEING LOADED INTO THE STATUS MAP WILL BE

002636 032777 000200 17623
002644

001132

o‘r’f@g mfi“fiocnmsc; ILMAB'E)D x%bxfisflv"?gfiw}&"ffixs PROG.

éxr csug'f

BNE HEREU

; SWO7 SET, IF YES BRANCH

CZDUD=D MACY11 ggmo
18~-JuL~-78

CZDUDD.P11
i
1221
1 §
1 s
1224
1
1
122
1
1
1230
1231

002706
7

123
1234

77’9(2.

;gs

756

)

21-NOV-78
15: 54

116767
116767
116767
116767
116267
116767
16767
16767
16767
016767
016767
16767

176326
176317
17631
176
176
17
17
17
17
176254
176244
172542

13737
16767

020254
015 sg

016767

176236

015732
015726
015722

15:46

176424
176417

176
176
176
176
176354
176344
176%42

NOS
JMITSEX
LRESEC
,CLROPT
,DMULT
.BYJMR
. ADDBASE
-ADDKEEP
JADDLAST
. IVKEEP
. IVBASE
JREGACT

001324
176326

MOV @#DUPRT
MOV DURIV

L@#PRTDU
LRIVDU

17641;

1764
1764

176336

176326

MOV DUBASE.

LBASEDU

:RXCSR BASE ADDRESS

003030

016767

015356

1241
124;
1243

003044
003052
00

016767
016767
016767

015642
015636
015632

176270
176264
176260

1245

003076

016267

015622

176250

176306

1240 003036 016767 01

176274

003102

1247 003110

1248

1249
1250

003116

003126

016767

015616

016767 015612

016767

015606

015602

MOV LESS1

MOV RXCSR

176254
176244

CSRHRX
BUFRXD
BUFHRXD

MOV HPARCSR,

CSRHPAR

MOV ‘HTXCSR,

176234

MOV TXDBUF

MOV HTXDBUF,

CSRPAR
CSRTX

CSRHTX

BUF TXD

BUFHTXD

SRRANRARAARARARRRARRAAAR
A AARARA AR RANRN

: THE FOLLOWING CODE WILL PRINT

1252

: THE CONVERSATIONALLY SET JUMPER

1253

: SETTINGS FROM THE STATUS MAP

1254

: ON THE FIRST PASS OF

1256

: JUST AFTER THE QUESTIONING

1255

: THIS DIAGNOSTIC OR

1257
1258

003132

005737

001222

126%

003140

000167

000116

003150

062

000001

001222

000003

176034

1263

1264

003136

003144

1265
1526

003156
003162

003174

1267

0031

1
1270

003200
003204

1
1274

0032}8
003220

1271 00
1 g 00321
1275

: AND ANSWERING .

1260
1261

: PRIORITY TO ALLOW INTR

CSRRX

MOV TXCSR

176240

176230

,L1ESS

MOV HRXCSR,
MOV RXDBUF
MOV HRXDBUF,
MOV PARCSR

1251

1259

:ROTATING POINTER

LRISDU
.TIVDU
JTISDU

1239

1246

MOV DURIS
MOV DUTIV
MOV DUTIS

1238 oosogg 016767 msg

015626

’

176326
176314
176310

816767
016767
016767

016767

MOV ROTADD

:SYNC CHARS
CSMIT JUMPER
:SEC REC JUMPER
:OPTIONAL JUMPER
:
TIPLE DEVICES
:EXTERNAL MODEM
:PROG CONTROLLED 1ST ADDR
:SAVED 1ST DEVICE ADDR
:LAST DEVICE RXCSR ADDR
:SAVED INTR VECTOR
.
: RELOAD BASE INTR VECTOR
:ACTIVE REGISTER
-pU11 PRIORITY
:REC INTR VECTOR
*: REC INTR STATUS
: XMIT INTR
VECTOR
: XMIT INTR STATUS

00
003006
003014

SEQ 0026

SYNCNO
MOVB SEXMIT
MOVB SEREC
MOVB OPTCLR
MOVB MULTD
MOVB JMRSBY
MOV BASEADD
MOV KEEPADD
MOV LASTADD
MOV KEEP]V
MOV BASEIV
MOV ACTREG

1235
1236
15

12644

PAGE 29

003224

00140,

104%;

020012

010067 176042
010167 176040

12767

012700

012701
010120

000002°

001300

862701 000002
201;7 001306
001372
012700

010067

000002’

176006

HEREU:

T T I

TST @#FLAG

BEQ

JMP THRU

SETFG:

SETFG

TYPE , MSTATUS

ADD #1, SWFLAG

MOV RO, HOLDO
MOV R1, HOLD1

MOV #3, COUNT1
MOV #BUFF1,

MOV #STATUS R1
FILBUF: MOV R1, (ROS+

UP:

: TEST IF 1ST PASS

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

: PRINT °STATUS MAP'

: SET FLAG ON 1ST PASS

: SAVE RO
: SAVE R1

:COUNTER FOR WORDS PRINTED

: (BUFF1)=STATUS ETC.
: LOAD BUFF AS ABOVE

ADD #2° .R1
CMP R1, #STATUS+6

* PREPARE STATUS ADDRESS
: CHECK IF 3 WORDS LOADED

MOV RO , TABLE+4

:LOAD ADDRESS TO PRINT

BNE FILBUF
MCY #BUFF1 RO

: BACK TO LOAD NEXT ADDRESS
: LOAD FOR PRINT OUT

CZDUD-D MACY11 30A(1052)152;va-78

15:46

PAGE 30

CZDUDD.P11

18-JUL~78

1276
1277

003230
003234

012067
104410

176006
001232

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

1280
1281

003250
003252

001365
016700

175746

BNE UP
MOV HOLDO,RO

1278
1279

1282

oogl.o
44

104402
005367

017254
175760

016701

175744

1284
1285
1286

003262
003266

012706
005737

001100
000042

1288

003274

105767

175702

1290
1291

003300
003302

001407
016767

011404

003316
003
003326
003330
003332

000444
032777
001416
104403
017410

1299
1300
1301
1302
1303
1304
1305
1306

003336
003340
003344
003346
003354
003362
003364
003372

001247
105767
001407
012767
012767
000406
016767
016767

1308
1309

003406
003410

001410
104403

1311

003414

104405

1313

003420

1283

1287

1289

1292

1293
1296
1295
1296
1297
1298

1307
1310

1312

003272

003310

003334

003400

003412

001056

016767

032777

017375

003446

003422

001114

1317
1318

003426
003430

000403
012767

}335(1)

003442

000177

1315
1316

1319

1322
1323

003424
003425

003436

000004

TYPE, MCRLF
DEC COUNT1

MOV HOLD1, R1

THRU:

011304

011300

#STACK,SP
w62

TSTB

MULTD

BEQ
MOV

iy
BRW,TTST

:IF NO,TEST FOR LOCK ON TEST
;RESTORE NORMAL SCOPE LOOP

B8R
BIT
BEQ
INSTR
MLOCK

3s
#BI1T2,3SWR
1$

;JUMP AROUND IF YES
:CHECK FOR LOCK ON TEST

175552

MOV

5%:

000240
000240

011240
011234

011322
011316

011222
011216

175472

1%:

2$%:

;SET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL

;DON'T ALLOW LOCK ON TEST IF RUNNING

-MULTIPLE DEVICES

BRX,TTST+2

:DITTO

;OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE

LOKFLG
TSTB
BEQ
MOV
MOV
BR
MOV
MOV

BIT

BEQ
INSTR

;SET FLAG BASED UPON INPUT STRING

:THIS FLAG
;1S LOCK ON TEST OPTION SELECTED

LOKFLG
18
#NOP,TTST
#NOP,TTST+2
2%
BRW,TTST
BRX,TTST+2

:SET UP TO LOCK

;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
:IF SWO01=1, GET STARTING PC

#SW01, aSWR
3s

;OUTPUT MESSAGE & GET INPUT STRING

MTSTPC

:MESSAGE

PARAM

:CONVERT STRING

TST1

013760

;LOW LIMIT

TLAST

001
001

104402

MOV
TST

BNE

175703

BYTE
BYTE
003446

017371

175446

: CR AND LF
:COUNT WORDS PRINTED

: GO PRINT NEXT ADDRESS/CONTENTS

SETFLG

000002

: LOAD CONTENTS
; PRINT ADDRESS/CONTENTS PAIR

JREARRRRARRARARRRAAERANARRAARR AN AR

104412

003416

1314

011400

SEQ 0027

175456

3$:

4$:

JHIGH LIMIT

RTRN

1
1

BR
MOV

43
#TST1,RTRN

JMP

aRTRN

TYPE

:STORE AT THIS LOCATION

:MASK
:HOW MANY TIMES + 2
:START AT TEST 1
:TYPE R

:START TESTING

;:THIS TEST VERIFYS WORD LENGTH SELECT OF
;;THE TRANSMITTER SECTION,IT USES THE DNA FLAG

::Ac\sgRg&t;umou TO DETERMINE THAT IT WAS SELECTED

1326
1327

;sNOTE: DNA COMES UP ON THE FIRST RISING BIT
;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS

1328

;;LOADED INTO TXDBUF

1330

JIPARITY:idD PARITY

1329
1331

2 :MODE
: SYNINT

2 :LENGTH:FIVE

CZDUD~-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JUL-78 15:54

15:46

1§ 003446 012767 000001 175452 TST1:
|

133,

003454

003470 012777 030000

1335

}%g
|

003476

012767

;SAVE THIS

BIS

#MRESET ,@TXCSR

;MASTER RESET

BIS

MMRESET,@TXCSR

:MASTER RESET

015222

MOV

000400

015234

052777

000400

015220

SEQ 0028

#1,TSTNO

MOV

052777

22
MOV

175434

133

#TST2 NEXT

GO TO THIS TEST WHEN THRU

#SYNINT.@PARCSR :SET THE MODE

;SET MAINTENANCE MODE & SEND

1340
:NOTE :BIT WINDOWECLK ARE CLEARED (MTDATA=0)
&5 003504 012777 004020 015212
MOV
#MINT ! SEND, @TXCSR
1343
* :SET MODE,.# OF BITS,PARITY SENSE.C LOAD SYNC REG
134
135

1346

003512 012777 030026 015200
003520 016703 015200
003524

112777

000021

015176

052777 020000

015150

137 003532 012767
1348 003540 012767

1349

1350 003546
1351
1352

003554
003562

042777
005000

1354

003570

103002

1353 003564
1355

1356
1357
1358

1359
1360
1361
1362

1363

1364

1365
1366

003572

003576
003576
003604

003612
003616
003622
003624
003626

003630
003630

1367 003634

1368

052700

002000

052777
042777

020000
020000

017701
042701
020001
001401

005367

001352

1372

003654

042701

012700
017701

1373 003660 020001
137% 003662 001401

1375
1376

003664

1378
1379

003666
003666

005777

1381

003674

104000

1380

1382
1383

1384
1385

1386
1387

003672

003676
003676

015106
075777

175404
175372

015142

100000
015050

104400

MOV
MOV

#21.TEMP1
#S,SHIFT

015120
015112

BIS

1%:

28:

BIC
CLR

ROR

*SHIFTED CHAR
# OF SHIFTS

#CLK,@TXCSR
#CLK.ATXCSR
RO

TEMP1

:;FORCE CARRY

;
\

BIS
BIC

#CLK,@TXCSR
#CLK.@TXCSR

;POKE CLK UP
*POKE CLK DOWN

HLT

;BIT WINDOW DID NOT MATCH ACTUAL DATA

SHIFT

:# OF SHIFTS

DEC

BIS

aTXCSR,R1
*ACTUAL
#075777.R1
*SAVE BITW & DNA
RO,R1
;COMPARE EXP VS ACT
3$

:BIT,....ALSO CHECK DNA
:DO IT AGAIN ?

#CLK,@TXCSR

:POKE CLK

877777 R1

*SAVE DNA ONLY

MOV
MOV

#100000,R0O
aTXCSR.R1 -

cMP
BEQ

RO,R1 ~ ;COMPARE EXPECTED VS ACTUAL
43

BIC

HLT

*EXPECTED
*ACTUAL

;DNA SHOULD BE SET
“IF DNA DID NOT SET ,CHECK WORD LENGTH

*SELECT LOGIC OF THE TRANSMITTER
ST

B8PL

HLT

5%:

*POKE CLK DOWN

;EQUIV OF BIT WINDOW

;NOW POKE CLK TO SEE DNA

4$:

;POKE CLK UP

#B1TW,RO

BNE

077777

015032

*LOAD CHAR

BIS
MOV
BIC
cTMP
BEQ

3$:

015060

#21,aTXDBUF

;POKE CLK TO GET INTO SYNCRONIZATION

104003

100001

#SYNINT ! F IVE 'NOPAR ! 26, aPARCSR
TXCSR,R3
;SET UP FOR ERROR MSG

BCC

175304
020000

MOV
MOV

MOVB

104003

052777

1377

020000

175354

003636

003644
003650

000021
000005

006067

1369

1370
1371

003700

PAGE 31

@TXCSR

;DNA ?
:DNA SHOULD NOT BE SET

:1T SHOULD HAVE BEEN CLEARED FROM
*PREVIOUS READ

SCOPE

::THIS TEZT VERIFYS WORD LENGTH SELECT OF
::THE TRANSMITTER SECTION.IT USES THE DNA FLAG
)

15:46

PAGE 32

§§§§§§§§§§§§¥§§§§§§

CZOUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD .P11
18-JuUL~78
15:54
S

..?&O;Rgg&lwou TO DETERMINE THAT IT WAS SELECTED

JsPARITY:NO PARITY

012767

000002

003714
003722
003730

052777
012777
052777

000400
030000
000400

s sLENGTH:SIX

003706

012767

004132

175220

175202

003736 012777 004020 014760

408 003744
409 003752

012777 032026
016703 014746

014746

003764
003772

012767
012767

112777

000021

014744

175152
175140

414
415
416

004000
004006
004014

052777
042777
005000

020000
020000

014716
014719

418
1419
1420
1421
1422
1423

004022
004024
004030
004030
004036
004044

103002
052700

002000

052777
042777
017701

020000
020000
014654

e T
e e

411
412

413

003756

417 004016

1424

1425

1426
1427
1428
1429
1430

1431

1432

004050

004054

006667

042701

020001

004056
004060

001401
104003

004062
004062

005367

004066

001352

000021
000006

175122

BIS
MOV
BIS

#MRESET,@TXCSR :MASTER RESET
#SYNINT ,@PARCSR :SET THE MODE
#MRESET.@TXCSR ;MASTER RESET

MOV

020000

1435
1436
1437
1438
1439
1440
1441
1442
1443

004102
006106
004112
004114
004116

017701
0462701
020001
001401
104003

014616
077777

004120
004120

005777

014600

100000

;SAVE THIS

;GO TO THIS TEST WHEN THRU

MMINT
! SEND,@TXCSR

MOV
MOV

#SYNINT
! SIXTNOPAR' 26, aPARCSR
TXCSR,R3
:SET UP FOR ERROR MSG

MOV
MOV

#21. TEMP1
#6,SHIFT

BIS
BIC
CLR

#CLK,@TXCSR
#CLK.aTXCSR
RO

BCC
BIS

2s
#ITW,RO

BIS
BIC
MOV

#CLK,@TXCSR
#CLK ,a@TXCSR
arxcsa R1

cTMP

RO,R1

MOVB

#21,aTXDBUF

*LOAD CHAR

*SHIFTED CHAR
“# OF SHIFTS

;POKE CLK TO GET INTO SYNCRONIZATION
1$:

28:

3$:

ROR

DEC

BNE

014626

#TST3 NEXT

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

BIC

175052

052777

012700

#2,TSTNO

BEQ
HLT

004070

004076

014666
014660

MOV

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

075777

1433

1434

TST2:

015002
014770
014766

- R

RS SR YT (S N

(P |

sNOTE : DM COMES UP ON THE FIRST RISING BIT
..EDGE THE NEXT CHARACTER IF NO NEW CHARACTER IS
2 sLOADED INTO TXDBUF
E
: SYNINT
2 JMOD

407

410

SEQ 0029

TEMP1

SHIFT

;NOW POKE CLK TO SEE DNA

;EQUIV OF BIT WINDOW
;POKE CLK UP
sPOKE CLK DOWN

;ACTUAL

“SAVE BITW & DNA

:COMPARE EXP VS ACT

:BIT WINDOW DID NOT MATCH ACTUAL DATA
‘BIT,....ALSO CHECK DNA
:# OF SHIFTS

‘DO IT AGAIN ?

BIS

#CLK ,@TXCSR

MOV
BIC
CMP
BEQ
HLT

aTXCSR, R1
sACTUAL
877777 R1
“SAVE DNA ONLY
RO R1
;s COMPARE EXPECTED VS ACTUAL

;:DNA SHOULD BE SET

TST

a@TXCSR

;DNA
?

MOV

4$:

;FORCE CARRY

#075777 .R1
3
3

:POKE CLK UP
*POKE CLK DOWN

#100000,R0

:PCKE CLK

*EXPECTED

“IF DNA DID NOT SET ,CHECK WORD LENGTH
JSELECT LOGIC OF THE TRANSMITTER

CZDUD-D MACY11 30A(1052)
21ZN0V-78
CZDUDD.P11
18-JuL~78 15:5
1644
1445

1646
1447

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

1466

1467
1468

004124
004126

004130
004130

15 :46

100001
104000

BPL
HLT

104400

:DNA SHOULD NOT BE SET

*1T SHOULD HAVE BEEN CLEARED FROM
*PREVIOUS READ

SCOPE

;:THIS TEST VERIFYS WORD LENGTH SELECT OF
ssTHE TRANSMITTER SECTION,IT USES THE DNA FLAG
::eggRgé}LleDOU TO DETERMINE THAT IT WAS SELECTED

: SYNINT
2 JMODE

;:PARITY:NO PARITY

2 sLENGTH:SEVEN
004132

004140
004146
004154

004162

012767

TST3:

012767
052777
012777

052777

012777

014526

1472

004176

012777

014514

012767
012767

014512
174720
174706

1475
1476

004204
004210

004216
004224

016703
112777

1478

004232

052777

014464
014456
174670

002000

004320

004322

004
004

005367

001352

052777

004314

042777
017701
042701
0
1
001401
104003

004270
004276
004302
004
004310
004312

1497

ssNOTE: DNA COMES UP ON THE FIRST RISING BIT
s;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS
;:LOADED INTO TXDBUF

004170

1486
1487
1488
1489
1490
1491
1492
1493
1494
}232

SEQ@ 0030

1469

1473
1474

PAGE 33

020000
020000
014422
075777

MoV

100000

014364

#MINT
! SEND ,@TXCSR

1$:

BIS
BIC
CLR

#CLK,@TXCSR
#CLK.@TXCSR
RO

BCC
BIS

2$
#81TW.RO

BIS
BIC
MOV

#CLK,@TXCSR
#CLK,aTXCSR
ATXCSR,R1

ROR

TEMP1

:POKE CLK UP
*POKE CLK DOWN

:FORCE CARRY
:EQUIV OF BIT WINDOW
;:POKE CLK UP
:POKE CLK DOWN
sACTUAL

BIC

#075777 R1
§g.a1

:COMPARE EXP VS ACT

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC

SHIFT

:# OF SHIFTS

ggg

BNE

014374

;SAVE THIS
;GO TO THIS TEST WHEN THRU
;MASTER RESET
;SET THE MODE
;MASTER RESET

:SET MODE.,# OF BITS,PARITY SENSE,.® LOAD SYNC REG
MOV
#SYNINT ! SEVEN!NOPAR!
26 ,aPARCSR
MOV
TXCSR,R3
:SET UP FOR ERROR MSG
MOVB
#21,aTXDBUF
:LOAD CHAR
MOV
#21,TEMP1
*SHIFTED CHAR
MOV
#7,SHIFT
:# OF SHIFTS
;POKE CLK TO GET INTO SYNCRONIZATION

014434
014426

174620

#3,TSTNO
#TST4 NEXT
#MRESET ,@TXCSR
#SYNINT ,aPARCSR
#MRESET ,@TXCSR

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

020000

MOV
MOV
BIS
MOV
BIS

;NOW POKE CLK TO SEE DNA

:BIT,....ALSO CHECK DNA

;DO IT AGAIN ?

BIS

#CLK,@TXCSR

MOV

@TXCSR,R1

MOV

:SAVE BITW & DNA

#550000, RO

:POKE CLK

*EXPECTED

*ACTUAL

1501

5
5

CZDUD-D MACY11 30A(1052)
21va-78
CZDUDD.P11
78 15:5
18-JuL~78

004344

04270:||

02000

150;
1503

004346
004350

1575
1506
1507

004352
004352

005777

004360

104000

004362
004362

104400

1504

1508

1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519

004356

15:46

PAGE 34

077777

100001

4$:

014346

5%:

012767
012767

000004
004616

1528

004406

012777

030000

004400

004414

052777

000400

174534
174516

012777

1536
1537

004430
004436

1539
1540

1542

1543
1544

1545

014316

014274

012777
016703

036026
014262

014262

004450
004456

012767
012767

000021

000021
000010

014260

004

052777

020000

014232

004442

004472
004500

112777

0462777
005000

020000

006067

174436

1547

004510

052700

002000

1549

004514

052777

020000

0177201

014170

1548

1550

004506

004514

004522

1551

004530

1553
1554

004540
004542

1552

1555

TST

ATXCSR

;DNA ?
;:DNA SHOULD NOT BE SET
;1T SHOULD HAVE BEEN CLEARED FROM
;PREVIOUS READ

SCOPE
;:THIS TEST VERIFYS WORD LENGTH SELECT OF
2:THE TRANSMITTER SECTION,IT USES THE DNA FLAG
22AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED
s ;CORRECTLY
;sNOTE: DNA COMES UP ON THE FIRST RISING BIT
;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS

MOV
MOV

#4,TSTNO
#TSTS NEXT

MOV

#SYNINT ,@PARCSR ;SET THE MODE

BIS

014302

004020

004502

1546

;SELECT LOGIC OF THE TRANSMITTER

BIS

#MRESET,@TXCSR

:SAVE THIS
:GO TO THIS TEST WHEN THRU
;MASTER RESET

;MASTER RESET

;SET MAINTENANCE MODE & SEND

004422

1541

TST4:

014304

1531

1538

;:DNA SHOULD BE SET

:1F DNA DID NOT SET ,CHECK WORD LENGTH

2 :LENGTH:EIGHT
004364
004372

1535

:SAVE DNA ONLY

;COMPARE EXPECTED VS ACTUAL

;:LOADED INTO TXDBUF

1525
1526

}ggz

43
3

RO,R1

: :MODE
: SYNINT
::PARITY:NO PARITY

}ggz

1532

BEQ
HLT

HLT

1520

};238

#77777 R

BPL

1521
1522

1527

BIC

CMP

001401
104003

SEQ 0031

004534
004544

103002

042777

042701

020001
001401

104003

020000

075777

174466
174454

014224

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

MOV

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

MOV
MOV

MOVB

014174

#SYNINT 'EIGHT 'NOPAR' 26, @PARCSR
TXCSR,R3
:SET UP FOR ERROR MSG

#21,aTXDBUF

:LOAD CHAR

MOV
MOV

#21,TEMP1
#8. ,SHIFT

:SHIFTED CHAR
:# OF SHIFTS

BIS

#CLK,QTXCSR

:POKE CLK UP

;POKE CLK TO GET INTO SYNCRONIZATION
1$:

BIC
CLR

ROR

BCC

014202

#MINT ! SEND,@TXCSR

2%:

#CLK,aTXCSR
RO

TEMP1
$

:POKE CLK DOWN

:FORCE CARRY

BIS

#8]TW,RO

;EQUIV OF BIT WINDOW

BIS

#CLK,@TXCSR

:POKE CLK UP

MOV

aTXCSR,R1

sACTUAL

BIC

#CLK,aTXCSR

BIC

#075777 .R1

HLT

(MP
BEQ

RO,R1
3:

:POKE CLK DOWN

:SAVE BITW & DNA

;COMPARE EXP VS ACT

;BIT WINDOW DID NOT MATCH ACTUAL DATA

PAGE 35

SEQ 0032

174366

0045564
004562
566

052777
012700
017701
042701
02000 1

020000
100000
014132
077777

D
i
) D i
D
D
) D
) D rd
D
e
D d

001407
104003

604
004610
004612

005777
100001
104000

004614
004614

4%:

014174

104400

HLT

;DNA SHOULD BE SET

ATXCSR

:DNA ?

DNA ONLY

:1F DNA DID NOT SET ,CHECK WORD LENGTH
sSELECT LOGIC OF THE TRANSMITTER

:DNA SHOULD NOT BE SET

1T SHOULD HAVE BEEN CLEARED FROM

*PREVIOUS READ

::THIS TEST VERIFYS WORD LENGTH SELECT OF

000005
005050
000400
=1

00464
004646

012767

052777

g
R

004616

3b3

174302
174264
014064
014052

1STS:

004020

014042

020000

004734

006067

174204

004742

052700

002000

52777

014000
013772

#5,TSTNO

;SAVE THIS

BIS

#MRESET ,@TXCSR

;MASTER RESET

BIS

#MRESET ,@TXCSR

;MASTER RESET

#TST6 NEXT

;GO TO THIS TEST WHEN THRU

#SYNEXT ,aPARCSR ;SET THE MODE

sSET MAINTENANCE MODE & SEND
1
;NOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)
MOV
#MINT
! SEND ,@TXCSR
sSET MODE.# OF BITS,PARITY SENSE.&

014026
174234
174222

MOV

014050

014030

—

wr =

1
1
16
16

:COMPARE EXPECTED VS ACTUAL

IVE
P SLENGTH:F

zg.m

:SAVE

2 2MODE
: SYNEXT
J:PARITY:NO PARITY

1
1

gf‘l;

#77777 .R1

*EXPECTED

*:THE TRANSMITTER SECTION.I” USES THE DNA FLAG
*:AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED
;:CORRECTLY
**NOTE: DNA COMES UP ON THE FIRST RISING BIT
**EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS
**LOADED INTO TXDBUF

@TXCSR,R1

:POKE CLK

SCOPE

1
1
1

2RSRERERES BILERR

]

— )

1
1

:# OF SHIFTS

#100000, RO

“

—

viviuoauviviuaunanainaw

—_—

1
1
1

MOV

HLT

#CLK,aTXCSR

8PL

BIS .

BIC

SHIFT

MOV

1
1
1

DEC

BNE
1s
‘DO IT AGAIN ?
:NOW POKE CLK TO SEE DNA

)

) D

600
004602

014142

;BIT,....ALSO CHECK DNA

) D ol

005367
001352

)

004546

3%:

Wi mg
\n\ng
wviviiuinnaiiawn
VT
43 BREEoo
VR
WA
=
JBINANINIS SECREFELEE oaw&

15:46

18-JuL~-78

—5

CZDUD=D MACY11 30A(1052)152;va-78

CZDUDD.P11

MOV
MOV
MOVB
MOV
MOV

LOAD SYNC REG
#SYNEXT
F IVE !NOPAR ! 26 ,aPARCSR
TXCSR,R3
sSET UP FOR ERROR MSG
#21 ,TXDBUF
:LOAD CHAR
#21,TEMPT
~ +SHIFTED CHAR
#5,SHIFT
;# OF SHIFTS

BIS
BIC
CLR
gtc:xca

#CLK,@TXCSR
:POKE CLK UP
#CLK.@TXCSR
*POKE CLK DOWN
RO
TEMP1
;FORCE CARRY

BIS

#8]1Tw.RO

;POKE CLK TO GET INTO SYNCRONIZATION
1%:

;EQUIV OF BIT WINDOW

Iczow-o
MACY11 18-JUL-78
30A(1052) 15:54
21-NOV-78 ‘15:46
PAGE 36
CZDUDD.P11
4
1612
1613
1614

004746
004746
004754

052777
042777

1616

004766

042701

004774

001401

1615

1617

1618

004762

004772

1619

004776

1621

005000

1620

162%
1625

005006

052777

020000

1627

005020

017701

013700

1629

005030

020001

005026

012700

042701

1630
1631

005032
005034

1633
1634
1635

005036
005036

005777

1637

005044

104000

1639
1640
1641

005046
005046

1632

1636

1638

1642
1643
1644
1645
1646
1647

005042

BIC

#075777 .R1

BEQ

cMP

100000

3$:

DEC

BNE

013710

RO,R1

;COMPARE EXP VS ACT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

SHIFT

;# OF SHIFTS

;BIT,....ALSO CHECK DNA
:DO IT AGAIN ?

aTXCSR,R1

:ACTUAL

CMP

RO,R1

#100000, RO
#77777 .R1

43
3

;1F DNA DID NOT SET ,CHECK WORD LENGTH
:SELECT LOGIC OF THE TRANSMITTER

BPL

@TXCSR

;DNA ?
:DNA SHOULD NOT BE SET

;1T SHOULD HAVE BEEN CLEARED FROM

;PREVIOUS READ
SCOPE

}gg}

s :LENGTH:SIX

::PARITY:NO PARITY

1653
1654

005050
005056

012767
012767

000006
005302

1656

005072

012777

020000

005064

005100

052777

000400

174050
174032

013632

013620
013616

1659

}22;

1663

1664
1665
1666
1667

:SAVE DNA ONLY

;:THIS TEST VERIFYS WORD LENGTH SELECT OF
;2THE TRANSMITTER SECTION,IT USES THE DNA FLAG
;2AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED
2 :CORRECTLY
.
;sNOTE: DNA COMES UP ON THE FIRST RISING BIT
;;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS

1650

1660

*EXPECTED

:DNA SHOULD BE SET

::LOADED INTO TXDBUF
2 2MODE
: SYNEXT

}ggg

;COMPARE EXPECTED VS ACTUAL

1648
1649

1655

’

:SAVE BITW & DNA

MOV

HLT

104400

sACTUAL

:POKE CLK

BEQ
HLT

5%
:

;POKE CLK UP
;POKE CLK DOWN

#CLK,@TXCSR

BIC

4%:

;

BIS

MOV

077777

013662

dTXCSR,R1

;NOW POKE CLK TO SEE DNA

001401
104003

100001

.
#CLK,@TXCSR
#CLK,aTXCSR

MOV

SEQ 0033

BIS
BIC

HLT

174134

1628

2%:

104003

001352

1626 005014

013750
013742

075777

005004

1624

020001

013736

005000 005367

1623

017701

020000
020000

TST6:

MOV
MOV
BIS

MOV
BIS

#6,TSTNO
#TST7 NEXT

#MRESET ,@TXCSR

:SAVE THIS
;GO TO THIS TEST WHEN THRU
;MASTER RESET

#SYNEXT ,@PARCSR :SET THE MODE

AMRESET ,@TXCSR

;MASTER RESET

;SET MAINTENANCE MODE & SEND

005106

012777

004020

013610

005114
005122
005126
005134

012777
016703
112777
012767

022026
013576
000021
000021

013576
013574
174002

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

MOV

#MINT ! SEND,@TXCSR

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

#SYNEXT ! SIX'NOPAR!26,aPARCSR
TXCSR,R3
;SET UP FOR ERROR MSG
#27, 3TXDBUF
;:LOAD CHAR
#21,TEMP1
:SHIFTED CHAR

{

CZDUD-D HACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JUL-78 15:54

1668 005142

012767

1670

052777

1669

1671

16;%

005150

005156
005164

000006

173770

020000

013546

042777

020000

005000

1673

005166

006067

173752

1675

005174

1674

005172

103002

1676
1677
1678

005200
005200
005206

052700

002000

052777
042777

020000
020000

1680

005220

042701

1682
1683

005226
005230

001401
104003

1685
1686

005232
005232

1679
1681

1684

1687

1688

1689

1690
1691

1692

1693

005214

0052264

017701

020001

005367

173702

005240

052777

020000

012700
017701

005262

020001

005256

042701

005264
005266

1697
1698
1699

005270
005270

005777

005276

104000

1700

1701

1702
1703

1704
1705

1706
1707
1708
1709

005274

005300
005300

MOV
BIS

1$:

28:

CLR

ROR

100000
013446

3$:

#CLK,TXCSR

TEMP1

#CLK,TXCSR
#CLK.@TXCSR

:POKE CLK UP
*POKE CLK DOWN

MOV

STXCSR,R1

TMMP

RO,R1

DEC

#075777 .R1
3s
3

SHIFT

*ACTUAL

“SAVE BITW & DNA

;COMPARE EXP VS ACT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

:BIT,....ALSO CHECK DNA

;# OF SHIFTS

DO IT AGAIN ?

BIS

#CLK arxcsa

BIC

877777 R1

BEQ
HLT

43
3

#100000
aTXCSR, m

:POKE CLK

“EXPECTED
*ACTUAL

*SAVE DNA ONLY

RO,R1 ~ ;COMPARE EXPECTED VS ACTUAL
:DNA SHOULD BE SET

:IF DNA DID NOT SET ,CHECK WORD 'ENGTH
:SELECT LOGIC OF THE TRANSMITTER

BPL

HLT

;FORCE CARRY

BIS
BIC

MOV
MOV

4$:

:POKE CLK UP

“POKE CLK DOWN

;EQUIV OF BIT WINDOW

CMP

104400

# OF SHIFTS

#CLK.ATXCSR

;NOW POKE CLK TO SEE DNA

077777

013430

#6,SHIFT

#81TW,RO

BNE

013456

SEQ 0034

BIS

BIC

001401
104003

100001

BIC

BCC

013516
013510

;POKE CLK TO GET INTO SYNCRONIZATION

BEQ
HLT

001352

1694
1695

1696

013504

013540

PAGE 37

075777

005236

005246
005252

15:46

ATXCSR

:DNA 27,
:DNA SHOULD NOT BE SET

:1T SHOULD HAVE BEEN CLEARED FROM
*PREVIOUS READ

SCOPE

.,mxs TEST VERIFYS WORD LENGTH SELECT OF
THE TRANSMITTER SECTION,IT USES THE DNA FLAG
$:AND BIT WINDOW TO DETEPMINE THAT IT WAS e ECTED
*:CORRECTLY

1710

sNOTE: DNA COMES UP ON THE FIRST RISING BIT

1712
1713
1714

::LOADED INTO TXDBUF
* *MODE
: SYNEXT
S PARITY:NO PARITY

171

:;EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS

};}2

::LENGTH:SEVEN

1717

005302

012767

000007

1719

005316

052777

000400

1718

1720
;;‘2?;

1723

005310

0053264

005332

012767

012777
052777

005534

020000
000400

173616

173600

013400

013366
013364

TSTZ:

MOV

#7.TSTNO

:SAVE THIS

BIS

#MRESET,ATXCSR

:MASTER RESET

BIS

#MRESET.QTXCSR

-MASTER RESET

MOV
MOV

#TSTB NEXT

;GO TO THIS TEST WHEN THRU

#SYNEXT .@PARCSR -SET THE MODE

;SET MAINTENANCE MODE & SEND

CZDUD-D MACY11 30A(1052)
21-NOV-78
C ZDUDD .P11
18=JUL=
15:5¢4

1726

15:46

}725

005340

012777 004020

013356

1728
1

005346
005354

012777
016703

024026
013344

013344

005
005374

012767
012767

112777 000021

000021
000007

013342

173550
173536

1734
1735

005402
005410

052777
042777

020000
020000

013314
013306

1737

005420

006067

173520

1739 005426 052700

002000

1%2
1

1731
1

173
1

1738

005

005416

005424

005000

103002

1740
1741
mg
174

005432
005432
005440
56446

052777
042777
017701

1746
1747
1748
1749
1750

005460
005462

001401
104003

1744
1745

1751

1752

1753

1754
1755

005452
005456

042701
020001

173450

005472

052777

020000

042701
020001
001401
104003

077777

005500
005504

001352

012700
017701

005510
005514
005516
005520

1761
1762
1763

005522
005522

005777

1765

005530

104000

1767
1768
1769

005532
005532

1764

1766

1770
1771
1772
1773
1774
1775

005526

100001

100000
013214

1779

MOV
MOV

#SYNE
! SEVEN!NOPAR
XT
' 26,aPARCSR
TXCSR,R3
;SET UP FOR ERROR MSG

MOV
MOV

#21.TEMPT
#7,SHIFT

MOVB

1$:

28:

3$:

BIS
BIC
CLR

ROR

BCC

#CLK,3TXCSR
#CLK.@TXCSR
RO

TEMP1

:FORCE CARRY

BIS
BIC
MOV

#CLK,@TXCSR
#CLK.BTXCSR
@TXCSR,R1

;POKE CLK UP
*POKE CLK DOWN
sACTUAL

DEC

#075777 .R1
:SAVE BITW & DNA
RO,R1
~;COMPARE EXP VS ACT
3s
3

.
SHIFT

:NOw POKE CLK TO SEE DNA
BIS

MOV
MOV

48:

;BIT WINDOW DID NOT MATCH ACTUAL DATA
:BIT,....ALSO CHECK DNA

;# OF SHIFTS

‘DO IT AGAIN ?

#CLK ,@TXCSR

#100000, RO
aTXCSR,R1

:POKE CLK

*EXPECTED
*ACTUAL

877777 R1
*SAVE DNA ONLY
RO,R1 ° ;COMPARE EXPECTED VS ACTUAL
4
3
:DNA SHOULD BE SET

*IF DNA DID NOT SET ,CHECK WORD LENGTH

*SELECT LOGIC OF THE TRANSMITTER
ST

BPL

@TXCSR

;DNA ?

:DNA SHOULD NOT BE SET

SIT SHOULD HAVE BEEN CLEARED FROM

*PREVIOUS READ

5%:
SCOPE

:;THIS TEST VERIFYS WORD LENGTH SELECT OF
s:THE TRANSMITTER SECTION,IT USES THE DNA FLAG
::AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED
*:CORRECTLY
::NOTE: DNA COMES UP ON THE FIRST RISING BIT
::EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS

;;LOADED INTO TXDBUF
2 JMODE : SYNEXT
.

;POKE CLK UP
*POKE CLK DOWN

;EQUIV OF BIT WINDOW

BIC
P
BEQ
HLT

*SHIFTED CHAR
“# OF SHIFTS

#B1TW,RO

HLT

104400

*LOAD CHAR

BIS

BNE

013224

#2137 XDBUF

;POKE CLK TO GET INTO SYNCRONIZATION

BIC
CMP

013176

1776
1777

1778

#MINT ! SEND ,@TXCSR

BEQ
HLT

005367

005470

MOV

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

)
013264
013256

SEQ@ 0035

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

075777

005464
005464

1756
1757
1758
1759

1760

3
020000
020000
013252

PAGE 38

SIPARITY:
O PARITY

“LENGTH:EIGHT

CZDUD-D MCYH

CZDUDD.P11
1780

21-NOV-78

1781

005534

012767

000010

1783

005550

052777

000400

1784

}7732

1787
1788
}gg

A(105)

~JUL=78 15:54

1791

1792
1793
1794

005542

005556
5

005572

012767

012777
052777

020000
000400

012767
012767

112777

88%21

1798

005634

052777

020000

005650

005000

1800

005642

042777

21
000010
020000

1801

005652

006067

173266

1803

005660 052700

002000

1802

005656

103002

1804
1805
1806

005664
005664
005672

052777
042777

020000
020000

1808

005704

042701

075777

1807 005700
1809

1810

005710

005712

017701
020001

013020

1813
1814

005716
005716

.
005367

173216

005724

052777

020000

1816
1817

005722

012700
017701

1821

020001

1820

005742

1822
1823

005750
005752

1826
1827

005754
005754

005777

1829

005762

104000

1824
1825

1828

1830
1831

1832
1833

1834

1835

005760

005764
005764

042701

104400

:MASTER RESET

MMRESET.QTXCSR

-MASTER RESET

MOV

013032
013024

MOV
MOV

BIS

#CLK,@TXCSR

CLR

MOVB

;POKE CLK TO GETmfosmcnonm?
1$:

28:

3$:

BIC

ROR

BIS
BIS
BIC

#CLK.@TXCSR

TEMP1

#81TW,RO

;
#CLK.@TXCSR
#CLK. 3TXCSR

;POKE CLK UP
*POKE CLK DOWN

CMP

RO.R1

CWARE E)(P VS ACT

;BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC

#075777 .R1

ACTUAL

E BITW & DNA

:BIT,...CHECK
.ALSO
DNA

SHIFT-

:# OF SHIFTS

:DO IT AGAIN ?
:POKE CLK

MOV
MOV

#100000,R0
aTXCSR, m

CMP

RO R1 ° ;COMPARE EXPECTED VS ACTUAL

BEQ
HLT

TST

8PL
5%:

;EQUIV OF BIT WINDOW

STXCSR,R1

BIC

*POKE CLK DOWN

;FORCE CARRY

;NOW POKE CLK TO SEE DNA
BIS
#CLK,@TXCSR

48:

poxs CLK UP

MOV

BNE

077777

012744

#MINT
! SEND,3TXCSR

MOV
MOV

HLT

100000
012762

#SYNEXT .@PARCSR :SET THE MODE

psmexr'mmwom'zs aPARCSR
TXCSR,R3
:SET UP FOR ERROR MSG
#21,afXDBUF
*LOAD CHAR
cg1
rem
*SHIFTED CHAR
¥ OF SHIFTS

BIC

012772

GO TO THIS TEST WHEN THRU

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

001401
104003

100001

#MRESET,@TXCSR

BCC

001352

BIS

#TSTO, NEXT

;SET MAINTENANCE MODE & SEND
:NOTE:BIT uxmouccl.x ARE CLEARED (MTDATA=0)

104003

1818 005732
1819 005736
005746

013054

;SAVE THIS

BEQ

005714

1815

013062

#8,TSTNO

MOV
BIS

013110

173316
173304

SEQ 0036

MOV

013132

001401

1811

1812

013134

013112

PAGE 39

TST8:

013146

005600 012777 026026
005606 016703 013112

005620
005626

1799

173346

013124

1795
1796

1797

173364

004020

005612

012777

005766

15:46

HLT

#77777°R1

*EXPECTED
*ACTUAL

*SAVE DNA ONLY

;DNA SHOULD BE SET

ATXCSR

:DNA ?

*IF DNA DID NOT SET ,CHECK WORD LENGTH
*SELECTLOGIC OF THE TRANSMITTER

;DNA SHOULD NOT BE SET

;1T SHOULD HAVE BEEN CLEARED FROM

*PREVIOUS READ

SCOPE

J:THIS TEZT VERIFYS CHARACTER PLUS PARITY GENERATION

“:0F THE TRANSMITTER SECT;ON.

)

CZDUD-D MACY11 30A(105 )* 21-NOV=-78
CZDUDD P11
18-JUL- 15:54

1837

15:46

PAGE 40

s:1T ALSO cuecxs DNA TIMING

1838

*MODE:SYNINT

*LENGTH:FIVE PLUS PARITY

1839

*:PARITY:EVEPAR

}&9

: ; CHARACTER: 25

1843

005766

012767

000011

173132

1844

1845

006002

006010

052777

000400

012714

052777

000400

012700

1848
1849

;ggg

005774 012767 006210 173114
012777

006016

012672

031426
012660

012660

1856 006052 012767
1857 006060 012767

000065
000006

173064
173052

1859

020000

012630

1853
1854

012777

006032 012777
006040 016703

1860

1861

006066

006074

006102

052777

042777

005000

020000

1&%

006104

006067

1864

006112

052700

002000

1863

006110

103002

173034

1865
1866

006116
006116

052777

020000

1868

006132

017701

012566

012622

006136

1870 006142

1871
1872

006144
006146

1874

006150

1873

042701

020001

MOV

MOVB

MOV
MOV

172764

1878

006156

052777

020000

1877

BIS

1879

006164 012700

100000

1880 006170 017701 012530
1881

006174

ws% 006

1883
006202
1884- 006204

1885
1886

1887
1888

1889
1890
1891

006206
006206

042701

020001

001401
104003

104400

077777
2

LOAD SYNC REG

csmmr'nve'svefim'ze @PARCSR
g
;SET UP FOR ERROR MSG
.afxoeur
:LOAD DATA CHAR
:TO BE SHIFTED CHAR
oe sm
“# OF SHIFTS

1%:

#CLK,@TXCSR

BIC

CLR

TEMP1

:BR IF CARRY CLR

BIS

#81TW,RO

BIS

#CLKs,

MOV

@TXCSR R1

cMP

RO,R1

BIC

3$:

*POKE CLK DOWN
:FORCE CARRY

ROR

BCC

28:

@TXCSR

#CLK . @TXCSR

#075777 ,R1
3$
3

DEC
BNE

SHIFT
1s

BIS

}

4%:

*EXPECTED

877777 R1

“SAVE DNA ONLY

RO R1
3

;POKE CLK

#100000, RO

cMP

*ACTUAL

:SAVE BITW & DNA

c OF SHIFTS
:00 IT AGAIN ?

TXCSR, é1

BEQ
HLT

*POKE CLK DOWN

:BIT,...ALSO CHECK DNA

MOV
BIC

;POKE CLK UP

;BIT WINDOW DID NOT MATCH ACTUAL DATA

#CLK ,@TXCSR

MOV

;EQUIV OF BITW

~;COMPARE EXP VS ACT

;NOW POKE CLK TO SEE DNA' ’
:

:POKE CLK UP

#CLK.STXCSR

BIC

012540

:MASTER RESET

:POKE CLK TO GET INTO smcaomzmou

BEQ
HLT

005367
001352

MMRESET.@TXCSR

#MINT
! SEND,3TXCSR

MOV
MOV

001401
104003

006150
006154

:MASTER RESET

;SET MODE.# OF BITS,PARITY SENSE,&

075777

1875
1876

:GO TO THIS TEST WHEN THRU

#MRESET,3TXCSR

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

1867 0061§t. 042777 020000 012572

1869

:SAVE THIS

#SYNINT ,8PARCSR :SET THE MODE

BIS

.
012600

TNO

n§no NEXT

MOV

1855 006044 112777 000025 01%656

1858

hov
sxs

012702

004020

135§

006024

‘

030000

TST9:

*ACTUAL

*COMPARE EXP VS ACT

~
:DNA SHOULD BE SET

:IF DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE

:iTHIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
F THE TRANSMITTER SECTION.
“:1T ALSO CHECKS DNA TIMING

184%
}&g

SEQ 0037

e
e
s S

CZDUD-D MACY11 30A(1052)

CZDUDD.P11

18-JUL-78

21-NOV-78

15:54

15:46

1a9§

+ :CHARACTER: 25
10 012767 000013 175710 TST10: MOV
#10,TSTNO
16 012767 006432
172672
MOV
#1517 NEXT

1899

006224

1901

006240

1904

}% 006246

052777

012777
052777

000400

030000
000400

012472

012456

012450

012777
016703

031026
012436

012436

76 012767 000025

172642

1907

1910

006266

112777

000025

012434

191§

006302

012767

000006

172630

1914

006310

052777

020000

012406

1916

006326

005000

1918

006332

1920
1921

006340
006340 .052777

020000

1923

006354

012344

1915

006316

042777

020000

1917 006

006067

172612

1919 006334

052700

002000

103002

012400

017701

006360

042701

006370

104003

00637
006372

005367

172542

1933

006400

052777

020000

1935

006412

017701

017;309

1937 oou.gz

1925 006364 020001
1926 006366 001401

1927
1928
1929
1930

1931

1932
1934

1936

006376

006416

1938
1939

006424
006426

194;

006430

1940
1941

1943

1944
1945
1946
1947

006430

001352

042701

001401
104003

104400

MOV

#SYNINT .@PARCSR :SET THE MODE

MMRESET.3TXCSR

MOV

MMINT ! SEND,@TXCSR

*MASTER RESET

:SET MODE.# OF BITS,PARITY SENSE. LOAD SYNC REG
MOV
MOV

#SYNI
! F IVE 'ODDPAR!
NT
26,aPARCSR
TXCSR,R3
:SET UP FOR ERROR MSG

MOV

#25 . TEMP1

MOVB

#25,aTXDBUF

MOV

#6,SHIFT

BIS

#CLK,3TXCSR

*LOAD DATA CHAR

*TO BE SHIFTED CHAR
“# OF SHIFTS

;POKE CLK TO GET INTO SYNCRONIZATION
1%:

BIC

#CLK.BTXCSR

CLR

ROR

TEMP1

28:

#CLK.@TXCSR

CMP
BEQ
DEC

BNE

;EQUIV OF BITW

#CLK,@TXCSR

STXCSR,R1

#075777.R1

07777

A ¥

*ACTUAL

*SAVE BITW & DNA

SHIFT

;# OF SHIFTS

DO IT AGAIN ?

arxgsn.m

477777 R1

BEQ
HLT

X3
3

RO,R1

SCOPE

)

;BIT WINDOW DID NOT MATCH ACTUAL DATA
:BIT,...ALSO CHECK DNA

BIC

CMP

:POKE CLK UP

*POKE CLK DOWN

RO,R1 " ;COMPARE EXP VS ACT
3$

;NOW POKE CLK TO SEE DNA
BIS
#CLK, @TXCSR
MOV
#100000, RO
MOV

*POKE CLK DOWN

:BR IF CARRY CLR

BIS

BIC

:POKE CLK UP

:FORCE CARRY

#B1TW,RO

MOV

3$:

BIS

HLT

g
-

;MASTER RESET

BIS

BIC

012316

:SAVE THIS
GO TO THIS TEST WHEN THRU

;SET MAINTENANCE
MODE & SEND
{
.
:NOTE :BIT WINDOWRCLK ARE CLEARED (MTDATA=0)

075777

012700 100000

#MRESET,@TXCSR

BCC

1922 006346 042777 ogoooo 012356
012350
1924

BIS

012460

012777 004020

- 1908 006254
1909 006262

1911

JLENGTH:FIVE PLUS PARITY
2 :PARITY :0DDPAR

1900 006232

138§

SEQ 0038

; sMODE : SYNINT

189
1894

}ggg
1897
1898

PAGE %1

:POKE CLK

*EXPECTED

‘

*ACTUAL
“SAVE DNA ONLY
*CGMPARE EXP VS ACT

:DNA SHOULD BE SET

:1F DNA DID NOT SET
*CHECK WORD LENGTH SELECT LOGIC
.

::THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
“:0F THE TRANSMITTER SECTION.
2217 ALSO “HECKS DNA TIMING
2 2MODE : 1 SYMOD

===

15 146

PAGE 42

; ;PARITY:EVE
..cwcrsn zs

D D

1ST11:

:SAVE THIS

#MRESET.TXCSR

:MASTER RESET

D e

K Rao

006640
006644
006646
006650

001426
012214
000025
g
000352
000010

012214

020000

012156

MoV

006652

LK ARE CLEARED (MTDATA=0)

MMINT
! SEND ,8TXCSR

;SET MODE .# OF ans LPARITY SENSE,R Lw SYNC REG

MOV

012212
172420
1724

172370

moo'nve'evefi

aPARCSR

ssr us FOR ERROR MSG

020000
020000
01212
07577

5367

172320

052777
012700
017701
042701
020001
001401
104003

020000
000000

1352

MOV
MOV

18:

002000

AR NORNo3

557 B RRsius
3

006622
006630

012226

MOVB grem
afxoeur :LOAD
DATA CHAR
ro BE SHIFTED CHAR
# OF SHIFTS
;POKE
CLK
TO
GET
mfo
smcnomuhon
020000 012164

2 58
5

004020

SEND

:NOTE:BIT WI

012134
012126

BIS

*POKE CLK DOWN
:

BIS

#BI1TW,RO

:EQUIV OF BIW

BIS
BIC

#CLK,3TXCSR
#CLK 3TXCSR

;POKE CLK UP
*POKE CLK DOWN

ROR
BCC

TEMP1
2$

104400

:FORCE CARRY
:BR IF CARRY CLR

STXCSR R1

*ACTUAL

BIC

#075777 ,R1
gg.m

:COMPARE EXP VS ACT

HLT

;BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC

SHIFT

;¥ OF SHIFTS

ggg

012074

:POKE CLK LP

#CLK.ITXCSR
RO

MOV

7$:

#CLK,3TXCSR

BIC
CLR

“SAVE BITW & DNA

;BIT,...ALSO CHECK DNA

BNE
18
:DO IT AGAIN ?
sNOW P(KglgLK TO SEE DNA

077957

#CLK arxcsn

:POKE CLK

077777 R1

“SAVE DNA ONLY

MOV
MOV

#0.R0
;EXPECT56
TXCSR R1
ACTUAL -

ggg

no R1

BIC

HLT

R $883

#11,TSTNG

#1512 NEXT
;GO TO THIS TEST WHEN THRU
mssf.arxcsn :MASTER RESET
#1SYMOD ,@PARCSR :SET THE MODE

;SET MAINTENANCE MODE &

D
D e e
e
e e
) e
ed
—d e

|y
S QP
WP
SW
S

fdv

MOV
BIS
MOV
BIS

Y
S
W
W
W
JOE QR W
sY

SEQ@ 0039

..LENGTH nvs PLUS PARITY

DD D D D

333
: 33 ¥SSRRRRRIRS 58
R8I RERARRE2ETY

CZDUD-D MACY11 30A(1052) 21-NOV-78
CZDUDD.P11
18-JuL=7 15:54

4%:

*COMPARE EXP VS ACT

;DNA SHOULD BE SET

:1F DNA DID NOT SET

:CHECK WORD LENGTH SELECT LOGIC
SCOPE

..BHIS YEST VERIFYS CHARACTER PLUS PARITY GENERATION
THE TRANSMITTER SECTION.

..IT ALSO CHECKS DNA TIMING
2MODE: 1S'MOD

:iLENGTH:FIVE PLUS PARITY

CZDUD-D MACY11 30A(1052) 521
-NOV-78

18-JuL-78
1

15: 46

PAGE 43

SEQ 0040

: :PARITY :0DDPAR

:.CHMACTER 25

006654
006662

012767

eSS

PSSR

CZDUDD.P11

000014
007076
000400
000000
000400

172244
172226
012026
012014
012012

004020

012004

001026
011772
000025
000252
000010

011772

020000
020000

011742
011734

011770
172176
172164

172146

007036
007042

005367
001352

172076

2043
2044

007044

052777

020000
000000
011642
077777

:SAVE THIS

MMRESET,BTXCSR

:MASTER RESET

#MRESET,@TXCSR

;MASTER RESET

:GO TO THIS TEST WHEN THRU

MOV

#1SYMOD ,@PARCSR ;SET THE MODE

;SET MINTEN?NCE MODE & S END
BIT WINDOWECLK ARE CLEARED (MTDATA=0)
#MINT
! SEND ,@TXCSR

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

MOV

MOV
MOVB

MOV
MoV

#1SYMOD ! F IVE |OPDPAR! 26, @PARCSR
TXCSR,R3
#25,aTXDBUF

;SET UP FOR ERROR MSG
:LOAD DATA CHAR

#252, TEMP1
#8. SHIFT

*TO BE SHIFTED CHAR
“# OF SHIFTS

- POKE CUB(1£0 GET INfOSYNCR(NIZATI(N
1%:

011712
011704

BIC

CLR

ROR

BCC

#CLK,aTXCSR

;POKE CLK UP

#CLK.TXCSR
RO

TEMP1

*POKE CLK DOWN

;FORCE CARRY

*BR IF CARRY CLR

BIS

#BITW.RO

:EQUIV OF BITW

BIS
BIC

#CLK,@TXCSR
#CLK .@TXCSR

:POKE CLK UP
*POKE CLK DOWN

BIC

#075777 .R1

MOV
gfn;

STXCSR R1

*ACTUAL

*SAVE BITW & DNA

goLR1

";COMPARE EXP VS ACT

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA
:BIT,...ALSO CHECK DNA

DEC

SHIFT

:# OF SHIFTS

BNE

011652

#12,TSTNO

#1ST13, NEXT

8IS

2040
2041

MoV

MOV
BIS

002000
020000
020000
011700
075777

TST12:

:NOW POKE CLK TO SEE DNA
BIS

DO IT AGAIN ?

#CLK arxcsa

MOV

#0.R0

BIC

#77777.R1

HLT

MOV
55"3

arx
R’i
RO R1

:POKE CLK

CTER

2ACTUAL

*SAVE DNA ONLY

*COMPARE EXP VS ACT

:DNA SHOULD BE SET

*IF DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE
soTHIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

::0F THE TRANSMITTER SECTION.
s:1T ALSO CHECKS DNA TIMING
; sMODE: SYisINT

s sLENGTH:SIX PLUS PARITY

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JUL-78 15:54

15:46

2060
2061

PAGE 44

SEQ 0041

: :PARITY :EVEPAR
: ; CHARACTER: 25

206EE§ 007076 012767 000015 172022 TST13: MOV

#13,TSTNO

:SAVE THIS

2065

007112

052777

000400

011604

MMRESET,@TXCSR

:MASTER RESET

007126

052777

000400

011570

#MRESET.@TXCSR

-MASTER RESET

2064 007104

172004

MOV

2066 007120 012777 030000 011572

MOV

2069
2070
228;5

007134

012767 007320

012777

004020

011562

2073
2074 007142 012777 033426 011550
2075 007150 016703 011550
2076

007154

112777

000025

011546

2080

007176

052777

020000

011520

2082

007212

005000

2077 007162 012767 000125
2078 007170 012767 000007

2079
2081

007204

171754
171742

042777 020000 011512

2083 007214 006067 171724
2084

007220

2086
2087
2088

2085

007222

103002

007226
007226
007234

052700

002000

052777
042777

020000
020000

2090

007246

042701

075777

2093

007256

104003

2095
2096

007260
007260

2089 007242 017701

2091 007252 020001
2092 007254 001401

2094

2097 007264

005367

001352

011456

007266

052777

020000

2102

007306

042701

077777

2105

007314

104003

2100 007274 012700 100000
2101 007300 017701 011420
2103
007310 020001
21064 007312 001401

2106

2107
2108
2109
2110
2111
2112
2113
2114
2115

007316
007316

104400

BIS

011470
011462

MOV

#SYNINT.@PARCSR :SET THE MODE

#MINT
! SEND,@TXCSR

;SET MODE.,# OF BITS,PARITY SENSE.& LOAD SYNC REG
MOV
psmmr'sxx'evem'zo @PARCSR
MOV
TXCSR,R3
:SET UP FOR ERROR MSG
MOVB

#25,afXDBUF

MOV
MOV

#125, TEMPT
#7.SHIFT

BIS

#CLK,aTXCSR

CLR

*LOAD DATA CHAR

*TO BE SHIFTED CHAR
*# OF SHIFTS

;POKE CLK TO GET INTO SYNCRONIZATION
1%:

BIC

ROR

28:

TEMP1

*POKE CLK DOWN

:FORCE CARRY

*BR IF CARRY CLR

;EQUIV OF BITW

BIS
BIC

#CLK,@TXCSR
#CLK .@TXCSR

:POKE CLK UP
*POKE CLK DOWN

BIC

#075777 .R1

*SAVE BITW & DNA

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

SHIFT

:# OF SHIFTS

DEC

BNE

aTXCSR,R1

RO,R1
3

*ACTUAL

~;COMPARE EXP VS ACT

:BIT....ALSO CHECK DNA

:D0 IT AGAIN ?

;NOW POKE CLK TO SEE DNA
BIS
#CLK ,aTXCSR

:POKE CLK

MOV
MOV

#100000,R0
STXCSR,R1

*EXPECTED
*ACTUAL

CMP
BEQ

RO,R1
4$

*COMPARE EXP VS ACT

BIC

HLT

48:

:POKE CLK UP

#BITW.RO

MOV

3%:

#CLK.STXCSR

BIS

CMP
BEQ

011430

:GO TO THIS TEST WHEN THRU

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

BCC

171654

2098
2099

BIS

#1514 NEXT

877777 .R1
3

“SAVE DNA ONLY

:DNA SHOULD BE SET

:IF DNA DID NOT SET

:CHECK WORD LENGTH SELECT LOGIC

SCOPE
,,nus TEST VERIFYS CHARACTER PLUS PARITY GENERATION
OF THE TRANSMITTER SECTION.
::IT ALSO CHECKS DNA TIMING
; ;MODE: SYNINT
JJLENGTH:2IX PLUS PARITY
**PARITY:ODDPAR

—

012767

007350

012777
052777

000016
007542
000400
030000
000400

007356

012777

004020

007364
007372
007376
007404
007412

012777
016703
112777
012767
012767

033026
011326

000025
000025
000007

TST14:

011324
171532

-h

(1)20000
00000
011176
077777

#1515 NEXT

1%:

R
S
R
eT
R

TO THIS TEST WHEN THRU

MMRESET,BTXCSR :MASTER ksssr
#SYNINT .@PARCSR -SET THE MODE
AMRESET.@TXCSR
-MASTER RESET

#MINT
! SEND ,@TXCSR

BIS

#CLK,@TXCSR

CLR

BIC

ROR

BCC

011206

#CLK.STXCSR

TEMP1

:POKE CLK UP

*POKE CLK DOWN

:FORCE CARRY

*BR IF CARRY CLR

BIS

#BI1TW,RO

:EQUIV OF BITW

BIS
BIC
MOV

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

;POKE CLK UP
*POKE CLK DOWN
*ACTUAL

ggz

ggLR1

";COMPARE EXP VS ACT

HLT

;BIT WINDOW DID NOT MATCH ACTUAL DATA
:BIT,...ALSO CHECK DNA

DEC

SHIFT

:# OF SHIFTS

MOV

#100000,R0

*EXPECTED

BIC

477777 .R1

*SAVE DNA ONLY

BIC

#075777 .R1

*SAVE BITW & DNA

BNE
1s
‘DO IT AGAIN ?
:NOW POKE CLK TO SEE DNA
BIS
#CLK arxcsn
:POKE CLK
MOV

cMP
BEQ
HLT

104003

104400

:SAVE ruxs

;POKE CLK TO GET INTO SYNCRONIZATION

052777
012700
017701
042701
020001
001401

#14,TSTNO

;SET MODE
. # OF BITS,PARITY SENSE.L LOAD SYNC REG
MOV
#SYNINT! SIX'ODDPAR!
26, aPARCSR
MOV
TXCSR,R3
:SET UP FOR ERROR MSG
MOVB
#25 ,3TXDBUF
:LOAD DATA CHAR
MOV
#25,TEMP1
:TO BE SHIFTED CHAR
MOV
#7 SHIFT
A OF SHIFTS

020000
020000
011234
075777

171432

BIS

MOV

002000

R B B

JITEAEGRAR
LGB IRNRIK BEHIGGREG

SEQ 0042

sSET MAINTENANCE MODE & SEND
sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)

020000
020000

005367
001352

MOV

MOV
MOV
BIS

171502

PAGE 45

aTXCSR.R1

RO,R1
43
%

IS Y

s S

§-

NININIAININNINIAIAININININININININININY N

15 146

;s CHARA(TER:25

RNUSOSUSTS IS LSS ST

A S

SN S =

SIS TS ST S LS SIS SIS OSSN TN TN S LN TN

CZDUD-D MACY11 30A(10
) 21-'OV-78
CZDUDD.P11
1

4%:

*ACTUAL

*COMPARE EXP VS ACT
:

;:DNA SHOULD BE:SET

;1F DNA DID NOT SET
s CHECK WORD LENGTH SELECT LOGIC

SCOPE

..THIS TEST VERIFYS CHARACTER "LUS PARITY GENERATION
JOF THE TRANSMITTER SECTION.

“:IT ALSO CHECKS DNA TIMING
2 JMODE: ] SYMOD
:sLENGTH:SIX PLUS PARITY
;:PARITY:CVEPAR

;s CHARACTER:
25

;
R RE2EBRIRARERB
2B IIIANIN

15 146

PAGE 46

SEQ 0043

012767
012767
052777
012777
052777

TST1S:

007764
00

MOV
BIS
MOV

#15,TSTNO

:SAVE THIS

#MRESET.3TXCSR

-MASTER RESET

#1516 ,NEXT
*GO ro THIS TEST WHEN THRU
MMRESET,@TXCSR ;MASTER RESE
#1SYMOD .aPARCSR :SET THE noos

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

MOV

012777

MMINT
! SEND ,aTXCSR

;SET MODE.# OF BITS,PARITY SENSE.S LOAD smc REG

R
G
W
o
e T
e
e

2198

MOV

BIS

NININI NN NI NN NI NN NN NN NI NI NN NN NINININIAY

CY11_30A(105 )1 21-NOV-78
5:54
18-JuL=7

012777
016703
112777
012767
012767

MOV
MOV

#1SYMOD
! SIXTEVEPAR ! 26,aPARCSR
TXCSR,R3
:SET UP FOR ERROR MSG

MOV
MOV

0652 TEMP1
IFT

MOVB

#25,aTXDBUF

*LOAD DATA CHAR

:TO BE SHIFTED CHAR
“# OF SHIFTS

:POKE CLK TO GETmfosvncnoumnou

052777

1$:

171260

002000
020000
020000
011012
075777

#CLK,@TXCSR

CLR

BCC

BIC

ROR

010764

TEMP1

*POKE CLK DOWN

;FORCE CARRY

:BR IF CARRY CLR

#BITW.RO

;EQUIV OF BITW

BIS
BIC

#CLK,@TXCSR
#CLK. @TXCSR

:POKE CLK UP
*POKE CLK DOWN

BIC

#075777 R

gfng

171210

:POKE CLK UP

#CLK.QTXCSR

BIS

MOV

020000
000000
010754
077777

BIS

aTXCSR,R1

*ACTUAL

:SAVE BITW & DNA

ggLR1

":COMPARE EXP VS ACT

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC
BNE

SHIFT

:# OF

MOV

#0.R0

BIC

CMP

877777 R1

RO,R1

*BIT,...ALSO CHECK DNA
SHIFTS

1%
;DO IT AGAIN ?
-NOW POKgIgLK TO SEE DNA

BEQ
HLT

#CLK arxcsn

arxc
Ri
43
3

;POKE CLK

CTED

sACTUAL

*SAVE DNA ONLY

:COMPARE EXP VS ACT

;:DNA SHOULD BE SET

*IF DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE

::THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
;OF THE TRANSMITTER SECTION.

..IT gl?g CHECKS DNA TIMING
YMOD

:ILENGTH:SIX PLUS PARITY
: :PARITY:ODDPAR
;I CHARACTCR:25

| CZDUD-D MACY11 30A(1052)
CZDUDD.P11

2228

2229
2230
2231
2232
2%,
2235
2236
| - 2237
2238
2239
2240
2261
2242
2243
2245
2246
2247
2248
2249
2250
2251
2252
2253
254
2255

2257
2258
2259
2260
2261
2262
2264
2265
2267
2269
2270
2271
2072
2273
2274
2275
2276
2277
2078
2279
2280
2281
2282
2283

007764

007772
010000
010006
010014

21-NOV-78 15: 46

18-JUL-78 15:54

012767

012767
050777
012777
052777

000020

010206
000400
000000
000400

171134

171116
010716
010704
010702

010022

012777

004020

010674

010030
010036
010042
010050
010056

012777
016703
112777
012767
012767

003026
010662
000025
000452
000011

010662
010660
171066
171054

010064
010072
010100
010102
010106
010110
010114
010114
010122
010130
01013
010140
010142
010144

052777
042777
005000
7
103002
052700

020000
020000

010632
010624

052777
042777
0177201
042701
020001
001401
104003

020000
020000
010570
075777

171036
002000

010146
010146
010152

005367
001352

170766

010154
010162
010166
010172
010176
010200
010202

052777
012700
017701
042701
020001
001401
104003

020000
000000
010532
077777

010204
010204

104400

010602
010574

PAGE 47

TST16:

MOV
MOV

#16,TSTNO
#1ST17 NEXT

MOV

#1SYMOD ,@PARCSR :SET THE MODE

BIS
BIS

;SAVE THIS

;

;GO TO THIS TEST WHEN THRU

#MRESET,@TXCSR

;MASTER RESET

#MRESET,@TXCSR

:MASTER RESET

sSET MAINTENANCE MODE & SEND
;NOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)
MOV
#MINT ! SEND,@TXCSR
sSET MODE.# OF BITS,PARITY SENSE.E LOAD SYNC REG

MOV
MOV
MOVB
MOV
MOV

#1SYMOD ! SIX'ODDPAR!
26, aPARCSR
TXCSR,R3
;SET UP FOR ERROR MSG
#25,aTXDBUF
*LOAD DATA CHAR
#4528, TEMP1
*TO BE SHIFTED CHAR
#9. . SHIF T
“# OF SHIFTS

; POKE cuglgo GET INTO SYNCRONIZATION
1%:

°%:

%{g

ROR
BCC

3%:
.

#CLK,@TXCSR

:SLK.GTXCSR

TEMP1
2%

#81TW,RO

BIS
BIC

#CLK,aTXCSR
#CLK,aTXCSR

;POKE CLK DOWN

;EQUIV OF BITW

;POKE CLK uP
sPOKE CLK DOWN

MOV

aTXCSR, R1

g?;

gg.m

; COMPARE EXP VS ACT

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC

SHIFT
1$

;# OF SHIFTS
;DO IT AGAIN ?

BNE

#075777 .R1

sNOW POKglgLK TO SEE DNA

#CLK ,@TXCSR

#0.R0

BIC

#77777 R1

BEQ
HLT

43
3

CMP

*SAVE BITW & DNA

:POKE CLK

:EXPECTED

aTXCSR.R1

RO,R1

sACTUAL

;BIT,...ALSO CHECK DNA

MOV

4%:

;POKE CLK uP

;FORCE CARRY
:BR IF CARRY CLR

BIS

BIC

010542

SEQ 0044

sACTUAL

“SAVE DNA ONLY

“COMPARE EXP VS ACT

:DNA SHOULD BE SET

s1F DNA DID NOT SET
sCHECK WORD LENGTH SELECT LOGIC

SCOPE

;s THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
:;0F THE TRANSMITTER SECTION.
2:1T ALSO CHECKS DNA TIMING
E
: SYNINT
2 ¢MOD
s ;LENGTH:SEVEN PLUS PARITY
::PARITY:EVEPAR
s s CHARACTCR:125

CZDUD=D MACY11 30A(1052)
21-NOV-78
18-JUL=-78 15:54

CZDUDD.P11

0102 36

052777

010430
000400
030000
000400

170712
70674
0474
0462
0460

TST17:

0000%1

elele
o

01025
0102gO

012767

PAGE 48

SEQ 0045

MOV

#17,TSTNO

:SAVE THIS

BIS

#MRESET,3TXCSR

:MASTER RESET

BIS

#MRESET.@TXCSR

:MASTER RESET

MOV

anl cnld

15 :46

#TST18,NEXT

#SYNINT ,@PARCSR :SET THE MODE

;SET MAINTENANCE MODE &

010244

012777

004020

010452

010252

012777
016703

035426

010440

112777

012767
012767

010440

000125
000125
000010

052777
042777
005000
006067

020000
020000

052700

002000

052777
042777
017701
042701
020001
001401

020000
020000
010346
075777

103002

MOV

020000
100000
010310
077777

MOV
MOV

#SYNINT ! SEVEN! EVEPAR ! 26, aPARCSR
TXCSR,R3
;SET UP FOR ERROR MSG

MOV
MOV

nzs TEMP1
SHIFT

BIS

#CLK,@TXCSR

CLR

BCC

#125,3TXDBUF

:LOAD DATA CHAR

:TO BE SHIFTED CHAR
“# OF SHIFTS

;POKE CLK TO GET mio smcnmmhm
1%:

010360
010352

BIC

ROR

TEMP1

:BR IF CARRY CLR

;EQUIV OF BITW

BIS
BIC

#CLK,@TXCSR
#CLK.@TXCSR

:POKE CLK UP
*POKE CLK DOWN

MOV

STXCSR,R1

gglg

goR

#075777 .R1

*ACTUAL

*SAVE BITW £ DNA

" ;COMPARE EXP VS ACT

HLT

:en WINDOW DID NOT MATCH ACTUAL DATA

DEC

SHIET

:# OF SHIFTS

BIS

1 .

:BIT,...ALSO CHECK DNA

‘DO IT AGAIN ?

#CLK,TXCSR

:POKE CLK

MOV
MOV

#100000,RO
aTXCSR,R1

*EXPECTED
*ACTUAL

g?;

RO R1

:COMPARE EXP VS ACT

BIC
HLT

#77777 R1
3

A
104400

*POKE CLK DOWN

:FORCE CARRY

;NOW POKE CLK TO SEE DNA

104003

:POKE CLK UP

#B1TW,RO

BNE

010320

#CLK.STXCSR

BIS

BIC

052777
012700
017701
042701
020001
001401

MMINT
! SEND,aTXCSR

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

104003

170544

SEND

:NOTE:BIT uxmoutcu ARE CLEARED (MTDATA=0)

MOVB

170614

005367
001352

GO TO THIS TEST WHEN THRU

*SAVE DNA ONLY

:DNA SHOULD BE SET

*IF DNA DID NOT SET

:CHECK WORD .LENGTH SELECT LOGIC
SCOPE

::THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
“:0F THE TRANSMITTER SECTION.
21T ALSO CHECKS DNA TIMING
DE
: SYNINT
* :MO
::LENGTH: SEVEN PLUS PARITY

* *PARITY:0DDPAR

125
: CHARACTER:
010430

012767

000022

170470

TST18:

MOV

#18,TSTNO

JSAVE

THIS

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUoD .P11
15:54
18-JuL~

2340

010436

01 5767

010452
010460

012777
052777

052777

15:46

PAGE 49

010652
000400
030000
000400

SEQ 0046

MOV

#TST19, NEXT

MOV

#SYNINT .@PARCSR :SET THE nooe

BIS
BIS

TO THIS TEST WHEN THRU

MMRESET,TXCSR :MASTER kes

MMRESET.ATXCSR

:MASTER RESET

sSET MINTENANCE MODE € S END

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

004020

sSET W%c OF BITS,PARITY SENSE. LOAD SYNC REG

035026
010216
000125
000325
000010

MOV

MOVB
MOV

2372
2373
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395

546

010552
010554

010560
0

00606

103002
052700

052777

002000

170322

0620

052777

020000

012700
017701
042701
020001
001401
104003

010650
010650

104400

2%:

020000
020000
010124
075777

005367
001352

010626
010632
010636
010642
010644
010646

1%:

170372

010612
010616

100000

TXCSR,R3

;SET UP FOR ERROR MSG

03 5. TEHP1

ro BE SHIFTED CHAR

#125.3TXDBUF

:LOAD DATA CHAR

# OF SHIFTS
: POKE CL§1§° GET1~fosvucnonsz?10~
MOV

020000
020000

2360
2361
236%
2363
2364

#SYNINT! SEVEN'! ODDPAR' 26, @PARCSR

%bg

010076"

#CLK,@TXCSR

ggu.arxcsa

BIS
BIC
MOV

#CLK,@TXCSR
#CLK ,@TXCSR
STXCSR,R1

ggz

goJR1

:COMPARE EXP VS ACT

HLT

“

:BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC
BNE

SHIFT
1s

:# OF SHIFTS
-oo IT AGAIN ?

BIS

#CLK ,@TXCSR

:POKE CLK

MOV

@TXCSR.R1

*ACTUAL

g?g

ao R1

MOV
BIC
HLT

4%:

:POKE CLK DOWN

TEMP1
;FORCE CARRY
2%
:BR IF CARRY CLR
#B1TW,RO
;EQUIV OF BITW

#075777 .R1

;NOW POKE CLK TO SEE DNA

010066
077777

;POKE CLK UP

ROR
BCC
BIS

BIC

3%:

IFT

*ACTUAL

*SAVE
BITW & DNA

:BIT,...ALSO CHECK DNA

#100000, RO
477777 R1
3

sPOKE CLK UP
sPOKE CLK DOWN

*EXPECTED

*SAVE DNA ONLY

*COMPARE EXP VS ACT

:DNA SHOULD BE SET

*1F DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE
;s THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

:OF THE TRANSMITTER SECTION.

::1T ALSO CHECKS DNA TIMING
: :MODE: ISYMOD
::LENGTH: SEVEN PLUS PARITY
::PARITY
: EVEPAR

: :CHARACTER:125

010652
010660

012767
012767

000023
011074

170246

170230

TST19:

MOV
MOV

#:9,TSTNO
#15720 ,NEXT

;SAVE THIS

:GO TO THIS TEST WHEN THRU

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JUL=78
15:54

239%
2397
gggs
2400
2401
%28%

24604

2605

2606
2407

2408

010666
010674
010702

2611
2612

000400
000000
000400

012777

004020

010006

010716

012777

005426

007774

010724
010730

010736

010752
010760

016703
112777

012767

007774
000125

001252

012767 000012
052777
042777

020000
020000

2413
2414
2615
2616
2617
2618
2619
2620

010766
010770
010774
010776
011002
011002
011010
011016

005000
006067
103002
052700

002000

052777
042777
017701

020000
020000
007702

2622
2623
2624
2425
2626

011026
011030
011032

020001
001401
104003

2421

2627

011022

011034

042701

170100

011042

052777

020000

2432

011054

017701

007644

243,
2435
2436

011064
011066
011070

020001
001401
104003

2431

2433

24637

2438
2439
2440
2441
2642
2443
2444
2445

011040

011050

011060

011072
011072

001352

012700

042701

000000

SEQ 0047

MMRESET,@TXCSR :MASTER RESET
#1SYMOD ,8PARCSR :SET THE MODE
#MRESET,@TXCSR :MASTER RESET

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

#1SYMOD ! SEVEN! EVEPAR! 26, 3PARC SR

007772

MOV
MOVB

TXCSR,R3
#125,8TXDBUF

:SET UP FOR ERROR MSG
:LOAD DATA CHAR

170166

MOV

#10, ,SHIFT

“# OF SHIFTS

170200

MOV

007744
007736

BIS
BIC

1%:

2%:

007714
007706

:TO BE SHIFTED CHAR

CLR
ROR
BCC
BIS

#CLK,@TXCSR
#CLK.@TXCSR

;POKE CLK UP
*POKE CLK DOWN

RO
TEMP1
;FORCE CARRY
2$
:BR IF CARRY CLR
#8]TW,RO
;EQUIV OF BITW

BIS
BIC
MOV

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

:POKE CLK UP
*POKE CLK DOWN
*ACTUAL

BIC

)
BEQ
HLT
3$:

#075777 .R1
RO,R1
3
3

*SAVE BITW & DNA

“;COMPARE EXP VS ACT

;BIT WINDOW DID NOT MATCH ACTUAL DATA
‘BIT,...ALSO CHECK DNA

DEC

SHIFT

:# OF SHIFTS

MOV

#0.R0

;EXPECTED

BNE
1s
‘DO IT AGAIN ?
:NOW POKE CLK TO SEE DNA
BIS
#CLK,aTXCSR
:POKE CLK

007654

077777

MOV
BIC

CMP
BEQ
HLT
-

104400

#1252, TEMP1

;POKE CLK TO GET INTO SYNCRONIZATION

2446
522;

aTXCSR,R]

sACTUAL

RO,R1
43
3

*COMPARE EXP VS ACT

877777 R1

*SAVE DNA ONLY

:DNA SHOULD BE SET

*IF DNA DID NOT SET

*CHECK WORD LENGTH SELECT LOGIC

SCOPE
::THIS TEST VERIFYS CHARACTER PLUS RARITY GENERATION
“:0F THE TRANSMITTER SECTION.
::1T ALSO CHECKS DNA TIMING
2 2MODE : 1 SYMOD
::LENGTH: SEVEN PLUS PARITY

: 2PARITY:0DDPAR
:;CHARACTER: 125

2449

011074

012767

000024

170024

2451

011110

052777

000400

007606

2450

;SET MAINTENANCE MODE & SEND
sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)
MOV
#MINT ' SEND ,TXCSR

075777

005367

2428
2429
2430

BIS
MOV
BIS

170150

011034

PAGE SO

010030
010016
010014

010710

2409 010744
2410

052777
012777
052777

15:46

011102

012767

011316

170006

TST20:

MOV

#20,TSTNO

;SAVE THIS

8IS

#MRESET,@TXCSR

:MASTER RESET

MOV

8721 NEXT

:GO TO THIS TEST WHEN THRU

CZoUD-D HACYH

CZDUDD.P11

%asg
t.gl.

011116

omz:.

(10)

012777

052777

21-'0\!—78

000000
000400

15:46

007574

BIS

SEQ 0048

#1SYMOD ,a-ARCSR ;SET THE MODE
#MRESET,@TXCSR

;MASTER RESET

sSET mmrenmcs nooe

456

gzgg 011132

012777

004020

2660 011140 012777 005026 007552
016703
112777
012767
012767

007552
000125
001652
000012

007550

2464k

011146
011152
011160
011166

2466

011174

052777

020000

007522

2468

011210

2670

011216

2467 011202

042777 020000
005000

2469 011212 006067

167726

5‘4’;}_

002000

103002

167756
167744

007514

MoV

mm'seuo STXCSR

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

MOV

#1SYMOD ! SEVEN' ODDPAR ' 26 , BPARCSR

MOV
MOVB
MOV
MOV

TXCSR,R3
#125,3TXDBUF

BIS

#CLK,@TXCSR

CLR

msé TEMP1
SHIFT

;SET UP FOR ERROR MSG
:LOAD DATA CHAR

*TO BE SHIFTED CHAR
“# OF SHIFTS

:POKE CLK TO GETmb smcnouumm
'$:

ROR
BCC

#CLK.@TXCSR

TEMP1

:POKE CLK UP

*POKE CLK DOWN

;FORCE CARRY

:BR IF CARRY CLR

#81TW,RO

2473 ongg 052777 020000 007472

BIS

#CLK,@TXCSR

:POKE CLK LP

2475

MOV

aTXCSR R1

*ACTUAL

042777

011244
011250

042701
020001

2679

011254

104003

2481
m%

011256
011256

2476
2477

011240 017701

020000

007460

BIC

BIS

2676

3”552 052700

:NOTE :B uxmouccu( ARE CLEARED (MTDATA=0)

007564

2459

2465

MOV

007572

455

PAGE 51

007464

BIC

075777

2478 011252 001401

2480
2483

2484

011262

005367

001352

167656

2485

011264

052777

020000

- 2488

011302

042701

077777

491

011312

104003

2496

011314

2486 011272

012700

000000

2487 011%6 017701 007422
2489 011306 020001
2490 011310 001401

492
2493

gzg

011314

104400

HLT

;BIT WINDOW DID NOT MATCH ACTUAL DATA

SHIFT

:# OF SHIFTS

DEC

BIS

MOV

cMP
BEQ
HLT

48:

2497

;NOW POKE CLK TO SEE DNA

MOV
BIC

*POKE CLK DOWN

#075777 .R1
*SAVE BITW & DNA
RO,R1
;COMPARE EXP VS ACT

BNE

007432

#CLK.ITXCSR

BIC
P

BEQ
3$:

:EQUIV OF BITW

:BIT,...ALSO CHECK DNA

‘DO IT AGAIN ?

#CLK arxcsn

#0.R0

STXCSR
ni

- #77777.R1

RO,R1
43
?

:POKE CLK

PECTED

sACTUAL
*SAVE DNA ONLY

:COMPARE EXP VS ACT

:DNA SHOULD BE SET

“IF DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE
::THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

2498
2499
2500

:OF THE TRANSMITTER SECTION.
..n ALSO CHECKS DNA TIMING
“MODE : SYNINT

2so§

S :PARITY:EVEPAR

2501

“:LENGTH:EIGHT PLUS PARITY

::CHARACTER: 125
55584
2505 011316 012767 000025 167602 TST21: MOV
#21,TSTNO

:SAVE THIS

2507

:MASTER RESET

2506

011324

011332

012767

052777

011540

000400

167564

007364

MOV
BIS

#7722 NEXT

#MRESET,@TXCSR

GO TO THIS TEST men THRU

CZDUD~-D MACY11 30A(1052)
21-NOV=78
CZDUDD.P11
18-JUL-78 15:54

15:46

2508 011340 012777 030000 007352

%g?g
gsn
51.25

gg}‘

011346

011354

052777

012777

000400

004020

2515

2516 011362 012777 037426 007330
5517 011370 016703 007330
518

011374

112777

000125

007326

011416
011426
011432

052777
042777
005000

020000
020000

007300
007272

011440

103002

2519 011402 012767 000125
2520 011410 012767 000011

2521

2522
2523
2524

2525

2526

011434

006067

1675
167522

167504

2527 011442 052700 002000

2528
2529
2530

011446
011446
011454

052777
042777

253,
2535

011474
011476

001401
104003

2537
2538

011500
011500

2531 011462 017701
2532 011466 042701
2533 011472 020001

2536

2539

2540

2541

2542
2543

2544
2545
2546
2547

2548

2549
2550
2551
2552

011504

005367

001352

020000
020000

007236
075777

167434

011506

052777

020000

011526
011530
011532
011534

042701
020001
001401
104003

077777

011514 012700 100000
011520 017701 007200

011536
011536

MOV

007350

007342

007250
007242

y
007210

BIS

MOV

SEQ 0049

#SYNINT ,@PARCSR :SET THE MODE
#MRESET,@TXCSR

MMINT ! SEND,aTXCSR

MOV
MOV

#SYNINT 'EIGHT ! EVEPAR' 26, 3PARCSR
X ga R3
;SET UP FOR ERROR MSG

MOV
MOV

#125. TEMP1
#9.
SHIFT

MOVB

#125,3TXDBUF

:LOAD DATA CHAR

:TO BE SHIFTED CHAR
‘¥ OF SHIFTS

;POKE CLK TO GET INTO SYNCRONIZATION
1$:

28:

BIS
BIC
CLR

#CLK,@TXCSR
#CLK.TXCSR
RO

BCC

ROR

3%:

TEMP1

:FORCE CARRY

:BR IF CARRY CLR

#81TW,RO

BIS
BIC

#CLK,@TXCSR
#CLK.TXCSR

BEQ
HLT

3$
3

;BIT WINDOW DID NOT MATCH ACTUAL DATA

SHIFT

:# OF SHIFTS

DEC

BNE

BIS

MOV
MOV

:EQUIV OF BITW
:POKE CLK UP
*POKE CLK DOWN

aTXCSR,R1
*ACTUAL
#075777 .R1
“SAVE BITW & DNA
RO,R1
;COMPARE EXP VS ACT

:BIT,...ALSO CHECK DNA

;NOW POKE CLK TO SEE DNA

4$:

;POKE CLK UP
*POKE CLK DOWN

BIS
MOV
BIC
cTMP

2553

‘DO IT AGAIN ?

#CLK ,@TXCSR

#100000,R0
@TXCSR,R1

:POKE CLK

*EXPECTED
*ACTUAL

877777 R1
*SAVE DNA ONLY
RO,R1
*COMPARE EXP VS ACT
4$
3
:DNA SHOULD BE SET

.
.

*IF DNA DID NOT SET

:CHECK WORD LENGTH SELECT LOGIC
A

SCOPE
;:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

::0F THE TRANSMITTER SECTIGN.

::1T ALSO CHECKS DNA TIMING

2555

2557

::PARITY:0DDPAR

2556

E :SYNINT

2LENGTH:EIGNT PLUS PARITY

gggg

2 ;CHARACTER: 125

2560

011540

012767

000026

zsci

011554

052777

000400

2563

MASTER RESET

:SET MODE,# OF BITS,PARITY SENSE.C LOAD SYNC REG

2554,

2561

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

BIC
P
BEQ
HLT

104400

PAGE 52

011546

011562

012767

012777

011762

030000

167360

167342

007742

007130

T1ST22:

MOV

#22,TSTNO

;SAVE THIS

BIS

#RESET,@TXCSR

;MASTER RESET.

MOV
MOV

#TST23

GO TO THIS TEST WHEN THRU

#SYNINT .@PARCSR :SET THE MODE

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JUL-78 15:54

gggls.

011570

052777

000400

15:46

PAGE 53

007126

BIS

SEQ 0050

#MRESET ,@TXCSR

;MASTER RESET

566
;SET MAINTENANCE MODE & SEND
567
;NOTE:BIT WINDOWRCLK ARE CLEARED (MTDATA=0)
25523 011576 012777 004020 007120
MOV
#MINT ! SEND,@TXCSR
5§70
;SET MODE,# OF BITS,PARITY SENSE, LOAD SYNC REG
571 011604 012777 037026 007106
s;g 011612 016703 oo71og

MOV
MOV

011616 112777 00015 007104
574, o11e§42. 012767 000525 167312
575 011632

012767 000011

576

167300

2577 011640 ossm 020000 007056
%sn 011646 042777 020000 007050
579

011654

005000

2580 011656
7 167262
2581 011662 10 705 :
ggg 8”2‘7"0 052
002000
%su
585

011670
011676

052777
042777

2590
591

011720

104003

Ssao
587
588
589

011704
011710
011714
011716

017701
042701
020001
001401

020000
020000

007014
075777

011722
011752
011726

005367
001352

167212

259

011730

052777

020000

2599

011746

042701

077777

2602

011756

104003

2605
2606

011760
011760

104400

2597 011736 012700 100000
2598 011742 017701 006756
2600 011752 020001
2601 011754 001401

2603
2604
2607
2608
2609
2610
2611
2612

MOV

1$:

.
00702¢
007020

TEMP1
;FORCE CARRY
:BR IF CARRY CLR
#81TW.RO
;EQUIV OF BITW

RO-

#CLK,@TXCSR
#CLK .@TXCSR

.
SHIFT :# OF SHIFTS
1s
‘D0 IT AGAIN ?

48:

#CLK ,@TXCSR

BIC

877777 R1

4
RO
STXCSR,R1
RO,R1
43
3

:POKE CLK

*EXPECTED
*ACTUAL

*SAVE DNA ONLY

*COMPARE EXP VS ACT

;DNA SHOULD BE SET

:1F DNA DID NOT SET
*CHECK WORD LENGTH SELECT LOGIC

SCOPE

::THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
*:0F THE TRANSMITTER SECTION.2:1T ALSO CHECKS DNA TIMING
* “MODE
: 1SYMOD
S :LENGTH:EIGHT PLUS PARITY
tPARITY:EVEPAR
.

; ;CHARACTER: 125

2615

011762

012767

000027

- 2617
5218

011776
0120064

052777
012777

000400 006720
000000 006706

2616 011770 012767 012204
012012

052777

000400

167136

167120

006704

T1ST23:

MOV

#23,TSTNO

BIS
MOV

#MRESET ,TXCSR ;MASTER RESET
#:SYMOD .@PARCSR :SET THE MODE

MOV
BIS

’

~ ;BIT WINDOW DID NOT MATCH ACTUAL DATA
‘BIT,...ALSO CHECK DNA

BIS

HLT

:POKE CLK UP
*POKE CLK DOWN

STXCSR,R1
*AC TUAL
#07577% .R1
*SAVE BITW & DNA
RO,R1
“;COMPARE EXP VS ACT
e

CMP
BEQ

;POKE CLK UP
*POKE CLK DOWN

MOV
BIC
CMP
BEQ

MOV
MOV

22242

ROR
BCC
BIS

CLR

‘¥ OF SHIFTS

#CLK,BTXCSR
#CLK.BTXCSR

;NOW POKE CLK TO SEE DNA

/
s

.
:

#9. SHIFT

:LOAD DATA CHAR
:TO BE SHIFTED CHAR °

BIS
BIC

38:

006766

#125,3TXDBUF
#525, TEMP1

;POKE CLK TO GET INTO SYNCRONIZATION

HLT

2592
2593
2594

2595

MOVB
MOV

#SYNINT
' EIGHT ! ODDPAR ! 26, 3PARCSR
TXCSR,R3
:SET UP FOR ERROR MSG

#1574 NEXT

#MRESET,QTXCSR

;SAVE THIS

:GO TO THIS TEST WHEN THRU

:MASTER RESET

CZDUD-D HACY‘H

CZDUDD.P11

A(1OS)

=JUL=7

21-'0\/-78

15:46

012020 012777

004020 006676

MoV

016703

006664

012062

052777

020000

263

012076 oosoog

012100 006067
012106

103002

1$:
-

ngg 01 113 052777 020000 006604
020000

2642

012132

042701

075777

2644
2645

012140
012142

001401
104003

2647
2648

012144
.
012144 005367

166770
020000

2641
2643

2646

01 1;3 017701
012136 020001

2649 012150

001352

2651

012152

052777

o121g4
012170
012174

017701
042701
020001

2650
ggs

5
2654

2655

012160

2656
2657

012176
012200

2660
2661

012202
012202

2658
2659

2662

012700

006572

006576

n
aTX
02 50 rem

:LOAD DATA CHAR
ro BE SHIFTED CHAR
# OF SHIFTS

BIS

#CLK,3TXCSR

:POKE CLK UP

CLR

BIC

ROR

BCC

38:

TEMP1

:FORCE CARRY

:BR IF CARRY CLR

#CLK.TXCSR

*POKE CLK DOWN

DEC

#CLK,@TXCSR
STXCSR,R1

#075777.R1

BIS

MOV

MOV
BIC
(MP

001401
104003

BEQ
HLT

4$:

:POKE CLK UP

*ACTUAL

“SAVE BITW £ DNA

RO,R1. “;COMPARE EXP VS ACT
38
3

;BIT WINDOW DID NOT MATCH ACTUAL DATA

:BIT,...ALSO CHECK DNA

SHIFT

:# OF SHIFTS

;NOW POKE CLK TO SEE DNA

006534
077777

*POKE CLK DOWN

BIC

BIS

BNE

104400

#CLK . @TXCSR

:EQUIV OF BITW

BEQ
HLT

000000

SET UP FOR ERROR MSG

#BITW,RO

cTMP

006544

§n

BIS

BIC -

‘DO IT AGAIN ?

#CLK ,@TXCSR

:POKE CLK

arx
SR,R]
#77777 R1

sACTUAL
“SAVE DNA ONLY

#0,R0

:EXPECTED

RO,R1

4$
3

:COMPARE EXP VS ACT

:DNA SHOULD BE SET

:IF DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE

:.’THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

:OF THE TRANSMITTER SECTION.
..n ALSO CHECKS DNA TIMING
+MODE: 1 SYMOD
..LENGTH EIGHT PLUS PARITY

*PARITY:ODDPAR

26626689

2671

MOVB
MOV
. MOV

MOV

2663
2664
2665
2666
2667
2670

1smooxcur'evépm'z'b.amcsn

;POKE CLK TO GETmrb smcamm'n

006634

222335 8} }(1)6 052700 002000
042777

MOV

167040

012120

MMINT
! SEND,3TXCSR

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

015852 012777 007426 006664

SEND

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

012070 042777 020000 006626
2635

SEQ 0051

;SET MAINTENANCE MODE &

8 012040 112777 000125 006662
01
012767 oozzsg 167070
012054 012767 000013
167056

PAGE 54

*CHARACTER:125

012204

012212

012767

000030

012426

166714

166676

5678
015556 015777 000000 Seeszs
2674 01223 052777 000400 006462

TST24:

MOV

#24,TSTNO

iy
BIS

RCNT.TICN
sTER RESET
#'RESET.QTXCSR :MASTER RESET

MOV

#15F25

:SAVE THIS

160 TO THIS TEST WHEN THRU

CZDUD-D mcm
CZDUDD.P11
;9

(1052) 21-NOV-78
~JUL=78 15:54

012777

004020

006454

012250 012777 007026

006442

012256 016;9; 00644

012262

112

012270

000125

000013

Sgg; 015304 ossm 020000
012312
042777 020000
2689

oosoog

269

8}2534 052700

002000

01 g.ss

020000

2690 012322 006067
2691 01 353 10300

166634

12
04

166616

5234 mgsy. 052777 020000 006362
04%7

015

01 g«o

2698 015

012362
012364

701
702 01%366

2703

2704

2705

012366

012372

701

020 01

00635

005367

001352

052777

020000

709

012412

042701

07777

012420
012422

001401
104003

017701 00631

2710 012416 020001

012424

5;}9

012424

2718
2719

18:

:sLx.arxcsn

ROR
BCC

BIS

TEMP1
:FORCE CARRY
2s
:BR IF CARRY CLR
#BITW,RO
:EQUIV OF BITW

BIC

#CLK . ITXCSR

CLR

BIS
MOV

TMP

38:

DEC

BNE

‘BIS

'A ¥

104400

*LOAD DATA CHAR

*TO BE SHIFTED CHAR
‘¥ OF SHIFTS

#CLK,ATXCSR
arxgén R1

777 ,R1

RO,R1

*ACTUAL

*SAVE BITW £ DNA

:BIT,...ALSO CHECK DNA
SHIFT

;# OF SHIFTS

:DO IT AGAIN ?

#CLK arxcsa

BIC

mm R1

BEQ
HLT

CMP

;POKE CLK UP

*POKE CLK DOWN

“;COMPARE EXP VS ACT

MOV

:POKE CLK DOWN

:BIT WINDOW DID NOT MATCH ACTUAL DATA

JNOW PO(E CLK TO SEE DNA

a n’i

:POKE CLK

PECTE 6

no R1

SAVE DNA ONL

* COMPARE EXP vs ACT

:DNA SHOULD BE SET
:1F DNA DID NOT SET
*CHECK WORD LENGTH SELECT LOGIC

SCOPE
..THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
:OF THE TRANSMITTER SECTION.

* *MODE:SYNINT

2723

*:LENGTH: EIGHT PLUS PARITY

*:PARITY:EVEPAR

012:.,;2

012767

000031

5% 012450

012777

030000

0124

019;97 012650

166472

166454

2728 012442 052777 000400 006254

BIC

MOV

;SET P roa ERROR MSG

$:IT ALSO cuecxs DNA TIMING

2722

2727

03 52 re

6rxoe¥r

;POKE CLKBISTO GETmrb
smcammh
#CLK,BTXCSR
;POKE CLK UP

2720

2721

272

MOV

MOVB

BIC

006322

CLK ARE CLEARED (MTDATA=0)

MMINT
! SEND,3TXCSR

#1SYMOD| E IGHT
! ODDPAR ! 26,
3PARC SR

MOV

006354

166546

SEND

:BIT Wi

MOV

BEQ
HLT

012374

5;53

SEQ 0052

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

001401
104003

2707 012402 01;700 000000
2711
2712
271
. 2714
2715

MoV

0757

2706

groa 012406

*NOTE

006440

012767 0032 g 166646

S 012276 012767

2699
2700

PAGE 55

;SET MAINTENANCE MODE &

;’g 012242

15:46

012456

052777

00624

TST25:

: ; CHARAC TER: 252

MOV

#25,TSTNO

#1526 NEXT

: SAVE nu

TO THIS TEST WHEN THRU

BIS

#MMRESET ,dTXCSR msren kes

BIS

#'RESET.QTXCSR

MOV

#SYNINT .3PARCSR :SET THE nooe

:MASTER RESET

CZDUD-D MACY11

CZDUDD .P11
2
2

%77?5.

012464

(1052)

18-JuL-78

012777

21-NOV-78

15:54

15:46

004020 006232

PAGE 56

SEQ 0053

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

MOV

#MINT
! SEND ,aTXCSR

2736
;SET MODE.# OF BITS,PARITY SENSE.® LOAD SYNC REG
2737 012472 012777 037426 006220
MOV
#SYNINT
'EIGHT ' EVEPAR! 26, 3PARCSR
2738 012500 016703 006220
2739

012504

112777

000252

006216

27643

012526

052777

020000

006170

2745

012542

005000

2747

012550

103002

2749

012556

27640 012512 012767 000252
27641 012520 012767 000011

2742

166424
166412

2764 012534 042777 020000 006162

27646 012544 006067

166374

2748

012552

052700

002000

2750
2751

012556
012564

052777
042777

020000
020000

2753

012576

042701

075777

2752 012572 017701

2754
2755
2756

012602
012604
012606

2758
2759

012610
012610

2757

2760 012614

020001
001401
104003
005367

001352

006126

012616

052777

020000

2765

012634

042701

077777

2763 012624 012700 100000
2764 012630 017701 006070

2766
2767
2768
2769

012640
012642
012644

2771
2772

012646
012646

2770

2773
2774
2775
2776

020001
001401
104003

18:

006140
006132

28:

3$:

006100

BIS

#CLK,@TXCSR

:POKE CLK UP

CLR

BIC

ROR

#CLK.@TXCSR
TEMP1

*POKE CLK DOWN

;FORCE CARRY

*BR IF CARRY CLR

#BITW,RO

;EQUIV OF BITW

BIS
BIC

#CLK,@TXCSR
#CLK.@TXCSR

:POKE CLK UP
*POKE CLK DOWN

BIC

#075777 .R1

*SAVE BITW & DNA

DEC

STXCSR,R1
RO,R1
3
3

SHIFT

*ACTUAL

~;COMPARE EXP VS ACT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

*BIT....ALSO CHECK DNA
:# OF SHIFTS

DO IT AGAIN ?

:NOW POKE CLK TO SEE DNA
BIS
#CLK ,@TXCSR

4$:

104400

:LOAD DATA CHAR

BIS

MOV
MOV

#100000,R0
STXCSR,R1

P
BEQ
HLT

RO,R1
43
3

BIC

877777 .R1

:POKE CLK

*EXPECTED
*ACTUAL

*SAVE DNA ONLY

*COMPARE EXP VS ACT

;:DNA SHOULD BE SET
“IF DNA DID NOT SET

*CHECK WORD LENGTH SELECT LOGIC
SCOPE

;:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
*OF THE TRANSMITTER SECTION.
::1T ALSO CHECKS DNA TIMING
* *MODE: SYNINT
*:LENGTH:EIGHT PLUS PARITY

:;PARITY:0DDPAR
: ;CHARACTER: 252
012767

000032

166250

2783

012664

052777

000400

006032

2787

:TO BE SHIFTED CHAR
“# OF SHIFTS

BNE

012650

5;32

#252. rsm
"9,

P
BEQ
HLT

2781

278,

MOV
MOV

MOV

2778
S%

;SET UP FOR ERROR MSG

#252,3TXDBUF

;POKE CLK TO GET mfosmcnomzmw

2777

2782

TXCSR,R3

MOVB

BCC

166324

2761
2762

MOV

012656

012672
012700

012767 013072

012777
052777

030000
000400

166232

006020
006016

TST26:

MOV

#26,TSTNO

:SAVE THIS

BIS

#MRESET ,8TXCSR.

:MASTER RESET

MMRESET.ATXCSR

:MASTER RESET

MOV

MOV
BIS

#TST27 NEXT

:GO TO THIS TEST WHEN THRU

#SYNINT aPARCSR -SET THE MODE

;SET MAINTENANCE MODE & SEND

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JUL-78 15:54

15:46

PAGE 57

2788
5;38 012706 012777 004020 006010

2791

2792 012714 012777 037026 005776
2793 012722 016703 005776
o279

012726

112777

000252

005774

2798

012750

052777

020000

005746

2800

012764

005000

012772

103002

2795 012734 012767 000652
2796 012762 012767 000011

2797

166202
166170

2799 012756 042777 020000 005740

2801

012766 006067 166152

2803

012774

2802

052700

2804
2805
2806

013000
013000
013006

052777
042777

)
020000
020000

2808

013020

042701

075777

2807 013014 017701

2809
2810
2811

013026
013026
013030

2813
2814

013032
013032

2812

020001
001401
104003

005367

2815 013036 001352

2816

005704

013040

052777

020000

2820

013056

042701

077777

2818 013046 012700 100000
2819 013052 017701 005646

2821
2822
2823

013062
013064
013066

2826
2827

013070
013070

2824,
2825
2828

020001
001401
104003

104400

005716
005710

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

#SYNINT
'EIGHT ! ODDPAR! 26 ,PARCSR
TXCSR,R3
:SET UP FOR ERROR MSG

MOV
MOV

#652 . TEMP1
#9. . SHIFT

BIS

#CLK,aTXCSR

CLR

MOVB

1$:

28:

BIC

ROR

ro BE SHIFTED CHAR
# OF SHIFTS

#CLK.STXCSR

TEMP1

*POKE CLK DOWN

roacs CARRY

BR IF CARRY CLR

BIS
BIC

#CLK,@TXCSR
#CLK.@TXCSR

:POKE CLK UP
*POKE CLK DOWN

BIC

#075777 .R1

*SAVE BITW & DNA

DEC

aTXCSR R1

;EQUIV OF BITW

*ACTUAL

RO,R1
74
3

;BIT WINDOW DID NOT MATCH ACTUAL DATA

SHIFT

;# OF SHIFTS

~;COMPARE EXP VS ACT

:BIT,...ALSO CHECK DNA
DO IT AGAIN ?

:NOw POKE CLK TO SEE DNA’
BIS

ccu( aTXCSR

:POKE CLK

BIC

#77777.R1

*SAVE DNA ONLY

MOV
MOV
CMP
BEQ
HLT
48:

:POKE CLK UP

¥BITW.RO’

BNE

:LOAD DATA CHAR

BIS

MOV

3%:

005656

#252,3TXDBUF

:POKE CLK TO GET mfosmcnmxzmou

P
BEQ
HLT

166102

2817

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

BCC

002000

SEQ 0054

100000, RO
arxcsn R1
RO,R1
43
3

*EXPECTED
*ACTUAL

s COMPARE EXP VS ACT

:DNA SHOULD BE SET

*IF DNA DID NOT SET
*CHECK WORD LENGTH SELECT LOGIC

SCOPE

2:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

2829
2830
2831
2832

“:0F THE TRANSMITTER SECTION.
::1T ALSO CHECKS DNA TIMING
% *MODE
: SYNINT
*LENGTH:EIGHT PLUS PARITY

%ggg

:;CHARACTER: 0

2833

:PARITY:EVEPAR

2836

013072

012767

000033

166026

2838

013106

052777

000400

005610

5&49

013122

052777

000400

005574

2837 013100 012767 013314
2839 013114

2842

2843

166010

012777 030000 005576

TST27:

MOV

#27.TSTNO

:SAVE THIS

BIS

MMRESET,@TXCSR

:MASTER RESET

MMRESET.QTXCSR

-MASTER RESET

MOV
MOV
8IS

#TST2B NEXT

;GO TO THIS TEST WHEN THRU

#SYNINT.@PARCSR :SET THE MODE

;SET MAINTENANCE i*ODE & SEND

sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)

CZDUD-D MACY11 30A(1052)
21-NOV-78
18-JuLCZDUDD.P11
15:54

013130

012777

15: 46

004020

005566

037426
005554
000000
000000
000011

005554

020000
020000

005524
005516

165746

002000

02000
001401
104003

MOV
MOV
MOV

005474
005466

052777

020000
00000
005424
077777
E

LOAD SYNC REG

#SYNINT 'EIGHT ! EVEPAR' 26, 3PARCSR
TXCSR,R3
;SET UP FOR ERROR MSG
#0.aTXDBUF

*LOAD DATA CHAR

BIS
BIC

#CLK,BTXCSR
#CLK.@TXCSR

:POXKE CLK UP
*POKE CLK DOWN

5';'3

gg.m

;COMPARE EXP VS ACT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

MOV
BIC
-

165660

AMINT
! SEND,@TXCSR

MOV
#0. TEMP1
*TO BE SHIFTED CHAR
MOV
#9. SHIFT
“# OF SHIFTS
;POKE CLK TO GET INTO SYNCRONIZATION
BIS
#CLK,aTXCSR
:POKE CLK UP
BIC
#CLK.@TXCSR
*POKE CLK DOWN
1$:
CLR
RO
:
ROR
TEMP1
:FORCE CARRY
BCC
2s
*BR IF CARRY CLR
BIS
#81TW,RO
:EQUIV OF BITW

075777

005367
001352

SEQ 0055

;SET MODE.# OF BITS,PARITY SENSE,.
MOVB

165730

020000
020000
005462

PAGE 58

HLT

aTXCSR,R1
#075777 .R1

*ACTUAL
*SAVE BITW & DNA

:BIT,...ALSO CHECK DNA

SHIFT
;¥ OF SHIFTS
1%
;00 IT AGAIN ?
sNOW POKgIgLK TO SEE DNA
DEC
BNE

005434

MOV
MOV
BIC
P

BEQ
HLT

#CLK,aTXCSR

sPOKE CLK

#77777 .R1
RO,R1

*SAVE DNA ONLY
*COMPARE EXP VS ACT

#100000,R0
aTXCSR,R1
43
4

*EXPECTED
*ACTUAL

:DNA SHOULD BE SET

*IF DNA DID NOT SET
:CHECK WORD LENGTH SELECT LOGIC

SCOPE

2:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

*:0F THE TRANSMITTER SECTION.
“:1T ALSO CHECKS DNA TIMING
DE
: SYNINT
2 sMO
*:LENGTH:EIGHT PLUS PARITY
* *PARITY:0ODDPAR

% :CHARACTER:0
012767

052777

012777

165604
165566

00 366
005354
005352

005344

TST28:

MOV

#28,TSTNO

:SAVE THIS

BIS

MMRESET ,@TXCSR

:MASTER RESET

BIS

#MRESET.@TXCSR

:MASTER RESET

MOV
MOV

#T5729 NEXT

:GO TO THIS TEST WHEN THRU

#SYNINT.@PARCSR :SET THE MODE

sSET MAINTENANCE MODE & SEND
;NOTE:BIT ‘JINDOWECLK ARE CLEARED (MTDATA=0)
MOV

A#MIN
! SEND ,@TXCSR
T

15: 46

037026
005332
000000
000400
000011

005332

020000
020000

005302
005274

165524

165506

020000
020000

005240
075777

PAGE 59

MOV
#SYNINT 'E IGHT ' ODDPAR ! 26, 3PARC SR
MOV
TXCSR,R3
:SET UP FOR ERROR MSG
MOVB
#0,aTXDBUF
:LOAD DATA CHAR
MOV
#400, TEMP1
:TO BE SHIFTED CHAR
MOV
#9. SHIFT
:# # OF SHIFTS
: POKE CL§1§° GET INTO SYNCRONIZATION
#CLK,@TXCSR
:POKE CLK UP
BIC
#CLK.@TXCSR
*POKE CLK DOWN

1%:

005252
005244

052777

020000

005212

BCC

TEMP1

;FORCE CARRY

*BR IF CARRY CLR

BIS

#81TW,RO

BIS
BIC

#CLK,@TXCSR
#CLK,@TXCSR

g;l;

gg.m

;COMPARE EXP VS ACT

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC

SHIFT

;¥ OF SHIFTS

MOV

#100000, RO

BIC
CMP
BEQ
HLT

477777 R1
*SAVE DNA ONLY
RO,R1
*COMPARE EXP VS ACT
4$
3
:DNA SHOULD BE SET
:IF DNA DID NOT SET

MOV

077777

(%:

:EQUIV OF BITW

STXCSR,R1
#075777 .R1

:POKE CLK UP
:POXKE CLK DOWN

*ACTUAL
*SAVE BITW & DNA

:BIT,...ALSO CHECK DNA

BNE
1%
;DO IT AGAIN ?
sNOW POKgIgLK TO SEE DNA

)

—

100000
005202

0aR

e
e

858

013504

=00

165436

005367
001352

CLR

ROR

MOV
BIC
-

013502

SEQ 0056

:SET MODE.# OF BITS.PARITY SENSE.E LOAD SYNC REG

002000

#CLK . @TXCSR

aTXCSR.R1

:POKE CLK

*EXPECTED
*ACTUAL

sCHECK WORD LENGTH SELECT LOGIC

SCOPE

2:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION

;c0OF THE TRANSMITTER SECTION.
;21T ALSO CHECKS DNA TIMING
E
: SYNINT
2 2MOD
s cLENGTH:EIGHT PLUS PARITY

2 sPARITY:EVEPAR

013574

N
~N
~N
~N

N =2\
= =

leola)

8\01
NS

s sCHARACTER:377

leolelelele)

3 FERE

O 00

BVCNENN—O

B3
¥
YUY
§
FI3FTIIIDRNRARRNINS
A¥PRLR

CZOUD-D MACY11 30A(1052) 21-NOV-78
CZDUDD.P11
18-JuL-78 15:54

012777

0000
013760
0004
000400

004020

TST29:

MOV

#29,TSTNO

BIS
MOV
BIS

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

MOV

#TST30,NEXT

sSAVE THIS

;GO TO THIS TEST WHEN THRU

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

#i2INT
! SEND,@TXCSR

(Z DUD-D HACY11 30A(1052)
21-NOV-78
CZDUDD.P n
18-JuL-78 15:5¢4

2956
2957
2958
2959
2960
2961

2963
2965

005110
00 106
165314
165302

020000
020000

005060
005052

020000
020000
005016
075777

2974
2975
2976
2977
2978
2979
2980
2981

PAGE 60

165214

052777
012700

020000

100000

MOVB

#8377, arxoeur

i%:

005030
005022

sSET UP FOR ERROR MSG

0377 TEMP1
SHIFT

TO BE SHIFTED CHAR
# OF SHIFTS

BIS
BIC
CLR

#CLK,aTXCSR
FCLK.QYXCSR
RO

BCC

ROR

TEMP1

;FORCE CARRY

:BR IF CARRY CLR

:EQUIV OF BITW

BIS
BIC

#CLK,3TXCSR
#CLK.aTXCSR

:POKE CLK UP
Poxs CLK DOWN

MOV
BIC

aTXCSR,R1
#075777 .R1
gg.m

;COMPARE EXP VS ACT

HLT

;BIT WINDOW DID NOT MATCH ACTUAL DATA
:BIT,...ALSO CHECK DNA

DEC

SHIFT

;# OF SHIFTS

MOV
MOV
BIC

CMP

BEQ
HLT

013754

#100000,R0
aTXCSR.R1
#77777 .R1
RO,R1
43
3

:ACTUAL
*SAVE BITW & DNA

:DO IT AGAIN ?

;NOW POKE CLK TO SEE DNA
BIS
#CLK,aTXCSR

004760
077777

sPOKE CLK UP
:PUKE CLK DOWN

#ITW.RO’

BNE

013756
013756

;LOAD DATA CHAR

BIS

gé';

004770

TXCSR,R3

;POKE CLK TO GET INfOSYNCRONIZATION

:POKE CLK

“EXPECTED
=ACTUAL
:SAVE DNA ONLY
:COMPARE EXP VS ACT .

;:DNA SHOULD BE SET

:IF DNA DID NOT SET

:CHECK WORD LENGTH SELECT LOGIC

SCOPE

::THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION
:;0F THE TRANSMITTER SECTION.
21T ALSO CHECKS DNA TIMING
DE
: SYNINT
* *MO
::LENGTH:EIGHT PLUS PARITY

2997
2998
2999

2 ;PARITY:0DDPAR

;sCHARACTER:377

3001
3002
3003

3007
3008
3009
3010
3011

'SYNINT'EIGHT'EVEPAR!26.3PARCSR

MOV
MOV

2995

3005

MOV

005367
001352

SEQ 0057

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

002000

2969
2970
2971
2972

2991
2992
2993

037426
005110
000377
000377
000011

165264

2967

2983
2984
2985
2986
2987
2988
2989

15 :46

012767
012767

014010

014016

052777
012777
052777

012777

000036
016202
000400
030000
000400

004020

165140
165122
004722

004710

004706

004700

TST30:

MOV

#30,TSTNO

BIS
MOV
BIS

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

MOV

#.EOP NEXT

:SAVE THIS

:GO TO THIS TEST WHEN THRU

sSET MAINTENANCE MODE & SEND
;NOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)
MOV

#MINT
! SEND ,@TXCSR

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

MACY11 30A(1052)
21-NOV=-78
18-JuL~
P11
15:54
|

014024

012777
0
012767

052777
042777
005000
006067
103002
052700

052777

15:46

037026
004666
000377
000777
000011

004666

020000
020000

004636
004630

004664
165072
165060

020000
020000
004574

#SYNINT 'EIGHT ' ODDPAR ! 26 , @PARC SR
rx;gn.ns
:SET UP FOR ERROR MSG
#377.3TXDBUF
:LOAD DATA CHAR
#777,TEMP1
*TO BE SHIFTED CHAR
#9. SHIFT
¥ OF SHIFTS

BIS
?{g

#CLK,aTXCSR
:ng.arxcsn

ROR
BCC
BIS

TEMP1
:FORCE CARRY
2s
‘BR IF CARRY CLR
#81TW.RO
;EQUIV OF BITW

BIS
BIC
MOV

#CLK,@TXCSR
#CLK.QTXCSR
STXCSR,R1

ggg

gg.n1

;COMPARE EXP vS ACT

HLT

:BIT WINDOW DID NOT MATCH ACTUAL DATA

DEC

SHIFT

:# OF SHIFTS

MOV

#100000, RO

BIC
CMR
BEQ

877777 .R1
RO,R1
43

;POKE CLK TO GET INTO SYNCRONIZATION

004606
004600

075777

BIC

164772

014176
014200
014200

052777
012700

020000

042701
020001
001401

077777

100000

00454¢

#075777 .R1

:POKE CLK UP
:POKE CLK DOWN

:POKE CLK UP
*POKE CLK DOWN
*ACTUAL

*SAVE BITW & DNA

:BIT,...ALSO CHECK DNA

BNE
1s
DO IT AGAIN ?
;NOW POKE CLK TO SEE DNA
BIS
#CLK,@TXCSR
:POKE CLK

004536

MOV

104003

HLT

=
104400

SEQ 0058

MOV
MOV
MOVB
MOV
MOV

165042
002000

PAGE 61

aTXCSR,R1

*EXPECTED

*ACTUAL

*SAVE DNA ONLY
*COMPARE EXP VS ACT

:DNA SHOULD BE SET

*IF DNA DID NOT SET

*CHECK WORD LENGTH SELECT LOGIC
SCOPE

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUoD.P11
18-JuUL~ 78 15:54

15:46

PAGE 62

3048
9

SEQ 0059

;END OF PASS

STYPE NAME OF

TEST

JUPDATE PASS COUNT
JCHECK FOR EXIT 7O ACT=11
JRESTART TEST
.EOP:

014440
017065
164760

164754

165150

000010
000010

RUNIT:

ZERO:

164726
164720

012767

016767

000034
000174
000001

EERESRERR
SR8

31
3
3
3

164676

164660
164660

164654
164654

?E%

#10,BASEIV

:NEXT BLOCK (VECTORS)

ROL

ROTADD

BIT
BEQ

ROTADD ,ACTREG
RUNIT

;UP DATE ROTATING POINTER
;1S IT THE LAST DEVICe
:TO BE TESTED IN THIS PASS ?
sTEST THIS DEVICE FOR ACTIVE STATUS
sIF NOT ACTIVE, TRY NEXT ADDRESS
s CALCULATE NEW PARAMETERS
<YES IT WAS ACTIVE,TEST THIS DEVICE
:0K! ,NOW SET UP ROTATING
;POINTER FOR NEXT MULTIPLE PASS

MOV

, DUBASE
BASEADD

164600

MOV
ADD
MOV
ADD
MOV

BASEIV,DURIV
#2 BASEIV
BASEIV,DURIS
#2 BASEIV
BASEIV,DUTIV

164564
004300

MOV
MOV

BASEIV,DUTIS
ggRIV.BASEIV

BYTE

6,2

CLR

LSTERR

003702
164630
000002
164614

000002

MOV

JSR

ADD

14440
1 4642

OUTCRY:

1 4446

CCC:

1 EET

sARE ANY DEVICES ACTIVE ?

TYPE
MCOW
:NO
MOV
ACTREG.RO
:DISPLAY ACTREG
HALT
sSELECT SOMETHING TO RUN @ ACTREG:
SELECT SWITCHES & HIT CONTINUE (PUT SWO0 =1)
. START
:START OVER AGAIN...... YOU DESELECTED EVERYTHING
ADD
#10,BASEADD
:NEXT BLOCK (ADDRESSES)

KEEPADD ,BASEADD
KEEPIV ,BASEIV
PC ,REPLAY

REPLAY:

:
UMP AROUND
:NO,J

;YES

MOV
MOV
JSR

2%:

sARE YOU RUNNING MULTIPLE DEVICES ?

RUNIT

PC,REPLAY
RESTRT

164634

014446
014452
014456

ACTREG

cCC

JSR
JMP

000002

1
1
1

TST

BCS
164714

TEST

,OUTCRY

.DEVICE
MULTD

BNE

017077

;TYPE NAME OF

TYPE
TSTB

BEQ

164766

014274
014302
014304
014310
014314

qTYPE
MEPASS
CONVRT

(LR
INC

#1,ROTADD

CCC

PC ,DUADDR

#2 BASEIV

ARFLG
PASCNT

sRESTORE BASE ADDRESS
cRESTORE BASE INTERRUPT VECTORS
CALC NEW PARAMET ERS
:JUMP AROUND REPLAY
:SET UP FOR NEW ADDRESSES
:CREATE NEW ADDRESSES

:CREATE DURIV
s CREATE DURIS
s CREATE DUTIV
CREAYE DUTIS
;RESTORE

sCLEAR LAST ERROR P(
;CLEAR ERROR FLAG
sUPDATE PASS COUNT

CZDUD=D MACY11 30A(1052)

CZDUDD.P11

21-NOV=78

18-JUL=-78 15:54

106 014462 016777 164442
105 014470 013701 000042
106
107

014474
014476

001405
000005

3109

014502

000240

111

0145

113

014516

15:46

PAGE 63

164412

MOV
MOV

108 014500 004711

LOGICAL :

gno 014504

000240

gng

012767

014510

ooogz.o

BEQ
RESET

NOP
NOP

163260

RESTRT: MOV®

3114 014520 012767 003446
gug 014526 000167 166714

164366

MOV
JMF

CKSWR

§H§
014532

3121

014532 000424

3123
3124
3125
3126
3127

01453
014540
014546
014552
014556

3122

§128

014560

129 014562
gwo 014566
131 014570

022626

012637
000403
016767

014602
014604

000002

3137

014614

001407

3139

014620

105777

3140 014624 100027
3141 oucig 017700

31:.; 0146

3146

150
151
}gg
154

é}gg

000417;

164322

164312

“CHECK FOR “G

014650

026767

164250

005267

164254

10141
105067

164362

014670
014676
8}2;%

012767
016767
016716

000005
164214
164204

014712

00140

014664

014714

MOV
MOV
ST
MOV
B8R

G, =(SP)
218 and
ar177060
(SP)+,a#4
2s

:SAVE CONTENTS OF ERROR VECTOR
*SET FOR TIME OUT
:TIME OUT ON X OR ?
*RESTORE ERROR VECTOR
*GO TO NEXT TEST

2%:

MOV
BR
MOV

(SP)+.aW4
3
NEXT ,RTRN

005067

000432

164316

4$:

RTI
swxxx END OF CODE FOR THE

,
164264

3$:

TIST:

164234

CMP

MOV

164236

18%:

164224
164210

B8R

BEQ

@TKCSR

3s
aTKDBR,RO

BIT
BNE

#SW11,aSWR
28

LPCNT, I COUNT

2%:

3$:

MOV
MOV
g?‘x’

BRX:

TSTB

BLOS
CLRB

BRW:

RTRN, (SP)

#SW14, SWR

INC

164244

(SP)+,(SP)+

CKSWR
BIT
BPL
MOV

164254
004000

014644

:IF RUNNING ON THE X OR TESTER CHANGE

164260

032777
001

s}gg

3159

#TST1,RTRN
TST1

:PREVENT INTERRUPTS (PRIO: 7)

1%:

000004

014634
014642

3147 . 014656
3148 014660
§u.9

#340,PS

013746 000004
012737 014560 000004
005737 177060
012637 000004

3138 014616 000432

3145

PC,(R1)

iwwex START OF CODE FOR THE X OR TESTER w##awas

3135 014604 104413
3136 014606 032777 040000

gu.
144

JSR

*IF NOT, CONTINUE TESTING

.SCOPE:

313§ 014576 016716

3133
3134

RESTRT

:DISPLAY PASS COUNT
*CHECK FOR ACT=11 OR DDP

:SCOPE LOOP AND INTERATION HANDLER

3119

3120

PASCNT ,aL IGHTS
62 R

NOP

000340

104413

SEQ 0060

CLR

1407

432

LPCNT

3%
ERRFLG
LPCNT

#5, 1COUNT
NEXT ,RTRN
RTRN. (SP)

*THIS INSTRUCTION TO A 'NOP' ‘(NOP=240)

JCLEAR THE STACK AFTER A TIMEOUT

*RESTORE ERROR VECTOR
:LOOP ON PRESENT TEST
“SET UP NEXT TEST IN RTRN

*SET UP STACK FOR RTI
X OR TESTER waswws

:CHECK FOR “G
*LOOP ON CURRENT TEST ?

:TEST TTY FLAG

:CLR DONE BIT

“IF A TTY KEY IS STRUCK GO TO NEXT TST
SINHIBIT ITERATIONS

;CHECK FOR ITERATION CNT FINISH
;SET UP ITERATION COUNT
*SET UP NEXT TEST IN RTRN
“SET UP STACK FOR RTI
;RESTORE 'BEQ_18'* INSTRUCTION
*RESTORE ‘BR 3$'' INSTRUCTION

;CHECK FOR FREEZE ON CURRENT DATA

014716

106413

.SCOP1: CKSWR

:CHECK

FOR G

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JuL-78 15:54
160
161

1e§

}g‘

014720
014726

014730

0147

032777
001402

016716
2

001000

15:46

PAGE 64

164152

164164

BIT
BEQ

1$:

}gg

167

168

014736

014740

014744
014752

1;;

014756

173

3174

175
176

g;g

014754

014762

014764

014770
014772

014774

010546

017605

062766
105715

0014

000002
000002

105777

164126

112577

164122

100375

000770
012605

.TYPE:

000002

1%:
28:

3%:

000002

014776

010346

3183

017667 000004

015000

015016

189

015022 012704

015026

015032

012703

105777

000007

164046

100375

§19§
193

142714
121427

000200
000025

10440;
00075

017254

3191

015040

3194

015054

197

198
199

3200

3201

3zo§

3203
3204

015044
015050

015056
015062

015064

015070
015072

015100

015106

117714

001003

000015

117777

164010

105777

100375

aS(sm RS
#2,2(SP)
(RS)

el
:LOOK FOR 'D

QTPCSR

:TEST DONE BIT

BPL

B8R
MOV

18
(SP)+,RS

RTI

(RS)+,aTPDBR

;TYPE CHAR

‘DO IT AGAIN UNTIL

164004

1$:

MOV

TSTB

B8PL

MOVB
BICB
CMPB

BNE
2008:
164012

28:

CMPB

BEQ

MOVB

TSTB

BPL

LINSTG:

815132

015142

015144

DEC

001350
000402

BNE
B8R

010446

owgso
104402

012603

00000

016412
017254

#2,4(5P)

# INBUF ,RG

#7.R3

@TKCSR

@TKDBR, (R4)

#200, (R4)
(R4) 425

2008

TYPE ,MCRLF
BR
LINST1

104402

015122

MOV

LINSTE: MOV

015120

R&.=(SP)

@4 (SP)
, .MSG

TYPE

810346

015116

R3,=(SP)

ADD

015114

015110
015112

72
12604

TSTB

005303

1§
15136
1
msng

BEQ

015106

885 37
140

JINST1:

164042

122427

0014;;

8151 4
151

ADD
1STB

MOV

MSG:

020044

3190 015036

gws
199

RS,=(SP)

MOV

000010

104402

186 815020 000000

MOV

.INSTR: MOV

010446

184 01501:5 062766 000002 000004

3187

LOCK, (SP)

RTI

;ASCI1 STRING INPUT ROUTINE

g1 1

185

MOV

MOVB

.flg

182

#SW09, aSWR
1%

;TELETYPE OUTPUT ROUTINE

169
170

171

SEQ 0061

MOV

TYPE

MOM

ST
BEQ

(R4)+, 415

INSTR?

@TKDBR,aTPDBR

QTPCSR

13
. INSTG

R3,=(SP)

R4 .=(SP)
SRDSW
4008

TYPE ,MCRLF

4008:
BR
INSTR2: MOV
MOV
RTI

LINST1
(SP)+,Ré4

(>P)+ R3

JIS IT <*u>

'0'*

IS SEEN

—

MACY11 30A(1052)

KRR
000~

| CZDUDD.P1T

18-JUL-78

21-NOV-78

15:54

15:46

PAGE 65

sCONVERT ASCII STRING TO OCTAL
015146
015150

010546
010446

15123
015162

012567
012567

000170
000166

015172
015176

112567
112567

000162
000157

815152 016605

.PARAM: MOV
MOV

000004

27 015202

015206

00500

3230

015214

122714

323§

015222

3229 015210 012704
3231

323

015220

001420

000067

015253 002415

3234,
3235
3236

015230
015234
015236

121427
003012
142714

000060

015244

122714

000015

3240
3241
3242

015252
015254
015256

3244

015262

015542

152405

3239 mszsg 001414
5

3243

3245

3246
3247
3248
33515.3

006305
006305
006305

015260

000760

015266

001003

015270
015274
015276
015300

122714

000015

005737
001023
104404
000742

016412

MOV

015302

015316

3254 015306
3255 015310
3256 015314

MOV

)

'$:

9
70

#15, (R&)

CMPB

(R4) 460

BEQ

BLT

. CMPB

#15, (R4)

ASL
ASL
ASL

RS
RS
RS

BNE

1208:

TST
BNE
INSTER
BR
~

PARERR

(R4) 467
PARERR
#60, (R4)

PARERR: CMPB
)

PARERR

CMPB
8GT
BICB

BEQ

#INBUF R4

CMPB

BISB

015322

020567

000046

136705

000036

101365
020567 000036
103762
001357

LIMITS: CMP

(R&)+,RS

LIMITS
1%

#15,(R4)

;1S FIRST CHARACTER A <CR>

A#RDSW
PART]

1S CKSWR ROUTINE BEING USED

1208

PARAMI

RS, HILIM

BHI
CMP
8LO

PARERR
RS,LOLIM
PARERR

BNE

PARERR

BITB

]

gg;

RS,4(SP)

JTEST TO SEE IF NUMBER IS WITHIN LIMITS

3253

(R5)+.LOBITS
(R5)+.ADRCNT

PARAM1: CLR

§22§12

(RS)+.DEVADR

MOVB
MOVB

000015

000060

(R5)+,LOLIM
(RS)+.HILIM

MOV

020044

121427

4($P) RS

MOV
MOV

o1oseg 000004

RS,=(SP)
R&,-(SP)

MOV

26 015166 01%567 000164

3252

SEQ 0062

LOBITS,.RS

;STORE NUMBER AT SPECIFIED ADDRESS

015324
015330
015332
15333

016704 000026
010524
062705 ooooo;
1os§97 00001

15342

001372

015350
015352

000002
000000

15344 812604
15348 12605

015354

000000

1$:

PARTI:
1
LCLIM:

HILIM:

MOV
MOV
ADD
DECB

DEVADR R4
RS, (R4S +
#2.RS
ADRCNT

MOV
MOV

(SP)+ R4
(SP)+ RS

BNE
RT

0
0

’

CZOUD=D MACY11

(1055)1sggznov-7a

CZDUDD.P11

18-JUL=~7

7§
73

000000
000000

;‘s'

015356
015360

15:46

PAGE 66

015361

ADRCNT=LOBITS+1
*2SAVE PC OF TEST THAT FAILED AND RO=RS

015362

016667

000004

163604

.SAVOS: MOV

32%(1)

s;
83
84
gas
89
gga

015370 010567
015374 -010467
015400 010367
015406 010267
015410 010167
015414 010067

%‘%

§ 015422 016700
3293 015426 016701
% 015432
016702
015436 016703
3296 015442 016704
3297 015446 016705
3298

015452

3302
303
3064

015454
015456
015460

104402
017254
010046

305
3306
3307
3308

gsoo

015462
015464
015466
015470

015472

010146
010346
010446
010546
017601

163574
163566
163560
163552
163544
163536

000012

314

015522

112167

317

815”3

116705

320

0155

315 °‘55§3' 81 167
316 0155
16

00015

144
140

000132

015542
8155453

012700
1040

020104

321

015554

703

000060

324
325
306
327

015564
015570
015572
015574

2704
006
002
005305

100000

32;
32

015560
015562

703

110320
826;04

RTI

RS, SAVRS
R& . SAVR&
R3.SAVR3
R2.SAVR2
R1.SAVR1
RO, SAVRO

;RESTORE RO=RS

.RES05: MOV
MOV
MOV
MOV
MOV
MOV
RTI

MOV
MOV
MOV
MOV

.
002402
000002
000154

112167

MOV
MOV
- MOV
MOV
MOV
MOV

.CONVR: TYPE
MCRLF
.CNVRT: MOV

C€16767
769
012167

318
319

SAVRO,RO
SAVR1 -R1
SAVR2.R2
SAVR3.R3
SAVR4 -Ré4
SAVRS -RS

;CONVERT OCTAL NUMBER TC ASCII AND OUTPUT TO TELEPRINTER

015476
015504
015512

015513

SV0S5:
:

163530
163526
163524
163522
163520
163516

310
311
§1§
1

4(SP) ,SAVPC

:SAVE RO=RS

88 015420

%‘}3

SEQ 0063

DEVADR: 0
LOBITS: O

;9
g;g

‘

177770

MOV

163444
000012
1$:

MOV
ADD
MOV

MOVB

RO,=(SP)

R1.=(SP)
R3.=(SP)
R&.=(SP)
RS =(SP)

" @12(SP),R1

TEMP, TEMP3
#2,12(SP)
(R1)+,WRDCNT

28:

3$:

MOV
MOV

#TEMP,RO
R4 R3

ADD

ogso R3

MOVB
ASR

BIC
ASR
ASR
DEC

(R1)+.SPACNT

3(R1)+,BINWRD
BINWRD _Ré4

BIC

(R1)+.CHRCNT

MOV
MOV

MOVB

CHRCNT.RS

#177770.R3

R3,(RO)+
R4

#100000,R4
R4
R
RS

JSHIFT FOR NEXT #

JCLUGE TO STOP BIT 15 PROPAGATING.
;DITTO
DITTO

ZDUDD P11
15576

001

15600 012
020144
15604 114
15603 585
000062
1561
1374
15614

SEQ 0064

105767

1
01

00140
11g72

1
8156

oomg
10501

105367

15636
015640

104402
020144

fi:.

015650

016767

015672
015674

015676

nmnag
-<no> (R3)+

5%:

- BEQ
MOVB

6%
#040,(R3)+

68:

BNE
CLRB

$
(R3)

48:

000040

000043

163274

002226

MOV

000000

TEMP3,TEMP

(SP)+.RS
(SP)+.Ré4
(SP)+.R3

BINWRD: 0

;COMPARE THE FIRST CHARACTER IN THE fELEYYPE INPUT

BUFFER TO THE CHARACTERS W' AND "Y',
;IF THE CHARACTER IS 'N'' CLEAR THE FLAG
*IF THE CHARACTER IS 'Y'' SET THE FLAG
015706

122767

263

015714

10501

365

015720

122767

000131

112715

177777

36§ 015712 00100,

364 815716 000406
266 015726 001005
015

368 015734

015740
015742

015744

000116

002132

.SETFLG:MOV

CMPB

BNE

CLRB

062716 000002

000002
101.424

002116

18:

28:
3$:

000755

a(SP) ,RS

#'N, INBUF

(RS)

;IS IT W'
2

;000

CMPB

#'Y,INBUF

;IS IT 'Yy2

MOVB

#-1,(RS)

;377

BNE

ADD

RT]
INSTER

B8R

#2,(SP)

.SETFLG

)

:RETRY

; TRAP DISPATCH SERVICE

ARGUMENT OF TRAP IS EXTRACTED

374,

*AND USED AS OFFSET TO OBTAIN POINTER

3;5

§79 015746 ongaa
378 015750

162716

*TO SELECTED SUBROUTINE

000002

gg 315754
17616
000000
15760
16
%

WRDCNT: 0
CHRCNT: 0
SPACNT=CHRCNT
+1

361

381

WRDCNT
1$

RTI

000000
ooooog
01567

360 015700 017605 000000

gPAcN

TYPE
MDATA

MOV
MOV
MOV

9
0

SPACNT

DECB

DEC
BNE

56
357
ggg

367

TSTB

9 o15293 000002
0
1
2

BNE

MOV
MOVB
DECB
BNE

000055

1 01564 005337 000024
g 015646 001323

015656 012605
345 mggg 01%604
349 01
012603

815762

15763

01577

16 ‘"%2;

716

17616

001

000000

.TRPSR: MOV

SUB

MOV
TRPOK: ASL
BIC

ADD

MOV

(gm
-(SP)

:GET PC OF RETURN

mrom (SP)

*CLEAR UNWANTED BITS

a<§m <sp>

#.7RPTAB, (SP)
a(sp) (SP)

*=pC or TRAP
SGET
T
MTIPLY TRAP ARG BY 2
*POINTER TO SUBROUTINE ADDRESS
;SUBROUTINE ADDRESS

CZDUD=D MACY11

CZDUDD.P11
s.

(10

18-JuL~

)152}‘-'0\!-78

15:46

PAGE 68

015776 000136

JMP

386
01

01601

1061

-9

1601
160

1404
11667

336

160

91
S

01600

01601

16026

020000

1667

163116

105067

163216

104402

016032
01160
016034 162705 000002
1eot.g 011504
01604
304
016044
061504

03
05

016054
016060

1605:'5'8
01

704
012467

000046

016074

105767

163146

016102

005767

000042

016110

104410

13
1%

016114
016122

112767
1046402

177777

19
17

01613
0161

005767
oo1l.o$

000004

omog

11467
1403

10 016108 001014
1; 016112 01624
15

016124
016134

016140

005767

omsg 000000

21 016144 001402
zg 016146 104410
016152
016154

26 01618
27 0161
28 016164

104407
005777

100005
10046

01617

016174

016176
33
01
3% 81 1

1%:

}

%9 8162

38 01
390 016234

ERRFLG

MOV
SUB
MOV
ASL
ADD

(gm RS
#2 RS
(RS) R4
R4
(RS) ,Ré

ADD
MOV

# .ERRTAB, R4
(R4)+,ERRMSG

SAVOS

#177001 ,Ré4
R4

MoV

(R4)+,DATAHD

MOV

(R4) ,DATABP

TSTB

ERRFLG

BEQ

TYPMSG

BNE

TYPDAT

DATABP

TYPMSG: CONVRT

ERTAB0

163124

ERRMSG :

MOVB
5"’5
TST
BEQ

TYPE

DATAHD: 0

000004

;INHIBIT ERROR TYPE OUT ?

(iP).LSTERR

ASL

:CHECK FOR “G

1
(SP) ,LSTERR

BIC

TYPDAT: TST

BEQ
CONVRT

#-1,ERRFLG

DATAHD
TYPDAT

DATABP

RESREG

DATABP: 0

RESREG: RESOS
HALTS:
TST

162720

ASWR

BPL
EXITER
PUSHRO

016600 000002

MOV

HALT

mzeog

2(SP) RO

POPRO

10441

5;97 162730

EXITER: CKSWR

32777

000400

162670

gw;

002000

162660

12706
177

001100
162654

1997

HALTS

29 01617g 000000
30

;GO TO SUBROUT INE

#SW13,3SWR

BEQ
MOV

10440

19 016138 000000

24
25

CKSWR

BIT

BNE

020660
0

81 467

8150

JHLT:

04 177001

163070

163110

96
97
98
599
00

(SP)+

;ERROR HANDLER

289

SEQ 0065

16767 162670 162664

INC

;CHECK FOR G

BIT

#SWO8, aSWR

:LOOP ON ERROR ?

Séé

gmo.asm

;ESCAPE TO NEXT ON ERROR ?

#>TACK, SP
aRTRN

SREINITIALIZE SP

BNE
1$:

ERRCNT

MOV

MOV
JMP

NEXT ,RTRN

;SET UP FOR NEXT TEST

016746
010667
012767
000000

2%:

RTI

ERTABC:

002

SAVPC

.PFAIL: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

oo
o

161534
162676
016306

161522

MOV

1%:

HALT

016706

016326

2600
012767

N
Q

016306

R Lo

0000

016412

RO,-(SP)
R1,=(SP)
R2.=(SP)
R3,-(SP)
R4 ,=(SP)
R5.,-(SP)
24 ,-(SP)
SP,SAVSP

#RESTART
24
1%

;SAVE RO-R5 ON PROCESSOR STACK

sSAVE STACK POINTER
:SET UP FOR POWER UP TRAP
cHALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
162660

016250
00034

RESTAR: MOV

161470

161434

1%:

(SP)+,R5
(SP)
+ R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0
#_.PFAIL,24
#340,PS
#STACK,SP

BNE

CLR
INC

CONVRT

PFTAB
TYPE
MPFAIL

CLR
CLR

PFTAB:

;SET UP FOR POWER FAILURE

TEMP
TEMP

ERRFLG
LSTERR

JMP

aRTRN

BYTE

6.2

;RESTORE STACK POINTER
;RESTORE RO-RS

sCHECK SWITCH REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING
;OF LOC.176.
;LOCATIONS USED:

000000
005737
001042
022767
001036

SAVSP,
SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RTRN

3488
3489

SEQ 0066

;ENTER HERE ON POWER FAILURE

PAGE 69

oo
R

016264
016270
016274

R
&R

000002
000001
006
001174

016240
016242
016244
016246

RPNV
IR Y
3'S

PIIIIIIISSY
v
wviwwn
O AR AV WA
=

55153

3440
3441
344;
%‘

15:46

—

CZDUD-D MACY1 gOAUOS ) 21-NOV=78
CZDUDD.P11
18-JUL~-78
15:54

000042

000176

.CKSWR:

162450

RDSW:

WORD

TST

a#s?

CMP

#2REG, SWR

BNE

ourt

ouTt

:SOF TWARE SWITCH REGISTER PRESENT
JNO, GET OQuT

CZDUD-D MACY11 30A(105 )152;2'{)%78
CZDUDD.P11
18-JuL=~7

016432

105777

3497 016436 100033
398 016440 017767
399 016446 042767
3500

016454

3502
3503
3506
3505
3506
3507
3508
3509
3510

162442
177600

000007

016464
016470
016474
016500
016506
016510
016512
016514
016516

104402
005137
104402
104411
104403
104405
000000
177777
000176

016542
016412
016547
016534
016557

3512
3513
3514
3515

016522
016526
016532
016534

104402
005037
000002
000001

017254
016412

3517
3518
3519

016540
016542
016547

000176
005015
015

3521

016557
564

0460
020075
016570
005015
020061
026504
042520
1
000012
005015
051117
042522
005015

3511

016462

016520

3516 016536

3523
3526
3525
3526
3527
3528
529

3530
3531
3532
3533
534

3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3349
3550
3551

016570
016576
016604
016612
01 6620

016622

O
016636
016644
016652

016660

016666
016674
016702
016710
016716
016724
016725
016732
016740
016746
0167564
016762
016770
016776
017004
017012
017020

001021

000

006

042504

053111
047117
051040
042524
051104
000
015
054440
047125

046120
0“5;9

020122
005015
04204 0
035105

PAGE 70

162446

122767

3501

15:46

TSTB

176352
176344

176336

SEQ 0067

@TKCSR

BPL
MOV
BIC

ouT
@TKDBR, .MSG
#177600. .MSG

BNE

ouft

CMPB

#7,.MSG

.BYTE

SIS IT A <*G>

0,1

TYPE ,MCRLF
OUT:
CLR
NRDSW
RTI
SWREGC:
1

002

.BYTE

6.2

043536
051412
000
047040
000

000
051127

SCNTG:
S$MSWR:

SWREG
.ASCIZ
.ASCIZ

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

053505

SMNEW:

.ASCIZ

042012
055103
020104
042040

030525
052504
040524
006440

042526

042522

*READY, GET CHARACTER
*AND STRIP OFF
*THE GARBAGE

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

001

040440
051523
051461
044526

:YES,WAIT FOR

NEW= /

.EVEN
MTITLE: .ASCIZ

<15><12><12>/DU11 CZDUD-D TAPE D /<15><12>

052103

MVECTO:

<15><12>/VECTOR ADDRESS-/

020124
2503

MREGAD: .ASCIZ

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

MMULT:

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

042104

.ASCIZ

042503

051105
051126
043505
020122
051505

041440
046117
051511
042101
026523

040412
052517
044516
066125
020105
042503
054450
024516
040514
053105
042522

042522
051040
043516
044524
2
020123
047440
5
052123
041511
042503

.ASCIZ

MLASTD: .ASCIZ

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

| CZDUD-D MACY11 30A(1052)
CZDuDD.P11

017077

18-JuL-78 1

015

15:46

DEVICE: .ASCIZ

/=DEVICE

044012

053517

MCOW:

.ASCIZ

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

041501

051124

83546%

052125

MRANGE:

.ASCIZ

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

053517

MQM :
ASCIZ
MCRLF:
.ASCIZ
MPFAIL: .ASCIZ

MEPASS:

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

3579
3580
3581
3582

017250
017254
017257
017264

3588
3589
3590
3591
3592
3593
3594
3595
3596
3597

017330
017336
017344
017352
01
01
017371
017375
0176402
017410

047111
051107
005015
043117
020123
042040
15
15
020124
005015

051505
047105
050040
040524

047522
000123
020104
051501
042520

051012
052012
041520
047514

000
051505
000055
045503

3599
3600

017426
017432

042514
052040

052103
051505

042105
037524

3602
3603
3604
3605
3606
3607

017446
017453
017460
017466
017474
017500

047040
015
051120
054526
046105
005015

026451
042012
047511
046040
000055
020043

3601

017416

017440

047440

024040

SEQ 0068

044388

017167

000055
020040
005015
040

PAGE 71

842508

3570

3598

015

21ZN0V-78

000077
000
050040
043040

020116

020131

042523

.ASCIZ

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

MR:
LASCIZ
MTSTPC: .ASCIZ

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

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)=/

051117

000
020125
044522
053105
043117

CZDUD-D MACY11 30A(105 )152;2N0V-78
CZDUDD.P11
18-JuL-

3640
3641
3642
3643
3644

3645
3646
3647
3648

3649

017764
017772
020000
020006
020012

020020
020026
020034
020042

052123
0
020040
000015

051511
054040
052512
021440
020077
020122

051440
044515
050115
020066
054450
024516

MWIREG:

.ASCIZ

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

051511
051040
046525
032443
024040
7040

051440
041505
042520
044440
020131
026451

MWIRES: .ASCIZ

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

044412
020124
047105
045040

020123
046103
041101
046525

MWIRE4: .ASCIZ

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

051117

047040

MEXTJ:

.ASCIZ

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

MSTATUS:

.ASCIZ

<12> <15>/

051516
042105
047440
000055
052101
046440
020040

020123

n
~

—b

000
044412

032043
024040

020122
037516

040524
037440
020122
020040
051525
050101
005040

%‘g%}

3656

020044
020104
020144

000040
000040
000040

INBUF:
TEMP:
MDATA:

/ <12> <15>

.BLKB
.BLKB
.BLKB

4C
40
40

:ttttt.tt.ttt.tt!t.tntttttttttttfi'thtttt.ttttttttltt'ttt'ttt'

sUTILITIES

3658

;ttttttt.ttttttt!tttttttt'tttttttt'ttt'ttt!Qttt't'tttttt'tt't

3659

3661
3662
3663

MAP

;BUFFERS FOR INPUT=QUTPUT

3657

3660

STATUS

.EVEN

3650

3653
3654
3655

SEQ 0069

020103
020123
052103
030440
024462

044440
046114
054450
024516
1

PAGE 72

047131
051101
042514
024040
020122

020131
026451
015

N
&~

017724
017732
017735

042520
044440

3635

017710
017716

051440
044103
042523
042105
047440
000055
005015
041505
020124
051105
047111
047440
000055
005015
041505
045040
020122
7516
051117
000
015
050117
020122
042514

3633

3630
3631

3627
3628

3621
3622
3623
3626
3625

017506
017514
017522
017530
017536
017544
0175646
017554
017562
017570
017576
017604
017612
017614
017622
017630
017636
017644
017652
017660
017661
017666
017674
017702

3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
gg;g

15:46

020204
020210
020214

006367
006367
006367

000044
000040
000034

;THIS UTILITY CALCULATES PRIORITY LEVEL

DULEV:

ASL
ASL
ASL

DUPRT
DUPRT
DUPRT

;SHIFT LEFT
;
:

CZDUD-D MACY11 30A(105 )1 21-NOV-78
CZDUDD.P11
5:54
18-JuL~

006367
006367

000030
000024
000020
000001
000037

15: 46

PAGE 73
ASL
ASL

DUPRT
DUPRT

SUB

#1,LESST

MOV

000020
000012
000004

BIC
DUPRT:
LESS1:

000054
000046
000042
000034
000030
000022
000016
000010
000004

SEQ 0070

RTS

LEVELS
LEVEL4

DUPRT,LESS1

sMOVE THIS TO LESS1

gg?.Lsss1

s CLEAR TNZVC

sCREATE LESS1

;LEVEL TO ALLOW INTERRUPTS

;NEW DU ADDRESSES

000422

DUADDR: MOV

DUBASE ,RXCSR

000412

MOV

DUBASE ,HRXCSR

; XXxX1

000402
000400

MOV

DUBASE ,RXDBUF

:XXX2

000364
000362

MOV

DUBASE ,HPARCSR ; XXX3

000352

MOV

INC

DUBASE

INC

DUBASE

MOV
INC
MOV

DUBASE ,PARCSR ; XXX2
DUBASE
DUBASE ,HRXDBUF ; XXX3

INC

DUBASE

DUBASE , TXCSR

INC
MOV
INC

000342

2 XXX0

DUBASE
DUBASE ,HTXCSR
DUBASE

I XXX4
;XXX5

000332

MOV

DUBASE
, TXDBUF ;: XXX6

000322

MOV
RTS

DUBASE ,HTXDBUF ; XXX7
P

INC

DUBASE

DUBASE: 0

sTHIS UTILITY POKES THE MAINT DATA BASED UPON THE

000302

RPOKE:

s INFORMATION CONTAINED IN TEMP1 AND IT IS
sSHIFTED IN BY THE CONTENTS OF SHIFT

BIC

#MTDATA ,@TXCSR

ROR

TEMP1

CLR

ROR
ASR

BIC

BIS

016767
005067
012727
000000
~N

020502
020510
020514

3711
3712
3713

N
? OO O R o

BIC
BIS
DEC
BNE
RTS

160436

OoDD8:
4%:

1%:

TEMP?

TEMP2
TEMP2

;FORCE CARRY

:PICK UP CARRY IN BIT 15
:SHIFT INTO BIT 14

#BIT1S,TEMP?

;CLR BIT 15

#CLK,aTXCSR
#CLK,aTXCSR
SHIFT
RPOKE
PC

;POKE CLK
:

TEMP2,aTXCSR

;POKE MAINT DATA

;THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR

MoV
CLR

TEMP1, TEMP?
TEMP3

MOV

#8.,(PC)+

ROR

TEMP2

DEC
BNE

43
12

ADC

TEMP3

:SAVE TEMP1

CZDUD-D MACY11 30A(1052)

CZDUDD.P11

3720 020544

3721
3/2;
3723
3704

18-JuL=78

103404

020546
020554
020556

052767
000403
042767

g;gg

020564

000207

3728
3729

020566
020576

016767
005067

3727

3730
3731

020600
020604

3733
3734

020612
020616

3732

3735
3736
3737

020606
020622
020624

020630

21-NOV-78

15:54

000400

160370

000400

160360

160352
160350

000010

005567
005367

160332
177762

001371
006067
103004

.
2%:

160352

BCS

RTS

MOV
CLR

TEMP1, TEMP2
rems

BIS
#8178, TEMP1
;SET ODD PARITY
BR
38
BIC
#8178, TEMP1
:CLR EVEN PARITY
:TEMP1 NOW HAS ODD PARITY CHARACTER

MOV
0

4$:

160334

;THIS ROUT INE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER

EVEN8:

18:

ROR
ADC
DEC

BNE
ROR

160320

3738 020632 052767 000400 160304

BCC

BIS

TEMP2
TEMP3

1$
TEMP3

#8178, TEMP

020640
020642

3743

020652

062716

3745

020656

000002

3747
3748
3749
750
3751
3752
3753
3754
3755

020660
020662
020664
020666
020670
020672
020674
020676
020700
020702
020704
020706

020744
000000
000000
020760
021131
021152
021022
021131
021152
021064
021131
021152

.ERRTAB:

160040

RXCSR:

160043

HRXDBUF :

160047

160043

HPARCSR :

160043

37464
3746

3757
3758
3759

3760

020650

020710

000207

3761
3762

020712
020714

160041
160042

3764

020720

160042

3763
3765

3766
3767
3768

020716
020722

020724
020726
020730

3769 020732
3770

3771

3772
3773
3774

3775

020734

020736
020740
020742

160044
160045
160046

160047
000770
000772
000774
000776

000400

000002

160274

2%:

3$:

RTS

#2,(SP) ;ALLOW IT TO "‘CRUNCH'* INTO HLT BACK

:IN MAIN PART OF THE PROGRAM

RT]

sERROR HLT TABLE

EMO
JHLT 0
0
0
EM1
;HLT 1
DH1
DT1
EM2
JHLT 2
DH1
DT1
EM3
JHLT 3
DH1
DT1
:DEFAULT DU ADDRESSES

PARCSR: 160042

TXCSR:
160044
HTXCSR: 160045
TXDBUF: 160046

DURIS:
DUTIV:
DUTIS:

BIT ERROR (GENERAL)
REGISTER ERROR

RECEIVER ERROR
TRANSMITTER ERROR

160040

HRXCSR: 160041
RXDBUF: 160042

DURIV:

;SET EVEN PARITY

B4
38
BIC
#BI1TS, TEMP1
:CLR ODD PARITY
: TEMPT NOW HAS EVEN PARITY CHARACTER

TRPREG: ADD

HTXDBUF :

;SAVE TEMPI

#8.,(PC)+

3739
3740
3741

3742

000403
042767

PAGE 74

38:

012727
000000

006067

15:46

160047

:DEFAULT DU VECTORS

770

772
774
776

;REC INTR VECTOR

:REC _INTR STATUS
:XMIT INTR VECTOR
SAMIT INTR STATUS

;ERROR ME SSAGES

SEQ 0071

CZDUD=D MACY11 30A(1052)

CZDUDD.P11
3776
3777
3
3779

21-NOV-78

18-JUL=-78 15:54

020744
020752
020760
020766
020774
021002
021010
021016
0210%%
021030
021036
021044
021052
021060
021064
021072
021100
021106
021114
021122

036440
051117
0O
4
051511
051105
041520
043505
020122
036440
044505
051105
041520
043505
020122
036440
051516
051705
051117
000412
052123

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

3798
3799
3800
3801
3802

021131
021136
021144

105
042524
052103

050130
020104
040525

3804

021152

021154

000003

021156

001164

3807

021162

001156

3809

021166

3781

3783
3785
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796

3797

3803

3805

021130

3806 021160

3808 021164

3810

000

006

004

006

004

006

002

001160

000001

15:46

051122
000103
043505
020122
020122
051001
042524

PAGE 75

SEQ 0072

EMO:

LASCIZ

/ = ERROR PC/

EM1:

ASCIZ

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

041505
020122
020122
051007
042524

EM?2:

LASCIZ

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

040522
052124
051122
006503
044507
020040

EM3:

" JASCIZ

041505
040440
000714

DH1:
.EVEN

DT1:

;:DATA HEADERS FOR ERROR MESSAGES
LASCIZ

/EXPECTED
:

ACTUAL/

:DATA TABLES FOR ERROR MESSAGES

BYTE

6.4

BYTE

6,4

BYTE

6.2

SAVR3

SAVR)

.END

'
/ = TRANSMITTER ERROR PC/<15><12><1>/REGISTER

SAVR1

;REGISTER

:EXPECTED DATA
JACTUAL DATA

| CZDUD=D MACY11_30A(1052)
21-NOV=78
CZDUDD.P11
18~JUL=78 15:54

15:46 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0073

AMA
ACTREG
ADDBAS
ADDKEE
ADDLAS
ADDROT
ADRCNT=

002520
001216
001306
001310
001312
001322
015361

1179%
OO
93w
%08
9414
9454
3206%

1063+
1059
1060
1061
1064
3265+

1127
1226+
1297
1208
1232
3274k

1141%

1142+
1149«
=

1231

3061

3064

3074

BASEAD
BASEDU
BASEIV

001204
001364
001212

894#
924
Jore

1059*
1073
1065«

1066+
1239
1779+

1109+

1146+

1147

1153+

1155+

1226

3068«

3080+

3084

12350

3069+

3081+

308

3087+

3088

3089+

309

3091+

3092

1974

2029

| A10010= #waves GX

888
002336
BINWRD 015676
BITW = 002000
000001
000002
002000
004

1126
3315«
8004
2085
2803
7S7e
7568
7arh
7468

1130w
3376
1355
2140
2858
785
784
775
774

BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2 = 000004
BITS = 000010
BIT4 = 000020
BITS = 000040

744w
743
740
7554
7544
753
75

772
771
770
783
782
781
780

789
788
787
129
815
814
813

BITZ

750

778

811

BITO =
BIT1
=
BIT10 =
BIT11 =

BIT12 = 010000

BITEé

= 000100

BIT8
BITS

= 000400
= 001000

= 000200

BREAK =

BRW
BRX
BUFF1
BUFHRX

014712
014714
000002R
001346

BUFTXD

001

BUFHTX
BUFRXD
BYJMR

| CARDET=
CCC
CHRCNT
CKSWR =
CLk
=

001362
(001344
001305

01
014446
015674
104413
020000

7458

7510

749
7488

8164

1291
1292
6784
955¢

9614
9544
935¢

773

779

777
776
1305
1306

1268
1077
1083
1076
1082
1058

33534
1419
2195
2913
‘816

1483

2306
3023

808
807
806

3702

790

812

793
792

1803

1864

1919

2507

2582

2637

2692

2748

.
3723

3738

3740

3352
3388
1B

343
TS

1ale

1415

121

122

13T

1¢89

17k

173

1614

1625

1762

173

1758

1798

1805

31544
31554
1274
1943

1249«
1242+
1248+

1225
3310
3159
137

1806
1970

1817
1976

1859
1977

1860
1988

g1
o3
gle
2541
269

1739

2471

3221

31008
3331e
3135
11
1497

0%
g%¢
il
0530
2688

1675

2416

810

3083
3377
3113
130
1486
16r

1611

2361

809

7730
060
3313«
9%
808
1485
1670

1547

2250
298

lerr

J1%
6L
ouls
gor7
2695

1542

1678

glee
2301
gla
2578
2706

1543

1866
2026

glAS
2302
Ak
oSB4
2743

1549

1847
2005

g%
2508
e
oS85
o744

1550

1878
2031

2190
2309
duer
296
o750

1561

1914
2032

g1l
230
a7
2632
2751

1606

1915
2043

Jlo7
g3
An
0633
2762

1607

1921

2198
2%
g
2630
o798

1613

1922

2209
3
222
26k0

1933
7

gads

3833
2651
2805

1479

1969
2088

geue
75
2809
o6B
2806

CZDUD-D MACY1

CZDUDD.P11

(1052)

18-JuUL~-78

21-NOV-78

15:54

2817

CLROPT 001303
CNTLU = 104414
CNVRT = 104411
CONVRT= 104410
COUNT
001142
COUNT1
001230
CSRHPA 001352
CSRHRX 001342
CSRHTX 001356
CSRPAR
CSRRX

CSRTX
(1S

001350
001340

001354

wwnwwn

DATABP
DATAHD
DEVADR
DEVICE

016150
016136
015356
017065

DISPRE

000174

DH1

021131

DLIGHT= 177570
DMULT

001304
= 100000
DNAINT= 000040
DSC
= 100000
DSINTE= 000040
DSR
= 001000

DSWR

= 177570

02115

DTR

DUADDR

020260

DUBASE

020412

DULEV
DUPRT
DURIS
DURIV
DUTIS
putiv
EIGHT =

020204
020254
(020736
020734
020742
020740

E
EM1

E
ERRCNT

ERRFLG

ERRMSG

ERTABO

’

2970
9334

9964
990#
8704
9104
9s57#
9S3#
95%%
956# .
952#
958¢
7724

§01 9

861

gO?%

3057

3411

3422

3474

3420
34154
32724

34234

837

1034

3757

37984

3751

7278

93#

8134
7704
\ 7808
7764

§026

908

909

037

915

704

g?OS

2927

2963

2964

3679

3680

3681

3012

1244+
1240+

1246+

3754

1025

1057

1224+

7264

1024

3752

3755

3758

38034

1073«

1104
3683«

1107
3684

1239

3084
3686

3674

3675«

3676

3677«

3678

1233
3088«
1118
092«
*
1792

3661+
37724
1119
7744
773
2516

3662+

3663+

3664

3665+

3666

36704

1234

3086

3093

37714

2571

2626

2681

27%7

2792

2847

2902

2957

3432+
3102«

3148+

3394+

3407

36413«

3478+

1963

2074

2184

2295

2405

2516

2626

2737

2847

2957

1600

1853

1908

1963

2018

784H

1108

1174
1072«
1069' *
1067«
1070«
1069«
8014

3404

FILBUF
003204
FIVE
= 000000

;8?8

3409
3416
3262
35584

016124

EVPAR = 000400
EXITER 016174

98
1223«

3406
5405+«
3224
3058

752'
86

EVEPAR= 001200

1241
3505
1277

854

SEQ 0074

677

1064
1132

816242

71
1056

CROSS REFERENCE TABLE == USER SYMBOLS

1279+
1245+
1241«
1247+

3747
750

1246

853

PAGE 78

1267«
1079
1075
1081
1078
1074
1080

020744
020760

021022

15:46

753

3085

36614
117
125
1115
1237
1 536
1536

37764
37784

9224

§41

34410

34154

98“72 1853

12704
7984

3685«

3687«

3688

3689+

3690

36924

g?Blol

7904
1015«
1014+

b
;6

36744

34314

1273
1344

CZDUD-D MACY11 g()A(‘IOS )
21-NOV=-78
CZDUDD.P11
18-JUL=-78 15:54

15:46

FLAG

001222

9074

1089+

HALTS

16154

3390

34254

FRMERR= 020000

78%#

HDXEN =
10
HEREU
003132
HILIM
015354

154
1219
3223+

HOLDO
HOLD1
HPARCS

001224
001226
020722

HRXDBU
HTXCSR
HTXDBU

020716
020726
020732

HOLD

HRXCSR

001136

712

CROSS REFERENCE TABLE == USER SYMBOLS
1260

32714

9084
909#
1079«

1 565'
1266+
1245

1281
1282
82+

7654

1077+
1081«
1083+

1543
1247 .
1249

681+
3686+
690

7634
7674
37654

1075+

1241

7614

ICOUNT 001122
INBUF
0
INIFLG 001244
INSTER= 104404
INSTR = 104403

8594
1182
9204
9804
1%(7’20

3146
1186
1020
1190
13982

150+
3187
1023+
3248
1110

INSTR2 015140
1SYMOD=

3198
7974
2618
9424
94

32134
1955
2626
1065
1062

1963
2673
1230

2010
2681

1208
1066
1118+

1225
1107+
1229

VBASE
IVKEEP

JMRBY
KEEPAD
KEEPIV
LASTAD

001314

001316

001203
001206
001214
001210

LESS1
020256
LEVELO= 000000
LEVEL1= 000040
LEVEL2= 000100
LEVEL3= 000140
LEVEL4= 000
LEVELS= 000240
LEVEL6= 000300
LEVEL7= 000340
LIGHTS 001105
LIMITS 01530
LOBITS 015360
LOCK
001120
LOGICA 014500
LOKFLG 001 §47
LOLIM
015352
LPCNT
001124
LSTERR 0011
L1ESS
001336

MCOwW
MCRLF

MDATA
MEPASS

801 634
17077

1071~
7674
7664
7654
7644
7634
7624
7614
7604

36534

3370
1120

LRE1

1156

1166

1180

1193

1197

1201

1205

1296

2018

2176

2184

2231

2239

2397

2405

2452

2460

1109
3081

1153

1155

1227

3080

1136
3666+

1147
3667+

1161
3668+

1228
36714

32734

3274

310%:
92
3222«
8604
864#
9514

1299
3255
1011+
1016+
1071

1300
32704
3145+«
3101+
1233;

3146
3391

3149+
3393«

321
36554

3303

3512

35804
|

1405

1469

1533

1597

858%

1032
306
1§S€

8204

819#

71
3670

3104+

1206

= 004000

3365

1034+

017735

MINT

1238

1229+

3361

32534
3257

3
3056

= 010000

1058+
1060+
1062«
1061+

3229

3239
3225«

017254
020144
017344

MEXT)

8904
8954
8984
89%6#

SEQ 0075

1264+

12604
3253

8684

K 6

PAGE 79

1025«

3162

1040
35604
3195
3340
35904

36364
1341

3479«

104

1661

1725

1789

1850

1905

1960

2015

===

2071
2789
9314

5126
844
1054

11;1
3477
3208
1319

S41#4
S81#
5794
5944

113;
116
1297

1157

1100

3605

2347

35324

32284
1078+
1664*

405+«
784%
7924

7904
3231
3247
86;’
347
7364
7344
7384

2457

2513

2568

2623

2734

2678

3697
3524m
35954
1057«
35294

1657

SI23EN

o
wn

36444
36074

1123

1124

1224

2065
2398
2783

1288

36284

36214
36144

1334«
2119«
2837«
1344
1053
1908

1526+

1590+

1782+

2285+
3002«

2340+
313

2506+

1600

1792

2239

2350

2681

1536

1843+

1898+

1953«

2561+

2616+

2671*

2792

2902

3012

2008+
2727+

10244

1056+
3495
30

35134

1154

1101
3249

R3 &
%

8574
2064
2782«
802#
930#
803#
37114
1021
8884
3493
3057
1129
7884
982#

2402

SEQ 0076

35704

2839«
3235

3256

1244
1720+

2074+

2452«
2792«

3233
32674
1013«
34814

3430

3103«

1202

2066

POP1SP= 005726
POP2SP= 022626

8¢

1198
1194

PAREN = 001000
PARER = 010000
PARERR 015262
PARTI
015344
PASCNT 001130
TAB
016404
POPRO = 012600

S49%
34
S97#4

2181
2899
1221

8074
1022
1310
889%

015206

8104. .1335
1719
1721
2067
2120
2451
2453
2785
2838
1263
1181

PARAM1

15:46 PAGE 80
CROSS REFERENCE TABLE == USER SYMBOLS

g%0‘ NN =W 8
e
il
D
D
i
e

—

2
—

NNNNOA NN
=S ANNIN)
NS IS

lelolelelelolelels]

MITSEX

8 S N=ONVNOW g8

CZDUD=D MACY11 30A(1052)
21-NOV=-78
CZbUbD.P1
18-JuL-78 1 5:54

POPNON)—
=
I
—
VY —

1656+
2018+

397+

737+

CZDUD-D MCY11130A(105
) 21-ov-7a
CZDUDD.P11
PRTDU

1324

= 097;;6

PUSHRO= 01 0946
PUSH1S=
005746

PUSH2S=

4643

RDSW
1641
RECACT=
000
REGACT
1%{2"0
REPLAY 864 “
SEC
1 30%
RESREG 01615
STAR 016306
STRT 014510
S05 = 104407
RI
= 040000
RINTEN= 000100

RISDU
RIVDU
ROTADD

001334
001326
001220

RTRN

001114

RPOKE

020414

RTS *
RUNA
RUNB
RUNC

=
=
=
=

RUNE
RUNF

= wwwwan |
= swxxen |

RUND

RUNIT

RXCSR
RXDBUF

000004
wwwwww |
wwwwwn B
wwwwaw

= 000000

014250

020710
020714

RXDONE= 000200

RXERR = 100000

SAVPC
SAVRO
SAVR1
SA

001174
001156
001160
%1 162

SAVRG

001166

SAVR

1164

SAVRS
001170
SAVSP
001172
SAVOS = 104406
SCOPE = 104400
SCOP1 = 104401
SEND = 000020
SEREC
SETFG_

001200
003144

SETFLG= 104412

SEVEN %‘099
SEXMIT
0011
SHIFT
001140

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

[4 g 102§'

151%’

1233+

3112+

3469'

3503«

3513«

SEQ 0077

7354
4 ;‘

3209
7744
9%4x
3076
932#
3421
3455
3077
9

3246

3489%

1063
308
105

1231«
30844
1222+

614
106
3424

31124

9504
9%7#
902#

1068
1067
1064

1235+
1234+
1128+

"
‘
1140+

1142

1144~

1149

1152«

1232

3071~

3074

3078+

3114

3131«

3132

3151«

3152

3437+

3439

3480

1641

1705

1769

7374

7714
7794

34244

36974

3707

1018+

1314

1318«

1320

7834
1
1
1

53
53
53

71
71
71

149
149
149

665
665
665

59
59

74
74

152
152

670
670

323(3;#

21
21

3062

1074%
1076

7784

7874

8834
8764
774
;g:

8824

9844

9724

2109
2827

30684

3075

149

1240
1242

3098
3678«

3674
37624

3278+
3287+
86+
85+

344
329
29
294

3807
3809

83«

284

8o
54«
395
1385

97
61
1449

1577

330
047

2385

2440

2495

2551

2606

2661

2716

1998

2053

1533
c92

1597
2347

1661
2402

1725
2457

1789
2513

1850
2568

1905
2623

1960
2678

2015
2734

1540+

1558+

1604*

1622+

1668+

2274
2992

2071

1341
2126

1405
21

1469
%236

7#
1261

1055
12634

1200

1222

8004
gggl
W

2844

1 5

14
1054
1348+

2899
1195

1728
1196
1366*

1513

2219
2937

2789

37604

3805

164
882

9744
144

665

954

1199

2295
1221
1412+«

009

1203

1207

1833

1888

1943

2772

1298

2350

2405

2460

1430

1476%

1494+

1686+

1820078

21-NOV-78

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

796 *
151 L 4

SIX

SPACNT= 1;29?
=
002000
1%88
g¥2CK

578

1048

1086

1218

1720
1464

1728
1472

1784
1528

%&g 96e
7’.

KRS
b3viw

prd

S5:e o

;239

3160

1218

o288

VIS WN—=O

3 EEEEEE I
<
=

STATUS
1
S
= 000010
STFLG
001245
PSYN=

SEQ 0078
»
»

CZDUD=D MACY11
CZbuDD.P11

SYNINT= 030000

220

664
408

287
847

2295
2894

2342
902

2350
2949

72%
17«

36544
1475+

1481+

1539«

Sg*
3%

REVVENS&

88888838

2 NN
ca
WO
S

74
11x

02~

16«

18632242+

2580w
2960+

3703

3719«

1911«
248+

629+
966+

3711+

3729

1917»
298+
635+
015+

715«

733«

1673+

77%

414

723

1718
1782
1291+
1080
1379
1463*
1529«
1597
1665
1734«

17814
18424
159 *
1246
1399+«
1465
1533«
1601
1679
1735«

1952+

2670+

13974

3049

15254

DN SN

WNW-—

B
L
=

-\
N

[TLY
W)
— —

ocony

U'If;)\l!

c:nfi? gg i3

VS
W

NN
NIO W

»»
% % %%
»

%% »»

WO
H OO
-

—
—

S
s YO
e

» % »
*»
L4

SR P

97«

f;)O N=
»

199

S«

1969+

nONY

2198+

2266

2254

2264

2197+

2080~

5142'

2075

2136«

2071«

2135«

» % %

5130

1805«
1867«
1933«
2009+

1799«
1866
192
1990

1303«
1337«
1405+
1473
1542*
1607+
1677*
174;*
180
1878+
1954+
2015«

=NWVOWNnOWnNWNnO
N

1585#
16534
17174

1302«
1335«
1401+
1469
1537
1606
1671
1741+«
1806«
1868
1935
2011+

2253«

& _o..n§

24454
25054
25604
2615#
26704
27264
27814
28
28914
29464
14614
30014

191+

1897«
2615+

NNW%—J—D—!—A—.—!—J—A—D—D
oogwwo«nbau
o~
fhry
SranE
S
$7-853

2395
2450
2506
2561
2616
2671
2727
2782
2837
2892
1398
2947
3002
1462

2067«

1842+

2560+

&R —D—AB
SR OW BTNy

23354
23944

1526
1590
1654

1781+«

2505+

20634
21184
21734

2285
2340
1334

1717+

2649%

22284
2844

1653

2394»

2174
2229

2008
2064
2119

b e (N

005302

1952#
20074

3114

[« JV, ¥ ¥ YWV

005534
005766
014614
020724

IST17

1898
1953

13334

2339«

d e e o o

TST8
TST9
TTST
TXCSR

1318

1589+

%284'
001+

— NN
3 SRV - \N00

004364
00461
005050

1897#

1312

1525+

— e e

TST4
TSTS
1STé

1843

1397
2173«
2891+

= wunnnw |J

1333«
2118+
2836

TST;1

1017«
2063«
2781+

APy

004132

3200
3199

013760

3172
3174

SEQ 0079

3498

WS SRR S

TST30

TST16

851
8524
33804
37434
8614
2007+
2726

3199

e Y

TST17
TST18
TIST19
TST2

007076
007320
007542
007764
010206
010430
010652
003

319

IST13
TIST14
TST1S

003446
006210
006432
006654

141

ST
IST1I0
TST11
TST12

001110
001112
015760
020652
001126

CROSS REFERENCE TABLE == USER SYMBOLS

0000 ~NONONN
S

TPCSR
TPDBR
TRPOK
TRPREG
TSTNO

PAGE 83

. ?gfi

»”

TKDBR
001106
TLAST = 013760

15:46

3 - PN —Arw

CZDUD-D MACY11 30A(1052)
21-NOv-78
CZDUDD .P11
15:54
18-JuL-

| CZDUD-D MACY11 30A(1052)

| CZDUDD.P1T

21-NOV-78

18-JuUL-78 15:5

2347x
2411%
473%
2531

2351
2412w
474w
9547w

s
430*
507«
s

%5
24
2509«
B

ume
451*
2513+
BT

2
453+
2517
578

2641

2651%

265

6ror

gorhe

2678

2695%

2696

J706*

J789%

2793

2838+

2840%

010+

S033+

056

2971«

TYPMSG

016110

SMNEW

016557

SMSWR
016547
N
= 000036

$67
.

= 000015

.BEGIN
.CKSWR

| -.CNTLU

LCNVRT
.CONVR
.EOP
.ERRTA
CHLT
.INSTE
.INSTG
LINSTR

002142

= 021170

$037+«

1082+

2585+
2728+

2730%

596+

2734%

2798w

2972

3036
1248

2982+

2743w

752

805+

3697+

3703s
2241%

2297«

1346*

1410%

2131%

2186+

8114
8124
3410
9764

3417
1022

34204
1263

1278

3408

36114

3414

3418

1474%

SeBer

2076+

3339

2738

617+

3915, e 17 o0 5958

2020%

3704w

1538+

1794%

2633%

2762+

2639+

Q764

2640%
Q783+

2844+

3963 o04e 2970n

1855+

1910+

S00y

1965+

2518«

2573«

2628+

2683+

3476

3502

1319

3055

3058

3063

3185

3195

3207

321

3302

3504

3512

1275#
8184
7854
3312«
30694
3502
678%

3341«

33504

35184
1334

13354

1398

13994

1462

14634

1526

15274

1590

15914

1654

16554

2065#
2450
27834
3506

2119
26514
2837
35214

21204
2506
28384

2174
25074
2892

217548
2561
28934

2229
532;#

22304
2616
29484

2285
%865#

22864
2671
350034

2340
26728

2008
23414
2727

2009#
2395
27288

2064
23964
2782

13354
1781

1397
17834

13994
1 842

1461
18444

14634
1897

1525
1899#

1527#
1952

1589
19544

3504
678%
1717

1280

35194
1333
1719

20654
26449
27834

2118
24514
2836

1049

10864

9644

002630
016414

8234
%14
9544
1084
995

01
015454
014202
020660
016000
015114
015120
014776

991
989
3002
3403
829
981
3204
979

016470

SEQ 0080

2343x
2406
467%
2530%

uP
003224
USER = 000000
VOID = 000001
| WRDCNT 015672
ZERO
014256
SCNTG
016542
$E
= 000040

CROSS REFERENCE TABLE == USER SYMBOLS
2341%
2402
2466%
529%

2785%

TXDONE= 000200
TXINTE= 000100
TYPDAT 016140
TYPE
= 104402

2322
2398%
2461
9523%

708

020730

PAGE 84

2320%
2396+
2457%
2522%

2584+

TXDBUF

15:46

997

g;g’

8264
9424
95
1088
34924

35034

33044
33024
30554
37474
3
32054
32074
31814

15914

1653

16554

200 7
23414
2726

20094
239
2728%

2063
23964
278

21204
2505
28384

2173
25074
289 1

21754
2560
28934

2228
25628
2946

22304
2615
29484

2284
26174
300 1

22864
2670
30034

2339
26728
30454
9884

9904

9924

99#

8364
9434
9564
12134

8434
44n
9574

9294
9454
9584

9304
9464
9554

9314
9474
9604

9324
9484
9614

9334
94954
9624

9344
9504
35234

9354
9514
36534

9394
9524
36544

9404
9534
36554

9744

9764

9784

9804

9824

9844

9864

CZDUD-D MACY11 30A(1052)
21-NOV-78
CZDUDD.P11
18-JuL-7815:54

<INST1
-MSG

015016
015020

31854
3183«

3196
31864

3212
3498+

3499+

PFAIL
-RESO5
.SAVO5
.SCOPE
.SCOP1
.SETFL
.START

016250
015422
015362
014532
014716
015700
001420

827
987
985
973
975
993
839

1010
32924
3278#
31194
31554
33604
10084

34478

3468

3371
1018

3067

PARAM

.TRPSR
.TRPTA
TYPE

015146

015746
001366
014736

983

831
969%
977

15:46 PAGE 85
CROSS REFERENCE TABLE == USER SYMBOLS

32194

3377%
3382
3167#

3500

SEQ 0081

CZDUD~-D MACY11 30A(1052)
21-NOV-78
CZDUoD.P11
18-JUL~78 15:54

HLT

PRGEND
PRGFRT

PUSSYF

RSETUP
TSETUP

$BEGIN
$BINAR
$BUFFE

7394
1637
1994

2037

6784
6784

3048
679

6784
6784

1335

2424
2823

6784

%&5%

1363
1683

2436

2230

1375
1695

2049

2479
2878

1399

1527

2148

2547
2976

1591

2160

2590
2988

1655

1649
1811
203

602
031

1719

1503
1823

2215

2645
3043

1783

1509
1829
2258

2657

1844

2507

2562

2617

1386

1450

1514

1578

1642

1706

1770

1193
1110

1197
1130

1201
1156

1205
1165

1296
1309

2743

2749

2798

2804

2853

2859

1401
1899

1463
1901

1465
1954

1527
1956

1529
2009

159N
201

$CONVR
$ONA
$EOP
SGETFL
$GE TPA

6784
6784
6784
6784
678%

3299
1322
3048
1120
1099

T
$INSTR

6784
678%

5
3178

$MRR

6784

$MRW
$MSG

6784
6784

3524

%83%

2638

2687

1335
1785

1337
1844

SRXACT
$SCOPE
$SCOP1
$SETFL
$SE TVE
$START
$STRIP

2535
2933

1445
1765

2451

3650

$POKER
SRCNET
SRECAC
$REG
SRESET

1463

2105

1439
1759

2396

6784

$SMRRW

2491
2921

1427
1747

SEQ 0082

2341

$CABLE

6784
6784

2093

2286

678%
6784
678%

$1S08
SMATCH

1381
1701

15:46 PAGE 87
CROSS REFERENCE TABLE == MACRO NAMES

2672

1555
1872
2270

2700

1899

2728

1567
1884

2314

2712

1954

2783

1573
1927
2326

1619
1939
2369

1631
1982
2381

2009

2065

2120

2969

3018

1719
2122

1721
2175

2756

2838

2768

2893

2811

2948

1209

6784

2914

6784
6784
6784

678%
1783

2177
%86;

2230
2619

6784
6784
6784
6784
6784
678#
6784

3116
3156
3354
823
1000

2232
2672

1399
1846

228%
2674

2288
2728

2341
2730

2343
2783

2396
2785

2398
2838

2451
2840

1593
2065

2453
2893

1655
2067

2507
2895

1657
2120

2509
2948

2562
2950

2564
3

CZDUD-D MACY11 30A(1052)

{ CZDWOD.P11
$SYMBO

SSYNCR

STRAPS
STRPAR

STRPDE
$TRPSR
$TSTNO
$TYPE

18-JuUL=7

678%

691

678¢
678¢

964
1834

6784

2607
6784

2662
972

678%#
678¢

3372
1333

678%

3164

2173
3001

flsunxau
SVARIA
SWORDF
SWORDO
SWORDP

6784
678¢
678#
678#
678#

. ABS.

021170

ERRORS DETECTED:
CZDUDD.BIN,

2228

21-NOV~78

15:54

1889

2718
974

1397

2284

1944

2773
976

1461

<339

15:46 PAGE 88
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0083

1999

2220

2276

978

986

988

2828
1525

2394

1781

2615

1842

2670

842

000
0

CZDUDD . SEQ/CRF /SOL/NL : TOC=(CZDU11.HLO/EQ:RUND,CZDU17.PAR,(ZDU11.KET,CZDUDD.P11
SECONDS
RUN-TIME RATIO: 132/22=5.9
CORE USED:
19k
(37 PAGES)

RUN-TIME: 8 12 1

2331

2386

2641

992
1897

2726

1952

2781

2007
2836