Digital PDFs

AH-8685D-MC

January 1979

80 pages

Original

41MB

view download

OCR Version

57MB

view download

Document:	CZDUCD0 DU11 RECEIVER TIMING TESTS JAN 1979 bw
Order Number:	AH-8685D-MC
Revision:	000
Pages:	80
Original Filename:	CZDUCD0__DU11__RECEIVER_TIMING_TESTS__AH-8685D-MC__JAN_1979_gray.pdf

OCR Text

RECEIVER TIMING TESTS

AH-8685D MC

CZDUCDO

JAN 1979

EHQIIIIEII

FICHE1 OF
1

MADE
IN USA

130‘(1852)

78 16:4

21=NOv=78

15:40

PAGE
1

SEQ 0001

IDENTIFICATION

PRODUCT CODE: AC-8684D-M(

THE

PRODUCT NAME:

CZDUCDO DU11

RELEASE DATE:

Jun 1978

MAINTAINER

DIAGNOSTICS

INFORMATION IN THIS DOCUMENT

IS SUBJECT

OFFLINE RCVR TIMING TESTS

TO CHANGE WITHOUT NOTICE AND

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

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

CIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE Of

RELIABILITY OF

ITS SOFTWARE ON EQUIPMENT

(C)

1973,

THAT

IS NOT SUPPLIED BY DIGITAL.

1578 BY DIGITAL EQUIPMENT CORPORATION

21-NOV=-78

15:40

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,
m ggNTl'&ES EXERCISING ALL DEVICES IN THIS FASHION UNTIL

THE DUT1 OFFLINE RECEIVER TIMING TESTS VERIFY THAT THE
RECEIVER LOGIC AND ASSOCIATED ERROR FLAGS
ASSERT
AT THE PROPPER TIME

REQUIREMENTS

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

SYNCRONCUS/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

FOR ABSOLUTE LOADER

017500

8k
12K
16K
20K
24K
28k
STARTING PROCEDURE

‘.
A

037500
057500
077500
117500
137500
157500

NOTE :

BEFORE PROCEEDING IT IS IMPORTANT TO
TO REALIZE

IF ONE DOESNOT

HAVE THE DUT1 SET '.P T0 THE
DEFAULT PARAMETERS
( SEE SECTION

252)

21-NOV-78

15:40

PAGE 3

SEQ 0003

8 OF THIS oocun5~r>

SET SW00
=

THEN ONE MUST

AND ANSWER THE PARAMETER

QUESTION noufx
A

aad

6.1

il A

CONTROL SWITCH SETTINGS

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

4.1.1

4.1.2

AFTER PROGRAM LOAD

174.

(INITIAL PROGRAM START)

ALL CONSOLE SWITCHES DOWN

TO MODP'FY 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)
.

SWo1=1
4.1.4

4.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
‘10CK ON TEST'' WILL DEFAULT TO TEST 1
STARTING ADDRESS
THE STARTING ADDRESS FOR ALL TESTS IS

THE RETARTING ADDRESS FOR ALL TESTS

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

NOTE:IF

TYPE

'DUT1

CZDUC-D TAPE C'' (ONCE ONLY)

THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING

CZDUC-D
CZDUT1.HLO

MACY11 30A(1052)
20~-NOV~78 16:48

21-NOV-78

15:4"

PAGE
4

SEQ 0004

WILL BE TYPED AFTER THE PRCGRAM IDENTIFIES ITSELF:

SWR=XXXXXX NEW=

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

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

SUREKOOX NEw= | (REFER 10 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
FOLLOWED BY A <CARRIAGE RETURN>

TESTED

IF AN INCORRECT ADDRESS IS TYPED .THE PROGRAM WILL
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4

TYPE '**'

4.3.3.6 THE PROGRAM WILL TYPE 'VECTOR ADDRESS-'' AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD
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 ?*'
(Y OR N)="* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
4.3.3.9 TYPE IN THE APPROPRIATE ANSWER
<CARRJAGE RETURN>

YES OR NO FOLLOWED BY A

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

AND WILL

THEN REPEAT THE MESSAGE OF 4.3.3.8

"NO"* ANSWER IS GIVEN: JUMP TC SECTION 4.3.3.12
"YES'' ANSWER IS GIVEN:THE NEXT QUESTION IS ASKED

CZDUC-D
CZDUT1.HLO

MACY11 30A(1052)
20-NOV-78 16:48

4£.3.3.10
6£.3.3.1

21-NOV-78

15:40

PAGE 5

SEQ 0005

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

ADDRESS OF THE DU11

TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCCRRECT 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

IF AN 'OUT OF RANGE'' ADDRESS IS TYPED

IE. MORE 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

TO BE TESTED FOLLOWED

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

TYPE "'’

IF A DEVICE ADDRESS !OWER THAN 1ST DEVICE ADDRESS IS TYPED...........
....5CHOOLS OUT......... THERE 1S 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 RETURND>

EEM\;;E)TMYIQLL'%‘}”PLE DEVICES MUST BE AT THE SAME PRIORITY

IF AN INCORRECT LEVEL

AND
4.3.3.14

4.3.3.15

IS TYPED

,THE PROGRAM WILL

REPEAT THE MESSAGE OF 4.3.5.12

zgngTEg

TYPE '**'

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
gz ?'f(CARRl?GE RETURN>. (NOTE:ALL MULTIPLE DEVICES MUST

IF AN INCORRECT ANSWER IS TYPED ,T4E PROGRAM WwlI!

AND WILL REPEAT

THE MESSAGE OF

4.3.3.14

TYPE ‘"'

CZbuC-D
CZDUT1.HLO

MACY1] 302(‘1.852)
20-NOV-78 1
6£.3.3.16

21-NOV-78

15:40

PAGE 6

SEQ 0006

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 RETUUD.(M)TE THAT ALL MULTIPLE DEVICES
"US BE THE SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '7*'
AND
WILL REPEAT THE MESSAGE OF 4.3.3.16
4.3.3.18

THE PROGRAM WILL TYPE ‘IS SEC REC JUMPER # 5 IN ?
(Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

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

4.3.3.20
4.3.3.21

# 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 EXTERNAL 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

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL

AND WILL REPEAT THE MESSAGE OF 4.3.3.22
4.3.3.24
4.3.4

THE PROGRAM WILL TYPE 'R'' TO INDICATE
HAS STARTED AND WILL COMMENCE TESTING AT TEST

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

THAT
1

TYPE ‘"'
IT

IS SELECTED

.».1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED

IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200,

IS\?(E) SE%E%T SWO0=1 AND ANSWER ‘NO*' TO THE MULTIPLE DEVICE QUESTION
4.3.4.1

LOAD 000200

THE

SAME)

CZDUC~D

| CZDUT1.HLO

MACY11 30A(1052)
20-NOV-78 16:48

21-NOV-78

15:40

PAGE 7

SEQ 0007

6£.3.4.2 SET SW01=1
4.3.4.3 PRESS START
NOTE:IF THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR'S OPTION)
4.3.4.4 THE PROGRAM WILL TYPE "TTEST 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 TO
BE STARTED FOLLOWED BY A <CARRIAGE RETURN>
4.3.4.6 THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT
TESTING AT THE SELECTED TEST

IT HAS STARTED

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

SEE NOTE IN 4.3.4 FOR MORE DETAILS

IS SZLECTED

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:

AND THE PROGRAM WILL
TESTING AT TEST 1

THIS LOCK ON TEST WILL BE

TYPE 'R'' TO INDICATE

THAT

IGNORED

IT HAS STARTED

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

52)

4.4

21-NOv-78

15:40

PAGE 8

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 DUT1
, WHICH IS NOT AT THE DEFAULT
VALUES ,YOU NEED ONLY GO THROUGH THE
TEDIOUS QUESTIONING
AND ANSWERING ROUTINE ONCE.
THE FOLLOWING COMBINATIONS OF SWITCH REGISTER SETTINGS WILL
ALLOW YOU ACCESS TO THE STATUS MAP,

Sw07=1

2) START AT 200
3) THE DIAGNOSTIC WILL
AND BYPASS ALL OF

NOTE :

IT IS

GO TO THE STATUS MAP

THE QUESTIONING ROUTINE.

EXTREMELY IMPORTANT THAT EITHER YOU HAVE

JUST ANSWERED THESE QUESTIONS DURING A PRIOR DIAGNOSTIC
OR THAT YOU HAVE MANUALLY ENTERED THE CORRECT VALUES

FOR VECTOR ADDRESSES ETC.,IN THE AREA DESIGNATED
FOR THE STATUS MAP. IT IS IMPORTANT THAT
THIS
BE PERFORMED

BEFORE

STARTING AT 200.

THE DIAGNOSTIC HAS NO METHOD

THAT THE

STATUS MAP HAS INDEED

TO DETERMINE

BEEN_LOADED CORRECTLY.

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

IF BOTH SWO7 AND SWOO (SWITCH REGISTER SWITCHES)

ARE SET

,(EQUAL TO 1),

SEEING SWO7 SET,

THE PROGRAM WILL IGNORE SWOO AND

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.
THE USE OF SWO00
IS EXPLAINED IN GREATER DETAIL IN SECTION
4.3
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 OUT A

MAP UNLESS

THE PROGRAM PARAMETERS ARE BEING RESELLCTED

BY PUTTING SWOO=1. (ON)

THE MAP WILL

STATUS MAP
13007 177777

LOOK LIKE:

SEQ 0008

CZbUC-D
CZDU11.HLO

MACY11 30A(1052)
20-NOV-78 16:48

21-NOV-78

15:40

PAGE 9

SEQ@ 0009

1302/ 000000

13047 177777
THE BYTES ARE DEF INED AS FOLLOWS:

1300

THE NUMBER OF SYNCHRONOUS CHARACTERS REQUIRED FOR

SYNCHRONIZATION.
SEC
TRANSMIT JUMPER
SEC RECEIVER JUMPER
OPTIONAL JUMPER

1301
1302
1303

1304
1305
AND IF

MULTIPLE DEVICES (NO=0 , YES=
1)
EXTERNAL MODEM BYPASS? (NO=0 ,YES=

IF THE BYTE_IS O , THE JUMPER IS NOT CONNECTED

THE BYTE

IS 377 ETC.

THE JUMPER SHOULD BE CONNECTED.

OPERATING PROCEDURE
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

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

IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH
REGISTER (LOC. 176) IS USED.
CONTROL :
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF

TYPE CONTROL G <*G>;

THE SOF TWARE

THIS CAN BE ACCOMPLISHED BY

SWITCH

THIS WILL ALLOW THE TTY TO ENTER DATA INTO

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

THE SOF TWARE SWITCH REGISTER.)

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

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.

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

OPERATIONAL SWITCH SETTINGS
Sw15 =1
HALT ON ERROR
w14 =1
LOOP ON CURRENT TEST
SWw13 =1
INHIBIT ERROR TYPEOUT
Sw11 =1
INHIBIT ITERATIONS

CZbUC~D
CZDU1T1.HLO

MACY11 30A(1052)
20-NOV=7
-78 16:48
SW10 =1
SWO8 =1
SWo7 =1
Sw02 =1
SW01 =
SW00 =

21-NOV=78

15:40

PAGE 10

SEQ 0010

ESCAPE TO NEXT TEST ON ERROR
LOOP ON_ERROR
USE STATUS MAP PARAMETERS
LOCK ON TEST
RESTART PROGRAM AT SELECTED TEST
RESELECT VECTOR AND CONTROL REGISTER ADRESSES
EPARAMETERS AFTER A PROGRAM RESTART

TO INHIBIT "END OF PASS'' TYPEOUT = TURN TELETYPE OFF
ERRORS
ERROR HALTS

THERE ARE FOUR DISTINCT ERROR TYPEOUTS

NOTE:

IF THE SOFTWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT

THE THE OPERATOR IS REQUIRED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE.
THE FOLLOWING WILL BE 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 HANDLER +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 PC

16XXXX

WHERE

EXPECTED

YYYYYY

16XXXX IS THE ADDRESS OF

ACTUAL

212211

THE FAILING DEVICE REGISTER

WHERE YYYYYY IS THE EXPECTED CONTENTS OF

WHERE 222271 1S THE ACTUAL CONTENTS OF

$.1.3

THAT REGISTER

PC +2 = RECEIVER ERROR P(
REGISTER
EXPECTED

ACTUAL

WHERE 16XXXX 1S THE ADDRESS OF

THE FAILING RECEIVER (RXDBUF) REGISTER

16XXXX

YYYYYY

2212211

WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF
WHERE 222721 1S THE ACTUAL DATA CONTENTS OF

6.1.4

PC +2 =.TRANSMITTER ERROR PC

16XXXX +

EXPECTED

YYYYYY

WHERE 16XXXX IS THE ADDRESS OF

THAT REGISTER

ACTUAL

212211

THE FAILING TRANSMITTER (TX:SR) REGISTER

WHERE YYYYYY IS THE EXPECTED CONTENTS OF

WHERE 777727 1S THE ACTUAL CONTENTS OF

THAT REGISTER

CZbUC~D
CZDU11.HLO

MCY118302(1352)
20-NOvV=7

21-NOV=78

15:40

PAGE 11

6.1.5

ERROR DESCRIPTIONS
SEE LISTINGS FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

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

REQUIRED TO CONTINUE TESTING

6.2.2

Sw15 =1
IF_THE PROGRAM IS RUN WITH SW15 =1

,TO CONTINUE TESTING

AFTER THE PROGRAM HAS HALTED ,PRESS THE PROCESSOR

CONSOLE ‘'CONTINUE SWITCH'

NOTE:

6.2.3

THE PC + 2 OF THE 'HLT'' WILL BE DISPLAYED IN THE DATA LIGHTS

ILLEGAL INTERRUPTS
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN
THE TRAPCATCHER.

THE ADDRESS AT WHICH THE PROGRAM

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

RECOVER FROM THIS ERROR.

6.2.4

ADDITIONAL TROUBLESHOOTING AIDS
ERRCNT: & PASCNT:
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY.

LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS.

6.3

END OF PASS ROUTINE
THIS TYPEQUT IS MENTIONED HERE 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
YOU CAN CHANGE '7ERO:
ADD
#10 BASEIV
sNEXT BLOCK
(VECTORS)'' TO ‘'ZERO:
ADD
#0,BASE
IV
THEREBY THE VECTOR ADDRESSES WILL NOT BE'

UPDATED AFTER EACH PASS.
7.2

DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES

T
>

SEQ 0011

CZDUT1.HLO

MACY11 30A(1052)
20-NOV-78 16:48

21-NOV-78

15:40

WHEN RUNNING MULTIPLE DEVICES
FOR EACH DEVICE

DEVICE 0

,BIT 15

PAGE 12

SEQ 0012

AN ACTIVE BIT IS SET

ING UNDER TEST

FOR DEVICE 15

IE. BIT O FOR

TO DISQUALIFY DEVICES:

7.2.1
7.2.2

IF DEVICE O IS TO BE DISQUALIFIED

,SIMPLY RESTART

PROGRAM WITH SW00 =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 O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED

7.2.2.1

TO RESTART...LOAD 000200 IN SWR AND DEPRESS START....
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING.

Tolalol ssconss OR ..... LOAD 000200 WITH SWOO =1 AND DEPRESS START....
ANSWER THE QUESTION :1ST DEVICE : ETC.cvvvesecnas
«+..THE PROGRAM WILL CONTINUE WITH DEVICE O

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

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

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

PRESENTLY "HOLD:'' =20
IS SUFFICIENT TIME ON AN 11/20 MACHINE.
IF RUNNING ON AN 11/40 OR AN 11/45 "HOLD:'* MUST BE PATCHED TO 40

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

TO USE THE 'XOR'' TESTER ,THE BRANCH AROUND THE ‘‘XOR'‘
CODE MUST BE PATCHED TO A 'NOP''. (SEE LISTINGS FOR DETAILS)
DEFAULT PARAMETERS:
1S. DEVICE: RECEIVER CONTROL REGISTER ADDRESS= RXCSR:

160040

VECTOR ADDRESS-

DURIV: 770

ARE YOU RUNNING MULTIPLE PEVICES ?- NO

MULTD: O

LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESSDU PRIORITY LEVEL# OF

LEVEL 5

SYNC (CHARS SELECTED -

IS SEC XMIT JUMPER # 6 IN 7=

IS SEC REC JUMPER # 5 IN ?-

LASTADD: C

DUPRT: LEVEL 5
2

SYNCNO:

YES

IS OPT CLR ENABLE JUMPER # 4 IN ?-

377

SEXMIT: 377

SEREC: 377
YES OPTCLR:

377

CZDUC-D
CZDUT1.HLO

MACY1] 30A(1052)

20-NOV-78 16:48

21-NOV-78

15:40

PAGE 13

DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER

CONNECTOR ON (H315)-

YES

SEQ 0013

JMRBY: 377

PROGRAM DESCRIPTION

9.1

THIS PROGRAM PERFOFMS THE OFFLINE RECEIVER TIMING TESTING
OF THE DEVICE
SEE LISTING FOR DETAILS

10.

FLOW CHARTS:

LISTINGS

RECEIVER FLOW,TRANSMITTER FLOW,TRANSMITTER & RECEIVER FLOW

CZbuC-D
CZDU11.PAR
675
676

MACY1]1 30A(1052)
21-NOV=78 15:17

000000' 000000G

21-NOV-78

15:40

PAGE 15

SEQ 0014

CZbuC-D
CZbuCD.P1

MACY11 30A(1052)
18-JUL=-7815:52

21-NOV-78

15:40

PAGE 18

2
SEQ 0015

.ENABLE ABS
;DUT1

CZDUC-D_TAPE C
;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

STARTING PROCEDURE

;LOAD PROGRAM
:PRESS START
‘
:PROGRAM WILL TYPE 'DUT1 CZDUC-D TAPE C '’

:PROGRAM WILL TYPE 'RTM TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE ('’
;AND THEN RESUME TESTING

sSWITCH REGISTER OPTIONS

SW15=100000
SW14=40000
SW13=20000

;=1,HALT ON ERROR
;=1,LO0P ON CURRENT TEST
=1,INHIBIT ERROR TYPEOUT

SW11=4000
SW10=2000
Sw09=1000
SW08=400
SW07=200

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

SW02=
Sw01=2
Sw00=1

;LOCK ON TEST SELECT
sRESTART PROGRAM AT SELECTED TEST
;RESELECT VECTOR AND CONTROL REGISTER

SW12=10000

SwW06=100
SW05=40
SW04=20
Sw03=10

;ADDRESS AFTER PROGRAM RESTART

MACY11 30A(1052)

18-JUL-7815:52

21-NOV=78

15:40

PAGE 19

sREGISTER DEFINITIONS
RO=%0

sGENERAL REGISTER

R2=X2
R3=%3

:GENERAL REGISTER
sGENERAL REGISTER

R1=%1

:GENERAL REGISTER

R4=%4

sGENERAL REGISTER

R5=%5
SP=%6

s GENERAL REGISTER
sPROCESSOR STACK POINTER

PC=X7

:PROGRAM COUNTER

sLOCATION EQUIVALENCIES

sHARDWARE SWITCH REGISTER LOC.

PS=177776

sPROCESSOR STATUS WORD

DLIGHTS=177570

STACK=1100

:HARDWARE DISPLAY REGISTER LOC.

:START OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS

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

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

POP2SP=22626

: INCREMENT STACK TWICE =CMP (SP)+.(SP)+

PUSH2SP=24646
.EQUIV

EMT,HLT

;DECREMENT STACK TWICE =CMP -(SP),-(SP)
;BASIC DEFINITION OF ERROR CALL

BIT15=100000
BIT14=40000
BI1713=20000
BIT12=10000

001100

DSWR=177570

177570
177570
177776

—

CZbuC-D
CZDUCD.P11

BIT1

BITO=1

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

SEQ 0016

CZDUC~D
CZDUCD.P11
767
768

769

100000

21-NOV=78

15:40 PAGE 20

SEQ 0017

nsclsren DEF INITIONS
XCSR BIT DEFINITIONS

osc=em$

:DATA SET CHANGE

Rxsm=exi1s

REC ERROR

770
144l
772
773
774
775
776
777
778
779
780
781
782
783
784
785

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

RING=BIT14
*RING
CTS=BIT13
:CLR TO SEND
CARDET=BIT12
:CARRIER DETECT
RECACT=BIT11
*REC ACTIVE
SRD=BIT10
:SEC REC DATA
DSR=BIT9
:DATA SET RDY
STPSYN=BIT8
*STRIP SYNC
RXDONE=B]T7
:REC DONE
RINTEN=BIT6
*REC INTR ENABLE
DSINTE=BITS
:DSC INTR ENABLE
SYNSCH=B]1 T4
:SYNC SEARCH
STD=BIT3
*SEC XMIT DATA
RTS=BIT2
*REQ TO SEND
DTR=BITI
*DATA TERM RDY
VOID=BITO
:RXDBUF BIT DEF INITIONS

787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803

040000
020000
010000

030000
020000
000000
000000
002000
004000
006000
000000
001000
001400

OVRRUN=BIT14
;ovmm
FRMERR=BIT13
:FRAME_ERROR
PARER=BIT12
PARITY ERROR
-PARCSR BIT DEFINITIONS
PAREN=B] T9
:PARITY ENABLE
EVPAR=B] T8
:EVEN PARITY SENSE
-PARCSR WRD DEF INITIONS
SYNINT=30000
:SYNC EXTERNAL MODE
SYNEXT=20000
*SYNC INTERNAL MODE
1SYMOD=0
+1SOC MODE
FIVE=0
*WORD LENGTH S BITS
SIX=2000
*WORD LENGTH 6 BITS
SEVEN=4000
*WORD LENGTH 7 BITS
EIGHT=6000
:WORD LENGTH 8 BITS
NOPAR=0
*NO PARITY
ODDPAR=1000
:0DD PARITY
EVEPAR=1400
*EVEN PARITY

805
806
807
808
809
810
811
812
813
814
815

100000
040000
020000
002000
0004
000200
000100
000040
000020
000010
000001

DNA=BIT15
MTDATA=BIT14
CLK=BIT13
BITW=BIT10
MRESET=RIT8
TXDONE=B]T7
TXINTE=BIT6
DNAINTE=RITS
SEND=B] T4
HDXEN=BIT3
BREAK=BIT0

817
818
819
820
821

000000
004000
010000
014000

USER=0
USER MODE
MINT=4000
mum INT MODE
MEXT=10000
*MAINT EXT MODE
SYSTST=14000
*SYSTEM TEST MODE
:TRAPCAT(CrR FOR ILLEGAL INTERRUPTS

786

MACY11 30A(1052)
18-JUL-78"15:5

804

816

100000

001000
000400

-TXCSR BIT DEFINITIONS

:DATA NOT AVAILABLE
*MAINT DATA
SCLK
*BIT WINDOW
*MASTER RESET
SXMIT DONE
SXMIT INTR ENABLE
*DNA INTR ENAB
*SEND
*HDX/F DX
*BREAK

:TXCSR WRD oermmms

CZDUC-D
CZDUCD.P11

MACY11 30A(1052)
18-JUL~78 15:52

21-NOV-78

15:40

szg

829
830
g}

000024
000026
000030

000032
000034
000036

000024

=24

015664
000340
015414

000340
015362
000340

836
837

000174
000176

000200

842

000174

000000
000000

000167

=174
001214

001100

843

2243

877

.START

:SOF TWARE DISPLAY REG.
:SOF TWARE SWITCH REGISTER

:GO TO START OF PROGRAM

;INDIRECT POINTERS

001100

001102
001106
001106
001110
001112

177570

177570
177560
177562
177564
177566

SWR:

177570

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

;SWITCH REGISTER POINTER

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

:PROGRAM CONTROL PARAME TERS
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:

0
O
0
0
0
O
0
0

LSTERR: 0

ggg

867
88
869
870
871
872
873
874
875
876

:SERVICE AT LEVEL 7
*GENERAL HANDLER DISPATCH SERVICE
*SERVICE AT LEVEL 7

.=1100

ggz
855
856
8.7
858
859
860
861
862

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

DISPREG: .WORD 0
SWREG:
.WORD 0

JMP

gzg

847
88
849
850
gg;

SEQ 0018

:SOF TWARE SWITCH REGISTER

840
841

846

PFAIL
340
LHLT

340
. TRPSRV
340

g.’iz

835

:STANDARD INTERRUPT VECTORS

827
828

PAGE 21

:SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF NEXT TEST TO BE Execmso
;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
O
0
0
0
0
0
0
0

; TEMPORARY STORAGE=DELAY TIME FOR CABLES
:TEMPORARY STORAGE= # OF SHIFTS PER CHAR
:TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
TEMPORARY STORAGE
:RO STORAGE
:R1 STORAGE

*R2 STORAGE

CZDUC=D

CZDUCD.P1
878
879
880
881
882

001164
001166
001170
001172
001174

MACY11 30A(1052)

18-JUL=78 15:52
000000
000000
000000
000000
000000

21-NOV-78

15:40

SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVWPC:

0
0
0
0
O

PAGE 22

2
SEQ 0019
;R3 STORAGE
;R4 STORAGE
:RS STORAGE
+STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

CZbuC-D
CZbuCD.P1

ooooo°3§§§§§§§§§§§§ EF R RRERLE
A L

883

¢
B

15 :40

PAGE 23

SEQ@ 0020

sPROGRAM CONVERSATIONAL PMTERS

377
377
377
377
0
377

SYNCNO: .BYTE
SEXMIT: BYTE
SEREC:
.BYTE
OPTCLR: .BYTE
MULTD:
BYTE
:
JMRBY
.BYTE
.EVEN
BASEADD :
KEEPADD:
LASTADD:
BASEIV:
KEEP]V:

# OF SYNC CHARS REQ'D FOR SYNC'ZATION
SSEC XMIT JUMPER ']
ISEC REC JUPPER "IN i
:OPTIONAL JUMPER CLR "IN
:NO MULTIPLE DEVICE FLAG

;EXTERNAL MODEM BYPASS JUMPER '‘IN'’

PROGRMOHJL”PLE DEVICE PARAMETERS
;PROG CONTROLLED 1ST DEVICE ADDR

ACTREG:

0
0
0
0
0

ROTADD:

sSAVED 1ST DEVICE ADDR
:LAST DEVICE RXCSR ADDR

:PROG CONTROLLED IV
:SAVED INTR VECTOR

¢ACTIVE REGISTER ,, MODIFY THIS

sLOCATION TO DISQUALIFY OR QUALIFY
:DEVICES (1= RWN,,,0= DON'T RUN)
:ROTATING POINTER FOR ACTREG..POINTS

-TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

:.Qtt'l"'...Qt.'.Qt".'.'.'.'t'.'..'.fi

; THESE ARE STORAGE FOR THE STATUS MAP PRINT OUT
FLAG:0
HOLDO: 0

HOLD1:0
COUNT1:0
TABLE

;

3006

FOR CONVRT ROUTINE

.tt'.tt..'t.fit'tt'..'ttt'ttfifitt

:PROGRAM CONTROL FLAGS

INIFLG:

.BYTE
.BYTE

LOKFLG:

.BYTE

STFLG:
ERRFLG:

elolele)

- B

FLAGS FOR STATUS MAP PRINT OUT (SSP)
; HOLDS RO IN STATUS MAP PRINT

: R1 _ETC.
: FOR COUNTING 3 WORDS

21-NOV-78

WN=O

MACY11 30A(1052)
18-JUL-78 15:52

;PROGRAM INITIALIZATION FLAG
sTEST START FLAG

sERROR OCCURED FLAG
sLOCK ON CURRENT TEST FLAG

.EVEN
JENattan

