Digital PDFs

AH-8685D-MC

January 1979

80 pages

Original

4.6MB

view download

OCR Version

3.8MB

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

OCR Text

RECEIVER TIMING TESTS

AH-8685D MC

CZDUCDO

JAN 1979

EHQIIIIEII

FICHE1 OF
1

MADE
IN USA

c2ouC=D
CZDUTT . MO

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

271-NOV-78

15:40

PAGE
?

SEQ 0001

[DENTITFITCATION
PRODUCT

CODF:

A(-8684D-M(

PRODUCT

NAME:

(CZDUCDO DUT1

RELEASE

DATE:

Jun 1978

MAINTAINER

THE

INFORMATION

OFF_INE

RCVR

TIMING

TESTS

DJAGNOSTI(S

THIS DOCUMENT

THIS DOCUMENT.

SUBJECT

TO CHANGE

W]THOUT 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

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A L!CENSE AND
MAY ONLY BE USED OR (OPIED IN ACCORDANCE WITH THE TERMS OF SULH LICENSE.

CiGITAL

EQUIPMENT

RECJABILITY OF

ITS

CORPORATION ASSUMES NO RESPONSIRILITY FOR THE USE
SOF TWARE

ON EQUIPMENT

((®

"G78 BY DIGITAL

1973,

THATM

[S NOT

EQUIPMENT

SJUPPLIED BY DIGITAL.

CORPORATION

(20uC-D
CZDUTT.HLO

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

21-NOV-78

15:40

PAGE 2

SEQ 0002

GENERAL DESCRIPTION
THIS DIAGNOSTIC

CAN CHAIN

16 DU11'S.

THIS MEANS

16 DEVICES CAN BE SEQUENTIALLY EXERCISED.

THAT

THE DIAGNOSTIC

MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE,
AfiDngNTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL
HAL

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

REQUIREMENTS
PDP=11

FAMILY STANDARD (OMPUTER WITH OR WITHOUT HARDWARE SWITCH

DUTT

SYNCRONOUS/ISOCRONOUS OPTION

ONE

2.2

(LOC.

CONSOLE

177570)

TELETYPE OR EQUIVALENT

STORAGE
THE

THE

PROGRAM LOADS

AND RUNS

IN 8K

MEMORY.

LOADING PROCEDURE
THE

STANDARD PROCEDURE

TO BE USED.

FOR LOADING ABSOLUTE BINARY

TAPES

STARTING ADDRESS

FOR ABSOLUTE

8k
12K

057500

20K

117500

16K

077500

264K

137500

28k

LOADER

017500
037500

157500

STARTING PROCEDURE

NOTE :

BEFORE PROCEEDING IT
TO REALJZE

ONE

I IS IMPORTANT TO

DOESNOT

HAVE THE DU11 SET P 1
DEFAULT PARAMETERS ( SEE

SECTION

CZ0UC~-D
CZDUNT.HLO

MACY1]30A(1852)
20-NOv-~78
1

21-NOV-78

15:40

PAGE 3

SEQ 0003

8 OF THIS oocmsm) . THEN ONE MUST
SET
SW00
=
ANSWER THE PARAMETER

QUESTION Roufmf.
PEPELPG PP

6.1

20 0000400040000

CONTROL

NOTE:

0 0000000004000

0000000000000 0000000404900004%0¢

SWITCH SETTINGS

SOF TWARE SWITCH REGISTER IS DEFINED AS LOC.
THE

SOF TWARE

DISPLAY REGISTER

176, WHILE

IS DEFINED AS LOC.

174.

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

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

Sw00=1
6.1.3

TO START

SwW01=1
4.1.4

4.2

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

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

SWO2=1
NOTE1: IN GENERAL
SWOT1 WILL BE USED WHEN SW02=1 IS USED
NOTEZ2: WITHOUT SWO1=1
‘1OCK ON TEST'' WILL DEFAULT TC T£ST
STARTING ADDRESS
THE

STARTING ADDRESS FOR ALL

TESTS

000200

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

4.3

PROGRAM AND/OR OPERATOR ACTION

6.3.1

INITIAL PROGRAM START

4.3.1.1

000200
TEST IS
000200

000200

LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER

4£.3.1.2 LOAD ADDRESS 000200
4.3.1.3 CLEAR (ONSOLE

SWITCHES

4.3.1.4 PRESS START

4.3.1.5

THE PROGRAM WILL

NOTE :IF

THE

SOF "WARE

TYPE

‘DUl

(ZDUC~D

TAPE

SWITCH REGISTFR IS SELECTED

('' (ONCE ONLY)

THEN THE FOLLOWING

cZouC-o
CZDUTT.HLO

MACY1]1 30A(1052)
20-NOV-78 16:48
WILL BE

21-NOV-78

TYPED AFTER

SWR=XXXXXX NEW=

15-/n

PAGE &

SEQ 0004

THE PRCGRAM IDENTIFIES

(REFER T() SECTION S.

ITSELF:

FOR OPERATOR'S OPTION)

4£.3.1.7 THE PROGRAM WILL TYPE 'R TO INDICATE THAT
TG START TESTING ,AND THEN TESTING WILL BEGIN
6.3.2

6.3.3

PROGRAM RESTART WITH ALL

SWITCHES

4.3.2.1

TYPE "R'* AND WILL

THE PROGRAM WILL

!S ABOUT

DOWN

COMMENCE

TESTING

PROGRAM RESTART WITH SW00=1

4.3.3.1

LOAD ADDRESS

000200

6¢.3.3.2 SET Sw00=1

4.3.3.3 PRESS START
NOTE:IF

THE SOF TWARE SWITCH REGISTER IS SELECT ED THEN THE FOLLOWING

SoREXKXKX
New= | (REFER TOSECTION 5. FOR OPERATOR'S OPTION)

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

IN THE ADDRESS OF

THE FIRST RECEIVER CONTROL

TESTED

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

TYPE '"TM"'

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

IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS

THE

DU11

TO BE

TESTED FOLLOWED BY A <CARRIAGE

If AN INCORRECT ADDRESS

AND WILL

THEN REPEAT

IS TYPED

,THE PROGRAM WILL

THE MESSAGE OF

4.3.3.6

RETURN>

TYPE

'"*'

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

IN THE APPROPRIATE ANSWER

<CARRIAGE

RETURN>

AN INCORRECT ANSWER IS GIVEN,

AND WILL

THEN REPEAT

YES OR NO FOLLOWED BY A

THE PROGRAM WILL

THE MESSAGE OF

TYPE '"*°

4.3.3.8

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

(Zbuc-D
CZDUTT
. HLO

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

21-NOvV-78

15:40

PAGE S

SEQ 0005

£.3.3.10

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

6.3.3.11

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

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

IE MORE

TYPE ‘"'

"OUT OF RANGE'' ADDRESS 1S TYPED
THAN 16 (10) DEVICES AWAY (UPWARDS)..... THE

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

6£.3.3.11.¢

TYPE IN THE ADDRESS OF THE
REGISTER ADDRESS OF THE DU11 TO BE

BY A <CARRIAGE RETURN>

LAST RECEIVER CONTROL
TESTED FOLLOWED

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

TYPE "*2*'

IF A DEVICE ADDRESS 'OWER THAN 1ST DEVICE ADDRESS IS TYPED...........
«...SCHOOLS OJT......... THERE 1S NO PROTECTION FOR THIS.

THE

PROGRAM WILL DEFAULT

1ST DEVICE ADDRESS).THE

TO TWwO DEVICES ACTIVE

SAMf APPLIES

TYPED FOR FIRST AND LAST DEVICE.

OBSERVE LOCATION @ ACTREG:
4.3.3.12

THE PROGRAM WILL

(JUPWARDS FROM

IDENTICAL ADDRESSES
)

SEE SECTION 7.2

TYPE ‘DU PRIORITY LEVEL-'' AND

WAIT FOR AN INPUT FROM THE

6£.3.3.13

TELETYPE KEYBOARD

TYPE IN THE APPROPRIATE DEVICE PRIORITY LEVEL OF

THE

DUT1 OR DU11'S TO BE TESTED FOLLOWED BY A <CARRIAGE PETURND>

E?SEE)rHA.I?LL,QULIIPLE DEVICES MUST BE AT THE SAME PRIORITY

AND
4.3.3.14

4.3.3.15

AN INCORRECT LEVEL

TYPED

,THE PROGRAM wiLL

REPEAT THE MESSAGE OF 4.3.%5.12

EE$ECTE8

THE PROGRAM WILL

TYPE

'# OF

SYN(C

CHARS

TYPE *TM*'

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

TELETYPE

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

AND WILL

REPEAT

THE MESSAGE

4.3.3.°

cZouc-D
CZDUT1.HLO

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

6£.3.3.16
4.3.3.17

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

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED
BY A <CARRIAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES
MUST BE THE SAME)
[F AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE OF 4.3.3.16

«.3.3.18

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

4.3.3.19

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

6.3.3.20
4.3.3.21

# &

IN?

4.3.3.22

4.3.3.23

(Y OR N)="" AND WAIT

TYPE

FOR AN INPUT FROM THE

RETURN>.

TELETYPE KEYBOARD

(NOTE:

ALL MULTIPLE

DEVICES MUST BE

SAME)

TYPE """’

TYPE

A <CARRIAGE

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY

RETURN>.

(NOTE:

ALL MULTIPLE

DEVICES MUST BE

THE PROGRAM WILL TYPE
HAS STARTED AND WILL COMMENCE

'R'' TO INDICATE
TESTING AT TEST

THIS WILL ONLY WORK WHEN A SINGLE DEvICE

THAT
1

IS SELECTED

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

LOAD 000200

THE

TYPE ‘"'’

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

4.3%3.4.1

THE

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

PROGRAM RESTART WITH SW01=1

NOTE:

SAME)

TYPE "2’

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <CARRIAGE

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

THE

THE PROGRAM WILL TYPE ‘IS OPT CLR ENABLE JUMPER

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

4.3.4

TYPE '?*'

SAME)

cZouc-D
CZDUTI1.HLO

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

21-NOV-78

15:40

PAGE 7

SEQ 0007

6.3.4.2 SET SWO1=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

4.3.4.5

THE PROGRAM WILL
THE

TYPE

TYPE ''TEST PC-"" AND WAIT FOR AN INPUT

TELETYPE KEYBOARD

IN THE ADDRESS OF

THE TEST AT WHICH THE PROGRAM IS TO

STARTED FOLLOWED BY A <CARRIAGE RETURN>

4.3.4.6 THE PROGRAM WILL TYPE 'R'' TO INDICATE
TESTING AT THE SELECTED TEST
NOTE:

CARE MUST BF

THAT

.SINCE THERE

4.3.5

FROM

THAT

TAKEN WHEN THIS FEATURE

IT HAS STARTED

S USED

IS NO PROTECTION AGAINST SELECTING AN ADDRESS

IN THE MIDDLE OF

A TEST

PROGRAM RESTART WITH SW0?2 =1
NOTE: THIS WILL ONLY WORK WHEN A SINGLE

SEE NOTE IN 4.3.4 FOR MORE DETAILS

DEVICE

<_.TCTED

4.3.5.1 LOAD ADDRESS 000200
4.3.5.2 SET SW02 =1
NOTE:

IT MAY BE ADVANTAGEOUS

TO SET

SWO1-"

(OPTiDNAL)

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

4£.3.5.4 THE PROGRAM WILL TYPE ‘10OCK ON SELECTED TEST ? (Y OR N)=''
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
4.3.5.5

TYPE

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A

<CARRIAGE

RETURN>

IF A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED
AND THE PROGRAM WILL TYPE °‘R'' TO INDICATE THAT IT HAS STARTED
TESTING AT

TEST

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

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

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

ON A SELECTED

SW01

-1

TQ FREEZE

TEST RATHER THAN DErAULTING TO TEST

couc-b
CZOU11.H LO

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

4.4

21-NOV-78

15:40

PAGE 8

SEQ 0008

STATUS map

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

DIAGNOSTICS,
BETWEEN DIAGNOSTICS.

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

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

SW07-1

START AT 200

3)
NOTE :

THE DIAGNOSTIC WILL

AND BYPASS ALL OF

THE

SWITCH REGISTER SETTINGS WILL

GO TO THE STATUS MAP

QUESTIONING ROUTINE.

IT IS
EXTREMELY IMPORTANT THAT EITHER YOU HAVE
JUST ANSWERED THESE QUESTIONS DURING A PRIOR
DIAGNOSTIC

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

BEFORE
THAT

STARTING AT 200.

THE DIAGNOSTIC HAS NO METHOD

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
DIAGNQOSTIC WILL NOT REALIZE THAT A MISTAKE HAS BEEN MADE.

If BOTH SWO7 AND SWOO (SWITCH REGISTER SWITCHES)

ARE SET

,(EQUAL

SEEING SWO7 SET,

TO 1),

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

EXCEPT SWO1.

MAP UNLESS

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

RESTARTING THE PROGRAM WILLNOT PRINT OUT A

THE PROGRAM PARAMETERS ARE BEING RESELCCTED

BY PUTTING SWO00=1.(ON)

THE MAP WILL

STATUS MAP
13007

177777

LOOK LIKE:

SWO0

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

cZDUC-D
CZDU11.HLO

21-NOV-78

15:40

PAGE 9

SEQ 0009

1302/ 000000
13047

V77777
THE BYTES ARE DEF INED AS FOLLOWS:

1300

THE NUMBER OF SYNCHRONOUS (HARACTERS REQUIRED FOR
SYNCHRONIZATION.
SEC
TRANSMIT JUMPER
SEC RECEIVER JUMPER
OPTIONAL JUMPER
MULTIPLE DEVICES (NO=0 , YES=
1)
EXTERNAL MODEM BYPASS? (NO=0 ,YES=
D

1301

1302
1303
1304
1305
AND

THE BYTE_IS O ,

THE BYTE

IS 377 ETC.

THE JUMPER IS NOT CONNECTED
THE

JUMPER SHOULD BE CONNECTED.

OPERATING PROCEDURE
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLCWS
THE USER THE SAME SWITCH OPTJONS AS THE HARDWARE SWITCH REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND 1T CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH
REGISTER (LOC. 176) IS USED.

:
CONTROL
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY
DOING THE FOLLOWING:

TYPE CONTROL G <*G>;

THIS WILL ALLOW THE

SWITCH

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
OF

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

THE FOLLOWING AT THE TTY:

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

WILL BE ALLOWED)
IF A <CR> IS THE FIRST KEY DEPRESSED THE
REGISTER CONTENTS WILL NOT BE CHANGED.

5.1

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

OPERATIONAL SWITCH SETTINGS
Sw1s
1
HALT ON ERROR
SwWi4
1
LOOP ON CURRENT

Sw13 =1
Swi1l
1

SOF TWARE SWIT(CH

TEST

INHIBIT ERROR TYPEQUT
INHIBIT ITERATIONS

cZouc-D
CZOUIT.H Lo

MACY11

30A(1052)

21-NOV-78

20-NOV~78 16:48
SW10
Swo8
SW07
Sw02
Sw01
SW00

=1
=1
=1
=1
=1
=1

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

6.1.1

PC+2 = ERROR PC
WHERE PC +2 IS THE ADDRESS OF

THE

CALL

FOR OPERATOR OPTION)

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

PC +2 = REGISTER ERROR PC

16XXXX

THE

222711

16XXXX

THE ADDRESS OF

WHERE

YYYYYY

THE

EXPECTED

FAILING DEVICE REGISTER

CONTENTS OF

1S THE ACTUAL CONTENTS OF

THAT REGISTER

PC +2 = RECEIVER ERROR P(
REGISTER
EXPECTED

ACTUAL

WHERE

16XXXX

THE

WHERE

YYYYYY

IS THE EXPECTED DATA CONTENTS OF

TEXXXX

YYYYYY

WHERE 227727

6.1.4

ACTUAL

YYYYYY

WHERE

WHERE 7227727

6.1.3

EXPECTED

122111

THE ADDRESS OF

FAILING RECEIVER

1S THE ACTUAL DATA CONTENTS OF

+2 = TRANSMITTER ERROR P(

EXPECTED

16XXXX

(RXDBUF)

THAT REGISTER

ACTUAL

YYYYYY

127111

WHERE

16XXXX

IS THE ADDRESS OF

WHERE

YYYYYY

THE

WHERE

777717

THE ACTUAL

EXPECTED

THE FAILING TRANSMITTER

CONTENTS OF

THAT REGISTERK

THAT REGISTER

(Tx SR)

@ Ve
CZDUT1.HLO

MACY11

30A(1052)

21-NOV-78

20-NOV-78 16:48

15:40

6.1.5

ERROR DESCRIPTIONS
SEE LISTINGS FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

Sw15 =0

PAGE 11

SEQ 001

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

AFTER THE PROGRAM HAS HALTED

CONSOLE '‘CONTINUE SWITCH''

NOTE:

6.2.3

_TO CONTINUE TESTING

,PRESS THE PROCESSOR

THE PC + 2 OF THE 'MLT'' WILL BE DISPLAYED

IN THE DATA LIGHTS

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

TRAPCATCHER.

THE ADDRESS AT WHICH THE PROGRAM

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

RECOVER FROM THIS ERROR.

6.2.4

ADDITIONAL

6.3

END OF PASS ROUTINE

TROUBLESHOOTING AIDS

ERRCNT:

& PAS(NT:

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

THIS TYPEQUT

IS MENTIONED HERE

IN THE FORM:

END OF PASS TAPE
16XXXX = DEVICE
WHERE

THE

FOR CONVENIENCE

TAPE

LOADED

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS
TO

INHIBIT

THIS

TYPEOUT -

TURN TELETYPE

OFF

RESTRICTIONS

MULTIPLE DEVICES
UP TG 16(10) DEVICES MAY BE TESTED. HOWEVER,
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS
NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME
YOU CAN CHANGE
‘7ERO:
ADD
#10,BASE]V
(VECTORS)'' TO ‘ZERO:
ADD
#0 ,BASEIV'';

THEY
INTERRUPT VECTOR
SNEXT BLOCK

THEREBY THE VECTOR ADDRESSES WILL NOT BE

UPDATED AFTER EACH PASS.
7.2

DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES

s
P

cZbuc-d
CZDUI1.HLO

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

21-NOV-78

15:40

PAGE 12

SEQ 0012

WHEN RUNNING MULTIPLE DEVICES
AN ACTIVE BIT IS SET
FOR EACH DEVICE RUNNING UNDER TES
IE. BIT 0 FOR

DEVICE O

,BIT 15 FOR DEVICE 15

TO DISQUALIFY DEVICES:

IF DEVICE O IS TO BE DISQUALIFIED ,SIMPLY RESTART

PROGRAM WITH SWOO =1

7.2.2

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.

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

7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE
WILL

7.3
7.3.1

TYPEOUT

THE PROGRAM

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

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:

VECTOR ADDRESSARE

YOU RUNNING MULTIPLE PEVICES

LAST DEVICE:

RECEIVER CONTROL RECISTER ADDRESS-

DU PRIORITY LEVEL# OF

SYNC

?- NO

CHARS

LEVEL

SELECTED -

IS SEC XMIT JUMPER # 6 IN 7IS SEC REC JUMPER # 5

IN 7=

IS OPT (LR ENABLE JUMPER # 4

DUPRT:
2

YES
YES
IN ?-

DURIV:

770

MULTD:

LASTADD:
LEVEL 5

SYNCNO:

377

SEXMIT:

377

SERFC:
YES OPTCLR:

160040

377
377

cZbuc-D
CZDUT1.HLO

MACY11 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

8.1

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

10.

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

LISTINGS

C20uC-D
CZDU11.PAR

675
675

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

00000C'

000000G

21-NOV-78

15:40

PAGE

SEQ 0014

C2DUC-D
CZ0UCh.P1

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

677

21-NOV-78

15:40

:DUT1

2%?

CZDUC-D TAPE C

:STARTING PROCEDURE
:LOAD PROGRAM
:PRESS START
:PROGRAM WILL TYPE 'DUT1 CZDUC-D TAPE C *'
;PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED
JAT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE ("'
:AND THEN RESUME TESTING

gg;

;SWITCH REGISTER OPTIONS

693
694

100000
040000

Sw15=100000
SW14=40000

696
697
698

010000
004000
002000

SW12=10000
SW11=4000
Sw10=2000

702
703

000100
000040

SwW06=100
SW05=40

706

000604

704
705

707

708
709

SEQ 0015

682
683
684
685
686
687
688
689
690

699
700
701

.ENABLE ABS

678
679

695

PAGE

020000

001000
000400
000200
000020
000010
000002

000001

Sw13=20000

Sw09=1000
Sw08=400
SW07=200
SW04=20
Sw03=10

:=1,HALT ON ERROR
;=1.LO0P ON CURRENT TEST

;=1,INHIBIT ERROR TYPEOUT

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

SW02=¢4

;LOCK ON TEST SELECT

Sw00=1

;RESELECT VECTOR AND CONTROL REGISTER
;ADDRESS AFTER PROGRAM RESTART

Sw01=2

:RESTART PROGRAM AT SELECTED

TEST

MACY11

30A(1052)

18-JUL-78 15:52

15:40

21-NOV-78

PAGE 19

SEQ 0016

JREGISTER DEFINITIONS

000000
000001
000002
000003

000007

RO=%0
R1=%1
R2=%2
R3=23
R4=%4
R5=25
SP=26
PC=%7

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

;LOCATION EQUIVALENCIES
177570
177570
177776

001100

DSWR=177570
DLIGHTS=177570

PS=177776

STACK=1100

cHARDWARE SWITCH REGISTER LOC.
;HARDWARE DISPLAY REGISTER LOC.
;PROCESSOR STATUS WORD
sSTART OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS
005746
005726

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046

POPRQ=12600

022626

PUSH2SP=24646
POP2SP=22626

100000

BIT1

.EQUIV

EMT HLT

sDECREMENT PROCESSOR STACK ? WORD =TST -(SP)
s INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+
;SAVE RO ON STACK =MOV RO,-(SP)

JRESTORE RO FROM STACK =MOV

(SP)+,R0O

;DECREMENT STACK TWICE =CMP -(SP),-(SP)

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

;BASIC DEFINITION OF ERROR CALL

NN SN
HHnnhn
NS
=
o
o
o
o

C20UC~-D
CZDUCD.PTY

00000

10000
BIT 1
BIT11=4000
BIT710=2000
BI179=1000
BIT8=400
BI1717=200
BIT6=100
BIT5=40
BIT4 2
BIT3 1
BIT? 4
BITI 2
BITO 1

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

CZbuC-D
CZbuCD.P11

767

768
769
770
[44
772
773
774
775
776
777
778
779
780
781
782
783
784
785

MACY11

30 A 852)
18-JuL~78 1 5: 5
1

21-NOV-78

15:40

PAGE 20

SEQ 0017

;REGISTER DEFINITIONS

:RXCSR BIT DEFINITIONS

DSC=B]IT15

RING=BIT14

CTS=BIT13
CARDET=BIT12

RECACT=B]T11

;DATA SET CHANGE

*RING

*CLR TO SEND
*CARRIER DETECT
*REC ACTIVE

SRD=B]T10
DSR=BIT9

*SEC REC DATA
:DATA SET RDY

RXDONE=B]T7

*REC DONE

DSINTE=BITS

:DSC INTR ENABLE

STPSYN=BITS

RINTEN=BIT6
SYNSCH=B1T4

STD=BIT3

RTS=BIT?
DTR=BIT1
vOID=BITO

SSTRIP SYNC

*REC INTR ENABLE
*SYNC SEARCH

SSEC XMIT DATA
*REQ TO SEND
:DATA TERM RDY

sRXDBUF BIT DEF INITIONS

RXERR=B1T15
OVRRUN=BI T14
FRMERR=B]T13
PARER=B]T12

:REC ERROR
*OVERRUN
:FRAME ERROR

*PARITY ERROR

:PARCSR BIT DEFINITIONS

PAREN=BIT9

EVPAR=BITS

;PARITY ENABLE

:EVEN PARITY SENSE

-PARCSR WRD DEF INITIONS

SYNINT=30000

:SYNC EXTERNAL MODE

SYNEXT=20000
1SYMOD=0
FIVE=0
SIX=2000
SEVEN=4000
EIGHT=6000
NOPAR=0
ODDPAR=1000
EVEPAR=1400

SSYNC INTERNAL MODE
2 1S0C MODE

SWORD LENGTH
:WORD LENGTH
SWORD LENGTH
:WORD LENGTH
‘NO PARITY
:0DD PARITY
:EVEN PARITY

DNA=BIT15

;:DATA NOT AVAILABLE

S BITS
6 BITS
7 BITS
8 BITS

-TXCSR BIT DEFINITIONS

MTDATA=BIT14

CLK=BIT13

BITW=B]T10

[ ]\

—=O000
NN
W

- Quit- Qi G- St Gl G Gt §
m%oaoaoaoaoaoaoaoo

811

*MAINT DATA

SCLK

‘BIT WINDOW

MRESET=RITS
TXDONE=BIT7
TXINTE=BIT6

*MASTER RESET
SXMIT DONE

HDXEN=B113

*HDX/FDX

ONAINTE=R] TS
SEND=BI T4

BREAK=R]T0

USER=0

SXMIT INTR ENABLE

:DNA INTR ENAB
:SEND
:BREAK

:TXCSR WRD DEF INITIONS

MINT=4000
MEXT=10000
SYSTST=14000

;USER MODE

:MAINT INT MODE
*MAINT EXT MODE
JSYSTEM TEST MODE

s TRAPCAT(r
FR FOR ILLEGAL

INTERRUPTS

CZ0UC~D
CZDUCD.P11

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

21-NOV~78

15:40

ggg

826
827
828
829
830
g%;

000024
000026
000030
000032
000034
000036

000024

.=24

015664
000340
015414
000340
015362
000340

000174
000176
000200

000174
000000
000000
000167

001100

=174
001214

001100
001102
001104
001106
001110
001112

177570
177570
177560
177562
177564
177566

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

;SWITCH REGISTER POINTER
;DISPLAY REGISTER POINTER
;TELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
STELEPRINTER CONTROL REGISTER
:TELEPRINTER DATA BUFFER

:PROGRAM CONTROL PARAMETERS

001114
001116
001120
001122
001124
001126
001130
001132

001134

000000
000000
000000
000000
000000
000000
000000
000000

000000

RTRN:
NEXT:
LoCk:
ICOUNT:
LPCNT:
TSTNO:
PASCNT:
ERRCNT:

0
O
0
0
0
O
0
0

LSTERR: 0

ggg

867
88
869
870
871
872
873
874
875
876
877

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

:INDIRECT POINTERS

ggz

322

DISPREG:.WORD 0
SWREG:
.WORD 0
JMp
.START

.=1100

gzg

855
856
8 858
859
860
861
862

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

:SOF TWARE SWITCH REGISTER

840
841
842
843
846
847
848
849
850
gg;

PFAIL
340
LHLT
340
. TRPSRV
340

ggz
835
836
837
ggg

SEQ 0018

:STANDARD INTERRUPT VECTORS

824

825

PAGE 21

:SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
JNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
:NUMBER OF ]JTEREATIONS 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
0011546
001156
001160
001162

000020
000000
000000
000000
000000
000000
009000
000000
000000
000000
000000

HOLD:
SHIFT:
CONT:
TEMP1:
TEMP2:
TEMP3:
TEMP4:
TEMPS:
SAVRO:
SAVRT:
SAVR2:

20
0
O
O
O
0
O
O
0
0
O

; 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

CZ0UC-D
CZbucD.P11
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:
SAVPC:

0
0
0
Q
O

PAGE 22

SEQ 0019

.R3 STORAGE
;R4 STORAGE
;RS STORAGE
sSTACK POINTER STORAGE
;PROGRAM (COUNTER STORAGE

cZbuc-D
CZbucp.P11

883

MACY11

30A(1052)

18~-JuL~-78 15:52

377
377
377

377
000
377

000000

000000
000000
000000

21-NOvV-78

15 :40

SYNCNO:
SEXM]T:
SEREC:
OPT(LR:
MULTD:
JMRBY:
.EVEN
BASEADD:
KEEPADD:
:
LASTADD
BASEIV:

PAGE 23

SEQ 0020

JPROGRAM CONVERSATIONAL
377
.BYTE
377
.BYTE
377
.BYTE
377
.BYTE
.BYTE

377

.BYTE

PARAME TERS
;# OF

SYNC CHARS REQ'D FOR SYNC'ZATION

;SEC XMIT JUMPER '‘IN'’
;SEC REC JUMPER "'IN'’
;OPTIONAL JUMPER CLR ''IN''
sNO MULTIPLE DEVICE FLAG
sEXTERNAL MODEM BYPASS JUMPER '‘IN''

JPROGRAMOMULTIPLE DEVICE PARAMETERS
sPROG CONTROLLED 1ST DEVICE ADDR

KEEP]V:
ACTREG:

0
0
0
0
0

ROTADD
:

sSAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR
sPROG CONTROLLED IV

:SAVED INTR VECTOR

¢ACTIVE REGISTER ,,.MODIFY THIS
;LOCATION TO DISQUALIFY OR QUALIFY
;DEVICES (1= RUN,,,0= DON'T RUN)

cROTATING POINTER FOR ACTREG..POINTS

:TO DEVICE FRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

:Qt"t'Q't'tlQQt'tt".t"i‘fi.t*ttfit'fi*fi

;

THESE

ARE

STORAGE

FLAG:0
HOLDO: O
HOLD1:0

COUNT1:0
TABLE

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

0
CRNRA

FOR

* FOR COUNTING 3 WORDS
* FOR CONVRT ROUTINE

3006

AN RARNIARANNNRANAAANANRRANRANRRN

;PROGRAM (CONTROL

INIFLG:
STFLG:
ERRFLG:
LOKFLG:

(SSP)

; g?ugc RO IN STATUS MAP PRINT

.BYTE
BYTE
BYTE
BYTE

FLAGS

0
O
0
0

;PROGRAM INITIALIZATION FLAG
;TEST START FLAG

JERROR OCCURED FLAG
JLOCK ON CURRENT TEST FLAG

.EVEN
JENANRAN

STATUS

.=1300

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

; MULTIPLE
ADDRASE: .BLKWw

MAP

AW AANNK

s SYNC CHARS
JXMIT JUMPER
JREC SEC JUMPER
;OPTIONAL JUMPER
JMULTIPLE DEVICE FLAG
;EXTERNAL MODEM

DEVICE PARAMETERS
1

;PROG CONTROLLED 1ST DEVICE ADDR

c2ouc =D
CZbuch PN

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

21-NOV-78

15:40

PAGE 24

ADDKEEP:
ADDLAST:

SEQ 0021

sSAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR

.BLKW 1
.BLKW 1

IVBASE: .BLKW 1

IVKEEP:
REGACT:
ADDROT:

.BLKW 1
.BLKW 1
.BLKW 1

RISDU:

.BLKw 1

PRTDU:
RIVDU:
TIVDU:
TISDU:

.BLKW
.BLKW
.BLKW
.BLKW

;PROG CONTROLLED 1V
sSAVED INTR VECTOR
;ACTIVE REGISTER
;ROTATING POINTER

1
1
1
1

:DUTT
;DU1T1
JDUTT
JDUTT

;DUI1T

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

PRIORITY
REC INTR VECTOR
XMIT INTR VECTOR
XMIT INTR STATUS

REC INTR STATUS

PRIORITY TO ALLOW INTR
; DEFAULT OR ALTERED PARAMETERS
;

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

;DUTT RXCSR BASE ADDR

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFfINITIONS
001366

.TRPTAB:
SRR AR RN AR

AR AN

A A

AR A A AN A AN AR

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

"t't*tttttttt*!*itt*ttt*tit*tfittifi*ttttitttttttttttttt*ttittittitttiti'tfii

001366

104400

014146
104401

.SCOPE

001370

014332

.SCOP1

C0137¢2

014352

.TYPE

001374

014412

.INSTR

001376

014530

. INSTER

001400

014562

.PARAM

001402

014776

.SAVOS

001404

015036

.RESOS

001406

. CONVRT

001410

015070
104411
015074

001412

015314

LSETFLG

001414

016030

. CKSWR

104402

104403

104404

104405

104406
104407

104410

104412

104413

.CNVRT

SCOPE - TRAP+0

;CALL

TO SCOPE LOOP AND ITERATION HANDLER

SCOP1=TRAP+1

;CALL

TO LOOP ON CURRENT DATA HANDLER

TYPE=TRAP+?

;CALL

TO TELETYPE OUTPUT ROUTINE

INSTR=TRAP+3

;CALL TO ASCII

INSTER=TRAP+4

;CALL

"0 INPUT ERROR HANDLER

PARAM=TRAP+5

;CALL

TO NUMERICAL DATA INPUT ROUTINE

SAVO5=TRAP+6

;CALL TO REGISTER SAVE ROUTINE

RESO5-TRAP+7

sCALL

CONVRT=TRAF+10

sCALL TO DATA OUTPUT ROUTINE

CNVRT=TRAP+11

sCALL TO DATA OUTPUT ROUTINE WITHOUT CR/LF

SETFLG=TRAP+1?2

sCALL

TO FLAG SET ROUTINE

(KSWR=TRAr+13

;CALL

TO ALLOW SWREG TO BE LOADED FROM TTY

STRING INPUT ROUTINE

TO REGISTER RESTORE ROUTINE

MACY11 30A(1052)
18-JuUL~-78 15.52

cZDuC-D
CZDUCD.P1

CESAERER 828 28

995

001416

21-NOvV~78

104414

016104

15:40

.CNTLU

NOWNISANN

;TYPE

012767

OV NOWNSWLWN=0O

[ Qe Qo P Qo P Qo P Gus e Qo

1021

000340
001100
015664
177460
177575
177454
177566
177446
177444

012767
012767

000001
001420

10?767
001004
104402
105167
012767

012767
013746
013746
012737
022777

001402
000407
022626
012767

176350

.START:

000024

177430
177410

OV NN
NNy —

RN A AN A RAA AT A AAAAARARAN AR

ARRANAANARARAA

RN AN AN AN RN A NARARANARRANARRAARAARRAANRAAS
AN RARAR

TITLE MESSAGE

MOV
MOV
MOV
CLR
CLRB
CLR
CLRB
CLR
CLR

#340,PS

:LOCK OUT INTERRUPTS

#_.PFAIL ,a#24

*SET UP POWER FAIL VECTOR

#STACK, SP

LPCNT
STFLG

*CLEAR # OF ITERATION COMPLETED LOCATION
*CLEAR START FLAG

ERRFLG
ERRCNT
LSTERR
#1,TSTNO

*CLEAR ERROR FLAG
*CLEAR ERROR COUNT
*CLEAR LAST ERROR POINTER
*SET UP FOR TEST 1

PASCNT

177534

éxégLG

*HAS INITIALIZATION BZEN PERFORMED

016204
177522

INIFLG

177570
177570

000006
000004
001566
177777

177350

177344

ONCE:

177316

177202
177276

000176

177250

;TYPE TITLE MESSAGE

#DSWR, SWR
#DLIGHTS,L IGHTS

*RELOAD HARDWARE SWITCH REGISTER INTO POINTER
*RELOAD HARDWARE DISPLAY REGISTER INTO POINTER

*SAVE VECTORS

ZEl'aS”R

*REFERENCE HARDWARE SWITCH REGISTER

66%:

*POINT
*POINT

g:gz

;UNDER MONITOR

#SWREG, SWR
MAP

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

(SP)+, a#
(SP) +.a#6

CNTLU

177236

MAP :

;ADJUST STACK

#SWREG, SWR
#DISPREG,L IGHTS

RNARRAAR AR R AN R RN N AR AR R AN NRRRRANR

TN ARRRRARNRN

CODE ADDED FOR REV.

;

SETUP, OR REENTER QUESTIONING ROUTINE

8 IT ASWO7,

TO SOFTWARE SWITCH REG
TO SOFT DISPLAY REG

*RESTORE VECTORS

;

Y IF Swo7= 1
000200

;SET UP FOR TIMEOUT

66$
(SP)+, (SP)+

€4S
65%:

*IF NOT SET FLAG AND DO

46, ~(SP)
a#h . -(SP)

#64$, a#6

000004

000176
000174
000004
000006
000042

*TESTING STARTS

MTITLE

. CODE FOR STATUS MAP

032777
001537

:CLEAR PASS COUNT

*SET UP FOR POWER FAIL BEFORE

SRR

001634
001642

*SET UP STACK

#.START,RTRN

1040

SRERRRRRRR

AR A AR A AR

OF SWREG FROM TTY

;PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
sSET UP PROCESSOR STACK
sSET UP POWER FAIL VECTOR
;CLEAR _PROGRAM (ONTROL FLAGS AND COUNTS

D
D
D
D
D
d
D

;CALL TO ALLOW LOADING

SRR AA R AR AR RN R AR RN RRAANN

e e
D
d
D
D
d
o ad
b ed e
—

SEQ 0022

CNTLU=TRAP+14

SRR AR AR AR AR AR

998

(olelelelelelelololela]

PAGE 25

RN R

AR NN

£ OF DIAGNOSTICS

,THEN YOU USE THE STATUS MAP PREVIOUSLY

aSWR

IS SW07=1?
;. IF NOT, GO TO TEST FOR SWO0-1
; NOW SET 'JP MAP VALUES FOR PROGRAM
; THESE VALUES FROM THE STATUS MAP WILL BE USED IN THE

8 EQ $67

C20UC-D

C2DUCD.P1M

MACY11

30A(1052)

18-JUL~-78 15:52

21-NOV-78

15:40

PAGE 26

SEQ 0023

1051
1052
1053

001644
001652

116767
116767

177430
177423

177324
177317

; OPERATION OF THIS PROGRAM,
MOVB NOSYNC
»,SYNCNO
MOVB MITSEX
LSEXMIT

1055
1056
1057
1058
1059
1060
1061
1062
1063
1066
1065
1066
1067
1068

1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083

001666
0016764
001702
001710
001716
001724
001732
001740
001746
0017564
001762
001770
001776
002004

116767
116767
116767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767

177411
177404
177377
177372
177366
177362
177360
177354
177350
177334
177220
177332
177332
177320

177305
177300
177273
177266
177262
177256
177254
177250
177244
177230
177214
016352
016346
016342

MOVB CLROPT
MOVB DMULT
MOVB BYJMR
MOV ADDBASE
MOV ADDKEEP
MOV
ADDLAST
MOV IVKEEP
MOV REGACT
MOV ADDROT
MOV IVBASE,
MOV KEEPADD
MOV RIVDU,
MOV RISDU,
MOV TIVDU,

002Lb26
002034
002042
002050
002056
002064
002072
002100
002106
002114
002122
002130
002136

013737
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
000167

001324
177324
177272

017670
015764
016254
016250
016244
016240
016234
016230
016224
016220
016214
016210

MOV
MOV
MOV
MOV
MGV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JMP

1085
1086
1087
1088
1089
1090

002142
002150
002152
002156
002162
002166

032777
001002
000167
005037
012700
012701

1092
1093
10946
1095
1096
1097
1098
1099
1100
1101
1102

002176
002200
002202
002204
002206
002212
002214
002216
002220
002222
002226

010110
005011
060200
060201
022701
002771
104403
016260
104405
160000
167776

002230
002231
002232

001
001
016767

10564

1084

1091

1103

1104
1105
1106

001660

002012
002020

002172

002226

116767

016767
016767

012702

177416

177314
177312

177266
177262
177256
177252
177246
177242

177236
177232

177226
000466

000001

177312

MOVB RESE(

016336
015644

MOV TISDU,
MOV L1ESS,

176730

000452
001222
000300
000302

$67:
1%:

000004

2%:

001000

020026

015570

176746

BYTE
.BYTE

, SEREC

LOPTCLR
LMULTD
. JMRBY
,BASEADD
.KEEPADD
LLASTADD
LKEEPIV
LACTREG
.ROTADD
BASEIV
., BASEADD
DURIV
DURIS
DUTIV
DUTIS
LESST

a#PRTDU,
a#DUPRT
BASEDU, DUBASE
CSRRX,
RXCSR
CSRHRX,
HRXCSR
BUFRXD, RXDBUF
BUFHRXD,
CSRPAR,
CSRHPAR,
CSRTX,
TXCSR

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

MOV

MOV
CLR
ADD
ADD
CMP
BLT
INSTR
MREGAD
PARAM
160000
167776

;

;.
:
.
;
.

;

SEC REC JUMPER

;OPTIONAL JUMPER
JMULTIPLE DEVICE
sEXTERNAL MODEM
;JPROG 1ST DEVICE ADDR
. SAVED 1ST DEVICE ADDR
. LAST DEVICE RXCSR ADDR
; SAVED INTR VECTOR
JACTIVE REGISTER
JROTATING POINTER
BASE INTR VECTOR
.RELOAD BASEADD
REC INTR VECTOR
REC INTR STATUS
XMIT INTR VECTOR
XMIT INTR STATUS
PRIORITY TO ALLOW INTR
PRIORITY RELOADED

HRXDBUF
PARCSR
HPAR(CSR

;JBRANCH TO BEGIN TESTING

AR RRANANNANARNRANNRRANRRRARE

,aSWR

#4 ,R2

. RESELECT VECTOR $ CONTROL REG?
; BRANCH
TO QUESTIONING
. GO TO
LOAD STATUS MAP ETC.
; CLEAR FLAG SO STATUS MAP PRINTS OQUT
JRESTORE VECTOR AREA TO TRAPCATCHER
;START AT LOCATION 300

R1,(R0O)
(R1)
R2.RO
R ,R1
#1000,R1
2%

JEND AT LOCATION 776

DIBASE

1
1
MOV

;

CSRHTX,
HTXCSR
BUFTXD,
TXDBUF
BUFHTXD,
HTXDBUF
_BEGIN

BIT
#SW00
B8NE
1%
JMP _BEGIN
CLR a#FLAG
MOV
#300,R0
MOV
#302 ,R1

;s SYNC CHAR
; XMIT
JUMPER

DUBASE ,KEEPADD

;SAVE

JOUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
; CONVERT STRING
JLOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION
JMASK
JHOW MANY TIMES + 2

CZDUC~v
CcZDucb.P11
1107

062240

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

1108
1109
1110
1111

002244
002252
002254
002256

016767
104403
016236
104405

1116

002267

004

1112
1113
1114
1115

1117
1118
1119
1120
1121
1122
1123
1124

1125

002260
002262
002264
002266
002270
002276
002304
002306
002310
002312
002314

002320

016767
016767
104403
016341
104412

001202
105767

100406

002322
002326
002332
002336
002336

0050¢7
005067
000167

1132

002342

104405

1133
1134
1135
1136
1137
1138
1139

1140
1141
1142
1143
1144
1145
1146
1147
1148
1149

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

002340

002354

012767

002362
002366
002374
002376
002402
002404
002412
002420
002422

005067
056767
000241
006167
103421
062767
026767
101362
056767

002430
002436
002444
002446
002454
002456

012767
016767
000414
016767
104403
016603

002462

1692000

002464

BYTE

176662
176670
176666
(00140

B888:

104403

160000
167776
001210
001
001

002466
002470
002471

176716
176706

300
776
DURIV
1
4

MOV
MOV
INSTR
MMULT
SETFLG

000001

176630
176626

PC,DUADDR

LOW LIMIT
JHIGH LIMIT
sSTORE AT THIS LOCATION
;MASK

DURIV KEEPIV
DURIV,BASEIV

MULTD

BM]

888

CLR
CLR
JMP

SEQ 0024

KEEPADD ,BASEADD ;RESTORE FOR ROTATION
sOUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
s CONVERT STRING

MULTD
TSTB

ACTREG
ROTADD
OUTMUL

sHOW MANY TIMES + 2

s SAVE
;SET UP FOR ROTATION
sOUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
;SET FLAG BASED UPON INPUT STRING

:THIS FLAG
;ARE THERE MULTIPLE DEVICES
;ON THE SYSTEM ?

s YES,ASK NEXT QUESTION

. JUMP AROUND NEXT QUESTION

INSTR

;OUTPUT MESSAGE & GET INPUT STRING

PARAM

s CONVERT STRING

MLASTD

sME SSAGE

176636

160000
JLOW LIMIT
167776
SHIGH LIMIT
LASTADD
;STORE AT THIS LOCATION
BYTE
1
sMASK
BYTE
1
;HOW MANY TIMES + 2
:THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME
1%:
MOV
#1,ROTADD
;SET UP POINTER

176622

2%:

176616
000010
176572

176572
176564

176572

176566

000001
176544

176562
176540

4$:

176534

176530

3%:

104405

CLR
8IS
CLC
ROL
B(CS
ADD
cMP
BHI
BIS

MOV
MOV
BR
MOV
INSTR
MRANGE
160000

JLOW LIMIT

LASTADD
1
1

;STORE AT THIS LOCATION
sMASK
JHOW MANY TIMES + 2

167776

BYTE
BYTE

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

ROTADD
SET UP POINTER
33
sARE YOU OUT OF RANGE ?
#10 ,BASEADD
;SET _UP BASE ADDRESS
LASTADD ,BASEADD ;IS THIS THE LAST DEVICE ?
2%
:NO DO IT AGAIN
ROTADD ,ACTREG ~ ;THIS ASSUMES THAT THERE ARE AT
sLEAST TWO DEVICES WHEN YOU ANSWER YES TO
MULTIPLE DEVICE QUESTION
#1 ,ROTADD
sSET UP FOR LATER USE IN END OF PASS ROUTINE
KEEPADD ,BASEADD ;DITTO
OUTMUL
;CONTINUE QUESTIONS
KEEPADD ,BASEADD ;RESTORE
sOUTPUT MESSAGE & GET INPUT STRING
sMESSAGE

PARAM

167776

001210
001
001

PAGE 27

MOV
INSTR
MVECTO
PARAM

BYTE

016054
016046

15:40
JSR

176732

016420

002344
002346
002350
002352
002353

002460

176736

000300
000776
020350
001

1126
1127
1128
1129
1130

1131

015430

21-NOV-78

s CONVERT STRING
JHIGH LIMIT

czouc-D
CZDUCD.P11
1163

002472

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

1164
1165
1166

002476
002476
002500

017067

1168
1165
1170

002504
002506
002510

000004
000007
017670

1167

1171

002502

002512

002520
002520
002522
002524
002532
002534
002540
002542
002550
002552

104403
017114
122767
001003
105067
000412
122767
001004
112767

1189

002562

1191

002566

1192
1193
1196
1195
1196
1197
1198
1199
1200
1201

1202

1203
1206
1205
1206
1207

1208
1209

002564

002570
002572
002574
002576
002600
002602
002604
002606
002610
002612

002614

002616
002620
002622
002624
002626

000402

.BYTE

1213

1214
1215
1216
1217
1218

002630

002636
002644

014726

3%:

176436
000062

0147104 1$:

177777

176416
f

104404

000240

104403
017162
104412
001177
104403
017230
104412
001200
104403
017275

104412

’
)

000340

000200

2%:
4%:

001201
104403
017351
104412
001203

032777
001132

AAA:

000757

012767

.BYTE

015100

]‘5}(1)
1212

000061

15:40

PAGE 28

JMP

OUTMUL:

000

001
004767

1190

p
N

104405

002513
002514

002560

177656

104403

1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187

1188

21-NOV-78

175140

176234

SEQ 0025
:00 IT AGAIN

INSTR

sOUTPUT MESSAGE £ GET INPUT STRING

PARAM

;CONVERT STRING

“MASK

MLEVEL

*MESSAGE

4
7
DUPRT

sLow LIMIT
SHIGH LIMIT
:STORE AT THIS LOCATION

1
;HOW MANY TIMES + 2
JSR
PC,DULEV
2 COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
BUFFER TO THE CHARACTERS ‘“1'' AND ',
;IF THE CHARACTER IS '%'' CLEAR THE FLAG
;IF THE CHARACTER IS 2“ SET THE FLAG
INSTR
MSYNC
CMPB
BNE
CLRB
BR
CMPB
BNE
MOVB
BR
INSTER
B8R
NOP

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

INSTR
MWIREG
SETFLG
SEXMIT
INSTR
MWIRES
SETFLG
SEREC
INSTR
MWIRES

JOUTPUT MESSAGE & GET INPUT STRING
+MESSAGE \
JIS IT 1
2

;000
JIS IT "2t 2
;377
:RETRY

JOUTPUT MESSAGE
*MESSAGE
cSET FLAG BASED
s THIS FLAG
.'OUTPUT MESSAGE
s MESSAGE
JSET FLAG BASED
;THIS FLAG
JOUTPUT MESSAGE
+MESSAGE

SETFLG

& GET INPUT STRING
UPON INPUT STRING
& GET INPUT STRING
UPON INPUT STRING

& GET INPUT STRING

JSET FLAG BASED UPON INPUT STRING

OPTCLR
INSTR
MEXTJ:
SETFLG
JMRBY

;THIS FLAG
;JOUTPUT MESSAGE & GET INPUT STRING
s MESSAGE
sSET FLAG BASED UPON INPUT STRING
:THIS FLAG

;TEST START AND RESTART
.BEGIN: MOV

; WAAANR

#340,PS

;LOCK OUT INTERRUPTS

LOAD STATUS MAP PP

THF VALUES NOW BEING LOADED INTD THE STATUS MAP WILL BE
.' USED IN THIS PROGRAM AND
WILL BE
PASSED
TO ANY
.OTHER DU11 PROGRAMS LOADED IMMEDIATELY FOLLOWING THIS PROG.
BIT #SW07
LOSWR
; SWO7 SET , IF YES BRANCH
BNE HEREU

C20UC-D
CZDuCD.P1
1219
1220
1221
1222
1223
1224
1225

1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
12464
1265
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256

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

002646
002654
002662
002670
002676
002704
002712

116767
116767
116767
116767
116767
116767
016767

176324
176317
176312
176305
176300
176273
176266

002756
002764
002772
003000
003006
003014
003022
003030
003036

016767
013737
016767
016767
016767
016767
016767
016767
016767

176236
017670
015352
015346
015342
015336
014644
014772
015262
015256
015252
015246
015242
015236
015232
015226
015222
015216

002720
002726
002734
002742
002750

003044
003052
003060

003074
003102
003110
003116
003124

016767
016767
016767
016767
016767

016767
016767
016767
016767
016767
016767
016767
016767
016767

176262
176256
176254
176244
176242

21-NOV-78

MOVB SYNCNO
MOVB SEXMIT
MOVB SEREC
MOVB OPTCLR
MOVB MULTD
MOVB JMRBY
MOV BASEADD

176336
001324
176326
176326
176314
176310
176306
176326
176274
176270
176264
176260
176254
176250
176244
176240
176234
176230

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

176362
176356
176354
176344
176342

003132
003136
003140
003144

1265

003162

1267
1268
1269
1270

003174
003200
003204
003206

1271
1272
1273
1276

MOV
MOV
MOV
MOV
MOV

KEEPADD
LASTADD
KEEP]V
BASE]V
ACTREG

ROTADD
a#DUPRT
DURI]V
DURIS
DUTIV
DUTIS
LESS1
DUBASE
RXCSR,

SEQ 0026
+NOSYNC
JMITSEX
+RESEC
.CLROPT
LDOMULT
,LBYJMR
.ADDBASE

.ADDKEEP
+ADDLAST
. IVKEEP
. IVBASE
+REGACT

;SYNC CHARS
JXMIT JUMPER
;SEC REC JUMPER
;JOPTIONAL JUMPER
¢ MULTIPLE DEVICES
SJEXTERNAL MODEM
sPROG CONTROLLED 1ST ADDR

sSAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR
sSAVED INTR VECTOR
; RELOAD BASE INTR VECTOR
JACTIVE REGISTER

+ADDROT
;ROTATING POINTER
LoNPRTDU
:DU11 PRIORITY
RIVDU
sPeC INTR VECTOR
,RISDU
; REC INTR STATUS
., TIVDU
. XMIT INTR
VECTOR
.TISDU
. XMIT
INTR
STATUS
LL1ESS
; PRIORITY TO ALLOW INTR
,BASEDU
sRXCSR BASE ADDRESS
CSRRX
MOV HRX(SR,
CSRHRX
MOV RXDBUF
,
BUFRXD
MOV HRXDBUF
,
BUF HRXD
MOV PARCSR,
CSRPAR
MOV HPARCSR,
CSRHPAR
MOV TXCSR,
CSRTX
MOV HTXCSR,
CSRHTX
MOV TXDBUF,
BUF TXD
MOV HTXDBUF,
BUFHTXD
IRAARRRARRNNRARARANNRRR
RS R RRRARRRRRRKRAR
; THE FOLLOWING CODE WILL PRINT
; THE CONVERSATIONALLY SET JUMPER
; SETTINGS FROM THE STATUS MAP
; ON THE FIRST PASS OF
. THIS DIAGNOSTIC OR
; JUST AFTER THE QUESTIONING
. AND ANSWERING .

INRARRANRRRARRARAANAN AN RARANNANRRRRAR

1258
1259
126C
1261
1262

1266

PAGE 29

176424
176417
176412
176405
176400
176373
176366

1257

1263
1264

15:40

003150
003156

003166

003212
003216
003220
0032246

005737
001402
000167
104402

001222
000116
017426

HEREU:

062737
010067

000001
176042

001222

012767

000003

176034

010167

012700
012701
010120
062701

020127
001372
012700
210067

176040

000002°
001300
000002
001306
000002°
176006

TST a#FLAG
B8EQ
SETFG
JMP THRU
TYPE
MSTATUS

SETFG:

ADD #1, #FLAG
MOV RO HOLDO

: SET FLAG ON 1ST PASS
; SAVE RO

MOV '3 COUNT1

;COUNTER FOR WORDS PRINTED

MOV
R1, HOLD1

MOy #BUFF1, RO
MOV lSTATUS R1
FILBUF: MOV R1 (RG)*
ADD
#2 R1

uP:

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

(MP
BNE
MC'’
MOV

R1, lSTATUS*é
FILBUF
MBUFF1 RO
RO , TABLE+4

SAVE R1

; (BUFF1)=STATUS ETC.
; LOAD BUFF AS ABOVE
. PREPARE STATUS ADDRESS

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

¢ZouC-D
CZ0ucD.P11
1275
1276
1277

1278

1279
1280
1281

1282

1283

003230
003234
003240

003244

003250
003252
003256

MACY11 30A(1052)
18-JuL~78 15:5¢2
012067
104410
104402

005367

001365
016700
016701

1284
1285
1286

003262
003266
003272

012706
005737
001056

1289

003300

001407

1287
1288

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

}%}3

003274

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

003442

105767

016767
016767
000444
032777
001416
104403
017024
104412
001247
105767
001407
012767
012767
000406
016767
016767
032777
001410
104403
017011
104405
003446
013214
001114
001
001
000403
012767
104402

000177

21-NOV-78

15:40

PAGE 30

SEQ 0027

176006
001232
016670

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

175746
175744

BNE UP
MOV HOLDO,RO
MOV HOLD1, R1

175760

DEC COUNT1

sCOUNT WORDS PRINTED

; GO PRINT NEXT ADDRESS/CONTENTS

JNRRRRRRARRANR
AR AR RRARANRARRA AR

001100
000042

THRU:

175702

MOV
1ST
BNE

TSTB

011020
011014

010720
010714

000004

175552

BEQ

S$:

175703

000240
000240

010654
010650

010736
010732
000002

010636
010632
175472

1%:
2%:

BYTE
BYTE
003446
017005

; LOAD CONTENTS
; PRINT ADDRESS/CONTENTS PAIR
; CR AND LF

175456

175446

3$:
4%

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

JMP

#STACK,SP
el
33

;SET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL

:1F NO,TEST FOR LOCK ON TEST

MULTD
;DON'T ALLOW LOCK ON TEST IF RUNNING
(MULTIPLE DEVICES
BRW,TTST
BRX,TTST+2
3%
#B1T2,aSWR
1%

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

;OUTPUT MESSAGE & GET INPUT STRING
;MESSAGE

;SET FLAG BASED UPON INPUT STRING
;THIS FLAG
;IS LOCK ON TEST OPTION SELECTED

LOKFLG
1%
ANCP,TTST
INCP,TTST+2
2%
BRW,TTST
BRX,TTST+2
#5W01,aSWR
3%

;SET UP TO LOCK

;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
;IF SWO1=1, GET STARTING PC
sOUTPUT MESSAGE & GET
sMESSAGE

; CONVERT STRING
;LOW LIMIT
JHIGH LIMIT
+STORE AT THIS LOCATION
;MASK
JHOW MANY TIMES + 2

3
#TST1,RTRN
MR

;START AT TEST 1
;TYPE R

aRTRN

:START TESTING

1321
1322

;s THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER
;oSECTION ,IT USES THE ERROR FLAGS TO DETERMINE

1324
1325

;;FRAME ERROR (FRMERR,RXERR)
2 :MODE :1SOC (1SYMOD)

1323

;;THAT IT WAS SELECTED PROPERLY

1326

s LENGTH:FIVE

}%Sg

1329
1330

INPUT STRING

;;CHAR: 25

003446
003454

012767
012767

000001
003622

175452
175434

7T1ST1:

MOV
MOV

4", TSTNO
WTST2 NEXT

JSAVE

THIS
;GO TO THIS TEST WHEN THRU

CZDUC-D
¢ZDUCD.P11

1331
1332
}ggz

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

21-NOV-78

003462
003470
003476

052777
012777
052777

000400
000000
000400

014650
014636
014634

4%9

003504

012777

064001

014626

1338
1339
1340

003512
003520

012777
052777

000000
000020

014614
014576

1335

1341

132
1343
1344
1345
1346

003526
003534

042777
052777

020000
020000

0164604
014576

003542
003550

042777
052777

020000
020000

014570
014562

1348

003564

012767

000052

175352

1347
1349
1350
1351

003556
003572
003576

012767

004767
016703

1352
1353

003602
003606

1355

003614

001401

003620
003620

104400

1354

1356
1357
1358
1359
1360
1361
1362
1363
1364
1365

003612

003616

012700
017701
020001

000007

175354

014232
014526

BIS
MOV
BIS

MOV

1375

g;g

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

MMTDATA' CLK 'MINT !BREAK ,@TXCSR

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

8IC
#CLK,@TXCSR
;POKE CLK DOWN
BIS
#CLK.QTXCSR
*POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,ITXCSR
;POKE CLK DOWN
BIS
#CLK.ITXCSR
*POKE CLK UP

TMoV

:NOTE:

120025
014516

MOV

104002

#7 SHIFT

#52. TEMP1

‘¥ OF SHIFTS
‘DATA CHAR

THE ABOVE CHARACTER IS MISSING STOP BIT
'SR
PC ,RPOKE
SSHIFT IN THIS CHAR
MOV
RXDBUF ,R3
*FOR ERROR MESSAGE

MOV
MOV

#RXERR | FRMERR ' 25RO
;EXPECTED
SRXDBUF ,R1
SACTUAL

BEQ

64$

cMP

HLT

RO,R1

;COMPARE EXP VS ACT

:FRAME ERROR € RX ERROR SHOULD BE SET
*IF LOWER BYTE DOES NOT MATCR
1IT
:PROBABLY IS A LENGTH SELECT PROBLEM

648

SCOPE
;:THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER
$:SECTION ,IT USES THE ERROR FLAGS TO DETERMINE
S:TRAT IT WAS SELECTED PROPERLY
*FRAME ERROR (FRMERR,RXERR)
*:MODE: 1SOC (1SYMOD)

2 2LENGTH:SIX
;;CHAR: 25

003622

012767

012767
052777
012777
052777

003776
000400
000000
000400

175260
014476
016462
014460

003660

012777

064001

014452

003630
003636
003644
003652

000002

175276

1378
1379
1380
1381
1382
1383

003666
003674

012777
052777

002000
000020

016440
014422

003702
003710

042777
052777

020000
020000

074430
016422

1385
1386

003716
003724

042777
052777

020000
020000

014416
016406

1384

SEQ 0028

;SET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG
MOV
#1SYMOD ! F IVE 'NOPAR! 0, @PARCSR
BIS
#SYNSCH,@RXCSR
:SET SYNC SEARCH

1366

1370
1371
1372
};;Z

PAGE 31

:SET MAINT DATA,CLK,BREAK ,CMAINTENANCE MODE

]I:;g;

1369

15:40

T1ST2:

MOV

MOV
BIS
MOV
8IS

#2,TSTNO

;SAVE THIS

#TST3 NEXT
;GO TO THIS TEST WHEN THRU
MMRESET.@aTXCSR
:MASTER RESET
#1SYMOD .3PARCSR -SET THE MODE
#MMRESET.3TXCSR
-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
#13YMOD'SIX!NOPAR
!0, aPARCSR
BIS
#SYNSCH,aRXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,RTXCSR
:POKE CLK DOWN
8IS
#CLK.ATXCSR
‘POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
8IS

#CUK,ATXCSR
#CLK.ATXCSR

:POKE CLK DOWN
*POKE (LK UP

C2DUC~D
CZDUCD.P11

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

1387
1388
1389
1390
1391
1392

003732
003740

012767
012767

000010
000052

003746
003752
003756

004767
016703
012700

014056
014352
120025

139
1395
1396
1397
1398
1399

003766
003770
003772

020001
001401
104002

1393

1400
1401
1402

003762

003774

017701

21-NOV-78

175200
175176

15:40

;NOTE:

014342

cTMP
BEQ
HLT

1418

1419

1620
1421
14622
1623
1624
1625
1626
1427

1428

:LENGTH:SEVEN

::CHAR: 125
003776
004004
004012
004020

01276~
012767
052777
012777

000003
004152
000400
000000

175122
175104
014320
01430¢

004034

012777

064071

014276

0046042

012777

004000

014264

004056
004064

042777
052777

020000
020000

014254
014246

004072
0046100
006106

062777
052777
012767

020000
020000
000011

014240
016232
175024

004026

004050

052777

000400

000020

1429
1430
1631

004114

012767

004122
004126

004767
016703

013702
014176

1433

004136

017701

014166

1432

143
1435

1636
1437
1438
1439
1640
1441
1442

;FRAME ERROR & RX ERROR SHOULD BE SET
$IF LOWER BYTE DOES NOT MATCH
IT
:PROBABLY IS A LENGTH SELECT PROBLEM

::FRAME ERROR (FRMERPF,RXERR)
: SMODE
: 1SOC (I1SYMOD)

}28;

SACTUAL

;COMPARE EXP VS ACT

S:THAT IT WAS SELECTED PROPERLY

1406

1415

RO,R1
64$
2

SCOPE
;s THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER
SISECTION ,IT USES THE ERROR FLAGS TO DETERMINE

1403

}2}2

@RXDBUF ,R1

64%:

106400

SEQ 0029

MOV
#8. . SHIFT
;¥ OF SHIFTS
MOV
#52. TEMP1
‘DATA CHAR
THE ABOVE CHARACTER IS MISSING STOP BIT
JSR
PC,RPOKE
SSHIFT IN THIS CHAR
MOV
RXDBUF ,R3
:FOR ERROR MESSAGE
MOV
#RXERR ! FRMERR ! 25 RO
;EXPECTED

MOV

1404
1405

1409
1410
1411
1612

PAGE 32

004132

004142
004144

004146

004150
006150

012700

020001
001401

000252

TST3-

014304

016246

175022

BIS

#3,TSTNO
:SAVE THIS
#TST4 NEXT
;GO TO THIS TEST WHEN THRU
MMRESET,.@TXCSR
:MASTER RESET
#1SYMOD .@PARCSR :SET THE MODE

MMRESET.RTXCSR

:MASTER RESET

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

MOV

;SET MODE

MMTDATA! CLK 'MINT {BREAK , @TXCSR

.# OF BITS,PARITY SENSE,EGLOAD SYNC REG

MOV

#1SYMOD ! SEVEN'NOPAR
!0, aPARCSR

BIS
#SYNSCH,@RXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,@TXCSR
:POKE CLK DOWN
BIS
#CLK.QTXCSR
‘POKE CLK UP
;POK§ CLK TO GET LOGIC INTO SYNCRONIZATION
' T BIC
#CLK,@TXCSR
;POKE CLK DOWN
.
BIS
#CLK.@TXCSR
‘POKE CLK UP
MOV
#9. SHIFT
‘4 OF SHIFTS
;NOTE:

120125

MOV

#252, TEMP1

MOV

#RXERRTFRMERR'125,R0

‘DATA CHAR

THE ABOVE CHARACTER IS MISSING STOP BIT
JSR
PC,RPOKE
SSHIFT IN THIS CHAR
MOV
RXDBUF ,R3
FOR ERROR MESSAGE

MOV

@RXDBUF ,R1

HLT

(MP
BEQ

1046002

104400

MOV
MOV
BIS
MOV

64$:
SCOPE

RO‘R1
64%

;EXPECTED

sACTUAL

;COMPARE EXP VS ACT

;FRAME ERROR & RX ERROR SHOULD BE SET
S1F LOWER BYTE DOES NOT MATCH
IT
:PROBABLY IS A LENGTH SELECT PROBLEM

:sTHIS TEZT VERIFYS WORD LENGTH SELECT OF RECEIVER
s;SECTION ,iT USES THE ERROR FLAGS TO DETERMINE

C20UC~D
CZDUCD.P11

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

21-NOV-78

15:40

1643

::FRAME ERROR (FRMERR,RXERR)
:*MODE
: 1SOC (I1SYMQOD)
S LENGTH:EIGHT

}225

SiCHAR: 125

1449
1450
1651
1452

004152
004160
004166
004174

012767
012767
052777
012777

052777

000400

014130

1455
}229

004210

012777

064001

014122

004216
004226

012777
052777

006000
000020

014110
014072

004232
0046240

042777
052777

020000
020000

014100
014072

006246

042777

020000

006262

012767

000012

1458
1459
1660
1461
1662
1463
1464
1465

004202

1666

006254

1468

006270

1667

052777
012767

000006
004326
000400
000000

000252

174646

004767
016703

013526
014022

1473

004312

017701

014012

004320

001407

1474

004316

16476
1477
1478
1479
1480
1481
1482
1483
1484
1485

006322

1475

020001

MMRESET.@TXCSR

-MASTER RESET

;SET MODE .# OF BITS,PARITY SENSE,.BLOAD SYNC REG
MOV
#15YMOD ' E IGHT !NOPAR {0, aPARCSR
BIS
#SYNSCH.SRXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
8IC
#CLK,@TXCSR
:POKE CLK DOWN
8IS
#CLK .QTXCSR
:POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,@TXCSR
;POKE CLK DOWN

BIS

#CLK.3TXCSR

*POKE CLK UP

MOV

#252.TEMP1

:DATA CHAR

MOV

;NOTE:

120125

#10. .SHIFT

¥ OF SHIFTS

THE ABOVE CHARACTER IS MISSING STOP B8IT
JSR
PC ,RPOKE
SSHIFT IN THIS CHAR
MOV
RXDBUF ,R3
“FOR ERROR MESSAGE

MOV

CTMP

BEQ
HLT

#RXERR'FRMERR'125,R0

@RXDBUF ,R1

- ACTUAL

EXPECTED

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

64$

€48
:

SCOPE
;:THIS TEST VERIFYS EVEPAR PARITY SENSE
“:OF THE RECEIVER
*:MODE
: I1SOC (1SYMOD)
*PARITY:EVEPAR
SLENGTH:FIVE PLUS PARITY

;:CHAR: 25

012767
012767
052777
012777

}zgg

1497
1498

1494

#4,TSTNO
;SAVE THIS
#TSTS NEXT
:GO TO THIS TEST WHEN THRU
MMRESET ,3TXCSR
:MASTER RESET
#1SYMOD .3PARCSR :SET THE MODE

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

052777

000005
004512
000400
000000

000400

174572
174554
013770
013756

004364

012777

064001

013746

004372

012777

001400

01373

004356

MOV
MOV
8IS
MOV

BIS

174650

104400

004326
004334
004342
004350

;23§

TST4:

104002

004324
004324

}239

1488
1489
1490
1491

012700

014064

014056

004276
004302

004306

174746
174730
014144
014132

020000

1469
1470
1471

1472

SEQ 0030

;:THAT IT WAS SELECTED PROPERLY

1644
1445
1446

}222

PAGE 33

013754

TSTS:

MOy
MOV
BIS
MOV

BIS

#5,TSTNO
;SAVE THIS
#TST6 NEXT
;GO TO THIS
MMRESET .@TXCSR
;MASTER RESET
#15YMO
. @PARCSR
D :SET THE MODE

MMRESET.RTXCSR

:MASTER RESET

;SET MAINT DATA,CLK,BREAK ,SMAINTENANCE MODE

MOV

MMTDATA' CLK 'MINT :BREAK ,8TXCSR

;SET MODE .# OF BITS,PARITY SENSE,BLOAD SYNC REG
MOV
#1SYM
IVE 'EVEPAR!Q,@PARC
OD!F
SR

TEST WHEN THRU

czouc-D
CZbucD P11

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

323

SEQ 0031

000020

013716

BIS

#SYNSCH,@RXCSR

:SET SYNC SEARCH

004406
004414

042777
052777

020000
020000

013724
013716

8IC
8IS

#CLK,TXCSR
#CLK.@TXCSR

;POKE CLK DOWN
*POKE CLK UP

BIC
BIS
MOV
MOV

#CLK,@TXCSR
:POKE CLK DOWN
#CLK.RTXCSR
*POKE CLK UP
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#RXERR | PARER ! 25 ,R0
SEXPECTED

MOV

#2502, TEMP1

TSTB

@RXCSR

013710
013702

052777
016703

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1744664

MOV

174462

WA =O

BUFRNRULEZRIR VB NN = O VOV

A
AT NI AT ATV
PIPNINUPNONON)
= = Db b b D b b

PAGE 34

052777

JSR

013632
s

017701
020001
001401

013626

104002

8M;

HLT

#8. SHIFT

:# OF SHIFTS

PC . RPOKE

SSHIFT

;RXDONE

IN THIS CHAR

SHOULD BE ASSERTED

MOV
g?g

SRXDBUF ,R1
:ACTUAL
32.R1
; COMPARE EXP vS.

HLT

ACT

;PARITY ERROR RXERR SHOULD BE SET
THAT THE PARITY BIT SHOULD

SSHOW UP IN THE DATA
S1E. BIT FIVE FOR FIVE LEVEL CODE

S COPE

104400

‘DATA CHAR

;RXDONE

:NOTE

::THIS TEST VERIFYS EVEPAR PARITY SENSE
1:OF

THE RECEIVER

: ISOC (I1SYMOD)
+MODE

AT A
A
N VIV
NN
Y AN wviv

IS BB
W
[0 3V,
F o WA —=O\0

15:40

004400

042777

21-NOV-78

:;PARITY:EVEPAR

SILENGTH:SIX PLUS PARITY
;:CHAR: 25
012767
012767
052777
012777
052777

000006
004676
000400
000000
000400

012777

064001

012777
052777

003400
000020
020000
020000

174406
174370
013604

013572
013570

IST6:

MOV

#6,TSTNO

BIS
MOV
BIS

#MRESET ,9TXCSR
;MASTER RESET
#1SYMOD _3PARCSR :SET THE MODE
#MRESET.RTXCSR
-MASTER RESET

MOV

:SAVE

THIS

;GO TO THIS TEST WHEN THRU

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

:SET MODE

MMTDATA!
CLK '"MINT 'BREAK , @TXCSR

,# OF BITS,PARITY SENSE,ZLOAD SYNC REG

MOV
8IS

#1SYMOD'SIX'EVEPAR!
0, aPARCSR
#SYNSCH.3RXCSR
;SET SYNC SEARCH

eIC
BIS

#CLK,RTXCSR
#CLK.TXCSR

BIC
8IS
MOV
MOV

#CLK,RTXCSR
;POKE CLK DOWN
#CLK.@TXCSR
SPOKE LK UP
RXDBUF ,R3
:SET UP FOR ERROR MESSAGE
#RXERR!PARER' 25 ,RO
SEXPECTED

MOV

#4652, TEMP1

TST8B

aRXCSR

;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
:PCKE CLK DOWN
*POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

MOV

013446

#TST7 NEXT

JSR

SHIFT

PC . RPOKE

;# OF

SHIFTS

‘DATA CHAR

JSHIFT

;RXDONE ?

IN THIS CHAR

CZbucC-D
CZDucD.P N

004656
004660
004662
004662
004666
004670
004672
004674

004674

MACY11

30A(1052)

18~JUL~78 15:52

21-NOV-~78

100401
104000

017701

020001
001401

1%:

013442

15:40

PAGE 35

8M]

MOV

aRXDBUF ,R1

52.R1

s COMPARE EXP VS. ACT

HLT

;PARITY ERROR RXERR SHOULD BE SET

HLT

ggg

104002

2%:

SEQ 0032
;RXDONE SHOULD BE ASSERTED

sACTUAL

sNOTE THAT THE PARITY BIT SHOULD

;SHOW UP IN THE DATA
cIE. BIT SIX FOR SIX LEVEL CODE

104400

SCOPE
;o THIS TEST VERIFYS EVEPAR PARITY SENSE

..0OF THE RECEIVER
2sMODE :1SOC (ISYMOD)
s ;PARITY:EVEPAR
s LENGTH:SEVEN PLUS PARITY

;;CHAR: 325

004676
004712
004720
004726

012767
012767
052777
012777
052777

000400

174222
174204
013420
013406
013404

004734

012777

064001

013376

012777
052777

005400

13364
13346

042777
052777

020000
020000

000020

042777
052777

17:

MOV

#7.TSTNO

BIS
MOV
8IS

MMRESET ,@TXCSR
;MASTER RESET
#1SYMOD ,aPARCSR ;SET THE MODE
MMRESET,@TXCSR
;MASTER RESET

MOV

;SET MODE

(%,

b
) —d
b
)
b
d o)
)

S3R28R
888
3382
—

—

104002

104400

013256

MMTDATA!
CLK!MINT !BREAK,aTXCSR

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

MOV
BIS

#1SYMOD ! SEVEN!EVEPAR!(Q,aPARCSR
#SYNSCH,@RXCSR
;SET SYNC SEARCH

BIC
8IS

#CLK,@TXCSR
#CLK,@TXCSR

sPOKE CLK DOWN
:POKE CLK UP

8IS

#CLK,8TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
‘POKE CLK UP

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

;POKE CLEIZO GET LOGIC INTO SYNCRONIZATION

013262

017701
020001
001401

;60 TO THIS TEST WHEN THRU

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

MOV
MOV
MOV

RXDBUF _R3
__:SET UP FOR ERROR MESSAGE
#RXERR {PARER 325 R0
;EXPECTED
#10. SHIFT
¥ OF SHIFTS

#1652, TEMP1

‘DATA CHAR

TSTR

?gxcsa

;RXDONE

HLT

sRXDONE

SHOULD BE ASSERTED

MOV
ggg

aRXDBUF ,R1
JACTUAL
gg,R1
; COMPARE EXP VS.

HLT

MOV

1600

;SAVE THIS

#TST8,NEXT

8M]
%

2%:

IN THIS CHAR

ACT

;PARITY ERROR SRXERR SHOULD BE

sNOTE

SCOPE

SSHIFT

THAT

THE PARITY BIT

SET

SHOULD

;SHOW UP IN THE DATA
;IE. BIT SEVEN FOR SEVEN LEVEL CODE

JoTHIS TEST VERIFYS EVEPAR PARITY SENSE

AmAmuaaaanl,

21-NOV=78

15:40

PAGE 36

SEQ 0033

;;PARITY:EVEPAR

JsLENGTH:EIGHT PLUS PARITY
;:CHAR: 125

RERTEBRRERR
CSaaRRRRRR

D ed
d
md
e
d
d
e
—d e

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

;:0F THE RECEIVER
JsMODE:I1SOC (ISYMOD)

h D

CZouC-D
CcZoucd P11

012767
012767
052777
012777
052777

000010
005246
000400
000000
000400

013234
013222
013220

012777

064001

013212

012777
052777

007400
000020

013200
013162

042777
052777

020000
020000

01317C
013162

042777
052777
016703
012700
012767
012767
004767

020000
020000
013132

013154
013146

105777
100401
104000

017701
020001
001401
104002

110125
000013
003252
012606

174036

174020

TST8:

MOV

#8,TSTNO

BIS
MoV
BIS

MMRESET ,aTXCSR ;MASTER RESET
#]1SYMOD ,aPARCSR ;SET THE MODE
#MRESET ,@TXCSR
;MASTER RESET

MOV

#TSTO NEXT

:SAVE

THIS

;GO TO THIS TFST WHEN THRU

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
MOV
MMTDATA! CLK'MINT !BREAK ,aTXCSR
JSET MODE ,# OF BITS,PARITY SENSE.LLOAD SYNC REG
MOV
#ISYMOD 'EIGHT 'EVEPAR! 0 ,aPARCSR
8IS
#SYNSCH,aRXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
8IC
#CLK,aTXCSR
;POKE CLK DOWN
BIS
#CLK,a8TXCSR
;POKE CLK UP
cPOKE CLK TO GET LOGIC INTO SYNCRONIZATION
8IC
#CLK,aTXCSR
;POKE CLK DOWN
BIS
#CLK,8TXCSR
JPOKE CLK UP
MOV

RXDBUF ,R3

SET UP FOR ERROR MESSAGE

MOV

211,

;AH OF

MOV

173730

173726

MOV

013076

013072
>

104400

JSR
TSTR
8M]
HLT

#RXERR 'PARER!'125.R0
SHIFT

#3255, TEMP1

PC ,RPOKE
aRXCSR
;RXDONE
1%

JRXDONE

JEXPECTED

SHIFTS

:DATA CHAR

JSHIFT
?

IN THIS CHAR

SHOULD BE

MOV
gzlg

aRXDBUF ,R1
JACTUAL
gg,m
:COMPARE EXP VS.

HLT

SCOPE

;:THIS

ASSERTED

ACT

;PARITY ERROR ERXERR SHOULD BE

TEST VERIFYS ODDPAR PARITY

;:0F THE RECEIVER
: I1SOC (ISYMOD)
2 :MODE
;:PAR]ITY:0ODDPAR
s sLENGTH:FIVE PLUS PAR]TY

SET

SENSE

;:CHAR: 65

005246
005254
005262
005270
005276

000011
005432
000400
000000
000400

005304

064001

173652
173634
013050

013036
013034

71S719:

MOV
MOV

;SAVE

8IS

#9,TSTNO
#TSTI10,NEXTY
MMRESET,a"XCSR

BIS

#MRESET,a8TXCSR

:MASTER RESET

MOV

THIS
GO TO THIS TEST WHEN THRU

;MASTER RESET

#]1SYMOD ,aPARCSR ;SET TYE MODE

;SET MAINT DATA, CLK ,BREAK ,EGMAINTENANCE MODE
MMTDATA!CLK!MINT!BREAK,aTX(SR
MOV

;SET MODE

.# OF BITS,PARITY SENSE,RLOAD SYNC REG

cZouC-D
CZDUCD.P11

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

21-NOV-78

1667
1668
1669
1670
1671

005312
005320

012777
052777

001000
000020

013 014
012 776

005326
005334

042777
052777

Q20000
020000

01300 4

1673
1674
1675

005342
005350
005356

020000
020000
012746

012 770
012 762

005362
005366

042777
052777
016703
012700
012767

005402
005406
005412

006767
105777
100401

1672

1676
1677

1678

005374

1682

005414

1679
1680
1681

1683
1684

005416
005416

1686
1687
1688
1689
1690
1691
1692
1693
1694
1695

005424
005426
005430

1685

005422

005430

012767

110065
000010

000352

012422
012712

012776

020001

8IC

BIC
8IS
MOV

#CLK,3TXCSR
#CLK.BTXCSR
RXDBUF ,R3

;POKE CLK DOWN
*POKE (LK UP
“SET UP FOR ERROR MESSAGE

MOV

#3523 TEMP1

*DATA CHAR

HLT

: POKE CLK UP

#RXERR {PARER'65,R0
#8. SHIFT
4 OF
PC,RPOKE
@RXCSR
:;RXDONE
18

;EXPECTED
SHIFTS

“SHIFT IN THIS CHAR
?

;RXDONE SHOULD BE ASSERTED

MOV

SRXDBUF ,R1

BEQ
HLT

2$
2

TMMP

104400

RC.RT

:ACTUAL

:COMPARE EXP VS. ACT

;PARITY ERROR RXERR SHOULD BE

;NOTE THAT THE PARITY BIT SHOULD
SSHOW UP IN THE DATA
“1E. BIT FIVE FOR FIVE LEVEL CODE

*PARITY:ODDPAR

Y:LENGTH:SIX PLUS PARITY

}233

*:CHAR: 125

1700
1701
1702
1703

005432
005440
005446
005454

012767
012767
052777
012777

000012
005616
000400
000000

173466
173450
012664
012652

1706
};8§

005470

012777

064001

012642

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

1709
1710
1711

005476
005504

012777
052777

003000
000020

012630
012612

;SET MODE .# OF BITS,PARITY SENSE,ELOAD SYNC REG
MOV
#1SYMOD'SIX!'ODDPAR'
0, 3PARCSR
BIS
#SYNSCH,@RXCSR
;SET SYNC SEARCH

1713
1714
1715
1716
1717
1718
1719
1720

005512
005520

042777
052777

020000
020000

012620
012612

005526
005534
005542
005546
005552

042777
052777
014703
012700
012767

020000
020000
012562
110125
000011

012604
012576

1722

005566

004767

012236

};8§

1712

1721

SET

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

1697

sPOKE CLK DOWN

#CLK,@TXCSR

JSR
TSTB
BMi

2%:

1696

#CLK,STXCSR

BIS

MOV
MOV

001401
104002

SEQ 0034

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

173542

012706

PAGE 37

MOV
#1SYMOD ! F IVE ! ODDPAR!0,aPARCSR
8IS
#SYNSCH,@RXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

173544

104000

017701

15:40

005462

005560

052777

012767

000400

000652

012656

173360

173356

TST10:

MOV
MOV
BIS
MOV

BIS

#10,TSTNO
#TST11, NEXT
#MRESET,@TXCSR

:SAVE THIS
;GO TO
:MASTER RESET
#1SYMOD .@PARCSR :SET THE MODE

MMRESET.ATXCSR

THIS TEST WHEN THRU

-MASTER RESET

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

BIC
#CLK,3TXCSR
:POKE CLK DOWN
BIS
#CLK .RTXCSR
‘POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,3TXCSR
;POKE CLK DOWN
8IS
#CLK.RTXCSR
:POKE CLK UP
MOV
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
MOV
#RXERRPARER ' 125 R0
;EXPECTED
MOV
#9. SHIFT
‘4 OF SHIFTS

MOV
JSR

# 80 TEMPY
PC ,RPOKE

:DATA CHAR
SSHIFT

IN THIS CHAR

C20UC~D
CZDUCD. P11

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

1723
1724
1725

005572
005576
005600

105777
100401
104000

012526

1727

005602

017701

012522

1726

1728
1729
1730
1731
1732
1733

1734,
1735

1736
1737
1738
1739
1740

005602

005606
005610
005612
005614

020001
001401
104002

005614

104400

21-NOV-78

15:40

1%:

28:

000013
006002
000600
000000

173302
173264
012500
012466

};29

005654

012777

064001

012456

1752
1753
1754
1755

005662
005670

012777
052777

005000
000020

012444
012426

005676
005704

0462777
052777

020000
020000

012434
012426

005712
005720

042777
052777

020000
020000

012420
0124-2

1764

005746

012767

001252

173172

1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778

005756
005762
005764
005766
005766
005772
005774
005776
006000

105777
100401
104000

012342

017701
(020001
001401
104002

012336

1756
1757
1758
1759
1760
1761
1762
1763
1765

@RXCSR
1%

MOV

SRXDBUF ,R1

CMP
BEQ
HLT

RO,R1T
2$
2

;RXDONE ?

;RXDONE SHOULD BE ASSERTED

;ACTUAL

"COMPARE EXP VS. ACT
;PARITY ERROR ERXERR SHOULD BE SET
;NOTE THAT THE PARITY BIT SHOULD
SSHOW UP IN THE DATA

:IE. BIT SIX FOR SIX LEVEL CODE

::CHAR: 125
012767
012767
052777
012777

1749

TSTB
BMI
ALT

:;THIS TEST VERIFYS ODDPAR PARITY SENSE
*:0F THE RECEIVER
*:MODE :1SOC (1SYMOD)
*PARITY:ODDPAR
:LENGTH:SEVEN PLUS PARITY

005616
005624
005632
005640

};zg

SEQ 0035

SCOPE

};2;

1743
1744
1745
1746

PAGE 38

005646

005726
005732
005736
005752

006000

052777

016703
012700
012767
004767

104400

000400

012376
110125
000012
012052

TST11:

012464

MOV
MOV
BIS
MOV

BIS

#11,TSTNO
;SAVE THIS
#TST12 NEXT
sGC TO THIS TEST WHEN THRU
MRESET,@TXCSR
;MASTER RESET
#1SYMOD .@PARCSR :SET THE MODE

MMRESET.@TXCSR

:MASTER RESET

;SET MAINT DATA,CLK,BREAK ,SMAINTENANCE MODE

MOV

MMTDATA' CLK 'MINT !BREAK ,aTXC SR

;SET MODE ,# OF BITS,PARITY SENSE,SLOAD SYNC REG
MOV
#1SYMOD ! SEVEN' ODDPAR ' 0, @PARCSR
BIS
#SYNSCH,BRXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

BIC
#CLK,@TXCSR
:POKE CLK DOWN
BIS
#CLK.RTXCSR
‘POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,STXCSR
;POKE CLK DOWN
BIS
#CLK.aTXCSR
‘POKE CLK UP

MOV
MOV
MOV

173174

MOV

#1255 TEMP1

TSTB
BM]
ALT

@RXCSR
1%

MOV
MP
BEQ
HLT

SRXDBUF ,R1
:ACTUAL
RO.R1
;COMPARE EXP VS. ACT
2%
2
:PARITY ERROR ERXERR SHOULD BE SET

JSR

1$:

RXDBUF .R3
“SET UP FOR ERROR MESSAGE
#RXERRPARER ! 125 R0
-EXPECTED
#10. SHIFT
‘# OF SHIFTS

STOPE

PC ,RPOKE

*DATA CHAR
“SHIFT

IN THIS CHAR

;RXDONE 2
;RXDONE SHGULD BE ASSERTED

:NOTE THAT THE PARITY BIT SHOULD
SSHOW UP IN THE DATA
“1E. BIT SEVEN FOR SEVEN LEVEL CODE

cZouc-D
CZoucD. P11

MACY11

30A(1052)

21-NOV-78

18-JUL~78 1 5:52

PAGE 39

15:40

SEQ 0036

;o THIS TEST VERIFYS ODDPAR PARITY SENSE

;;OF THE RECEIVER
::HODE:ISOC (1SYMOD)

: sPARITY:0DDPAR

..LENGTH EIGHT PLUS PARITY
HAR:

006016
006024
006032

012767
012767
052777
012777
052777

000014
006166
000400
000000
000400

006040

012777

064001

012777
052777

007000
000020

042777
052777

020000
020000

042777
052777

020000
020000
012212
110125
0000

006002

TST12:

s
d

#MMRESET,@TXCSR

BIS

MMRESET,3TXCSR

:MASTER RLET

#TST13 NEXT

s SAYE

#1SYMOD ,@PARCSR ;SET THE MODE

#MTDATA ! CLK !MINT !BREAK ,@TXCSR

;SET MODE ,# OF BITS_PARITY SENSE,LLOAD SYNC REG

MOV
BIS

#1SYMOD
'E IGHT !ODDPAR ' 0, aPARCSR
#SYNSCH,@RXCSR

:SET SYNC SEARCH

BIS

#CLK.@TXCSR

-POKE

8IC

#CLK,@TXCSR

:POKE CLK DOWN

MOV

RXDBUF ,R3

sSET UP FOR ERROR MESSAGE

#11,

‘M OF

:POKE CLK TO GET RECEIVER INTO SYNCKOIZATION..
BIC
#CLK.@TXCSR
POKE CLK DOWN
CLK UP

;POKE CLK TO GET LOGIC INTO svuckONIZAron
8IS

MOV

MOV
JSR

TSTB

BM]

ALT

012152

104002

104400

MOV

MP
BEQ
HLT

KRR

S W20V
NN WNL—-O

BIS

THIS
GO TO THIS TEST WHEN THRU
;MASTER R-SET

MOV

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

d —d

)
D

) e

b ) e e e

mmd

—

ad md

b e

00 00 00 00 o 0o 00 0o 00 00

#CLK.RTXCSR

*POKE CLK UP

#RXERR ' PARER ! 125 R0
SHIFT

#2255 TEMP1
PC ,RPOKE

BRXCSR

*DATA CHAR
SSHIFT

IN THIS CHAR

:RXDONE

SHOULD BE ASSERTED

aRXDBUF ,R1

RO,R1
2

SEXPECTED

SHIFTS

:ACTUAL

:COMPARE EXP VS.

ACT

:PARITY ERROR ERXERR SHOULD BE

SET

SCOPE

;s THIS TEST PERFORMS BINARY DATA (CHECK ON THE
;cRECE]IVER
JoLENGTH:EIGHT PLUS PARITY
: 1SYMOD
2 sMODE

[AS1AN
1N 1y N1, V]

JsPAR]ITY:EVEPAR

000015
006366
000400
000000
000400

012777

064001

012106

—

SO0 8N

N =N

012767
012767
052777
012777
052777

lolele

—) nd d md e

#12,TSTNO

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

012156

017701
020001
001401

MOV

d D

)

ZRTRBRATEIFIR
IR 3%

1787

125

TST13:

MOV
MOV
8IS
MOV
BIS

#13,TSTNO
#TST14 NEXT
#MRESET,3TXCSR
#]1SYMOD ,@PARCSR
#MRESET ,@TXCSR

;SAVE

THIS

;60 TO THIS TEST WHEN THRU

;MASTER RESET
;SET THYE MODE
;MASTER RESET

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

;SET MODE

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

,# OF BITS,PARITY SENSE ,LLOAD SYNC REG

C2DUC=D
CZDUCD.P11

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

21-NOV-78

15:40

PAGE 40

SEQ 0037

1835
1836

006232
006240

012777
052777

007400
000020

012074
012056

MOV
BIS

#1SYMOD ' EIGHT ! EVEPAR' 0, aPARCSR
#SYNSCH,@RXCSR
;SET SYNC SEARCH

1838
1839

006246
006254

062777
050777

020000
020000

012064
012056

BIC
8IS

#CLK,@TXCSR
#CLK.QTXCSR

1841
1842
1843
1844
1845

006262
006270
006276
006302
006304

042777
052777
016703
005004
010400

020000
020000
012026

012050
012042

010467

000013

172624

#CLK,3TXCSR
;POKE CLK DOWN
#CLK.QTXCSR
*POKE (LK UP
RXDBUF ,R3
*SET UP ERROR MESSAGE
R4
:DATA CHAR
R4 RO
:EXPECTED

006314

012767

BIC
BIS
MOV
CLR
MOV

004767
000241

011656

MOV

R4, TEMP

1837

1840

1846

006306

1848
1849
1850
1851
1852
1853

006320
006324
006326
006332

006167
052767

172612
002000

006340

004767

011464

1855
1856
1857
1858
1859
1860
1861

006350
006352
006354

020001
001401
104002

006356
006356
006360

005204
105704

1863
1864
1865
1866

006364

104400

1847

1854

1862

006344

006362

017701

172624

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1%:

011760

w17, SHIFT

:# OF SHIFTS

PC.EVENS

*CALC PARITY

2TO BE SHIFTED CHARACTER

ROL
TEMP1
;GENERATE START BIT
BIS
#8IT10, TEMPT
;GENERATE STOP BIT
;TEMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER
JSR
PC . RPOKE
sSHIFT IN TRIS CHAR

MOV

cMP
BEQ
HLT
2$:

001350

INC
ISTB

BNE

aRXDBUF ,R1
RO,R1
2%
2

R4
R4

*ACTUAL

~:COMPARE EXP VS ACT

;DATA CHARS SHOULD MATCH
:THERE SHOULD BE NO PARITY ERROR
;UPGRADE NEXT CHAR
*LAST CHAR ?

SCOPE
;;THIS TEST PERFORMS BINARY DATA CHECK ON THE
{:RECEIVER
SLENGTH:EIGHT PLUS PARITY

1867

2 JMODE
: ISYMOD

}%g

::PARITY :0ODDPAR

1870
1871
1872
1873
}ggg

006366
006376
006402
006410
006416

012767
012767
052777
012777
052777

000016
006566
000400
000000
000400

172532
172514
011730
011716
011714

1876
}g;g

006424

012777

064001

011706

006432
006440

012777
052777

007000
000020

011674
011656

006446
006454

042777
052777

020000
020000

011664
011656

006462
006470
006476
006502
006504

042777
052777
016703
005004
010400

020000
020000
011626

017650
011642

1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890

mov
JSR
cLC

172604

;POKE CLK DOWN
:POKE CLK UP

TST14:

MOV
MOV
BIS
MOV
BIS

#14,TSTNO
#TST15 NEXT
MMRESET,3TXCSR
#1SYMOD .3PARCSR
MMRESET.3TXCSR

:SAVE

THIS
;GO TO THIS TEST WHEN THRU
;MASTER RESET
:SET THE MODE
-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 IGHT ! ODDPAR' 0, aPARCSR
BIS
#SYNSCH,aRXCSR
;SET SYNC SEARCH
:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,STXCSR
:POKE CLK DOWN
BIS
#CLK.@TXCSR
‘POKE LK UP
:POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,QTXCSR
;POKE CLK DOWN
BIS
#CLK.QTXCSR
*POKE CLK UP
MOV
RXDBUF ,R3
*SET UP ERROR MESSAGE
CLR
R
SDATA CHAR
1$:
MOV
R4,RO
EXPECTED

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

SR&

555

d d

D e

d o

CEE
ERAE
R

94 Ve
CZbucd.P1

D d d

elo (RNTo VP IV T,V Lt o)

1922

000013
172424
011372
172412
002000

011264
011560

15:40

172424

172404

PAGE 41

SEQ 0038

MOV

#11, ,SHIFT

gf?

PC.0DD8 ;CALC PARITY

MOV
ROL

R4, TEMP1
TEMP1

¥ OF SHIFTS

:""TO BE SHIFTED CHARACTER''

;GENERATE START BIT

8IS

MBIT10, TEMPT

:GENERATE STOP BIT

MOV

aRXDBUF ,R1

:ACTUAL

HLT

sDATA CHARS SHOULD MATCH

Ré
R&
1%

sUPGRADE NEXT CHAR
sLAST CHAR ?

:TEMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER
JSR
PC ,RPOKE
sSHIFT IN THIS CHAR

P
BEQ
-

005204

d od

1920

004767
017701
020001
001401
104002

INC
1ST8

105704

001350

BNE
SCOPE

104400

D i

P
P

e P
P
P
P

d wd

d e

d d ond

00V VOO0 OO0

—

012767
010467
004767
000241
006167
052767

21-NOV-78

RO.R1
2%

;COMPARE EXP VS ACT
s THERE

SHOULD BE NO PARITY ERROR

s:THIS TEST PERFORMS BINARY DATA CHECK ON THE

s cRECEIVER
s sLENGTH:EIGHT PLUS PARITY
DE
: SYNEXT
c sMO
csPARITY:EVEPAR

006566
006574
006610
006616

012767
012767
052777
012777
052777

006624

012777
012777
052777

042777
052777
016703

TST15:

MOV
MOV
BIS
MOV
BIS

#15,TSTNO
#TST16 NEXT
#MRESET ,@TXCSR
#SYNEXT ,@PARCSR
#MRESET ,@TXCSR

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

sSET MAINT DATA, CLK,BREAK ,EMAINTENANCE MODE
MOV

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

sSET MODE ,# OF BITS_PARITY SENSE,2LOAD SYNC REG
MOV
8IS

#SYNEXT!EIGHT
! EVEPAR!Q,3PARCSR
#SYNSCH,aRXCSR
;SET SEARCH SYNC

BIC
BIS

#CLK,aTXCSR
#CLK,?TXCSR

sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION

18:

sPOKE CLK DOWN
;POKE CLK UP

MOV
CLR
MOV
MOV
MOV

RXDBUF ,R3
:SET UP ERROR MESSAGE
R4
:DATA CHAR
R4,RO
-EXPECTED
#9.,SHIFT
¥ OF SHIFTS
R4, TEMP1
:''TO BE SHIFTED CHARACTER''

MOV

aRXDBUF ,R1
gg.R1

; COMPARE EXP VS ACT

HLT

;DATA (CHARS SHOULD MATCH

INC
TSTR

Ré
R<

sUPGRADE NEXT (HAR
sLAST CHAR ?

JSR
PC ,EVENS
;CALC PARITY
;TEMPT NOU HAS CHARACTER TO BE POKED INTO RECEIVER
JSR
PC ,RPOKE
sSHIFT IN THIS CHAR

é?g
5%

005204
105704

001356

BNE

:ACTUAL

; THERE SHOULD BE NO PARITY ERROR

cZbucC-D
CZbucd P11
1947

006734

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

21-NOV=-78

15:40

104400

PAGE 42

SEQ 0039

SCOPE

;sTHIS TEST PERFORMS BINARY DATA CHECK ON THE
s cRECE]VER
JoLENGTH:EIGHT PLUS PARITY
E
: SYNEXT
2 JMOD

;:PARITY:0DDPAR

NIIRERPRPER

1961

012767
012767
052777
012777
052777

000020
007106
000400
020000
000400

172162
172144
011360
011346
011344

012777

064001

011336

012777
052777

027000

011324
011306

042777

020000
020000
011272

011314
011306

000011
172070
011036

172070

000020

T1ST16:

#16,TSTNO
#TST17 NEXT
MMRESET ,@TXCSR
NSYNEXT ,@8PARCSR
#MMRESET ,8TXCSR

JSAVE THIS
;60 TO THIS TEST WHEN THRU
;MASTER RESET
;SET THE MODE
;MASTER RESET

;SET MAINT DATA,CLK ,BREAK,SMAINTENANCE MODE
MOV
MTDATA ! CLK'MINT
'BREAK ,@TXCSR
JSET MODE ,# OF BITS,PARITY SENSE,RLOAD SYNC REG
MOV
#SYNEXT 'EIGHT ! ODDPAR ! 0,@8PARCSR
BIS
#SYNSCH,aRXCSR
;SET SEARCH SYNC
;POKE CLK TO GET LOGIC INTO SYNCRON]ZATION
BIC
#CLK,aTXCSR
;POKE CLK DOWN
8IS
#CLK,8TXCSR
JPOKE CLK UP
1%:

MOV
CLR
MOV
MOV

RXDBUF ,R3
+SET UP ERROR MESSAGE
R4
;DATA CHAR
R4,RO
;EXPECTED
#9. SHIFT
;¥ OF SHIFTS

JSR

PC,0DD8 ;CALC PARITY

MOV

;TEMP1

010744
011240

MOV
MOV
BIS
MOV
BIS

005204

CMP

RO,.R1

;COMPARE EXP VS ACT

HLT

;DATA CHARS SHOULD MATCH

INC

105704

1STB

001356

BNE
SCOPE

104400

:''TO BE SHIFTED CHARACTER''

NOW HAS CHARACTER TO BE POKED INTO RECEIVER
JSR
PC ,RPOKE
;SHIFT IN THIS CHAR
MOV
aRXDBUF ,R1
;ACTUAL

BEQ
5%

R4, TEMP1

Ré

;s THERE SHOULD BE NO PARITY ERROR

;UPGRADE NEXT CHAR

:LAST CHAR ?

J+THIS TEST CHECKS THE STRIP SYNC FUNCTION

2.0F THE RECEIVER LOGIC
E
: 1SYMOD
2 JMOD
s sLENGTH:F]VE
;sNOTE: RXDONE SHOULD NEVER ASSERT

S CEERSRERE

1990

;:CHAR: 26 (SYNC)
007106
007114
007122
007130
007136

012767
012767
052777
012777
052777

007144

012777

007272
000400
064001

172012
171774
8]1210
11176

011174

011166

TST17:

MOV
MOV
BIS
MOV

Bl°S

#17,TSTNO
#TSTI18 NEXT

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

#MRESET ,@TXCSR

;MASTER RESET

JSET MAINT DATA,CLK
,BREAK ,LMAINTENANCE MODE

MOV

#TDATA! CLK'MINT 'BREAK ,8TXCSR

C20UC=D
CZDUCD.PN

2003

2004
2005

2006
2007

007152

007160

007166

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

012777

052777

042777

011154

000020

011136

020000

011144

2008

007174

2010

007202

042777

020000

011130

2012
2013

007216
007224

052777
012767

000400
000003

011100
171710

2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028

007240
007246
007252
007256
007260
007262
007262
007266
007270

012767
004767
105777
100001
104000

000007
010556
011046

171672

2031

007272

012767

000022

171626

2033
2034
58%2

007306
007314
007322

052777
012777
052777

000400
000000
000400

011024
011012
011010

2009

2011

2016

007210

007232

052777

000026

21-NOV-78

052777

012767

005367
001361
104400

020000

000154

011136

15:40

:SET MODE

BIS

2037

gggg

2040

2041
2062
2043
20464
2045
2046
2047
2048
2049
2050

2051

2052

2053

2054
2055
2056
2057

2058

NSYNSCH,@RXCSR

:SET SYNC SEARCH

BIS

#CLK.@TXCSR

“POKE CLK UP

BIC

#CLK.BTXCSR

8IS
MOV

#STPSYN, @RXCSR
#3_ COUNT

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

BIS

1$:

%238

2032

#ISYMOD 'F IVE' AR'26 @PARC SR

-POKE CLK TO GEF RECEIVER INTO SYNCROIZATION..
BIC
#CLK,@TXCSR
;POKE CLK DOWN

2%:

171654

SEQ 0040

,# OF BITS,PARITY SENSE,LLOAD SYNC REG

MOV

011122

171704

PAGE 43

MOV
JSR
TSTB
BPL
HLT

;POKE CLK DOWN

#CLK.QTXCSR

*POKE (LK UP

#1154, TEMP

:CHAR TO BE SHIFTED

:SET STRIP SYNC
¥ OF SYNC CHARS

#7,SHIFT
‘4 OF SHIFTS
PC .RPOKE
*SHIFT IN THIS CHAR
@RXCSR
;RXDONE ?
23
;RXDONE SHOULD NOT 8E ASSERTED

DEC
COUNT
:# OF SYNC CHARS
BNE
1s
SCOPE
::THIS TEST CHECKS THE STRIP SYNC FUNCTION
*:OF THE RECEIVER LOGIC
> *MODE
: I SYMOD
:JLENGTH:SIX
::NOTE: RXDONE SHOULD NEVER ASSERT

J:CHAR: 26 (SYN(C)

007300

012767

007456

171610

007330

012777

064001

11002

007336
007344

012777
052777

002026
000020

010770
010752

007352
007360

042777
052777

020000
020000

010760
010752

007366
007374
007402
007410

042777
052777
052777
012767

020000
020000
000400
000003

010744
010736
010714
171524

0074264

012767

000010

171506

007416
007432

007436
007442
007444
007446

007446

012767
004767

105777
100001
104000

005367

000254

010372

171520

T1ST18:

#18,TSTNO

8IS
MOV
BIS

MMRESET,aTXCSR
;MASTER RESET
#1SYMOD.aPARCSR :SET THE MODE
MMRESET.@TXCSR
:MASTER RESET

MoV

#TST19 NEXT

;SAVE THIS

GO TO THIS TEST WHEN THRU

JSET MAINT DATA,CLK
,BREAK ,SMAINTENANCE MODE
MOV

;SET MODE

MMTDATA! CLK 'MINT 'BREAK , aTXCSR

,# OF BITS,PARITY SENSE,ELOAD SYNC REG

MOV
#1SYMOD ' SIX !NOPAR! 26, aPARCSR
BIS
#SYNSCH,@RXCSR ;SET SYNC SEARCH
:POKE CLK TO GET RECEIVEP INTO SYNCROIZATION....
BIC
#CLK,@TXCSR
:POKE CLK DOWN
BIS
#CLK .RTXCSR
‘POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,aTXCSR
:POKE CLK DOWN
IS
#CLK @TXCSR
:PCKE CLK UP
BIS
#STPSYN,@RXCSR
-SET STRIP SYNC
MOV
#3, COUNT
‘¥ OF SYNC CHARS

1$:

010662

171470

MOV

#2546 TEMPY

JSR

PC .RPOKE

MOV

TSTB
BPL
HLT

DEC

#8. ,SHIFT

*CHAR TO BE SHIFTED

‘# OF SHIFTS

SSHIFT IN THIS CHAR

@RXCSR
:RXDONE 2
2%
;RXDONE SHOULD NOT BE ASSERTED

COUNT

;# OF SYNC CHARS

couc-D
CZbucb.P11

007452
007454

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

21-NOV-78

15:40

001361

PAGE 44

BNE
SCOPE

104400

SEQ 0041

;:THIS TEST CHECKS THE STRIP SYNC FUNCTION
:.OF THE RECEIVER LOGIC

DE
: ISYMOD
; :MO
:;LENGTH:SEVEN

J:NOTE: RXDONE SHOULD NEVER ASSERT

s sCHAR: 26 (SYNC)

007456
007464
007472
007500
007506

012767
012767
052777
012777
052777

000023
007642
000400
000000
000400

007514

012777

064001

012777
052777

0046026
000020

010604
010566

042777
052777

020000
020000

010574
010566

042777
052777
052777
012767
012767
012767
004767

020000
020000
000400
000003
000454
000011
010206
010476

105777
100001
104000

005367
001361

171304

TST19:

ROR2oBRBIRIRES

h md

OO0

D
d
b
d ek =D
b

BIS
MOV
BIS

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

MOV

sSAVE THIS

#TST20,NEXT

:GO TO THIS TEST WHEN THRU

#MTDATA ! CLK !MINT !BREAK ,@TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,BLOAD SYNC REG
MOV
#1SYMOD ' SEVEN'NOPAR
! 26, 8PARCSR
BIS

#SYNSCH,@RXCSR

;SET SYNC SEARZH

BIC
8IS

#CLK,@TXCSR
#CLK.@TXCSR

;POKE CLK DOWN
:POKE CLK UP

BIC
BIS
BIS

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

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

MOV

#4654 TEMPY

:CHAR TO BE SHIFTED

JSR

PC ,RPOKE

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1%:

MOV

2%:

‘¥ OF SYNC CHARS

#9. ,SHIFT

‘¥ OF SHIFTS

TSTB

@RXCSR

;RXDONE

HLT

;RXDONE

SHOULD NOT BE ASSERTED

COUNT

;# OF

8PL

DEC

BNE

SCOPE

SSHIFT

IN THIS CHAR

SYNC CHARS

;oTHIS TEST CHECKS THE STRIP SYNC FUNCTION
;:0OF THE RECEIVER LOGIC
E
: 1SYMOD
: :MOD
JsLENGTH:EIGHT
s sNOTE: RXDONE SHOULD NEVER ASSERT

2101

—) d b —d b

#19,TSTNO

MOV

:SET MAINT DATA,CLK,BREAK ,SMAINTENANCE MODE

104400

AINLALALRNLNLALALALNL
NV

MOV

;oCHAR: 26 (SYNC)

007672

012767
012767
052777
012777
052777

000024
010026
000400
000000
000400

007700

012777

064001

007642
007650
007656

TST20:

MOV

#20,TSTNO

BIS
MOV
8IS

#MRESET,3TXCSR
;MASTER RESET
#1SYMOD ,aPARCSR ;SET THE MODE
MMRESET,aTXCSR
;MASTER RESET

MOV

N#TST21 NEXT

;SAVE

THIS

;GO TO THIS TEST WHEN THRU

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

;SET MODE

MTDATA CLK.MINT .BREAK,aTX(SR

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

CZDUC~D
CZDUCD.P11

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

21-NOV=78

15:40

PAGE 45

SEQ 0042

2115
2116

007706
007714

012777
052777

006026
000020

010420
010402

MOV
BIS

#1SYMOD 'E IGHT !NOPAR ! 26, @PARCSR
#SYNSCH,@RXCSR
:SET SYNC SEARCH

2118
2119

007722
007730

042777
052777

020000
020000

010410
010402

BIC
BIS

#CLK,@TXCSR
#CLK.aTXCSR

:POKE CLK DOWN
-POKE CLK UP

2121
2122
2123
2124

007736
007744
007752
007760

042777
052777
052777
012767

020000
020000
000400
000003

010374
010366
010344
171154

BIC
BIS
8IS
MOV

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

:POKE CLK DOWN
:POKE CLK UP
;SET STRIP SYNC
:# OF SYNC CHARS

2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139

0077764
010002
010006
010012
010014
010016
010016
010022
0100264

012767
004767
105777
100001
104000

000012
010022
010312

171136

MOV
JSR
TSTB
BPL
HLT

#10. ,SHIFT
“# OF SHIFTS
PC ,RPOKE
“SHIFT IN THIS CHAR
@RXCSR
;RXDONE ?
2s
;RXDONE SHOULD NOT BE ASSERTED

2142
2143
2144
2145
5129

010026
010034
010042
010050
010056

012767
012767
052777
012777
052777

000025
010176
000400
020000
000400

171072
171054
010270
010256
010254

2148
51?3

010064

012777

064001

010246

012777
052777

020026
000020

010234
030216

010106
010114
010122
010130
010136
010144
010152
010156
010162
010164
010166
010166
010172
010174

042777
052777
052777
012767
012767
012767
004767
105777
100001
104000

020000
020000
000400
000003
000026
000005
007652
01,742

010224
010216
010174
171004
171000
170766

005367
001361
1044060

170750

2120

2125

007766

012767

005367
001361
104400

001054

171150

]
171120

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1$:

O%:

gm)

2151
2152
2153
2154
2155
215¢
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170

MOV

#1054, TEMP

*CHAR TO BE SHIFTED

DEC
COUNT
;# OF SYNC CHARS
BNE
1$
SCOPE
:;THIS TEST CHECKS THE STRIP SYNC FUNCTION
::0F THE RECEIVER LOGIC
. ;MODE
: SYNEXT
:LENGTH:FIVE
$sNOTE: RXDONE SHOULD NEVER ASSERT

::CHAR: 26 (SYNC)

TST21:

MOV
MOV
8IS
MOV
BIS

#21,TSTNO
#TST22 NEXT
#MRESET,@TXCSR
#SYNEXT .@PARCSR
MMRESET.aTXCSR

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

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV
MMTDATA' CLK 'MINT 'BREAK . 3TXCSR
;SET MODE ,# OF BITS.PARITY SENSE,SLOAD SYNC REG
MOV
#SYNEXT ' F IVE 'NOPAR ! 26, @PARC SR
BIS
#SYNSCH,3RXCSR ;SET SEARCH SYNC
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,@TXCoR
;POKE CLK DOWN
BIS
#CLK.@TXCSR
SPOKE CLK UP
BIS
#STPSYN,@RXCSR
:SET STRIP SYNC
MOV
#3, COUNT
‘¥ OF SYNC CHARS
1$:
MOV
#26. TEMP1
*CHAR TO BE SHIFTED
MOV
#5.SHIFT
‘# OF SHIFTS
JSR
PC .RPOKE
SSHIFT IN THIS CHAR
TSTB
@RXCSR
;RXDONE ?
BPL
2%
HLT
;RXDONE SHOULD NOT BE ASSERTED
2%:
DEC
COUNT
:# OF SYNC CHARS
BNE
1%
SCOPE
::THIS TEST CHECKS THE STRIP SYNC FUNCTION
::0F

THE RECEIVER LOGIC

c2ouC-D
CZouch P11

ma808w8m?um-—83c\‘nwo~

~N N

d
)
d
)
)
D
D eed
d s D
d ad
)
— rd cnd

O
0 0 00 0o 0o Qo 00 Qo 0o 00 0o

LSLSLSTSLNT
NS TN LT, NT,N 1,67,V T,¥T,N1,871,§)

2171
2172
2173
2174
2175

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

21-NOV-78

15:40

PAGE 46

SEQ 0043

2 sMODE :SYNEXT
s sLENGTH:SIX
;:NOTE: RXDONE SHOULD NEVER ASSERT

;. CHAR: 26 (SYNC)

010176
010204
010212
010220
010226

012767
012767
052777
012777
052777

000026
010346
000400
020000
000400

010234

012777

064001

010242
010250

012777
052777

022026
000020

010256

042777
052777
052777
012767
012767

020000
020000
000400
000003
000026
000006
007502

2193

TST22:

MOV

#22,TSTNO

BIS
MOV
BIS

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

MOV

#TST23 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.&LOAD SYNC REG
MOV
BIS

N#SYNEXT!SIX!NOPAR'!26 ,8PARCSR
#SYNSCH @RXCSR
;SET SEARCH SYNC

BIC
BIS
BIS

#CLK,@TXCSR
#CLK,@TXCSR
#STPSYN,BRXCSR

;POKE CLK DOWN
sPOKE CLK UP
;SET STRIP SYNC

MOV

#26, TEMPT

;CHAR TO BE SHIFTED

JSR
TSTR

PC ,RPOKE
aRXCSR
;RXDONE

;SHIFT
?

HLT

:RXDONE

SHOULD NOT BE ASSERTED

COUNT

:# OF SYNC CHARS

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

170616

1%:

007772

MOV

8PL

170600

MOV

DEC

BNE

#3,COUNT
#6,SHIFT

SCOPE
2:THIS TEST CHECKS THE

;¥ OF SYNC CHARS
c& OF SHIFTS

IN THIS CHAR

STRIP SYNC FUNCTION

c:0OF THE RECEIVER LOGIC
DE
: SYNEXT
; ;MO
H:SEVEN
;JLENGT
;cNOTE: RXDONE SHOULD NEVER ASSERT

;:CHAR: 26 (SYNC)
010346
010354
010362
010370

010376

012767
012767
052777
012777
052777

170552
170534

007750
007736
007734

012777

064001

007726

012777
052777

024026
000020

007714
007676

042777
052777
052777

020000
020000
000400
000003

007704
007676

012767

TST23:

007654
170464

MOV

#23,TSTNO

BIS
MOV
BIS

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

MOV

H#TST24 NEXT

s SAVE THIS

:GO TO THIS TEST WHEN THRU

sSET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
MoV

#MTDATA!CLK!MINT
!BREAK ,@TXCSR

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

MOV
8IS

H#SYNEXT ! SEVEN!NOPAR!26,3PARCSR
#SYNSCH,aRXCSR
;SET SEARCH SYNC

BIC
8IS
BIS

#CLK,aTXCSR
#CLK,aTXCSR
#_TPSYN,aRXCSR

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

mMov

#3,COUNT

;POKE CLK DOWN
+POKE CLK UP
;SET STRIP SYN(

J# OF SYNC (HARS

c2ouC-D
CZDuCD. P11

MACY11

30A(1052)

012767

000026
000007
007332
007622

18-JuL-78 15:52

21-NOV-78
170460
170646

15:40

1%:

010512
010514

005367
001361

170430

PAGE 47

MOV

#26, TEMP1

JSR

PC,RPOKE

MOV

;CHAR TO BE SHIFTED

#7,SHIFT

;M OF SMIFTS

;SHIFT IN THIS CHAR

1ST8

aRXCSR

;RXDONE

HLT

;RXDONE

SHOULD NOT BE ASSERTED

COUNT
1%

:# OF

BPL

DEC
BNE
SCOPE

104400

SEQ 0044

SYNC CHARS

;o THIS TEST CHECKS THE

:.0F THE RECEIVER LOGIC

STRIP SYNC FUNCTION

; sMODE
: SYNEXT

..LENGTH EIGHT

NOTE RXDONE SHOULD NEVER ASSERT

CHAR 26 (SYNO)

010516
010524

010532
010540
010546

012767
012767
052777
012777
052777

000030
010666
000400
020000
000400

007600
007566
007564

010554

012777

064001

007556

010562
010570

012777
052777

026026
000020

007544
007526

010576

042777
052777
052777
012767
012767

020000
020000

007534
007526
007504

012767

000400
000003
000026
000010
007162
007452

170402
170364

170314
170310
170276

TST24:

#24 TSTNO

BIS
MOV
BIS

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

MOV

sSAVE THIS

#75125 ,NEXT

;GO TO THIS TEST WHEN THRU

;StT MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
MoV

#MTDATA!CLK!MINT !BREAK,aTXCSR

;SET MODE ,# OF BITS,PARITY SENSE,RLOAD SYNC REG
MOV
A#SYNEXT !EIGHT !NOPAR!26,aPARCSR
BIS
#SYNSCH,aRXCSR
;SET SEARCH SYNC

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1%:

005367
001361

MOV

170260

BIC
BIS
BIS
MOV

;POKE CLK DOWN
;POKE CLK UP
;SET STRIP SYN(
:# OF SYNC CHARS

#3,COUNT

MOV

#26,TEMP

;CHAR TO BE SHIFTED

TSTR

aRXCSR

;RXDONE

HLT

JRXDONE

SHOULD NOT BE ASSERTED

COUNT
1%

;# OF

MOV
JSR
BPL

DEC
BNE
SCOPE

104400

#CLK,aTXCSR
#CLK,aTXCSR
#STPSYN,a@RXCSR

#8. ,SHIFT
PC ,RPOKE
2%

A OF SHIFTS
JSHIFT IN THIS CHAR

SYNC CHARS

2oTHIS TEST CHECKS THE STRIP SYNC FUNCTION
;c0OF THE RECEIVER LOGIC
DE
: SYNINT
2 sMO
JILENGTH:FIVE
2 sNOTE: RXDONE SHOULD NEVER ASSERT

;:CHAR: 26 (SYNC)
000031
011052

000400

(330000
000400

170232
170214

007430
007416
007414

T1ST25:

MOV
MoV
BIS

#25,TSTNO
#TST26 NEXT
MMRESET ,aTXCSR

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

BIS

#MRESET ,TXCSR

;MASTER RESET

MOV

#_VNINT ,a8PARCSR ;SET

THE MODE

C2DUC~D
CZDUCD.P11

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

21-NOV-78

2283

15:40

PAGE 48

SEQ 0045

2284
gggg

010724

012777

764001

007406

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

2087
2288
2289

010732
010740

012777
052777

030026
000020

007374
007356

:SET MODE ,# OF BITS,PARITY SENSE,CLOAD SYNC REG
MOV
#SYNINT 'F IVE '\NOPAR! 06, aPARCSR
BIS
#SYNSCH.@RXCSR
;SET SYNC SEARCH

2291
2292

010746
010754

042777
052777

020000
020000

007364
007356

2296
2295
2296
2297
2298

010762
010770
010776
011004
011012

042777
052777
052777
012767
012767

020000
020000
000400
000003
000026

007350
007342
007320
170130
170124

2300
2301
2302
2303
2304
2305

011026
011032
011036
011040
011042
011042

004767
105777
100001
104000

006776
007266

005367

2307

011050

104400

2290

2293

2299

2306

2308

011020

011046

012767

001361

000005

170112

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

1$:

:POKE CLK DOWN
“POKE CLK UP

BIC
BIS
BIS
MOV
MOV

#CLK,@TXCSR
#CLK.@TXCSR
#STPSYN,@RXCSR
#3,COUNT
#26, TEMP1

;POKE CLK DOWN
‘POKE CLK UP
:SET STRIP SYNC
“# OF SYNC CHARS
*CHAR TO BE SHIFTED

JSR
TSTB
BPL
HLT

PC .RPOKE
“SHIFT IN THIS CHAR
@RXCSR
;RXDONE ?
2
;RXDONE SHOULD NOT BE ASSERTED

MOV

DEC

BNE

SCOPE

#S . SHIFT

COUNT

‘¥ OF SHIFTS

:# OF SYNC CHARS

JsTHIS TEST CHECKS THE STRIP SYNC FUNCTION

2309

*:0F

2310
2311
2312

5%12

#CLK,3TXCSR
#CLK.QTXCSR

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

170074

8IC
8IS

THE RECEIVER I1NGIC

: ;MODE
: SYNINT
JoLENGTH:SIX
ZINOTE: RXDONE SHOULD NEVER ASSERT

“CHAR: 26 (SYNC)

2315
2316
2317
2318
5%53

011052
011060
011066
011074
011102

012767
012767
052777
012777
052777

000632
011236
000400
030000
000400

170046
170030
007244
007232
007230

2321
Sggg

011110

012777

064001

007222

cSET MAINT DATA,CLK,BREAK ,SMAINTENANCE MODE
MOV
MMTDATA! CLK 'MINT 'BREAK ,aTXCSR

2324
2325
2326

011116
011124

012777
052777

032026
000020

007210
007172

;SET MODE ,# OF BITS,PARITY SENSE.SLOAD SYNC REG
MOV
#SYNINT ' SIX!NOPAR
26, aPARCSR
BIS
ASYNSCH.@RXCSR
;SET SYNC SEARCH

2327

2328
2329
2330
2331
2332
2333
233,

011132
011140

042777
052777

020000
020000

007200
007172

011146
011154
011162
011170

042777
052777
052777
012767

020000
020000
000400
000003

007164
007156
007134
167744

233
2337
2338

011204
011212
011216

012767
004767
105777

000006
006612
007102

167726

2335

011176

012767

000026

167740

TST26:

MOV
MOV
8IS
MOV
8IS

#26,TSTNO
#TST27 NEXT
MMRESET,@TXCSR
#SYNINT .3PARCSR
WMRESET.QTXCSR

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

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

eIc
#CLK,3TXCSR
:PCKE CLK DOWN
BIS
#CLK.RTXCSR
‘POKE (LK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,@TXCSR
;POKE CLK DOWN
8IS
#CLK .QTXCSR
:POKE TLK UP
BIS
#STPSYN,BRXCSR
-SET STRIP SYNC
MOV
#3, COUNT
‘X OF SYNC CHARS

1%:

MOV

MOV
JSR
TSTR

#26., TEMP1

*CHAR TO BE SHIFTED

#6.SHIFT
‘# OF SHIFTS
FC RPOKE
SSHIFT IN THIS CHAR
@RXCSR
:RXDONE >

cZ0uC-D
C2DUCD.P11

2339
2360
2341
232
2343
234
2345
236
2347

011222
011224
011226
011226
011232
011234

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

21-NOV~-78

100001
104000
005367
001361
104400

15:40

2%:

167710

2348
2349

011236
011244
011252

2358
g%gg

011260
011266

012767
012767
052777

012777
052777

000033
011422
000400
030000
000400

007046
0070644

011274

012777

064001

007036

011302
011310

012777
052777

034026
000020

007024
007006

011316
011324

042777
052777

020000
020000

007014
007006

011332
011340
011346
011354
011362
011370
011376

042777
052777
052777
012767
012767
012767
004767

020000
020000
000400
000003
000026
000007
006426

007000
006772
006750
167560
167554
167542

005367
001361
104400

167524

011402
011406
011410
011412
011412
011416
011420

105777
100001
104000

167662
167644
007060

006716

DEC
COUNT
;# OF SYNC CHARS
BNE
1%
SCOPE
;:THIS TEST CHECKS THE STRIP SYNC FUNCTION
;:OF THE RECEIVER LOGIC
: ;MODE
: SYNINT

T1ST27:

MOV
MOV
BIS

MOV
BIS

#27,TSTNO
NTST28 NEXT
MMRESET,8TXCSR

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

#SYNINT ,@PARCSR :SET THE MODE
#MMRESET,@TXCSR
:MASTER RESET

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

;JSET MODE ,# OF BITS,PARITY SENSE,RLOAD SYNC REG
MOV
#SYNINT ! SEVEN!NOPAR
' 26 , aPAR(CSR
BIS
#SYNSCH,@RXCSR ;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,a8TXCSR
;POKE CLK DOWN
BIS
#CLK,3TXCSR
;POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,aTXCSR
+POKE CLK DOWN
BIS
#CLK, aTXCSR
JPOKE CLK UP
BIS
#STPSYN ,a@RXCSR
;SET STRIP SYNC
MOV
#3,COUNT
:# OF SYNC CHARS
1%:
MOV
#26,TEMP1
;CHAR TO BE SHIFTED
MOV
N7 ,SHIFT
;A OF SHIFTS
JSR
PC .RPOKE
:SHIFT IN THIS CHAR
TSTB
dRXCSR
;RXDONE ?
BPL
2%
HLT
;JRXDONE SHOULD NOT BE ASSERTED
2%:
DEC
COUNT
;# OF SYMC CHARS
BNE
1%
SCOPE
;:THIS TEST CHECKS THE STRIP SYNC FUNCTION
;:;OF THE RECEJVER LOGIC
;s MODE
: SYNINT
JILENGTH:EIGHT
J:NOTE: RXDONE SHOULD NEVER ASSERT

::CHAR: 26 (SYNC)

2389
2390
2391

011422
011430
011436

Sggz

011452

2392

2%
JRXDONE SHOULD NOT BE ASSERTED

::CHAR: 26 (SYNC)

2352
2353
2354

2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2376
2375
2376
2377
2378
2379
238C
2381
2382
2383
2384
2385
2386

SEQ 0046

:;LENGTH:SEVEN
;NOTE: RXDONE SHOULD NEVER ASSERT

S%g?

2355
g%gg

BPL
HLT

PAGE 49

011444

012767
012767
052777

012777

052777

000034
011606
000400

030000

000400

167476
167460
006674

006662

006660

TST28:

MOV
MOV
BJS

MOV
BIS

#28,1STNO
#TST29 NEXT
#MRESET,aTXCSR

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

#°PESET ,@TXCSR

;MASTER RESET

#SYNINT ,@PARCSR ;SET

THE MODE

¢cZbucC-D
C20uCDh.P11

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

21-NOV-78

15:40

PAGE 50

SEQ 0047

2395
S%g?

011460

012777

064001

006652

sSET MAINT DATA,CLK,BREAK ,SMAINTENANCE MODE
MOV
MTDATA! CLK'MINT !BREAK ,aTX(CSR

2398
2399
2600

011466
011474

012777
(052777

036026
000020

006640
006622

;SET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG
MOV
#SYNINT 'EIGHT !NOPAR ! 26 ,3PARCSR
BIS
#SYNSCH,aRXCSR
;SET SYNC SEARCH

2602
26403

011502
011510

042777
052777

020000
020000

006630
006622

2605
2606
26407
2408
2609
2610
2611
2612
26413
2614
2615
2616
2617
2418
2419
2420
2421

011516
011524
011532
011540
011546
011554
011562
011566
011572
011574
011576
011576
011602
011604

042777
052777
052777
012767
012767
012767
004767
105777
100001
104000

020000
020000
000400
000003
000026
000010
006242
006532

006614
006606
006564
167374
167370
167356

005367
001361
104400

167340

2601

24604

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

BIC
BIS

#CLK,aTXCSR
#CLK,aTXCSR

JPOKE CLK DOWN
+POKE CLK UP

BIC
BIS
8IS
MOV
MOV
MOV
JSR
TSTB
BPL
HLT

#CLK,@TXCSR
;POKE CLK DOWN
#CLK ,aTXCSR
JPOKE CLK UP
#STPSYN_@RXCSR
;SET STRIP SYNC
#3,COUNT
;@ OF SYNC CHARS
#26,TEMP1
;CHAR TO BE SHIFTED
#8. ,SHIFT
;A OF SHIFTS
2( ,RPOKE
JSHIFT IN THIS CHAR
@RXCSR
:RXDONE ?
2%
;RXDONE SHOULD NOT BE ASSERTED

JPOKE CLK TO GET LOGIC INTO SYNCRONIZATICN

1%:

2%:

DEC
COUNT
:# OF SYNC CHARS
8NE
1%
SCOPE
;. THIS TEST PROVES THAT RXERR FREEZES THE 'RECEIVER RESET"
s:WHILE IN STRIP SYNC MODE
;cTHIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN

26422

;:STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT

2423
2424
2425

Sienees BUT ]JF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET
;¢1S DISCOMBOBULATED
;c1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET

2427
2428
2429
2630
2431
2432
2433

;:PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT....
;:BUT, IF AN RXERR OCCURS
RXDONE PLUS RXERR ARE ASSERTED
;cMODE: ISOC (1SYMOD)
::LENGTH: EIGHT
:;PARITY: EVEPAR
;. CHARACTER EXPECTED:26
;;CHARACTER SENT: SYNC CHARACTER

26426

;NOTE: NORMALLY THE LOGIC RESETS THE RXDONE &ERROR FLAGS

Szgé

2636
2637
2438
2439
524?

;oNOTE: THIS TEST USES ONLY THE RECEIVER LOGIC
011606
011614
011622
011630
011636

012767
012767
052777
012777

052777

2442

5222

2445

2446
2647
2648
26449
2450

000035
012210
000400
000000

167312
167274
006510
006476

000400

006474

011644

012777

064001

006466

011652
011660
011664
011672

012777
016703
012767
052777

007426
006444
000003
000020

006454

167250
006424

T1S729:

MOV
MOV
BIS
MOV

BIS

#29,TSTNO
JSAVE THIS
#TST30,NEXT
;GO TO THIS TEST WHEN THRU
MMRESET ,8TXCSR ;MASTER RESET
#]1SYMOD ,8PARCSR :SET THE MODE

#MRESET,a8TXCSR

;MASTER RESET

;SET MAINT DATA
,BREAK,CLK
,BMAINTENANCE MODE

MOV

JSET MODE

#MTDATA! CLK'MINT!BREAK ,aTXCSR

,# OF BITS,PARITY SENSE,LLOAD SYNC REG

MOV
#ISYMOD 'EIGHT'EVEPAR
' 26,aPAR(SR
MOV
RXDBUF ,R3
JSET UP FOR ERROR MSG
MOV
#3,COUNT
;# OF TIMES SYNC CHAR WILL BE SENT
BIS
#ZVNSCH,aRXCSR
;SET SYNC SEARCH
;POKE CLk TO GET RECEIVER INTO SYNCROIZATION....

C20UC~D
P11

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

21-NOV-78

011700
011706

042777
052777

020000
020000

006432
006424

011714
011722
011730
011736

042777
052777
052777
012767

020000
020000
000400
000013

006416
006410
006366
167174

004767
105777
100001
1046000

006052
006342

011744

011752
011756
011762
011764
011766
011766
011772
011776
012000

012767

005367
001361
012700
017701

003054

167172

PAGE 51

SEQ 0048

BIC
BIS

#CLK,@TXCSR
#CLK.aTXCSR

;POKE CLK DOWN
‘POKE CLK UP

BIC
BIS
BIS
MOV

#CLK,aTXCSR
#CLK.aTXCSR
#STPSYN,BRXCSR
#11. . SHIFT

;POKE CLK DOWN
‘POKE (LK UP
+SET STRIP SYNC
‘¥ OF SHIFTS

JSR
TSTB
BPL
HLT

PC,RPOKE
:SHIFT IN THIS CHARACTER
@RXCSR
;RXDONE
= 0 2
64$
:RXDONE SHOULD NOT BE SET

:POKE CLK TO GET LOGIC INTO SYNCRONIZATION
2%:
1$:

648

167150

15:40

000026
006324

MOV

#3054, TEMP1

DEC
BNE
MOV
MOV

*SYNC CHAR + STARTRSTOP+ PARITY

COUNT
:# OF
SYNC CHARS
2$
:GO AGAIN ?
#26 ,RO
-EXPECTED
IRXDBUF .R1
sACTUAL
;NOTE

THAT THIS

IS THE FIRST

TIME

*RXDBUF IS READ....... THERE SHOULD BE

012004
012006
012010

020001
001401
104002

cMP
BEQ
HLT

012012
012012
012020
012024
012032
012040
012044
012050
012052
012054
012054
012060
012062
012064

012767
012700
012767
012767
004767
105777
100401
104000

000006
110026
002054
000013
005764
006254

017701
020001
001401
104002

006250

012066
012066
012072
012074
012102

005367
001445
022767
001423

167050

012112

001426

167122
167112
167100

67%:
167040

022767

000002

167030

012114

012767

000013

167016

012134
012142
012146

(12767
015700
000 57

000054
170026
177660

167002

012122
012130

012152

012767
004767

012767

000054
005674

001054

3$:

66%:

000003

012106

65%:

166764

:DATA CHARS SHOULD COMPARE
SHOULD BE NO RXERR'S

MOV
MOV
MOV
MOV
JSR
TSTB
BM]
HLT

#4, COUNT
4 OF TIMES
#RXERR ' PARER ' 26.R0
;EXPECTED
#2054, TEMP1
:BAD SYNC CHAR (WRONG PARITY)
#11. SHIFT
“# OF SHIFTS
PC ,RPOKE
SSHIFT IN THIS CHAR
@RXCSR
;RXDONE = 1?
663
;RXDONE SHOULD BE SET

MOV
CMP
BEQ
HLT

SRXDBUF ,R1
;ACTUAL DATA
RO,R1
:COMPARE EXP VS ACT
67$
2
:DID THE RESPECTIVE ERROR STOP THE
;AUTOMATIC RESSETING OF RXDONE & ERROR FLAGS
e CHECK THIS.....

DEC
BEQ
MP
BEQ

COUNT
:# OF SYNC CHARS
31
SFINISHED ? GET OUT OF TEST
#3, COUNT
:# OF SYNC CHARS
63
;CHECK FRAME ERROR ?

CMP

:NOPE

MOV
MOV
JSR

#2.,COUNT

MOV

THEN IT

:NOW DON'T READ
MOV
MOV
JMP

6%:

:COMPARE EXPECTED VS ACTUAL
*THERE

BEQ

167014

*NO OVER RUN ERRORS

RO,RT
65$
2

.4 OF SYNC CHARS

: CHECK FRAME ERROR & BAD PARITY ?

(COUNT) MUST BE
= 1

#17.,SHIFT
#54. TEMP1
PC ,RPOKE

THEREFORE....

-4 OF SHIFTS

SFRAME € PARITY ERROR
SSHIFT IN THIS CHAR

THE RXDBUF TO CREATE OVER RUN

#54, TEMP
RAME
€ PARITY ERROR
#RXERR'OVPRUN‘FRMERR'PARER 26.R0
33
;00 I7 AGAIN

#1054, TEMP1

;BAD STOP BIT

;EXPECTED

FOR FRAME ERROR

MACY1]

PONNINININY
PNONY = =

120026
177642
200054
130026

KRN3XE

DB b

30A(1052)

18-JuL~78 15:52

21-NOvV-78

15:40

PAGE S2

166746

177624

:D0 IT AGAIN

#54, TEMPY

7%:

5%:

SEQ 0049

#RXERR.FRMERR!26,R0

MOV

AININININ) n
[V 1V, IV 1V, ]V | 19,

2507
2508
2509
2510
2511
2512

eleololelole]

cDUC-D
P11
CZOU.CD

JEXPECTED

:BAD STOP BIT & PARITY

#RXERR ' FRMERR ! PARER ! 26 ,R0

SCOPE

;o THIS TEST PROVES THAT RXERR FREEZES

JoWHILE IN STRIP SYNC MODE

;o THIS TEST FIRST PROVES

THE 'RECEIVER RESET''

THAT AUTOMATIC RESETS OCCUR WHEN

;:STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT
BUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET

;. 1S DISCOMBOBULATED
;. 1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET
;:NOTE: NORMALLY THE LOGIC RESETS THE RXDONE RERROR FLAGS

;:PROVIDING

THAT ONLY GOOD SYNC

::BUT, IF_ AN RXERR OCCURS
. JMODE: ISOC (ISYMOD)

;L ENGTH:
;;PARITY:

CHARACTERS ARE

sNOTE THAT THE PARITY BIT SHOULD SHOW

JUP IN THE DATA
;SEVEN LEVEL CODE
;s CHARA(CTER SENT: SYNC CHARA(CTER

JoNOTE:

166710 14130:

2533
2534
2535
2536
2537

012210
012216
012224
012232
012240

012767
012767
052777
012777
052777

2539
2560
2541

012246

012777

006064

012254
012262
012266
012274

012777
016703
012767
052777

006052

012302
012310

042777
052777

25646
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560

2561
2562

012316
012324
012332
012340
012346
012354
012360
012364
012366
012370
012370
012374

000036
012612
000400
000000
000400

166672
006106

006G74
006072

SENT....

RXDONE PLUS RXERR ARE ASSERTED

SEVEN
EVEPAR

;. CHARACTER EXPECTED:226

2542
2543
2544
2545

;EXPECTED

:D0 1T AGAIN

IE. BIT SEVEN FOR

THIS TEST USES ONLY THE RECEIVER LOGIC

MOV

BIS

#30,7STNO
#TST31 NEXT

;SAVE THIS
;GO TO THIS TEST WHEN THRU

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

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

;SET MODE ,# OF BITS,PARITY SENSE,8LOAD SYNC REG
#1SYMOD ! SEVEN!EVEPAR!226,3PARCSR

006022

MOV
MOV
MOV
BIS

006030
006022

BIC
8IS

#CLK,QTXCSR
#CLK,@TXCSR

sPOKE CLK DOWN
:POKE CLK UP

#CLK,@TXCSR
#CLK,@TXCSR
#STPSYN,@RXCSR

sPOKE CLK DOWN
SPGKE CLK UP
:SET STRIP SYNC

#1354 TEMPY

*SYNC CHAR ¢ STARTESTOP+ PARITY

166646

006014
) 006
005764
166572
166570

RXDBUF ,R3
#3,COUNT

#SYNSCH, @RXCSR

:SET UP FOR ERROR MSG
¥ OF TIMES SYNC (HAR WILL BE SENT
;SET SYNC SEARCH

;POKE CLK TO GET RECEIVEP INTO SYNCROJZATION....

s POKE CLSIEO GET LOGIC INTO SYNCRONIZATION

2%:
'S

64%:

BIS
8IS
MOV
MOV
JSR
TSTB
8PL
HUT
DEC
BNE

#10.

SHIFT

PC ,RPOKE

2§§CSR

‘# OF

SSHIFT

:RXDONE = 0 2

SHIFTS

IN THIS

;RXDONE SHOULD NOT BE SET
CCNT

;# OF

SYN(

;GO AGAIN ?

(HARS

CHARACTER

cZouC-D
CZ0UCD. P11

MACY11 30A(1052)

18-JUL-78 15:52

012376
012402

012700
017701

012406
012410
012412

020001
001401

012414
012414
012422
012426
012434
012442
012446
012452
012454
012456
012456
012462
012464
012466

21-NOvV-78

000226
005722

000004

166520

001054
000012
005362
005652

166510
166476

668

017701

020001
001401
104002

005646

HLT

MOV
MOV
MOV
MOV

#4,COUNT
;4 OF TIMES
#RXERR'PARER'26 RO
<EXPECTED
#1054, TEMP
.BAD SYNC CHAR (WRONG PARITY)
fi10..SH1FT
;# OF SHIFTS

TSTR

oRXCSR

RXDONE

HLT

;RXDONE

SHOULD BE SET

JSR

000002

166426

; COMPARE EXPECTED VS ACTUAL

;DATA CHARS SHOULD COMPARE

;s THERE SHOULD BE NO RXERR'S

PC ,RPOKE

BM]

56$

HLT

2
;DID THE RESPECTIVE ERROR STOP THE
AUTOMATIC RESSETING OF RXDONE & ERROR FLAGS

RO,R1
67%

;ACTUAL

DATA

;COMPARE EXP VS ACT

Jeeeas CHECK THIS.....

BEQ
CMP
BEQ
CMP
8EQ

JNOPE

THAT THE PARITY BIT SHOULD

;SHOW UP IN THE DATA
cJE.
BIT SEVEN FOR SEVEN LEVEL CODE

COUNT

;# OF

THEN IT

(COUNT) MUST BE= 1

012767
012700
000167
012767
012700

000054
170026
177660
000454

166362

6%:

MOV

000054

166344

7%:

MOV

#54,TEMP1

5%:

JMP
SCOP E

MO
MOV
JSR
JNOW DON'T READ
MOV
MOV

JMP

MOV

JMP

MOV

SYNC CHARS

5%
JFINISHED ? GET QUT OF TEST
#3,COUNT
;& OF SYNC CHARS
6%
;CHECK FRAME ERROR ?
#2.COUNT
;M OF SYNC CHARS
7%
; CHECK FRAME ERROR £ BAD PARITY ?

000012
000054
005272

130026
177624

aRXDBUF ,R1

012767
012767
004767

120226
177642

JSHIFT IN THIS (CHAR

MOV

DEC

1664 36

sNOTE THAT THIS IS THE FIRST TIME
JRXDBUF IS READ....... THERE SHOULD BE
;NO OVER RUN ERRORS

2g§R1

;NOTE

000003

sACTUAL

ggg

6/%

166446

012610

aRXDBUF ,R1

MP
8EQ

012470

SEQ 0050

#226,R0 ;EXPECTED

MOV

655

110026

PAGE 53

MOV

104002

012767

15:40

THEREFORE...

#10.,SHIFT
W OF SHIFTS
#54, TEMP1
JFRAME £ PARITY ERROR
PC, RPOKE
JSHIFT IN THIS CHAR
THE RXDBUF TO CREATE OVER RUN
#54 ,TEMP]
RAME
£ PARITY ERROR
#RXERR'OVRRUN'FRMERR'PARER'26 RO

;00 IT AGAIN

#4564, TEMP1

;BAD STOP BIT

#RXERR'FRHERR'226 RO
3%

;D0 IT AGAIN

SEXPECTED

FOR FRAME ERROR

JEXPECTED

;BAD STOP BIT & PARITY

#RXERR'FRMERR'PARER'!26.R0
;DO IT AGAIN

cEXPECTED

;. THIS TEST PROVES THAT RXERR FREEZES THE 'RECEIVER RESET'’
"UHILE IN STRIP SYNC MODE
;THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN

,.STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT
..... BUT IF AN CPROR SHOULD OCCUR....THIS AUTOMATIC RESET
- 1S DISCOMBOBULATED

¢20UC-D
CZbUCD. P11

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

21-NOV-78

15:40

PAGE 54

SEQ 0051

..IE FORCE PARITY ERROR WHILE STRIP SYNC IS SET

JNOTE: NORMALLY THE LOGIC RESETS THE RXDONE LERROR FLAGS

..PROVIDlNG THAT ONLY GOOv SYNC CHARACTERS ARE SENT..
::BUT, IF AN RXERR OCCURS
RXDONE PLUS RXERR ARE ASSERTED
::MODE: ISOC (ISYMOD)
J:LENGTH: SIX
;;PARITY:

EVEPAR

; JCHARACTER EXPECTED:126

JNOTE THAT THE PARITY BIT SHOULD SHOW
JUP IN THE DATA
IE. BIT SIX FOR
;SIX LEVEL CODE
:;CHARACTER SENT: SYNC CHARACTER
JsNOTE: THIS TEST USES ONLY THE RECEIVER LOGIC
012612
012620
012626
012634
012642

012767
012767
052777
012777
052777

012650

012777

064C01

005462

012656
012664
012670
012676

012777
016703
012767
052777

003526
005440
000003
000020

005450

012704
012712

042777
052777

020000
020000

005426
005420

012720

042777
052777
052777
012767
012767

020000

005412
005404
005362
166170

166306
166270

TST31:

005504
005472
005470

MOV
MOV

MOV

:GO TO THIS TEST WHEN THRU

#MTDATA!
CLK !MINT !BREAK ,@TXCSR

#1SYMOD
! SIX!EVEPAR! 126 ,@PARCSR
RXDBUF ,R3
;SET _UP FOR ERROR MSG

#3, COUNT

:# OF TIMES SYNC CHAR WILL BE SENT

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC

#CLK,@TXCSR

BIS

#STPSYN,@RXCSR

8IS
2%:
1%:

MOV
MOV
JSR

#CLK,@aTXCSR
#9. SHIFT
#654, TEMP1
PC ,RPOKE

sPOKE CLK DOWN

;POKE CLK UP

;SET STRIP SYNC

¥ OF SHIFTS
;SYNC CHAR + STARTESTOP+ PARITY
SHIFT IN THIS CHARACTER

TSTB

@RXCSR

;RXDONE
= 0 ?

HLT

sRXDONE

SHOULD NOT BE

COUNT

;# OF

BPL

DEC

166116

:SAVE THIS

BIS
#SYNSCH,@RXCSR
:SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
8IC
#CLK,@TXCSR
:POKE CLK DOWN
BIS
#CLK,aTXCSR
:POKE CLK UP

BNE
MOV

000126
005320

110026

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

#TST32 NEXT

;SET MODE ,# OF BITS,PARITY SENSE,2L0AD SYNC REG

648

000004

BIS
MOV
BIS

MOV

166244

166144

#31,1STNO

MOV

;SET MAINT DATA,CLK
,BREAK ,EMAINTENANCE MODE

005420

166166

MOV

643

SET

SYNC CHARS

2%
;GO AGAIN ?
#126,RO ;EXPECTED

MOV

aRXDBUF ,R1
sACTUAL
;NOTE THAT THIS IS THE FIRST TIME
sRXDBUF IS READ....... THERE SHOULD BE

ggg

gng1

HLT

MOV

#5, COUNT

MOV

:NO OVER RUN ERRORS

:COMPARE EXPECTED VS ACTUAL

:DATA CHARS SHOULD COMPARE

: THERE SHOULD BE NO RXERR'S

:# OF

#RXERR
! PARER!26,R0

TIMES

JEXPECTED

cZ0UC-~-D
CZDUCD.P11

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

012767

21-NOV-78
166106
166074

3%:

005244

PAGE 55

15:40

MOV

#4546, TEMPY

1ST8
BM]
HLT

22§CSR

MOV
JSR

c# OF SHIFTS
;SHIFT IN THIS CHAR

;RXDONE
= 1?

;RXDONE SHOULD BE SET

SRXDBUF ,R1
;ACTUAL DATA
RO,R1
;COMPARE EXP VS ACT

HLT

2
;DID THE RESPECTIVE ERROR STOP THE
sAUTOMATIC RESSETING OF RXDONE €& ERROR FLAGS

675

013072

;BAD SYNC CHAR (WRONG PARITY)

#9. ,SHIFT
PC ,RPOKE

MOV
P

BEQ

013070

SEQ 0052

67$

fernns CHECK THIS.....

:NOTE THAT THE PARITY BIT SHOULD

“SHOW UP IN THE DATA
013072

166044

013116

013120

000003

166034

000002

166024

012767
012767
004767

166012
166010

012767
012700

165776
165760

0000
130026
177624

165742

*IE.

BIT SIX FOR SIX LEVEL CODE

DEC

COUNT

cTMMP

#3, COUNT

MOV

#9.,SHIFT

:# OF SHIFTS

JSR

PC ,RPOKE

“SHIFT IN THIS CHAR

BEQ

:# OF SYNC CHARS

SFINISHED ? GET OUT OF TEST

:# OF SYNC CHARS

BEQ
63
;CHECK FRAME ERROR
CTMP
#2.COUNT
:# OF SYNC
BEQ
7%
;CHECK FRAME ERROR
:NOPE THEN IT (COUNT) MUST BE = 1

MOV

:NOW DON'T READ
MOV
MOV
JMP
6$:
MOV
MOV
JMP

7%:
s

MOV
MOV

JMP

SCOPE

#54. TEMP1

?
CHARS
§ BAD PARITY ?
THEREFORE....

“FRAME & PARITY ERROR

THE RXDBUF TO CREATE OVER RUN
#54, TEMP1
:FRAME € PARITY ERROR
#RXERR ! OVRRUN ' FRMERR ! PARER ! 26 ,R0
;EXPECTED
3s
;D0 IT AGAIN
#254, TEMP1
;BAD STOP BIT
FOR FRAME ERROR
#RXERR 'FRMERR'126.,R0 ~ ;EXPECTED
3
.D0 IT AGAIN

#54, TEMPY
;BAD STOP BIT & PARITY
#RXERR!
FRMERR ! PARER! 26 ,R0
;EXPECTED
3s

;D0 IT AGAIN

;:THIS TEST PROVES THAT RXERR FREEZES THE 'RECEIVER RESET''
::UHILE IN STRIP SYNC MODE

sTHIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN

..STRIP SYNC IS SET & SYNC CHARACTERS ARE SENT
....... BUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET
ED

IE FORCE PARITY ERROR WHILE STRIP SYNC IS SET

..NOTE NORMALLY THE LOGIC RESETS THE RXDONE EERROR FLAGS
;;PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT....

::BUT, IF AN RXERR OCCURS
ccMODE: 1SOC (ISYMOD)
s cLENGTH: FIVE

:sPARITY:

RXDONE PLUS RXERR ARE ASSERTED

EVEPAR

;s CHARACTER EXPECTED:66

sNOTE THAT THE PARITY BIT SHOULD SHOW
;JUP IN THE DATA
IE. BIT FIVE FOR

;FIVE LEVEL

;;CHARACTER SENT: SYNC CHARACTER

CODE

MACY1]1

30A(1052)

18-JUL=78 15:52

21-NOV-78

15:40

PAGE 56

SEQ 0053

THIS TEST USES ONLY THE RECEIVER LOGIC

165704

012767
012767
052777
012777
052777

000040
013616
000400
000000
000400

165666
005102
005070
005066

013252

012777

064001

005060

013260
013266
013272
013300

012777
016703
012767
052777

001466
005036
000003
000020

005046

013306
013314

042777
052777

020000
020000

005024
005016

013322
013330
013336
013344
013352

042777
052777
052777
012767
012767

165642

005016

005010
005002
004760
165566
165564

165542

000066
004716

TST32

#32,TSTNO
#_.EOP NEXT

MMRESET ,@TXCSR
;MASTER RESET
#1SYMOD ,aPARCSR ;SET THE MODE
#MRESET .@TXCSR
:MASTER RESET

JSET MAI:% DATA,CLK
,BREAK ,BMAINTENANCE MODE

MMTDATA ! CLK !MINT !BREAK ,@TXCSR

;SET MODsO.# OF BITS,_PARITY SENSE,@LOAD SYNC REG
#1SYMOD
! F IVE 'EVEPAR! 66,@PARCSR

RXDBUF ,R3
#3, COUNT

#SYNSCH,@RXCSR

#CLK,aTXCSR

#CLK,aTXCSR
#CLK,aTXCSR
H#STPSYN,@RXCSR

cPOKE CLK DOWN
;POKE CLK LP
;SET STRIP SYNC

#354,TEMPY

;SYNC CHAR + STARTRSTOP+ PARITY

s POKE CLEIEO GET LOGIC INTO SYNCRONIZATION

#8. ,SHIFT
PC ,RPOKE

000010
004356
004646

;N OF

SHIFTS

JSHIFT

IN THIS CHARACTER

2§§CSR

sRXDONE = 0 ?

;RXDONE

SHOULD NOT BE

COUNT
2%

;# OF
SYNC CHARS
;GO AGAIN ?

SET

SEXPECTED

aRXDBUF ,R1

165504
165472

sPOKE CLK DOWN

:POKE CLK UP

#66 RO

165514

_:SET SYNC SEARCH

#CLK . @TXCSR

65%
2

110026
000254

;SET_UP FOR ERROR MSG
;4 OF TIMES SYNC CHAR WILL BE SENT

;POKE CLK TO GET RECEIVER INTO SYNCROIZATION..

RO,R1

000004

sSAVE THIS
:GO TO THIS TEST WHEN THRU

sACTUAL

:NOTE THAT THIS IS THE FIRST TIME
sRXDBUF IS READ....... THERE SHOULD BE
;NO OVER RUN ERRORS

; COMPARE EXPECTED VS ACTUAL

;DATA CHARS SHOULD COMPARE
;THERE

SHOULD BE NO RXERR'S

#4, COUNT

# OF

#254,TEMPT
#8. SHIFT

sBAD SYNC CHAR
4 OF SHIFTS

#RXERR ' PARER ' 26, RO
PC ,RPOKE
aRXCSR

663

TIMES

;EXPECTED

(WRONG PARITY)

JSHIFT IN THIS (HAR

;RXDONE = 1?

RXDONE SHOULD BE SET

004642

ARXDBUF ,R1
;JACTUAL DATA
RO,R1
;COMPARE EXP VS A(T

67$

;DID THE RESPECTIVE ERROR STOP THE

AUTOMATIC

RESSETING OF

RXDONE

& ERROR FLAGS

¢2oUC-D
CZDUCD.P11

2788

MACY11

21-NOVv=-78

013474

013542
013550
013554
013560
013566
013572
013576
013604
013610
013614

15:40

PAGE 57

165442

DEC

000003

165432

000002

165422

012767
012767
004767

000010
000054
004266

165410

012767

000054

165374

170026
177660

000154
120066
177642
000054

130026
177624

SEQ 0054

deenee CHECK THIS.....

67%:

005367
001445
022767
001423
022767
001426

2803
2804
2805
2806
2807
2808
2809
2810
2811
2812

30A(1052)

18-JuUL-78 15:52

;NOTE THAT THE PARITY BIT SHOULD
;SHOW UP [N THE DATA
cJE.
BIT FIVE FOR FIVE LEVEL CODE

COUNT

;# OF

MP
BEG

#Z.COUNT

;# OF SYNC CHARS
:CHECK FRAME ERROR & BAD PARITY ?

MoV

#8..SHIFT

BEQ
CMP
BEQ

SYNC CHARS

5%
JFINISHED ? GET OUT OF TEST
#3,COUNT
:# OF SYN(C CHARS
6%
;CHECK FRAME ERROR ?

NOPE THEN IT (COUNT) F‘UST BE= 1

165406

MOV
JSR

‘54 TEMP1
PC.RPOKE

THEREFORE....

A OF SHIFTS

FRAME £ PARITY ERROR
:SHIFT IN THIS CHAR

;NOW DON'T READ THE RXDBUF TO CREATE OVER RUN

165356

6%:

165340

7%:

MOV
MOV

#54,TEMPT
;FRAME £ PARITY ERROR
#RXERR'OVRRUN'FRMERR'PARER!26.R0

MOV

#RXERR‘FRHERR!66.R0

JMP
MOV

JMP
MOV
Mov
JMP
SCOPE

38
;D0 IT AGAIN
#1564, TEMP1
;BAD STOP BIT

JEXPECTED

FOR FRAME ERROR

JEXPECTED

3%
:DO IT AGAIN
#54 ,TEMP
;BAD STOP BIT & PARITY
#RXERR ! FRMERR ! PARER.26.R0
JEXPECTED
3%
;D0 IT AGAIN

9 Ve
CZ0UCD.P11

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

21-NOV-78

15:40

PAGE 58

JEND OF PASS

sTYPE NAME OF

SEQ 0055

TEST

;UPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11
JRESTART

.EOP:

016054
016501
165344

CONVRT

165534
000010
000010

0137210
013716
013720
013724

165304

165300

165262

165312
165312

RUNIT:
ZERO:

165312

;NO
;DISPLAY ACTREG

CLC

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

004350

MOV
MOV
JSR
BR
MOV
JSR
MOV

KEEPADD ,BASEADD
KEEP]V,BASEIV
PC,REPLAY
ccC
BASEADD
, DUBASE
PC,DUADDR
BASEIV,DURIV

SRESTORE BASE INTERRUPT VECTORS
;CALC NEW PARAMETERS
;JUMP AROUND REPLAY
sSET UP FOR NEW ADDRESSES
s CREATE NEW ADDRESSES
;CREATE DURIV

004336

MOV

BASEIV,DURIS

. CREATE DURIS

MOV
ADD
MOV
MOV

BASEIV,DUTIV
#2 ,BASEIV
BASEIV,DUTIS
DURIV,BASEIV

. CREATE DUTIV

165244
165244

165240
165240

165220

004040

2%:

REPLAY:

165204

MOV

ADD

165170

ADD

004324

005067
005067
005267

MCOW

ACTREG,RO

;ARE ANY DEVICES ACTIVE ?

ROTADD ,ACTREG
RUNIT
PC,REPLAY
RESTRT

016767
016767

014062
014062
014066
014072

JYES

BIT
BEQ
JSR
JMP

013736
013744

000001
006
020324

RUNIT

ROTADD

012767

014054
014056
014060

sNO,JUMP AROUND

JSELECT SOMETHING TO RUN @ ACTREG:
JSELECT SWITCHES & HIT (ONTINUE (PUT SWO0 =1)
JMP
.START
;START OVER AGAIN...... YOU DESELECTED EVERYTHING
ADD
#10,BASEADD
sNEXT BLOCK (ADDRESSES)
ADD
#10,BASEIV
sNEXT BLOCK (VECTORS)
8CS

013730

014052

JARE YOU RUNNING MULTIPLE DEVICES ?

ROL

000034
000174
000001

016767
000207

ACTREG

TYPE

013660
013664
013672
013700
013702
013706

000002

TST

MOV
HALT

TEST

,OUTCRY

DEVICE
MULTD

BNE

016513
165340

;TYPE NAME OF

TYPE
TSTB

BEQ

165352

013652
013656

TYPE
MEPASS

TEST

165154
004312
165140

RTS

OUTCRY:

#1,ROTADD

#2 ,BASE]V
#2 ,BASEIV

sOK! ,NOW SET UP ROTATING
;POINTER FOR NEXT MULTIPLE PASS

sRESTORE BASE ADDRESS

s CREATE DJTIS
JRESTORE

BYTE

6,2

CLR
CLR
INC

LSTERR
ERRFLG
PASCNT

RXCSR

CcC:

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

cZbuc-D

CZ0UCDh.P11
2869
2870
2871
2872
2873
2876
2875
2876
2877
2878
2879
Sgg?

014076
014104
014110
014112
014114
014116
014120
014122
014124
014132
014134
014142

MACY1]1

30A(1052)

016777
013701
001405
000005
004711
000240
000240
000240
012767
104413
012767
000167

165026
000042

18-JuUL-78 15:52

21-NOV-78

15:40

164776

LOGICAL :

000340

163644

003446
167200

164752

MOV
MOV
BEQ
RESET

NOP
NOP
NOP
RESTRT: MOV
(KSWR
MOV
JMP

%gg%

SEQ 0056

PASCNT ,aL IGHTS
42 ,R1
RESTRT

JSR

;DISPLAY PASS COUNT
;CHECK FOR ACT-11 OR DDP
;1F NOT, CONTINUE TESTING

PC,(R1)

#340,PS
#TST1,RTRN
TST1

JPREVENT INTERRUPTS (PRIO:
;CHECK FOR G

;SCOPE LOOP AND INTERATION HANDLER

2884
2885
2886
2887
2888
2889

014146

2891
2892
2893
289
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918

014166
014172
014174
014176
014202
014204
014212
014216
014220
014220
014222
014230
014232
014234
014240
014242
014246
014250
014256
014260
014264
014272
014274
014300
014304
014312
014320
014324
014326
014330

2890

PAGE 59

.SCOPE:
L***x START OF
BR

014146

000424

014150
014154

013746
012737

000004
014174

012637
000404
022626
012637
000403
016767
016716
000002

000004

014162

005737

104413
032777
001407
000432
105777
100027
017700
000412
032777
001006
005267
026767
101412
105067
005067
012767
016767
016716
000002
001407
0092432

177060

TST

1%:

000004
164706
164676

MOV
MOV

000004

164702

2%:
3%:

4%:
040000

104650

TTST:

164644

164640
004000

164622

164640
164634

164630

164746
164620
000005
164600
164570

1$:

2%:
164610
164574

3%:
BRW:
BRX:

CODE FOR THE X OR TESTER tawawxx
3
;IF RUNNING ON THE X OR TESTER CHANGE
sTHIS INSTRUCTION TO A 'NOP''(NOP-240)
a#4,~(SP)
;SAVE CONTENTS OF ERROR VECTOR
1S, 44
;SET FOR TIME OUT

177060

MOV
(SP) +,a#4
BR
2%
cMP
(SP)+, (SP)+
MoV
(SP)+,an4
BR
3%
MOV
NEXT ,RTRN
MOV
RTRN, (SP)
RTI
cxxxx END OF CODE FOR THE
CKSWR
BIT
#SW14,aSWR
BEQ
1%
BR
3%
TSTB
a@TK(SR
BPL
3%
MoV
a@TkDBR,RO
BR
2%
BIT
A#SW11,aSWR
BNE
2%
INC
LPCNT
(MP
LPCNT, ICOUNT
BLOS
3%
CLRB
ERRFLG
CLR
LPCNT
MoV
#5,1COUNT
MOV
NEXT ,RTRN
MoV
RTRN, (SP)
RT1]
1407
432

JTIME OUT ON

X OR TESTER wtwwsxx

;CHECK FOR “G
;LOOP ON CURRENT TEST ?

JTEST TTY FLAG

;CLR DONE BIT
JIF A TTY KEY IS STRUCK GO TO NEXT TST
JINHIBIT ITERATIONS ?
;CHECK FOR ITERATION CNT FINISH

SET UP ITERATION COUNT
JSET UP NEXT TEST [N RTRN
;SET UP STACK FOR RTI
RESTORE 'BEQ_1%'" INSTRUCTION
RESTORE "BR 3%'' INSTRUCTION

sCHECK FOR FREEZE ON CURRENT DATA
014332

104413

.SCOP1:

(KSWR

X OR ?

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

;CHECK

FOR ~G

cZbuC-D
CZ0ucD PN

014334
014342
014344
014350

MACY11

30A(1052)

032777

001000

18-JUL-78 15:52

001402
016716
000002

21-NOv-78

15:40

164536

164550

BIT

#SWO9, ASWR

MOV

LOCK, (SP)

BEQ

1%:

PAGE 60

RT]

SEQ 0057

;TELETYPE OUTPUT ROUTINE

016352
014354

010546
017605
062766
105715
001406
105777
100375
112577

014410

000770
012605
0C0002

000002
000002

.TYPE:

000002

1%:

2%:

164512
164506

MOV
MOV
ADD

RS,~-(SP)
a2(SP) .RS
#2,2(SP)

BEQ

TSTB

BPL
MOVB
BR

MOV
RT]

(RS)

JLOOK FOR 'O

aTPCSR

cTEST DONE BIT

2$
(RS)+,3TPDER
1%
(SP)+,RS

;TYPE

(HAR

;DO IT AGAIN UNTIL '0"" IS SEEN

;ASCII STRING INPUT ROUTINE
014412
014414
014416
014424
014432
014434
014436
014442
014446

010346
010446
017667
062766
104402
000000
012704
012703
105777
100375
117714
142714

000004
000002

000010
000004

017460

000007
164432

.INSTR: MOV
MOV
MOV
ADD
LINSTY: 6YPE
.MSG:
1%:

164426

016670

000402
010346
010446
104402
016664
005737
001402
104402

000727
012604
012603
000002

#INBUF ,R6

TSTR

aTK(SR

BPL

QTKDBR, (R4)

BICB
CMPB
BNE

#200, (R4)
(R4) .425
2008

BR
CMPB

200%:

JINST1
(R4)+ 415

164376

2%:

BEQ

MOVB

TSTR

BPL
DEC
BNE

BR
.INSTE: MOV
MOV
.INSTG: TYPE
MOM
ST

016026
016670

#7.R3

TYPE ,MCRLF

000015
164374
164370

MOV

MOVB

000200
000025

R3,~(SP)

R&.-(SP)
a4 (SP)
, .MSG
#2.,4 (SP)

400%:

INSTR

@TKDBR,aTPDBR

QTPCSR

2%
R3
1%

.INSTG

R3,~(SP)
R4 .~ (SP)
SHRDSW

BEQ

4008

B8R

JINST1

TYPE ,MCRLF

INSTRZ: MOV
MOV
RT]

(SP)+,R4
(ZP)+ R3

JIS IT <2

(ZouC~D
CZbuCDd P

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

21-NOV-78

15:40

PAGE 61

SEQ 0058

; CONVERT ASCII STRING TO OCTAL
010546
010446
016605
012567
012567
012567

000004
000170
000166
000164

010566

000004

012704

017460

112567
112567

005005
122714

001420

000060

121427

000067

16427146
152405
122714
001414
006305

000060

122714

000015

005737
001023

016026

003012

006305
006305
000760
001003

MOVB
MOVB

104404

# INBUF
R4

BEQ

(MP8

PARERR:

020567

000046

020567

000036

101365

103762
136705
001357

LIMITS:

PARERR

(R4)
, 260

BGT

PARERR

ASL
ASL
BR

RS
R5
1%

(R4) 867

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

CMFB

#15,(R4)

;IS FIRST CHARACTER A <CR>

B8NE

TST

#RDSW
PART]

;1S CKSWR ROUTINE BEING USED

PARAM1

BNE

INSTER

(MP

120%

TO SEE

NUMBER

IS WITHIN LIMITS

RS, HILIM

BHI

PARERR

BLO
8ITR
BNE

PARERR
LOBITS.,RS

CTMMP

000036

#15, (R4)

PARERR

JTEST

014716
014722
014724
014730
014732
014736

BLT

BICB
BISB
(MPB
B8EQ
ASL

120%:

000742

MOV

CMPB

000015

(RS5)+,LOBITS
(RS5)
+ ADRCNT

RS ,4(SP)

CMPB

RS5,=~(SP)
R4 ,-(SP)
4(SP) ,RS
(R5)+,LOLIM
(R5)+ HILIM
(RS)+ ,DEVADR

MOV

PARAM1: (LR

000015

121427

002415
014650
014652
014656
014660
014664
014666
014670
014672
014674
014676
014702
014704
014710
014712
014714

000162
000157

.PARAM: MOV
MOV
MOV
MOV
MOV
MOV

RS,LOLIM
PARERR

:STORE NUMBER AT SPECIFIED ADDRESS
016704
010524
062705
105367
001372
012604
012605
000002

000000
000000

000026

000002

000017

PARTI:

LtCLim:

HILIM:

MOV
MoV
ADD
DECB
BNE
MOV
MOV
RT]

DEVADR,R4
RS, (R4)+
#2 RS
ADRCNT
1%
(SP)+ R4
{SP)+ RS

C20UC~D

CZDuUCD.P11
3037
3038
ggzg

014772
014774

MACY11

30A(1052)

18-JUL-7815:52

21-NOV-78

000000
000000
014775

15:40

JSAVE PC OF

014776

016667

000004

164170

.SAVOS: MOV

%822
015004
015010
015014

010567
010467
010367

164160
164152
166144

3051
3052
3053
3054

015024
015030
015034

010167
010067
000002

164130
164722

3057

015036

016700

164114

.RESOS: MOV

3059
3060
3061
3062
3063

015046
015052
015056
015062
015066

016702
016703
016704
016705
000002

164110
164106
164104
164102

MOV
MOV
MOV
MOV
RT]

015020

010267

SVOS:

164136

015042

015070

015072
015074
015076
015100
015102
015104

3075

015112

3076

3077

3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092

MOV
MOV
RTI

R1,SAVRT
RO, SAVRO

R2.SAVR2

016701

164112

MOV

SAVRD,RO

SAVR1 .R1

SAVR2.R?
SAVR3.R3
SAVR4 R4
SAVRS -RS

cCONVERT OCTAL NUMBER TC ASCII AND QUTPUT TO TELEPRINTER

3068
3069
3070
3071
3072
3073

3074

RS, SAVRS
R& . SAVR4
R3.SAVR3

:RESTORE RO-RS

2065
3067

THAT FAILED AND RO-RS

4(SP) , SAVP(

MOV
MOV
MOV

MOV

gggg

3058

TEST

:SAVE RO-RS

3047
3048
3049

3050

SEQ 0059

DEVADR: 0
LOBITS: O
ADRCNT=LOBI TS+1

3381212

ggzz

PAGE 62

106402

016670
010046
010146
010346
010446
010546

.CONVR:

015106

017601

000012

015120

062766

000002

015132
015136
015142
015146
015152
015156
015162
015164
0151720
015174
015176
015200
015204
015206
015210

112167
112167
013167
016704
116705
012700
010403
0462703
062703
110320
006204
042704
006204
006204
005305

015126

016767

012167

002402

000154

000152
000147
000144
000140
000732
017520
177770
000060

100000

TYPE

MCRLF
.CNVRT: MOV
MOV
MOV
MOV
MOV

164030

MOV

312(SP) .R1

ADD

#2.15(5P)

MOVB
MOVB
MOV
MOV
MOVB
MOV
MOV
BI(
ADD
MOVB
ASR
BIC
ASR
ASR
DEC

(R1)+.CHRCNT
(R1)+.SPACNT
3(R1)+.BINWRD
BINWRD
. R&
CHRCNT.RS
#TEMP RO
R R3
#177770.83
#060,R3
R3,(R0)+
R4
#100000, R4
R4
R,
RS

MOV

000C12

1¢:
2%

3%:

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

MOV

TEMP, TEMP3

(R1)+,WRDCNT

JSHIFT FOR NEXT #
:CLUGE TO STOP BIT 15 PROPAGATING.
DITTO
DITTO

MACY1] 30A(1052)
18-JuL-78 15:5¢2

017560

BNE

5%:

BEQ
MOVB

6%
#040, (R3) +

6%:

BNE
(LRB

5%
(R3)

TSTB

»H

—

MOVB
DE(B

DE(CB

TYPE
MDATA
DEC

BNE

002226

MOV

MOV
MOV
MoV
Mov

—

MOV
WRDCNT:

RT]

SEQ 0060

-(R0O), (R3)+
CHRCNT
SPACNT

SPACNT

WRDCNT
18

TEMP3,TEMP
(SP)
+ RS
(SP)+ R4
(SP)+,R3
(SP)+ ,R1
(SP)+ R0

CHRCNT: 0

+1
SPACNT=CHRCNT
BINWRD: 0

;COMPARE THE F]RST CHARACTER IN THE

TELETYPE

JBUFFER TO THE CHARACTERS ‘W' AND ''Y''.

INPUT

;IF THE CHARACTER IS '"WN'' CLEAR THE FLAG
JIF THE CHARACTER IS ''Y'' SET THE FLAG
017605

00213%2

000137

i
0021°6

.SETFLG:MOV

CMPB

015332
015334
015342
015344
015350
015354

177777
000002

015356
015360

@(SP) RS

#'N, INBUF

BNE
CLRB
BR
CMPR

1%
(RS)
;000
2%
#'Y,INBUF

MOVB
ADD

#-1,(RS)
#2,(SP)

INSTER
BR

LSETFLG

W
N
o

000000
000116

122767

BNE
RTI

JIS IT N
2

JIS IT "Y't
;377
;RETRY

JTRAP DISPATCH SERVICE

;ARGUMENT OF TRAP IS EXTRACTED
JAND USED AS OFFSET TO OBTAIN POINTER

b
ad —d e

015362
015364
015370
015374
015376
015402
015406

O‘\l\lwo*\l%

JTO SELECTED SUBROUTINE
[ Yo Yo No Yo, Yo Yo i

NOWVNB AN 2000 NOWNSWN=O

3143
3144
3145
3146
3147
3148

3%
#MDATA
R3

000024
163660

PAGE 63

BNE
MOV

000062

000040
000043

b
b

3135
3136
3137
3138
3139
3140
3141
3142

15:40

000055

od
b e
b
D
o
d
e —ad o
b
d =D
aod
b ed

NN AN A U

n
Co

31
3129
3130
3131
3132
3133
3134

21-NOv=78

(%)

purrd

|9,]

(¥,

015212
015214
015220
015222
015226
015230
015234
015236

NN AN NN NN AN (N NN AN N N N NN NNN

3093
3094
3095
3096
3097
3098
3099
3100

¢ZbuC-D
CZDUCD.P1N

000002
000000
177001

001366
000000

.TRPSR: MQV
TRPOK:

(SP) ,=(SP)

SuB
MOV

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

8IC

#177001, (SP)

MOv

a(SP), (SP)

ASL

ADD

cGET PC OF

RETURN

(SP)

;=PC OF TRAP
;GET TRP
JMULTIPLY TRAP ARG BY 2

#."RPTAB, (SP)

;POINTER

sCLEAR UNWANTED BITS

TO SUBROUTINE

< SUBROUTINE ADDRESS

ADDRESS

cZouC-D
CZ0UCD.P11

015412

MACY11

30A(1052)

18-JUL-78 15:52

21-NOv-78

15:40

000136

PAGE 64

JMP

a(SP)+

SEQ 0061

;GO TO SUBROUTINE

;ERROR HANDLER
015414
015416
015424
015426
015432
015434
015440

104413
032777
001061
021667

020000

163454

WHLT:

CKSWR

#SW13,aSwR

163502

HALTS
{gP).LSTERR

163474
163602

(SP) ,LSTERR
ERRFLG

1%:

;CHECK FOR *G
SINHIBIT ERROR TYPE OUT ?

(SP) ,RS

#2 RS
<§§).R4

000002

(R5) ,R4

Ré

177001
020274
000040
000046
000054

#177001,R4

#.ERRTAB
R4

MOV
< MOV

163532

TST8B

BEQ

000042
TYPMSG:

177777

ERRMSG:

000004
b ad
b

#-1,ERRFLG

TYPE

TST

DATAHD: 0
TYPDAT: TST

000004

BEQ
CONVRT
DATABP: 0
RESREG: RESOS
HALTS:
TST
8PL
PUSHRO
MOV

d md

MOVR

TYPE

163304
000002

163314

015650

DATABP

BEQ

d
—b e

RESSSY SYRRREV28BEIRNAR

ANNANINANANAN

b ed

d md

AN AN AN AN AN AN N AN AN AN NN N

3183

000400

163254

002000

163244

163254

163250

001100

163240

HALT
POPRO
EXITER: CKSWR
INC

1$:

TYPMSG

TST
BNE
CONVRT

ERTABO

163510

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

BIT
BNE
BIT
BEQ
MOV
MOV
JMP

TYPDAT

DATAHD
TYPDAT

DATABP
RESREG

aSwR
EXITER

2(SP) RO

ERRCNT

JCHECK FOR *G
-

1§UOS.SSUR

;LOOP ON ERROR ?

#SW10,aSwR

;ESCAPE TO NEXT ON ERROR ?

NEXT ,RTRN
#_TACK,SP

aRTRN

JSET UP FOR NEXT TEST

SREINITIALIZE

cZDuc-D
cZbuch.pP n

3205

015654
015656
015660
015662

015704
015710
015716
015720

MACY11

30A(1052)

18-JUL~-78 15:52

000002
000001
006
001174

21-NOV=-78

15:40

2%:

RT]

PAGE 65

ERTARC: 1
BYTE

002

SAVP(

SEQ 0062

6,2

JENTER HERE ON POWER FAJLURE

010046
010146
010246
010346
010446
010546
016746

LPFAIL: MOV
MOV
MOV
MOV
MOV
MOV
MOV
162106
1¢:

;SAVE RO-R5 ON PROCESSOR STACK

RO,-(SP)
R1,-(SP)
R2.-(SP)
R3,-(SP)
R4 ,-(SP)
RS,~(SP)
24,-(SP)

MOV
MOV

SP,SAVSP
#RESTART,
24

HALT
BR

sPROCESSOR WILL

3226
32

015722
015726
015730
015732
015734
015736
015740
015742
015750
015756
015762
015766
015772
015774
015776

163244

015664
000340
001100
001532
001526

RESTAR:

162054

000000

016030
016034
016036
016044

005737
001042
022767
001036

MOV

1%:

MOV
CLR
INC
BNE
CONVRT

PFTAB
TYPE
MPFAIL
CLR
PFTAB:

002

016026

MOV
MOV
MOV
MOV
MOV
MOV

MOV

162020

163236
163120
163074

016024

MOV

#_PFAIL.24

sSET UP FOR POWER FAILURE

#340,PS

000176

.(KSWR:

163034

STA(CK POINTER

JRESTORE RO-R5

#STACK,SP
TEMP
TEMP
1%

BYTE

6,2

JCHECK SWITCH REGISTER ROUTINE.
,OF LOC.176.,
;LOCATIONS USED:

000042

IS RESTORED

SJRESTORE

(SP)
+ RS
(SP)+ R4
(SP)
+ ,R3
(SP)+ R2
(SP) +,R1
(SP)+ R0

ERRFLG
LSTERR
aRTRN

RTRN

WHEN POWER

SAVSP,SP

CLR
JMP
1

TRAP HERE

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

RDSW:

WORD

TIST
BNE
CMP
BNF

a2
ouT
#_ REG,SwR
our

(HECKS FOR “G TO ALLOW CHANGING .

;SOF TWARE SWITCH REGISTER PRESENT
;NO, GET OuT

c20uC-D
CZDuCD.P1

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

3261
3262
3263

016046
016052
0160546

105777
100033
017767

3265
3266
3267
3268
3269
3270
3271
3272
3273
3274

016070
016076
016100
016104
016110
016114
016120
0161246
016126
016130

122767
001021
104402
005137
104402
104411
104403
104405
000000
177777

3264

016062

042767

3275
3276
3277
3278
3279
3280
3281
3282
3283
3284

016132
016134
016136
016142
016146
016150
016152
016154
016156
016163

000176
000
104402
005037
000002
000001
006
000176
005015
015

3286
3287
3288
3289
3290
3291
3292

016173
016200

040
020075
016204
005015
020061

3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
33164
3315
3316

016236
016244
016252
016260
016266
016274
016302
016310
016316
016324
016332
016340
016341
016346
016354
016362
016370
016376
016404
016412
016420
016426
016434

016206
016212
016220
016226

21-NOV-78

15:40

163032
163026

176352

000007

176336

177600

176344

016156
016026
016163
016150
016173

001
016670
016026

TSTB
8PL
MOV

81C

aTKCSR
ouT
@TKDBR, .MSG

#177600. .MSG

cMPB
#7,.MSG
BNE
ouT
TYPE ,$CNTG
.CNTLU: COM
aNRDSW
TYPE
, SMSWR
CNVRT, SWREGC
INSTR, SMNEW
PARAM
0
177777

SEQ 0063

JYES ,WAIT FOR
;READY, GET CHARACTER
JAND STRIP OFF

; THE GARBAGE

SIS IT A <*6>

SWREG

.BYTE

000
051127

0,1
TYPE ,MCR.F
ouT:
CLR
ANRDSW
RTI
SWREGC: 1
BYTE
6,2
SWREG
S$CNTG:
L.ASCIZ
<15><12>/*G/
SMSWR:
.ASCIZ
<15><12>/SwR= /

053505

SMNEW:

.ASCIZ

.EVEN
MTITLE:

.ASCIZ

<15><12><12>/DU11

MVECTO:

.ASCIZ

<15><12>/VECTOR ADDRESS-/

MREGAD:

.ASCI2

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

_ASCIZ

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

.ASCIZ

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

002
043536
051412
000
0647040
000

PAGE 66

026503
0425%0
000012
005015
051117
042522
005015
042504
020072
053111
047117
051040
042526
051888

042012
055103
020104
041440

030525
052504
040524
006440

042526
040440
051523
051461
044526
042522
051105
051126
043505
020122
051505

052103
042104
000055
020124
042503
042503
061440
046117
051511
042101
026523

015
054440
047125
046440
046120
044526
020077
020122
005015
042040
035105

040412
052517
044516
046125
020105
042503
054450
024516
040514
053105
042522

042522
051040
0463516
064524
042504
020123
047440
000055
052123
041511
062503

MMULT:

MLASTD:

NEW= /
CZDUC-D TAPE C /<15><12>

(Y OR N)=/

\h—-‘

21=-NOvV-78

15:40

PAGE 67

SEQ 0064

N
W —=\N—b

VIO

»H

ONONO

016442

52)

3317

¢Zbuc-D
CZbucD.P11

DEVICE:

LASCIZ

/=DEVICE

MCOW:

.ASCIZ

<15><12>/H0W NOW BROWN COW?

:
MRANGE

LASCIZ

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

MQM:
:
MCRLF
MPFAIL:

ASCIZ

LASCIZ

/Y
<15><12>
/
POWER FAJLURE,

...SELECT SOMETHING TO RUN @ACTREG/

047125
051124
052125
040522
042522
046040
042504
051040
040440
051523

053517

LASCIZ

MEPASS: LASCIZ

005015

55
020043

PROGRAM RESTART AT

TEST

IN PROGRESS/

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

MR:
MTSTPC:

ASCIZ
LASCIZ

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

MLOCK:

JASCIZ

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

MLEVEL:

LASCIZ

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

MSYNC:

CASCIZ

<15><12>/# OF

(Y OR N)=/

053105

043117

SYNC

CHARS SELECTED

(

OR 2)-/

CZDUC~-D
CZDUCD.P11

017122

MACY11

30A(1052)

18-JUL~78 15:52

21-NOV~78

15:40

PAGE 68

SEQ 0065

051440

020122
051511
054040
052512
021440
020077
020122

051511

MWIREG:

.ASCIZ

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

(Y OR N)=/

051440
041505
042520
044440
020131
026451

MWIRES:

.ASCIZ

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

020123
046103

MWIRES:

.ASCIZ

<15><12>/1S OPT CLR ENABLE JUMPER #4 IN?

MEXTJ:

LASCIZ

<15><72>/1S THE

MSTATUS:

.ASCIZ

024516

(Y OR N)=/

041101

024040
047040
020123

042524

TEST CONNECTOR

INSTALLED ?(Y OR N)=/

047117
051117
040524
037440
020122

RRRRRRRY R

BURURTRN RS Pt

3409

017456

000015

020040

020040
051525
050101
005040

<«12> <15>/

STATUS

MAP

/ <12> <15>

.EVEN

;BUFFERS FOR INPUT-QUTPUT

017460
017520
017560

000040
000040
000040

INBUF:

TEMP:
MDATA:

.BLKB

BLKB
.BLKB

40
40

;t*ttt**t*tkttttttatttfitt*'ttttttitfit*titttt*tttiittttttttt'fi

SJUTILITIES

;ttttttttt.fitttfi'ttltttitt'fi'titttltkttttttttiit'tttttfitttlt'

017620
017624
017630

006367
006367
006367

000044
000040
000034

s THIS UTILITY

DULEV:

ASL

ASL
AS|

CALCULATES PRIORITY LEVEL

DUPRT

JSHIFT LEFT

DLPRT
DUPRT

;
:

8% RN
JERRGR

Ry R
RRRRRRRRRRRRRRRELRR

IS BEYERRUK
LS

¢2ouc -D
CZoucD. P11

017634
017640
017644
017652
017660
017666
017670
017672
017674
017702
017706
017714
017720
017726
017734
017740
017746
017756
017760

MACY11

30A(1052)

006367
006367
016767

000030
000024
000020
000001
000037

18-JuUL~78 1 5:52

162767
042767
000207
000240
000200

016767

21-NOv-78

15:40
ASL

ASL
MOV

000020
000012
000004

SUB

g{g
DUPRT:

LESST:
000126

PAGE 69

000422

LEVELS

LEVELG

SEQ 0066

DUPRT

DUPRT
DUPRT,LESS1

037 LESS?
LEVEL

INC

DUBASE

INC

DUBASE

MOV

000402
000400

MOv
MOV

000364
000362

000352

TO ALLOW iNTERRUPTS

000332

:
DUBASE

DUBASE ,HRXCSR

;XXX

DUBASE ,RXDBUF
DUBASE ,PARCSR

; XxxX2
;XXX2

DUBASE
,
TXCSR

s XXX4

OUBASE
DUBASE ,HRXDBUF ; XxX3
DUBASE ,HPARCSR ; XXX3
DUBASE

INC
MOV
INC

DUBASE
DUBASE ,HTXCSR
DUBASE

MOV

DUBASE , TXDBUF

STS

INC
MOV

000322

BIC
CLR
ASR

016767
005067
012727
000000

161022

0DDS8:
(%:
1%:

103404

TEMP]
TEMP2

DATA BASED UPON

TEMP2

:SHIFT

BNE

RPOKE

#CLK,3TXCSR
#CLK,aTXCSR
SHIFT

RTS
PC
;THIS ROUTINE

MOV

THE

;FORCE CARRY
;PICK UP CARRY IN BIT 15

#BIT15,TEMP?
TEMP2,aTXCSR

TEMP3’
#8.,(PC)+

ROR
ADC
DEC

TEMP2
TEMP3
43

ROR
BCS

TcMP3
2%

INTO BIT

;CLR BIT 15
;POKE MAINT DATA
;POKE CLK
;

CALCULATES OCD PARITY

TEMP1, TEMP?

CLR
IgOV

BNE
020160

THE MAINT

AMTDATA ,@TXCSR
TEMP?2

BIC
8IS
BIC
8IS
DEC

020112
020114

;XxX6

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

ROR
ROR

161062
000246
000240
000232

; XXX5

DUBASE
DUBASE ,HTXDBUF ; XXX7

sTHIS UTILITY POKES

RPOKE:

JXxx0

INC
MOV
MOV
INC

MOV

000342

020116

SCLEAR TN2VC

;NEW DU ADDRESSES
DUADDR: MOV
DUBASE ,RXCSR

000412

000302

;MOVE THIS TO LESS?
“CREATE LESS?

#1 LESST

;SAVE TEMP]

FOR AN 8 BIT

(HAR

MACY11

30A(1052)

020162
020170
020172

052767
000403
042767

000400

160754

000400

160744

020200

000207

020202
020210
020214

016767

160736

012727
000000
006067
005567
005367

000010

006067

160704

052767

000400

160670

042767

000400

160660

CZ0UC~D
CZDuCD.P 1"

3487

3494

3495

020220

3497

020226

3496

3504

020222

020256

18-JuL~78 15:52

15: 40

2%:
3%:

160734

160736

EVENS:

2%:

3%:

020266

062716

020272

000002

020274

000002

PAGE 70

BIS
BR
BIC

TRPREG:

.ERRTAR:

#8IT8, TEMP1
33
#8178, TEMP1

;SET ODD PARITY
;CLR EVEN PARITY

MOV
CLR
80V

ROR
ADC
DEC
BNE
ROR
8CC
BIS
BR

BIC

§¥§MP1

ADD
RTI

CALCULATES EVEN PARITY FOR AN 8 BIT (CHARACTER

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

;SAVE TEMP1

TEMP?
TEMP3
3]

1$
TEMP3
2%
#3178, TEMP1
3s
#3178, TEMP1

;SET EVEN PARITY

:CLR ODD PARITY

Ngg HAS EVEN PARITY CHARACTER
#2,(SP)

JERROR HLT TABLE
SMO

0
EMI
DH1
DT1
EM?
DH1
DT1
EE?

020322

SEQ 0067

é}gflP1 Ng? HAS 0DD PARITY CHARACTER

;THIS ROUTINE

A ¥
1%:

160720
160716
177762

020264

3508

21-NOV-78

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

BIT ERROR

;HLT 1

;HLT 2

RECEIVER ERROR

JHLT 3

TRANSMITTER ERROR

DT1

:DEFAULT DU ADDRESSES

020324
020326
020330

RXCSR:
160049
HRXCSR: 160041
: 160042
RXDBUF
:
HRXDBUF
PARCSR: 160042
HPARCSR:
TXCSR:
1600644
HTXCSR: 160045
: 160046
TXDBUF

020346

:
HTXDBUF

020350
020352
020354
020356

DURIV:
DURIS:
DUTIV:
DUTIS:

000776

160043

160047
-DEFAULT DU VECTORS

770

772
774
776

;REC INTR VECTOR

:REC INTR STATUS
SXMIT INTR VECTOR
SAMIT INTR STATUS

;ERROR MESSAGFS

(GENERAL)

036440
051117
036440
051511
051105

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

gEe2smm?
2R

cZbuc-D
CZouchb.P1N

21-NOv-78

15:40

PAGE 71

SEQ 0068

EMO:

.ASCIZ

/ = ERROR PC/

EM1:

LASCIZ

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

EM2:

LASCIZ

040522
052124
051122
006503
044507
020040

EM3:

LASCiZ

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

041505
040440
000114

DH1:

;DATA HEADERS FOR ERROR MESSAGES
LASCIZ
/EXPECTED
ACTUAL/

051122
000103

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

042524

020544
020545
020552
020560

020566
020570
020572
020574
020576
020600
020602

050130
020104
040525

004

.EVEN

DT1:

004
002
.END

.DATA TABLES FOR ERROR MESSAGES

.BYTE
SAVR3
.BYTE
SAVRO
BYTE

SAVR1

6,4
REGISTER
6,4
_EXPECTED DATA
6,2

;ACTUAL DATA

CZDUC-D
CZ0UCD.P1M
AAA
ACTREG
ADDBAS
ADDKEE
ADDLAS
ADDROT
ADRCNT=

002520
001216
001306
001310
001312
001322
014775

BASEAD
BASEDU
BASEIV

(001204
001364
001212

A10010=

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

wxexex

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

SEQ 0069

11784
8984
9384
9394
9%.0#
L4Ln
2991+

1062«
1058
1059
1060
1063
3030«

1126*
1225%
1226+
1227+
1231+
30394

1140+«

1141+

1148+

1230

2826

2829

2839

8934
9614
Bo6k

1058+
1072
1064x

1065+
1238~
1778+

1108«

1145+

1146

1152+

1154

1225

2833«

2845+

2849

1229

2834v

284or

2851

2852+

2853

2854+

2855

2856+

2857

1125
3080«
8084
7564
7554
7464
7454
7440

11294
3081

31184

1851

1896

7624

770

677

BB8
BINWRD
BITWw
=
BITO
=
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
BIT2 =
BIT3 =
B8IT4
=
8ITS
=
BIT6
=
BIT? =
BIT8 =
BIT9 =
BREAK =

002336
015312
002000
000001
000002
002000
004000
010000
020000
040000
100000

BRW
BRX
BUFFT
BUFHRX
BUFHTX
BUFRXD
BUFTXD
BYJMR
CARDET=
CcC
CHRCNT
CKSWR =
Lk
-

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

000010
000020
0
000100
000200
000400
001000
000001

7638
7614
7544
7534
7524
7514
7504
7494
7484

7474

8154
1832

2322

1290
1291
67748
9544
9604
9534
9594
9344
7724
2825
3078«
9934
8074
1423
1538
1633
1756
1842

2007
2085
2223
2331

784
783
/74
773
772

815

808

780
779
778
777
776
775
1336
1877
2359
1304
1305
1267
1076
1082
1075
1081
1057

789
788
787
786
1293
814
813
812
811
810
792
791
1376
1922
2396
29194
29204
1273
1242+
1248+
12641+
1247%
1224%

2848
3082
2878
1336
1425
1544
1634
1757
1877

28654
3096+
2900
1342
1426
1545
1664
1759
1883

771

769
782
781

2008
2112
2224
2332

2010
2118
2251
2359

807
806

805

3467

809

3485

3487

3502

3504

1416
1961

1456
2001

1495
2038

1538
2075

1581
2112

1624
2149

1664
2183

1707
2217

1750
2251

1793
2285

31164
2924
1343
1456
1547
1670
1760
1884

3117
3153
1345
1462
1548
1671

3196
1346
1463
1581
1673
1799
1887

1376
1465
1587
1674
1800
1922

1382
1466
1588
1707
1802
1628

1383
1495
1590
1713
1803
1929

1385
1501
159
1714
1832
1961

1386
1502
1624
1716
1838
1967

1416
1504
1630
1717
1839
1968

1422
1505
1631
1750
1841
2001

2443

2011
2119
2257
2365

2540

1793
1886

2038
2121
<258
2366

2640

2044
2122
2285
2368

2740

2045
2149
2291
2369

2047
2155
2292
2396

2048
2156
2294
2602

2075
2183
2295
2403

2081
2189
2322
2405

2082
2190
2328
24606

2084
2217
2329
2443

¢ZDUC-D
CZDbuCD.P11

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

COUNT
CSRHPA
CSRHRX
CSRHTX
CSRPAR
CSRRX
CSRTX
CTs
D
DATABP
DATAHD
DEVADR
DEVICE
DH1
DISPRE
DL IGHT=
DMULT

1055
1040

3270

1276

2013«
2234x
ch76%
2692
1266
1078
1074
1080
1077
1073

L8 2 84
2

015564

015552

014772
016501

DSINTE
DSR
DSWR

DT1

ERTABO
EVENS

EVEPAR=
EVPAR

2540
2751

2548
2752

2822

3176

3187
2058+
2297«
2496
2745~

3239
2087+
2305

2761«

1222*

2021«
2260%
2492«
2694

1079

2174
3181
3027
33234
3519

3185
31844
30374
_
3522

2549
3469

2552

2640

2132
2371«
2592+
2794

2545~

2648

2649

2651

2166+
2408~
2596

2192«
2416#
2645

2200+
24487
2661«

3444

3445~

3446

24646

31884

35634

1223~

3523

3568#

1106

1238

2849+
3451

3439
3452«

3440+
3453

3441
3454%

3442+
3455

3443
34574

1170
1234
1114
1236
1235
1459

1232
2853«
1117
2857«
2855+
1627

3426*
35374

34627+

3428«

3429+

3430+

3431

34354

1118

1233

2851

2858

35364

1796

1835

1880

1925

1964

2115

2254

2399

1014
1013«
31804

3197»
2867~

2913«

3159

3172

378+

3243

1584

427

1835

1925

2446

2543

2643

2743

3520

DUADDR
DUBASE

ERRCNT
ERRFLG
ERRMSG

2455
2749

SEQ 0070

1023

DTR

EMO
EMI
EM2
EM3

2454
2748

1278+
1244%
1240«
1246%
1243«
1239+
1245=

1033
1024
1056

DNA
DNAINT
DSC

DULEV
DUPRT
DURIS
DURIV
DUTIS
DUTIV
EIGHT =

15:40
PAGE 74
CROSS REFERENCE TABLE -- USER SYMBOLS

2452
2740

CLROPY
CNTLU =
CNVRT =
CONVRT=
COUNT

21-NOv-78

2850

34394

3448+
34264

3449

1103

017620
017670
020352
020350
020356
020354

006000

020360
020374
020436
020500
001132
001246
015540
015656

35414
3543
35494
35554

32064
1935

1498

34924

1541

3450«

35394
35384

CZDUC-D
CZOUCD.P11
EXITER

015610

FILBUF
003204
FIVE
= 000000
FLAG
001222
FRMERR= 020000

MACY11 30A(1052)
18-JUL-78715:52
3191

1272
1339
1088*

2710

2804

2807

12594
3018

3036w

1264%
1065+
1264
1240
1242
1246
1548
2911

1280
1281
3447%
3441+
3446+
3451~
3455%
2915w

788

015570

HEREU
HILIM
HOLD
HOLDO
HOLD1

003132
014770
001136
001224
001226

1218
2988+
8674
9074
9084

020342

1080*

HPARCS
HRXCSR
HRXDBU

020336
020326
020332

HTXDBU

020346

HTXCSR

ICOUNT
INBUF
INIFLG
INSTER=
INSTR =

3155

8144

1078+
1074%
1076%
1082*

1352

31904

1498
1259

1392

1667
1263+

1432

2810

2963
7964

29784
1332

IVBASE
IVKEEP

001314
001316

1835
2536
91N
942#

1873
2543
1064
1061

2636
1229+
1208+

2643

001206
001214

894#
8974

1059+
1061+

1065
1117+

1106+
1228

1033«

2869+

30384

3039

JMRBY

001203

LASTAD
LESST
LEVELO=
LEVEL1=
LEVEL2=
LEVEL
3=
LEVEL&=
LEVELSLEVEL6=
LEVEL?=
CIGHTS
LIMITS
LOBITS
LOCK
LOGICA
LOKFLG
LOLIM
LPCNT
LSTERR
L1ESS
MAP
MCOWw

001270
017672
000000
000040
000100
000140
000200
000240
000300
000340
001102
014716
014774
001120
014114
001247
014766
001124
001134
001336
001634
016513

KEEPAD
KEEPIV

8894

8954
1070*
7668
7654
7648

7634
76208
7618
7604
7594
8474
3006
2990+
8574
28734
9224
2987+
8594
8634
o504

1037
2828

1057+

1060+
1237

2288

2743

1472

2504

2507

2510

2604

2607

2610

2704

2707

35344

INSTR2 014554
1SYMOD= 000000

1586

2152

35320

858¢
1181
9194
o794
e

1185
1019
1189
1098

20064

35304
35264
35284

001122
017460
001244
104404
104403

1577

SEQ 0071

31964

1269
7974
9064

HALTS

HDXEN = 000010

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

2952
1022
3013
1105

2994

3126

3130

3418#

3135
7115

1130

1155

1165

1179

1192

1196

1200

1206

1295

1339
1620
1880

1372
1627
1997

1379
1660
2004

1412
1667
2034

1419
1703
2041

1452
1710

2071

1459
1746

2078

1491
1753
2108

1498
1789
2115

1534
1796

1541
1828
2446

1108
2846

1152

"°S4

1226

2845

1207

1135
331x

1224

1146
3632«

273

2743

1160
3433«

1227
3436w

2914+
3158

324Le

3436
3435
1024+
30184
3022
2907
1298
3020
1010+
1015+
1070

1039
33254

1299
30354
2910*
2866+
1237+
1047#

2911
2156

2439

9 V)
CZDUCD.P11
MCKLF

MDATA
MEPASS
MEXT
=
MEXTJ
MINT

016670

017560
016760
010000
017351

= 004000

MITSEX
MLASTD
MLEVEL
MLOCK
MMULT
MPFAIL
MQM

MR
MRANGE
MREGAD
MRESET=

001301
016420
017067

017024
016341

016673
016664

017005
016603
016260
000400

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

MTITLE
MTSTPC

MALTD
MVECTO

MWIRESL
MWIRES
MWIRES
NEXT

016204
017011

001202
016236

017275
017230
017162
001116

NOPAR = 000000

NOSYNC

001300

ooD8
ONCE

020116
00°52?2

ODDPAR- 001000

OPTCLR
out
OUTCRY
OUTMUL
OVRRUN=
PARAM -

PARAMT
PARCSR

001201
016142
014054
002476
040000
104405

014622
020334

2960

3094
2821
8194
1205

34014

1832
2322

1877
2359

818¢

930#
113
1166
1296
1120

3242
2973
1318
1156
1099
8094

3105
33554
1336

1053
33144
3368#

2976

3068

1376

1416

34204

1922
2396

1220+

1961
2443

33454

1456

1495

2001
2540

33464
33440

1576
1829

2319

2354

1538

2038
2640

2075
2740

2109

34094

1333

1371

1373

1411

1413

21446

2146

2178

2180

2212

1619
1874

2356

1621
1917

2391

33724
1336

1376

1416

2322

2359

2396

2443

8884
1110

1056+
3294LH

1456

2438
149

1702
1958

2440
1538

2038

2075

1122

1123

1223

1287

2824

1370+

1410+

1450+

2353

2390

2437«

2288

2325

2362

2399

8024

1667

1710

2316

8014

929#

1893
1020

887#
3258
2822
1128
7874

9814
29934
1077~
1541«
1828+

2078«
2318«

32894
33604

33934
33864
3379«
1330+
1871«
1339

1052

1974
10234

1055«
3260
28614
1153
2504
1100
3014
1243
1577«
1835«

2108x
2325«

1922

2393

1661
1956

2001

1201
1197
1193
8564
1826+

1877

1659
1919

1961

1021
1309

1581

1624

2112

2149

1451

1453

2214

2246

1664

1707

1750

1793

2183

2217

2251

2285

1490

1492

1533

1535

1262
1180
8064

1832

3277

SEQ 0072

33624
33064

33594
33354
32974
1331
1578
1872

2107
MSTATU
017426
MSYNC
017114
MTDATA= 040000

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

2540

2640

2740

1704
1996

2535
1581

1745
1998

1747
2033

1788
2035

1790
2070

1827
2072

2537

2635

2637

2735

2737

1624

2248

1664

2280

1707

2282

1750

2317

1793

2°12

2149

2183

2217

2251

2285

3462

1995x

1489«

1532+«

1575+«

1618+

1658+

1701*

1744*

1787+

2032+«

2069*

2106%

2143x

2177=

2211x

2245«

2279«

1459

2004

2041

2078

2115

2152

2186

2220

2254

1753

1796

1880

1964

1203
3262

1222
3266

32784

1164H
2604
1M

2704
1132

2004
1157

1167

1310

1332«

1339«

1372«

1379+

1412*

1419%

1452+«

1459

1498*

153w

2213
Q446+

2220%
2536+

1916+

1379

1219«

34754

1584
1873«

2115+
2355+

1955+«

1419

1620*
1880+

2145«
2362+

2534«

1627«
1918+

2162«
2392x

2634r

1660+
1925+

2179«
2399x

2734+

1667+
1057+

2186+
2439x

2B96

2916

3202

3272

1703«
1964*

1710
1997«

1746%
2004*

2247+
2543x

1491«

1755+
2034*

2254+
2636r

1789+
2041+

Q281+
2643r

1796+
2071w

Q288+
D736+

2869

1071
1007«

1232+
1212+

2877+

3234

3011

32544

3268~

3278«

1139+
1470

AREWERE

RUNF

wenxanw

013664
020324

RXDBUF

RXDONE

020330

000200

2012«
2162
2326
2546%
3439«

2017
2187+
2333«
2553«
35254

1668«

RUNIT
RXCSR

1241
1592
1854

2644

1680

1351
1601
1888

2664

1808

2161
2601

2195
2656

2229
2677

2263
2701

2756

1853
2337
2777

2896+

2897

2916+

2917

3202+«

3204

3245

2054
2221*
2370~
2646

1499+«
1766

2079+
2225+
2375
2653

1542+
1809

1585+
1881

1393
1675
1938

1431

1471
1727

1319
664
664

669
669
669
1420«

1723
2049~
2196

2563
2578
139
1644
1930
C744

1460+
1754«

2764

1684
1969

2782

2091
2255+
2407
2678

2447
35274

1765

2127
2577

wanxexe

RUNE

2843«

2839

1722

= 000000

RUND

2836+

PN
— —
NSV —=00WN
SN
MOV

RUNC

70
70
70
70
73
73
2840
1340«

1317«

1231
1679

nN——=
SN
ONONN
N=W

tatxwnwn

1313

1151+
1639

wmanwwnx

RUNB

cCcc

= 000004

RUNA

53
53
53
58
58
58
28334
1239

1017«

2016
2480

1148
1596

001114

1430
1976
2459
3472

RTRN

1390
1937
2411
34628

NOOON~N—

001220
020030

1234«
1233«
1127%

ROTADD
RPOKE

RTS

1067
1066
1063«

001326

2574

WNOOW

RIVDU

2510

PURURUAY
— —

RINTEN= 000100
RISDU
001334

2504

28774

RESOS = 104407
RING
= 040000

015722
014124

2477

1221

1054

31894
32264
2871
3189

019

1676

2774
3021

1230~

RESTAR
RESTRT

001302
015566

%710

28494

RESEC
RESREG

1062

2847

3192

b ad

PUSHRO= 010046
PUSH1S= 005746
PUSHZ2S= 024646

—b cd

3195

016026
004000
001320
013760

1636

2868+

1012«

POPRO = 012600
POP1SP= 005726
POP2SP= (22626

RDSW
RECACT=
REGACT
REPLAY

1593

2704
30094

32464

PRTDU
001324
PS
= 177776

1550

2674
3000

Vi
—
-2 00 0000

014676
014760
001130
016020

35294

Nf\)—l—l
WDNO
N —
O\Vh—
&~
SIWo
=

1507

2610
2998
30324

SEQ 0073

W
— =

34446

NN —=O~NIW
NS =00
NOO
=N —=O

PARERR
PARTI
PASCNT
PFTAB

7914

POPNUNUN)
— —

2743

PAREN = 001000
PARER = 010000

6
15:40 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

21-NOv-78

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

ONWN
WWVY
VN

(Zouc-D
CZDuCD.PIN

1628+
1965

2123+
2264
2449+
2753+

2153«
2296+
2460
2778

1506
1770

1549
1813

2485

2564

CZoUCDh.PI

MACY11

18-JuL~78 15:52

RXERR = 100000
SAVPC
SAVRO
SAVR1
SAVRZ2

SAVR3

7864

2477
2804

001174
001156
001160
001162

001164

SCOP1 = 104401
SEND
= 000020
SETFG

003144

SEVEN = 004000
SEXMIT
001177
SHIFT
001140

SIX
=002000
SPACNT= 015311
SRD
= 002000
STACK = 001100

STATUS

001300

STD
= 000010
STFLG
001245
STPSYN= 000400

Sv0S
SWR
SWREG
SWREGC
SWw00 =
SW01
=
SW02 =
Sw03 SWO4
=
SWO5
=
SW06
=
Sw07 =
SWO8 =
Sw09 =
SW10 =
SW11
=
Swi12 =
Sw13 =
SW14
=

015004
001100
000176
016150
000001
000002
000204
000010
000020
000040
000100

000200
000400
001000
002000
004000
010000
020000
040000

3048+
3047+
3219+
3160
1360
1908

PAGE 78

3049+

1392

2507
2810
3208
3057
3058
3059

1432

2510

3060

3570

1400
1947

1440
1986

3061
3062
3226

2381

24618

2512

8864

1054+

1199

1221

9914

1121

1194

1198

2336«
2776%

7984
3079~
774M
728+

9294

7814
9204
7764
2456
30474
8464
3154
8374
3270
7084
7074
7064
7054
7044
7034
7024
7014
7004
69
6984
6974
696H
6954
6944

12624
1419
1053«
1347«
1891«

1584
1195
1387+
1933«

1472

1507

1550

SEQ 0074
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+

3572
3574

2344

799%
8854
8684
1846

1352

2504
2807

8794
880#
8814
9834
9714
1863

1260

SETFLG= 104412

15:40

CROSS REFERENCE TABLE == USER SYMBOLS

3043«
3052«
3051+
3050

G73n
813

001200

21-NOV-78

8824
8754
8764
877#

878%#

SAVR4
001166
SAVRS
001170
SAVSP
001172
SAVOS = 104406
SCOPE = 104400

SEREC

30A(1052)

2612

1202

2712

1206

2812

1297

1753
1220
1427+
1972+«

2078

2220

2362

2543

1467«
2015+

1508+
2052+«

1551«
2089+

1594x
2126%

2186

2325

2643

2373
2799%

2410%
3471«

2457«

1541
3101

1710
3117#

2041

1008

1284

3203

3235

1011«
2012

2049

2086

2123

2157

2191

2225

2259

2296

2333

2370

2407

1028
3198
1038

1032«
3200
3259

1038
3259
3275

1047

1085

1217

1293

1306

2901

2908

2925

-e

1379
3098

1268

2553

1023+
3190
1032
32804
1085
1306

1271

2653

2753

2479%

2499x

2554+

2576%

2599x

26S54x

2676%

3282

1047
3198
2925
3200
2908
3154
2901

1217

2699+

2754%

001176

SYNINT= 030000

SYNSCH=

6
15:40 PAGE 79
CROSS REFERENCE TABLE =-- USER SYMBOLS

21-NOV-78

884#

1219
1964

7954
7944
7804
1836

2325

1460
2005
2546

2326
8204

SYSTST=

TABLE
TEMP
TEMPT

9104

3075
870#

3237+«

2193+
2555+
2775«

2335«
2606+*
2809«
3467%
3480+

1468+
1895=

1847+

TEMP?
TEMP3
TEMPS

SEQ 0075
N0

SYNCNO

SYNEXT=

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

ASEdaV
1, N ]
—=\N(N—
— 000~

cZbuC-D
CZouU(D.P11

1595+
1973«
2458«

2675«
3485+
3479«
3497~

2220

2247

1711
2221

2255

1721

1754

1764

2125+

2088+
2503+
2706
3502+

2506+
2709+
3504«

1657+
2176~

2210+

2254
1797

2289

1807+

2159+
2509
2755+

TEMPS

TISDU
TIVDU
TKCSR
TKDBR
TLAST =

3263

TPCSR
TRPOK

0000 NN NWWO0O

N OOWAROWN—=~N

WW NN
S NS =N

N I =PuPONLNLNONON
s W
WO NN —

—d e

00800000
pur Qg

TST1
TST10
TST1
TST12
TST13
T1ST14
TST15
TST16
TST17
TST18
1ST19
TST2
1ST20
TST21
TST22
TST23
TST24
TST25
T1ST126
1S127
TST28
TST29
TST3
TST30
TST31

P
e AN
=

TRPREG
TSTNO

1369~
1915

2389+
2879

1409+
1954«

2436+
2880

1449«
1994«

2533~

1488«

2031«
2633

1531«

2068+
2733

1700~

1743«

2244

CZ0UC-D
CZDUcb.P11

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

T1ST32

013214

TST4

004152

T1ST6

004512

1489

1531

TST19

005246

1618

1657#

TST33 =

TSTS

TS17
TST8

wweese

2734

004326

1450

004676
005062

TTST
TXCSR

2634

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

014230
020340

1410

1532
1575

1290+
1079«

1383+

1662
1538«
1621«
1702+
1760«

020344
000200
000100
015554
104402

TYPMSG

015524

uP
USER
=
vOID
=
WRDCNT
ZERO
$CNTG
13
=

003224
000000
000001
015306
013672
016156
000042

016173

MSWR
(016163
N
0

1574
16174
1291«
1245

13071+«
1331«

1302«
1333«

1304*
1336x

1305«
1342+«

2902#
1343«

1463
1544+
1624«
1704»
1788+

1465+
1545«
1630
1707«
1790«

1466*
1547+
1631+
1713»
1793+

1490r
1548+
1633~
1714 %
1799«

1492«
1576«
1634
1716+
1800+

1495«
1578+«
1659%
1717=
1802*

1961x

1967«

1968«

1996+

1385«

2033~
2085+
2178+
2257+
2329«
2602%
2540%
2737«

2035«
2107«
2180«
2258+
2331«
26403
2548%
2740%

3104

3173

12744
8174
784m
3077«
2834w
3267
67274
1575

18274

SMNEW

14494

1842+

1081~
810#
8114
3175
9754

2814

1488~

1841+

1929«

TXDBUF
TXDONE=
TXINTE=
TYPDAT
TYPE
=

27334

SEQ 0076

1386+

1872+«

1956%

1958+

1247

3453«

3182
1021

3179

31764

16411

1874~

1413«

1877%

14616+

1883*

1345+

1346+

1371«

1373«

1376«

1382+

1501«
1581«
1661
17465%
1803~

1502+
1587+
1664*
1747«
1827+

1504*
1588+
1670
1750«
1829+«

1505+«
1590+
1671«
1756«
1832+

1533«
1591+«
1673%
1757«
1838+

1535«
1619«
1674+
1759«
1839«

1998+

2001+«

2007+

2008+«

2010*

2082«
2155«
2248x
2322«
2393«
2535«
2652+
3531«

2084+
2156w
2251w
2308«
2396«
2537«
2735«

1422+

1423~

1884«

1886+

1425+

1887«

1426+

1917«

1451«

1919«

1922+«

1456+

1928«

2011«

2038+
2109
2183
2280+
2332«
2405«
2549+
2748

2044*
2112+
2189«
2282«
2354%
26406+
2551«
2749%

2045+
2118+
2190x
2285*
2356«
2438
2552«
2751x

2047+
2119x
2212+
2291x
2359+
2440«
2635%
2752%

2048+
2121x
22714x
2292x
2365x
2443x
2637x
3449x

2070
2122«
2217x
2294x
2366+
2451%
2640
3462+

2072+
2144*
2223%x
2295%x
2368*
2452%
2648%
3468

2075+«
2146%
2224*
2317+
2369%
2454
2649x
3469+

31854
1262

1277

1318

2820

2823

2828

2950

2960

2972

2976

3067

1370
16194
1916

13714
1658
19174

1410
16594
1955

14114
1701
19564

1450
17024
1995

164514
1744
19964

1489
17654
2032

14904
1787
20334

1532
17884
2069

15334
1826
2070#

1488

14904

1531

1533«

3183

3533«

3241

3267

3269

3277

2081+
2149+
2246%
2319x
2391x
2455+
2651%
3470+

1453+

1279

3106+

3115#

32834
1330
15764
1871

13314
1618
18724

23174
3271

2107#
2353
32864

1574
1827
2105
Sg}zz

15764
1870
21074
2352

1617
18724
2142
23544

16194
1915
21444
2389

1657
19174
2176
2394

16594
1954
21784
2436

1700
19564
2210
24384

17024
1994
22128
2533

1743
19964
2244
25354

17454
2031
22464
2633

1786
2033
2278
2635+

22804
2733

1825
2070#
2315
27354

3269
67274

32844
1329

2143
235wa

21448
2390

2177
23914

2178%
2437

2211
26384

221284
2534

2245
25354

13314

1369

13714

1409

14114

1449

14514

22464
2634

2279
26354

2280#
2734

17884

2316
27354

= 000015

882:

3;;’

9734

9754

9774

Q794

9814

9834

9854

9874

9894

9914

9934

67
.

002142
= 020604

1048
8224

10854
8254

8354

8424

9284

9254

930w

931a

934

9334

9344

9384

(Z0uC-D
CZoucD.P1

.BEGIN

+CNTLU

-CNVRY
.CONVR
.EOP
-ERRTA
HLT
. INSTE
- INSTG
- INSTR

002630
016030
016104
015074

<INST1

-MSG
. PARAM
PFAIL

-RESO5

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

9404
9534
1083
994

21-NOV-78

15:40

PAGE 81

9% 14
9544

9424
13?3‘

9434
9564

oLik
9574

2977
3263«

3264

3265

32124

3233

988

3136

1017

014352

SEQ 0077

CROSS REFERENCE TABLE =-- USER SYMBOLS

. SAVO5

.SCOPE
.SCoP
.SETFL
.START
. TRPSR
. TRPTA
.TYPE

2832

9454
9584

9464
9594

97N
9604

9484
9614

9654
32884

9S04

34184

9514

34194

9524

34204

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

CZoUC~-D
C20UCD.P11

6774

677#

SONA
$EOP
$GETFL
$GE TPA
$GETSY

6774
6774
6774
6774
677

SHLT
$INSTR
$1508
SMATCH
$MRR
SMRRW

6774
677
6774
6774
6774
6774

1864

1909

1948

1295
1308

6774

6774
677K
6774

1424

1927
2550
677N
6774
677K
6774
1619
1919

6774
6774
6774
6774
6774
677
6774
6774

2005

2083

2613

2713

1371

1373

2248
2735

2280
2737

2061

2098

1661
19%6

2212
2537
6774

2026
1380

2079

1464

2046

1420

2116

1546

2154

1702
1998

1460

2289

2135
1499

2326

2169
1542

2363

1589

1632

2188

2222

1453
1788
2072

1758

2354

2237
1628

24649

2271
1668

2546

2308
1711

2646

2330

1801

2367

1840

1533
1829
2144

1535
1872

1576
1874
2178

1836

1381

2393

2146
2438

2345

2382

1754

1797

2746

2440

N = 0OWNn
WWOD
— N
VO ~N0o

6774
6774

AON)
— =

$RXACT
$SCOPE
$SCOP1
$SETFL
$SETVE
$START
$STRIP
$SYMBO
$SYNCR

1200
1155

677

WO N
-~y
N
VO ~N—

SRCNET
$RECAC
$REG
$RESET

1196
1129

1872

677

NON)
—= =

$POKE
$POKER

2438

SN
N

$PFAIL

1788
2354

2070

WO NS

MSG
$PARAM

1451

2340
2759

677N

6774
677#
6774
677

SMRW

1687
2164
2585

c0%3

2535

$BUFFE
$CABLE
$CATCH
$CLRVE

$HEADE

16411

677H
1917

6774

$SCONVR

1647
2093
2570

6774

$BEGIN

$SBINAR

2303
2685

SEQ 0078

1476
1811

NN—A—I

TSETUP

2198
2659

—_—

PUSSYF

RSETUP

1436
1773

OO
ony

PRGEND

PRGFRY

738#
1725

—_—

HLT

6
15:40 PAGE 83
CROSS REFERENCE TABLE =-- MACRO NAMES

21-NOV-78

CZDuC-D

MACY11

CZOUCD.P11

$TRAPS
$TRPAR

18-JuUL-78 15:52

6774
6774

$TRPDE

677n

$TSTNO

6778
1915

$TRPSR

$TYPE
SUNIBU
SVARIA
SWORDF
$WORDO
$WORDP
. ABS.

30A(1052)

6774

2533

6778
6778
6774
677
677H
6778

020604

ERRORS DETECTED:

21-NOv-78

15:40

PAGE 84

CROSS REFERENCE

TABLE -- MACRO NAMES

SEQ 0079

963

971

973

975

977

979

981

983

985

987

989

991

993

1329
1954
2633
2929

1369
1994
2733

1409
2031

14649
2068

1488
2105

1531
2142

1574
2176

1617
2210

1657
2244

1700
2278

1743
2315

2352

841
1321

1361

1401

1641

1481

1524

1567

1610

1650

1693

1736

1779

31%7

000
O

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)

1786

995
1825

2389

1870
2436