STATUS

.=1300

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

; MULTIPLE

MAP

Ak hhhk

s SYNC CHARS
JXMIT JUMPER
sREC SEC JUMPER
;OPTIONAL JUMPER
sMULTIPLE DEVICE FLAG
sEXTERNAL MODEM

DEVICE PARAMETERS

ADDBASE: .BLKW 1

;PROG CONTROLLED 1ST DEVICE ADDR

CZDUC-D
CZDUCD.P11
939

90
%1
%2
%3
%4
%5
%6
97
%8
%9
950
951
952

953

954
955
956
957
958
959
960
961

001310

001312
001314
001316
001320
001322
001324
001326
001330
001332
00133
001336
001340
001342

001344

001346
001350
001352
001354
001356
001360
001362
001364

MACY1] S0AC1052)
18-JUL=78
15:52

21-NOV-78

15:40

000001

ADDKEEP:

000001
000001
000001
000001
006001
000001
000001
000001
000001
000001
000001
000001
000001

000001

971
972
973
974
975
976

001366

BUFHRXD: ~.BLKW 1
CSRPAR: .BLKW
1
CSRHPAR: .BLKW
1
CSRTX: .BLKW 1
CSRHTX: " .BLKW 1
BUFTXD: .BLKW 1
BUFHTXD: .BLKW 1
BASEDU: .BLKW 1

;:DUT1 RXCSR BASE ADDR

.BLKW 1

.TRPTAB:

"ttt*tt.Q.Qiti'i.ttttfi.ttQ*Q‘.Q.tt*'i...Qt.'tQfit't.".Q"'.'tttitt'...'.*'
"'ttt'.‘ittt'ittit*fi..t*.'Iti"tli.*.Q.fi.t'fittQt.'...tti't'i'i't.tfitttt"'i

001372

.TYPE

978

001374

014412

.INSTR

980
981
982
983
984
985
986
987
988
989
990
991
992
993
99

001376

014530
104405
014562
104406
014776
104407
015036
104410
015070
104411
015074
104412
015314
104413
016030

. INSTER

979

;SAVED 1ST DEVICE ADDR

LAST DEVICE
RXCSR ADDR
:PROG CONTROLLED IV
SAVED INTR VECTOR
:ACTIVE REGISTER
:ROTATING POINTER
:DU11 PRIORITY
:DU11 REC_INTR VECTOR
:DUT1 XMIT INTR VECTOR
:DUT1 XMIT INTR STATUS
:DUT1
REC_INTR STATUS
:PRIORITY TO ALLOW INTR
: DEFAULT OR ALTERED PARAMETERS
:

1IN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS

104400
014146
104401
014332
104402
014352

977

.BLKW 1

:DEFINITIONS FOR TRAP SUBROUTINE CALLS
:POINTERS TO SUBROUTINES CAN BE FOUND

266

968

SEQ 0021

.EVEN

964
965

%9
970

ADDLAST: .BLKW 1
IVBASE: .BLKW 1
IVKEEP: .BLKW 1
REGACT: .BLKW 1
ADDROT: .BLKW 1
PRTDU:
.BLKW 1
RIVDU:
.BLKW 1
TIVDU:
.BLKW 1
TISDU:
.BLKW 1
RISDU:
.BLKW 1
L1ESS: .BLKW 1
CSRRX: .BLKW 1
CSRHRX: *.BLKW 1

BUFRXD:

000001
000001
000001
000001
000001
000001
000001
000001

PAGE 2

001366
001370

001400
001402
001406
001406
001410

001412

001414

104403

104404

.SCOPE
.SCOP1

.PARAM
. SAV0S
.RES05
. CONVRT
.CNVRT

.SETFLG

.CKSWR

SCOPE=TRAP+0

;CALL TO SCOPE LOOP AND ITERATION HANDLER

SCOP1=TRAP+1

;CALL TO LOOP ON CURRENT DATA HANDLER

TYPE=TRAP+2

:CALL TO TELETYPE OUTPUT ROUTINE

INSTR=TRAP+3

;CALL TO ASCII STRING INPUT ROUTINE

INSTER=TRAP+4

:CALL TO INPUT ERROR HANDLER

PARAM=TRAP+5

;CALL TO NUMERICAL DATA INPUT ROUTINE

SAVOS=TRAP+6

;CALL TO REGISTER SAVE ROUTINE

RESO5=TRAP+7

;CALL TO REGISTER RESTORE ROUTINE

CONVRT=TRAF+10

;CALL TO DATA OUTPUT ROUTINE

CNVRT=TRAP+11

;CALL TO DATA OUTPUT ROUTINE WITHOUT CR/LF

SETFLG=TRAP+12

;CALL TO FLAG SET ROUTINE

(KSWR=TRA"+13

;CALL

TO ALLOW SWREG TO BE LOADED FROM TTY

—

CZbuC-D
CZDUCD.P11
995
996
997
998
999

001416

MACY11 30A(1052)
18-JUL-78 15:52

21-NOV-78

104414

016104

15:40

SRR

001420
001426
001432
001440
001444
001450
001454
001460
001464
001470
001476

012767
012706
012737
005067
105067
005067
105067
005067
005067
012767
012767

000340
001100
015664
177460
177575
177454
177566
177446
177444
000001
001420

001504
001510
001512

105767
001004
104402

177534

016204

1023
1024
1025
1026

001522
001530
001536
001542

012767
012767
013746
013746

177570
177570
000006
000004

022777

177777

1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041

001516

105167

001546

012737

001562
001564
001566
001570
001576
001604
001670
001614
001620
001622
001630
001632

001402
0004
022626
012767
012767
012637
012637
005737
001005
022767
001001
104414

001554

177522

001566

176350
000024

177430
177410

177350
177344

1049

1050

.START: MOV
MOV
MOV
CLR
CLRB
CLR
CLRB
CLR
CLR
MOV
MOV

ONCE:

000004

AR R AR AR A AR AR AR

AR AR AR AR A AR AR

AR R AR AR A A A AR AR AR AR

000176
000174
000004
000006
000042

177302
177276

000176

177250

64$:
65%:
66%:

SRR

INIFLG
ONCE
JMTITLE

MOV
MOV
MOV
MOV

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

CMP

#-1,aSWR

coms

BEQ
BR
CMP
MOV
MOV
MOV
MOV
TST
BNE
CMP
BNE
CNTLUY

032777
001537

000200

177236

MAP:

INIFLG

#64$,ans

65%
66%
(SP)+,(SP)+
#SWREG, SWR
#DISPREG,LIGHTS
(SP)+ a4
(SP) + ,a#6
el
MAP
#SWREG, SWR
MAP

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

:
.
:
:
001634
001642

#340,PS
#STACK,SP
#.PFAIL ,an24
LPCNT
STFLG
PASCNT
ERRFLG
ERRCNT
LSTERR
#1,TSTNO
#.START ,RTRN

TSTB
BNE
TYPE

MOV

177316

1042
1043
1044
}&g

1047
1048

A A AR A

OF SWREG FROM TTY
R AR AR

AR RN AR

RA AR

R RN

sTYPE TITLE MESSAGE

1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021

1028

AR R

;CALL TO ALLOW LOADING

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

}882

1027

AR A

1000
1001
1002
1003
1004

1022

SEQ 0022

CNTLU=TRAP+14

.CNTLU
SRR

PAGE 25

sLOCK OUT INTERRUPTS
:SET UP STACK
sSET UP POWER FAIL VECTOR
sCLEAR # OF ITERATION COMPLETED LOCATION
:CLEAR START FLAG
sCLEAR PASS COUNT
:CLEAR ERROR FLAG
:CLEAR ERROR COUNT
:CLEAR LAST ERROR POINTER
sSET UP FOR TEST 1
:SET UP FOR POWER FAIL BEFORE
sTESTING STARTS
:HAS INITIALIZATION BZEN PERFORMED

sTYPE TITLE MESSAGE

:IF NOT SET FLAG AND DO

sRELOAD HARDWARE SWITCH REGISTER INTO POINTER
sRELOAD HARDWARE DISPLAY REGISTER INTO POINTER
:SAVE VECTORS

:SET _UP FOR TIMEOUT

sREFERENCE HARDWARE SWITCH REGISTER

;ADJUST STACK
sPOINT TO SOFTWARE SWITCH REG
sPOINT TO SOFT DISPLAY REG
+RESTORE VECTORS
sUNDER MONITOR

IS SWREG USED
; BRANCH TO CHECK FOR STATUS MAP
AR RANARAANAR AN R

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

BIT #SWO07, @SWR
BEQ $67

IS SW07=1?
IF NOT, GO TO TEST FOR Sw00=1

: NOWSET P MAP VALUES FOR PROGRAM

;

RRN

THESE VALUES FROM THE STATUS MAP WILL BE USED IN THE

CZDUC=D
CZDUCD.P11

1051

MACY11 30A(1052)

18-JUL-78 15:52

21-NOV-78

15:40

PAGE 26

SEQ 0023

; OPERATION OF THIS

PROGRAM.

1052
1053

001644
001652

116767
116767

177430
177423

177324
177317

MOVB NOSYNC
MOVB MITSEX

1055
1056
1057
1058
1059

001666
001674
001702
001710
001716

116767
116767
116767
016767
016767

177411
177404
177377
177372
177366

177305
1773
17727
177266
177262

MOVB CLROPT
MOVB DMULT
MOVB BYJMR
MOV ADDBASE
MOV ADDKEEP

016767
016767

177350
177334

177244
177230

MOV ADDROT
MOV IVBASE,

"ROTADD
BASEIV

*ROTATING POINTER
: BASE INTR VECTOR

MOV RIVDU,
MOV RISDU.

DURIV
DURIS

: REC INTR VECTOR
* REC INTR STATUS

MOV TISDU.
MOV L1ESS.
MOV a#PRTDU,

DUTIS
LESST
a#DUPRT

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

MOV CSRRX,

RXCSR

1054

1060
1061
1os§

1063
1064

1065

001660

116767

001726
001732
001740

016767
016767
016767

001762

016767

001746
001756

177416

177362
177360
177354

177220

177312

177256
177254
177250

177214

1069
1067

001770
001776

016767
016767

177332
177332

016352
016346

1069
1070
1071

002012
002020
002026

016767
016767
013737

177314
177312
001324

016336
015644
017670

1073

002042

016767

177272

1075
1076
1077
1078
1079
1080

002056
002064
002072
002100
002106
002114

1068 002006

016767

1072 002034

016767

1074

016767

1081
1082
1083

002050

016767
016767
016767
016767
016767
016767

177320

MOV

177266

016250

MOV CSRHRX,

016767
016767
000167

177232
177226
000466

016214
016210

002142

032777

000001

176730

1087
1088

002152
002156

000167
005037

000452
001222

1093

002200

1w.

1085

1086

002150

1089 002162
1090 002166
1091 002172
1092 002176

1094
1095

002202
002204

1097
1098

002212
002214

001002

012700
012701
012702
010110

060201

1099 002216
1100 002220
1101 002222
11o§

1103

1106
1105

1106

002224

002771
104403

$67:

28:

001000

002232

016767

001
001

DUTIV

HRXCSR

MOV BUF TXD,
MOV BUFHTXD,
JMP .BEGIN

TXDBUF
HTXDBUF

BIT

,aSWR

HRXDBUF
PARCSR
HPARC SR
HTXCSR
:BRANCH TO BEGIN TESTING

i3 3332232233333 3133233322333 3233222223223322%221%

BNE

#SW00

JMP _BEGIN
CLR a4FLAG

MOV
MOV
MOV
MOV

#300.R0
#302 R1
#4 ,R2
R1. (RO)

ADD
ADD

R2.R0O
R2.R1

BLT
INSTR

CLR

; RESELECT VECTOR $ CONTROL REG?

* BRANCH
: GO TO

#1000,R1

015570

176746

MOV

*RESTORE VECTOR AREA TO TRAPCATCHER
*START AT LOCATION 300

:END AT LOCATION 776
;OUTPUT MESSAGE & GET INPUT STRING

*ME SSAGE
*CONVERT STRING
“LOW LIMIT
SHIGH LIMIT

DUBASE

1
1

TO QUESTIONING

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

(R1)

167776

BYTE
BYTE

:RELOAD BASEADD

* XMIT INTR VECTOR

MRE GAD
PARAM
160000

167776

020026

., BASEADD

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

CMP

016260
104405
160000

002226

002230
002231

M A2

: SEC REC JUMPER

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

BASEDU, DUBASE

MOV
MOV
MOV
MOV
MOV
MOV

1$:

000300
000302

005011

1096 002203 022701

.LASTADD
KEEPIV
.ACTREG

015764

002122
002130
002136

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

MOV ADDLAST
MOV IVKEEP
MOV REGACT

177324

177262 016244
177256 016240
177252 016234
177246 016230
177242 016224
177236 016220

.OPTCLR
-MULTD
- JMRBY
.BASEADD
. KEEPADD

,SEREC

MOV TIVDU,

016254

: SYNC CHAR
*XMIT
JUMPER

MOVB RESE(

MOV KEEPADD

016342

, SYNCNO
TSEXMIT

*STORE AT THIS LOCATION

DUBASE ,KEEPADD ; SAVE

*MASK
“HOW MANY TIMES + 2

CZDUC=

IczoucoP11

MACY1] somosz)

18-JUL-7815:52

1107 002240 004767
1108 002244 016767
|

1109

002252

1113

002262

104403

015430
176736

21-NOV=-78

JSR
MOV

176732

INSTR

1110 002254
1111 002256
111; 002260

016236
104405
000300

MVECTO
PARAM
300

1114

020350

DURIV

002264

000776

1119

1120

1121
1122

002276
002304

016767
104403

016046

176716
176706

BYTE
BYTE

1125

INSTR

016341

:STORE AT THIS LOCATION

DURIV,.KEEPIV
DURIV.BASEIV

*MASK
*HOW MANY TIMES + 2

:SAVE
:SET UP FOR ROTATION

sOUTPUT MESSAGE & GET INPUT STRING

*MESSAGE

MULTD

:;ARE THERE -unbu.e DEVICES

002320

100406

8M]

8RR

*YES,ASK NEXT ouesnou

JMP

OUTMUL

1134

002346

002332

005067
005067

000167

176670
176666

CLR
CLR

000140

BBB:

104403

1135 002350
1136 002352

001210
001

LASTADD
1

1139

012767

1137 002353
1138
002354

002362
002366
002374

1143 002376
1144 002402
1145 002404
1146 002412
1147 002420

167776

006167
103421
062767
026767
101362

BYTE
BYTE
000001

176630
176626

176636

1%:

176622

2%:

176616

MOV
CLR
BIS
CLC

ROL
B8CS
ADD
CMP
BHI

176572
176564

056767

176572

176566

002430
002436
002444
002446

012767
016767
000414
016767

000001
176544

176562
176540

4$:

176534

176530

3$:

1156 002456
1157 002460
1158 002462

016603
104405
160000

MRANGE
PARAM
160000

1160

001210

LASTADD

1155

002454

1159

002464

002466

1161 002470
1162 002471

104403

BIS

167776

001
001

;JUMP AROUND NEXT QUESTION
;OUTPUT MESSAGE & GET INPUT STRING

*MESSAGE
*CONVERT STRING
“LOW LIMIT
SHIGH LIMIT

*STORE AT THIS LOCATION
*MASK

1
“HOW MANY TIMES + 2
:THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME

000010
176572

002422

:ON THE SYSTEM

167776

001

005067
056767
000241

ACTREG
ROTADD

ser FLAG BASED UPON INPUT STRING
IS FLAG

INSTR

MLASTD
PARAM
160000

1150

*HIGH LIMIT

MMUL T

1131 002340 016420
113§ 002342 104405
1133
002344 160000

1151
115;
1153
1154

“MESSAGE
*CONVERT STRING
:LOW LIMIT

TSTB

002336
002336

1149

:OUTPUT MESSAGE & GET INPUT STRING

SETFLG
MULTD

1129
1130

1148

PC,DUADDR
KEEPADD ,BASEADD ;RESTORE FOR ROTATION

104412
001202

002322
002326

1140
1141
1142

SEQ 0024

002310
002312

1126
1127

1128

1
&
MOV

MOV

1123 002314 105767 176662
1124

776

1115 002266
001
1116 002267
004
1117 002270 016767 016054
1118

15:40 PAGE 27

MOV
MOV
BR
MOV

INSTR

167776

BYTE
BYTE

1
1

#1 ,ROTADD

:SET UP POINTER

ACTREG
;CLR ACTIVE REGISTER
ROTADD ,ACTREG
;MAKE THIS DEVICE ACTIVE

ROTADD ;SET UP POINTER
3
*ARE YOU OUT OF RANGE ?
#10 ,BASEADD
:SET UP BASE ADDRESS
LASTADD ,BASEADD :IS THIS THE LAST DEVICE ?
2s
:NO DO IT AGAIN
ROTADD,ACTREG

:THIS ASSUMES THAT THERE ARE AT

:LEAST TWO DEVICES WHEN YOU ANSWER YES TO

*MULTIPLE DEVICE QUESTION

#1,ROTADD
:SET UP FOR LATER USE IN END OF PASS ROUTINE
KEEPADD, aasmo DITTO
OUTMUL ; CONTINUE QUESTIONS
KEEPADD , BASEADD sRESTORE

;OUTPUT MESSAGE & GET INPUT STRING

*MESSAGE
*CONVERT STRING
SLOW LIMIT
SHIGH
LIMIT

*STORE AT THIS LOCATION

*MASK
‘HOW MANY TIMES ¢ 2

S8R RS SRR TR BB R BIIINININIIITE
LR &

CZbUC-D
CZDUCD.P1

MACY11 30A(1052)

18-JuUL~78 15:52

d D d

000167

21=NOV-78

177656

15:40

OUTMUL :

PAGE 28

JMP

INSTR

sOUTPUT MESSAGE & GET INPUT STRING

4
7

;LOW LIMIT
SHIGH
LIMIT

D D e e
D
D d D

+MESSAGE
s CONVERT STRING

1
JSR _

D D e
D d D e

:IF THE CHARACTER IS *2'*

SET THE FLAG

INSTR

000061

014726

" 3s:

000062

0147107 18:

177777

17641?

D e

176436

D d

2%:

D d D d D e

e e

A ¥

MSYNC

;OUTPUT MESSAGE & GET INPUT STRING

CMPB
BNE
CLRB

#'1, INBUF
18
SYNCNO

CMPB
BNE
MOVB

#'2, INBUF
28
#-1,SYNCNO

:MESSAGE_
GISTIT

D e e e e e

‘
—

—

ONOWNEBWN=O

;000

(IS IT '2 2
:377

BR
4$
INSTER
BR
38

:RETRY

MWIRE6
SETFLG
SEXMIT
INSTR
MWIRES

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

NOP
INSTR

;OUTPUT MESSAGE & GET INPUT STRING

SETFLG
SEREC
INSTR

D d e
D

MASK

;HOW MANY TIMES + 2

PC,DULEV
:COMPARE THE FIRST CHARACTER IN
THE_TELETYPE INPUT
:BUFFER TO THE CHARACTERS "1'* AND ‘2",
:1F THE CHARACTER IS ' :CLEAR THE FLAG

d =
D
D —d
) —d
—

D e

:STORE AT THIS LOCATION

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

MWIRE4

s MESSAGE

OPTCLR
INSTR
MEXTJ.
SETFLG
JMRBY

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

SETFLG

NONINLNLNLNONONLNY

e e

;D0 IT AGAIN

MLEVEL
PARAM
DUPRT

— e e e

SEQ 0025

:SET FLAG BASED UPON INPUT STRING

sTEST START AND RESTART
002630

012767

000340

175140

.BEGIN: MOV
)

RERAAR

#340,PS
LOAD

STATUS MAP

sLOCK OUT INTERRUPTS

anxuanw

:THE
VALUES NOW BEING LOADED INTO THE STATUS MAP WILL BE
USED IN THIS PROGRAM AND
WILL BE
PASSED
TO ANY

002636
002644

032777
001132

000200

176234

:OTHER

2’,{ #5407

DU11 PROGRAMS LOADED IMMEDIATELY FOLLOWING THIS PROG.

L@SWR

; SWO7 SET, IF YES BRANCH

CZDUC-D

MACY11 30A(1052)

CZDUCD.P11

18=JUL-78

1519

116767

176324

176424

MOVB SYNCNO

1222
1223
1%24.
1225

002670 116767
002676 116767
706 1167267
002712 016767

176305
176392

176266

176405
ml.og
17637
176366

MOVB OPTCLR
MOVB MULTD
MOVB JMRBY
MOV BASEADD

1227

002%2

016767

176256

176356

MOV LASTADD

1229 002742
12;0
750
1231 002756
123; 002764
123
772
123 003000
1235
003006
12%6 003014

016767
016767
016767
013737
016767
016767
016767
016767

176244
176242
176236
017670
015352
015346
015342
015336

176344
176342
176336
001324
176326
176326
176314
176310

MOV BASEIV
MOV ACTREG
MOV ROTADD
MOV @#DUPRT
MOV DURIV
MOV DURIS
MOV DUTIV
MOV DUTIS

. IVBASE
JREGACT
. ADDROT
a#PRTDU
LRIVDU
"RISDU
.TIVDU
-T1SDU

1238

003030

016767

014772

176326

MOV DUBASE

.BASEDU

003052

016767
016767

1220
1221

1226
1228

002646

002654
002662

720 016767

1237

003022

1239

003036

1240
12641

124
124
1264
1245
1246
1247
1248
1249
1250
1251
1252
1253

116767
116767

003074
003102
003110
003116
003124

016767

016767
016767
016767
016767
016767
016767
016767

15:52

21-NOV-78 15:40 PAGE 29

176317
176312

176273

176262
176254

014644

015262

015256
015252

015246
015242
015236
015232
015226
015222
015216

176417
176412

176362
176354

176306

176260
176254
176250
176244
176240
176234
176230

1254

1259 003132

005737

001222

1261

003140

000167

000116

1263
1264

003150
003156

062737
010067

1269

3166

012767

003136
003144

003162

003174

1268 003200
1269 003204

1270 00

1571
1 ;i

1273

. ADDKEEP

*SAVED 1ST DEVICE ADDR

MOV KEEPIV

- IVKEEP

*SAVED INTR VECTOR

-L1ESS

* PRIORITY TO ALLOW INTR

MOV HRXCSR,
MOV RXDBUF,

. ADDLAST

CSRRX

CSRHRX
BUFRXD

omom. JUMPER
MULTIPLE DEVICES
.s TERNAL MODEM
:PROG CONTROLLED 1ST ADDR
:LAST DEVICE RXCSR ADDR

: RELOAD BASE INTR VECTOR
*ACTIVE REGISTER
:ROTATING POINTER
-DUT1 PRIORITY
:PEC INTR VECTOR
: REC INTR STATUS
* XMIT INTR
VECTOR
* XMIT “INTR STATUS
*RXCSR BASE ADDRESS

MOV HRXDBUF,
BUFHRXD
MOV PARCSR,
CSRPAR
MOV HPARCSR,
CSRHPAR
MOV TXCSR,
CSRTX
MOV HTXCSR,
CSRHTX
MOV TXDBUF.
BUF TXD
MOV HTXDBUF,
BUFHTXD
IR NARRNARARNRRAR
AR R R RRRRRRARRRARAR
: THE FOLLOWING CODE WILL PRINT
: THE CONVERSATIONALLY SET JUMPER
: SETTINGS FROM THE STATUS MAP
* ON THE FIRST PASS OF

SRR

1258

1267

MOV KEEPADD

.CLROPT
,DMULT
"BYJMR
., ADDBASE

* JUST AFTER THE QUESTIONING

1257

1265

SXMIT JUMPER
:SEC REC JUMPER

: THIS DIAGNOSTIC OR

1256

126%

:SYNC CHARS

MITSEX
JRESEC

MOV RXCSR

1255

1260

,NOSYNC

MOVB SEXMIT
MOVB SEREC

MOV LESS1

176274

176270
176264

SEQ 0026

003212
003216

003220

1274 003224

001402
104402

010167

812700

012701
010120

862701

020127
001372

017426

HEREU:

000001
176042

001222

000003

176034

176040

0000385

001

000002

: AND ANSWERING .

RR AR AR

SETFG:

210067 176006

AR AN TN AR RN AN AR AN RN

TST WFLAG

: TEST IF 1ST PASS

MP THRU

: AROUND IF. PASS
>

ADD #1, SWFLAG
MOV RO. HOLDO

: SET FLAG ON 1ST PASS
: SAVE RO

eeo

SETFG

rvps

MSTATUS

MOV R1. HOLD1

MOV #3. coum
no.aaur

MOV #STATUS m
FILBUF: MOV m (RGS +

ADD
#2° ,R1

001306

812700 000002*

AR AR

uP:

CMP R1,“#STATUS+6
BNE FILBUF

1
MOV #BUFF
RO ., uémt.

: IF FIRST PASS ser FLAG/PRINT

* PRINT 'STATUS w'

* SAVE R1

“COUNTER FOR WORDS PRINTED

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

: meme STATUS ADDRESS

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

* LOAD FOR PRINT OUT

:LOAD ADDRESS TO PRINT

‘

I- CZouC-D
|

18-JuL-78 1

1275

oog;}

012067

176006

MOV (RO)+,

1
1278
1279
1280
1281

003240
003244
003250
003252
3256

104402
005367
001365
016700
016701

016670
175760

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

128
1284
1285
1286
1287

003262
003266
003272
003274

012706
005737
001056
105767

001100
000042

003300

001407

003316
003320
003326

000444
032777
001416

003332
003334
003336
003340

017024
104412
001247
105767

1301
1302
1303
1304
1305

003346
003354
003362
003364
003372

012767
012767
000406
016767
016767

1307
1308
1309
1310
1311

003406
003410
003412
003414
003416

001410
104403
017011
104405
003446

1313
1314
1315
1316
1317
1318
};}8

003422
003424
003425
003426
003430
003436
003442

001114
001
001
000403
012767
104402
000177

1 ;g 00

1288
1289

1290
1291

129%
1293
1296

1295

1296
1297
1298
1299

003302
003310

003330

104410 001232

016767
016767

003400

032777

175746
175744
THRU:

011020
011014

010720
010714

000004

175552

BEQ

MOV
MOV
S%:

175703

BR
BIT
BEQ

LOAD CONTENTS

; PRINT ADDRESS/C(NTENTS PAIR

; CR AND
L
cmm H.NDS PRINTED
; GO PRINT NEXT ADDRESS/CONTENTS

000240
000240

010654
010650

010736
010732

010636
010632

175472

1%:

2%:

#STACK,SP
sSET UP STACK
6?2
:1S PROGRAM UNDER MONITOR CONTROL
3$
MULTD
;DON'T ALLOW LOCK ON TEST IF RUNNING

:MULTIPLE DEVICES
5s

BRW,TTST
BRX,TTST+2
3%
#B1T2,aSWR
1%

MLOCK
SETFLG
LOKFLG
TSTB

LOKFLG

Mov
MOV
BR
MoV
MOV

ANCP TTST
#NOP ,TTST+2
2%
BRW,TTST
BRX,TTST+2

BEQ
INSTR
MTSTPC
PARAM
TST1

BEQ

1312 003420 013214

BIT

#5w01,aSWR

TLAST

BYTE
BYTE
175456

175446

3$:
48:

1321

RTRN
1
1
BR
MOV
TYPE
JMP

sIF NO,TEST FOR LOCK ON TEST
;RESTORE NORMAL SCOPE LOOP
:DITT
:JUMP AROUND IF YES
:CHECK FOR LOCK ON TEST

sOUTPUT MESSAGE & GET INPUT STRING

:MESSAGE
sSET FLAG BASED UPON INPUT STRING
;THIS FLAG
;1S LOCK ON TEST OPTION SELECTED

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

;IF SW01=1, GET STARTING PC

sOUTPUT MESSAGE & GET INPUT STRING
:ME SSAGE
: CONVERT STRING
:LOW LIMIT

SHIGH LIMIT

4%
#TST1,RTRN
MR

aRTRN

:STORE AT THIS LOCATION
MASK
sHOW MANY TIMES + 2
START AT TEST 1
TYPE R

:START TESTING

:sTHIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER

1322
1323
1324
1325

s;SECTION ,IT USES THE ERROR FLAGS TO DETERMINE
;s THAT IT WAS SELECTED PROPERLY
: ;FRAME ERROR (FRMERR,RXERR)
¢ sMODE: 1SOC (ISYMOD)

1326

s LENGTH:F IVE

ggg

1329
1330

MOV
TST
BNE
TSTB

INSTR

003446
017005

TABLE+10

JERRRRARRAARARRATANRARARAN AR RN RN

175702

000002

SEQ 0027

CONVRT , TABLE

104403

130 o033 goisor

1306

CZoucb.P1

128%

MACY1] SOA(‘I 52) 21-NOvV-78 15:40 PAGE 30

::CHAR: 25

003446
003454

012767
012767

000001
003622

175452
175434

71ST1:

MOV
MOV

#7,TSTNO
#TST2 NEXT

;SAVE THIS
;GO TO THIS TEST WHEN THRU

MACY11 30A(1052)

18-JuUL~78 15:52

0034%

052777

000400

052777

000400

21-NOV-78

012777

000000

0142;2

003504

012777 064001

014626

003512

012777

000000

014614

003476

D i o

042777

020000

014604

3542
003550

042777
052777

020000
020000

014570
014562

020000

003556 012767 000007

003614

001401

wviwvw

i
D i

Voo~

004767 014232
016703 014526
012700 120025
017701 014516

003572
003576
003602
003606
003612
003616

003620
003620

#MRESET.@TXCSR

:MASTER RESET

AK ,BMAINTENANCE MODE

CLK 'MINT 'BREAK ,@TXCSR
w smc REG

#1SYMOD ' F IVE 'NOPAR' 0,

aPARCSR

BIC

#CLK,@TXCSR

:POKE CLK DOWN

BIC
BIS

#CLK,STXCSR
'5"‘
arxcsa

:POKE CLK DOWN
*POKE CLK UP

#CLK . @TXCSR

*POKE CLK UP

;POKE CLK TO GET LOGIC INTO smchmxunou
OV
;NOTE:

020001

MOV

104002

¥ OF SHIFTS

*DATA CHAR

1SR
MOV
MOV
MOV

PC ,RPOKE
sum IN THIS CHAR
RXDBUF,R3
OR ERROR MESSAGE
#RXERR | FRMERR ' 25 RO
sEXPECTED
@RXDBUF ,R1
ACTUAL

BEQ

64$

HLT

648:

052Tm

THE ABOVE CHARACTER IS MISSING STOP BIT

104400

MMTDATA!

M OF ans PARITY SENSE

BIS

RO,R1

~;COMPARE EXP VS ACT

;FRAME ERROR £ RX ERROR SHOULD BE SET

:IF LOWER BYTE DOES NOT MATCH IT
:PROBABLY IS A LENGTH SELECT PROBLEM

SCOPE

;;THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER

::SECTION ,IT USES THE ERROR FLAGS TO DETERMINE
$:THAT IT WAS SELECTED PROPERLY

D e

*:FRAME ERROR (FRMERR,RXERR)

*:MODE: 1SOC (I1SYMOD)
: SLENGTH: SIX
;i CHAR: 25

BIS

#1SYMOD ,@PARCSR ;SET THE MODE

exs
#SYNSCH, anxcsa -SET’ smc SEARCH
:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

D
D e
D i i
D i id
i

;MASTER RESET

:SET noos

175354

003622

012767

000002

175276

003636

052777

000400

014474

3630

003644

012767

003776

175260

003652

052777

012777 000000

000400

014462

003660

012777

064001

014452

003666

012777

002000

014440

014460

D
D i
il e

#MRESET ,@TXCSR

MOV

014576

003564 012767 000052 175352

D e

) D i s i

)

052777

SEQ 0028

BIS

;SET MAINT DATA,CLK

003520 052777 000020 014576
003526

PAGE 31

MOV

014

003534

15:40

014650

0034

) i i

i e

D i i

D i

—

R RRRR AR L A A Yt EFEIEIEITL
S 38 33 3R 177 Gt

003674

003702

003710
003716

003724

052777

042777

052777

042777

052777

000020

020000

014422

014430

014422
014414

014406

TST2:

MOV

#2,TSTNO

:SAVE THIS

BIS

MMRESET ,@TXCSR

:MASTER RESET

#MRESET.@TXCSR

-MASTER RESET

MOV

MOV
BIS

ATETS

:GO TO THIS TEST WHEN THRU

#1SYMOD ,@PARCSR :SET THE MODE

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

MOV

AMTDATA
! CLK 'MINT 'BREAK ,@TXCSR

:SET MODE # OF BITS.PARITY SENSE.ELOAD SYNC REG

MOV
BIS

#13YMOD' SIX'NOPAR
0, 3PARCSR
#SYNSCH,@RXCSR

;SET SYNC SEARCH

#CLK,@TXCSR

: POKE CL DOWN

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION..

BIC

BIS

#CLK. QTXCSR

“POKE

(LK UP
;POKE CLK TO GET LOGIC INTO smckomzmm
BIC

BIS

#CUK,ATXCSR

#CLK.@TXCSR

:POKE CLK DOWN

*POKE CLK UP

—

CZbUC-D
CZDUCD.P1

—=

MACY11 30A(1052)
18~JUL-78 15:52

1387 003732
1
003740

012767
012767

1
1391
1 g
1
1
1
1

004767 014056
016703 014352
012700 120025
017701 014342
020001
001401
104002

1397
1

1400

1401
1402
1403
1404
1405
1406

003746
003752
003756
003762
003766
003770
003772

003774

000010
000052

21-NOV-78

175200
175176

15:40

012767

000003

175122

16411

004012

052777

000400

014320

004004

012767

004152

175104

004020

012777

000000

014306

mg 004034

012777

064021

014276

012777

004000

014264

004026

1415

1418

1419
1420

1421
1422

004042

004050

052777

000400

:g JSHIFT
2. TEMP1

: or SHIFTS
CHAR

JSR
MOV
MOV
MOV
CMP
BEQ
HLT

PC ,RPOKE
sum IN THIS CHAR
axfieurfR3
:FOR ERROR MESSAGE
#RXERRFRMERR
! 25" no
;EXPECTED
@RXDBUF ,R1
CTUAL
RO,R1
;COMPARE’ sxp VS ACT
64$
2
:FRAME ERROR & RX ERROR SHOULD BE SET

:IF LOWER BYTE DOES NOT MATCH

SCOPE

000020

004056

042777

020000
020000

014246

1425
1426
1427

004072
004100
004106

042777
052777
012767

020000
020000
000011

014240
014232
175024

014254

1428 004114 012767 000252 175022
004122

004767 013702

004132
004136

012700
017701

004126

016703

004142 020001
004144

004146

004150
004150

#3,TSTNO

:SAVE THIS

BIS

#MRESET ,@TXCSR

;MASTER RESET

BIS

#MRESET.QTXCSR

MASTER RESET

MOV

NTSTSL NEXT

;GO TO THIS TEST WHEN THRU

#1SYMOD
. @PARCSR :SET THE MODE

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

MOV

;SET MODE

#MTDATA
' CLK 'MINT 'BREAK ,@TXCSR

.# OF BITS,PARITY SENSE,SLOAD SYNC REG

MOV
BIS

#1SYM
! SEVEN'NOPAR
OD
!0, aPARCSR
#SYNSCH,@RXCSR

:SET SYNC SEARCH

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,3TXCSR
Poxe CLK DOWN
BIS

#CLK.@TXCSR

T BIC
BIS
MOV

#CLK,3TXCSR
#CLK.ATXCSR
#9. SHIFT

;POK§ CLK TO GET LOGIC_ INTO SYNCAON]
ZATCLK
10NUP
'

.
.

:NOTE:

014176

MOV

120125
014166

JSR

PC ,RPOKE

Rxfi&f‘
R3

sSHIFT IN THIS CHAR
FOR ERROR MESSAGE

#RXERR mtnmzs RO
;EXPECTED
aRXDBUF ,R1
ACTUAL

BEQ

645

HLT

648:

*DATA CHAR

MOV
MOV

CMP

104002

0252TE m

:POKE CLK DOWN
*POKE CLK UP
¥ OF SHIFTS

THE ABOVE CHARACTER IS MISSING STOP BIT

nov

001401

104400

MOV

014246

004064

052777

TST3:

014304

1423

1424

MOV
MOV

;3 CHAR: 125

003776

1412

SEQ 0029

;:THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER
..sscnou ,IT USES THE ERROR FLAGS TO DETERMINE
T IT WAS SELECTED PROPERLY
m ERROR (FRMERR,RXERR)
*IMODE: 1SOC (1SYMOD)
: SLENGTH: SEVEN

1409

PAGE 32

:PROBABLY IS A LENGTH SELECT PROBLEM

1410

—

;NOTE: THE ABOVE CHARACTER IS m&sms STOP BIT

648:

104400

—

RO,R1

~;COMPARE EXP VS ACT

;FRAME ERROR & RX ERROR SHOULD BE SET

*IF LOWER BYTE DOES NOT MATCH 1IT
*PROBABLY IS A LENGTH SELECT PROBLEM

SCOPE
scTHIS TECT VERIFYS WORD LENGTH SELECT OF RECEIVER

s;SECTION ,IT USES THE ERROR FLAGS TO DETERMINE

MACY11 30A (1052)

C2DUC=D
CZDUCD.P11

21-NOV=78

18-JuL~ 78 15:5

1443
1444
}u.s

004202

012767
012767
052777
012777
052777

000004
004326
000400
000000
000400

1456 004210

012777

064001

004216

004152
004160
004166

usg 004174

1457
1458
1459
1460

004224

012777
052777

1462
1463

004232
004240

042777
052777

004246

042777
052777
012767
012767

1464

1465

1466
1467
1468
1469
1470
1471
1472

1473

1474
1475
1476
1477
1478
1479
1480

1481

1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492

1493
1494
1495
1496
1497
1498

004254
004
004270

004276
004302
004306

TST4:

SEQ 0030

MOV

#4,TSTNO

:SAVE THIS

BIS

#MRESET ,@TXCSR

;MASTER RESET

BIS

#MRESET ,@TXCSR

;MASTER RESET

MOV

#TSTS NEXT

:GO TO THIS TEST WHEN THRU

#1SYMOD ,aPARCSR ;SET THE MODE

sSET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV
#MTDATA! CLK !MINT !BREAK ,@TXCSR

MOV

#15YMOD ' E IGHT 'NOPAR ! 0, aPARCSR

BIS

#SYNSCH,@RXCSR

;SET SYNC SEARCH

BIC

#CLK,3TXCSR

:POKE CLK DOWN

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

BIS

#CLK.@TXCSR

‘POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,3TXCSR
:POKE CLK DOWN
BIS
#CLK.TXCSR
*POKE CLK UP

MOV
#10, ,SHIFT
:# OF SHIFTS
MOV
#252,TEMP1
:DATA CHAR
JNOTE: THE ABOVE CHARACTER IS MISSING STOP BIT
JSR
PC ,RPOKE
sSHIFT IN THIS CHAR

004767

004312

004316
004320
004322

MOV
MOV

RXDBUF ,R3
FOR ERROR MESSAGE
#RXERR'FRMERR!'125,R0
;EXPECTED
aRXDBUF ,R1
sACTUAL

BEQ

64$

HLT

RO,R1

;COMPARE EXP VS ACT

sFRAME ERROR & RX ERROR SHOULD BE SET

e4s

004324
004324

;IF LOWER BYTE DOES NOT MATCH IT
;PROBABLY IS A LENGTH SELECT PROBLEM

SCOPE
;sTHIS TEST VERIFYS EVEPAR PARITY SENSE

;:0F THE RECEIVER
2 sMODE :1SOC (ISYMOD)

;:PARITY:EVEPAR

ssLENGTH:FIVE PLUS PARITY
;:CHAR: 25

004326
004334
004342
004350
004356

012767

052777

000400

004364

012777

001

004372

012777

001400

1461

:SET MODE ,# OF BITS,PARITY SENSE,EBLOAD SYNC REG

1453
1454
1455

PAGE 33

ssTHAT IT WAS SELECTED PROPERLY
: :FRAME ERROR (FRMERR,RXERR)
+sMODE: I1SOC (ISYMOD)
::Lemruzsécm
;:CHAR: 1

1448
1449
1450
1651

15:40

TSTS:

MOV

#5,TSTNO

BIS

#MRESET ,@TXCSR ;MASTER RESET

BIS

AMRESET.@TXCSR

MOV
MOV

#7576, NEXT

JSAVE THIS

:GO TO THIS TEST WHEN THRU

#15YMOD .aPARCSR -SET THE MODE

:MASTER RESET

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
MoV
#MTDATA'!CLK!MINT
!BREAK ,aTXCSR
013734

;SET MODE ,# OF BiTS,_PARITY SENSE,ELOAD SYNC REG
MOV
#1SYMOD!FIVE !EVEPAR!0,aPARCSR

CZDUC=D
CZDUCD.P11
1499

1500

RN S o o p e o S PRSP RaSS

004406

052777

PAGE 34

BIS

#SYNSCH,@RXCSR

:SET SYNC SEARCH

81C

#CLK,@TXCSR

:POKE CLK DOWN

BIC

#CLK,3TXCSR

:POKE CLK DOWN

MOV

RXDBUF ,R3

:SET UP FOR ERROR MESSAGE

020000

013724

004422

042777

020000

013710

004436 016703

013666

020000

004442
004446

012700
012767

110025
000010

004462

004472
8822;2

004767
105777
100401
104000

013342
013632

004476
004502
004504
8822?3

017701
020001
001401
104002

013626

013716

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

BIS

#CLK @TXCSR

013702

BIS

MOV
MOV

174464

OCLK aTXCSR

#RXERR'PARER'ZS RO
:EXPECTED
SHIFT
:# OF SHIFTS

czsé TEMP1

JSR
TSTB
8M;
HLT

MOV
CMP
BEQ
HLT

SRXDBUF ,R1
;ACTUAL
RO,R1T
;COMPARE EXP vS. ACT
28
2
;PARITY ERROR GRXERR SHOULD BE SET

104400

R
R R R e G
R

*DATA CHAR

PC,RPOKE
.
snxrr IN THIS CHAR
aaxcsn
sRXDONE
?
18
;RXDONE SHOULD BE ASSERTED

sNOTE THAT THE PARITY BIT SHOULD
sSHOW UP IN THE DATA
;1E. BIT FIVE FOR FIVE LEVEL CODE

SCOPE

;sTHIS TEST VERIFYS EVEPAR PARITY SENSE

*POKE CLK UP

MOV

.:OF THE RECEIVER
: 1SOC (I1SYMOD)
2 sMODE
: ;PARITY:EVEPAR
..LFNGTH SIX PLUS PARITY

(¥, ]
wviwviwovorwn
(W1, ]
v

POKE CLK UP

;POKE CLK TO GET LOGIC INTO svncko~12A110~

004454 012767 000252 174462

004510

SEQ 0031

013716

052777
052777

15:40

000020

004416

004430

042777

21-NOV=78
|

¥, ]

004400

MACY11 30A(1052)
18-JUL-7815:52

HAR: 25

004512
004520
004526
004534

012767
012767
052777
012777

000006
004676
000400
000000

174406
174370
013604
013572

00455C

012777

064001

013562

004556

012777

003400

013550

004542

004564

004572

052777

042777

000400

000020

020000

013570

013532

013540

004600

052777

020000

013532

004606
004614
004622

042777
052777
016703

020000
020000
013502

013524
013516

004632

012767

000011

174300

004767
105777

013156
013446

004626

004640

004646
004652

012700
012767

110025

000452

174276

TST6:

nov
MOV
BIS
MOV
BIS

#6,TSTNO
:SAVE THIS
#TST7 NEXT
;GO TO THIS TEST WHEN THRU
#MRESET ,@TXCSR ;MASTER RESET
#1SYMOD ,@PARCSR ;SET THE MODE

#MRESET ,@TXCSR

;MASTER RESET

sSET MAINT DATA,CLK,BREAK ,BMAINTENANCE MODE
MOV
#MTDATA!
CLK !MINT !BREAK ,@TXCSR
;SET MODE

,# OF BITS,PARITY SENSE,ELOAD SYNC REG

MOV
BIS

#1SYMOD
' SIX'EVEPAR'0,aPARCSR

#SYNSCH,3RXCSR

:SET SYNC SEARCH

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION..

8IS

BIC

#CLK.QTXCSR

#CLK,@TXCSR

s POKE CLK DOWN

BIC
BIS
MOV

#CLK,@TXCSR
#CLK. QTXCSR
RXDBUF ,R3

:POKE CLK DOWN
*POKE LK UP
*SET UP FOR ERROR MESSAGE

#9. SHIFT

;4 OF SHIFTS

POKE CLK UP

;POKE CLK TO GET LOGIC INTO sv~cko~11Arlo~
MOV

#RXERR
! PARER '
25.R0

MOV

c452.rsnp1

MOV
JSR
TSTB

:EXPECTED

*DATA CHAR

PC. RPOKE
*SHIFT IN THIS CHAR
@RXCSR
:;RXDONE 2

MACY11 30A(1052)

18-JuL~-78 15:52

21-NOv-78

100401
104000

017701
020001
001401

1%:

013442

104002

2%:

104400

R BIIJNAN WA
=
\l\l\lg
-

[ ]

012767
012767

MOV
gE"O,

aRXDBUF ,R1
JACTUAL
gg.fl'l
;COMPARE EXP VS. ACT

HLT

sRXDONE SHOULD BE ASSERTED

sPARITY ERROR ERXERR SHOULD BE SET

JNOTE THAT THE PARITY BIT SHOULD
;SHOW UP IN THE DATA
sIE. BIT SIX FOR SIX LEVEL CODE

174222
174204

#7 ,TSTNO
#TST8, NEXT

sSAVE THIS
;GO TO THIS TEST WHEN THRU

052777

013404

012777

064001

013376

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

012777
052777

005400
000020

013364
013346

;SET MODE .# OF BITS,PARITY SENSE,ZLOAD SYNC REG
MOV
#1SYMOD ' SEVEN! EVEPAR !0, @PARCSR
BIS
#SYNSCH.BRXCSR
;SET SYNC SEARCH

042777
05277°

020000

013354

042777
052777
016703
012700
012767

020000
020000
013316
110325
000012

013340
013332

012767

004767

105777

001652

012772

013346

174114

174112

TST7:

MOV
MOV

000007
005062
000400
000000
000400

b e d e
S AR R R Ny
o

B8M]
HLT

SEQ 0032

;:THIS TEST VERIFYS EVEPAR PARITY SENSE
;:0F THE RECEIVER
2 sMODE :1SOC (ISYMOD)
2 :PARITY:EVEPAR
s cLENGTH:SEVEN PLUS PARITY

) D

D e

D i e

D e

Vil v vivywvwnha

D D
D
) D
e
D e
D
D
D D
D
D
D e e
D
d e
D
Dl

PAGE 35

BIS

#MRESET ,@TXCSR

BIS

#MRESET ,@TXCSR

MOV

017701
020001
001401

104002

104400

;MASTER RESET

#1SYMOD ,aPARCSR ;SET THE MODE

;MASTER RESET

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
B8IC
#CLK,@TXCSR
:POKE CLK DOWN

8IS
#CLK .@TXCSR
*POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,3TXCSR
:POKE CLK DOWN
BIS
#CLK.@TXCSR
*POKE CLK UP
MOV
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
MOV
#RXERR ' PARER ' 325 R0
:EXPECTED
MOV
#10, SHIFT
i# OF SHIFTS

MOV

013262

#1652, TEMP1

013256

PC ,RPOKE
;SHIFT IN THIS CHAR
%XCSR
sRXDONE ?

MOV

aRXDBUF ,R1

gg.R‘l

:COMPARE EXP VS. ACT

HLT

;PARITY ERROR SRXERR SHOULD BE SET

g’?g
2%:

*DATA CHAR

JSR
TSTB
BMI]
HLT

—

15:40

SCOPE

) d

CZDUC-D
CZDUCD.P1

SCOPE

sRXDONE SHOULD BE ASSERTED

sACTUAL

;NOTE THAT THE PARITY BIT SHOULD
:SHOW UP IN THE DATA
s1E. BIT SEVEN FOR SEVEN LEVEL CODE

;o THIS TEST VERIFYS EVEPAR PARITY SENSE

CZouC-D
CZDUCD.P11

MACY11 30A(1052)
18-JuUL-78 15:52

21-NOV-78

1611
161%
161
1614
005062
005070

012767
012767

000010
005246

1620
1255

005106
005112

012777
052777

000000
000400

013222
013220

}gzzls.

005120

012777

064001

013212

1626
1627
1628

005126
005136

012777
052777

007400
000020

013200
013162

1630
1631

005142
005150

042777
052777

020000
020000

013170
013162

1633
163,

005156
005164

042777
052777

020000
020000

013154
013146

1637

005202

012767

000013

1629
1632

1635
1636

1638

1639
1640

005076

005172
005176

005210

005216
005222

1641
1642

005226
005230

1644
1645
1646
1647

005232
005236
005240
005242

1643

1648
1649
1650
1651
1652
1653

005232

005244
005244

052777

016703
012700

012767

004767
105777
100401
104000

017701
020001
001401
104002

000400

013132
110125

003252

012606
013076

174036
174020

TST8:

013234

MOV
BIS

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

MOV

#MRESET,@TXCSR

:SAVE THIS
:GO TO THIS TEST WHEN THRU

;MASTER RESET

MMTDATA' CLK 'MINT !BREAK , @TXCSR

:SET MODE .# OF BITS,PARITY SENSE,SLOAD SYNC REG
MOV
#1SYMOD 'EIGHT ' EVEPAR' 0, @PARCSR
BIS
#SYNSCH.@RXCSR
;SET SYNC SEARCH

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

BIC
BIS

#CLK,3TXCSR
#CLK . @TXCSR

:POKE CLK DOWN
POKE CLK UP

BIC
BIS
MOV
MOV
MOV

#CLK,aTXCSR
#CLK.@TXCSR

:POKE CLK DOWN
*POKE CLK UP

#11. SHIFT

i# OF SHIFTS

JSR
TSTB

PC ,RPOKE
SSHIFT IN THIS CHAR
@RXCSR
;RXDONE ?

:POKE CLK TO GET LOGIC INTO SYNCRONIZATION

173730

MOV

1%:

28:

104400

#8, TSTNO
#TSTO, NEXT

;SET MAINT DATA,CLK,BREAK ,8MAINTENANCE MODE

173726

013072

MOV
MOV

BIS

1654
}222

BM]
HLT

MOV
cTMP
BEQ
HLT

RXDBUF ,R3
“SET UP FOR ERROR MESSAGE
#RXERR ' PARER' 125 R0
:EXPECTED

#3252, TEMP1
13

*DATA CHAR

:RXDONE SHOULD BE ASSERTED

@RXDBUF ,R1
sACTUAL
RO,R1
;COMPARE EXP VS. ACT
2%
2
;PARITY ERROR ERXERR SHOULD BE SET

SCOPE
::THIS TEST VERIFYS ODDPAR PARITY SENSE
*:OF THE RECEIVER
*:MODE
: 1SOC (ISYMOD)
;;PARITY:0DDPAR

;;LENGTH:FIVE PLUS PARITY
::CHAR: 65

1657
1658
1659
1660
}gg;

005246
005256
005262
005270
005276

012767
012767
052777
012777
052777

000011
005432
000400
000000
000400

173652
173634
013050
013036
013034

1663
}ggg

005304

012777

064001

013026

1666

SEQ 0033

::CHAR: 1

1617
1618

1623

PAGE 36

;;0F THE RECEIVER
+:MODE
: ISOC (ISYMOD)
'PARITY:EVEPAR
;:Leucru:sgcnr PLUS PARITY

}g}g

1619

15:40

TST9:

MOV
MOV
BIS
MOV
BIS

#9,TSTNO
#TST10,NEXT
#MRESET,3TXCSR
#1SYMOD .@PARCSR
#MRESET.@TXCSR

;SAVE

THIS
:GO TO THIS TEST WHEN THRU
:MASTER RESET
:SET THE MODE
:MASTER RESET

;SET MAINT DATA,CLK,BREAK ,8MAINTENANCE MODE
MOV
#MTDATA' CLK 'MINT 'BREAK ,@TXCSR
;SET MODE

.# OF BITS,PARITY SENSE,GLOAD SYNC REG

—

CZDUC~D

CZDUCD.P11

1667

005312

1668

005320

1670

005326

1669
1671

167

167
1674
1675

005334

————

MACY11 30A(1052)

18-JUL-78 15:5

012777

012776

042777

020000

013004

052777

1681

005412

100401

005406

105777

005414

104000

1684 005416
1685 005422
1686 005424

017701
020001
001401

1687
1688

1689

012776

5342 042777 020000 012770
005350 052777
012762
005356 016703 012746
012700
012767
012767
004767

1683

020000

005416

005426
005430

110065
000010
000352
012422

15:40 PAGE 37

013014

000020

005362
005366
005374
005402

1682

21-NOV-78

052777

1676
1677
1678
1679
1680

001000

—

MOV
BIS

8IC

BIS

2%:

005430

012767
012767

000012
005616

1703

005454

012777
052777

000000

000400

012652

005470

012777

064001

012642

005476

012777

003000

012630

1709
1710

005446

005462

052777

000400

012664

012650

005504

052777

1713
1714

005512
005520

042777
052777

020000
020000

012620
012612

1716
1717

005526
005534

042777
052777

020000
020000

012604
012576

1715

1718
1719
1720
1721
1722

005542
005546
005552
005560
005566

016703
012700
012767
012767
004767

000020

173466
173450

1711

1712

:POKE CLK DOWN

#CLK 3TXCSR

POKE (LK UP

#CLK,3TXCSR
:POKE CLK DOWN
#CLK.ITXCSR
*POKE CLK UP
RXDBUF ,R3
“SET UP FOR ERROR MESSAGE
#RXERR | PARER'65 R0
:EXPECTED
#8, SHIFT
:# OF SHIFTS
#352, TEMP1
*DATA CHAR
PC ,RPOKE
“SHIFT IN THIS CHAR

BMi

HLT

MOV
CMP
BEQ
HLT

@RXCSR

;RXDONE ?

;RXDONE SHOULD BE ASSERTED

@RXDBUF ,R1
;ACTUAL
RO,R1
;COMPARE EXP VS. ACT
2
2

;PARITY ERROR GRXERR SHOULD BE SET

JNOTE THAT THE PARITY BIT SHOULD

J2LENGTH:SIX PLUS PARITY
::CHAR: 125

005432
005440

}7785

#CLK,3TXCSR

2 :PARITY :0DDPAR

1700
1701

1706

:SET SYNC SEARCH

:1E. BIT FIVE FOR FIVE LEVEL CODE
SCOPE
:;THIS TEST VERIFYS ODDPAR PARITY SENSE
::OF THE RECEIVER
*:MODE: 1SOC (ISYMOD)

104400

1697
‘}233

};82

#SYNSCH,@RXCSR

:SHOW UP IN THE DATA

1696

1702

#1SYMOD ' F IVE ' ODDPAR ' 0, @PARCSR

BIC
BIS
MOV
MOV
MOV
MOV
JSR

TSTB

1690

1691
1692
1693
169
1695

SEQ 0034

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

012712

104002

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

173544
173542

012706

012562
110125
000011
000652
012236

012612

173360
173356

TST10:

MOV
MOV

#10,TSTNO
#TST11, NEXT

MOV

#1SYMOD .@PARCSR :SET THE MODE

BIS

#MRESET,@TXCSR

#MRESET.@TXCSR

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

:MASTER RESET

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

AMTDATA' CLK 'MINT 'BREAK , @TXCSR

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

#1SYMOD ' SIX'ODDPAR'0,aPARCSR

BIS

#SYNSCH,@RXCSR

;SET SYNC SEARCH

BIC
BIS

#CLK,3TXCSR
#CLK . ITXCSR

:POKE CLK DOWN
“POKE CLK UP

BIC
BIS

#CLK,TXCSR
#CLK.ATXCSR

:POKE ZLK DOWN
*POKE CLK UP

PC ,RPOKE

*SHIFT IN THIS CHAR

:POKE CLK TO GET RECEIVER INTD SYNCROIZATION....

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

MOV
MOV
MOV
MOV
JSR

RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#RXERR 'PARER ' 125 R0
:EXPECTED
#9. SHIFT
‘4 OF SHIFTS
#C82, TEMPY
*DATA CHAR

czouc-p
CZDUCD.P11

) D d D D

) D

RNV

1723
1724
1725

MACY11 30A(1052)
18-JUL-78 15:52

105777

100401
104000

017701
020001
001401

21-NOV-78

TSTB

HLT

012522
=

104400

VIS SRS

012767
012767
052777
012777
052777

173264
012500
012466
012464

012777
052777

012444

042777
052777

012434

012426

012426
012420

012412

e
D e

173302

012456

TST11:

104002

104400

;RXDONE SHOULD BE ASSERTED

MOV

@RXDBUF ,R1
gg.m

;COMPARE EXP VS. ACT

HLT

;PARITY ERROR ERXERR SHOULD BE SET

ggs

:ACTUAL

:NOTE THAT THE PARITY BIT SHOULD

MOV

MOV
BIS
MOV
BIS
MOV

*SHOW UP IN THE DATA

:1IE. BIT SIX FOR SIX LEVEL CODE

#11,7STNO

:SAVE THIS

#TST12 NEXT
:GC TO THIS TEST WHEN THRU
MMRESET,@TXCSR ;MASTER RESET
#1SYMOD,@PARCSR :SET THE MODE
MMRESET.@TXCSR :MASTER RESET
MMTDATA'
CLK 'MINT 'BREAK ,@TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,BLOAD SYNC REG

MOV
BIS

#1SYMQD ! SEVEN! ODDPAR' 0, aPARCSR
#SYNSCH,@RXCSR

;SET SYNC SEARCH

#CLK.@TXCSR

*POKE CLK UP

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,@TXCSR
:POKE CLK DOWN
BIS
#CLK.TXCSR
“POKE (LK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,3TXCSR
;POKE CLK DOWN
BIS

MOV
MOV

RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#RXERR ! PARER'125 R0
:EXPECTED

MOV

#1252, TEMP1

g}a

%excsn

MOV

173172

01770}
02000
001401

;RXDONE ?

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

173174

NV
AN =

000013
2

012777

104000

SEQ 0035

::THIS TEST VERIFYS ODDPAR PARITY SENSE
::0F THE RECEIVER
*:MODE: ISOC (ISYMOD)
* *PARITY:0DDPAR
*:LENGTH:SEVEN PLUS PARITY
: 183
33

~
W
~N

d D e

Atin

D e
D
D
D
D
d D
D
D
D e
) ) D d e
e e e

@RXCSR

D e

NN NN NNV

D d d D
D e
D d e
e
e

PAGE 38

BM]

AAAAN
SNNRR &S FAR2B
NVVVNVVNNVVVV&Q
%
=000
wgmflwmaoo
PN

15:40

012526

104002

—
~N

JSR

PC ,RPOKE

HLT

’
a

#10. SHIFT

4 OF SHIFTS

“DATA CHAR

“SHIFT IN THIS CHAR

:RXDONE ?

;RXDONE SHCULD BE ASSERTED

MOV

@RXDBUF ,R1
gg.m

:COMPARE "EXP VS. ACT

HLT

;PARITY ERROR SRXERR SHOULD BE SET

ggtg

:ACTUAL

sNOTE THAT THE PARITY BIT SHOULD
:SHOW UP IN THE DATA
;1E. BIT SEVEN FOR SEVEN LEVEL CODE

I CZDUCD.P1
CcZbuC-D
|

MACY11 30A(1052) 21-NOV-78 15:40 PAGE 39
18-JUL-78 15:52

SEQ 0036

1779
1780
1781

::THIS TEST VERIFYS ODDPAR PARITY SENSE
$:0F THE RECEIVER
*:MODE
: ISOC (ISYMOD)

178

:;Lsucm:sxsm PLUS PARITY

178%

: ;PARITY:0DDPAR

}%
1786

1787

::CHAR: 125
006002

006010

012767

000014

006166

173116

173100

TST12:

1788 006016 053777 000400 012314

1789
}7739

006024

006032

012777

052777

000000
000400

MOV~

012300

;SAVE THIS

#TST13, NEXT

MOV

#1SYMOD ,@PARCSR :SET THE MODE

BIS

012302

#12,TSTNO

MOV
BIS

+GO TO THIS TEST WHEN THRU

#MRESET,@TXCSR :MASTER R=SET
#MRESET.@TXCSR

:MASTER RLSET

F 1792
;SET MAINT
DATA,CLK,BREAK,
SMAINTENANCE MODE
}&3 006040 012777 064001 012272
MOV
MMTDATA' CLK 'MINT 'BREAK ,@TXCSR
1795

1796

1797

1798
1799

006054

006062

012777

052777

042777

007000
000020

020000

012260

052777

020000

012242

1802
1803
1804
1805
1806
18071808

006076
006104
006112
006116
006122
006130
006136

042777
052777
016703
012700
012767
012767
004767

020000
020000
012212
110125
000013
002252
011666

012234
012226

1810

006146

100401

1811
1812

1813
1814

1815
1816
1817
1818
1819

006142

006150
006152

006152
006156

006160
006162
006164
006164

105777

BIS

BIC

1%:

2%:

104400

1820
1821
006166

012767

000015

1827

006202

052777

000400

1831

}ggg

1834

BIC
BIS
MOV
MOV
MOV
MOV
JSR

#CLK,3TXCSR
:POKE CLK DOWN
#CLK.@TXCSR
*POKE CLK UP
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#RXERR {PARER ! 125 R0
:EXPECTED
#11, SHIFT
‘¥ OF SHIFTS
#2252, TEMP
*DATA CHAR
PC ,RPOKE
SSHIFT IN THIS CHAR

BM]

‘POKE (LK UP

CHLT

MOV
CMP
BEQ
HLT

@RXCSR

:RXDONE ?

;RXDONE SHOULD BE ASSERTED

@RXDBUF ,R1
;ACTUAL
RO,R1T
;COMPARE EXP VS. ACT
2$
2

;PARITY ERROR ERXERR SHOULD BE SET

SCOPE
::THIS TEST PERFORMS BINARY DATA CHECK ON THE

::PARITY:EVEPAR

1825

:POKE CLK DOWN

* *MODE : ] SYMOD

}3224

1828

#CLK.@TXCSR

#CLK.TXCSR

: *RECEIVER
S:LENGTH:EIGHT PLUS PARITY

182§

1826

:SET SYNC SEARCH

8IS

TSTB

001401
104002

#SYNSCH,@RXCSR

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

012156

012152

#1SYMOD 'E IGHT ! ODDPAR' 0, aPARCSR

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

173010
173006

104000

017701
020001

MOV

012250

006070

1809

;SET MODE ,# OF BITS,PARITY SENSE,BLOAD SYNC REG

012242

1800

1801

006046

006174

012767

006366

172732

172714

012130

006210

012777

000000
000400

012114

006224

012777

064001

012106

006216

052777

012116

TST13:

MOV

#13,TSTNO

:SAVE THIS

BIS

#MRESET,@TXCSR

:MASTER RESET

#MRESET.@TXCSR

-MASTER RESET

MOV

MOV
BIS

#1574 NEXT

:GO TO THIS TEST WHEN THRU

#1SYMOD .@PARCSR :SET THE MODE

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

MOV

MMTDATA' CLK 'MINT 'BREAK , @TXC SR

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

cZbuC-D
CZbuCb.P1

1835

MACY11 30A(1052)
18-JuL~78 15:52

006232

012777

1836

006240

052777

1838

006246

042777

1837

1839

1840
1841

006254

006262

012064

020000

1844

006302

005004

1846

006306

012767

1849

006324

1851

006332

1853
1854
1855

1847
1848

020000

042777

006270

1845

012056

020000

052777

020000

0%%6 016703 012026
304 010400

006314
006320

1850 006326

010467
004767

000241

006167

000013

172624
011656

172612

052767

002000

006340
006344

004767
017701

011464
011760

1856
1857
1858
1859

006352
006354

001401
104002

1861

006360

1852

006350
006356

020001

1860

006356

005204

1862

006362

001350

1863

1864
1865
1866

006364

15:40

012074

000020

052777

w.g

184

007400

21-NOV-78

012056
012050

MOV

1%:

006424

012777

064001

011706

006432

012777

007000

011674

006402
006416

006440

006446

052777

042777

006456

052777

1887

006470

052777

1889

006502

005004

1888

1890

RXDBUF ,R3

*SET UP ERROR MESSAGE

CLR

SDATA CHAR

MOV

R4,RO

MOV
JSR

R4, TEMPI
PC.EVENS

mov

:EXPECTED

w11, SHIFT

TEMP1

*POKE (LK UP
:# OF SHIFTS

**'TO BE SHIFTED CHARACTER
*CALC PARITY

:GENERATE START BIT

BIS

#BIT10,TEMP1

:GENERATE STOP BIT

JSR
MOV
cTMP

PC ,RPOKE
sSHIFT IN THIS CHAR
@RXDBUF ,R1
*ACTUAL
RO,R1
;COMPARE EXP VS ACT
2$
2

INC

R&4

BNE

;:DATA CHARS SHOULD MATCH
*THERE SHOULD BE NO PARITY ERROR

;UPGRADE NEXT CHAR
;LAST CHAR ?

: 1SYMOD

::PARITY:0DDPAR

011716

1885
1886

MOV

000000

1883

:POKE CLK DOWN

#CLK.TXCSR

::THIS TEST PERFORMS BINARY DATA CHECK ON THE
*:RECEIVER
*LENGTH:EIGHT PLUS PARITY

012777

1884

#CLK,3TXCSR

SCOPE

006410

1882

:POKE CLK UP

;TEMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER

104400

1873

1881

#CLK .@TXCSR

BIC

TSTB

000016
006566

1880

:POKE CLK DOWN

ROL

105704

012767
012767

1879

#CLK,@TXCSR

BIS

28:

366
006374

}g%

BIC

BEQ
HLT

1870
1871

1876

;SET SYNC SEARCH

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1867

}g;ls.

#SYNSCH,@RXCSR

BIS

]lggg

1872

#1SYMOD 'E IGHT ! EVEPAR'! 0, @PARCSR

BIS

cLC

172604

SEQ 0037

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

012042
172624

PAGE 40

006476

006504

2777

016703

010400

000400
000400

172532
172514

011730

011656

020000

011664

020000

011626

MOV
MOV

#14,TSTNO
#T1ST15, NEXT

MOV

#1SYMOD .aPARCSR :SET THE MODE

BIS

011714

000020

020000

TST14:

BIS

MMRESET,@TXCSR

MMRESET.TXCSR

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

:MASTER RESET

:SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

MOV

MMTDATA! CLK 'MINT 'BREAK ,@TXCSR

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

#1SYMOD ' E 1GHT ! ODDPAR ' 0, aPARCSR

BIS

#SYNSCH,@RXCSR

:SET SYNC SEARCH

BIC

#CLK,RTXCSR

:POKE CLK DOWN

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

011656

BIS

#CLK.@TXCSR

‘POKE £LK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
011650
BIC
#CLK,@TXCSR
:POKE CLK DOWN

011642

BIS

#CLK.QTXCSR

CLR

MOV

1$:

MOV

RXDBUF ,R3

R4,RO

*POKE CLK UP

*SET UP ERROR MESSAGE

SDATA CHAR

;EXPECTED

CZDUC=D

CZDUCD.P11

MACY11 30A(1052)

18-JUL-78 15:5

1891 006506 012767
1a9§ 006514 010467
1893
006520 004767

189%

006524

000241

000013
172424
011372

1895 0065%(2) 006167 172412
189
532
052767 002000
1897
1898 006540

1899 006544
1900 006550

1901
190§

190

006552
006554

1904 006556

004767

017701
020001

006556
006560

005204
105704

1908

006564

104400

1909

006562

15:40 PAGE 41

172424

MOV
MOV
JSR
CLC

172404

011264

JSR

011560

MOV
CMP
BEQ
HLT

28: -

001350

SCOPE

012767

000017

172332

1917

006602

052777

000400

011530

012767

006736

172314

012777

020000

011516

006624

012777

064001

011506

1925

006632

012777
052777

027400

000020

011474

1928
1929
1930

006646
006654
006662

042777
052777
016703

020000
020000
011442

011464
011456

1932
1933
1934
1935

006670
006672
006700
006704

010400
012767
010467
004767

000011
172240
011272

006710
006714
006720

767
017701
020001

011114
011410

1924

1926
1927

006574

006610

}3%

1931

1936

1937
1938
1939

1940
1941
191.§
1943
1944
1945

1946

:SHIFT IN THIS CHAR

:DATA CHARS SHOULD MATCH

:THERE SHOULD BE NO PARITY ERROR
R4
R4

:UPGRADE NEXT CHAR
*LAST CHAR ?

::PARITY:EVEPAR
006566

1921

PC ,RPOKE

@RXDBUF ,R1
*ACTUAL
RO.R1
~;COMPARE EXP VS ACT

: ;RECEIVER
*:LENGTH:EIGHT PLUS PARITY
2 2MODE : SYNEXT

1915

13‘1?3

#11, ,SHIFT
:#
OF SHIFTS
d
RG, TEMPT
“*TO BE SHIFTED CHARACTER
PC,ODD8 ;CALC PARITY

::THIS TEST PERFORMS BINARY DATA CHECK ON THE

}3}2

1918

INC
TSTB

BNE

1910
1911
1912

1916

SEQ 0038

ROL
TEMP1
:GENERATE START BIT
BIS
#BIT10, TEMP1
:GENERATE STOP BIT
;TEMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER

001401
104002

1905
1906

1907

21-NOV-78

006616

006640

006666

052777

005004

006722
006724

001401
104002

006726
006726
006730

005204
105704

006732

001356

000400

TST1S:

172240

#15,TSTNO

:SAVE THIS

BIS

#MRESET,@TXCSR

:MASTER RESET

#MRESET,@TXCSR

:MASTER RESET

MOV

011514

011456

MOV

MOV
BIS

#1716 ,NEXT

:GO TO THIS TEST WHEN THRU

#SYNEXT ,@8PARCSR :SET THE MODE

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

MOV

MMTDATA! CLK 'MINT !BREAK , @TXCSR

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

MOV

#SYNEXT
'EIGHT 'EVEPAR'0,aPARCSR

BIC
BIS
MOV

#CLK,@TXCSR
#CLK.@TXCSR
RXDBUF ,R3

MOV
MOV
MOV
JSR

R4,RO
:EXPECTED
#9. ,SHIFT
:# OF SHIFTS
R4, TEMP1
*'TO BE SHIFTED CHARACTER''
PC.EVENS
*CALC PARITY

JSR
MOV
CMP

PC ,RPOKE
;SHIFT IN THIS CHAR
aRXDBUF ,R1
*ACTUAL
RO,R1
“;COMPARE EXP VS ACT

BIS
#SYNSCH,@RXCSR ;SET SEARCH SYNC
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

18:

CLR

:POKE CLK DOWN
:POKE CLK UP
*SET UP ERROR MESSAGE

:DATA CHAR

;TEMP1 NCW HAS CHARACTER TO BE POKED INTO RECEIVER
BEQ
HLT

2%:

INC
TSTR

BNE

2$
2

R4
R«

:DATA CHARS SHOULD MATCH
:THERE SHOULD BE NO PARITY ERROR

;UPGRADE NEXT CHAR
JLAST CHAR ?

CZbUC-D
CZDUCD.P11
1947

1948
1949
1950

MACY11 30A(1052)
18-JUL-78 15:52

006734

21-NOV-78

15:40

104400

;:THIS TEST PERFORMS BINARY DATA CHECK ON THE
: :RECEIVER
*:LENGTH:EIGHT PLUS PARITY

1951

2 2MODE
: SYNEXT

2 :PARITY:0DDPAR

1954

006736

012767

000020

172162

1956

006752

052777

000400

011360

1957

}3553

006744

012767

007106

172144

052777

000400

011344

1960
}9’25 006774

012777

064001

011336

012777

027000

1964

007002

1965

007010

1967

007016

1966

052777
042777

011306

020000

011314

1971

007040

010400

1973
1974

007050
54

010467
004767

172070
011036

004767
017701
020001

010744
011240

1972
1975

1976
1977
1978

007042

007064
007070

005004

012767

1979
1980

007072
007074

1982
1983
1984

007076
007076
007100

005204
105704

1986

007104

104400

1981

1985

1987
1988
1989
1990
1991

007102

011324

000020

007024
007032

007036

052777
016703

1968
1969

1970

TST16:

760 012777 020000 011346

006766

1963

020000
011272
11

:MASTER RESET

#MRESET,8TXCSR

:MASTER RESET

:GO TO THIS TEST WHEN THRU

#SYNEXT ,@8PARCSR :SET THE MODE

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

#SYNEXT
'EIGHT ! ODDPAR ' 0, aPARCSR

BIS

#SYNSCH,@RXCSR

BIC

#CLK,aTXCSR

:SET SEARCH SYNC

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1$:

;POKE CLK DOWN

BIS
MOV

#CLK.@TXCSR
RXDBUF ,R3

MOV

R4,RO

MOV
JSR

R4, TEMP1
*"TO BE SHIFTED CHARACTER
PC,0DD8 ;CALC PARITY

CLR

MOV

BEQ
HLT

2%:

001356

INC
ISTB

BNE

SCOPE

*POKE CLK LP
*SET UP ERROR MESSAGE

:DATA CHAR

:EXPECTED

#9.,SHIFT

:# OF SHIFTS

PC ,RPOKE
;SHIFT IN THIS CHAR
aRXDBUF ,R1
*ACTUAL
RO,R1
;COMPARE EXP VS ACT
2$
2

:DATA CHARS SHOULD MATCH

R4
Ré4

:UPGRADE NEXT CHAR
*LAST CHAR ?

:THERE SHOULD BE NO PARITY ERROR

;:THIS TEST CHECKS THE STRIP SYNC FUNCTION
::0F THE RECEIVER LOGIC
* *MODE
: ] SYMOD
*LENGTH:F
IVE
::NOTE: RXDONE SHOULD NEVER ASSERT
:;CHAR: 26 (SYNC)

0000;1

1996

007122

052777

000400

8,11210

#MMRESET,@TXCSR

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

001401
104002

012767

2000

BIS

JSR
MOV
cMP

007106

:SAVE THIS

#15T17 ,NEXT

;TEMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER

1994

1997

#16,TSTNO

BIS

011306
172070

MOV

}g%

1995

SEQ 0039

SCOPE

}gssg

1955

PAGE 42

007114

012767

007272

172012

171774

007130

012777
052777

000400

011174

007144

012777

064001

011166

007136

000000

011176

T1ST17:

MOV

#17,TSTNO

:SAVE THIS

BIS

#MMRESET,TXCSR

;MASTER RESET

#MRESET.@TXCSR

:MASTER RESET

MOV
MOV
BIS

#13718 NEXT

GO TO THIS TEST WHEN THRU

#1SYMOD ,@PARCSR :SET THE MODE

sSET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV

#i*"DATA ' CLK 'MINT 'BREAK ,@TXCSR

VONOWVES WO

()
~N

)

SRRSYAgas508sg £52

e S

MACYN 30A(1 52)

18-JUL-7815:5

—

21-NOV-78

007152 012777 oooogg 011154
007160

052777

000020

011136

007166
0071764

042777
052777

020000
020000

011144
011136

007202

042777

020000

011130

007216

052777

000400

011100

007210

052777

020000

oorzgg 012767 000003

007232

007252

007256

15:40 PAGE 43

105777

100001

005367

007270

104400

007266 001361

SENSE,CGLOAD SYNC REG

MOV

xsmoo.nvswomé

8IC
8IS

m.x STXCSR
STXCSR

BIC

#CLK,@TXCSR

BIS

#SYNSCH_@RXCSR

aPAR csa

T SYNC

POKE CLK TO GET RECE
xvsk mro smcaomnm....
.m w( DOWN
‘POKE (LK UP

:POKE CLK TO GETLosic INTO smckoumr

011122

BIS

#CLK ITXCSR

171710

MOV

BIS

ngwsm SRXCSR

171672

MOV
JSR

#7,SHIFT
PC .RPOKE

011046

MOV

TSTB

88;% 104000
007262

SEQ 0040

;SET MODE ,# OF BITS,PARITY

012767 000154 171704 18:

007240 012767 000007
007246 004767 010556

BPL

HLT

171654

DEC

BNE

SCOPE

nSl.
TEMP1
@RXCSR

:POKE a.x DOWN

*POKE (LK UP

:SET STRIP SYNC

*# OF SYNC CHARS

:CHAR TO BE SHIFTED
¥ OF SHIFTS
“SHIFT IN THIS CHAR

:RXDONE ?

;RXDONE SHOULD NOT SE ASSERTED

COUNT

;# OF SYNC CHARS

;sTHIS TEST CHECKS THE STRIP SYNC FUNCTION

;;OF THE RECEIVER LOGIC
E
: ] SYMOD
* *MOD
S LENGTH:SIX
*:NOTE: RXDONE SHOULD NEVER ASSERT

;2CHAR: 26 (SYNC)

007272

012767

000022

171626

007306

052777

000400

011024

052777

000400

011010

007330

012777

064001

011002

007336
007344

012777

052777

002026

000020

010770

010752

007352

042777

020000

010760

007300

007314

007322

3583
FERERER

007360
007366
007374
007402

007410
007416
007424

012767

012777 000000

052777

042777
052777
052777

012767
012767
012767

007432
007436

004767
105777

007444

104000

007442

007446
007446

007456

100001

005367

171610

010752

020000
020000

010744
010736
010714

010372
010662

171470

171524
171520
171506

MOV

#18,TSTNO

;SAVE THIS

MMRESET,@TXCSR

:MASTER RESET

#MRESET.@TXCSR

-MASTER RESET

MOV

"5719 NEXT

MOV

#1SYMOD.@PARCSR -SET THE MODE

BIS

011012

020000

000003
000254
000010

TST18:

BIS

;GO TO THIS TEST WHEN THRU

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

MOV

:SET MODE

AMTDATA
! CLK 'MINT 'BREAK , 8TXCSR

,# OF BITS,PARITY SENSE,.ELOAD SYNC REG

MOV

#1SYMOD
' SIX 'NOPAR
| 26, aPARCSR

BIS

#SYNSCH,@RXCSR

;SET SYNC SEARCH

BIC

#CLK,3TXCSR

:POKE CLK DOWN

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION..

BIS

#CLK.@TXCSR

“POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

18$:

2%:
;

BIC
BIS
BIS

#CLK,3TXCSR
#CLK. 3TXCSR
#srPsm ARXCSR

JSR
TSTB

PC.RPOKE
*SHIFT IN THIS CHAR
@RXCSR :RXDONE ?

MOV
MOV
MOV

3, COUNT
cz,:. TEMP1
#8. , SHIFT

BPL

DEC

COUNT

HLT

:POKE CLK DOWN
*PCKE CLK UP
:SET STRIP SYNC

‘¥ OF SYNC CHARS
:CHAR TO BE SHIFTED
‘# OF SHIFTS

;RXDONE SHOULD NOT BE ASSERTED

:# OF SYNC CHARS

¢ZbuC-D
CZDUCD.P11

2059

007452
007454

MACY11 30A(1 (2)52)
18-JuUL~78 15:5

21=NOV=78

15:40

PAGE 44

BNE

001361

104400

SCOPE

SEQ 0041

;s THIS TEST CHECKS THE STRIP SYNC FUNCTION
::OF TI'EISRECEIVER LOGIC

2 sMODE:
2 sLENGTH: SEVEN
s sNOTE: RXDONE SHOULD NEVER ASSERT

;sCHAR: 26 (SYNC)

012767

171442
171424

052777

010640
010626
010624

012777

010616

012777
052777

010604
010566

042777
052777

010574
010566

042777

010560
010552

171322

TST19:

BIS

;SAVE THIS

#MRESET ,@TXCSR

-MASTER RESET

#15720,NEXT
GO TO THIS TEST WHEN THRU
MMRESET ,@TXCSR ;MASTER RESET
#1SYMOD ,@PARCSR :SET THE MODE

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

MOV
BIS

SYNC REG

#1SYMOD
! SEVEN'NOPAR ' 26, aPARC
SR
#SYNSCH,@RXCSR

:SET SYNC SEARCH

#CLK,@TXCSR

;POKE CLK DOWN

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

B8IC

BIS

#CLK . TXCSR

“POKE (LK UP

BIS

#STPSYN,@RXCSR

:SET STRIP SYNC

MOV

#4546, TEMP

:CHAR TO BE SHIFTED

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,3TXCSR
;POKE CLK DOWN
BIS
#CLK.@TXCSR
*POKE CLK UP
1$:

EREEE
RARSS3BIRIRERSY

#19, TSTNO

:SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
MOov
#MTDATA! CLK !MINT !BREAK ,@TXCSR

2097
21
21
21
21
21
21
21
21
21
21
21
21
21
21
21

MOV

MOV
BIS
MOV

MOV

#3, COUNT

:# OF SYNC CHARS

MOV
JSR
TSTB
BPL

#9. . SHIFT
¥ OF SHIFTS
PC ,RPOKE
“SHIFT IN THIS CHAR
@RXCSR
;RXDONE ?
2$
;RXDONE

SHOULD NOT BE ASSERTED

DEC
BNE
SCOPE

g(slNT

:# OF SYNC CHARS

HLT

ssTHIS TEST CHECKS THE STRIP SYNC FUNCTION

::0F THE RECEIVER LOGIC
; - MODE E': 1 SYMOD
L
s s LENGTH:EIGHT
s NOTE: RXDONE SHOULD NEVER ASSERT

;;CHAR: 26 (SYNC)

012767

052777

000024
010026
000400
000000
000400

012777

064001

TST20:

MOV
MOov

#20,TSTNO
#TST21 NEXT

BIS

#MRESET ,@TXCSR

BIS

#MRESET ,@TXCSR

MOV

sSAVE THIS
;GO TO THIS TEST WHEN THRU
;MASTER RESET

#1SYMOD ,aPARCSR ;SET THE MODE

;MASTER RESET

sSET MAINT DATA,CLK,BREAK ,EBMAINTENANCE MODE
MOv
#MTDATA!
CLK !MINT !BREAK,aTXCSR
;SET MODE

,# OF BITS,PARITY SENSE,RLOAD SYNC REG

:Voo~Norwn

ek kb

e
e e e

S S N S LN S S IS S TS IS NSNS TN OSSN S NS TSNS NSNS S OSSN S TSSOSO TNTN NS LN ST STN TN
O

N0 R ONN OO O\
N NNLB ISEIEERER
NI I3 I I 2 2NSE
2 o
o ol R SRUK
A N AN
A NI IPIPITINITY
STEAERRER
LB DNANDN
CHIFNRUIN
RIS
LS IBRNRRRTINNS

B U

MACY11 30A(1052)

18-JUL-78 15:5

21-NOV-78

15:40

007706 012777 006026 010420

007714

052777

000020

007722

042777

020000

010402

007736
007744
007752

042777
052777
052777

020000
020000
000400

010374
010366
010344

007730 052777

007760
007766
007776
010002

012767
012767
012767
004767

010012
8}%}2

100001
104000

010016

005367

010024

104400

010006

010022

105777

001361

000003
001054
000012
010022

MOV

010402

010410

171154
171150
171136

PAGE 45

SEQ 0042

#1SYMOD 'E IGHT !NOPAR ! 26 , aPARCSR

BIS

#SYNSCH,@RXCSR

:SET SYNC SEARCH

BIC

#CLK,@TXCSR

:POKE CLK DOWN

BIC
BIS
BIS

#CLK,3TXCSR
#CLK.@TXCSR
#STPSYN,@RXCSR

:POKE CLK DOWN
*POKE CLK UP
:SET STRIP SYNC

TSTB

@RXCSR

;RXDONE ?

COUNT

:# OF SYNC CHARS

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

BIS
#CLK,@TXCSR
POKE (LK UP
:POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1$:

MOV
MOV
MOV
JSR

BPL
HLT

010312

171120

DEC

BNE

SCOPE

#3, COUNT
#1054, TEMP1
#10. ,SHIFT
PC ,RPOKE

“# OF SYNC CHARS
*CHAR TO BE SHIFTED
¥ OF SHIFTS
“SHIFT IN THIS CHAR

2
;RXDONE SHOULD NOT BE ASSERTED
18

:;THIS TEST CHECKS THE STRIP SYNC FUNCTION

*:OF THE RECEIVER LOGIC
DE
: SYNEXT
% *MO
2 sLENGTH:FIVE
*:NOTE: RXDONE SHOULD NEVER ASSERT

*:CHAR: 26 (SYNC)

010026
010034

012767 000025
012767 010176

010050

012777 020000

010042

171072
171054

052777

000400

010270

052777

000400

010254

010064

012777

064001

010246

010072

012777

020026

010234

010056

010100
010106
010114
010122

010130
010136
010144
010152
010156

010162

000020

010216

042777
052777
052777

020000
020000
000400

010224
010216
010174

004767
105777

100001

8}8}%

104000

010166

005367

010174

104400

010172

001361

007652

171004
171000
170766

#21,TSTNO
#TST22 NEXT

MOV

#SYNEXT.@PARCSR :SET THE MODE

BIS

;SAVE THIS
:GO TO THIS TEST WHEN THRU

AMRESET,@TXCSR

:MASTER RESET

AMRESET.@TXCSR

-MASTER RESET

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

MOV

MMTDATA!
CLK 'MINT 'BREAK ,@TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,ELOAD SYNC REG

MOV
BIS

#SYNEXT
' F IVE 'NOPAR ! 26, aPARC
SR
#SYNSCH,BRXCSR

;SET SEARCH SYNC

BIC
BIS
BIS

#CLK,3TXCR
#CLK.@TXCSR
#STPSYN,@RXCSR

:POKE CLK DOWN
*POKE CLK UP
-SET STRIP SYNC

JSR

PC .RPOKE

“SHIFT IN THIS CHAR

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1$:

010142

MOV
MOV
MOV
TSTB

170750

MOV
MOV
BIS

010256

052777

012767 000003
012767 000026
012767 000005

TST21:

BPL

HLT
DEC

BNE

#3, COUNT
#26. TEMP1
#S.SHIFT
@RXCSR

*# OF SYNC CHARS
*CHAR TO BE SHIFTED
“# OF SHIFTS

;RXDONE ?

;RXDONE SHOULD NOT BE ASSERTED

COUNT

:# OF SYNC CHARS

SCOPE
ssTHIS TEZT CHECKS THE STRIP SYNC FUNCTION
:.0F THE RECEIVER LOGIC

CZDUC=D
CZDUCD.P11

MACY11 30A(1052)
18-JUL~78 15:5

21-NOV=78

15:40

:;CHAR: 26 (SYNC)

21;9

010176

012767

000026

170722

2178

010212

052777

000400

010120

010226

052777

000400

010104

012777 064001

010076

2177

010206 012767 010346

%179 010220
Z}g?

21a§

%}g‘ 01023¢

170704

2186 010242 012777 022026 010064

2188

010250

052777

000020

2189 010256 042777 020000
2190
2191

010264
010272

2192 01
2193 010
2194 010314
2195 010322
2196

010326

2197 010332
2198 010334

052777
052

012767
012767
012767
004767
105777

000003
000026
000006
007502

010054

170634
170630
170616

000027

170552

2212
2213
55};

010362
010370
010376

052777
012777
052777

000400
020000
000400

007750
007736
007734

010404

012777

064001

007726

010412
010420

012777
052777

024026
000020

007714
007676

010426
010434
010442
010450

042777
052777
052777
012767

020000
020000
000400
000003

007704
007676
007654
170464

2216
%S}g

2219
2220
2221
222
2223
2224
2225
2226

012767

010346

2210

012767

BIS

#MRESET,@TXCSR

:MASTER RESET

MMRESET.@TXCSR

:MASTER RESET

#TST23 NEXT

GO TO THIS TEST WHEN THRU

#SYNEXT,@PARCSR :SET THE MODE

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

MOV

MMTDATA! CLK 'MINT 'BREAK , @TXCSR

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

MOV

ASYNEXT ! SIX!'NOPAR
| 26, aPARCSR

BIS

#SYNSCH.@RXCSR

:SET SEARCH SYNC

BIC

#CLK,BTXCSR

:POKE CLK DOWN

MOV
MOV
MOV
JSR

#3, COUNT
#26, TEMP1
#6,SHIFT
PC .RPOKE

“# OF SYNC CHARS
“CHAR TO BE SHIFTED
‘& OF SHIFTS
*SHIFT IN THIS CHAR

8PL
HLT

2$
sRXDONE SHOULD NOT BE ASSERTED

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIS
BIS

1%:

2%:

001361
104400

010354

:SAVE THIS

TSTB

010342
010344

2211

#22,1STNO

MOV
BIS

007772

2201
2202

2203
2204
2205
2206
2207
52283

;

MOV

010046
010024

100001
104000

020000
000400

010046

5199 010336

TST22:

012777 020000 010106

2185

2187

SEQ 0043

2 2MODE
: SYNEXT
IX
TH:S
LENG
s
s
:sNOTE: RXDONE SHOULD NEVER ASSERT

~
L

—

217

PAGE 46

DEC

BNE
SCOPE

#CLK.@TXCSR
#STPSYN,@RXCSR

*POKE CLK UP
:SET STRIP SYNC

@RXCSR

;RXDONE ?

s(sINT

:# OF SYNC CHARS

;sTHIS TEST CHECKS THE STRIP SYNC FUNCTION
;s0F THE RECEIVER LOGIC
2 2MODE
: SYNEXT
2 sLENGTH:SEVEN
2sNOTE: RXDONE SHOULD NEVER ASSERT
::CHAR: 26 (SYNC)

010516

1705}4

TST23:

MOV

#23,TSTNO

BIS
MOV
BIS

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

MOV

lTSfZlo.NEXT

:SAVE THIS

2GO TO THIS TEST WHEN THRU

sSET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
MOV
#MTDATA! CLK'MINT !BREAK ,aTXCSR

;SET MODE ,# OF BITS.PARITY SENSE.,RZLOAD SYNC REG
MOV
#SYNEXT ! SEVEN!NOPAR' 26 ,aPARCSR
BIS
#SYNSCH,aRXCSR ;SET SEARCH SYNC
JPOKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,aTXCSR
;POKE CLK DOWN
BIS
#CLK,aTXCSR
;POKE CLK UP
BIS
#_2TPSYN,aRXCSR ;SET STRIP SYNC
MOV
#3,COUNT
;4 OF SYNC CHARS

CZDUC~D
CZDUCD.P1

MACY11 30A(1052)
18-JUL~-78 15:52

2227
228
229

010456
010464
010472

012767
012767
004767

2231
223%
2233
2234
2235
2236
2237
2238
2239
2240
2241

010502
010504
010506
010506
010512
010514

100001
104000

2244

010516

012767

000030

170402

2246
2247
5528

010532
010540
010546

052777
012777
052777

000400
020000
000400

007600
007566
007564

012777

064001

007556

012777
052777

026026
000020

007544
007526

042777
052777
052777
012767
012767
012767
004767
105777
100001
104000

020000
020000
000400
000003
000026
000010
007162
007452

007534
007526
007504
170314
170310
170276

005367

170260

2230

010476

105777

005367
001361
104400

000026
000007
007332

21-NOV-78

170460
170446

15:40

1%:

007622

2%:

%52

2245

2250
%S?}

010524

010554

010662

012767

001361

010666

2270
2271
2272
2273
2274
2275

010664

2278

010666

012767

000031

2281
2282

010710
010716

012777
052777

Q30000
000400

170364

TST24:

BPL
HLT

2%
;RXDONE SHOULD NOT BE ASSERTED

@RXCSR

:CHAR TO BE SHIFTED
:# OF SHIFTS
:SHIFT IN THIS CHAR

;RXDONE
?

DEC
COUNT
:# OF SYNC CHARS
BNE
18
SCOPE
;:THIS TEST CHECKS THE STRIP SYNC FUNCTION
::0F THE RECEIVER LOGIC
2 2MODE : SYNEXT
2 2LENGTH:EIGHT
_ ;:NOTE: RXDONE SHOULD NEVER ASSERT
MOV

#24,TSTNO

BIS
MOV
BIS

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

MOV

#TS125 ,NEXT

:SAVE THIS

:GO TO THIS TEST WHEN THRU

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV
#MTDATA' CLK 'MINT 'BREAK ,@TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,RLOAD SYNC REG
MOV
#SYNEXT 'EIGHT 'NOPAR ' 26, @PARCSR
BIS
#SYNSCH,@RXCSR ;SET SEARCH SYNC
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,@TXCSR
:POKE CLK DOWN
BIS
#CLK,@TXCSR
:POKE CLK UP
BIS
#STPSYN,@RXCSR :SET STRIP SYNC
MOV
#3, COUNT
:# OF SYNC CHARS
1%:
MOV
#26, TEMP1
:CHAR TO BE SHIFTED
MOV
#8. ,SHIFT
:# OF SHIFTS
JSR
PC ,RPOKE
*SHIFT IN THIS CHAR
TSTB
@RXCSR ;RXDONE ?
BPL
2%
HLT
sRXDONE SHOULD NOT BE ASSERTED
2%:
DEC
COUNT
;# OF SYNC CHARS

BNE

104400

SCOPE
::THIS TEST CHECKS THE STRIP SYNC FUNCTION
;:;OF THE RECEIVER LOGIC
2 2MODE : SYNINT
s :LENGTH:FIVE
2INOTE: RXDONE SHOULD NEVER ASSERT

55;9

2279
2280

#26, TEMPY
#7,SHIFT
PC ,RPOKE

::CHAR: 26 (SYNC)

2253
2254 010562
2255 010570
2256
2257 - 010576
2258 010604
2259 010612
2260 010620
2261
010626
2262 010634
2263 010642
2264 010646
2265 010652
2266 010654
2267
010656
2268
010656

2269

SEQ 0044

MOV
MOV
JSR

TSTB

170430

PAGE 47

:;CHAR: 26 (SYNC)

010674
010702

012767
052777

011052
000400

170232

170214
007430

007416
007414

T1ST25:

MOV

#25,TSTNO

MOV
BIS

#-VNINT ,@PARCSR :SET THE MODE
#MRESET.@TXCSR :MASTER RESET

MOV
BIS

#TST26 ,NEXT
#MRESET,3TXCSR

:SAVE THIS

:GO TO THIS TEST WHEN THRU
:MASTER RESET

CZDUC-D
| CZDUCD.P11

MACY11 30A(1052)

18-JUL~78 15:52

21-NOV=78

064001

010732
010740

012777
052777

030026
0000

010746
010754

042777
052777
042777

MOV

SEQ 0045

#MTDATA!CLK
!MINT !BREAK ,@TXCSR

;SET MODE ,# OF BITS,PARITY SENSE t.%w SYNC REG

MOV

#SYNINT
'F IVE 'NOPAR ! 26, aPARCSR

8IC

#CLK,@TXCSR

BIS
#SYNSCH,@RXCSR :SET SYNC SEARCH
:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIS

#CLK . @TXCSR

:POKE CLK DOWN
“POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

170112

1%:

PAGE 48

sSET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

ooNNNO

e Qo

Qo Qo

SERERRRSIR 33

012777

-— b

010724

elolelelelelelelelelelelels]

2283

15:40

BIC
BIS
BIS

#CLK,3TXCSR
.
#CLK,aTXCSR
#STPSYN,@RXCSR

&s,le

@RXCSR

;RXDONE ?

HLT

;RXDONE

SHOULD NOT BE ASSERTED

DEC
BNE
SCOPE

COUNT
1%

;# OF SYNC CHARS

MOV
MOV
MOV
JSR

#3, COUNT
#26, TEMP1
#S,SHIFT
PC .RPOKE

:
;POKE
CLK DOWN

;POKE CLK UP
;SET STRIP SYNC

“# OF SYNC CHARS
*CHAR TO BE SHIFTED
4 OF SHIFTS
SSHIFT IN THIS CHAR

;sTHIS TEST CHECKS THE STRIP SYNC FUNCTION

;s0F THE RECEIVER LOGIC
E
: SYNINT
2 2MOD
H:SIX
2 sLENGT
s:NOTE: RXDONE SHOULD NEVER ASSERT
N

-l ad
—

b
b

012767

052777

000032
011236
000400
030000
000400
064001

032026
000020

020000
020000

—_—

o~
N~

2 e = - =2 3

NZSRPE Zm B

-t

—) -

042777
052777

#26,TSTNO

BIS
MOV
BIS

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

MOV

#TST27 NEXT

:SAVE THIS

;GO TO THIS TEST WHEN THRU

#MTDATA'!
CLK !MINT !BREAK ,@TXCSR

sSET MODE ,# OF BITS,PARITY SENSE.ZLOAD SYNC REG
MOV
BIS

#SYNINT ! SIX!NOPAR!26,aPARCSR
#SYNSCH,aRXCSR
;SET SYNC SEARCH

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

BIC
#CLK,aTXCSR
;PCKE CLK DOWN
BIS
#CLK,@TXCSR
;POKE CLK UP
sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,@TXCSR
;POKE CLK DOWN
BIS
#CLK ,@TXCSR
;POKE CLK UP
BIS
#STPSYN,@RXCSR
;SET STRIP SYNC
167726

105777

MOV

sSET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

NN
—_—

AN V]

cded
Db e bbb
b

TST26:

oo~

—_—

—

012777
052777

012777

OCOO0O0O0O000

o
i

(elelelele]
o

;sCHAR: 26 (SYNC)

1%:

MOV

MOV
JSR
TSTB

#3,COUNT

#26, TEMP1

s# OF SYNC CHARS

;CHAR TO BE SHIFTED

#6,SHIFT
:# OF SHIFTS
PC ,RPOKE
;SHIFT IN THIS CHAR
@RXCSR
;RXDONE ?

CZDuC-D

CZDUCD.P11
2339
2340
231
2%
233
2344

2345

100001
104000
005367
001361
104400

15:40

2%:

167710

012767

000033

167662

2354
2355

011252
011260

052777
012777

000400
030000

007060
007046

011244

011266

012767
052777

011422

000400

167644

012777

064001

007036

2362
2363

011302
011310

012777
052777

034026
000020

007024
007006

2365
2366

011316
011324

042777
052777

020000
020000

007014
007006

2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
238C
2381

011332
011340
011346
011354
011362
011370
011376
011402
©11406
011410
011412
011412
011416
011420

042777
052777
052777
012767
012767
012767
004767
105777
100001
104000

020000
020000
000400
000003
000026
000007
006426
006716

007000
006772
006750
167560
167554
167542

005367
001361
104400

167524

2389
2390
2391
2392

011422
011430
011436
011444

012767
012767
052777
012777

000034
011606
000400
030000

2364

2367

2382
2383
2384
2385
2386
g%gg

5;32

011452

052777

T1ST27:

007044

011274

2361

BPL
HLT

2%
sRXDONE SHOULD NOT BE ASSERTED

DEC
BNE
SCOPE

COUNT
18

;# OF SYNC CHARS

2 sMODE : SYNINT
2 JLENGTH:SEVEN
;sNOTE: RXDONE SHOULD NEVER ASSERT
;sCHAR: 26 (SYNC)
011236

gggg

SEQ 0046

;s0OF THE RECEIVER LOGIC

2352

2358

PAGE 49

;sTHIS TEST CHECKS THE STRIP SYNC FUNCTION

2347
2348
2349
gggf‘)

%%?‘7’

18-JUL~78 15:52

21-NOV-78

2346

2353

011222
011224
011226
0112%6
011232
011234

MACY11 30A(1052)

MOV

#27 ,TSTNO

BIS
MOV

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

MOV

BIS

#TSfZB.'fXT

#MRESET,@TXCSR

sSAVE THIS

sGO TO THIS TEST WHEN THRU

;MASTER RESET

sSET MAINT DATA,CLK
,BREAK ,EMAINTENANCE MODE

MOV

#MTDATA ! CLK 'MINT 'BREAK ,@TXCSR

;SET MODE ,# OF BITS_PARITY SENSE.RLOAD SYNC REG
MOV
BIS

#SYNINT ! SEVEN!NOPAR! 26 ,aPARCSR
#SYNSCH,aRXCSR ;SET SYNC SEARCH

BIC
BIS

#CLK,aTXCSR
#CLK ,aTXCSR

BIC
BIS
BIS

#CLK,aTXCSR
sPOKE CLK DOWN
#CLK,aTXCSR
;POKE CLK UP
#STPSYN,aRXCSR ;SET STRIP SYNC
#3,COUNT
:# OF SYNC CHARS
#26,TEMP1
sCHAR TO BE SHIFTED
#7,SHIFT
s# OF SHIFTS
PC ,RPOKE
;SHIFT IN THIS CHAR
aRXCSR ;RXDONE ?
2%
JRXDONE SHOULD NOT BE ASSERTED

DEC
BNE
SCOPE

COUNT
1%

MOV
MOV
BIS
MOV

#28,TSTNO
:SAVE THIS
#TST29 NEXT
;GO TO THIS TEST WHEN THRU
#MRESET ,a@TXCSR ;MASTER RESET
#SYNINT ,dPARCSR ;SET THE MODE

;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
;POKE CLK DOWN
sPOKE CLK UP

sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION

1%:

2%:

MOV
MOV
MOV
JSR
TSTB
BPL
HLT

;# OF SYMC CHARS

JsTHIS TEST CHECKS THE STRIP SYNC FUNCTION
;:OF THE RECEIVER LOGIC
2 JMODE
: SYNINT
2 :LENGTH:EIGHT
;sNOTE: RXDONE SHOULD NEVER ASSERT
;:CHAR: 26 (SYNC)

000400

167476
167460
006674
006662
006660

TST28:

BIS

#PESET ,@TXCSR

:MASTER RESET

czouc-D

CZDUCD.P11
2%32

5397 011460
|

2§3§

2400

2401
2402

064001

006652

000020

006622

011502

042777

020000

006630

011516
01152¢

011532

2408
26409
2610
2611

011540
011546
011554
011562

2613

011572

2614
2615
2616

012777
052777

2605

2412

18-JUL=78 15:52

011474

011510

2407

21-NOV-78

011466 012777 036026 006640

2603

404

MACY1] 30A(1052)

011566
011574
011576
011576

2617 011602
2418 011604
2419

052777

020000

006622

042777
052777

020000
020000

006614
006606

012767
012767
012767
004767

000003
000026
000010
006242

167374
167370
167356

052777

105777

100001

000400

001361
104400

2420
24621
24622

A,R
2424
2425
2426

MOV

SEQ 0047

MMTDATA!
CLK 'MINT 'BREAK , @TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,SLOAD SYNC REG

MOV

#SYNINT
'E IGHT 'NOPAR! 26 ,@PARCSR

BIS

#SYNSCH,@RXCSR

:SET SYNC SEARCH

BIS

#CLK.3TXCSR

-POKE CLK UP

BIC
BIS

#CLK,3TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
*POKE CLK UP

MOV
MOV
MOV
JSR

#3, COUNT
#26, TEMP1
#8. .SHIFT
PC ,RPOKE

;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,3TXCSR
:POKE CLK DOWN

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIS

1$:

006532

#STPSYN,@RXCSR

TSTB

@RXCSR

BPL
28:

167340

PAGE 50

;SET MAINT DATA,CLK,BREAK,BMAINTENANCE MODE

006564

104000
005367

15:40

HLT

SET STRIP SYNC

*# OF SYNC CHARS
*CHAR TO BE SHIFTED
“# OF SHIFTS
“SHIFT IN THIS CHAR

;RXDONE ?

sRXDONE SHOULD NOT BE ASSERTED

DEC

COUNT

BNE
SCOPE

:# OF SYNC CHARS

::THIS TEST PROVES THAT RXERR FREEZES THE

e S S

24627

S:WHILE IN STRIP SYNC MODE
..mxs TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN
:STRIP_SYNC IS SET & SYNC CHARACTERS ARE SENT

Ry BUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET
..xs DI SCOMBOBULATED
..IE FORCE PARITY ERROR WHILE STRIP SYNC IS SET
NOTE: NORMALLY THE LOGIC RESETS THE RXDONE RERROR FLAGS

: :PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT..

2428

::BUT, IF AN RXERR OCCURS

RXDONE PLUS RXERR ARE ASSERTED

2429
2430

*:MODE: ISOC (ISYMOD)
SLENGTH: EIGHT

2432

*:CHARACTER EXPECTED:26

52%‘5’

2:NOTE: THIS TEST USES ONLY THE RECEIVER LOGIC

2431

S:PARITY: EVEPAR

2433

*:CHARACTER SENT: SYNC CHARACTER

2436

011606

012767

000035

167312

2438

011622

052777

000400

006510

2637

011614

012767

012210

167274

2439 011630 012777 888200 006476
gzz(‘)

2442

5&2

2445

2646
2647
2648

2649
2450

'RECEIVER RESET''

011636

052777

006474

011644

012777

064001

006466

011652
011660
011664

012777
016703
012767

007426
006444
000003

006454

011672

052777

000020

167250

006424

T57T29:

mov

#29,TSTNO

:SAVE THIS

BIS

#MRESET,@TXCSR

:MASTER RESET

#MRESET.@TXCSR

:MASTER RESET

MOV

MOV
BIS

#15730 NEXT

:GO TO THIS TEST WHEN THRU

#1SYMOD .aPARCSR :SET THE MODE

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

#MTDATA' CLK 'MINT 'BREAK , @TXCSR

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

#1SYMOD 'E IGHT ! EVEPAR! 26, aPARCSR
RXDBUF,R3
:SET UP FOR ERROR MSG
os COUNT
:# OF TIMES SYNC CHAR WILL BE SENT

BIS
#>VNSCH,@RXCSR -SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

CZDUC~D

CZDUCD.P11

MACY11 somosz)

18-JUL-78 15:52

21-NOV=-78

2451
2455

011700
011706

042777
052777

020000
020000

006432
006424

2454
2455
2456

011714
011722
011730

042777
052777
052777

020000
020000
000400

006416
006410
006366

245

2457 011736 012767 000013

167174

2458 011744 012767 003054 167172
2459 011752 004767 006052

2660

2461

2«%
2463
2464

26465
2466
2467

011756

105777

011764
011766
011766

104000

011762
011772
011776
012000

100001

005367

001361
012700
017701

2468
2469
2470
2471 012004 020001
2472

2473
2474
2475

2676
2477
2478
2479
2480

012006

012010
012012

2482 012050

100401

2483
2484

2485

2486

2487

012044

012052
012054

012062

001401

012064

2491
2492

012066
012066

2493
2494

012072
012074

020001

2497

2498

012106

012112

2499 012114
2500 012122
2501 012130

000004
110026
002054
000013
005764

167122
167112
167100

JSR

PC ,RPOKE

sum IN THIS CHARACTER

65%:

3$:

006254

005367

66$:

006250

DEC

67%:

167050

167040

022767

000002

167030

2503

012134 . (;12767

000054

167002

2505
2506

012146
012152

170026

000i57 177660
012767 001054

166764

ososi.rsm
@RXCSR

64$

¥ OF SHIFTS

*SYNC CHAR + STARTESTOP+ PARITY

:RXDONE
= 0 ?

;RXDONE SHOULD NOT BE SET

COUNT

:# OF

SYNC CHARS

BNE
MOV
MOV

2$
:GO AGAIN ?
#26,R0 :EXPECTED
aRXDBUF ,R1
sACTUAL

cMP

RO,R1

HLT

65§

;NOTE THAT THIS IS THE FIRST TIME
*RXDBUF IS READ....... THERE SHOULD BE
*NO OVER RUN ERRORS
:COMPARE EXPECTED VS ACTUAL

:DATA CHARS SHOULD COMPARE
:THERE SHOULD BE NO RXERR'S

MOV
MOV
MOV
MOV
JSR

#4, COUNT
# OF TIMES
#RXERR
' PARER ! 26 R0
:EXPECTED
#2054, TEMP1
:BAD SYNC CHAR (WRONG PARITY)
#11, SHIFT
4 OF SHIFTS
PC ,RPOKE
SSHIFT IN THIS CHAR

BMI

66$

MOV

aRXDBUF ,R1

BEQ

67%

HLT

@RXCSR

:;RXDONE = 12

;RXDONE SHOULD BE SET

;ACTUAL DATA

RO,R1

;COMPARE EXP VS ACT

:DID THE RESPECTIVE ERROR STOP THE

COUNT

:# OF SYNC CHARS

BEQ

: CHECK rlwf
ERROR
:# OF SYNC cms

HLT

000003

012700

HLT

001445
022767
001426

TSTB

167016
167014

012142

18:

MOV

BEQ

000013
000054
005674

2504

:POKE CLK DOWN
*POKE CLK UP
*SET STRIP SYNC

000026
006324

012767
012767
004767

| 5502

MOV

#CLK,aTXCSR
#CLK.TXCSR
asrpsm anxcsa

104002

2495 012102 001423
2496

2%:

BIC
BIS
BIS

;POKE CLK TO GET LOGIC INTO smckoumnou

64%:

104000

017701

2488

2489
2490

105777

012054

012060

Poxs CLK DOWN
:POKE CLK UP

104002

012767
012700
012767
012767
004767

SEQ 0048

#CLK,@TXCSR
#CLK.TXCSR

BPL

167150

BIC
BIS

001401

012012
012020
012024
012032
012040

2481

006342

15:40 PAGE 51

DEC

BEQ
TMMP
CMP

;AUTOMATIC RESSETING OF RXDONE & ERROR FLAGS
- CHECK THIS.....

5$
-nmsueo ? GET OUT OF TEST
#3, COUNT
OF SYNC CHARS
#2.,COUNT

:CHECK FRAME ERROR & BAD PARITY ?

:NOPE THEN IT (COUNT) MUST BE= 1

THEREFORE....

MOV
MOV
JSR

#17. SHIFT
m. TEMP1
RPOKE

4 OF SHIFTS
“FRAME & PARITY ERROR
SHIFT IN THIS CHAR

MOV

#54, TEMP1

FRAME & PARITY ERROR

JMP
MOV

33
;D0 IT AGAIN
#1054, TEMP1
;BAD STOP BIT

:NOW DON'T READ THE RYDBUF TO cnéArs OVER RUN
MOV

68:

mxfm'ovnnw-mitna'mkfn% RO

;EXPECTED

FOR FRAME ERROR

CZDUC=D

CZDUCD.P11

MACY11 30A(1052)

18-JuL-78 15:52

gssgg 012160 012700 1;9026
012164 000167 177642

509
10
511
2s1§

251
2514
2515
2516
2517
2518
2519

012170 012767
012176 012700
012202 000167
012206 104400

000054
130026
177624

21-NOV-78
166746

: SCHARACTER EXPECTED:226

2529
2530

$INOTE: THIS TEST USES ONLY THE RECEIVER LOGIC

2533

012210

012767

000036

2535

012224

052777

000600

012216

012232

012240

012246

2542

2543 012254
2544 012262
2545 012266
2546

012274

2548

012302

012767

012612

000400

006074

012777

064001

006064

012777 005626
016703 006042
012767 000003

006052

052777

042777

020000

006030

2551
zssg

012316
o123§42.

042777
052777

020000
020000

2554

01230

012767

000012

012332

052777

2555

012346

012767

2557

012360

2559
2560

012366
012370

2562

012374

2556 012354

2558 012364

2561

012370

100001

005764

001454

166570

005740

104000

005367

001361

006014
006006 -

000400

004767 005450
105777

006022

166546

166572

#30,TSTNO

;SAVE THIS

BIS

#MRESET,@TXCSR

;MASTER RESET

#MRESET.@TXCSR

:MASTER RESET

MOV
BIS

#TST31 NEXT

:GO TO THIS TEST WHEN THRU

#1SYMOD ,@PARCSR :SET THE MODE

sSET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

MOV

#MTDATA ' CLK 'MINT 'BREAK , 3TXCSR

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

166646

006022

MOV

006072

000020

020000

TST30:

006106

052777

2553

166710

166672

012777 000000

012310

2550

JNOTE THAT THE PARITY BIT SHOULD SHOW
;UP IN THE DATA
IE. BIT SEVEN FOR

*SEVEN LEVEL CODE
: :CHARACTER SENT: SYNC CHARACTER

5%5

2549

S:MODE: 1SOC (I1SYMOD)

2527
2528

2547

#54, TEMPY
-BAD STOP BIT & PARITY
#RXERR ' FRMERR ' PARER ! 26 ,R0
:EXPECTED
3s
:D0 IT AGAIN

S LENGTH: SEVEN
::PARITY: EVEPAR

2526

55529

;EXPECTED

: :PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT....
*:BUT,
IF AN RXERR OCCURS
RXDONE PLUS RXERR ARE ASSERTED

2523

2539

MOV
MOV
JMP
SCOPE

#RXERR ' FRMERR ' 26 ,RO
{3
D0 IT AGAIN

:NOTE: NORMALLY THE LOGIC RESETS THE RXDONE SERROR FLAGS

2524
2525

ggs}g

MOV
JMP

SEQ 0049

::THIS TEST PROVES THAT RXERR FREEZES THE 'RECEIVER RESET
*SWHILE IN STRIP SYNC MODE
$:THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN
::STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT
ii.....BUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET
::1S DISCOMBOBULATED
::1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET

2521
2522

2536

7%:
5%:

2520

253,

15:40 PAGE 52

BIS

#1SYMOD ' SEVEN! EVEPAR' 226, aPARC SR
RXDBUF ,R3
:SET UP FOR ERROR MSG
#3, COUNT
¥ OF TIMES SYNC CHAR WILL BE SENT
#SYNSCH,@RXCSR

-SET SYNC SEARCH

#CLK,TXCSR

:POKE CLK DOWN

:POKE CLK TO GET RECEIVEP INTO SYNCROIZATION....

BIC

8IS

#CLK . @TXCSR

‘POKE (LK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
2%:

1$:

BIC
BIS

#CLK,@TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
*POKE CLK UP

MOV

#10, ,SHIFT

“# OF SHIFTS

8IS

MOV

01451 TEMP1

TSTB

@RXCSR

JSR

8PL
648:

#STPSYN,@RXCSR

HLT

DEC

BNE

PC ,RPOKE

64$

-SET STRIP SYNC

:SYNC CHAR + STARTRSTOP+ PARITY

*SHIFT IN THIS CHARACTER

;RXDONE = 0 ?

;RXDONE SHOULD NOT BE SET

CO'NT

:# OF

SYNC CHARS

‘GO AGAIN?

MACY11 30A(1052)

CZDUC-D
CZDUCD.P1

2563
2564

18-JUL-78 15:52

012376
012402

2569
2570

012406
012410
012412

372
2573

012414
012414

012700
017701

21-NOV-78

15:40

PAGE 53

MOV
MOV

000;26
005722

cTMP
BEQ
-

HLT

166520

MOV

166510
166476

MOV
MOV
JSR

MOV

3$:

TSTB

017701
020001
001401

:COMPARE EXPECTED VS ACTUAL

:DATA CHARS SHOULD COMPARE
:THERE SHOULD BE NO RXERR'S

#4, COUNT

# OF TIMES

#1054, TEMP1
#10. ,SHIFT
PC ,RPOKE

:BAD SYNC CHAR (WRONG PARITY)
¥ OF SHIFTS
“SHIFT IN THIS CHAR

#RXERR ' PARER' 26, R0
@RXCSR

<EXPECTED

:RXDONE
= 12

@RXDBUF ,R1
;ACTUAL DATA
RO,R1T
;COMPARE EXP VS ACT

HLT

2
:DID THE RESPECTIVE ERROR STOP THE
;AUTOMATIC RESSETING OF RXDONE & ERROR FLAGS
Seit CHECK THIS.....

;RXDONE SHOULD BE SET

67$

sNOTE THAT THE PARITY BIT SHOULD
:SHOW UP IN THE DATA
;1JE.
BIT SEVEN FOR SEVEN LEVEL CODE

: CHECK riwe ERROR

166426

cTMP
BEQ

#2 ., COUNT
:# OF SYNC cms
7%
:CHECK FRAME ERROR & BAD PARITY ?

abedbad

:# OF SYNC CHARS

000012
000054
005272

166414
166412

MOV

#10. ,SHIFT

cdedabedababad

COUNT

53
-rmxsueo ? GET OUT OF TEST
#3, COUNT
OF SYNC CHARS

000054
170026
1 77660
000454

166400

166362

68 :

000054
130026
177624

166344

7%:

MOV

#54, TEMPY

D0 IT AGAI

5%:

JMP
SCOPE

:D0 IT AGAIN

eleleleleleleleleiNelele

W
§
b
e
e
b
b
b
i
—d

WO NONWVES
W =O

RO,R1
65§

BEQ
cTMP

166436

*RXDBUF IS READ..... ..THERE SHOULD BE
*NO OVER RUN ERRORS

MOV
CMP

HLT

DEC

(49

;NOTE THAT THIS IS THE FIRST TIME

66$

26
26
26
26
26
26
26

l226 RO :EXPECTED
SRXDBUF ,R1
sACTUAL

BM]

BEQ

104002

SEQ 0050

120226
177642

BEQ

;NOPE THEN IT

MOV
JSR

(COUNT) MUST BE
= 1

o54 TEMP1
RPOKE

THEREFORE....

:# OF SHIFTS

*FRAME & PARITY ERROR
SSHIFT IN THIS CHAR

:NOW DON'T READ mé RXDBUF TO cnéArE OVER RUN
MOV
MOV
JMP

MOV
MOV

JMP

MOV

4, TEMPT
RAME& PARITY ERROR
mxsm'ovanwrwmmmen'ze RO
3$
AGAIN

;EXPECTED

#4656, rsm
STOP BIT FOR FRAME ERROR
mem'rmm'zz&
RO ~ ;EXPECTED
STOP BIT & PARITY

mxsm'rmsna'mksn'zs RO

:EXPECTED

;:THIS TEST PROVES THAT RXERR FREEZES THE 'RECEIVER RESET''

s;WHILE IN STRIP SYNC MODE

s:THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN

..STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT

..... BUT IF AN £PROR SHOULD OCCUR....THIS AUTOMATIC RESET

;315 DISCOMBOBULATED

—

CZbuC-D
CZouCb.P1

MACY1] 30A(‘| 52)

18-JuUL~78 15:5

21-NOV-78

15:40

PAGE 54

SEQ 0051

..IE FORCE PARITY ERROR WHILE STRIP SYNC IS SET

NOTE: NORMALLY THE LOGIC RESETS THE RXDONE SERROR FLAGS

..PROVIDING THAT ONLY GOOU SYNC CHARACTERS ARE SENT....

é 1S0C (I1SYMOD)

IF AN RXERR OCCURS

*ILENGTH: SIX
PIPARITY: EVEPAR
* *CHARACTER EXPECTED:126

RXDONE PLUS RXERR ARE ASSERTED

;NOTE THAT THE PARITY BIT SHOULD SHOW
:UP IN THE DATA
IE. BIT SIX FOR
*SIX LEVEL CODE

::CHARACTER SENT: SYNC CHARACTER
*INOTE: THIS TEST USES ONLY THE RECEIVER LOGIC
012612
620

012767

7$T31:

#31,TSTNO

:SAVE THIS

BIS

MMRESET ,@TXCSR

;MASTER RESET

#MRESET.@TXCSR

:MASTER RESET

MOV

052777

BIS

#TST32, NEXT

;GO TO THIS TEST WHEN THRU

#1SYMOD ,@PARCSR :SET THE MODE

sSET MAINT DATA,CLK,BREAK ,8MAINTENANCE MODE
MOV
#MTDATA! CLK !MINT !BREAK ,@TXCSR

012777

012656
012664
012670
012676

MoV

MOV

sSET MODE ,# OF
MOV
MOV
MOV

012777
016703
012767
052777

BITS,PARITY SENSE,8LOAD SYNC REG
llsm'SIX!EVEPAR!126 @PARCSR
RXDBUF ,R3
:SET UP FOR ERROR MSG
#3, COUNT
:# OF TIMES SYNC CHAR WILL BE SENT

BIS
#SYNSCH,@RXCSR
:SET SYNC SEARCH
:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

042777
052777

BIC

#CLK,3TXCSR

.PO(E CLK DOWN

BIC
BIS
BIS

#CLK,@TXCSR
#CLK. @TXCSR
oswsm @RXCSR

:POKE CLK DOWN
*POKE CLK UP
:SET STRIP SYNC

TSTB

@RXCSR

HLT

sRXDONE SHOULD NOT BE SET

BIS

#CLK.@TXCSR

POKE

CLK UP

;POKE CLK TO GET LOGIC INTO smckomzmou
2s:
1$:

MOV

MOV
JSR
BPL

648:

SHIFT

mssl
rem
PC ,RPOKE
64$

¥ OF SHIFTS

*SYNC
CHAR + STARTESTOP+ PARITY
sum IN THIS CHARACTER

:RXDONE = 0 ?

DEC

SgNT

:# OF
SYNC CHARS
:GO AGAIN

MOV
MOV

#126 R0 :EXPECTED
aRXDBUF ,R1
sACTUAL

;NOTE THAT THIS IS THE FIRST TIME

.nxoeur IS aem...g...ruene SHOULD BE
g?a’

R(S)§R1

HLT

166116

MOV

:COMPARE EXPECTED VS ACTUAL
;DATA CHARS SHOULD COMPARE
: THERE SHOULD BE NO RXERR'S

#5, COUNT

# OF TIMES

#RXERR ' PARER! 26, RO

SEXPECTED

CZDUC=D

MACY1] som 52)

CZDUCD.P11

18~JUL-78 15:5

75 O
;9 01
01

;2 012767
012767
004767
78 013050 105777
79 013054 100401
013056 104000
1 013060
013060 017701
013064 020001
013066 001401
S

2688

2689
2690
2691
2692
2693
269
2695
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713

013070

013072

013076
013100
013106
013110
013116
013120
013126
013134
013140
013146
013152
013156
013164
013170
013174
013202
013206
013212

005250

668
:

005244

104400

MOV

HLT

67%:

001445
022767
001423
022767
001426
012767
012767
004767
012767
012700
000167
012767
012700
000167
012767
012700
000167

TSTB

BM]
HLT

BEQ

104002

005367

MOV
MOV
JSR

166044

000003 166034
000002 166024

000011
000054
004670
000054
170026
177660
000254
120126
177642
000054
130026
177624

166012
166010
165776
165760

165742

SEQ@ 0052

#4546, TEMP1
;BAD SYNC cm (WRONG PARITY)
#9. ,SHIFT
*# OF SHIFT
PC .RPOKE
*SHIFT IN rms CHAR
@RXCSR ;RXDONE = 1?
66$
;RXDONE SHOULD BE SET
SRXDBUF ,R1
;ACTUAL DATA
RO,R1T
;COMPARE EXP VS ACT
67§
2

DID THE RESPECTIVE ERROR STOP THE

SAUTOMATIC RESSETING OF RXDONE & ERROR FLAGS
.---ooC* K HIS..I.'

:NOTE THAT THE PARITY BIT SHOULD
*SHOW UP IN THE DATA
*IE. BIT SIX FOR SIX LEVEL CODE
DEC
COUNT
;# OF SYNC CHARS
BEQ
55
rmxsueo ? GET OUT OF TEST
P
#3,COUN
-# OF SYNC CHARS
BEQ
63
;cuecx FRAME ERROR ?
P
#2.,COUNT
:# OF SYNC CHARS
BEQ
7
:CHECKFRAME ERROR £ BAD PARITY ?
:NOPE THEN IT (COUNT) MUST BE = 1 THEREFORE....
MOV
#9. SHIFT
:# OF SHIFTS
MOV
m TEMPT
*FRAME € PARITY ERROR
JSR
C ,RPOKE
“SHIFT IN THIS CHAR
:NOW oon T READ me RXDBUF TO CREATE OVER RUN
MOV
#54, TEMP1
:FRAME § PARITY ERROR
MOV
#RXERR ! OVRRUN! FRMERR ! PARER ! 26 R0
:EXPECTED
JMP
3$
:D0 IT AGAIN
68:
MOV
#254, TEMP
:BAD STOP BIT FOR FRAME ERROR
MOV
#RXERR'FRMERR'!126
R0
:EXPECTED
JMP
3$
D0 IT AGAIN
7%:
MOV
#54, TEMPY
:BAD STOP BIT & PARITY
MOV
#RXERR
! FRMERR ! PARER ! 26 ,R0
:EXPECTED
JMP
3
:D0 IT AGAIN
5$:
SCOPE
::THIS TEST PROVES THAT RXERR FREEZES THE ‘RECEIVER RESET
SWHILE IN STRIP SYNC MODE
“:THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN

2716

:;STRIP_SYNC xs SET & SYNC CHARACTERS ARE SENT

2717
2718
2719
2

2727
2728
2
2

000454 166106
000011 166074 3$:
004760

013072

2714
2715

2721
272
272
2724
2725
2726

21-NOV-78 15:40 PAGE 55

*.....BUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET
+:15 DISCOMBOBULATED
:1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET
*NOTE: NORMALLY THE LOGIC RESETS THE RXDONE EERROR FLAGS

..movxomc THAT ONLY GOOD SYNC CHARACTERS ARE SENT..
::BUT, IF AN RXERR OCCURS ~RXDONE PLUS RXERR ARE ASSERTED
MODE: 1SOC (1SYMOD)
*ILENGTH: FIVE
“:PARITY: EVEPAR
*:CHARACTER EXPECTED:66

;NOTE THAT THE PARITY BIT SHOULD SHOW
‘UP IN THE DATA
IE. BIT FIVE FOR
*FIVE LEVEL CODE
; ;CHARACTER SENT: SYNC CHARACTER

MACY1] SOA(‘I 52)

CZDUC-D

18-JuUL~78

CZoucb.P1

15:5

21-NOV-78

15:40

PAGE 56

SEQ 0053

;:NOTE: THIS TEST USES ONLY THE RECEIVER LOGIC

t§132:

mov

MOV
BIS
MOV
BIS

#32,TSTNO

:SAVE THIS

AMRESET.@TXCSR

:MASTER RESET

# .EOP,NEXT
GO TO THIS TEST WHEN THRU
MMRESET,TXCSR ;MASTER RESET
#1SYMOD .aPARCSR -SET THE moe

;SET MA] NHEVDATA. CLK ,BREAK ,BMAINTENANCE MODE

#MTDATA! CLK !MINT !BREAK ,@TXCSR

;SET MODE

,# OF BITS,PARITY SENSE,ELOAD SYNC REG

MOV
MOV
MOV
BIS

013306

#1SYMOD
' F IVE 'EVEPAR
|66,aPARCSR
RXDBUF ,R3
:SET UP FOR ERROR MSG
#3, COUNT
“# OF TIMES SYNC CHAR WILL BE SENT
#SYNSCH,@RXCSR

-SET SYNC SEARCH

BIS

#CLK. @TXCSR

POKE

BIC
BIS
BIS
MOV

#CLK,@TXCSR
#CLK. aTXCSR
#STPSYN,RXCSR

#8. SHIFT

:POKE CLK DOWN
*POKE CLK UP
:SET STRIP SYNC
:# OF SHIFTS

JSR

PC ,RPOKE

*SHIFT IN THIS CHARACTER

;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
8IC
#CLK,@TXCSR
.Poxs CLK DOWN

2%:

1$:
64%:

MOV

#354, TEMP1

TSTB

@RXCSR

HLT

sRXDONE SHOULD NOT BE SET

DEC

BNE
MOV

MOV

COUNT

P 3
#66,R0

R RRRRERRRR RRY

S&RR BFNFSKESS R

= 9o 0= 9 aegscsaes S99

658

;# OF

SYNC CHARS

:GO AGAIN ?
:EXPECTED

mXDBUF R1

sACTUAL

;NOTE THAT THIS IS THE FIRST TIME

IS READ....... THERE SHOULD BE

*NO OVER RUN ERRORS

g?;

ZCS)‘M

HLT

MOV

#4, COUNT

# OF TIMES

MOV

#254 ,TEMP1

;BAD SYNC CHAR (WRONG PARITY)

PC ,RPOKE

JSHIFT IN THIS CHAR

MOV
3%:

*SYNC CHAR + STARTESTOP+ PARITY

;RXDONE = 0 ?

sRXDBUF

013472

CLK UP

:POKE CLK TO GET LOGIC INTO smckomzmou

MOV

JSR

s COMPARE EXPECTED VS ACTUAL

;DATA CHARS SHOULD COMPARE
;s THERE

SHOULD BE NO RXERR'S

lRXERR'PARER'?b RO
08..SHIFT

B OF SHIFTS

TSTB

aRXCSR

sRXDONE
= 1?

HLT

JRXDONE

SHOULD BE SET

BM]

663

JEXPECTED

MOV
g;lo’

aRXDBUF ,R1
;ACTUAL DATA
20£R1
;COMPARE EXP VS ACT

HLT

l
;DID THE RESPECTIVE ERROR STOP THE
JAUTOMATIC RESSETING OF RXDONE & ERROR FLAGS

CZDUC~D
CZDUCD.P11
2787

2788

013474

2792

013474

2789
2790
2791
2793
279%
2795
2796
2797

013500
013502
013510
013512
013520

—

MACY11 30A(1052)
18-JUL-78 15:52

21-NOV-78

005367

001445
022767
001423
022767
001426

165442

DEC

165432

000002

165422

2799 013522 012767 000010
2800 013530 012767 000054

165410
165406

2801

013536

004767

004266

2804
2805

013550
013554

012700
000167

170026
177660

2807 013566
2808 013572

012700
000167

SEQ 0054

ieees.CHECK THIS.....

67%:

000003

2798

15:40 PAGE 57

:NOTE THAT THE mm BIT SHOULD
:SHOW UP IN THE DAT
:IE. BIT FIVE FOR nve LEVEL CODE

COUNT

;# OF SYNC CHAR

BEQ
TMMP
BEQ
cTMP
BEG

5§
nmsueo ? GET our OF TEST
#3,COUNT’
# OF SYNC CHARS
6%
cuecx rlwe ERROR ?
02
:# OF SYNC CHARS
cuscx F RAME ERROR & BAD PARITY ?

MoV
MOV

#8. SHIFT
#54. TEMP1

- NOPE men IT (COUNT) MUST BE= 1

JSR

PC ,RPOKE

THEREFORE....

:# OF SHIFTS
*FRAME € PARITY ERROR
“SHIFT IN THIS CHAR

2802
2803 013542 012767 000054

165374

:NOW DON'T READ THE RXDBUF TO cném OVER RUN
MOV
#54
, TEMP1
RAME& PARITY ERROR

2806

013560

2809

013576

2811
2812

13610
013614

2810

813604

012767

000154

165356

6%:

012767

000054

165340

7%:

000167
104400

177624

012700

120066
177642

130026

5%:

MOV
JMP

mxem'ovnmwrmmmmemzo RO
3$
:D0 IT AGAIN

MOV
JMP

#RXERR
! FRMERR ! 66 RO
3
D0 IT AGAIN

MOV
MOV

MOV

JMP
SCOPE

#154, TEH§1

;BAD STOP BIT

#54, TEMP1

;BAD STOP BIT & PARITY

;DO IT AGAIN

FOR FRAME ERROR

;EXPECTED

#RXERR
' FRMERR ' PARER ' 26 ,R0
3%

:EXPECTED

CZDuC-D
CZDUCD.P11

MACY?1 30A(1052)
18-JuL-78 15:52

21-NOV-78

15:40

2813

2814

;TYPE NAME OF TEST
;UPDATE PASS COUNT

2817

sCHECK FOR EXIT TO ACT=11

sRESTART TEST

2820
2821
2822
2823
4
2825
2826
2827
2828
2829
2830

013616
013620
013622
013626
013632
013636
013640
013644
013646
013652
013656

104402
016760
104410
104402
105767
001511
005767
001007
104402
016700
000000

2832

013660

000167

2834
2835
2836
2837

013672
013700
013702
013706

062767
000241
006167
103410

2839
2840
2841
2842
2843

013710
013716
013720
013724
013730

036767
001762
004767
000167
012767

2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
Sggg

013736
013744
013752
013756
013760
013766
013772
014000
014006
014014
014022
014030
014036
014044
014052

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

2861

014054

000001

ggg‘

2831

2833

2838

2844

286%
2865
2866
2867
2868

SEQ 0055

;END OF PASS

2815
2816

%g}g

PAGE 58

013664

014056

062767

.EOP:
014054
016501
165344
165352
016513
165340
165534

000010

TYPE
MEPASS
CONVRT
TYPE
TSTB
BEQ
TST
BNE
TYPE
MOov
HALT

165312

RUNIT:
ZERO:

JMP

ADD

ADD
CLC
ROL
BCS

165304

165300

000034
000174
000001

165262

2%:

165244
165244
000002

165240
165240

165220
003702
165214
000002

004040

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

165200

014060

006

020324

002

014062
014062
014066
014072

005067
005067
005267

165046
165154
165032

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

JARE YOU RUNNING MULTIPLE DEVICES ?

sNO,JUMP AROUND
:ARE ANY DEVICES ACTIVE ?
:YES
:NO
:DISPLAY ACTREG
;SELECT SOMETHING TO RUN @ ACTREG:

s SELECT SUITCHES € HIT CONTINUE (PUT SWO0 =1)

165312

000002
165164
000002
165150

;TYPE NAME OF TEST

004350
165204
004336
165170
004324
165154
004312
165140

BIT
BEQ
JSR
JMP
MOV

OUTCRY: 1

:START OVER AGAIN...... YOU DESELECTED EVERYTHING

#10,BASEIV

:NEXT BLOCK (VECTORS)

:NEXT BLOCK (ADDRESSES)

ROTADD
2%

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

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

:TEST THIS DEVICE FOR ACTIVE STATUS
:IF NOT ACTIVE, TRY NEXT ADDRESS
:CALCULATE NEW PARAMETERS
sYES IT WAS ACTIVE,TEST THIS DEVICE
:0K! ,NOW SET UP ROTATING

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

:RESTORE BASE ADDRESS
sRESTORE BASE INTERRUPT VECTORS
;CALC NEW PARAMETERS
:JUMP AROUND REPLAY
sSET UP FOR NEW ADDRESSES
:CREATE NEW ADDRESSES
:CREATE DURIV

BYTE

6,2

CLR
CLR
INC

LSTERR
ERRFLG
PASCNT

RXCSR

ccC:

.STAR

#10 BASEADD

:TO BE _TESTED IN THIS PASS ?

:POINTER FOR NEXT MULTIPLE PASS

:CREATE DURIS
:CREATE DUTIV
CREATE DUTIS
;RESTORE

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

CZDUC=D
CZDUCD.P11
2870

9 014076

%gn

2873

2876
2875
2876

014104

MACY11 30A(1052)
18-JUL=7815:52
016777

013701

014110

001405

014114

004711

014112

014116
014120
014122

165026

000042

21-NOV-78

15:40 PAGE 59

164776

MOV

BEQ

000005

LOGICAL :

000240
000240
000240

RESET

NOP
NOP
NOP

2877 omgg 012767 000340 163644 RESTRT: MOV
2878 0141
104413
CKSWR
2879 014134
ggg? 014142

012767
000167

003446
167300

164752

MOV
JMP

%éc“%
2884

2885

014146

2887

014216
014220

000002

014220
014222

104413
032777

014232

000432

014240
014242
2907 014246

100027
017700
000412

2909

001006

2902

2904

2905

2908

014230

014234

014250

014256

001407

105777

2912
2913
2914

014272
014274
014300

101412
105067
005067

2918

014324

2915
2916
2917

2919
22321

2235‘%

2924

014304
014312
014320

014326

014330

014332

164706
164676

026767

012767
016767
016716
000002

001407
000432

104413

1%:
164702

2%:
3%:
4$:

040000

164650

TTIST:

164644

PC,(R1)

#340,PS
#TST1,RTRN
TST1

:PREVENT INTERRUPTS (PRIO: 7)
SCHECK FOR “G

164634

164746
164620

000005
164600
164570

B8R

‘s

:IF RUNNING ON THEX OR TESTER CHANGE

MOV
MOV
TST
MOV
BR
cTMP
MOV
BR
MOV
MOV

G ,-(SP)
k¥
A
an177060
(SP)+, k4
2s
(SP)+,(SP)+
(SP)+. a4
3s
NEXT ,RTRN
RTRN. (SP)

*SAVE CONTENTS OF ERROR VECTOR
*SET FOR TIME OUT
“TIME OUT ON X OR ?
*RESTORE ERROR VECTOR
:GO TO NEXT TEST
:CLEAR THE STACK AFTER A TIMEOUT
*RESTORE ERROR VECTOR
:LOOP ON PRESENT TEST
*SET
UP NEXT TEST IN RTRN
*SET UP STACK FOR RTI

RTI
;xxxx END OF CODE FOR THE

CKSWR
BIT

#SW14,ASWR

B8R

BEQ

TSTB

164640
164640

005267

000004

004000

014260

014264

000004
014174
177060
000004

032777

2910

2911

JSR

*IF NOT, CONTINUE TESTING

;wxxx START OF CODE FOR THE X OR TESTER ##nnws

000424

014150 013746
014154 012737
014162 005737
014166 012637
014172
014174 022626
014176 012637
014202 000403
289 014204 016767
2897 014212 016716

2903

RESTRT

:DISPLAY PASS COUNT

:CHECK FOR ACT=11 OR DDP

.SCOPE:

2888
2889
2890
2891
2892
2893

2900
2901

PASCNT,aLIGHTS

ae2 R

;SCOPE LOOP AND INTERATION HANDLER

2886 014146

2898
2899

SEQ 0056

164622

1%:

164630

38:
BRW:
BRX:

@TKCSR

3$
aTKDBR, RO
2$

BIT

#SW11,aSWR

INC

LPCNT

BLOS
CLRB
CLR

3%
ERRFLG
LPCNT

BNE

CMP

2%:

164610
164574

BPL
MOV
B8R

MOV
MOV
MOV
RT]

1407

432

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

X OR TESTER ##wwnw

:CHECK FOR G
:LOOP ON CURRENT TEST ?

:TEST TTY FLAG

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

LPCNT, ICOUNT

;CHECK FOR ITERATION CNT FINISH

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

;SET UP ITERATION COUNT
*SET
UP NEXT TEST IN RTRN
*SET UP STACK FOR RTI

;RESTORE 'BEQ 1%'* INSTRUCTION
*RESTORE ‘BR 3%'' INSTRUCTION

;CHECK FOR FREEZE ON CURRENT DATA

.SCOP1: CKSWR

:CHECK

FOR G

CZbuC-D
CZouCb.P1

MACY11 30A(1052)
18-JUL=78 15:52

032777

001000

001402
016716 164550
000002

21-NOV-78

15:40

164536

BIT

1%:

BEQ
MOV
RTI

PAGE 60

SEQ 0057

#SW09, ASWR

LOCK, (SP)

;TELETYPE OUTPUT ROUTINE
010546

017605
062766
105715

001406
105777
100375
112577

000770
012605

000002
000002

.TYPE:

000002

164512

1%:
2%:

164506

MOV

3$:

RS,=(SP)

MOV
ADD

@2(SP) ,RS
#2,2(SP)

BEQ
TSTB
BPL

3$
QTPCSR
2

BR
MOV

1%
(SP)+,RS

1STB

MOVB

RTI

(RS

(RS)+,aTPDBR

;LOOK FOR "0

;TEST DONE BIT
;TYPE CHAR

;DO IT AGAIN UNTIL ‘0" IS SEEN

;ASCII STRING INPUT ROUTINE

010346
010446

017667 000004
062766 000002

104402

012704
012703
105777

100375

104402

016670

122427

000015

117777
105777

164374
164370

001423
e

164432

164426
000200
000025

000755

100375
005303
001350
02

104402

1%:

MOV
MOV

TSTB

BPL

MOVB
BICB
CMPB

BNE

104402

016670

R3,=(SP)
R&,=(SP)

@4 (SP)
, .MSG
#2.4(SP)
#INBUF ,Ré
#7.,R3
@TKCSR

QTKDRR, (R4)
#200, (R4)
(R4) 425

2008

TYPE ,MCRLF

2008:
164376

2%:

.INST1

BEQ

INSTR?

CMPB

MOVB
TSTB

BPL
DEC
BNE

LINSTG: TYPE
016026

012603

MOV
ADD
'A'%'E”’ 5vps

.INSTE: MOV
MOV

01
005737

000727
012604

.INSTR: MOV
MOV

010346
010446
001402

000010
000004

017460
000007

117714
142714
121427

001003

MQM
ST

BEQ

(R4)+,#15

@TKDBR,aTPDBR
QTPCSR

2%
R3
1%

.INSTG

R3,=(SP)
R&4 . =(SP)
SMRDSW

4008

TYPE ,MCRLF

4008:
BR
INSTR2: MOV

F;T)\I/

LINST1
(SP)+,Ré

(2P)+ ,R3

218 IT <%

MACY1] 3?2(; 52)

18-JUL-78

21-NOv-78

15:40

PAGE 61

SEQ 0058

sCONVERT ASCII STRING TO OCTAL
.PARAM: MOV

H
n
~N

000015

2714

122714

000015

005737

016026

PARERR:

120%:

014714

RS,=(SP)

MOV

R4 .=(SP)

MOV
MOV
MOV
MOVB
MOVB
MOV

(RS)+.LOLIM
(R5)+.HILIM
(RS)+.DEVADR
(R5)+.LOBITS
(RS)+.ADRCNT
22.4(sp>

MOV

4(SP) RS

MOV
CMPB

# INBUF
, R4
#15,(R4)

ASL

ASL
ASL

RS
R5

CMPB

#15,(R4)

BNE

PARTI

PARAM1

BNE

INSTER

120%

;IS

FIRST

014716
014722
014724
014730
014732
014736

020567

000046

020567

000036

136705

000036

LIMITS:

CMP

BHI
CMP

BLO
8IT8B

BNE

RS HILIM

PARERR

R5,LOLIM

PARERR
LOBITS RS

PARERR

;STORE NUMBER AT SPECIFIED ADDRESS

;04

000026

5
365

000002
000017

014740
014744
014746
014752
014756
014760
014762
014764
014766
014770

1%:

PARTI:

LCLImM:

HILIM:

MOV

DEVADR
R4

MOV
ADD
DECB

RS, (R4)+
#2 RS
ADRCNT

MOV

(SP)+ R4

BNE

"
RT]

(SP)+ ,R5

CHARACTER A <CR>

;IS CKSWR ROUTINE BEING USED

sTEST TO SEE IF NUMBER IS WITHIN LIMITS

geeseeeey
OO
NS WN=O CESEE

R LAYEELEE RS

CZbUC-D
CZDUCD.P1

MACY11 30A(1052)

CZbuC-D
CZDUCD.P11

3037

18-JUL~78 15:52

014772
014774

21-NOV-78

000000

15:40

PAGE 62

SEQ 0059

DEVADR: 0

01477?

LOBITS: 0

ADRCNT=LOBITS+1

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

000004

164170

.SAV0S: MOV

4(SP) ,SAVPC

ol ol
il el ol
il

NOWW
S NN
nNOONSNO

RRRRRR

ol
il
s
i

010567
010467
010367
010267
010167
010067
000002

:SAVE RO=RS
SV0S:

MOV

RS, SAVRS

MOV.

RO.SAVRO

MOV
MOV
MOV
MOV
RT]

R& . SAVRG
R3.SAVR3
R2.SAVR2
R1,SAVR1

[o]le]

MOV
MOV

(e
[

Nl\gof\)l\

—_— -

.RESOS: MOV

RRRXKXK

I I

;RESTORE RO-RS

MOV
MOV
MOV
RTI

SAVR),R0

SAVR1 .R1
SAVR2.R2
SAVR3.R3
SAVRS -R&
SAVRS _RS

:CONVERT OCTAL NUMBER TC ASCII AND OUTPUT TO TELEPRINTER
.CONVR:

.CNVRT: MOV
MOV
MOV
MOV
MOV

RIXRVENELEKRSHERCS

MOV
1$:

;

017520
177770

000060

SUSHE Sy
JE
T
e
e
R

e R

MOV

100000
n

3091
3092

D e

g BRFERRREE Iy

NS SRS RN S

elelalelelelelelelelelelelolealelelelololele]

015076

3089

TYPE
MCRLF

2%:
3%:

RO, =(SP)
R1.=(SP)
R3.=(SP)
R&.=-(SP)
RS .=(SP)

@12(SP)
,R1

TEMP, TEMP3

ADD
MOV

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

MOVB
MOV

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

MOVB

(R1)+.CHRCNT

MOV
MOVB

BINWRD
. R4
CHRCNT.RS

MOV
BIC
ADD
MOVB

R44R3
#177770.R3
#060,R3
R3, (R0)+

BIC

#100000, Ré

DEC

MOV

ASR

ASR
ASR

#TEMP RO

:SHIFT FOR NEXT #

R&
Re

DITTO
DITTO

*CLUGE TO STOP BIT 15 PROPAGATING.

FRR B MNP RE RS RSRERN
FREFNS

NV
ES 8S
oo

15:40

5%:

BNE
TSTB
BEQ
MOVB

A3
SPACNT
6%
#040, (R3) +

000040
000043

6%:

BNE
(LRB

5%
(R3)

MDATA
DEC

WRDCNT

000024
163660

TYPE

MOV

-(R0),(R3)+
CHRCNT

SPACNT

1%
TEMP3, TEMP
(SP)+ RS

MOV

(SP)
+ R4

MOV
MOV

(SP)+ R1
(SP)+,R0O

MOV
RTI

(SP)+ ,R3

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

d e
D

;COMPARE THE FIRST CHARACTER IN THE TELETYPE
BUFFER TO THE CHARACTERS W' AND "Y'

INPUT

:IF THE CHARACTER IS 'N'' CLEAR THE FLAG
:IF THE CHARACTER IS ''Y'' SET THE FLAG

DECB

BNE
MOV

002226

_— d
—

W N NN N NN NN NN
N W W

3145

MOVB
DECB

§
SEQ 0060

3%
#MDATA ,R3

000055

367

PAGE 63

BNE
MOV

A ¥

000062

—

d d e
—

017560

Vi
W

D o

e e

D e

D e o

e o

oleleleleleleleleclelelelelelelelelelelelelelols]

21-NOv=78

d e

D e

RRD D D OV Nl N A AN N AR NN
RO
B
e e T YN GU U Y
oleololololeole]
ENWRRN NS E NV Skt S NO VRN N SonIrnrn-o3BIRIREC2S

WNNWN
W
N WWNWWWNWN
N NN
NN W NN NN NN W

§29%5%8

3093

MACY11 30A(1052)
18-JuUL~78 15:52

CZDUC-D
CZbuCD.P1

000116

002132

000131

¢
002116

177777
000002

.SETFLG:MOV

CMPB

1%:
2%:
3%:

BNE
CLRB
BR

a(SP) RS

#°'N, INBUF

1%
(RS)
2%

;000

CMPB

#'Y, INBUF

al%ll)

#2,(SP)

BNE
MOVB

INSTER

115 IF "W %

3%
#-1,(RS)

.SETFLG

218 17 "2

: 377
;RETRY

;TRAP DISPATCH SERVICE

ARGUHENT OF TRAP IS EXTRACTED
;AND USED AS OFFSET TO OBTAIN POINTER

“TO SELECTED SUBROUTINE
000002
000000
177001

001366
000000

.TRPSR: MOV
TRPOK:

(SP) ,-(SP)

JGET PC OF RETURN

SuB

#2,(SP)

ASL

(SP)

JMULTIPLY TRAP ARG BY 2

#.TRPTAB, (SP)

sPOINTER TO SUBROUTINE

MOV

a(SP), (SP)

BIC

#177001, (SP)

MOV

a(SP), (SP)

ADD

+=PC OF TRAP

;GET TRP

;CLEAR UNWANTED BITS

s SUBROUTINE ADDRESS

ADDRESS

4 DUC-D
CZDUCD.P1
-t &

015412

21-NOV=78

15:40

000136

JMP

015414

020000

163454

JHLT:

163502

D
D

163474

D D

163602

1%:

MOV

CKSWR
BIT
BNE
CMP
BEQ
MOV
CLRB
SAV0S
MOV

suB

000002

ASL

—_—d e e

ADD

177001

+
A(SP)

SEQ 0061

;GO TO SUBROUTINE

000042
TYPMSG:

177777

TST

DATABP

BNE

CONVRT

TYPE

BEQ

TYPE

DATAHD: 0
TYPDAT:

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

ERRFLG

000004

#177001,Ré4

TSTB

ERRMSG: 0

000004

(RS) Ré

#.ERRTAB,R4

ERTABO
MOVB

163510

(RS) R4

ADD

BEQ

TST

BEQ
CONVRT

;CHECK FOR *G
s INHIBIT ERROR TYPE OUT ?

<sp) RS

MOV
MOV
< MOV

163532

#SW13,aSWR
HALTS
(SP) ,LSTERR
18
(SP) ,LSTERR
ERRFLG

ASL

BIC

020274
000040
000046
000054

TYPMSG

TYPDAT

#-1,ERRFLG
DATAHD

TYPDAT

DATABP

RESREG

DATABP: 0

RESREG: RESOS
HALTS:
TST

163304

BPL
PUSHRO
MOV

000002

HALT

b
— ek
W

D
D
e
=
e
=

FLRRZLRLR
Ol\& (=20 e Nl

015606

jelelelelelelelsle]

Ee————

PAGE 64

:ERROR HANDLER

RS —A—A-.—a—n—n—a—.—n—a-a-a;—n-a-n—a-a—l-.—n-n-n—a-n_a_n_n—n—a
BRBIRRRES283B RRRERN 2B IFIFNNANYITEIEERAR
LB L IE AR

N N NN NN NN NN NN NN NN N NN N W NN NN W W W NN WWWWWWWWWWWWNWNW (ANWWWW

DD et

149

MACY1] 30A(1052)
18-JuL~78 15:52

EXITER:

163314
000400

163254

002000

163244

163254

163250

001100
163240

1%:

ASWR

EXITER

2(SP) RO

POPRO

CKSWR
INC
BIT

BNE
BIT
BFQ
MOV

ERRCNT
#SW08, aSWR
1%
#SW10,aSWR
2%
NEXT ,RTRN

JMP

ARTRN

MOV

#>TACK,SP

;CHECK FOR *G

;LOOP ON ERROR ?

;ESCAPE TO NEXT ON ERROR ?
sSET UP FOR _NEXT TEST

JREINITIALIZE

MACY11 30A(1052)

229
B
T

18-JUL~78 15:5

21=NOv=78

PAGE 65

2%:
RTI
ERTABC: 1
BYTE

002

15:40

SAVP(

SEQ 0062

6,2

sENTER HERE ON POWER FAILURE

PFAIL: MOV

MOV
MOV
MOV
MOV
MOV

162106

viwn

(=lele]

—_

W)
=

VB®ICNE NSO

KKKRRKKIRKKIRs
S

CZbuC-D
CZDUCD.P1

1%:

RO,=(SP)

R1,-(SP)
Rg.-(SP)
R3,=(SP)
R4 ,=(SP)
RS.,=(SP)

MOV
MOV
MOV

24 ,~(SP)
SP,SAVSP
#RESTART ,24

B8R

HALT

;SAVE RO-R5 ON PROCESSOR STACK

sSAVE STACK POINTER
;SET _UP FOR POWER UP TRAP
JHALT ON POWER DOWN NORMAL

sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

3225

163244

RESTAR: MOV

SAVSP,SP

MOV

(SP)+ R4

MOV

MOV
MOV

162054

MOV

162020

W
oo

88883
RKSER

MOV
MOV

1%:

CLR
CLR

002

#.PFAIL
24

BNE

PFTAB
TYPE
MPFAIL

PFTAB:

(SP)+ ,R1
(SP)+,R0O

#340,PS
#STACK,SP

CLR
INC

ERRFLG
LSTERR

aRTRN

.BYTE

6,2

RTRN

:SET UP FOR POWER FAILURE

TEMP
TEMP

JMP
1

sRESTORE STACK POINTER

;RESTORE RO-RS

(SP)+,R3
(SP)+ ,R2

MOV
MOV

CONVRT

163236
163120
163074

(SP)+ RS

sCHECK SWITCH REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING .

sOF LOC.176.

;LOCATIONS USED:

005737
00
022767
001036

000042
000176

.CKSWR:
163034

RDSW:

.WORD

TST

CMP

#2REG, SWR

BNE

ouT
ourt

sSOFTWARE SWITCH REGISTER PRESENT
sNO, GET OuT

CZDUC=D

CZDUCD.P11
1

;2224

MACY11 30A(1052)

18-JUL-78 15:5

105777

163032

016054
016062

017767
042767

163026
177600

016053 10003;
016070

122767

000007

3266 016076 001021

3267
3268
3269
3270
3271
3372
3273
276
3275

016100
016104
016110
016114
016120
016126
016126
016130
016132

104402
005137
104402
104411
104403
104405
000000
177777
000176

016156
016026
016163
016150
016173

3277
3278
3279
3280

016136
016142
016146
016150

106402
005037
000002
000001

016670
016026

3282
3283
3284

016154
016156
016163

000176
005015
015

016173
016200

040

3276 016134

|
|

3281

3288
3289
3290
3291

329

3296
3297

3298
3299
3300
3301
3302
3303
3306
3305
3306
3307
3308
3309
3310
3311
331§
3313
3314
3315
3316

016152

016204
016212
016220

016236
016260
016266
016274
016302
016310
016316
016324
016332
016340
016341
016346
016354
016362
016370
016376
016404
016412
016420
0164§2
0164

000

006

21-NOV-78 15:40 PAGE 66
TSTB

176352
176344

ouT

CMPB

47, .MSG

MOV
BIC

176336

@TKCSR

BPL

BNE

@TKDBR, .MSG
#177600. .MSG

ouf

SEQ 0063

—

;YES,WAIT FOR

:READY, GET CHARACTER
*AND STRIP OFF
*THE GARBAGE
YIS IT A <*6>

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

001

.BYTE

0,1

TYPE ,MCRLF
OUT:
CLR
HRDSW
RTI
SWREGC:
1

002

BYTE

6.2

043536
051868

000
051127

SCNTG:
S$MSWR:

SWREG
.ASCIZ
.ASCIZ

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

047040
000

053505

SMNEW:

.ASCIZ

042012
055103
020104

030525
052504
O‘OS%&

.EVEN
MTITLE:

.ASCIZ

<15><12><12>/DU11 CZDUC=D TAPE C /<15><12>

005015

042526

052103

MVECTO: .ASCIZ

<15><12>/VECTOR ADDRESS=-/

825015
04
72
053111
047117
051040
042524
051104
000
015
054440
047125
0
120
044526
020077
020122
005015
2040
035105

051461
044526
042522
051105
051126
043505
020122
051505

000055
8%8}5%

MREGAD:

.ASCIZ

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

042503
041440
046117
051511
042101
026523

04041;
052517
044512
046125
020105
042503
054450
024516
040514
053105
042522

042522
051040
043516
044524
0425
020123
047440
000055
052123
041511
042503

"
MMULT:

.ASCIZ

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

016204
005015
020061
026503
0000

MLASTD:
. ASCIZ

NEW= /

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

.ASCIZ

/=DEVICE

053517

MCOW:

.ASCIZ

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

MRANGE:

.ASCIZ

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

MQM:
MCRLF:

ASCIZ
L(ASCIZ

MPFAIL: .ASCIZ

MEPASS:

.ASCIZ

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

[e]le]

DEVICE:

044526

;-‘

2125

3345

3346

3351
335
3355

016664
016670

020040
005015

000077
000

05%8

053517

016722

020115

042522

052123

016673

040

3322

16736
01
016752
016760

051101
052040
7111
051107
005015

020126
051505
050040
051505
047105

3358
3359
3360
3361
336%
3363
3364
3365
366
367
368

817002
017005
017011
017016
017024
01
017040
017046
017054
0171
01706

1440
015
015
020126
003015
047440
042514
052040
024040
04
15

000
05101
052012
0415
047514
020116
052103
051505
020131
026451
042012

3354

369
370
371
372

v
o

84250’6

SRR R

N g—'N
oS
NNOOWVIWLWNW

-y

KR
prd

AAAR VI
o

(=]

(=l

o
Qo4

Qegg

N NN NN

Voo~y

GRGGEGRIORRIOORR — e b g Z

SEQ 0064

017074
017102
017110
017114

051120
054524
046105
005015

047511
046040
000055
020043

052101
020124
047522
000 123
020104

000
051505
000055
045503
042523
042105
037524
051117
OO(S)
020125
4522
053105
043117

Y/
<15><12>

POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/

MR:
ASCIZ
MTSTPC: .ASCIZ

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

MLOCK:

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

.ASCIZ

MLEVEL: .ASCIZ

MSYNC:

.ASCIZ

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

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

’

CZbuC-D
CZoucp.PN

017N

8171
171

7
3388

017146
017125
0171
017162
017170
017176
017204
017212
17220
017226
7230
017236
017244

3393

01;%55

381
g%g%
g

385

3409
3410
3411
3412
3413

§2}§

017426
017434
017442
017450
017456

MACY1] 30A(1352)
18-JUL-78 15:5

051440

04410
04252

042105
047440
000055
005015
041505
020124
051105
047111
047440
000055
005015
041505
045

000

015

0064
052123
020040
020040
000015

047131
51101
2514
024040
020122

21-NOV=78

15:40

3419
3420

i%?g
21

02010

030440
024462

051511

051440

MWIREG:

.ASCIZ

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

051511
051040
046525

051440
041505
042520

MWIRES:

.ASCIZ

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

044412

020123

MWIRE4: .ASCIZ

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

MEXTJ:

.ASCIZ

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

MSTATUS:

.ASCIZ

<12> <15/

054040
052512
021440
020077
020122

0
0
052101
046440
020040

044515
050115
020066
054450
024516

0
051525
050101
005040

26
27
28

STATUS

MAP

/ <12> <15

.EVEN
JBUFFERS FOR INPUT=QUTPUT

017460

017520
017560

000040

INBUF:
TEMP:
MDATA:

000040
000040

.BLKB

.BLKB
.BLKB

40
40

:'ii"*i.tttt..ttti\ttt't""t".tfit.tttt.'..'tt'ttt't.ttt't'.

5‘

f?zs

SEQ 0065

02012
05210

gz}g
3418

PAGE 68

JUTILITIES
;THIS UTILITY CALCULATES PRIORITY LEVEL

.'ttttitt."tt.t!ttt!tttt't'i.t..ttlt't..ttlt.tt.t'!i't'..t."

017620
0176%8
0176

006367
006367
006367

000044
000040
000034

DULEV:

ASL
ASL
AS|

DUPRT
DUPRT
DUPRT

;SHIFT LEFT
;
;

s |
p—

§g
v

Voo~

R
RRRIKLES 333333 P

MACY11 30A(1052)
18-JUL=-78 15:5

017674

15:40

PAGE 69

6
SEQ 0066

ek
g
016767
838850 000020
162767 88%31 000012

B
OV
SUB

000207
000240
000200

RTS
PC
LEVELS
'
LEVEL4 ;LEVEL TO ALLOW iNTERRUPTS

042767

017672

21-NOV=78

016767
005267

016767
005267
016767
016767
005267
016767
016767
005267
016767
005267
016767

7 000004

BIC

DUPRT:
LESS1:
000126
000120

000114
000106
000102
000074
000066
000062
000054
000046
000042
000034
000030

000422

#37 . LESSY

:NEW DU ADDRESSES
DUBASE ,RXCSR

DUADDR: MOV
INC

DUBASE

:MOVE
THIS TO LESS?
*CREATE LESS1
*CLEAR TNZVC

;XXX0

MOV
INC
MOV
MOV
INC
MOV
MOV
INC
MOV
INC
MOV

DUBASE ,MRXCSR ; XXX1
DUBASE
DUBASE ,RXDBUF ; XXX2
DUBASE .PARCSR XXX
DUBASE
DUBASE ,HRXDBUF ; XXX3
DUBASE _HPARCSR - XXX3
DUBASE
DUBASE
, TXCSR
;XXX&
DUBASE
DUBASE ,HTXCSR : XXX5

016767 000016 000332

MOV

DUBASE
, TXDBUF ; XXX6

016767 000004

MOV

005267

000022

005267

000010

207

000412
000402
000400
000364
000362
000352
000342

e
DuPRT L§§s1
#1 LESS

000322

INC
INC

RTS
DUBASE: 0

DUBASE
DUBASE

DUBASE ,HTXDBUF ; XXX7

sTHIS UTILITY POKES THE MAINT DATA BASED UPON THE

042777
005067

040000
161104

006267

161070

056777
042777

161056
020000

005367

161026

006067
006067
042767

RPOKE:

161076
161074

100000

052777 02

001346

000302

ROR
ROR

TEMPT
TEMP2

161062

BIC

#BIT1S,TEMP2

;CLR BIT 15

000232

BIS

#CLK.@TXCSR

ASR

000246
000240

BIS
BIC

DEC

BNE

207

016767
005067

RTS

161022

161020

012727 000010

000000
005567

161004

161002

005367

177762

006067
103404

160770

001371

JINFORMATION CONTAINED IN TEMP1 AND IT IS
*SHIFTED IN BY THE CONTENTS OF SHIFT
BIC
AMTDATA,@TXCSR
CLR
TEMP?2

161022

0ODD8:

48:
1$:

TEMP2

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

TEMP2,aTXCSR
#CLK,aTXCSR

SHIFT

:POKE MAINT DATA
JPOKE CLK

RPOKE

;THIS ROUTINE CALCULATES OCD PARITY FOR AN 8 BIT CHAR

MOV
CLR

MOV

0
ROR

ADC

TEMPT, TEMP2

TEMP3

#8.,(PC)+

TEMP?
TEMP3

DEC

ROR
BCS

TCMP3
28
.

BNE

;SAVE TEMPI

CZbuC-D
CZouCD.P11
S

MACY11 30A(1052)

18-JUL-78
115:52

052767

000400

160754

042767

000400

160744

000403

21=NOV-78

000207

3489

016767

005067

160736
160734

160720

005367

177762

001371

160736

oszrg;

000400

160670

042767

000400

160660

062716

000002

U\\h\h\.fl\h\ha

WWWWWWW

#B1T8, TEMP

:SET ODD PARITY

BIC

#8178, TEMP1

:CLR EVEN PARITY

RTS

:TEMP1 NOW HAS ODD PARITY CHARACTER

MOV

4$:

MOV
0

CLR

DEC

ROR

BCC

TEMP

TEMP3

ggns.rem

:SET EVEN PARITY

2%:

BIC

#8178, TEMP1

:CLR ODD PARITY

3%:

RTS

;TEMPT NOW HAS EVEN PARITY CHARACTER

TRPREG: ADD

#2,(SP)

RTI
.ERRTAR:

JERROR HLT TABLE

SHO

BIT ERROR (GENERAL)

JHLT 1

EM2

sHLT 2

RECEIVER ERROR

EM3

:HLT 3

TRANSMITTER ERROR

020545
020566

DH1
DT1

020545

DH1

020566

160047

009770
000772
000774
000776

;ALLOW IT TO "'CRUNCH'' INTO HLT BACK
;IN MAIN PART OF THE PROGRAM

;HLT O

0
EM1
DH1
DT1

160041
160042
160043
160042
160043
160044
160045
160046

S,‘;S

020374
020545
020566

160040

:SAVE TEMP1

#8.,(PC)+
TEMP

020500

020356

TEMP1, TEMP2

TEMP3®

ROR

ADC

0204

3520

mxs Rounne CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER

000002
020360

SEQ 0067

BIS

BNE

160704

000207

PAGE 70

EVE
1%:

160716

103004

2%:

3$:

012727 000010
000000

005567

15:40

DT1

RXCSR:

:DEFAULT DU ADDRESSES

160040

HRXCSR: 160041
RXDBUF: 160042
HRXDBUF :
160043
PARCSR: 160042
HPARCSR :
160043
TXCSR: 160044
HTXCSR: 160045
TXDBUF: 160046
HTXDBUF :

DURIV:
DURIS:
DUTIV:
DUTIS:

160047

-DEFAULT DU VECTORS

770
772
774
776

:REC INTR VECTOR
*REC INTR STATUS
SXMIT INTR VECTOR
“AMIT INTR STATUS

;ERROR MESSAGFS

——y

CZbuC-D
CZbucp.P1

21-NOV-78

3541
3542
543

020360
020366
020374

036“9
051117
0O

042440
050040
051040

051 12%
10
043505

545

051105

0475 g

0201

020122
036440
044505
051105
041520

000040
051040
042526
047522
005015

020122
036440
051516
051

547

020402

16
020424

3548
§549
550
3551
355

0204
0204

3554
3555
3556
3557

020474
020500
020506
020514

3563

020545
020552

355

MACY11 30A(1052)
18~JUL~78 15:52

3565

020452

020560

3566
3567
3568 020566
3569 020570
3570 020572
3571 020574
3572 020576
3573 020600
3574
3575

020602

051511

0415
043505

043505

042524

052103
000003

006
006
001156
006
001164

001160
000001

15:40

PAGE 71

SEQ 0068

EMO:

.ASCIZ

/ = ERROR PC/

EM1:

.ASCIZ

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

041505
020122
020122
051001

EM2:

.ASCIZ

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

000040
052040
044515
042440
050040

040522
052124
051122
006503

EM3:

.ASCiZ

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

050130
020104

041505
040440

DH1:

04 Sslo

005015
051511

051511

040525

004
004
002

0 0155

051001
042524

042524

000114

.EVEN
DT1:

;DATA HEADERS FOR ERROR MESSAGES

.ASCIZ

ACTUAL/

-DATA TABLES FOR ERROR MESSAGES
BYTE 6.4

SAVR3

;REGISTER

BYTE

6.4

BYTE

6,2

SAVRO
.END

/EXPECTED

SAVR1

:EXPECTED DATA
JACTUAL DATA

—

CZDUC~D
CZDUCD.P11

————

MACY11 30A(1052)
18=JUL=78 15:52

AMA
002520
ACTREG 001216
ADDBAS 001306
ADDKEE 001310
ADDLAS 001312
ADDROT 001322
ADRCNT= 014775
A10010= #sxssx GX
BASEAD 001204
BASEDU 001364
BASEIV 001212

11784
8984
9384
93
0r
%4
2991+
677
8934
%N
Bo6r

—

E 6
21-NOV-78 15:40 PAGE 73
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0069

1062
1058
1059
1060
1063
3030+

1126r
1225+
1226+
1207
1231%
3039

1140+

1141+

1148+

1230

2826

2829

2839

1058+
1072
1064r

1065*
1238+
1118+

1108+

1145%

1146

1152«

1154+

1225

2833+

2845+

2849

1229

283

2846+

2851

2852«

2853

28S4s

2855

2856+

31184

189

3487

3502

3504

2857

L ]

888
BINWRD

2336
015312

1125
3080«

1129
3081

BITO = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

7564
755¢
7468
7658
766r

784
783
776
773
772

808

1851

789

7620

770

788

769
782
781
780
779
778
777
776
775
1336

787

807

7414
756¢
753
754
751
7504
7o
7488
78
8154

770

786
1293
814
813
812
811
810
792
791
1376

805

3467

809

3485

1416

2322
1290

2359
1304

2396

2443

959#
93
7724

1081
1057

2919w
29204
1273
1242+
1248+
1241+
1247+
1224+

2825
3078+

2848
3082

28654
309+

1423

1425

1426

BITW

BIT13 = 020000
BIT14 = 040000

BIT1S
BIT2
BITS
BIT4
BITS
BIT6
BITZ
BIT8
BIT9
BREAK

= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
=
000400
= 001000
= 000001

BRW
BRX
BUFF1
BUFHRX
BUFHTX
BUFRXD
BUFTXD
BYJMR
CARDET=
CcC_
CHRCNT
CKSWR =
CLK
=

014326
014330
000002R
001346
001362
001344
001360
001305
01
014062
015310
104413
020000

8084

73w

1832

1291
6774
954k
9604
953

9934
807#

1538

1633
1756
1842

2007
2085
2223
2331

1877

815

1456

1495

1961

2001

2540

2640

2900
1342

31164
2924
1343

3196
1346

1544

1545

1547

3117
3153
1345
1462

148

1581

1757
1877

1759
1883

1760
1884

1793
1886

1799
1887

1305
1267
1076
1082
1075

2878
1336
1636

2008
2112
2224
2332

1922

806

1664

2010
2118
Q251
2359

1456

1670

2011
2119
2257
2365

1671

2038
2121
0258
236

2038

1538

1581

1624

1664

1707

1750

1793

2075

2112

2149

2183

2217

2251

2285

1463

1376
1465

1382
1466

1385
1501

1386
1502

1416
1504

1422
1505

1673

167

1588

1383
1495

1707

1590

1591

1624

1630

1631

2045
2149
Q291
2369

1802
1928

2047
2155
2292
2396

1803
1929

1832
1961

1838
1967

1839
1968

1841
2001

2044
2122
2285
2368

2740

1587

1800
1922

1713

2048
2156
Q2%
2402

1714

2075
2183
2295
2403

1716

1717

2081
2189
2322
0405

2082
2190
9328
2406

1750

2084
2217
2329
2443

—

CZbUC-D
CZbuCb.P1

MACY11 30A (1052)

18-JuL~ 78 15:52

6
21=NOV=78 15:40 PAGE 74
CROSS REFERENCE TABLE == USER SYMBOLS

2454
2748
NN

1222+

CSRRX
CSRTX

C1s
D

ARRERR

015564
015552
014772
016501
020545
000174
177570
001304

DSWR =
DTR
=
DT
DUADDR
DUBASE

177570
000002
020566
017674
020026

DULEV
DUPRT
DURIS
DURIV
DUTIS
DUTIV
EIGHT =
EMO
EM1
EM2

017620
017670
020352
020350
020356
020354
006000
020360
020374
020436

549
69

2545+

2761

2640

2649

2651

2158+
2379%
259
2796

2192+
2416+
2645*

2200+
2448+
2661+

3445+

3446

1245~

3185
31844
30374

3188#

3522

35634

1223«

6“3:33°2$&&:r
Si-k-:nau¥?a

3440+
3453

3441
3454%

3443
34574

3428+

3429+

3430

34354

2851+

2858

35364

1880

1925

1964

2913+

3172

3178+

3243+

1584

1835

1925

2446

b e

3439
3452«

2254

cowv

£ ON) =0

—a =2 (NN = =2 N NNN = =

8624

—nm\nwg o]
N ==

WWWW

—mamaaaa

SS2R33%

DNA
= 100000
DNAINT= 000040
DSC _ = 100000
DSINTE=, 000040
DSR
= 001000

EM3
020500
ERRCNT 001132
ERRFLG 001246
ERRMSG 015540
ERTABO 015656
EVEN8
020202
EVEPAR= 001400
EVPAR = 000400

2548
2752

3239
2087+
2305+

2822
2021«
2260+
2492*
2694
1278+
1244
1240%
1246*
1243
1239=

001340
001354
= 020000

DATABP
DATAHD
DEVADR
DEVICE
DH1
DISPRE
DLIGHT=
DMULT

2455
2749

SEQ 0070

2643

2446

C2DUC-D
CZDUCD.P11
EXITER
FILBUF

015610
003204

FLAG

001222

FIVE

= 000000

FRMERR= 020000

HALTS
015570
HDXEN = 000010

HEREU

HILIM
HOLD
HOLDO
HOLD1
HPARCS
HRXCSR
HRXDBU
HTXCSR
HTXDBU
ICOUNT
INBUF

003132

014770
001136
001224
001226
020336
020326
020332
020342
020346
001122
017460

INIFLG 001244
INSTER= 104404
INSTR = 104403

MACYT] 30A(1052)
18-JUL=78
1
3191
12698
797#

7884

2710
3155

8144

1218

2988+
8674
907#
1078+«
1074+
1076%
1080
1082+
S84
1181

919%
o794
e

6
21-NOV-78 15:40 PAGE 75
CROSS REFERENCE TABLE == USER SYMBOLS
31964
1272
1339

1088

1352

2804
31904
1259

1498

1259
1392

2807

3018

30364

1264*
1265+«
1044
12640
1242
1246
1248
2911
1185

1280
1281
3447+
3441+
3446%
3451*
3455*
2915+
2952

1019
1189
1098

1020«
3013
1105

SEQ 0071

1667

20064

2152

2288

2743

1432

1472

2504

2507

2510

2604

2607

2610

2704

2707

299

3126

3130

34184

3135
1179

1130

1155

1165

1179

1192

119

1200

1204

1295

1459

1491

1498

1534

1541

2108

2115

2439

2446

1263+

2810

35308
3526
35284
35324
35344

INSTR2 014554
1SYMOD= 000000

2963
796#

29784
1332

1339

1372

1379

1412

1873
2543
1066
1061
1057*

1880
2636
1229+
1208+
1207

1997
2643

2004
2736

2034
2743

2041

2071

2078

IVBASE
IVKEEP
JMRBY

1835
2536
9414
948
8894

1152

1154

1226

284S

895#
1070«
7664
7654
7648

1060+
1237

1135
3431x

1146
3432+

1108
2846

KEEPAD
KEEPIV

001314
001316
001203
001206
001214

LASTAD 001210
LESS1
017672
LEVELO= 000000
LEVEL1= 000040
LEVEL2= 000100
LEVEL3= 000140
LEVEL4= 000200
LEVELS= 000240
LEVEL&= 000300
LEVEL7= 000340
LIGHTS 001102
LIMITS 014716
LOBITS 014774
LOCK
001120
LOGICA 014114
LOKFLG 001247
LOLIM
014766
LPCNT
001124
LSTERR 001134
L1ESS
001336
001634
MCOWw
016513

1577

894#
897#

7634
7628
7614
7604
7594
8478
3004
2990+
8574
28734
9224
2987+
859#
8634
o504
1037
2828

1584

1059+
1061+

1620

1627

1224

1065
1117

1106*
1228

1033«

2869+

30384

3039

1299
30354
2910%
2866+
1237+
10474

2911
3156

1660

1667

1160
3433+

1227
34364

2914+
3158+

324és

3436

3435

1024+
30184
3022
2927
1298
3020
1010
1015+
1070
1039
33254

1419

1703

1452

1710

1746

1753

1789

1796

1828

rZM-D
CZouCb.P1
C

MCRLF
MDATA
MEPASS

1277
3094
2821

= 004000

818

MITSEX

MLASTD
MLEVEL
MLOCK
MMULT
MPFAIL

MaM
MR

001301

016420
017067
017024
016341
016673

016664
017005

MRANGE
016603
MREGAD 016260
MRESET= 000400

MSTATU
| MSYNC

017426
017114

MTITLE

016204

MTDATA= 040000

MTSTPC
MULTD
MVECTO
MWIRE4

MWIRES
MWIRES

1336

1376

1416

2322

2359

2396

2443

1130
1166
1296
1120
3242

33144
33684
33624
33064
33464

1156
1099
809#
1576
1829
2107

33354
32974
1331
1578
1872

819#
1205

34014

1832

1877

9304

2973
1318

2319
1262
1180

8064
1832

1053

1922

1220+

1961

1333
1619
1874

1371
1621
1917

1490
1747
2033

1492
1788
2035

1533
1790
2070

1535
1827
2072

2740

1122

1123

1223

1287

2824

1450+

1489+

1532«

2325

2362

2399

020116
001522

1893
1020

1974
10234

34754

016142

3258

3260

3262

014622
020334

1453
1745
1998

2640

014054
002476
04
104405

1451
1704
1996
2214

2443

2437+

OUTCRY
OUTMUL
OVRRUN=
PARAM =

1373
1659
1919

2396

2390%

887#

1413
1792
1958

2740

1538
2075

2353*

001201

141
1661
1956

2640

149¢
2038

1052
1667

1055«

1916+

1379

1219+
1710
1203

1955+

1419

1753
1222

2540

2535

2246
2537

2248
2635

1581
2112

1624
2149

1664
2183

1707
2217

1750
2251

1793
2285

1618+

1658+

1701

1744+

1787+

3462

1575«

2106

2143«

2177+

2211x

2245+

2279+

1459

2004

2041

2078

2115

2152

2186

2220

2254

1796

1880

1964

1452+
1710*
1997+

1459%
1746+
2004*

1491+
1755+
2034*

1498*
1789+
2041+

1534+
1796+
2071w

3266

32784

2734

2896

2704
1132

2004
1157

1167

1310

3272

1541«
1828+

1577«
1835+

1332«
1584+
1873«

1339+
1620*
1880+

1372«
1627+
1918+

1379%
1660«
1925+

1412+
1667*
1957+

1419+
1703«
1964*

2078+
2318+

2108+
2325+

2115+
2355+

2145+
2362+

2317
2737

2069*

2634*

2604
m

3014
1243

2282
2735

2032+

2534«

28614
1153
2504
1100

11644

2280
2637

1995+«

2822
1128
7874
981#

29934
1077«

1793

2285

1456
2001

2316

9294
8024

1750

2251

1416
1961

1339

1707

2217

1376
1922

1871+

1664

2183

1336
1877

3864
33794

1624

2149

2212
2440

3289

1581

2112

2180
2438

1410+

801#

2540

1538

2075

2178
2393

1370%

1826

1495

2038

2146
2391

1330+

001116

1197
1193

1456

2001

2144
2356

33724

SEQ 0072

33454

2109
2354
34094

8564

017230
017162

33604
1056
32944
33934

1021

3277

33444
33594

1309
888¢
1110
1201

017011
001202
016236
017275

OPTCLR

PARAM1
PARCSR

3068

2359

NOSYNC
001300
ODDPAR=
001000

ouT

2976
34204

105
3355#

2322

NOPAR = 000000

0oDD8
ONCE

30A(10

016670
017560
016760

MEXT = 010000
MEXTJ
017351
MINT

MACY1] (1052) 21-NOV-78
15:40 PAGE 76
18-JuUL-78 15:52
CROSS REFERENCE TABLE == USER SYMBOLS

2152+
2392+

2179«
2399+

2186+
2439+

2213
2446+

2916

2220%
2536+

3202

2247+
2543

2254%
2636*

Q281x
2643

2288+
736

CZbuC-D
CZDUCD.P11

MACY11 30A(1052)
18~JuL-78 15:52

PAREN = 001000
PARER = 010000

PARERR

PARTI

014676

014760

2743%

7914
789

3444+

35294

1507

1550

1593

3000

009#

2604 .

2610

3012

30324

2996

21-NOV-78
15:40 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

2998

2674

704

1636

1676

019

021

%710

1719

SEQ 0073

1762

1805

2477

'
2504

2510

2839
1765

2843«
1808

2701

2756

774

2804

2810

1148
1596

2127

1151«
1639
2161

1231
1679
2195

2836+
1722
2229

2263

3023

PASCNT
001130
PFTAB
016020
POPRO = 012600

8614
3240
735#

1012+
32464
3195

2868+

2869

PRTDU
001324
PS
= 177776

9%54#
727#

1071
1007«

1232+
1212+«

2877x

3234w

3011

32544

3268+

3278+

1062
2847
1054
3189
32264
2871
3189

1230+
28494
1221%

1067
1066
1063+«
1390
1937

1234~
1233~
1127«
1430
1976

1139+«
1470

2016

1141
1510

2053

1143«
1553
2090

2556

2577

1317«

1319

2879«

2896+

2897

2916

2917

148
148

664
664

1460
1754+

1499+«
1766

1511
1797«

1542«
1809

1554
1836+

POP1SP= 005726
POP2SP= 022626

7334
7374

010046
PUSH1S= 005746
PUSH2S= 024646
RDSW
016026
RECACT= 004000
REGACT 001320
REPLAY 013760
RESEC
001302
RESREG 015566
RESTAR 015722
RESTRT 014124
RESOS = 104407
RING = 04

734x
7324
7364
2974
7734
94
2841
931#
3186
3220
2842
9854
7704

RISDU
RIVDU
ROTADD
RPOKE

9%
964
9014
1350
1898

RINTEN= 000100

001334
001326
001220
020030

7784

3192

28774

Sgg?

gzg}‘

%2;3
1313

RTRN

001114

nggd

1017«

RTS
RUNA
RUNB

= 000004
= saxxsx |
= wwxxxwx |J

7824
1
1

53
53

70
70

RUNE
RUNF

= swwexe |
= swxxwasx |

58
58

73
73

RUNC
RUND

RUNIT
RXCSR

RXDBUF

= 000000
= wwxxwxsx |J
013664
020324

020330
.

RXDONE= 000200

1
21
21
21
2827
1073«
1640

1075«
1558

2005+«
2157«
2301
2481
2863
1843
2582

7774

53
58

’

2480

2501

70
70

148
151

28334
1239
1668+

2840
1340«
1680

151
151

664
669
669
669

1380*
1711~

1420%
1723

1241
1592

1351
1601

2012«
2162
2326
2546*
3439«
1854
2644

2574

2017
2187+
2333«
2553+
35254
1888
2664

2601

2656

2677

2300

1853
2337

3202+

3204

3245

1585«
1881~

1597
1926«

1628+
1965+

777

2042+
2191~
2338
2557

2049+
2196
2363~
2578

2054
2221
2370«
2646

2079+
2225+
2375
2653+

2086*
2230
26400%
2657

2091
2255«
2407+
2678

2116
2259+
2412
2746

2123«
2264
2449%
2753«

2128
2289+
2456
2757

2153+
2296+
2460
2778

1353
1635

139
1644

1393
1675

1431
1684

1433
1718

1471
1727

1473
1761

1506
1770

1515
1804

1549
1813

1899
268

1930
744

1938
2764

1969
2782

1977
3443«

2447
3527

2467

2485

2544

2564

CZbUC-D
CZDUCD.P11
RXERR = 100000
SAVPC

001174

SAVRO
SAVR1
SAVR2

001156
001160
001162

SAVRG

001166

SAVRS
SAVRS

001164

MACY11 30A(1052)
18-JUL~78 15:52
7864

2510

875#
876#
877#

3052+
3051+
3050«

3057
3058
3059

3572
3574

8824

878%#
8794

9834
9714
1863
2344

SCOP1 = 104401
SEND
= 000020
SEREC
001200
SETFG_
003144

SETFLG= 104412

SEVEN = 004
SEXMIT
001177
SHIFT
001140

8814

G734
8134

1260
991
885#
8684
1846

2336%

sSIx
=002000
SPACNT= 015311
SRD
= 002000
.STACK = 001100
STATUS 001300
SID
=
10
STFLG
001245
STPSYN= 000400

SV05

SWR

015004

001100
SWREG
000176
SWREGC
016150
Sw00 = 000001

Sw01
W02
Sw03
SW04¢
SW05
Swoé
Sw07
SW08
Sw09
Sw10
SWw11
Sw12
Sw13
Sw14
Sw15

= 000002
=
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000

1432

250
2810

SAVOS = 104406

SCOPE = 104400

139

2504
2807

880#

001172

1352

2477
2804

001170

SAVSP

6
21-NOv-78 15:40 PAGE 78
CROSS REFERENCE TABLE == USER SYMBOLS

3043+

3049
3048+

3047+

3219«

3160
1360
1908
2381

1054
12624
1121
1419
1053«
1347+
1891+

2373

3060
3061

1507

1550

1593

1636

1676

1719

1762

1805

2574

2604

2607

2610

2674

2704

2707

2710

2774

1480
2023

1523
2060

1566
2097

1609
2134

1649
2168

1692
2202

1735
2236

1778
2270

1818
2307

1637+«
2160%

1677+
2194x

1720«
2228+

1763+
2262%

1806+
2299+

3570

3062

3226

1400
1947

1440
1986

2418

2512

1199

1221

1194

1198

1584
1195
1387+
1933«

2610%

1202

2712

1206

2812

1297

1753
1220
1427+
1972«

2078

2220

2362

2543

1467+
2015+

1508+
2052+

1551%=
2089+

1594x2126%

1710
31174

2041

2186

2325

2643

2457+«

2479%

2499%

2554x

2576%

2599%

2654+

2676%

2699%

2754

1008
1268

1284
1271

3203

3235

1011+
2012

2049

2086

2123

2157

2191

2225

2259

2296

2333

2370

2407

8464
3154
8374
3270
708#

1023+
3190
1032
32804
1085

1028
3198
1038

1032«
3200
3259

1038
3259
3275

1047

1085

1217

1293

1306

2901

2908

2925

7074
7064
7054
7044
7034
7024
7014
7004
69
6984
6974
6
6954
6944
6934

2553

3471«
1541
3101«

2612

2776%
7984
3079~
7744
728%#
929
7814
9204
7764

2456
30474

2799*
1379
3098

3208

1472

SEQ 0074

2653

2753

3282

1306

1047
3198
--2925
3200
2908

3154

2901

1217
.

B
A

MACY11 30A(

CZbuC-D
CZDUCD.P1

18-JUL-78 15:52

TEMP1

001232

017520
001144

PAGE 79

) =D =B\
= =

CROSS REFERENCE TABLE == USER SYMBOLS

flom SRR3R
* ?mub
W=O =0

SYSTST= 014000

15:40

SEQ 0075

1219
:

2254
1797
2289

N = =N
NOCo
N wiHoo~N
~N

SYNCNO 001176
SYNEXT= Q
SYNINT= 0
| SYNSCH= 000020

TABLE
| TEMP

21-NOV=78

1807+

2159+
509+
2755+

2575%
TEMP2

TEMP3
TEMPSG

TEMPS

THRU
TISDU

TIVDU

001146

001150

001152

001154

003262
001332

001330

TKCSR
001104
TKDBR
001106
TLAST = 013214

TST26
TST27

01
011052
011236

TST3
TST30
TST31

003776
012210
012612

TST28
TST29

011422
011606

Nwnunos

- )
—

s =B\ ) =D =D

g
r

BuR

006566
006736
007106
007272
007456
003622
007642

;

TST1S
TST16
TST17
TST18
TST19
TST2
TST20

D e e

006166

006366

§00

TST14

— e

TST12
TST13

003446

- NN
&Hon
wv

TST1

015374
020266
001126

TRPOK
TRPREG
TSTNO

3263

1369+
1915»

1409+
1954+

001110
001112

—

TPCSR
TPDBR

3261
2964

20314
0684

2389+
2879

2436
2880

1449

2533«

1488+

2031«
2633

1531

2068+
2733

1743+

2244w

TXDBUF
020344
TXDONE= 000200

TXINTE= 000100
TYPDAT 015554
TYPE
= 104402

1081+
8104
8114
3175
3?(7)2’

TYPMSG

015524

3173

USER

= 000000

8174

ZERO

013672

003224

VOID
=
1
WRDCNT 015306

$CNTG

016156

Ssg
@ RRun

O
O
O

Vi e

NNOWNON

%
LI IR I

SNNN

SB2T

2044~

Y.y

—
Vi

ks ‘:‘ »
B

d
b

SEQ 0076

NNg
NN\
NNSEE
W
= = 2 (NN
e
LA B
IR OF O
2
O
O
O J

2033«
2085+
2178+
2257+
2329+
2402+
2540«
2737«

1290*
1079+
1383+
1462+
1538+
1621+
1702+
1760+
1841«
1929+

2814

014230
020340

PAGE 80

TIST
TXCSR

1489

1532
1575
1618

004512

14494

1450

ONONNYNV
S

004676
005
005246

1ST6

1410

D e

1ST7
TST8
TST9

27334

273

004152

004326

2634

d e

TST4

TSTS

d e

= wnwwer

15:40

CROSS REFERENCE TABLE == USER SYMBOLS

d e

013214

IST

21-NOV-78

TST

MACY11 30A(1052)
18-JUL-78 15:5

NN\
N

cZouC-D
CZouCb.P1

2294+

2828

2950

12744

7844
3077+

2834#
3267

778

1575

18274

2106

23174
3271

3269
6774

1574

1827#

= 000015

$67

002142

= 020604

2105
23174
28144

9634

9954

1048

8224

SMNEW
016173
MSWR
016163
N
= 000040

2960

2972

2976

——

CZDUC-D
CZDuCD.P1

MACY11 30A(1052)
18~JuL~78 15:5

%%
1083
994

6
21-NOV-78 15:40 PAGE 81
CROSS REFERENCE TABLE == USER SYMBOLS
9414
9544
1087

9434
9564

L4k
9574

2977
3263«

3264

3265

32124

3233

942N
9554
12124

3 136
1 017
014352

9454
9584

9464
9594

SEQ 0077
9674
9604

9484
9614

%%
3288%

95 o#
341 84

9514
34194

9524
34204

¢ZbuC-D
CZouCb.P1

MACY11 30A(1052)
18-JUL~78 15:5

WLT

Ze
1725
198

PRGEND
PRGFRT

6774
677#

PUSSYF
RSETUP

TSETUP
SBEGIN

SBINAR
SBUFFE
SCABLE
SCATCH
SCLRVE
SCONVR
SONA
$EOP
SGETFL
SGETPA
SGETSY

677#
677#
1917

2535

6774
677#

6774
6774
6774
6774
677#
6774
6774
6774
677#
677#
677#

SHEADE
SHLT
SINSTR'
$ISOB
SMATCH
SMRR
SMRRW
SMRW

6774
677#
677#
6774
6774
6774
677
6774

SPARAM
SPFAIL
SPOKE
SPOKER

677#
6774
6774
~ 677#
1927
2550
677#
6774
6774
677#
1619
1919

| sMsG

SRCNET
SRECAC
$REG
SRESET

6774

2212
2537

1356
1730
2232

21-NOV-78 15:40 PAGE 83
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0078

5670

13%
1768
2266

680

14
17
2303

1476
1811
2340

1513
18]
414

1518
1857
416

1556
1902
2460

1561
1941
2473

1599
1980
2483

1604
2019
2488

1642
6
2559

1647
209
2570

1331
193

1371
1996

1411
2033

1451
2070

1490
2107

1533
2144

1576
2178

1619
291>

1659
2946

1702
2980

1745
2517

1788
2594

71872
2391
24s8

1192
1109

1196
1129

1200
1155

1204
1164

1295
1308

1864

1909

1948

2650
2419

1384
009
2750
2513

1424
2046

1464
2083

1503
2120

1546
2154

1589
21

1632
2222

1672
2256

1715
2293

1758
23

1801
2367

1840
2404

1885
2453

2613

2713

3040
1331
1621
1956

1333
1659
1958

1371
1661
1996

1373
1702
1998

1411
1704
2033

1413
1745
2035

1451
1747
2070

1453
1788
2072

1490
1790
2107

1492
1827
2109

1533
1829
214

1535
1872
2146

1576
187
2178

1578
1917

2813
678

2635

2735

278

1682
2l
2580

1687
164
2585

1208
3415
821
1023

2813
1119
1098
1174
678
3150
2943
1819

3289

2981
3209
1344

2214
2635

2246
2637

2248
2735

2280
2737

2282

2317

2319

2354

2356

2391

2393

2438

2440

2180

2535

1881

czouc-dp

Y11 30A(1052)
18-JUL-78 15:52

CZDUCD.P11

$TRAPS

6774
6774
677n
6774
67748

1915

. ABS.

15:40 PAGE 84
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0079

963

971

3137
1329

973

1369

975
1409

977
1449

1994

2031

2068

841
1321

1361

1401

1441

1481

1524

1567

1610

1954

2533
6778
6774
6774
6778
6774
6778

2633
2929

020604

000

ERRORS DETECTED:

21-NOV-78

2733

979

981

983

985

987

989

991

993

995

2105

1488

1531
2142

1574
2176

1617
2210

1657
2244

2278

1700

1743
2315

2352

1786

1825
2389

1650

1693

1736

1779

CZDUCD.BIN CZDUCD. SEQ/CRF /SOL/NL : TOC=C2DU11.HLO/EQ:RUNC,CZDU11.PAR,CZDUT1.KET,CZDUCD.P11

RUN-TIME: 8 12 1 SECONDS

RUN-TIME RATIO: 100/22=4.4
CORE USED:
19K
(37 PAGES)

1870
2436