Digital PDFs

AH-8681D-MC

January 1979

81 pages

Original

41MB

view download

OCR Version

56MB

view download

Document:	CZDUBD0 DU11 OFF-LINE RECEIVER TESTS JAN 1979 bw
Order Number:	AH-8681D-MC
Revision:	000
Pages:	81
Original Filename:	CZDUBD0__DU11__OFF-LINE_RECEIVER_TESTS__AH-8681D-MC__JAN_1979_gray.pdf

OCR Text

OFF-LINE RECEIVER TESTS

CZDUBDO

AH-8681D-MC

JAN 1979

FICHE1 OF
1

MADE
IN USA

copvricHT 7378

EOTO0EN

CY11_30A(1052)
21-NOV-78
20-NOV-78 16:48

15:36

PAGE
1

SEQ 0001

IDENTIFICATION
PRODUCT CODE: AC-8680D-MC

PRODUCT NAME:

CZDUBDO DU11 OFFLINE RECEIVER TESTS

RELEASE DATE:

JUN 1978

MAINTAINER

THE

: DIAGNOSTiICS

INFORMATION IN THIS DOCUMENT

IS SUBJECT

TO CHANGE WITHOUT NOTICE AND

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

THE SOF TWARE DESCRIBED IN THIS DOCUMENT

IS FURNISHED UNDER A LICENSE AND

MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF

REI IABILITY OF

ITS SOFTWARE ON EQUIPMENT THAT

1973,

IS NOT SUPPLIED BY DIGITAL.

1978 BY DIGITAL EQUIPMENT CORPORATION

————

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-78 16:48

15:36

PAGE 2

SEQ 0002

GENERAL DESCRIPTION
THIS DIAGNOSTIC CAN CHAIN 16 DU11'S. THIS MEANS THAT
16 DEVICES CAN BE SEQUENTIALLY EXERCISED.
THE DIAGNOSTIC
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE,
mrggmwes EXERCISING ALL DEVICES IN THIS FASHION UNTIL

THE DUT1 OFFLINE RECEIVER TESTS VERIFY THAT THE RECEIVER
CHIP/LOGIC WORKS PROPERLY
REQUIREMENTS

PDP=11 FAMILY STANDARD COMPUTER WITH OR WITHOUT HARDWARE SWITCH
REGISTER

DUT1

(LOC.

177570)

SYNCRONOUS/ISOCRONOUS OPTION

ONE CONSOLE TELETYPE OR EQUIVALENT

2.2

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

LOADING PROCEDURE
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES

IS TO BE USED.

STARTING ADDRESS
4K

FOR ABSO(G%JTE %)OADER
750

037500

12K
16K

057500
077500
117500
137500

20K
24K
28k
‘o

157500

STARTING PROCEDURE

PPELLF PP

4414441444441

NOTE :

4 444444 444442404444 444443444444 4444444444444

BEFORE PROCEEDING IT IS IMPORTANT TO
TO REALIZF

IF ONE DOESNOT

HAVE THE DU11 SET UP TO THE
DEFAULT PARAMETERC ( SEE SECTION

8 OF THIS DOCUMENT)

, THEN ONE MUST

4444444 44

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-78 16:48

15:36

PAGE 3

SEQ 0003

SET SWOO
= 1, AND ANSWER THE PARAMETER

QUESTION Rouflus.
R

6.1

YOO

CONTROL SWITCH SETTINGS

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

4.1.2

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

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES

AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES

SW00=1

4.1.3

4.1.4

4.2

TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART

cuorey

(ONLY IN SINGLE DEVICE TESTS)

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

Sw02=1
NOTE1: IN GENERAL
SUO‘I WILL BE USED WHEN SW02=1 IS USED
NOTE2: WITHOUT SWO1=1
“LOCK ON TEST'' WILL DEFAULT TO TEST 1
STARTING ADDRESS

THE STARTING ADDRESS FOR ALL TESTS IS

THE STARTING ADDRESS TO LOCK ON TEST IS

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3.1

INITIAL PROGRAM START

000200

4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER

4.3.1.2 LOAD ADDRESS 000200

4.3.1.3 CLEAR CONSOLE SWITCHES
4.3.1.4 PRESS START

4.3.1.5 THE PROGRAM WILL TYPE "DU11

(CZDUB-D TAPE B'' (ONCE ONLY)

NOTE:IF THE SOFTWARE SWITCH REGISTER IS SCLECTED TH EN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF

DZ0UB~C MCY‘H 30A(1052) 21-NOV-78
20-NOV-78 16:48

. HL
CZDUTT

SWR=XXXXXX NEW=

15:36

PAGE &

SEQ 0004

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

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

6.3.2

PROGRAM RESTART WITH ALL SWITCHES DOWN
4£.3.2.1

4.3.3

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

PROGRAM RESTART WITH SW00=1

4.3.3.1 LOAD ADDRESS

000200

4£.3.3.2 SET SW00=1
4.3.3.3 PRESS START
NOTE:IF

THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING

SURSKO00X NEw= | (REFER 10 SECTION 5. FOR ORERATOR'S OPTION)

4.3.3.4 THE PROGRAM WILL TYPE ' 1ST DEVICE: RECEIVER CONTROL REGISTER
ADDRESS'' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL
REGISTER ADDRESS OF THE DU11 TO BE TESTED
FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE '*'

AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4

4.3.3.6 THE PROGRAM WILL TYPE 'VECTOR ADDRESS-'' AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD
4.3.3.7 TYPE _IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS
FOR THE DU11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE '***

AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6

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

YES OR NO FOLLOWED BY A

IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL

AND WILL

THEN REPEAT THE MESSAGE OF 4.3.3.8

IF A 'NO'' ANSWER IS GIVEN: JUMP TO SECTION 4.
IF A "YES'' ANSWER IS GIVEN:THE NEAT QUESTION

TYPE ‘"'

DZDUB~C MACY11 30A(10S )
2‘!-'0\/—78
czoul., HLO
20~NOvV6:48

15:36

PAGE S

SEQ 0005

4.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.1

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

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘7"
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10
NOTE :ALL ADDRESSES SHALL BE CONTIGUOUS
4.3.3.11.1

iF AN "DUT OF RANGE'' ADDRESS IS TYPED

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

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

6.3.3.11.2

TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL

THE DU11

BY A <CARRIAGE RETURN>

TO BE TESTED FOLLOWED

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

TYPE "'’

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

OBSERVE LOCATION @ ACTREG:

4.3.3.12
4.3.3.13

SEE SECTION 7.2

THE PROGRAM WILL TYPE ‘DU PRIORITY LEVEL-'" AND
WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
TYPE IN THE APPROPRIATE DEVICE PRIORITY LEVEL OF THE

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

IS%BEE)TMYI?LL !;LTIPLE DEVICES MUST BE AT THE SAME PRIORITY

IF AN INCORRECT LEVEL IS TYPED

AND
4.3.3.14

4.3.3.15

,THE PROGRAM WILL TYPE '**'

REPEAT THE MESSAGE OF 4.3.5.12

EEI;ECTEB

THE PROGRAM WILL TYPE "% OF SYNC CHARS

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

TYPE IN THE APPROPRIATE ANSWER ‘1'' OR '?'' FOLLOWED
gEY ?HECMRI?GE RETURN>.
(NOTE :ALL MULTIPLE DFVICES MUST

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '?"'

AND WILL REPEAT THE MESSAGE OF 4.2.3.14

DZDUB=C MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-7816:48
4.3.3.16

15:36

PAGE
6

SEQ 0006

THE PROGRAM WILL TYPE ' IS SEC XMIT JUMPER #6 IN ?
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

(Y OR N)="'

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

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

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

4£.3.3.19

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <CARRIAGE RETURN>.

(NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME)

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

THE PROGRAM WILL TYPE '‘IS OPT CLR ENABLE JUMPER

4.3.3.21

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

# 4 IN ?

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

BY A <CARRIAGE RETURN>.

(NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME)

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

AND WILL REPEAT THE MESSAGE OF &4.3.3.20

6£.3.3.22

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

MODE EXTERNAL ? AND ...... DO YOU HAVE THE EXTERNAL MODEM
BYPASS JUMPER CONNECTOR ON ? (Y OR N)-"" AND WAIT FOR AN

INPUT FROM THE TELETYPE KEYBOARD

4£.3.3.23

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY

A <CARRIAGE RETURN>.

(NOTE: ALL MULTIPLE DEVICES MUST BE

THE

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

AND WILL REPEAT THE MESSAGE OF 4.3.3.22

4.3.3.24
4.3.4

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

HAS STARTED AND WILL

COMMENCE

TESTING AT

TEST 1

PROGRAM RESTART WITH SWO1=1

NOTE:

THIS WILL ONLY WORK WHEN A SINGLE DEVICE

IS SELECTED

+».1T WILL NOT WORK IF MULTIPLE DEVICES ARL SELECTED

IF MULTIPLE PEVICES WERE PREVIOUSLY SELECTED,LOAD 000200,
?E? SE%E%T SWO0=1 AND ANSWER ‘NOTM" TO THE MULTIPLE DEVICE QUESTION

4<.3.4.7 LOAD 000200

SAME)

DZDUB=C MACY11_30A{1052)
21-NOV-78
CZDUT1.HLO
20-NOV-78 16:48

15:36

PAGE 7

SEQ 0007

6.3, 4 .2 SET SW01=1
4.3, 4.3 PRESS START
NOT :IF THE SOFTWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR'S OPTION)
4.3.4.4 THE PROGRAM WILL TYPE "TEST PC-'" AND WAIT FOR AN INPUT
THE TELETYPE KEYBOARD

4.3.4.5 TYPE

IN THE ADDRESS OF

FROM

THE TEST AT WHICH THE PROGRAM IS TO

BE STARTED FOLLOWED BY A <CARRIAGE RETURN>

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

NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED

,SINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS

THAT

4.3.5

IS IN THE MIDDLE OF A TEST

PROGRAM RESTART WITH SW02 =1

NOTE:

THIS WILL ONLY WORK WHEN A SINGLE DEVICE

SEE NOTE IN 4.3.4 FOR MORE DETAILS

IS SELECTED

4.3.5.1 LOAD ADDRESS 000200
4.3.5.2 SET Sw02 =1
NOTE: IT MAY BE ADVANTAGEOUS TO SET SWO1=1

(OPTIONAL)

4.3.5.3 PRESS START

NOTE:IF THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR'S OPTION)
4.3.5.4 THE PROGRAM WILL TYPE ‘LOCK ON SELECTED TEST ? (Y OR N)-''
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4£.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A
<CARRIAGE RETURN>

IF A NO ANSWER IS GIVEN:

AND THE PROGRAM WILL
TESTING AT TEST 1

THIS LOCK ON TEST WILL BE IGNORED

TYPE "R'* TO INDICATE THAT

IT HAS STARTED

4.3.5.6 IF A YES ANSWER WAS GIVEN:THE PROGRAM WILL ACT AS FOLLOWS...
THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT IT HAS STARTED
TESTING AT TEST 1 AND WILL REMAIN N TEST 1 UNTIL HALTED

IF ANY #7Y IS STRUCK ON THE TELETYPE

,THE PROGRAM

WILL FREEZE O+ THE NEXT TEST UNTIL A KEY IS STRUCK ON

THE TELETYPE A€ S0 FORTH THRU THE PROGRAM. IF SWO1 =1
IT
WILL PERFORM AS N SECTION 4.3.4
ALLOWING ONE TO FREEZE
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1

DZDUB-C MACY11_30A(1052)

CZDUT1.HLO

21-NOV-78

20-NOV-78

16:48

6.4

STATUS MAP

15:36

PAGE 8

SEQ 0008

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

IF YOU WISH TO TEST

A DUTT

, WHICH IS NOT AT THE DEFAULT

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

THE FOLLOWING COMBINATIONS OF

ALLOW YOU ACCESS TO THE STATUS MAP,

TEDIOUS QUESTIONING

SWITCH REGISTER SETTINGS WILL

SW07=1

2) START AT 200

3) THE DIAGNOSTIC WILL

GO TO THE STATUS MAP

AND BYPASS ALL OF THE QUESTiIONING ROUTINE.

NOTE :

IT IS

EXTREMELY IMPORTANT THAT EITHER YOU HAVE

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

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

BEFORE

STARTING AT 200.

THE DIAGNOSTIC HAS NO METHOD

TO DETERMINE

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

IF BOTH SWO7 AND SWO0 (SWITCH REGISTER SWITCHES)

ARE SET ,(EQUAL TO 1),

SEEING SWO7 SET,

THE PROGRAM WILL

IGNORE SWOO AND

THE VALUES FROM THE STATUS MAP WILL BE

USED. TO USE THE DEFAULT VALUES FOR THE DU11'S
THE OPERATOR MUST SET SW00=0 AND SW07=0.

IS EXPLAINED IN GREATER DETAIL IN SECTION
OF THIS DOCUMENT.

THE USE OF SW00

4.3

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

AND ANSWER ROUTINE,

A PARTIAL STATUS MAP WILL BE PRINTED.

THIS MAP WILL BE PRINTED ONCE FOR ANY COMBINATION OF

SWITCHES

EXCEPT SWO1. RESTARTING THE PROGRAM WILLNOT PRINT OUT A

MAP UNLESS

THE PROGRAM PARAMETERS ARE BEING RESELECTED

BY PUTTING SWO0=1.(ON)

THE MAP WILL LOOK LIKE:

STATUS MAP
13007 177777

ZI-M)V-?B
DUB=C MACY1 30_: 075)
CZDUH HLO

15:36

PAGE
9

SEQ 0009

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

1300

THE NUMBER OF SYNCHRONOUS CHARACTERS REQUIRED FOR

SYNCHRONIZATION.
SEC
TRANSMIT JUMPER

1301

1302
1303
1304
1305

SEC RECEIVER JUMPER
OPTIONAL JUMPER
MULTIPLE DEVICES (NO=0 , YES=
1)
EXTERNAL MODEM BYPASS? (NO=0 ,YES=

1))

IF THE BYTE IS O , THE JUMPER IS NOT CONNECTED

AND IF

THE BYTE IS 377 ETC.

OPERATING PROCEDURE

THE JUMPER SHOULD BE CONNECTED.

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

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

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

IS USED.

:
CONTROL
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF

THE SOF TWARE SWITCH

176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY

DOING THE FOLLOWING:
1)

TYPE CONTROL G <*G>;

THIS WILL ALLOW THE TTY TO ENTER DATA INTO

LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM
2) TO'E MACHINE WILL THEN TYPE: SUQ-XXXXXXAE\# (XXXXXX IS THE OCTAL CONTENTS
OF THE SOFTWARE SWITCH REGISTER.)

3) AFTER THE °"°'NEW='"' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF

THE FOLLOWING AT THE TTY:

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

IFA <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWITCH

B)
5.1

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

OPERATICNAL SWITCH SETTINGS

w15 =
SW14

HALT ON ERROR
LOOP ON CURRENT TEST

SW1l =1
SW10 =1

INHIBIT ITERATIONS
ESCAPE TO NEXT TEST ON ERROR

SW13 21

INHIBIT ERROR TYPEOUT

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-78
16:48

SW; =
Sw07 =
w02 =
SWO1 =
Sw00 =1

15:36

PAGE 10

SEQ 0010

LOOP ON_ERROR
USE STATUS MAP PARAMETERS
LOCK ON TEST
RESTART PROGRAM AT SELECTED TEST
RESELECT VECTOR AND CONTROL REGISTER ADRESSES
SPARAMETERS
AFTER A PROGRAM RESTAR

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 REOUIRED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE.
THE FOLLOWING WILL BE TYPED:

SWR=XXXXXX
6.1.1

NEW=

(REFER TO SECTION 5. FOR OPERATOR OPTION)

PC+2
= ERROR PC
WHERE PC +2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2
REFER TO THE ABOVE "HLT'' IN DIAGNOSTIC FOR ERROR DESCRIPTION
CHECK ADDRESS @ RXCSR:

TO LOCATE THE DEVICE PRESENTLY UNDER

TEST WHEN RUNNING MULTIPLE DEVICES

6.1.2

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

ACTUAL
222712

WHERE 16XXXX IS THE ADDRESS OF

THE FAILING DEVICE REGISTER

WHERE YYYYYY IS THE EXPECTED CONTENTS OF

WHERE ZZZZZZ 1S THE ACTUAL CONTENTS OF

6.1.3

THAT REGISTER

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

ACTUAL
222711

WHERE 16XXXX IS THE ADDRESS OF

THE FAILING RECEIVER (RXDBUF) REGISTER

WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF

WHERE ZZZZ771 1S THE ACTUAL DATA CONTENTS OF

6.1.4

THAT REGISTER

PC +2 = TRANSMITTER ERROR P(
REGISTER
EXPECTED
16XXXX
YYYYYY

ACTUAL
221712

WHERE 16XXXX IS THE ADDRESS OF

THE FAILING TRANSMITTER (TXCSR) REGISTER

WHERE YYYYYY IS THE EXPECTED CONTENTS OF
WHERE 727717 1S THE ACTUAL CONTENTS OF

THAT REGISTER

DZDUB-C MACY11_30A(1052)
21-NOV-78
20-NOV-78
16:48

CZDUT1.HLO

15:36

PAGE 11

SEQ 0011

6.1.5

ERROR DESCRIPTIONS
SEE LISTINGS FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

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

REQUIRED TO CONTINUE TESTING

6.2.2

Sw15 =1
IF _THE PROGRAM IS RUN WITH SW15 =1

,TO CONTINUE TESTING

AFTER THE PROGRAM HAS HALTED PRESS THE PROCESSOR

CONSOLE

“'CONTINUE SWITCH''

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

6.2.3

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

THE ADDRESS AT WHICH THE PROGRAM

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

6.2.4

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

LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS.

6.3

END OF PASS ROUTINE

THIS TYPEQUT IS MENTIONED HERE FOR CONVENIENCE

IT IS IN THE FORM:

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

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

TYPEOUT - TURN TELETYPE OFF

RESTRICTIONS

MULTIPLE DEVICES

UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY

MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS

NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR
YOU CAN CHANGE '‘ZERO:
ADD
#10 fIV
sNEXT BLOCK
(VECTORS)'* TO 'ZERO:
ADD
#0,BASE
1V
THEREBY THE VECTOR ADDRESSES WILL NOT BE

UPDATED AFTER EACH PASS.
7.2

DISQUALIFYING DEVICES WHEN RUNNING MULTIF.S DEVICES

———

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

15:36

CZDUT1.HLO

PAGE 12

SEQ 0012

WHEN RUNNING MULTIPLE DEVICES
AN ACTIVE BIT IS SET
FOR EACH DEVICE
ING UNDER TEST
1IE. BIT O FOR

DEVICE

,BIT 15

FOR DEVICE 1

TO DISQUALIFY DEVICES:

7.2.2

IF DEVICE 0 IS TO BE DISQUALIFIED ,SIMPLY RESTART

PROGRAM
WITH SWO0 =1 AND OMIT THE IRSY DEVICE.
o [T e

7.2.1

IF HOWEVER, DEVICES

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.

Polo@of soses0e OR .....LOAD 000200 WITH SWO =1 AND DEPRESS START....
ANSWER THE QUESTION :1ST DEVICE
: ETC.....c000..
....THE PROGRAM WILL CONTINUE wITH DEVICE 0

7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE
WILL TYPEOUT

7.3
7.3.1

THE PROGRAM

AN ERROR MESSAGE.......LOAD & START AT 0002C0

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

LOCATION "HOLD:"* MUST fiuflDlFlED TO ACCOMODATE FOR FASTER MACHINES.
PRESENTLY "HOLD:'*

=20

IS SUFFICIENT TIME ON AN 11/20 MACHINE.

IF RUNNING ON AN 11740 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 MJUST BE PATCHED TO A "NOP'’, (SEE LISTINGS FOR DETAILS)

DEFAULT PARAMETERS:

1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS~ RXCSR:

160040

VECTOR ADDRESS~

DURIV: 770

ARE YOU RUNNING MULTIPLE DEVICES ?- NO

MULTD: 0

LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESSDU PRIORITY LEVEL# OF

LEVEL 5

SYNC (HARS SELECTED -

IS SEC XMIT JUMPER # 6 IN 2~
IS SEC REC JUMPER # 5 IN 7=

LASTADD: 0

DUPRT: LEVEL S
2

VYES
YES

IS OPT CLR ENABLE JUMPER # & IN 7=

SYIsCNO:

377

SEXmMIT:

377

SEREC:
YES O°TCLR:

377
377

DZDUB~C MACY11

CZDUT1.HLO

2&”’ 10:48
4

)

21-NOV=-78

15:36

DO YOU HAVE THE

PAGE 13

EXTERNAL MODEM BYPASS JUMPER
CONNECTOR ON (M315)- VYES

SEQ 0013
JMRBY: 377

PROGRAM DESCRIPTION

9.1

THIS PROGRAM PERFORMS THE OFFLINE RECEIVER SECTION TESTING
OF THE DEVICE

SEE LISTING FOR DETAILS

10.

FLOW (HARTS: RECEIVER FLOW, TRANSMITTER FLOW,TRANSMITTER & RECEIVER FLOW

11.

LISTINGS

DZDUB=C MACY11_30A(1052)

CZDUT1.PAR
674
675

21-NOV-78

21-NOV-78 15:17

000000 000000G

15:36

PAGE 15

SEQ 0014

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

676
677

15:36

PAGE 18

2
SEQ 0015

.ENABLE ABS

678
69
681
682
683
684
685
686
687

:DUT1 DZDUB~C_TAPE B
[COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
:STARTING PROCEDURE
:LOAD PROGRAM
:PRESS START
.
A
:PROGRAM WILL TYPE ‘DU11 DZDUB-C TAPE B
:PROGRAM WILL TYPE ‘R’ TO INDICATE THAT TESTING HAS STARTED
:AT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE B'
:AND THEN RESUME TESTING

6%0

:SWITCH REGISTER OPTIONS

688
689

692
693
69
695

69%
697
698
699
700
701
702
703
704
705
706
707
708

040000
020000
010000
004000
002000
001000

000400
000200
000100
0
000020
000010
000004
000002
000001

SW15=100000
SW14=40000
SW13=20000
SW12=10000

SW11=4000
SW10=2000
SW09=1000
SW08=400
SW07=200
SW06=100
SW05=40
SW04=20
SW03=10
SW02=4
SW01=2
SW00=1

:=1,HALT ON ERROR
:=1,L00P ON CURRENT TEST
:=1INHIBIT 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
:LOCK ON TEST SELECT
:RESTART PROGRAM AT SELECTED TEST
:RESELECT VECTOR AND CONTROL REGISTER
:ADDRESS AFTER PROGRAM RESTART

VONONES W=D

&gggaij&gggjfifidjz‘}}}j

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

PAGE 19

SEQ 0016

;REGISTER DEFINITIONS

RO=X0
R1=X1

s GENERAL REGISTER
:GENERAL REGISTER

R2=%2

:GENERAL REGISTER

R4=%4

:GENERAL REGISTER

R3=%3

sGENERAL REGISTER

R5=25
SP=%6

sGENERAL REGISTER
:PROCESSOR STACK POINTER

PC=%7

:PROGRAM COUNTER

sLOCATION EQUIVALENCIES
177570
177570
177776

001100

DSWR=177570

sHARDWARE SWITCH REGISTER LOC.

STACK=1100

sSTART OF PROCESSOR STACK

DLIGHTS=177570
PS=177776

;HARDWARE DISPLAY REGISTER LOC.
sPROCESSOR STATUS WORD

s INSTRUCTION DEF INITIONS

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

sDECREMENT PROCESSOR STACK ! WORD =TST =(SP)
: INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+
:SAVE RO ON STACK =MOV RO,-(SP)
;RESTORE RO FROM STACK =MOV (SP)+,RO

POP2SP=22626

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

PUSH2SP=24646
.EQUIV

EMT,HLT

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

BIT15=100000
BIT14=40000

B1713=20000
BIT12=10000
BIT11=4000

BI1710=2000

BIT9=1000
BIT8=400
BIT7=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BIT2=4
BIT1=2
BITO=1

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

DZDUB-C MACY11_30A(1052)

CZDUBD.P11

766
767

768

769
770

_21-NOV-78

15:36

31-0CT-78 13:59

PAGE 20

;REGISTER DEF INITIONS

100000

DSC=BIT15

040000
020000

SEQ 0017

RXCSR BIT DEF INITIONS

RING=BIT14
CTS=BIT13

:DATA SET CHANGE
*RING
*CLR TO SEND

77
772
773
774
775
776
777
778
779
780
781
782
783
784

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

CARDET=BIT12
*CARRIER DETECT
RECACT=BIT11
*REC ACTIVE
SRD=BIT10
:SEC REC DATA
DSR=BIT9
:DATA SET RDY
STPSYN=BIT8
*STRIP SYNC
RXDONE=B1T7
*REC DONE
RINTEN=BIT6
*REC INTR ENABLE
DSINTE=BITS
:DSC INTR ENABLE
SYNSCH=B] T4
*SYNC SEARCH
STD=BIT3
*SEC XMIT DATA
RTS=BIT2
*REQ TO SEND
DTR=BIT1
*DATA TERM RDY
VoID=8IT0
RXDBUF BIT DEF INITIONS

786
787
788
789
790
791
792
793
79
795
796
797
798
799
300
801
802
803
804
805
806
807
808
809
810

040000
020000
010000

OVRRUN=BIT14
*OVERRUN
FRMERR=B]T13
*FRAME ERROR
PARER=BIT12
*PARITY ERROR
:PARCSR BIT DEFINITIONS
PAREN=B]T9
;PARITY ENABLE
EVPAR=B] T8
:EVEN PARITY SENSE
-PARCSR WRD DEF INITIONS
SYNINT=30000
:SYNC EXTERNAL MODE
SYNEXT=20000
*SYNC INTERNAL MODE
1SYMOD=0
+1S0C MODE
FIVE=0
*WORD LENGTH S BITS
SI1X=2000
*WORD LENGTH 6 BITS
SEVEN=4000
*WORD LENGTH 7 BITS
EIGHT=6000
*WORD LENGTH 8 BITS
NOPAR=0
*NO PARITY
ODDPAR=1000
:0DD PARITY
EVEPAR=1400
*EVEN PARITY
-TXCSR BIT DEFINITIONS
DNA=B]IT15
:DATA NOT AVAILABLE
MTDATA=BIT14
*MAINT DATA
CLK=BIT13
1CLK
BITW=BIT10
:BIT WINDOW
MRESET=BIT8
*MASTER RESET
TXDONE=BIT7
*XMIT DONE
TXINTE=BIT6
*XMIT INTR ENABLE

785

RXERR=BIT15

REC ERROR

000020

DNAINTE=R]ITS
SEND=B] T4

:DNA INTR ENAB
+ SEND

814

000001

BREAK=BIT0

816
817
818
819

000000
004000
010000
014000

USER=0
MINT=4000
MEXT=10000
SYSTST=14000

*BREAK
:USER MODE
*MAINT INT MODE
*MAINT EXT MODE

811
8i2

813

815

820

100000

001000
000400
030000
020000
000000
002000
004000
006000

001000
001400
100000
040000
020000
002000

000200
000100
000010

HDXEN=BIT3

JHDX/FDX

:TXCSR WRD DEF INITIONS

*SYSTEM TEST MODE

s TRAPCAT(CriSR FOR ILLEGAL INTERRUPTS

DZDUB-C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

g‘fl
85
826
87
88
829
ggg

000024
000026
000030
000032
000034
000036

000024

.=24

016104
000340
015634
000340
015602
000340

gg%

834
835
836

000174
000176

839
840

841

000174

000000
000000

001100

842

=174

PFAIL
340
HLT
340
_TRPSRV
340

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

DISPREG: .WORD 0
SWREG:
.WORD 0

JMP

"START

:SOFTWARE DISPLAY REG.
*SOFTWARE SWITCH REGISTER

‘GO TO START OF PROGRAM

.=1100

3‘:.2

:INDIRECT POINTERS

001100

177570

SWR:

177570

:SWITCH REGISTER POINTER

87
88
89
ggg

001104
001106
001110
001112

177560
177562
177564
177566

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

*TELETYPE KEYBOARD CONTROL REGISTER
*TELETYPE KEYBOARD DATA BUFFER
*TELEPRINTER CONTROL REGISTER
*TELEPRINTER DATA BUFFER

86 001102 177570

LIGHTS:177570

ggg

854
855
856
857
88
859
860
861
ggg

*DISPLAY REGISTER POINTER

:PROGRAM CONTROL PARAMETERS

001114
001116
001120
001122
001124
001126
001130
001132
001134

000000
000000
000000
000000
000000
000000
000000
000000
000000

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

ggg
866
87
88
89
870
871
872
873
874
875
876

SEQ 0018

;SOFTWARE SWITCH REGISTER

3335 000200 000167 001214

:STANDARD INTERRUPT VECTORS

823

824,

PAGE 21

0
O
0
0
0
0
0
0
0

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

;PROGRAM VARIABLES
001136
001140
001142
001144
001146
001150
001152
001154
001156
001160
001162

000020
000000
000000
000000
000000
000000
009000
000000
000000
000000
000000

HOLD:
SHIFT:
COUNT:
TEMP1:
TEMP2:
TEMP3:
TEMPG:
TEMPS:
SAVRO:
SAVR1:
SAVR2:

20
0
0
0
0
0
0
0
0
0
0

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

31-0CT-78 13

877
878
879
880
881

000000
000000
000000
000000
000000

001164
001166
001170
001172
001174

?;SNOV-78

15:36

PAGE 22

SAVR3:
SAVRS:
SAVRS:

SAVSP:
:
SAVP(

OOO0O0O

DZDUB-C MACY11_30A(1052)

CZDuBD.P11

SEQ 0019

;R3 STORAGE
;R4 STORAGE

;RS STORAGE
:STACK POINTER STORAGE

sPROGRAM COUNTER STORAGE

—

S
WRN
=

~NON

b
—

888888

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDuBD.P11
31-0CT-78 13:59

15:36

PAGE 23
sPROGRAM_CONVERSAT IONAL PMTERS

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE

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

VRNC
NP ANNSO

98888888
ee

BASEADD:
KEEPADD:
LASTADD:
BASEIV:
KEEPIV:

920

SEQ 0020

377
377
377
377
0
377

# OF SYNC CHARS REQ'D FOR SYNC'ZATION
:SEC XMIT JUMPER "IN'*
:SEC REC JUMPER "IN
:0PTIONAL JUMPER (LR "IN’
:NO MULTIPLE DEVICE FLAG
pli
:EXTERNAL MODEM BYPASS JUMPER ''IN'

;PROGRAM MULTIPLE DEVICE PMTERS

0
0
0
0
0
0

ACTREG:

PROG CONTROLLED 1sr oevxce ADDR
*SAVED 1ST DEVICE
AD
*LAST DEVICE RXCSR ADDR
*PROG CONTROLLED IV
*SAVED INTR VECTOR
*ACTIVE REGISTER ,,.MODIFY THIS
:LOCATION TO DISQUALIFY OR QUALIFY
*DEVICES (1= RUN,,,0= DON'T RUN)

ROTADD :

*ROTATING Pomreé FOR ACTREG..POINTS

:TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

't..'t..QQ.QQQQ..Q"'Q"'Qt"t.t.'..t..

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

;

HOLDO: 0

HOLD1:0
COUNT1:0
TABLE

: &
0

FLAGS FOR STATUS MAP PRINT OUT (SSP)

; HOLDS

RO IN STATUS MAP PRINT

s R1 ETC.
; FOR COUNTING 3 WORDS

; FOR CONVRT ROUTINE

3006
3006

ttttit...'t.'t"'.'tt.'tQ..'Q..

:PROGRAM CONTROL

INIFLG:
STFLG:
ERRFLG:
LOKFLG:

BYTE
BYTE
BYTE
BYTE

FLAGS

O
O
O
O

;PROGRAM INITIALIZATION FLAG
sTEST START FLAG
sERROR OCCURED FLAG
sLOCK ON CURRENT TEST FLAG

.EVEN
JRRRRARR

.=1300

STATUS: NOSYNC:

STATUS

.BLKB 1

MITSEX: .BLKB 1
RESEC: .BLKB 1

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

¢ MULTIPLE

MAP

ARRAR
NN

;SYNC CHARS

JXMIT JUMPER
sREC SEC JUMPER

sOPTIONAL JUMPER
sMULTIPLE DEVICE FLAG
;EXTERNAL MODEM

DEVICE PARAMETERS

ADDBASE: .BLKW 1

;PROG CONTROLLED 1ST DEVICE

ADDR

—
=

DZDUB-C MACY11_30A(1052)

21-NOV-78
31-0CT-78 13:59

ol
%
94
5

88888 888888888

938
939
9%0
%1

PAGE 24

CZDuUBD.P11

15:36

ADDKEEP:
ADDLAST:

IVBASE:
IVKEEP:

REGACT:
ADDROT:
PRTDU:

RIVDU:
TIVDU:
TISDU:
RISDU:

2
SEQ 0021

sSAVED 1ST DEVICE ADDR

.BLKW 1
.BLKW 1
.BLKW 1
.BLKW 1
.BLKW 1
.BLKW 1
.BLKW 1

sLAST DEVICE RXCSR
sPROG CONTROLLED 1V
:SAVED INTR VECTOR
sACTIVE REGISTER
sROTATING POINTER
;DU11 PRIORITY

.BLKW 1
.BLKW 1

sDUT1 REC_INTR VECTOR
sDUTT XMIT INTR VECTOR
;DUTT XMIT INTR STATUS
:DUT1_
REC_INTR STATUS

.BLKW 1

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

001344
346

ADDR

sPRIORITY TO ALLOW INTR
: DEFAULT OR ALTERED PARAMETERS
:

BUFRXD:
.BLKW 1
BUFHRXD:
.BLKW 1

;DUT1 RXCSR BASE ADDR
;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
sIN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS
001366

.TRPTAB:
AR
SRR

AR AR AR A AR A AR AR A AR AR
AR

AR AN AR AR RAAAAAAAAAAAANAARANAANAA
AR
AR

AR AR AR A AR AR AR AR AR AR AT AR

001366

.SCOPE

001370

.SCOP1

001372

.TYPE

001374

.INSTR

001376

. INSTER

001400

. PARAM

001402

. SAV05

001404

-RESO5

001406

. CONVRT

001410

- CNVRT

001412

.SETFLG

001414

. (KSWR

AR AR

AR ARAARAAR AR

AR AR

SCOPE=TRAP+0

;CALL TO SCOPE LOOP AND ITERATION HANDLER

SCOP1=TRAP+1

;CALL TO LOOP ON CURRENT DATA HANDLER

TYPE=TRAP+2

;CALL TO TELETYPE OUTPUT ROUTINE

INSTR=TRAP+3

sCALL TO ASCII STRING INPUT ROUTINE

INSTER=TRAP+4

;CALL TO INPUT ERROR HANDLER

PARAM=TRAP+5

;CALL TO NUMERICAL DATA INPUT ROUTINE

SAVO5=TRAP+6

;CALL TO REGISTER SAVE ROUTINE

RESO5=TRAP+7

;CALL TO REGISTER RESTORE ROUTINE

CONVRT=TRAP+10

;CALL TO DATA OUTPUT ROUTINE

CNVRT=TRAP+11

;CALL TO DATA OUTPUT ROUTINE WITHOUT CR/LF

SETFLG=TRAP+12

CALL TO FLAG SET ROUTINE

(KSWR=TRA~+13

;CALL

TO ALLOW SWREG TO BE LOADED FROM TTY

AR AR

DZDUB-C MACY11_30A(1052)

CZouBD.P11
99
995
99
997
998
999

001416

_21-NOV-78

31-0CT-78 13:59

15:36

104414
016324

PAGE 25

.CNTLU
AR
AR

000340
001100
016104

1011

001450 005067

177454

1013 001460 005067
1014 001464 005067
1015 001470 012767
}8}9 001476 012767

177446
177444
000001
001420

1018

001504

105767

177534

1020
1021

001512
001516

104402
105167

016424
177522

1023
102¢
1025
1026
1027
1028
1029

001530
001536
001542
001546
001554
001562
001564

001440
001444

005067
105067

001454

105067

1019 001510 001004
001522

012767

001614

005737

1036 001620 001005
1037 001622 022767
1038 001630
001001
1039

10‘0

001632

177460
177575

176350

000024

.START: MOV
MOV
MOV

CLR
CLRB

177566

177570

177430
177410

177350

000176

000174

000004
000006

177302

177276

ONCE:

€4s:
658:
668:

000042

1048

AR R

AR A A

A AR

AR A AR AR AR

AR R

A AR AR AR AR AR AR

AR AR AR AR R AR AR AR

000176

177250

104414

#340,PS
#STACK , SP
#.PFAIL ,a#24

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

LPCNT
STFLG

*CLEAR # OF ITERATION COMPLETED LOCATION
*CLEAR START FLAG

ERRFLG

*CLEAR ERROR FLAG

CLR
CLR
MOV
MOV

ERRCNT
LSTERR
#1,TSTNO
#.START ,RTRN

TSTB

INIFLG

*HAS INITIALIZATION BZEN PERFORMED

MTITLE
INIFLG

:TYPE TITLE MESSAGE
*IF NOT SET FLAG AND DO

BNE

ONCE

MOV

#DSWR, SWR

TYPE
COMB

*CLEAR PASS COUNT

*CLEAR ERROR COUNT
*CLEAR LAST ERROR POINTER
*SET UP FOR TEST1
?Egr% rg:;mmn FAIL BEFORE

*RELOAD HARDWARE SWITCH REGISTER INTO POINTER

MOV
MOV
MOV
MOV
CMP
BEQ
B8R

#DLIGHTS, L IGHTS
6,~(SP)
a6 - (SP)
#6468, i
#-1,3SWR
658
66$

MOV

#DISPREG,L IGHTS

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

;UNDER MONITOR

(WP
MOV

MOV
MOV

BNE
CMP
BNE

CNTLU

(SP)+, (SP)+
#SWREG, SWR
(SP)+,an,
(SP) +.a#6

MAP
#SWREG, SWR
MAP

*RELOAD HARDWARE DISPLAY REGISTER INTO POINTER
*SAVE VECTORS
:SET UP FOR TIMEOUT
*REFERENCE HARDWARE SWITCH REGISTER

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

:tttttttttttttttttt'tfittttttltttttttt'ttttttttttfit.tttttttt

; CODE FOR STATUS MAP
: CODE ADDED FOR REV. E OF DIAGNOSTICS
* IF SWO7= 1 ,THEN YOU USE THE STATUS MAP PREVIOUSLY

;&g

1049

A AR

PASCNT

1041
1042
1043
1046
1047

R A

CLR

CLRB

012767 177570 177344
013746 000006
013746 000004
012737 001566 000004
022777 177777 177316
001402
000407

1030 001566 022626
1031 001570 012767
1032 001576 012767
1033 001604 012637
1034 001610 012637
1035

A AR A AR

OF SWREG FROM TTY

STYPE TITLE MESSAGE

1006 001420 012767
1007 001426 012706
1008 001432 012737

1022

;CALL TO ALLOW LOADING

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

}88?

1012

CNTLU=TRAP+14

: PROGRAM INITIALIZATIW

1000
1001
1002
1003

1009
1010

SEQ 0022

* SETUP, OR REENTER QUESTIONING ROUTINE
001634
001642

032777
001537

000200

177236

MAP:

BIT #SWO07. aSWR
BEQ $67

;
“

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

DZDUB-C MACY11_30A(1052)

CZDUBD.P11

1050

1051
001644
1os§ 001652
1053

1054
1055
1056
1057
1058

1059

21;'{)V-78

31-0CT-78 13:5

15:36

116767
116767

177430
177423

177324
177317

001666 116767
001674 116767
001702 116767
001710 016767
001716 016767

177411
177404
177377
177372
177366

17730
177
17727
177266
177262

001

116767

177416

016767

1061

001740

016767

177356

1064
1065

001762
001770

001776

016767
016767
016767

177220
177332
177332

177214
016572
016566

1068

002012

0167267

177314

016556

1070

1067

1069
1071

10
1073

1076
1075
1076
1077
1078
1079
1080

002034

2
002050

002056
002064
002072
002100
002106
002114

016767
016767

016767

177350
177334

177320

013737

001324

016767
016767

177272
177266

016767

MOV KEEPADD
MOV RIVDU,

016767
016767
016767
016767
016767
016767

1084

002142

032777

000001

1086
1087

002152
002156

000167
005037

000452
001222

002162
002166
002172
002176

012700
012701
012702
010110

1093 002202

200

002200

* XMIT INTR STATUS

176730

MOV a#PRTDU

o#DUPRT

MOV CSRRX,
MOV CSRHRX,

RXCSR
HRXCSR

MOV BUF TXD,

MOV BUFHTXD,
i i

§67:
1%:

000300
000302
000004

28:

005011

JMP .BEGIN

BIT

BNE

ADD
ADD
cMP

R2.R0
R2.R1
#1000,R1

060201

1096

002212

002771

002216

016500

MRE GAD

002222

160000

1097

002214

1099

002220

1101

002224

1098

1100

BLT

104403

INSTR

104405

167776

1102 oozzgg 020246
1103 0022
001
1106

1105

002231

002232

016767

BYTE
016010

176746

.BYTE

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

002204

001000

#SW00

MOV
MOV
MOV
MOV
CLR

TXDBUF

s XMIT INTR VECTOR

* PRIORITY TO ALLOW INTR
; PRIORITY RELOADED

3’
HRXDBUF
PARCSR
HPARCSR
HTXCSR

HTXDBUF

:BRANCH TO BEGIN TESTING

3331233 3222222223323 22 3332333232223 232283222223

JMP .BEGIN
CLR a#FLAG

1094

1095 oozeos 022701

LESST

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

000466

001002

DUTIS

DUTIV

MOV
MOV
MOV
MOV
MOV
MOV

130 016767 177226 016430

002150

MOV TISDU.

016464
016460
016454
016450
016444
016440

016434

*ROTATING POINTER
; BASE INTR VECTOR

MOV RISDU.

177262
177256
177252
177246
177242
177236
177232

:ACTIVE REGISTER

ROTADD
BASEIV

:RELOAD BASEADD
: REC INTR VECTOR
* REC INTR STATUS

MOV L1ESS.

016474
016470

: SAVED INTR VECTOR

., BASEADD
DURIV
DURIS

MOV TIVDU,

020110

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

ACTREG

BASEDU, DUBASE

000167

1092

MOV ADDROT
MOV 1VBASE

016562

: LAST DEVICE RXCSR ADDR

KEEPIV

ADDLAST

MOV REGACT

177244
177230

.LASTADD

MOV IVKEEP

MOV

002136

1088
1089
1090
1091

177250

* SEC REC JUMPER

"OPTCLR
"MULTD
* JMRBY
.BASEADD
“KEEPADD

MOV

: SYNC CHAR
* XMIT ~ JUMPER

,SEREC

MOVB CLROPT
MOVB DMULT
MOVB BYJMR
MOV ADDBASE
MOV ADDKEEP

016204

1082

1085

177256

, SYNCNO
CSEXMIT

177324

016767

1&3

MOVB RESEC

016767 177312 016064

002122

1081

: OPERATION OF THIS PROGRAM.

732 016767 177360 177254

1os§ 001746
1063
001754
1066

177362

SEQ 0023

MOVB NOSYNC
MOVB MITSEX

17731

001726

1060

PAGE 26

,OSWR

s RESELECT VECTOR $ CONTROL REG?

: BRANCH
; GO TO

TO QUESTIONING

LOAD STATUS MAP ETC.
s CLEAR FLAG SO STATUS MAP PRINTS OQuT

*RESTORE VECTOR AREA TO TRAPCATCHER
*START AT LOCATION 300

(R1)

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

*ME SSAGE

PARAM

;CONVERT STRING

167776

SHIGH LIMIT

SLOW LIMIT

DUBASE
1
1

MOV

*STORE AT THIS LOCATION
*MASK
DUBASE ,KEEPADD ; SAVE

;HOW MANY TIMES + 2

DZDUB-C MACY11_30A(1052)
_21-NOV-78
CZousD.P11
31-0CT-78 13:59

1106 002240 004767 015650
1107
44 016767 176736
1108

002252

10440

111;

002262

00077

15:36

PAGE 27

JSR
MOV

176732

INSTR

SEQ 0024

PC,DUADDR
KEEPADD ,BASEADD ;RESTORE _FOR_ROTATION

OUTPUT MESSAGE & GET INPUT STRING

1109 002254 016456
1110
256 104405
1111
002260 000300

MVECTO
PARAM
300

nesme
“CONVERT STRING
‘Low LIMIT

DURIV

*STORE AT THIS LOCATION

1114

2264

002266

776

020570

1115
1116
1117
1118

002267
004
002270 016767 016274
002276 016767 016266
002
104403

1120

002310

BYTE

176716
176706

BYTE

1119 002306 016561
1121

*HIGH LIMIT

&
MOV
MOV
INSTR

“MASK

DURIV,KEEPIV
DURIV.BASEIV

MMUL T

104412

SETFLG

“HOW MANY TIMES + 2
:SAVE
:SET UP FOR ROTATION
;OUTPUT MESSAGE & GET INPUT STRING
*MESSAGE
ser FLAG BASED UPON INPUT STRING

002312

001202

1122 002314 105767 176662

MUL TD

TSTB

MULTD

:ARE THERE unhs DEVICES

1124

002320

100406

8M]

8RR

*YES,ASK NEXT ouesnou

1123
1125

002322

005067

176670

000167

000140

CLR

1126 0023§g 005067 176666
1127 002332

1128
11;})

002336
002336

1131

002342

104405

1133

002346

167776

1130

1132

1134

1138

1139
1140
1141

1142

1143

104403

002344

160000

002350

001210

0023564

012767

002362
002366
002374

002376

002402

006167
103421

002422

BYTE
BYTE
000001

176630
176626

i$:

176622

28%:

176616

176572
176564

177572

176566

1150 002430 012767
1151 002436 016767
11s§ 002444 000414

000001
176544

176562
176540

1153

1154

104403

4$:

002462
002464

160000
167776

1155 002456 017023
1159 002460 104405
1157
1158

1159

002466

1160 002470
1161 002471

001210

001
001

;OUTPUT MESSAGE & GET INPUT STRING

PARAM

sCONVERT STRING

167776

*HIGH LIMIT

+ME SSAGE

‘Low LIMIT

LASTADD

*STORE AT THIS LOCATION

1
1

MOV

msx
HOW MANY TIMES + 2

:SET
UP POINTER

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

BCS

ROL

ROTADD

ADD
CMP
BHI

#10,BASEADD
:SET UP BASE ADDRESS
%sfmo
BASEADD :IS THIS THE LAST DEVICE ?
NO DO IT AGAIN

MOV
MOV
BR

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

MOV

INSTR

;SET UP POINTER

*ARE YOU OUT OF RANGE ?

ROTADD,ACTREG
:THIS ASSUMES THAT THERE ARE AT
;LEAST TWO DEVICES WHEN YOU ANSWER YES TO
“MULTIPLE DEVICE QUESTION

KEEPADD, éAsmo sRESTORE

;OUTPUT MESSAGE & GET INPUT STRING

MRANGE
PARAM

*ME SSAGE
*CONVERT STRING

%ASYADD

“STORE AT THIS LOCATION

160900
167776

.BYTE
BYTE

#1 ,ROTADD

CLR
8IS
CLC

BIS

002446 016767 176534 176530 38:
002454

INSTR

'THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME

176636

056767

1149

;JUMP AROUND NEXT QUESTION

160000

001
001

005067
056767
000241

ROTADD

OUTMUL

*ON THE SYSTEM

MLASTD

1144 002404 062767 000010
1145 002412 026767 176572
1146 002420 101362
1147
1148

BBB:

002340 016640

1135 002352
1136 002353
1137

CLR

JMP

ACTREG

IS FLAG

Lou LIMIT
HIGH LIMIT

*MASK
*HOW MANY TIMES + 2

—=

DZDUB~C MACY11_30A(1052)

_21-NOV-78

CZbuBD .P11

31-0CT-78

13:59

116§
1163
1164

000167

177656

1165
1166
1167

002472
002476
002476

500
002502
002504

1168

002506

1170

1169

1171
11;%

n
1174

6“6%510

00251
002514

15:36

OUTMUL:

104403

002520
002520
002522
002524
0025

0025

11846

002542

1185
1186
1187
1188
1189

1190

1195
"%

1197

1198
1199
1200
1201
120§

120
1204
1205
12%

020110

DUPRT

000007

;OUTPUT MESSAGE & GET INPUT STRING

+MESSAGE
;CONVERT STRING
LW LIMIT

000

001
004767

;D0 IT AGAIN

INSTR

MLEVEL
PARAM
4

104403
017334
122767
001003

BYTE

015320

002550
002552
002560
002562
002564

76
76

m
002606

1
12
16

002616

%0
2
%S&

120

AAA:
000061

015146

105067

176436

122767

000062

015130

177777

176416

002540 000412

119§
119
119

JMP

SHIGH LIMIT

STU!E AT THIS LOCATION

1
JSR

W MANY TIMES + 2

PC,DULEV
; COMPARE THE FIRST CHARACTFRIN Tlf TELETYPE INPUT
BUFFER TO THE CHARAC'TEB.S
g&

sIF THE CHARACTER IS "” CLEAR THE FLAG

11%%

1183

SEQ 0025

017307
104405
000004

1175

1176
1177
1178
1179
1180
1181

PAGE 28

001004
112767
000402
104404
000757

3$:

IF THE CHARACTER IS '2''

INSTR
MSYNC
CMPB
BNE

#'1, INBUF
1%

BNE
MOVB
BR
INSTER
BR

2%
#-1,SYNCNO
48

CLRB

000240
104403

1%:

2%:

4%:

CMPB

NOP
INSTR

;000

#'2, INBUF

JIS IT '2'' 2

;377
JRETRY

sOUTPUT MESSAGE & GET INPUT STRING

017
10441
0011

MWIRES
SETFLG
SEXMIT

017450

MWIRES

sME SSAGE

001200
10440%
01751
1046412

SEREC
INSTR
MWIRES4
SETFLG

THIS FLAG
WTPUT MESSAGE £ GET INPUT STRING
'ESSAGE
SET FLAG BASED UPON INPUT STRING

1
3
017571
10641;
00120

INSTR
MEXTJ
SETFLG
JMRBY

WTPUT MESSAGE & GET INPUT STRING
'ESSAGE
.SEY FLAG BASED UPON INPUT STRING
sTHIS FLAG

104403

104412

0012017

s ME SSAGE
sSET FLAG BASED UPON INPUT STRING
sTHIS FLAG

INSTR

sOUTPUT MESSAGE & GET INPUT STRING

SETFLG

SET FLAG BASED UPON INPUT STRING

OPTCLR

THIS FLAG

%0
JTEST START AND RESTART
lgi 002630 012767 000340 175140 .BEGIN: MOV
#340,PS
;

;

121

weaene

;LOCK OQUT INTERRUPTS

Lw STATUS MAP P-4

"f VALUES NOW BE ING LOADGD INTO THE STATUS MAP HILL BE

1219 002636 032777 000200 17623

1217

;OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
JIS IT '
2

SYNCNO

}

SET THE FLAG

002644

001132

N HERE

LOSWR

7 SET, IF YES BRANCH

13:

MOV BASEADD
MOV KEEPADD
MOV LASTADD
MOV KEEPIV
MOV BASEIV
MOV ACTREG
MOV ROTADD
MOV #DUPRT
MOV DURIV
MOV DURIS
MOV DUTIV
MOV DUTIS

NOSYNC
MITSEX
RESEC
- CLROPT
JDMULT
‘BYJMR

- ADDBASE

“ ADDKEEP
- ADDLAST
- IVKEEP
- IVBASE
"REGACT
~ADDROT
"@WPRTDU

3
1i

s
176%%2

155
1 %;

17630
17623;2

MOV DUBASE

MOV RXCSR

€ SRRX

MOV HRXDBUF,

BUFHRXD

176250
176244

MOV HPARCSR,

CSRHPAR

123

176310

003066

1
1

176254

1245

MOV PARCSR
MOV TXCSR

MCV HTXCSR,

176240

176234

}
}

MOV LESS?

176230

MOV TXDBUF

MOV HTXDBUF,

1531

: REC INTR STATUS
VECTOR
: XMIT INTR
: XMIT INTR STATUS
* PRIORITY TO ALLOW INTR
*RXCSR BASE ADDRESS

‘L1ESS

BASEDU

CSRPAR
CSRTX

CSRHTX

BUF TXD

BUFHTXD

SETTINGS FROM THE STATUS MAP
ON THE FIRST PASS OF

1
1

126?
1267
1268
1269
1270
1271
127%
1273

:REC INTR VECTOR

‘RIVDU
RISDU
‘TIVDU
"TISDU

THE FOLLOWING CODE WILL PRINT
THE CONVERSATIONALLY SET JUMPER

125§

1265

*ROTATING POINTER
-DUT1 PRIORITY

SNRARRAAAAANAAAAAAAAAANR
A AR A AR A AR AN

1255
1256
1257
1258
1259
1260
1261
1
1263
1264

MOVB SYNCNO
MOVB SEXMIT
MOVB SEREC
MOVB OPTCLR
MOVB MULTD
MOVB JMRBY

1
3
1764617
17641
17
17
17
1
17
176
176354
17
176342

1
1
1
1
1
1
1
1
1
1
1
1

1
1
1
1
3
1
1
1
1
1
1228

THIS DIAGNOSTIC OR

: JUST AFTER THE QUESTIONING
; AND ANSWERING .

SRR ARRAAA A AN ARAAARAAARA
AR AR AR AN AN RN

003132
003136
003140
003144
003150
0031 zg
0031

003196

005737
00140
000167
1041;2;
062
010067
010167

012767

003174 - 81.
003200
012701
003204 * 0101
003203
2701
00321
127
003216
1372
003220
012700
003224 010067

001222

HEREU:

000116
017646
000001
176042
176040

001222

88%83

2"’
001300

- BEQ
SETFG
JMP THRU

SETFG:

TYPE , MSTATUS

ADD #1, BNFLAG

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

; SET FLAG ON 1ST PASS
.
; SAVE RO
SAVE R1

176034

MOV #STATUS,

FILBUF: MOV R1, (ROS+

ADD og R

000002
001306
176006

TST WFLAG

UP:

CMP R1, #STATUS+6
BNE FI(BUF
MC #BUFF1 RO

MOV RO , TABLE+4

; COUNTER FOR WORDS PRINTED

: (BUFF1)=STATUS ETC.
: LOAD BUFF AS ABOVE
: PREPARE STATUS ADDRESS
: CHECK IF 3 WORDS LOADED
: BACK TO LOAD NEXT ADDRESS
: LOAD FOR PRINT QUT
sLOAD ADDRESS TO PRINT

-t

D D
D d

175746
175744

DEC COUNTT
BNE UP
MOV HOLDO,RO
MOV HOLD1. R1

“COUNT WORDS PRINTED
* GO PRINT NEXT ADDRESS/CONTENTS

;SET UP STACK
:1S PROGRAM UNDER MONITOR CONTROL

: CR AND LF

MOV
éag

#STACK, SP
2242

105767

175702

TSTB

001407
016767
016767

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

011240
011234

5552

000004

gl\
o

001100
000042

BEQ

MOV

BRW, TTST

B8R

MOV

gg;

BRX.TTST+2
gngZ.GSUR

INSTR

175703

000240
000240
011156

011152
000002

%gerG

MOV

ANOP,TTST

gég

#NOP.TTST+2
2
BRW,TTST
BRX.TTST+2

§§u61,asun

INSTR

175456

MOV
TYPE
JMP

*CHECK FOR LOCK ON TEST

“SET FLAG BASED UPON INPUT STRING
*THIS FLAG
*1S LOCK ON TEST OPTION SELECTED

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

<IF SWO1=1, GET STARTING PC
*MESSAGE

PARAM
TST1
TLAST
?TRN

*DITTO

:JUMP AROUND IF YES

;OUTPUT MESSAGE & GET INPUT STRING

MTSTPC

*RESTORE NORMAL SCOPE LOOP

“MESSAGE

SETFLG
LOKFLG
5258

MOV
BR
MOV
MOV

:IF NO,TEST FOR LOCK ON TEST

;OUTPUT MESSAGE & GET INPUT STRING

MLOCK

WN=O
VNN

8 BRI g

: LOAD CONTENTS

: PRINT ADDRESS/CONTENTS PAIR

:QQQ'.tt'.t'tt"t.'tit.t.tti'tt.'

D D D
D ) d
D )
i
D ) D d
) D D D D
D d
D

TABLE+10

CONVRT , TABLE
TYPE, MCRLF

175760

D e

D ——d

d D D

SEQ 0027
MOV (RO)+,

d e

)

D d

—

D e

d —d

WWWWWWWWWW

D e
D
d e

e d e
W
e
—

PAGE 30

1760%6
001232
017110

D d D i

D D D

i5:36

RS
AR SAR L P L AL JANoNr

DZDUB~C MACY11_30A(1052)
?1 =NOV-78
CZDuBD .P11
13:59
31-0CT-

*CONVERT STRING
SLOW LIMIT
SHIGH LIMIT
:g;oze AT THIS LOCATION

#TST1,RTRN
MR
SRTRN

*HOW MANY TIMES + 2

;START AT TEST 1
*TYPE R
*START TESTING

2sTHIS TEST VERIFYS WORD LENGTH SELECT OF THE
s;RECEIVER SECTION,IT USES THE ERROR FLAGS
2:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
> 2 (OVRRUN ,RXERR)

: ISYMOD
> 2MODE
2 sLENGTH:SIX

:
; 1 CHAR25

MOV

#7,TSTNO

#TST2 NEXT

:SAVE THIS

;GO TO THIS TEST WHEN THRU

DZDUB-C MACY11 30A(10;2)1 21-NOV-78

CZbuBD .P11
1330

1331

g}g

1334

ggg

1337

1338

31-0CT=78

003462

052777

13:59
3:5

15:36

000400

015070

000400

015054

003470

012777

000000

003504

012777

064001

015046

003512

012777

002000

015034

003476

052777

1339

003520

052777

1341
1342

003526
003534

042777
052777

020000
020000

015024
015016

1364
1345

003542
003550

042777
052777

020000
020000

015010
015002

1340
1343

1346 003556

1347
1348
1349

003574

1351

003606

1350
1352

003612

016703

012767

000252

105777

014732

004767 014442
100401

003614
003616
003616
003622

017701
020001

1358
1359

003626

104002

1361

003630

1360

003624

014766

012700 000025
012767 000010

1353
1354
1355
1356

1357

000020

015056

175302
175300

1366
1367

003650
003656

012767
012767

000010
000252

175262
175260

1369

003670

012700

1371
1372

003674
003700

017701
020001

003704

104002

1373

1379
1380
1381

1382

1383
1384
1385

003702

003706
003706

MMTDATA! CLK 'MINT 'BREAK ,@TXCSR
#1SYMOD
' SIX!NOPAR 0, aPARCSR

BIS

#SYNSCH,@RXCSR

:SET SYNC SEARCH

BIC
BIS

#CLK,@TXCSR
#CLK ,@TXCSR

;POKE CLK DOWN
POKE (LK UP

BIC
BIS

#CLK,aTXCSR
#CLK.@TXCSR

;POKE CLK DOWN
*POKE CLK UP

MOV
MOV

#25.R0 :EXPECTED
#8. SHIFT
:# OF SHIFTS

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
MOV

MOV

#252, TEMP1

TSTB

@RXCSR

JSR

658:

RXDBUF ,R3

PC ,RPOKE

*SET UP FOR ERROR MESSAGE

*DATA CHAR

“SHIFT IN THIS CHAR

;RXDONE ?

BM]

64$

MOV
CMP

aRXDBUF ,R1
JACTUAL
RO,R1
;COMPARE EXPECTED VvS. ACTUAL

HLT

;RXDONE SHOULD BE SET

65$

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA - CHECK MAINT DATA

*OR RECEIVER LOGIC
MOV
MOV
JSR

#8. SHIFT
#252, TEMP1
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
*SHIFT IN THIS CHAR

MOV
MOV

#8. SHIFT
#252, TEMP1

:# OF SHIFTS
*DATA CHAR

140025

MOV

#140000'25,R0

014650

MOV
cTMMP

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

HLT

004767 014360

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF
JSR

001401

104400
-

:MASTER RESET

BEQ

000010
000252
014400

1374
1375
1376
1377
1378

#MRESET ,@TXCSR

MOV

001407

012767
012767
004767

1370

BIS

#1SYMOD ,aPARCSR :SET THE MODE

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

648
:

003630
003636
003644

1368

;MASTER RESET

MOV

175342

1362
1363
1364

1365

#MRESET,@TXCSR

:SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

175344

014726

SEQ 0028

BIS

MOV

015016

104000

PAGE 31

BEQ

668:

PC RPOKE

66$

*SHIFT IN THIS CHAR
:EXPECTED DATA PLUS

*RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR &
*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE
::THIS TEST VERIFYS WORD LENGTH SELECT OF THE

“:RECEIVER SECTION,IT USES THE ERROR FLAGS
*:T0 DETERMINE THAT IT WAS SELECTED CORRECTLY
2 ; C(OVRRUN ,RXERR)

* *MODE
: ] SYMOD

; sLENGTH:SIX
::CHAR: 5S¢
22

DZDUB-C MACY11 30A(1052)

| CZDUBD.P11
1

1387

31-0CT=78 13:59

003710

003716

012767

}3334

1395

139%
1397

1398
1399

1400

012777

000000

014614

003746

012777

064001

014604

003754

012777

002000

014572

003740

003762

003770

052777

042777

020000

1403
1404
1405
1406
1407
1408

004012
004020
004024
004030
004036
004044

052777
016703
012700
012767
012767
004767

1410

004054

100401

1402

1409

1411
1412

1413

1414

1415

1416
1417
1418
1419

004050

004056
004060

105777

004066

001401

004072

020000
014524
000052
000010
000324
014200

020001

012767
012767
004767
012700

000010
000324
014116
140052

175020
175016

1429
1430

004136
004142

017701
020001

014406

1432
1433
1434
1435

004146

104002

1438

1439
1440

1441

BIC

#1SYMOD,@PARCSR :SET THE MODE

AMTDATA! CLK 'MINT 'BREAK , @aTXCSR
#1SYMOD
' SIX'NOPAR !0, 3PARCSR
#SYNSCH,@RXCSR

:SET SYNC SEARCH

#CLK,@TXCSR

:POKE CLK DOWN

BIS

#CLK.@TXCSR

BIC

#CLK,3TXCSR

:POKE CLK DOWN

8. .SHIFT
#324, TEMP1
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

“POKE CLK UP

:POKE CLK TO GET LOGIC INTO SYNCRONIZATION

BIS
MOV
MOV

#CLK.@TXCSR
*POKE CLK UP
RXDBUF ,R3
“SET UP FOR ERROR MESSAGE
#52.R0° ;EXPECTED

TSTB

@RXCSR

MOV
MOV
JSR

65%:

HLT

64$

;RXDONE ?

;RXDONE SHOULD BE SET

MOV

aRXDBUF ,R1

BEQ

65$

MOV
MOV
JSR

#8. . SHIFT
#324, TEMP1
PC ,RPOKE

:# OF SHIFTS
‘DATA CHAR
SSHIFT IN THIS CHAR

MOV
MOV
JSR
MOV

#8. SHIFT
#324, TEMP1
PC .RPOKE
#140000'52,R0

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR
-EXPECTED DATA PLUS

MOV
CMP

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

HLT

JACTUAL

RO,R1

;COMPARE EXPECTED VS. ACTUAL

:RECEIVED DATA DID NOT MATCH
*EXPECTED DATA - CHECK MAINT DATA
*OR RECEIVER LOGIC

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

001401

104400

:GO TO THIS TEST WHEN THRU

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

HLT

004112
004120
004126
004132

1437

BIS

104002

1424
1425
1426
1427

1436

-MASTER RESET

cTMMP

175040
175036

004150
004150

MMRESET.@TXCSR

MOV

648
:

000010
000324
014136

004144

;MASTER RESET

BM]

012767
012767
004767

1431

#MRESET,@TXCSR

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

014470

004072
004100
004106

1428

BIS

MOV

175102
175100

1420
1421
1422

1423

:SAVE THIS

ATST3,

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

014540

014464

SEQ 0029
#2,TSTNO

BIS

014562

014554

MOV

014554

104000

017701

004070

020000

PAGE 32

TST2:

014612

042777 020000 014546

004060

064

000400

000020

052777

175172

00 014626

052777

003776

1401

175210

004152

1389 003732
139%

ooooog

15:36

012767

1388 0037§42. 052777

}3339

21-NOV-78

BEQ

66$

668:

SCOPE

*RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR &
*OVRRUN BITS...THEY BOTH SHOULD BE SET

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
*:RECEIVER SECTION,IT USES THE ERROR FLAGS
$:T0 DETERMINE THAT IT WAS SELECTED CORRECTLY

: : (OVRRUN,RXERR)
> *MODE : 1S "MOD

J2LENGTH:SIX

| DZDUB=C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT=78 13:59

15:36

?4‘2

004152
004160
004166

012767
012767
052777

000003
004414
000400

174746
174730
014364

004202

052777

000400

014350

1450
}tgg

1453

1454

1455

1456

004176

012777

000000

004210

012777

064001

014342

004216

012777

002000

014330

004224

052777

000020

042777
052777

020000
020000

014320
014312

1460
1461

0046246
004254

042777
052777

020000
020000

014304
014276

006262

1463 004296

016703

004272
004300
004306

012767
012767
004767

1468

004316

100401

1469
1470

004312

004320
004322

105777

004322
004326

017701
020001

1474
1475
1476
1477

006332

104002

004330

004334

000010
000376
013736

014222

174576
174574

1482
1483

004354
004362

012767
012767

000010
000376

174556
174554

014144

004400
004404

017701
020001

1490

004410

104002

1492
1493

004412
004412

1486

1489
1491

1494

1495

1496

1497

004406

BIS

013654
140077

#1SYMOD ,@PARCSR :SET THE MODE

MMTDATA! CLK 'MINT 'BREAK ,@TXCSR
#1SYMOD ! SIX 'NOPAR !0, aPARCSR
#SYNSCH,3RXCSR

:;SET SYNC SEARCH

8IC
BIS

#CLK,@TXCSR
#CLK.@TXCSR

;POKE CLK DOWN
POKE CLK UP

BIC
BIS

#CLK,@TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
*POKE CLK UP

MOV

#77.R0°

EXPECTED

@RXCSR

;RXDONE ?

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

MOV

65%:

RXDBUF ,R3

MOV
MOV
JSR

#8. .SHIFT
#376, TEMP1
PC ,RPOKE

BM]

64$

HLT

“SET UP FOR ERROR MESSAGE
:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

;RXDONE SHOULD BE SET

MOV
cMP

ARXDBUF ,R1
sACTUAL
RO,R1
;COMPARE EXPECTED VS. ACTUAL

HLT

65$

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA - CHECK MAINT DATA
:0OR RECEIVER LOGIC

MOV
MOV
JSR

#8. SHIFT
#376, TEMP1
PC . RPOKE

:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

MOV
MOV
JSR
MOV

#8. SHIFT
#376, TEMP1
PC .RPOKE
#140000177,R0

:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR
:EXPECTED DATA PLUS

MOV
cMP

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

HLT

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

001401

104400

:MASTER RESET

BEQ

000010
000376
013674

1487
1488

#MRESET,8TXCSR

MOV

648:

012767
012767
004767
004767
012700

BIS

TSTB

004334
004342
004350
004370
004374

:SAVE THIS
:GO_TO THIS TEST WHEN THRU
;MASTER RESET

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

001401

1484
1485

#3,TSTNO
#TST4,NEXT
MMRESET ,TXCSR

MOV

014226

1478
1479
1480

1481

SEQ 0030

:SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

174640
174636

104000

1471
1472
1473

014262

12700 000077

1464
1465
1466

1467

MOV
MOV
BIS

MOV

014312

004232
004240

1462

TST3:

014352

1457
1458

1459

::CHAR:77

1444
1445
1646

1447

PAGE 33

BEQ

66$

66$:

*RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE

SCOPE

:;THIS TEST VERIFYS WORD LENGTH SELECT OF THE
“:RECEIVER SECTION.IT USES THE ERROR FLAGS

2:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
: : (OVRRUN ,RXERR)

SET

DZDUB-C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

1498
1499

::CHAR:0

1502

004414

012767

000004

174504

1504

004430

052777

000400

014122

000400

014106

1505

004422

004436

012767

012777

004656

000000

174466

052777

}ggg 004452

012777

064001

014100

004466

012777

052777

002000

014066

1515
1516

004474
004502

042777
052777

020000
020000

014056
014050

1518

004510

042777

020000

014042

1508
1512

1513
1514

1517

004460

1519
1520
1521

004516
004524
004530

1523
1524

004542
004550

1522

1525

1526
1527

1528

004534

004554

004560

004562

004564

020000
014020
000000

014034

012767
004767

000200
013474

174374

012767 000010
105777

100401

1531

004572

004574

1535

004576

1534

104000

013760

:MASTER RESET

000010
000200
013412
140000

174314
174312

1545
1546

004642
004646

017701
020001

013702

1548
1549

004652

104002

GO TO THIS TEST WHEN THRU

#1SYMOD ,@PARCSR :SET THE MODE

MMTDATA! CLK 'MINT 'BREAK , @TXCSR

,# OF BITS,PARITY SENSE.ELOAD SYNC REG

MOV

#1SYMOD
' SIX'NOPAR 0, 3PARCSR

BIC
BIS

#CLK,TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
POKE CLK UP

BIC

#CLK,aTXCSR

;POKE CLK DOWN

#8. SHIFT

:# OF SHIFTS

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

BIS
MOV
MOV

#CLK.TXCSR
*POKE CLK LP
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#0.R0 ~ :EXPECTED

MOV
JSR

#200, TEMP1
PC ,RPOKE

MOV

HLT

65%:

@RXCSR

64$

*DATA CHAR
*SHIFT IN THIS CHAR

;RXDONE ?

;RXDONE SHOULD BE SET

MOV
CMP

@RXDBUF ,R1
sACTUAL
RO,R1
~;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ

012767
012767
004767
012700

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

104002

65$

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA - CHECK MAINT DATA

*OR RECEIVER LOGIC
MOV
MOV
JSR

#8. SHIFT
#200, TEMP1
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
*SHIFT IN THIS CHAR

MOV
MOV
JSR
MOV

#8. SHIFT
#2008, TEMP1
PC .RPOKE
#140000'0,R0

:# OF SHIFTS
*DATA CHAR
*SHIFT IN THIS CHAR
:EXPECTED DATA PLUS

MOV
CMP

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

HLT

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

001401

104400

#MRESET.@TXCSR

;SET MODE

001401

004616
004624
004632
004636

004654
004654

:MASTER RESET

MOV

64$:

1540
1541
1542
1543

1550
1551
1552
1553

#MRESET,3TXCSR

TSTB

174334
174332

004650

BIS

BM]

000010
000200
013432

1547

:SAVE THIS

#TSTS

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

013764

012767
012767
004767

1544

#4,TSTNO

BIS

174376

1536 004576
1537 004604
1538 004612
1539

MOV

MOV
MOV

014050

052777
016703
012700

1529 004564 017701
1530 004570 020001
1532
1533

000020
)

TST4:

014110

004444

1511

SEQ 0031

: :MODE
: 1 SYMOD
*SLENGTH:SIX

‘1'55(%

1503

5.8

PAGE 34

BEQ

66$:

66$

*RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR &
*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE
:;THIS TEZT VERIFYS WORD LENGTH SELECT OF THE
“:RECEIVER SECTION,IT USES THE ERROR FLAGS

DZDUB~C MACY11_30A(1052)
_21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

PAGE 35

1554
1556

::TO DETERMINE THAT IT WAS SELECTED CORRECTLY
+ : (OVRRUN,RXERR)
* *MODE : ] SYMOD

1555

1557
}ggg

:;LENGTH:SEVEN
::CHAR: 125

1560 004656
1561 004664

012767
012767

000005
005120

1563

012777

000000

013646

1562

004672

004700

052777

000400

174242
174224

052777

000400

}Ssgg 004714

012777

064001

013636

012777

004000

013624

1566
15720
1571

004722

004730

052777

1573
1574

004736
004744

1526
1577

004752
004760

1572
1575

1578
1579
1580
1581
1582

042777
052777

020000
020000

013614
013606

042777
052777

020000
020000

013600
013572

016703
012700
012767
012767
004767

005022

100401

1583

005016

1585
1586

005024
005026

1584

013606

1587
1588
1589

005026
005032
005034

1596
1595
1,96

013556
000125
000011
000652
013232

105777

104000

000011
000652
013170

174072
174070

1598 005060
1599 005066
1600 005074
1601 005100

012767
012767
004767
012700

000011
000652
013150
140125

174052
174050

1603
1604

017701
020001

013440

1602

1605

1606

1607

[

1608
1609

005104
005110

005112
005114

005116
005116

MOV
MOV

104400

#1SYMOD ' SEVEN'NOPAR
!0, aPARCSR

#SYNSCH,@RXCSR

:SET SYNC SEARCH

BIC
BIS

#CLK,@TXCSR
#CLK .@TXCSR

:POKE CLK DOWN
“POKE (LK UP

BIC
BIS

#CLK,3TXCSR
#CLK.@TXCSR

;POKE CLK DOWN
*POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

658

MOV
MOV
MOV
MOV
JSR

RXDBUF ,R3
“SET UP FOR ERROR MESSAGE
#125,R0 ;EXPECTED
#9. SHIFT
:# OF SHIFTS
#652, TEMP1
*DATA CHAR
PC ,RPOKE
“SHIFT IN THIS CHAR

8M]

64$

MOV
CMP
BEQ

@RXDBUF ,R1
;ACTUAL
RO,RT
~;COMPARE EXPECTED VS. ACTUAL
65$

MOV
MOV
JSR

#9. SHIFT
#652, TEMP1
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR

MOV
MOV
JSR
MOV

#9. SHIFT
#652, TEMP1
PC ,RPOKE
#140000'125,R0

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR
:EXPECTED DATA PLUS

MOV
CMP

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

HLT

@RXCSR

:;RXDONE ?

;RXDONE SHOULD BE SET

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA - CHECK MAINT DATA
:OR RECEIVER LOGIC

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

001401

BEQ

MMTDATA! CLK 'MINT 'BREAK ,@TXCSR

BIS

HLT

-MASTER RESET

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

104002

MMRESET.@TXCSR

;MASTER RESET

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

64$:

012767
012767
004767

1597

#1SYMOD.@PARCSR :SET THE MODE

TSTB

005040
005046
005054

005040

MOV

#MRESET,@TXCSR

:SAVE THIS
:GO TO THIS TEST WHEN THRU

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

013522

013516

005036

#5,TSTNO
#TST6 NEXT

BIS

174134
174132

017701
020001
001401

1590
1591
1592
1593

MOV
MOV
BIS

013644

000020

004766
004772
004776
005004
005012

TSTS:

013660

004706

1569

SEQ 0032

608:

S OPE

65$

*RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

DZDUB-C MACY11_30A(1052)
21-NOV-78
31-0CT-78 13:59
-b

*:RECEIVER SECTION,IT USES THE ERROR FLAGS

2 (ovmms.nxenm
: SYMOD
* *MODE
: *LENGTH: SEVEN
::CHAR:S52

052777

000006
005362
000400
000000
000400

012777

064001

012777
052777

004000
000020

042777
052777

020000
020000

REEERARERERNE

012767

d
d
d

THE

*3T0 DETERMINE THAT IT WAS SELECTED CORRECTLY

TST6:

:SAVE THIS

BIS

#MRESET,TXCSR

:MASTER RESET

MOV

#TST7 NEXT

;GO TO THIS TEST WHEN THRU

#1SYMOD ,aPARCSR ;SET THE MODE
#MRESET ,@TXCSR
;MASTER RESET
#MTDATA!CLK
!MINT !BREAK ,@TXCSR

sSET MODE ,# OF BITS,PARITY SENSE_,SLOAD SYNC REG
MOV
BIS

#1SYMOD ' SEVEN'NOPAR
' 0, @PARC SR
#SYNSCH,@RXCSR
;SET SYNC SEARCH

BIC
BIS

#CLK,3TXCSR
#CLK @TXCSR

:POKE CLK DOWN
: POKE CLK UP

BIC
BIS
MOV

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

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

MOV

#524, TEMP1

*DATA CHAR

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

013314
0000
000011
000
012770
013260

MOV

648:

017701
020001
001401

104002

012767
012767
004767

173630
173626

012767
012767
004767
012700

173610
173606

104002

#6, TSTNO

MOV

sSET MAINT DATA,CLK,BREAK ,EBMAINTENANCE MODE

042777

017701
020001
001401

MOV
MOV
BIS

D
e
e
-

1633

SEQ 0033

::THIS TEST VERIFYS WORD LENGTH SELECT OF

d
e

PAGE 36

cud cn

e e e

15:36

b e
b

d e

oocorororO
O O
o

(ZDUBD.P11

HLT

MOV

#52,R0°
;EXPECTED
#9. SHIFT
:# OF SHIFTS

SSHIFT IN THIS CHAR

sRXDONE SHOULD BE SET

aRXDBUF ,R1

sACTUAL

cMP

22§R1

:COMPARE EXPECTED VS. ACTUAL

HLT

sRECEIVED DATA DID NOT MATCH

65%:

SEXPECTED DATA - CHECK MAINT DATA
;OR RECEIVER LOGIC

MOV
#9. ,SHIFT
:# OF SHIFTS
MOV
#524 , TEMP1
;DATA (HAR
PC ,RPOKE
sSHIFT IN THIS CHAR
JSR
sNOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF
MOV
9 . .SHI FT
:# OF SHIFTS

MOV

#524, TEMP1

“DATA CHAR

MOV

#140000'52,R0

:EXPECTED DATA PLUS

MOv
P

aRXDBUF ,R1
;ACT AL
:ACTU
RO,R1T
°;COMPARE EXP VS. ACT

HLT

JSR

BEQ

PC ,RPOKE

66$

“SHIFT IN THIS CHAR

;RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR §&

:OVRRUN BITS...THEY BOTH SHOULD BE SET

DZDUB~C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT=78 13:59
1666
1667

1668
1669
1670

005360
005360

15:36
66$:

104400

005362

012767

000007

173536

1678

005376

052777

000400

013154

000400

013140

005370

1679 005406

012767

012777

005624

000000

173520

052777

}&3 005420

012777

064001

013132

012777

004000

013120

1682

1687

1688

005426
005434

052777

005442

005450

052777

020000

013102

1692

005456

042777

020000

013074

169
1695
1696
1697
1698

005472
005476
005502
005510
005516

016703
012700
012767
012767
004767

013052
000177
000011
000776
012526

1700
1701

005526
005530

100401
104000

1703

005532

017701

005540

001401

1691

1693

1699

1702

1704

1705

1706
1707

1708
1709

005464

005522

005532

005536

005542

544

052777

105777

020001

020000

013110

BIS

#MRESET,ATXCSR

;MASTER RESET

MMRESET.@TXCSR

:MASTER RESET

MOV

MOV
BIS

BIC

560

004767

012464

1714

005564

012767

000011

005610
005614
005616

017701
020001
001401

012734

#CLK,3TXCSR

:POKE CLK DOWN

#CLK,3TXCSR

MOV
MOV
MOV
MOV
JSR

RXDBUF ,R3
“SET UP FOR ERROR MESSAGE
#177
RO ;EXPECTED
#9. SHIFT
:# OF SHIFTS
8776, TEMP
*DATA CHAR
PC ,RPOKE
*SHIFT IN THIS CHAR

8M]
HLT

648
:RXDONE SHOULD BE SET

MOV
P

173346

:;SET SYNC SEARCH

BIC

BIS

€4$:

1715 005572 012767 000776 173344
1716 005600 004767 012444
1717 005604 012700 140177

#SYNSCH,@RXCSR

POKE CLK UP
;POKE CLK TO GET LOGIC INTO smckmmnm

HLT

171§

#1SYMOD
! SEVEN'NOPAR ' 0,aPARCSR

#CLK.@TXCSR

TSTB

173366

MMTDATA' CLK 'MINT 'BREAK ,@TXCSR

BIS

BEQ

000011

#1SYMOD .aPARCSR -SET THE MODE

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

104002

012767

GO TO THIS TEST WHEN THRU

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

173430
173426

013012

005544

1718

:SAVE THIS

#TSTB NEXT

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

013066

1711 005552 012767 000776 173364

1719
1720
1721

#7,TSTNO

BIS

013016

1710
171

MOV

MOV
MOV

013102

1689

1690

042777

000020

TST7:

013142

005412

1686

SCOPE

:iC

1676

1685

SEQ 0034

¥: (OVRRUN ,RXERR)
: :MODE: 1SYMOD
..Lsucm
;svsn

}g;g

}gg?

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
..RECEIVER SECTION,IT USES THE ERROR FLAGS
*TO DETERMINE THAT IT WAS SELECTED CORRECTLY

1671
167
167

1677

PAGE 37

658:

#CLK.@TXCSR

@RXCSR

:POKE CLK DOWN

*POKE CLK UP

;RXDONE ?

@RXDBUF ,R1

CTUAL

RO,RT

~:COMPARE’ sxpscrzo VS. ACTUAL

;RECEIVED DATA DID NOT MATCH
EXPECTED DATA = CHECK MAINT DATA

65$

:OR RECEIVER LOGIC
MOV

MOV
JSR

méSHIFT
TEMP?
C .RPOKE

:# OF SHIFTS

*DATA CHAR

“SHIFT IN THIS CHAR

:NOW SHIFT IN A sscow CHARACTER W] THOUT awmc RXDBUF

MOV

MOV
JSR
MOV

IFT
:# OF SHIFTS
amrsm
*DATA THAR
“SHIFT IN THIS CHAR
nloooo'wrno *EXPECTED DATA PLUS

MOV
(MP
BEQ

@RXDBUF ,R1
“AC TUAL
Ro,R1T " :COMPARE EXP VS. ACT
668

nxm £ OVRRUN

—

DZDUB-C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

005620

1724 005622

1725

1726

005622

15:36

104002

HLT

668 :

104400

005624
005632
005640

012767
012767
052777

000010
006066
000400

005654

052777

000400

1737 005646

1740

;;25 005662

1746

1747
1748

1749

005670
005676

005704

005712

1750

005720

1752
1753
1754
1755

1751

012777

012700

012777

064001

012670

012777

004000

012656

052777

042777

052777

020000

016703
012700
012767
012767

012610
000000
000011
000400

005770

100401

005772
005774

052777

004767
105777

005774
006000

017701
020001

1764
1765

006004

104002

1767

006006

006002

020000

012264
012554

012640

012632

BIS

#MRESET .@TXCSR

:MASTER RESET

MOV
BIS

1770

006022

004767

012222

BIC

BIS

1772

006026

012767

000011

BIC

BIS

MOV
MOV
MOV
MOV

012472

#SYNSCH,@RXCSR

:SET SYNC SEARCH

#CLK,@TXCSR

:POKE CLK DOWN

#CLK. @TXCSR

‘POKE CLK UP

648

65%:

#CLK,STXCSR

#CLK.@TXCSR

:POKE CLK DOWN

*POKE CLK UP

RXDBUF ,R3
:SET UP FOR ERROR MESSAGE
#0,R0O ~ :EXPECTED
#9. SHIFT
:# OF SHIFTS
#400, TEMP1
*DATA CHAR

JSR
TSTB

PC ,RPOKE
*SHIFT IN THIS CHAR
@RXCSR
;RXDONE ?

HLT

;RXDONE SHOULD BE SET

BM]

173104

#1SYM
! SEVENNOPAR
OD
!0, aPARCSR

:POKE CLK TO GET LOGIC INTO SYNCRONIZATION

173166
173164

1773 006034 012767 000400 173102
1774
006042 004767 012202
1775 006046 012700 140000

#MTDATA! CLK 'MINT !BREAK ,aTXCSR

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

012624

173124

#1SYMOD ,@PARCSR :SET THE MODE

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

MOV
CMP
HLT

000011

017701

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

BEQ

012767

006052

sxs

#8,TSTNO
#TSTO, NEXT
MMRESET ,TXCSR

MOV

001401

006006

1777

hov

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

012646

1769 006014 012767 000400 173122

1776

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

MOV

012640

012550

1768

1771

TST8:

012676

104000

1761
1762

1766

020000

005734
005740
005744
005752

1759
1760

1763

000020

020000

005760
005764

173274
173256
012712

000000

042777

005726

1756
1757

1758

; ; (OVRRUN ,RXERR)
“MODE: I SYMOD
..LENGTH SEVEN

1734
1735
173

1745

SEQ 0035

*:RECEIVER SECTION,IT USES THE ERROR FLAGS
:3TO DETERMINE THAT IT WAS SELECTED CORRECTLY

1729
1730
1731

1744

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE

1727
1728

1743

PAGE 38

64$

aRXDBUF ,R1
: ACTUAL
RO,R1
~;COMPARE EXPECTED VS. ACTUAL

65§
2

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA = CHECK MAINT DATA

*OR RECEIVER LOGIC
MOV

MOV
JSR

m.obSHIFT
TEMP1
PC ,RPOKE

:# OF SHIFTS

*DATA CHAR

“SHIFT IN THIS CHAR

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF
MOV

#9. SHIFT

:# OF SHIFTS

MOV
JSR
MOV

u.obrsm
n/:oooo:o.no

:DATA CHAR
*EXPECTED DATA PLUS

MOV

@RXDBUF ,R1

*ACTUAL

“SHIFT IN THIS CHAR

*RXERR & OVRRUN

DZDUB-C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

1778 006056 020001

1779

006060

1780

006062

1782
1783

006064
006064

1781

1784
1785
1786

cTMP

001401

BEQ

104002

HLT

668

104400

012767
012767

000011
006330

1795

006110

012777

000000

012436

}g 006124

012777

064001

012426

012777

006000

012414

006102

006116

1798

1802

1803

1804

006140

052777

000400

000020

012404
012376

1808

006162

042777

020000

012370

006176
006202
006206
006214
006222

016703
012700
012767
012767
004767

006232

100401

1815

1816
1817
1818

006226

006234
006236

052777

105777

017701

1821

001401

1820

006242

1822

006246

006244

020000

012346
000125
000012
001252
012022

1828

1829

020001

MOV

#1SYMOD ,@PARCSR :SET THE MODE

MOV
BIS

#MRESET.@TXCSR

BIC
BIS

#1SYMOD ' E IGHT 'NOPAR !0, @PARCSR
#SYNSCH.BRXCSR

:SET SYNC SEARCH

#CLK,TXCSR
#CLK.TXCSR

:POKE CLK DOWN
:POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC

BIS

648
:

#CLK,3TXCSR

#CLK.TXCSR

RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#125.R0 :EXPECTED
#10, SHIFT
:# OF SHIFTS
#1252, TEMP1
*DATA CHAR
PC ,RPOKE
“SHIFT IN THIS CHAR

BM]

64$

MOV

aRXDBUF ,R1

BEQ

658

HLT

000012
001252

004767 011760

006270
006276

012767
012767

000012
001252

1833

006310

012700

140125

004767 011740

172662
172660

172642
172640

:POKE CLK DOWN

*POKE CLK UP

MOV
MOV
MOV
MOV
JSR

104002

012767
012767

:MASTER RESET

AMTDATA! CLK 'MINT 'BREAK , 3TXCSR

@RXCSR

;RXDONE ?

:RXDONE SHOULD BE SET

;ACTUAL

RO,R1T

~;COMPARE EXPECTED VS. ACTUAL

;RECEIVED DATA DID NOT MATCH

006250
006256

;MASTER RESET

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

TSTB

012306

MMRESET,@TXCSR

:SAVE THIS
:GO TC THIS TEST WHEN THRU

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

012312

1830
1831

1832

*OVRRUN BITS...THEY BOTH SHOULD BE SET

#9,TSTNO
#TST10,NEXT

MoV

172724
172722

}ggg

1826
1827

;SPECIFICALLY LOOK AT RXERR &

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

012362

104000

1819 006236

1823

66$

MOV
MOV
BIS

012376

020000
020000

1810
1811
1812
1813
1814

;COMPARE EXP VS. ACT

SCOPE

BIS

012434

042777
052777

006170

TST9:

012450

006146
006154

1809

006132

052777

173032
173014

1805
1806

1807

RO,R1

::CHAR: 125

1792 006066
1793 006074

1801

2 3 (OVRRUN ,RXERR)
2 2MODE
: 1SYMOD
2 :LENGTH:EIGHT

}778(1)

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
::RECEIVER SECTION,IT USES THE ERROR FLAGS
$:TO DETERMINE THAT IT WAS SELECTED CORRECTLY

1787
1788
1789

1796

PAGE 39

*EXPECTED DATA - CHECK MAINT DATA
:OR RECEIVER LOGIC

MOV
MOV

JSR

#10, SHIFT
#1252, TEMP1

PC ,RPOKE

:# OF SHIFTS
*DATA CHAR

*SHIFT IN THIS CHAR

:NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

MOV
MOV

#10, SHIFT
#1252, TEMP1

;4 OF SHIFTS
*DATA CHAR

MOV

#140000'125,R0

:EXPECTED DATA PLUS

JSR

PC ,RPOKE

*SHIFT IN THIS CHAR

SEQ 0036

DZDUB~C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT=78 13:59

1834

1835 006314
1839 006320
1837
006322

1838

006324

1840
1841
184%

006326
006326

1839

017701
020001
001401

15:36

PAGE 40

012230

MOV
CMP
BEQ

104002

HLT

66$:

104400

184
1844
1845
1846
1847

1845

006330
006336

012767
012767

000012
006572

1853

006352

012777

000000

006366

012777

064001

006374

012777

006000

006344

}g% 006

1856

}ggg

1859

1860
1861

1862
1863

006402

006410

052777

042777

1866
1867

006426
006432

042777
052777

020000
020000

006440

#10,TSTNO
#TST11,NEXT

MOV

#1SYMOD ,aPARCSR :SET THE MODE

MOV
MOV
BIS

BIC

006500
006504

017701
020001

1880

006510

104002

1879
1881

1882

1883

1884
1885

1886

1887
1888

006506

006512

006512
006520
006526

006532

012044

648:

001401

012767
012767

004767

012767

000012

1889 006540 012767 001524

:POKE CLK DOWN

PC,RPOKE

“SHIFT IN THIS CHAR

:POKE CLK UP

658:

:SET UP FOR ERROR MESSAGE

:252
R6 ExPecrsb
#10. (SHIFT
:# OF SHIFTS
nsz/: TEMP1
*DATA CHAR
@RXCSR

;RXDONE ?

BM]

64$

MOV
CMP

@RXDBUF ,R1
: ACTUAL
RO,R1T
;COMPARE EXPECTED VS. ACTUAL

HLT

011516

#CLK,3TXCSR

:POKE CLK DOWN
*POKE CLK UP

BEQ

000012
001524

;SET SYNC SEARCH

#CLK,aTXCSR
m.x arxcsn

TSTB

1877
1878

#SYNSCH,@RXCSR

BIC
BIS

MOV
MOV
MOV

012050

104000

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

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

JSR

100401

MMTDATA!
CLK 'MINT !BREAK ,@TXCSR

#CLK.@TXCSR

004767 011560

0064764

:MASTER RESET

BIS

1873

006476
006

#MRESET.@TXCSR

;MASTER RESET

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

MOV

105777

#MRESET,@TXCSR

:SAVE THIS
GO TO THIS TEST WHEN THRU

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

012104

006470

016703

1869 006444 012700 000252
1870 006450 012767 000012
1871 006456 012767 001524
1874

:OVRRUN BITS...THEY BOTH SHOULD BE SET

:SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

020000

1875
1876

;SPECIFICALLY LOOK AT RXERR &

MOV
MOV

BIS

000020

052777

1872

SCOPE
:;THIS TEST VERIFYS WORD LENGTH SELECT OF THE

BIS

052777 000400

006416

1868

$T10:

000400

1864

1865

:RXERR & OVRRUN

@RXDBUF ,R1
*ACTUAL
RO,RT
:COMPARE EXP VS. ACT
66$

:;RECEIVER SECTION,IT USES THE ERROR FLAGS
::TO DETERMINE THAT IT WAS SELECTED CORRECTLY
: ; (OVRRUN,RXERR)
“MODE: ] SYMOD
..LENGTH
chm

1850
1851

1852

SEQ 0037

;RXDONE SHOULD BE SET

65
2

:RECEIVED DATA DID NOT MATCH

JEXPECTED DATA = CHECK MAINT DATA

*OR RECEIVER LOGIC
MOV
MOV
JSR

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

:# OF SHIFTS
:DATA CHAR

SSHIFT IN THIS CHAR

sNOW SHIFT IN A seco~o CHARACTER WITHOUT READING RXDBUF
MOV

MOV

SHIFT

nszi. TEMP1

;4 OF SHIFTS

“DATA CHAR

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT=-78 13:59

15:36

PAGE 41

1890 ooes«s 004767 011476

JSR

SEQ 0038

PC ,RPOKE

sSHIFT IN THIS CHAR

1891

006552

012700

140252

MOV

#1400001252,R0

1893
189
1895

006556 017701
006562 020001
006564 001401

011766

MOV
cMP
BEQ

@RXDBUF
,R1
*AC TUAL
RO,RT
~;COMPARE EXP VS. ACT
gd

189§

1896

006566

1898

006570

1897

1899

1900
1901
1902
1903
1904
1905

006570

104002

HLT

668
:

104400

1998
1908 006572 012767 000013
172326
1909 006600

012767

007034

1911

006614

012777

000000

011732

006630

012777

064001

011722

006636

012777

1910

}3}5

1914

}g}g

1917

1918

1919

1920
1921

1922

1923

1924

006606

006622

006644

006652

006660

1925

006674

1928
1929
1930

1926

052777
052777

052777

042777

052777

000400
000400

006000
000020

020000

042777 0

1931

1933
193%

006702

016703

006712
006720
006726

012767
012767
004767

000012
001776
011316

172220
172216

006736

100401

006

006740
006742

105777

006750

1938
1939

006752

1941

006754

1940

194.§ 006754
1943
006762
194 006770

1945

001401

#11,TSTNO

;SAVE THIS

BIS

#MRESET,@TXCSR

:MASTER RESET

MMRESET.@TXCSR

-MASTER RESET

MOV

MOV
BIS

BIC
BIS

BIC

AMTDATA!
CLK 'MINT 'BREAK ,@TXCSR

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

;SET SYNC SEARCH

#CLK,3TXCSR

;POKE CLK DOWN

#CLK.@TXCSR

“POKE CLK UP

:POKE CLK DOWN

mx,atxcsa

*POKE CLK UP

MOV
MOV
JSR

#10. “SHIFT
#1776, TEMP1
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

8M]

648

MOV
CMP

anxoeur R1
: ACTUAL
RO,RT
“;COMPARE EXPECTED VS. ACTUAL

MOV

HLT

BEQ

65%:

#CLK,3TXCSR

BIS

MOV

64$:

172156
172154

#1SYMOD,@PARCSR :SET THE MCDE

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

HLT

000012
001776
011254

;GO TO THIS TEST WHEN THRU

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

TSTB

011602
-

#1712 NEXT

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

104002

012767
012767
004767

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

011

104000

1935 006742 017701
1936 006746 020001
1937

011664

011656

*OVRRUN BITS...THEY BOTH SHOULD BE SET

MOV

BIS

011700

011672

;SPECIFICALLY LOOK AT RXERR &

SCOPE

MOV

011672

020000

011642

TST11:

011730

011710

nxsm € OVRRUN

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
.-.-Rscexvsa SECTION,IT USES THE ERROR FLAGS
*TO DETERMINE THAT IT WAS SELECTED CORRECTLY
¥* (OVRRUN,RXERR)
“MODE: ] SYMOD
..LENGTH
7;15%

011744

052777

1927 006706 012700 000377

193;

172310

:EXPECTED DATA PLUS

RXDBUF
,R

*SET UP FOR ERROR MESSAGE

#377 R0 sxpecreb

@RXCSR

;RXDONE ?

;RXDONE SHOULD BE SET

656

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA - CHECK MAINT DATA

*OR RECEIVER LOGIC
MOV
MOV
JSR

#10, ,SHIFT
nm TEMP1
¢ .RPOKE

:# OF SHIFTS
*DATA CHAR
*SHIFT IN THIS CHAR

2NOW smn IN A sscono CHARACTER WITHOUT READING RXDBUF

DZDUB-C MACY11 30A(1052)

CZDUBD .P11
1

21-NOV-78

31-oct-;3 13:59

776

012767 000012

194 889008 015767

198 007010

15:36

PAGE 42

1721

MOV

1776 17 1%2

MOV

004767

11;34

1949 007014 012700 140377

1950
1951 837020 017701

MOV

011524

MOV
cTMMP
BEQ
HLT

195;

7024

1956
1957

007032
007032

196%

1966
1967
1968

007034
007042
007050

012767
012767
052777

000014
007276
000400

172064
172
011502

}3;?

007064

052777

000400

011466

195
1954
1955

1958
1959
1960
1961
196

1969

1972

}3;{3.

1975

1976

020001

001401
104002
668:

104400

007056

012777

007072

012777 064001

011460

007100

012777

011446

042777
052777

020000
020000

011436
011430

198%

007130

042777

020000

011422

007136

052777

006000

052777

000020

020000

007144
007150
007154

016703
012700
012767

011400
000000
000012

007170

004767

011054

TST12:

011470

007114
007122

1984
1985
1986

1989

007174

1991

007202

104000

1993
1994

007204
007210

017701
020001

1996

007214

104002

1999

007216

2001

007224

1990

007200

199§ 007204

105777

100401

1995 007212 001401

1997
1998

nl.oooossn.ao *EXPECTED DATA PLUS

*RXERR € OVRRUN
@RXDBUF ,R1
*ACTUAL
RO,R1
;COMPARE EXP VS. ACT
gei
;SPECIFICALLY LOOK AT RXERR &
*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

BIS

MOV

:SET MODE

BIS

BIC
BIS

012767

001000

BIC

BIS

#MTDATA!
CLK ‘MINT 'BREAK ,aTXCSR

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

;SET SYNC SEARCH

#CLK,3TXCSR
#CLK . @TXCSR

;POKE CLK DOWN
“POKE CLK UP

noob rsm

“DATA CHAR

JSR

PC ,RPOKE

smrr IN THIS CHAR

TSTB

@RXCSR

HLT

;RXDONE SHOULD BE SET

MOV
CMP

BEQ
HLT
65%:

:POKE CLK DOWN

*POKE CLK UP

R3
SET UP FOR ERROR MESSAGE
cono expecrb
#10. .S
:# OF SHIFTS

MOV

64$:

#CLK,3TXCSR

mx arxcsn

MOV
MOV
MOV

BM]

171712

-MASTER RESET

;POKE CLK TO GET LOGIC INTO smckmumon

171756

MMRESET.@TXCSR

#I1SYMOD ,aPARCSR ;SET THE MODE

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

011414

171714

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

,# OF BITS,PARITY SENSE.BLOAD SYNC REG

MOV

011430

011340

#12,TSTNO
lTSfB NEXT
MMRESET,@TXCSR

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

011344

2000 007216 012767 000012

MOV
MOV
BIS
MOV

1987 007162 012767 001000 171754
1988

*DATACHAR

*SHIFT IN THIS CHAR

*MODE: 1 SYMOD

1979
1980

1983

1Y or SHIFTS

..LENGTH EIGHT

007106

1981

SHIFT

976 rem

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
*:RECEIVER SECTION,IT USES THE ERROR FLAGS
*:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
: ; (OVRRUN,RXERR)

1977

1978

JSR

SEQ 0039

MOV
MOV

64$

;RXDONE
?

anxoeur R1
: ACTUAL
; COMPARE EXPECTED VS. ACTUAL

6£
2

;RECEIVED DATA DID NOT MATCH

:EXPECTED DATA = CHECK MAINT DATA
*OR RECEIVER LOGIC

#310, SHIFT

#1000, TEMP

:# OF SHIFTS
‘DATA CHAR

DZDUB-C MACY11_30A(1052)

CZDUBD.P11
%i

2004

007232

007236

2]=NOV-78

31-0CT-78

13:59

004767

011012

012767

#1000, TEMP1

140000

011262

012767

001000

22%

007256

012700

2009
2010
2011

201 §

201
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
20
2034
%%g
2037
2038
2039
0

007262
007266
007270

007272
007274
007274

017701
020001
001401

SEQ 0040

MOV

007244
g

004767

PAGE 43

JSR
PC ,RPOKE
:;SHIFT IN THIS CHAR
sNOW SHIFT IN A SESM CHARACTER WITHOUT READING RXDBUF
MOV
#10, SHIFT
;# OF SHIFTS

000012

007¢52

15:36

010772

JSR

MOV

#140000'0,R0

*SHIFT IN THIS CHAR

MOV

@RXDBUF ,R1

*ACTUAL

BEQ

66$

104002

104400

HLT

*RXERR €& OVRRUN

RO,R1

;COMPARE EXP VS. ACT

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE
:;THIS TEST VERIFYS WORD LENGTH SELECT OF THE

007276
007304
007312
007320
007326

012767
012767
052777
012777
052777

000015
007524
000400
020000
000400

007334

012777

064001

007342
007350

012777
052777

020000
000020

007356
007364
007372

042777
052777
016703
700

020000
020000
011152
000025

007416

004767

000025
010626
011116

017701

TST13:

MOV
MOV
BIS
MOV
BIS

#13,TSTNO
#TST14 NEXT
AMRESET,@TXCSR
#SYNEXT .@PARCSR
AMRESET.@TXCSR

#MTDATA! CLK !MINT !BREAK ,@TXCSR

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

#SYNEXT !F IVE !NOPAR!0,@PARCSR

#SYNSCH,aRXCSR

;SET SEARCH SYNC

#CLK,3TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
*POKE CLK UP

: POKE cué TO GET LOGIC INTO SYNCRONIZATION
RXDBUF ,R3

#25, TEMP1

64%:

011112

007460

004767

000005

00002

010564

*SET UP FOR ERROR MESSAGE

#25,R0°
:EXPECTED
#S SHIFT
:# OF SHIFTS

—_

007452

2767

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

s SET MI%VDATA. CLK ,BREAK ,BMAINTENANCE MODE

65%:

*DATA CHAR

;SHIFT IN THIS CHAR

sRXDONE SHOULD BE SET
aRXDBUF ,R1
sACTUAL
gcs)‘m
s COMPARE EXPECTED VS. ACTUAL

:EXPECTED DATA PLUS

:*RECEIVER SECTION,IT USES THE ERROR FLAGS
$:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
* : (OVRRUN,RXERR)
E
: SYNEXT
* *MOD
2 2LENGTH:FIVE
::CHAR: 2S5

007432

5856

*DATA CHAR

PC ,RPOKE

;RECEIVED DATA DID NOT MATCH
;EXPECTED DATA = CHECK MAINT DATA
:OR RECEIVER LOGIC

#S SHIFT

:# OF SHIFTS

PC ,RPOKE

SSHIFT

228 TEMPY

*DATA CHAR

IN THIS CHAR

DZDUB~C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT=-78 13:59

5‘6”

59 007464

012767 000005

15:36

171446

2060 007472 012767 000025 171444
2061 007500 004767 010544
zoai 007506 012700 140025
%
|

2065

2066

2067

2068

007510 017701
007514

020001

007520

104002

007516

5069 007522

2070

2071
2072
2073
2074
2075
2076

007522

MOV

001401

2080
2081

007532
007540

2083

007554

012767 000016

171356
011012

052777

000400

010776

2086 007562 012777 064001

010770

TST14:

007546 012777 020000 011000

2085

171374

007752

2088

2089 007570 012777 020000
2092

007576

052777

007604

042777

2093

007612

2095
209

052777

000020

020000

010756

010740

010746

020000

010740

007624
007630

012700 000012
012767 000005

171302

2098
2099

007644
007650

004767
105777

2101
2102

007656
007660

104000

5092 007620 016703 010724

2100 007654 100401

2103 007660 017701
2104 007664 020001
2105

2106
2107

007670

007666

001401

2109

007672

2111
2112

007700
007706

2108

2110 007672
2113

@RXDBUF ,R1

ACTUAL

BEQ

66$
2

.RXERR £ OVRRUN

;COMPARE EXP VS. ACT
;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

012767
004767

MOV

#SYNEXT.@PARCSR -SET THE MODE

MOV
MOV
BIS

000012
010336

BIC

171240

+GO TO THIS TEST WHEN THRU
;MASTER RESET

-MASTER RESET

MMTDATA ! CLK 'MINT 'BREAK , @TXCSR
#SYNEXT
! F IVE 'NOPAR ! 0, aPARCSR
#SYNSCH.@RXCSR

:SET ssmcu SYNC

#CLK,@TXCSR

: POKE cu< DOWN

BIS

MOV

#CLK.TXCSR

MOV
MOV

RXDBUF.R3

SET UPCLKFORUPERROR MESSAGE

MOV

m RO~ EXPECTED
SHIFT
:# OF SHIFTS

néTEMP1

*DATA CHAR

BM]

648

JSR
TSTB

648
:

171236

AMRESET.@TXCSR

:SAVE THIS

;POKE CLK TO GET LOGIC INTO SYNCRONIZATI

HLT

65%:

*POKE

PC, RPOKE
“SHIFT IN THIS CHAR
@RXCSR :;RXDONE ?

;RXDONE SHOULD BE SET

MOV
CMP

@RXDBUF ,R1
:ACTUAL
RO,R1
~;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ

000005

#TST15 NEXT
#MRESET,@TXCSR

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

104002

012767

#14,TSTNO

MOV
BIS

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

010400
010670

010664

MOV
BIS

2097 007636 012767 000012 171300

MOV

RO,RT

*DATA CHAR
:EXPECTED DATA PLUS

;;THIS TEST VERIFYS WORD LENGTH SELECT OF THE
::RECEIVER SECTION,IT USES THE ERROR FLAGS
*:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
* > (OVRRUN,RXERR)
* JMODE: SYNEXT
*LENGTH:F IVE

012767
052777

2091

SSHIFT IN THIS CHAR

HLT

668 :

:# OF SHIFTS

vzsrsm
nzoooo'zs RO

;3 CHAR: 12

2079 007524

2090

SEQ 0041

MOV
JSR
MOV
P

%;78

:NOW SHIFT IN A s cow cumcrsn WITHOUT READING RXDBUF

011034

104400

PAGE 44

65$

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA = CHECK MAINT DATA

:OR RECEIVER LOGIC
MOV
MOV
JSR

#5,SHIFT

né TEMP1
RPOKE

:# OF SHIFTS

:DATA CTHAR
“SHIFT IN THIS CHAR

JNOW SHIFT IN A SECCND CHARACTER WITHOUT READING RXDBUF

——————

DZDUB-C MACY11_30A(1052)

CZousD.P11

WNWWWWWW

2138

007712
007720
0077%6

007736
007742
007744
007746

007750
007750

13:59

012767
012767
004767

000005
000012
010316

012700
017701
020001
001401
104002

2140

2143

2144

2145

PAGE 45

171220
171216

MOV
MoV
JSR

@RXDBUF ,R1

66$:

104400

007752
007760

012767 000017
012767 010200

007774

012777 020000

007766

171146
171130

052777

010564

052777

000400

010550

010010

012777

064001

010542

010016

012777

020000

010530

010002

010026

052777

010032

010040

052777

010076

105777

010104
010106

104000

010102

100401

2158 010106 017701
2159 010112 020001
2160

2162

2163
2164

2165

2166
2167

2168

2169

:EXPECTED DATA PLUS

*RXERR & OVRRUN
sACTUAL

zg‘m

;COMPARE EXP VS. ACT

sSPECIFICALLY LOOK AT RXERR &
;OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

;:CHAR:37

010114

010116
010120

020000

#15,TSTNO
#15T16 NEXT

MOV

#SYNEXT ,@PARCSR :SET THE MODE

BIS

MOV

;SET SEARCH SYNC

BIC

#CLK,@TXCSR

:POKE CLK DOWN

MOV
MOV
MOV
MOV
JSR

RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#37,R0" ;EXPECTED
#5 SHIFT
:# OF SHIFTS
#37 ., TEMP1
*DATA CHAR
PC ,RPOKE
“SHIFT IN THIS CHAR

8M]

648

HLT

010140

012767

000005

170772

171010

65%:

#CLK.@TXCSR

@RXCSR

*POKE CLK UP

;RXDONE ?

;RXDONE SHOULD BE SET

MOV
cMP

aRXDBUF ,R1
;ACTUAL
RO,R1T
;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ

104002

000037
010110

#SYNEXT ' F IVE 'NOPAR ' 0, PARCSR

#SYNSCH,@RXCSR

BIS

64$:

171012

MMTDATA'
CLK 'MINT 'BREAK ,@TXCSR

BIS

TSTB

000005

-MASTER RESET

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

010442

012767

#MRESET.@TXCSR

:MASTER RESET

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

171054
171052

010436

MMRESET,@TXCSR.

:SAVE THIS
:GC TO THIS TEST WHEN THRU

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

001401

012767
004767

MOV
MOV
BIS

010512

010120

010126
010134

TST1S5:

010552

010476
000037
000005
000037
010152

2161

*DATA CHAR

;s THIS TEST VERIFYS WORD LENGTH SELECT OF THE
s cRECEIVER SECTION,IT USES THE ERROR FLAGS
:.TO DETERMINE THAT IT WAS SELECTED CORRECTLY
*: (OVRRUN,RXERR)
DE
: SYNEXT
* *MO
IVE
*LENGTH:F

2149
01
016703
2150 010052 012
2151 010056 012767
2152
01
012767
2153 010072 004767
2156
2157

*SHIFT IN THIS CHAR

MoV
CMP
BEQ
HLT

010520

2155

PC ,RPOKE

010606

020000

2154

:# OF SHIFTS

#140000112,R0

042777

2148

#S SHIFT

#12, TEMP1

MoV

010512

2147

SEQ 0042

140012

000020

2146

15:36

BUERRUR
L EEBVERRUN NS SmNan

USLSTOSTS TS LN IS LN S TN S TN LN S TN SN ST LS TS LN TN TN

2114

_21-NOV-78

31-0CT-78

MOV

MOV
JSR

65$

#5,SHIFT

;RECEIVED DATA DID NOT MATCH

*EXPECTED DATA - CHECK MAINT DATA

‘OR RECEIVER LOGIC
:

#37, TEMP1
PC ,RPOKE

:# OF SHIFTS

:DATA CHAR
*SHIFT IN THIS CHAR

;NOW SHIFT IN A SC7OND CHARACTER WITHOUT READING RXDBUF
MOV

#S.SHIFT

;4 OF SHIFTS

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZbuBD .P11
31-0CT-78
13:59

012767
004767
012700

000037
010070
140037

2176
2175
2176
2177

010164
010170
010172
010174

017701
020001
001401
104002

010360

010176
010176

104400

170770

MOV

@RXDBUF ,R1

BEQ

66$

RO,R1

HLT

*SHIFT IN THIS CHAR

:EXPECTED DATA PLUS

*RXERR & OVRRUN

*ACTUAL
;COMPARE EXP VS. ACT

;SPECIFICALLY LOOK AT RXERR &
*OVRRUN BITS...THEY BOTH SHOULD BE SET

s
D e
cd

puerd

:2CHAR:0

010236

012777

064001

010314

2199
2200

010244
010252

012777
052777

020000
000020

0
010264

2202
2203
2204
2205
2206
2207

010260
010266
010274
010300
010304
010312
010320
010324

042777
052777
016703
012700
012767
012767
004767
105777

020000
020000
010250
000000
000005
000000
007724
010214

0
0 010264

o cd cd oo

#140000137,R0

:DATA CHAR

*:RECEIVER SECTION,IT USES THE ERROR FLAGS
*:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
*: (OVRRUN,RXERR)
E
: SYNEXT
* *MOD
;2LENGTH:FIVE

170720
170702
010336
010324
010322

MOV

PC ,RPOKE

:;THIS TEST VERIFYS WORD LENGTH SELECT OF THE

000020
010426
000400
020000
000400

b o

#37, TEMP1

SCOPE

012767
012767
052777
012777
052777

MOV
JSR

SEQ 0043

CMP

010206
010214
010222
010230

2273

PAGE 46

BYRIREN28BEIRRREB2BY ;\I

010146
010154
010160

TSTS LS LN SN LS TS S TNTS S TN N N

170
171
%};

USLISTS SN

15:36

010334

017701

TST16:

MOV

BIS

MOV
BIS

010346
010346
010354
010362

MOV

#SYNEXT.3PARCSR -SET THE MODE
#MRESET.3TXCSR
:MASTER RESET

#MTD
CLK !MINT
ATA!
!BREAK ,@TXCSR

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

#SYNEXT !F IVE !NOPAR!0,aPARCSR
#SYNSCH,aRXCSR
;SET SEARCH SYNC

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
#CLK,aTXCSR
#CLK ,@TXCSR

2224

010366

000005
000000
007662

170564
170562

;SET UP FOR ERROR MESSAGE

#5,SHIFT

:# OF SHIFTS

#0,TEMP1

012767
012767

000005
000000

170544
170542

EXPECTED

PC ,RPOKE
8R§CSR
sRXDONE

65%:

sPOKE CLK DOWN
;POKE CLK UP

RXDBUF ,R3

#0,RO

:DATA (CHAR
;SHIFT
?

IN THIS CHAR

sRXDONE SHOULD BE SET

64%:

012767
012767
004767

;GO TO THIS TEST WHEN THRU

AMRESET,@TXCSR :MASTER RESET

aRXDBUF ,R1
sACTUAL
2g§R1
s COMPARE EXPECTED VvS. ACTUAL

2217
2218
2219
2220
2221
2222

:SAVE THIS

;SET MAINT DATA, (LK ,BREAK ,EBMAINTENANCE MODE

170626
170624

010210

#16,TSTNO

#TST17 NEXT

sRECEIVED DATA DID NOT MATCH

;EXPECTED DATA = CHECK MAINT DATA
;OR RECEIVER LOGIC

MOV
MOV
JSR

#5,SHIFT

¥ OF

PC ,RPOKE

JSHIFT

MOV
MOV

& ,SHIFT

#0,TEMP1

SHIFTS

;DATA CHAR

IN THIS CHAR

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF
#0,TEMP1

¥ OF

SHIFTS

:DATA (HAR

DZDUB-C MACY11_30A(1052)
_21-NOV-78
CZDUBD.P11
31-0CT=78
13:59

15:36

PAGE 47

SEQ 0044

226 010402 004767 007642
227 010406 012700 140000

JSR
MOV

PC ,RPOKE
#140000'0,R0

2229 010412

MOV

@RXDBUF ,R1

BEQ

66$

228

017701

2230

010416

223;
223
223%
2235

010422

104002

010424
010424

104400

2231

2236

020001

010132

010420 001401

HLT

668:

012767
012767

000021
010654

2247 010450

012777

020000

2253

2254

2255

2256

2257
2258

010442

010456

2264

2266
2267

052777

000400

010110

000400

010074

064001

010066

010472

012777

022000

010054

010500
010506
010514

010552

010556

010560
010562

052777

042777
052777

016703
012700
012767
012767
004767
105777

100401

017701
020001

2271
2272
2273
2274

010572

104002

010574

010036

020000
020000

010044
010036

MOV
MOV

#17,TSTNO
#TST18 NEXT

MOV

#SYNEXT ,@PARCSR :SET THE MCDE

BIS

MOV

MOV
BIS

BIC
BIS

001401

000006
000025
007434

170336
170334

2279
2280
2281

010614
010622
010630

012767
012767
004767

000006
000025
007414

170316
170314

AMTDATA! CLK 'MINT !BREAK ,@TXCSR

#SYNEXT'SIX'NOPAR
!0, aPARCSR
#SYNSCH.@RXCSR

:SET SEARCH SYNC

#CLK,@TXCSR
#CLK.RTXCSR

:POKE CLK DOWN
*POKE CLK UP

MOV
MOV
MOV
MOV
JSR

RXDBUF ,R3
“SET UP FOR ERROR MESSAGE
#25.R0° EXPECTED
#6 SHIFT
:# OF SHIFTS
#25, TEMP1
*DATA CHAR
PC ,RPOKE
SSHIFT IN THIS CHAR

BM]

64$

MOV
cMP

@RXDBUF ,R1
;ACTUAL
RO,RT
~;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ

012767
012767
004767

-MASTER RESET

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

648

010574
010602
010610

AMRESET.@TXCSR

;MASTER RESET

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

TSTB

007762

#MRESET,@TXCSR

:SAVE THIS
;GO TO THIS TEST WHEN THRU

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

007766

2275
2276
2277
2078

SCOPE

BIS

170400
170376

104000

010562
010566

010570

000020

010022
000025
000006
000025
007476

TST17:

010076

012777

2268
2269
2270

170472
170454

010464

2259 010522
2260 010526
2261 010532
2262 010540
2263 010546

2265

;SPECIFICALLY LOOK AT RXERR &
:OVRRUN BITS...THEY BOTH SHOULD BE SET

:;CHAR: 25

010426
010434

gg;

*: (OVRRUN,RXERR)
2 2MODE : SYNEXT
: SLENGTH:SIX

%SZ’%

2250

“;COMPARE EXP VS. ACT

*:TO DETERMINE THAT IT WAS SELECTED CORRECTLY

2239
2240
2241

5523

*ACTUAL

RO,R1

::RECEIVER SECTION,IT USES THE ERROR FLAGS

2238

2246

*RXERR & OVRRUN

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE

2237

22644
2245

sSHIFT IN THIS CHAR
:EXPECTED DATA PLUS

65%:

@RXCSR

:RXDONE ?

;RXDONE SHOULD BE SET

65%

;RECEIVED CATA DID NOT MATCH
JEXPECTED DATA = CHECK MAINT DATA
*OR RECEIVER LOGIC

MOV
MOV
JSR

#6,SHIFT
#25, TEMP1
PC ,RPOKE

;4 OF SHIFTS
*DATA CHAR
*SHIFT IN THIS CHAR

MOV
MOV
JSR

#6 SHIFT
#28 TEMPI
PC ,RPOKE

;4 OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

DZDUB-C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

gzsg 010634
28

%284
|

285
228

2289
2290

2291
2292
2293

#140000'25,R0

expecreo DATA PLUS

010640 017701

007704

MOV

@RXDBUF ,R1

ACTUAL

HLT

010644
010646
010652
010652

020001
001401

P
BEQ

104002
668:

104400

012767

2301

010670

052777

010662

012767

011102

170244

170226

000400

007662

007646

052777

000400

010712

012777

064001

007640

2309 010720

012777

022000

007626

2308
2310
2311

010726

052777

000020

2315
2316

010754
010760

012700
012767

000052

2318

010774

004767

007250

2320 011004

100401

007610

2312 010734 042777
007616
2313 010742 052777
007610
2314 010750 016703 007574

2317 010766 012767

2323
2324
2325

2326

2327

2328

2329

011000

011006
011010

105777

017701
020001

011020

104002

011016

011022

170110
170106

233,
2335

011042
011050

012767
012767

000006
000052

170070
170066

2337

011062

012700

140052

233

011036

011056

004767

007206

007166

:MASTER RESET

#MRESET.@TXCSR

-MASTER RESET

MOV

#SYNEXT .@PARCSR :SET THE MODE

+GO TO THIS TEST WHEN THRU

MMTDATA'!
CLK 'MINT !BREAK ,aTXCSR

MOV

#SYNEXT
' SIX'NOPAR !0, aPARCSR

BIC
BIS
MOV

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

: POKE cu< DOWN
*POKE CLK UP
“SET UP FOR ERROR MESSAGE

MOV

csérsm

*DATA CHAR

TSTB

anxcsn

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

MOV
MOV
JSR

65%:

osz no

:EXPECTED
FT’
:# OF SHIFTS

C .RPOKE

*SHIFT IN THIS CHAR

;RXDONE ?

BM]

64$

MOV
cTMP

@RXDBUF ,R1
;ACTUAL
RO,R1
;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ

000052

MMRESET,@TXCSR

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

001401

012767
012767

:SAVE THIS

lTSf19 NEXT

MOV

648

011022
011030

#18,TSTNO

MOV

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

007540

007534

MOV

BIS

170150

2330
2331

2332
2333

SCOPE

BIS

170152

104000

011010
011014

TST18:

007650

010704

2321
2322

*OVRRUN BITS...THEY BOTH SHOULD BE SET

:: CHAR:52
010654

2319

;SPECIFICALLY LOOK AT RXERR &

2 2 (OVRRUN ,RXERR)

2302 010676 012777 020000

~;COMPARE EXP VS. ACT

% :MODE: SYNEXT
: SLENGTH: SIX

2299

%3389

RO,RT
66$

RXERR €& OVRRUN

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
::RECEIVER SECTION,IT USES THE ERROR FLAGS
*:T0 DETERMINE THAT IT WAS SELECTED CORRECTLY

ggg

2305

SEQ 0045

MOV

2294

5&3

140025

2295
2296
2300

PAGE 48

012700

2287 010650

2288

15:36

;RXDONE SHOULD BE SET

65$

;RECEIVED DATA DID NOT MATCH

JEXPECTED DATA - CHECK MAINT DATA

*OR RECEIVER LOGIC
MOV
MOV

#6,SHIFT
#52, TEMP1

:# OF SHIFTS
*DATA CHAR

MOV
MOV

#6 SHIF
#52, rsm

# OF SHIFTS
.-om CHAR

MOV

moooo'sz RO

-EXPECTED DATA PLUS

JSR
PC ,RPOKE
“SHIFT IN THIS CHAR
;NOW SHIFT IN A SECOND cumcrsa unuour READING RXDBUF
JSR

PC.R

*SHIFT IN THIS CHAR

[ozom-c MACY11 30A(1052) 21-NOV-78 15:36 PAGE 49
CZDUBD.P11

2338

2339
230
231
232

011066
011072
011074
011076

2344
235

011100
011100

234

2346
2347
2348
2349

31-0CT-78

13:59

017701
020001
001401
104002

007456

MOV
CMP
BEQ
HLT
668:

104400

ggg%

011102
011110

012767
012767

000023
011330

2357

011124

012777

020000

53325

2363
2364
2365

2366

2367
2368

2369
2370
2371

011116

011132

052777
052777
)

170016
170000

000400

007434

000400

007420

012777

064001

007412

011146

012777

022000

007400

011162
011170

052777
042777
052777

011176
011202
011206

016703
012700
012767

2373

011222

004767

2375

011232

100401

2374

2376
2377

011234
011236

105777

000020

020000
020000

007346
000077
000006

007362
007370
007362

2381

104002

2384

2385
2386

2387

2388

011244

011246
011250

011250
011256
011264

004767

MOV
BIS

006760

000006
000077

2392

011310

01270000

140077

2393

006740

167642
167640

MMTDATA ' CLK 'MINT !BREAK , aTXCSR
#SYNEXT!SIX'NOPAR
0, 3PARCSR

;SET SEARCH SYNC

BIC
BIS

#CLK,@TXCSR
#CLK.@TXCSR

:POKE CLK DOWN
*POKE CLK UP

MOV

n?.rsm

MOV
MOV
MOV
JSR

648

167662
167660

:MASTER RESET

#SYNSCH,aRXCSR

65%:

RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
077 RO" EXPECTED
SHIFT
:# OF SHIFTS
PC ,RPOKE
@RXCSR

*DATA CHAR

“SHIFT IN THIS CHAR

;RXDONE ?

BM]

64$

MOV
CMP

@RXDBUF ,R1
sACTUAL
RO,RT
~;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ

000006
000077

#MRESET.@TXCSR

;MASTER RESET

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

TSTB

007306

012767
012767

004767

#SYNEXT .@PARCSR :SET THE MODE

#MRESET,@TXCSR

:SAVE THIS
:GO TO THIS TEST WHEN THRU

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

007312

011270
011276
011304

MOV
MOV

007022

2389
2390
2391

#19,TSTNO
#TST20,NEXT

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

001401

012767
012767

MOV
MOV
BIS

167724

104000

017701
020001

2382
2383

011226

2378 011236
2379 011242
2380

:OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

BIS

007422

011140
011154

TST19:

2372 011214 012767 000077 167722
|

:RXERR & OVRRUN

@RXDBUF ,R1
*ACTUAL
RO,RT
~;:COMPARE EXP VS. ACT
66$
2
sSPECIFICALLY LOOK AT RXERR &

::CHAR:77

2354
2355

2360

SEQ 0046

2 2MODE : SYNEXT
2 :LENGTH:SIX

2351

gggg

;:THIS TEST VERIFYS WORD LENGTH SELECT OF THE
::RECEIVER SECTION,IT USES THE ERROR FLAGS
::TO DETERMINE THAT IT WAS SELECTED CORRECTLY
+: (OVRRUN,RXERR)

2350

2356

MOV
MOV
JSR

:RXDONE SHOULD BE SET

65$

;RECEIVED DATA DID NOT MATCH

SEXPECTED DATA = CHECK MAINT DATA
:OR RECEIVER LOGIC

#6, SHIFT
477 TEMP1
PC ,RPOKE

;¥ OF SHIFTS
*DATA CHAR

SSHIFT IN THIS CHAR

;NOW SHIFT IN A SECOND cmmcrsn WITHOUT READING RXDBUF
MOV
MOV

#6 SHIFT
07? renp*

MOV

o:'oooom.no

JSR

PC,

;4 OF SHIFTS
*DATA CHAR

SSHIFT IN THIS CHAR

*EXPECTED DATA PLUS
;RXERR & OVRRUN

DZDUB~C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
3]-0CT-78 13:59

15:36

007230

PAGE 50

SEQ 0047

MOV
cTMP
BEQ

ARXDBUF ,R1
;ACTUAL
RO,R1
;COMPARE EXP VS. ACT
66$

RRRRRRRYRRRRRRRRRRRRY
R s R R iRy

HLT

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
::RECEIVER SECTION,IT USES THE ERROR FLAGS
+:TO DETERMINE THAT IT WAS SELECTED CORRECTLY
*: (OVRRUN,RXERR)
* *MODE: SYNEXT
: ;LENGTH:SIX

; ; CHAR:0

000024

167570

000400

007206

000400

007172

064001

007164

800\10\\-"500'\)

011556

Rvs

e
b

;SAVE THIS

BIS

MMRESET,@TXCSR

:MASTER RESET

BIS

MMRESET.RTXCSR

-MASTER RESET

020000 007174

MOV

000020

007134

020000
020000

007142
007134

000006
000000

167476
167474

007120
000000

006574
007064

s8N

—a

G2 ~RRol
2958
R
et

Vil

007060

MOV

;SET MODE

167434
167432

000006
000000

167414
167412

006512

140000

007002

:GO TO THIS TEST WHEN THRU

#SYNEXT.@PARCSR :SET THE MODE

MMTDATA!
CLK 'MINT 'BREAK ,@TXCSR

,# OF BITS,PARITY SENSE.RLOAD smc REG

MOV

#SYNEXT
! SIX'NOPAR 0, @aPARCSR

BIS

#SYNSCH,@RXCSR

;SET SEARCH SYNC

BIC
BIS

#CLK,TXCSR
#CLK.@TXCSR

;POKE CLK DOWN
*POKE CLK UP

MOV
MOV

#6.SHIFT'
#0.TEMP1

:# OF SHIFTS
*DATA CHAR

BM]

648

:POKE CLK TO GET LOGIC INTO SYNCRONIZATION

MOV
MOV

JSR
TSTB

MOV

000006
000000
006532

#TST21 NEXT

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

HLT

b
b

—

d e o

[elelelelelelelelelelele]

OO0OCO
—_— b -2

OO0O0O0
R e
Y

—_—

#20,TSTNO

MOV

022000 007152

n
N

MOV

167552

RXDBUF ,R3
SET UP FOR ERROR MESSASE
#0.R0 ~ :EXPECTED

PC . RPOKE
“SHIFT IN THIS CHAR
@RACSR ;RXDONE ?
;RXDONE SHOULD BE SET

@RXDBUF ,R1

: ACTUAL

gg;

g(s)‘m

; COMPARE EXPECTED VS. ACTUAL

HLT

:RECEIVED DATA DID NOT MATCH

MOV
MOV

#6,SHIFT
#0.TEMP1

JSR

:EXPECTED DATA = CHECK MAINT DATA
:OR RECEIVER LOGIC

PC .RPOKE

:# OF SHIFTS
*DATA CHAR

SSHIFT IN THIS CHAR

sNOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

MOV
MOV

#6,SHIFT
co rem

MOV

JSR

nlooooso.ao

MOV

SRXDBUF ,R1

:# OF SHIFTS
*DATA CHAR

“SHIFT IN THIS CHAR

*EXPECTED DATA PLUS

*RXERR €& OVRRUN

“ACTUAL

DZDUB~C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78
13:59

011546

§1

011550

5
5,

011554

s§ 011552
2655
2459

0115564

15:36

PAGE 51

020001

[ o

001401

BEQ

104002

HLT

668:

104400

245

:SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE
::THIS TEST VERIFYS WORD LENGTH sascr OF THE

: *MODE: SYNE

5‘61

..Lenem
gevsn

5664

011556

012767

000025

167342

2466

011572

052777

000400

006760

zm“9

011606

052777

000600

006744

011614

012777

064001

006736

2665 011564 012767 012004

167324

TST21:

2467 011600 012777 020000 006746

2473

;COMPARE EXP VS. ACT

;310 oeremnstmtmf IT WAS SELECTED CORRECTLY

2460

22;%

RO,R1

66$

*:RECEIVER SECTION,IT USES THE ERROR FLAGS

gzgg

2470

SEQ 0048

2674

011622 012777 024000 006724
011630

052777

000020

006706

2677

011636

042777

020000

006714

MOV

#21,TSTNO

:SAVE THIS

BIS

#MRESET ,TXCSR

;MASTER RESET

MMRESET.STXCSR

-MASTER RESET

MOV
MOV
BIS

#TST22 NEXT

:GO TO THIS TEST WHEN THRU

#SYNEXT.@PARCSR :SET THE nooe

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

MOV

#MTDATA'CLK'MINT 'BREAK,@TXCSR

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

#SYNEXT
! SEVEN 'NOPAR'0, aPARC SR

BIC

#CLK,3TXCSR

:POKE cu< DOWN

2480 011656 012700 000125
26481 011662 012767 000007 167250
2682 011670 012767 000125 167246

MOV

MOV
MOV
MOV

ngur

“SET UP FOR ERROR MESSAGE

2485 011706
2486 011710

JSR
TSTB

8M]
HLT

PC, WE
:SHIFY IN THIS CHAR
@RXCSR :RXDONE ?

648
;RXDONE SHOULD BE SET

MOV
CMP
BEQ
HLT

@RXDBUF ,R1
sACTUAL
RO,RT
~;COMPARE EXPECTED VS. ACTUAL
65%
2
;RECEIVED DATA DID NOT MATCH

MOV
MOV
JSR

#7 SHIFT
#125, TEMP1
PC ,RPOKE

MOV

MOV
JSR
MOV

2 rsm
wA CHAR
SSHIFT IN THIS CHAR
nloooonzs RO :EXPECTED DATA PLUS

MOV
CMP

@nvDBUF ,R1
AC TUAL
RO,R1T
;COMPARE EXP VS. ACT

2675
2476
2478

011646

2479 011652
2483
2484

011676
011702

2487

011712

052777

020000

016703 006672

004767
105777

006346
006636

2488 011712 017701
2489 011716 020001
2490 011720 001401
2491 011722 104002

006632

2492
2493
2649

011724

100401
104000

006706

012767 000007
012767 000125
004767 006304

167206
167204

2499 011744

012767 000007

167166

2500 011752 012767 000125 167164
2501 011760 004767 006264
2502 011764 012700 140125
2503

2504
2505

011770 017707
011774 020001

006554

BIS

648

2495 011724
2496 011732
2497 011740

2498

BIS
#SYNSCH.@RXCSR :SET §mcu SYNC
;POKE CLK TO GET LOGIC INTO SYNCRONIZAT

65%:

mx atxcsa

*POKE CLK UP

2 nb expscrsb
:# OF SHIFTS
né rsm
*DATA CHAR

*EXPECTED DATA - CHECK MAINT DATA
:OR RECEIVER LOGIC

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR

:NOW SHIFT IN A s ;om crwucrsn uxmour READING RXDBUF
§“

# OF SHIFTS

RXERR £ OVRRUN

DZDUB-C MACY11_30A(1052)
21;~ov-7a
CZDUBD.P11
31-0CT-78
13:5

15:36

011776 001401
2507 012000 104002
012002

510
5511

012002

PAGE 52

BEQ
HLT

668

104400

51§

251

012004

012767

000026

167114

2521

012020

052777

000400

006532

5252

012034

052777

000400

006516

55559 012062

012777

064001

006510

012777

024000

006476

2520 012012 012767 012232

167076

TST22:

2522 012026 012777 020000 006520

2525

2528

2529 012050

2530

012056

052777

2532
2533
253,
2535
2536
2537
2538

012064
012072
012100
012106
012110
012116
012124

042777
052777
016703
012700
012767
012767
004767

2540

012134

100401

012130

2541
2542

012136
012140

2545
2546

012146
012150

105777

012152

2550 012152
2551 012160
2552 012166
2553

2554
2555
2556
2557
2558

006460

020000
020000
006444
000052
000007
000052
006120

006466
006460

BIS

#MRESET,@TXCSR

:MASTER RESET

MMRESET.@TXCSR

:MASTER RESET

MOV
MOV

006326

MMTDATA! CLK 'MINT 'BREAK , 3TXCSR
#SYNEXT ! SEVEN'NOPAR
!0, aPARCSR

BIS

#SYNSCH,@RXCSR

BIC
BIS
MOV
MOV
MOV
MOV
JSR

#CLK,@TXCSR
:POKE CLK DOWN
#CLK.@TXCSR
*POKE CLK UP
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
#52,R0° ;EXPECTED
#7 ,SHIFT
:# OF SHIFTS
#52, TEMP1
‘DATA CHAR
PC ,RPOKE
“SHIFT IN THIS CHAR

BM]

648

MOV
cTMP

@RXDBUF ,R1
;ACTUAL
RO,R1
~;COMPARE EXPECTED VS. ACTUAL

HLT

BEQ
HLT

166740
166736

#SYNEXT ,@PARCSR :SET THE MODE

;SET SEARCH SYNC

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

€4$:

006404

:GO TO THIS TEST WHEN THRU

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

TSTB

012172 012767 000007
012200 012767 000052
012206 004767 006036
012212 012700 140052
001401

:SAVE THIS

#TST23, NEXT

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

006410

166760
166756

012224

#22,TSTNO

BIS

001401
104002

017701
020001

MOV

MOV
MOV

167022
167020

012767 000007
012767 000052
004767 006056

2559 012216
2560 012222

2561

000020

104600

2543 012140 017701
2544 012144 020001

2549

SCOPE
::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
*:RECEIVER SECTION,IT USES THE ERROR FLAGS

::CHAR:S2

2519

2548

*OVRRUN BITS...THEY BOTH SHOULD BE SET

2 2MODE
: SYNEXT
2 :LENGTH:SEVEN

%g}g

2547

;SPECIFICALLY LOOK AT RXERR &

: : (OVRRUN,,RXERR)

2515
2516

2539

668
2

“:TO DETERMINE THAT IT WAS SELECTED CORRECTLY

2514

2531

SEQ 0049

65%:

@RXCSR

;RXDONE ?

sRXDONE SHOULD BE SET

65$
2

:RECEIVED DATA DID NOT MATCH

:EXPECTED DATA - CHECK MAINT DATA

:OR RECEIVER LOGIC
MOV
MOV
JSR

#7 ,SHIFT
#52, TEMP1
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR

MOV
MOV
JSR
MOV

#7 SHIFT
#52, TEMP1
PC ,RPOKE
#140000'52,R0

;# OF SHIFTS
*DATA CHAR
*SHIFT IN THIS CHAR
:EXPECTED DATA PLUS

MOV
CMP

aRXDBUF ,R1
*ACTUAL
RC,R1
;COMPARE EXP VS. ACT

:NOW SHIFT IN A s;cow CHARACTER WITHOUT READING RXDBUF

BEQ

66$

*RXERR & OVRRUN

DZDUB-C MACY1T 30A(105%)13?;;mv-78
CZDUBD.P11
31-0CT=7

gseg

012226

2564
2565

012230
012230

2566
2567
2568
2569

15:36

PAGE 53

104002

HLT
668:

104400

012232

012767

000027

166666

2576

012246

052777

000400

006304

052777

000400

006270

012777

064001

006262

012276 012777 024000

006250

012240 012767

2577 012254

2580
323‘12

2583
2584

012262

012270
012304

052777

2587

012312

042777

2588

012320

012460

166650

TST23:

012777 020000 006272

2585

2586

052777

000020

020000

2589 012326 016703 006216
2590 012332 012700 000177
2591 012336 012767 000007
2593
259

012352
012356

004767
105777

2596
2597

012364
012366

104000

012362

100401

2598 012366 017701
2599 012372 020001
2600

2601

2602
2603
2604

006232

006240

012374

012376
012400

012414

004767

000177

005630

012767 000007
012767 000177
004767 005610

2612 012440 012700 140177
2613

2614
2615

2616

012444 017701
012450 020001
012452

2617 012454

001401

104002

MMRESET,@TXCSR

:MASTER RESET

#MRESET.@TXCSR

-MASTER RESET

MOV
BIS

006100

#SYNEXT
! SEVEN!NOPAR !0, @PARC SR
#SYNSCH,@RXCSR

;SET SEARCH SYNC

MOV
MOV
MOV

RXDBUF
,R
“SET UP FOR ERROR MESSAGE
#1177, nbsxpscreo
#7,SH
:# OF SHIFTS

JSR
TSTB

PC ,RPOKE
“SHIFT IN THIS CHAR
@RXCSR ;RXDONE ?

MOV

648:

166512
166510

#MTDATA!
CLK 'MINT !BREAK ,@TXCSR

#CLK,3TXCSR

BM]

166530

#SYNEXT .@PARCSR :SET THE nooe

BIC

BIS

166574

166532

:GO TO THIS TEST WHEN THRU

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

HLT

658:

:PGHE ch DOWN

#CLK. arxcsa

*POKE
CLK UP

n?? rem

*DATA CHAR

64$

;RXDONE SHOULD BE SET

MOV
cTMP

@RXDBUF ,R1
CTUAL
RO,R1
;COMPARE’ expecreo VS. ACTUAL

HLT

BEQ

2607

2609 012420
2610 012426
2611 012434

BIS

#1574 NEXT

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

104002

012767 000007

2608

:SAVE THIS

MOV

001401

012767

#23,TSTNO

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

006232

006156

012400
012406

MOV

MOV
BIS

005672
006162

2605

2606

*OVRRUN BITS...THEY BOTH SHOULD BE SET

SCOPE

MOV

2592 012344 012767 000177 166572
2595

;SPECIFICALLY LOOK AT RXERR &

..mos SYNEXT
..LENGTH
;evsn

5574

ggg

::THIS TEST VERIFYS WORD LENGTH SELECT OF THE
..RECEIVER SECTION,IT USES THE ERROR FLAGS
*TO DETERMINE THAT IT WAS SELECTED CORRECTLY
VRRUN,RXERR)

2570
2571

2575

SEQ 0050

65$

;RECEIVED DATA DID NOT MATCH

*EXPECTED DATA = CHECK MAINT DATA
*OR RECEIVER LOGIC

MOV

#7 SHIFT

:# OF SHIFTS

JSR

PC ,RPOKE

SSKIFT IN THIS CHAR

MOV

#1977, TEMPY

*DATA CHAR

:NOW SHIFT IN A SECOND cmwncren WITHOUT READING RXDBUF
MOV
MOV
JSR

¥7 ;m
n rem

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR

MOV

n&oooom? RO :EXPECTED DATA PLUS

MOV
CMP

aRXDBUF ,R1
*AC TUAL
RO,R1
~;COMPARE EXP VS. ACT

HLT

BEQ

RXERR £ OVRRUN

6cé

;SPECIFICALLY LOOK AT RXERR &

DZOUB-C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

2618

PAGE 54

e
012456

104400

;:THIS TEST VERIFYS WORD LENGTH SELECT OF THE

..necexvea SECTION,IT USES THE ERROR FLAGS

:TO DETERMINETHAT IT WAS SELECTED CORRECTLY

*: TOVRRUN RXE ,RXERR)

: :MODE: SYNEXT
s ;LENGTH:SEVEN
: 5 CHAR:0

%g
012460

012767

000030

166440

012474

052777

000400

006056

052777

000400

006042

012777 064001

006034

012777

006022

012466

012767 012706

166422

TST24:

2632 012502 012777 020000 006044

Zzggz

012510

2635

%39 012516

2638

2639 012524

024000

2640 012532 052777 000020 006004

2641
|

2642

012540

042777

020000

2643

012546

052777

020000

2645

012560

012700

000000

2644

012554

2646 012564
2647 012572
2648
2649

012600
0126064

2651
2652

012612
012614

2650 012610

2653

2654

2655

016703

004767
105777

100401

017701

012622

001401

2659

012626

005444
005734

006012

012767 000007
012767 000000
004767 005362

012666 012700 140000

2669 012672 017701
2670 012676 020001
2671 012700 001401

26;%

012702

104002

:MASTER RESET

#MRESET.@TXCSR

-MASTER RESET

005652

:GO TO THIS TEST WHEN THRU

#SYNEXT.@PARCSR :SET THE MODE

AMTDATA!
CLK 'MINT 'BREAK ,@TXCSR

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

BIS

#SYNEXT
! SEVEN'NOPAR ! 0,aPARCSR

#SYNSCH.@RXCSR ;SET §smcu SYNC

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC

;POKE CLK DOWN

#CLK.@TXCSR

MOV

#0,R0 * ;EXPECTED

MOV

RXDBUF ,R3

MOV
MOV

#7.SHIFT
#0_ TEMP1

BMI

64$

JSR
TSTB

658
:

#CLK,aTXCSR

BIS

HLT

*POKE CLK UP

SET UP FOR ERROR MESSAGE

:# OF SHIFTS
*DATA CHAR

PC .RPOKE
sum IN THIS CHAR
@RXCSR ;RXDONE
?

;RXDONE SHOULD BE SET

MOV

@RXDBUF ,R1

BEQ

65$

HLT

166264
166262

2667

#MRESET,@TXCSR

MOV

104002

2664
2665
2

2668

BIS

CMP

166304
166302

012646
012656
012662

;SAVE THIS

#TST25 NEXT

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

648:

2660 012626 012767 000007
2661 012634 012767 000000
012642 004767 005402

2662§

#24,TSTNO

BIS

166346
166344

005730

MOV

006004

104000

012620 020001

012624

005770

012767 000007
012767 000000

012614

2656

2657
2658

;OVRRUN BITS...THEY BOTH SHOULD BE SET
SCOPE

5222

2631

SEQ 0051

CTUAL

RO,RT

;COMPARE’ expscreo VS. ACTUAL

;RECEIVED DATA DID NOT MATCH

*EXPECTED DATA = CHECK MAINT DATA
*OR RECEIVER LOGIC

MOV
MOV
JSR

#7.SHIFT
#0. TEMP1
PC .RPOKE

:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

MOV
MOV
JSR

co.rsm

:# OF SHIFTS
“DATA CHAR
“SHIFT IN THIS CHAR

MOV
cMP
BEQ

@RXDBUF ,R1
*ACTUAL
RO,RT
“;COMPARE EXP VS. ACT
66$

;NOW SHIFT IN A s;comCHARACTER WITHOUT READING RXDBUF
MOV
HLT

m'.ooooso.ao
2

.-expecrio DATA PLUS
*RXERR & OVRRUN

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

‘

DZDUB-C MACY11_30A(1052)

CZDuBD.P11

31-0CT-

01 5704
012704

21-NOV-78

13:59

15:36

PAGE 55

66$:

104400

SEQ@ 0052

SCOPE

:;THIS TEST VERIFYS WORD LENGTH s&ecr OF THE
..RECEIVER SECTION,IT USES THE ERROR FLAGS

*TO DETERMINE THAT IT WAS SELECTED CORRECTLY

,RXERR)

* *MODE : SYNEXT
::Leucm:gxcm

::CHAR:12

TST25:

MOV

#25,TSTNO

:SAVE THIS

BIS

#MRESET,STXCSR

:MASTER RESET

MMRESET.ITXCSR

:MASTER RESET

MOV

MOV
8IS

#15726 NEXT

:GO TO THIS TEST WHEN THRU

#SYNEXT .9PARCSR :SET THE MODE

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE

MOV

;SET MODE

,# OF BITS,PARITY SENSE.ELOAD smc REG

MOV

— b

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

BIS

#SYNEXT
'E IGHT 'NOPAR !0,
aPARCSR

csmscn @RXCSR ;SET §emcu SYNC

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC

BIS

L IR

MOV
MOV
MOV
MOV
JSR
i

#CLK,3TXCSR
chx arxcsa

#8. SHIFT
#125 TEMPI
PC ,RPOKE

@RXCSR

HLT

sRXDONE SHOULD BE SET

648

;RXDONE ?

MOV

@RXDBUF ,R1
2?&“

: COMPARE EXPECTED VS. ACTUAL

HLT

;RECEIVED DATA DID NOT MATCH

CTUAL

:EXPECTED DATA = CHECK MAINT DATA

*OR RECEIVER LOGIC

MOV
#8. SHIFT
:# OF SHIFTS
MOV
#125, TEMP1
*DATA CHAR
JSR
PC ,RPOKE
*SHIFT IN THIS CHAR
;NOW SHIFT IN A sscow CHARACTER’ WITHOUT READING RXDBUF
MOV
SHIFT
:# OF SHIFTS

MOV

nzS rem

MOV

#1-.0000'125 RO

MOV
CMP

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

HLT

JSR

—

WWWW
WWWS 8
N
8058 SO~ 3

ebodabed

OO0O0

dedaded

OOO00

013132

166036
166034

“SET UP FOR ERROR MESSAGE
:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

0125
RbsxpecrED

166056
166054

*POKE CLK UP

TSTB

BMI

g?o:

013062

:POKE CLK DOWN

BEQ

66%:

66$

*DATA CHAR

SSHIFT IN THIS CHAR

:EXPECTED DATA PLUS

XERR & OVRRUN
.R

;SPECIFICALLY LOOK AT RXERR &

:OVRRUN BITS...THEY BOTH SHOULD BE SET

DZDUB~-C MACY11_30A(1052)

CZDUBD .P11
g

013132

31-0CT-78

21-NOV-78

13:59

15:36

PAGE 56

104400

SEQ 0053

SCOPE
:;THIS TEST VERIFYS WORD LENGTH SELECT OF THE

..Recexven SECTION,IT USES THE ERROR FLAGS

10 oerm;’x(gsmrmf IT WAS SELECTED CORRECTLY

:.KDE SYREXT

::C

738

740
2741

2762

5;2‘

013134

013142
013150

012767

012767
052777

oooggg

165764

013
000400

165746
005402

013156 012777 020000 005370
013164

052777

000400

005366

%;29 013172

012777

064001

005360

012777

026000

005346

2745

2748

2749 013200
2750

013206

052777

2752

013214

042777

2754

013230 016703 005314

2751

2753

TST26:

013222

052777

000020

020000
020000

005330

005336

MOV

#26,TSTNO

MOV

#SYNEXT.@PARCSR :SET THE nooe

MOV
BIS
BIS

#1727 NEXT
#MMRESET,@TXCSR
MMRESET.@TXCSR

:SAVE THIS

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

:SET MAINT DATA,CLK,BREAK,SMAINTENANCE MODE

MOV

MMTDATA
! CLK 'MINT 'BREAK ,@TXCSR

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

#SYNEXT
| EIGHT 'NOPAR !0, aPARCSR
#SYNSCH,@RXCSR

:SET SEARCH SYNC

BIC
BIS

#CLK,3TXCSR

:POKE CLK DOWN

JSR
TSTB

PC ,RPOKE
“SHIFT IN THIS CHAR
@RXCSR :RXDONE ?

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

005330

tcuc arxcsa

*POKE CLK UP

2755 013234 012700 000252
165672
2757 013246 012767 000252 165670

MOV

2760 013264

BM]

648

MOV
CMP

ARXDBUF ,R1
ACTUAL
RO.R1
°:COMPARE' EXPECTED VS. ACTUAL

HLT

MOV
MOV
MOV

2756 013240 012767 000010
2758
2759

013254
013260

004767
105777

2761
2762

013266
013270

104000

100401

004770
005260

2763
2764

013270
013274

017701
020001

2766
2767

013300

104002

2769

013302

2772

013316

004767

004726

2774

013322

012767

000010

2776
2777

013336
013342

004767
012700

2779 01336
2780 013352

017701
020001

2782

013356

104002

2784
2785

013360
013360

2765

2768

013276

005254

001401

BEQ

2770 013302 012767 000010
2771 013310 012767 000252

2773

648

165630
165626

2781

2783

013354

65%:

;RXDONE SHOULD BE SET

65§

;RECEIVED DATA DID NOT MATCH
*EXPECTED DATA = CHECK MAINT DATA

:OR RECEIVER LOGIC
#8. SHIFT
czsé TEMP1

MOV

004706
140252

MOV

JSR
MOV

»252 TEMP1

005176

MOV
CMP

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

HLT

165610

C ,RPOKE

:# OF SHIFTS
*DATA CHAR

SSHIFT IN THIS CHAR

;NOW SHIFT IN A secow cumcrsn WITHOUT READING RXDBUF

001401

104400

0252
Rbsxpecrso
48,
:# OF SHIFTS
xzsérem
*DATA CHAR

MOV
MOV
JSR

2775 013330 012767 000252 165606
2778

HLT

“SET UP FOR ERROR MESSAGE

BEQ

668:

SCOPE

SHIFT

C .RPOKE
moooo'zsz RO
66$

:# OF SHIFTS

*DATA CHAR

“SHIFT IN THIS CHAR
:EXPECTED DATA PLUS

RXERR £ OVRRUN

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

DZDUB-C MACY11_30A(1052)
_21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

PAGE 57

2759

SEQ 0054

::THIS TEST VERIFYS WORD LENGTH sen.ecr OF THE

278

..Recsxvsn SECTION,IT USES THE ERROR FLAGS

TO DETERMINE THAT IT WAS SELECTED CORRECTLY

789

:.' OVRRUN ,RXERR)

2791
279

.:LENGTH:;IGHT
¥
:37

279

2795

::ME:SMX?

013362

012767

013370 012767

279 013376 052777

2797 013404
gm 013472

013610

165536

165520

005154

012777 020000 005142
052777
005140

2800
%g; 013420 012777 064001
2803

005132

2805

000020

005102

042777
052777

020000
020000

005110
005102

000010
000377
004542

165444
165442

2806

013426
013434

012777

052777

2807
2808

013442
013450

2809 013456

016703

2811
2812
2813

013466
013474
013502

012767
012767
004767

2815

013512

100401

026000

005066

2810 013462 012700 000377
2814

2816
2817

013

013514
013516

105777

2820

2822
2823

2824

013524

013526

013530
013544

004767

004500

2828

012767

000377

2829 013550 012767

000010

2831

004460

165402

2833

283,
2835
2836

013564

013570
013574
013600
013602

2837

013604

2839
2840
2841

013606
013606

2838

004767

012700
017701
020001
001401

16536

:GO TO THIS TEST WHEN THRU

#SYNEXT.8PARCSR :SET THE moe
#MRESET.3TXCSR :MASTER RESET

#SYNEXT
'EIGHT 'NOPAR !0, 3PARCSR
#SYNSCH,@RXCSR

;SET SEARCH SYNC

BIC
BIS

#CLK,@TXCSR
mx arxcsa

:POKE CLK DOWN
*POKE CLK UP

MOV
MOV
JSR

#8. SHIFT
#377, rem
PC ,RPOKE

:# OF SHIFTS
*DATA CHAR
“SHIFT IN THIS CHAR

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
MOV

MOV

HLT

65%:

SET UP FOR ERROR MESSAGE

#377
R6expsc
TED
@RXCSR

:;RXDONE ?

64$

;RXDONE SHOULD BE SET

MOV
CMP

@RXDBUF ,R1
ACTUAL
RO,R1 " :COMPAREEXPECTED VS. ACTUAL

HLT

BEQ

65%

;RECEIVED DATA DID NOT MATCH

*EXPECTED DATA = CHECK MAINT DATA
:OR RECEIVER LOGIC

MOV

#8. SHIFT

:# OF SHIFTS

JSR

PC ,RPOKE

*SHIFT IN THIS CHAR

MOV

#377, TEMP1

:DATA CHAR

;NOW SHIFT IN A sscouo cuARAcrER W1 THOUT READING RXDBUF
MOV

IFT

:# OF SHIFTS

MOV

03?7rsm

140377

MOV

moooo'377 RO

004750

MOV
cMP
BEQ

aRADBUF ,R1
“AC TUAL
RO,R1 ' :COMPARE EXP VS. ACT
66$

JSR

104002
104400

;MASTER RESET

BIS

165400

2830 013556 012767 000377 165360
2832

#MRESET,@TXCSR

MOV

2827

013536

BIS

#TST28, NEXT

;SET MAINT DATA,CLK,BREAK,SMAINTENANCE MODE
MOV
AMTDATA!
CLK 'MINT 'BREAK ,aTXCSR
:SET MODE .# OF BITS,PARITY SENSE,BLOAD SYNC REG

648:

104002

000010

:SAVE THIS

TSTB

001401

012767

#27,TSTNO

MOV

BM]

005026

013530

MOV

MOV
BIS

005032

2825

2826

005120

104000

2818 013516 017701
2819 013522 020001
2821

TST27:

HLT

66%:

SCOPE

*DATA CHAR

*SKIFT IN THIS CHAR

:EXPECTED DATA PLUS

RXERR £ OVRRUN

;SPECIFICALLY LOOK AT RXERR &

*OVRRUN BITS...THEY BOTH SHOULD BE SET

ssTHIS TEST VERIFYS WORD LENGTH SELECT OF THE

DZDUB-C MACY11_30A(1052)
_21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

PAGE 58

zu.i

..Rscexvsn SECTION,IT USES THE ERROR FLAGS

O DETERMINE THAT IT WAS SELECTED CORRECTLY

ovmm RXERR)

2845
2846

mos SYNEXT
*SLENGTH:EIGHT

%323

..cm 0

2849

013610

012767

000034

2852

013632 012777 020000 004714

2850 013616 012767 014036

165310

165272

2851 013624 052777 000400 004726

22§§4

000400

004712

013640

052777

%ggg 013646 012777 064001

004704

2855

2858

2859 013654
2860

013662

013670

2865

013710

2861

2
2864
2867
2868
2869

013714

013722
013730
013734

2871
2872

013742
013744

2874

013750

2875

000020

042777

020000

012700

012767

012767
004767
105777

100401

013752

001401

2879

013756

2882

013772

2880 013756
2881 013764

020001

004654

000010

165216

000000
004314
004604

004767

2892

104002

2893
2894,
2895

014030

014034
014034

#SYNEXT.@PARCSR -SET THE noos

MOV
MOV
BIS

#MMRESET.ATXCSR

ro THIS TEST WHEN THRU

-MASTER RESET

MMTDATA
! CLK 'MINT 'BREAK ,@TXCSR

#SYNEXT 'EIGHT 'NOPAR !0, aPARCSR
#SYNSCH,@RXCSR

:SET SEARCH SYNC

BIC

#CLK,3TXCSR

:POKE CLK DOWN

MOV

#0,R0O ~ :EXPECTED

MOV
JSR
TSTB

#0,TEMP1
;DATA CHAR
C ,RPOKE
SHIFT IN THIS CHAR
@RXCSR :RXDONE
?

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIS
MOV
MOV

648:

HLT

658%:

#CLK.ITXCSR
RXDBUF,R3

#8. SHIFT

BEQ

65$

JSR

:# OF SHIFTS

;RXDONE SHOULD BE SET

@RXDBUF ,R1

MOV
MOV

*POKE (LK LP
“SET UP FOR ERROR MESSAGE

648

MOV

165134
165132

MRESET,TXCSR :MASTER ke

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

HLT

004252

;SAVE TH
xs

MOV

BIS

8MI

165154
165152

#28,TSTNO

#. EOP,NEXT

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

RO,R1
2

;COMPARE’ expecreo VS. ACTUAL
:RECEIVED DATA DID NOT MATCH

*EXPECTED DATA - CHECK MAINT DATA
*OR RECEIVER LOGIC

#8. ,SHIFT
#0. TEMP1
PC .RPOKE

:# OF SHIFTS
*DATA CHAR

*SHIFT IN THIS CHAR

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF

004522

001401

104400

MOV

MOV
BIS

165214

004600

012767 000010
012767 000000

017701
020001

014032

TST28:

104002

2889 014022
2890 014026
2891

004662

020000
004640

2884 013776 012767 000010
2885 014004 012767 000000
2886 014012 004767 004232
2887 014016 012700 140000

2888

004654

104000

017701

013754

2883

052777

013744

2876

2877
2878

012777 026000 004672

013676 052777
013706 016703

2870 013740
2873

SEQ 0055

MOV
MOV
JSR
MOV

#8. SHIFT
#0. TEMP1
PC .RPOKE
#140000'0,R0

MOV
CMP

aRXDBUF ,R1
CTUAL
RO,RT
:COMPARE" exp VS. ACT

BEQ
HLT

668$:

SCOPE

66$
2

:# OF SHIFTS
*DATA CHAR
SSHIFT IN THIS CHAR
:EXPECTED DATA PLUS

RXERR £ OVRRUN

;SPECIFICALLY LOOK AT RXERR &

;OVRRUN BITS...THEY BOTH SHOULD BE SET

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDuBD.P11
31-0CT-78 13:59

15:36

PAGE 59

28%
2897
2898

2928

SEQ 0056

;END OF PASS
:TYPE NAME OF TEST
sUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT=11
sRESTART TEST
.EOP:

014274
016721
165124

,OUTCRY
,DEVICE

TSTB

MULTD -

TST

ACTREG

BEQ

165132

;TYPE NAME OF TEST

TYPE

MEPASS
CONVRT
TYPE

cCC

RUNIT
MC ow

sARE YOU RUNNING MULTIPLE DEVICES ?
:NO,JUMP AROUND

NE?E ANY DEVICES ACTIVE ?

0
014072
014076

016733

165120

MOV

014100

165314
000010
000010

sSELECT SWITCHES & HIT CONTINUE (PUT SWO0 =1)
JMP
. START
:START OVER AGAIN...... YOU DESELECTED EVERYTHING
ADD
#10,BASEADD
:NEXT BLOCK (ADDRESSES)
elL)lg
#10,BASE IV
:NEXT BLOCK (VECTORS)

TYPE

HALT

165072
165072

RUNIT:
ZERO:

165072

012767
016767
016767

165060

000034
000174
000001

165042

165024
165024
000002

165000
003702
164774
000002
164760
000002
164744
000002
164730
004300

ROTADD

BIT
BEQ
JSR

ROTADD ,ACTREG
RUNIT
PC ,REPLAY

165020
165020

JMP
MOV

MOV
MOV
JSR
BR
REPLAY: MOV
JSR

OUTCRY:

005067
005067
005267

ROL

B(CS

165064

CCC:

ACTREG,RO

RESTRT
#1_,ROTADD

KEEPADD ,BASEADD
KEEPIV ,BASEIV
PC ,REPLAY
CCC
BASEADD ,DUBASE
PC,DUADDR

MOV
ADD
MOV
ADD
MOV
ADD
MOV
MOV

BASEIV,DURIV
#2 BASE IV
BASEIV,DURIS
#2 ,BASEIV
BASEIV,DUTIV
#2 ,BASEIV
BASEIV,DUTIS
glcfll V.BASEIV

BYTE

6,2

CLR
CLR
INC

LSTERR
nRFLG

PASCNT

:NO
:DISPLAY ACTREG
sSELECT SOMETHING TO RUN @ ACTREG:

;UP DATE ROTATING POINTER
;1S IT THE LAST DEVICe
:TO BE TESTED IN THIS PASS ?
sTEST THIS DEVICE FOR ACTIVE STATUS
:1F NOT ACTIVE, TRY NEXT ADDRESS
sCALCULATE NEW PARAMETERS
sYES IT WAS ACTIVE,TEST THIS DEVICE
;OK! NOW SET UP ROTATING
;POINTER FOR NEXT MULTIPLE PASS

sRESTORE BASE ADDRESS
sRESTORE BASE INTERRUPT VECTORS
sCALC NEW PARAMETERS

:JUMP AROUND REPLAY
sSET UP FOR NEW ADDRESSES
:CREATE NEW ADDRESSES

:CREATE DURIV

:CREATE DURIS
; CREATE DUTIV
CREATE DUTIS
;RESTORE

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

DZDUB-C MACY11 30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT=78
13:59

ggg
S

2958
2959

2960
2961
296%
2232‘

014316 016777 164606
014324 013701 000042
014330
001405
0143

004711

014344
014352
14354
014362

012767
104413
012767
000167

000240
000240
000240

PAGE 60

164556

01433

014336
014340
014342

15:36

MoV
MOV
BEQ

LOGICAL :
000340

163424

003446
167060

164532

014366

2969

014366

000424

2971
2972
2973
2974
2975
2976
2977
2978
2979
2980

014370
014376
014402
014406
014412
014414
014416
014422
014426
014432

013746
012737
005737
012637

2981
2982

2983
2984

164466
164456

2988
2989

014460
014462

100027
017700

164420

014470
014476

032777
001

004000

026767

164414

014454

014466

001407
105777

000412

2993

014500

005267

2995
2996
2997

014512
014514
014520

101412
105067
005067

3001

014544

2994

2998
2999
3000

3002

3003

014504

014524
014532
014540

012767
016767
016716

014546

001407

014550

000002
007432

3005
3007

1$:
164462

2%:
3% :
4$:

000432

014450

000004

014452

2991
2992

Ei!—

014436
014440

022626
012637
03
016767
016716

000004
014414
177060
000004

2986

2990

PC.,(R1)

#340,PS

#TST1,.RTRN
TST1

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

.SCOPE:

104413
032777

2987

JSR

:DISPLAY PASS COUNT
:CHECK FOR ACT=11 OR DDP
*IF NOT, CONTINUE TESTING

;#x** START OF CODE FOR THE X OR TESTER sawass

014440
014442

2985

PASCNT ,aLIGHTS
w62 Ri
RESTRT

:SCOPE LOOP AND INTERATION HANDLER

2967

2970

NOP
NOP
NOP

RESTRT: MOV
CKSWR
MOV
JMP

22322

2968

RESET

SEQ 0057

040000

164430

TIST:

164424

164420

164526
164400

000005
164360
164350

:IF RUNNING ON THEX OR TESTER CHANGE

MOV
MOV
TST
MOV
BR
cTMP
MOV
BR
MOV
MOV

a6, -(SP)
¥
A
177060
(SP) +,a#%
2%
(SP)+,(SP)+
(SP) +,a#%
3$
NEXT ,RTRN
RTRN, (SP)

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

RTI
sexxx END OF CODE FOR THE

CKSWR
BIT

BEQ

B8R

1%:

2s:

164370
164354

3$:
BRW:

BRX:

QTKCSR

3s
aTKDBR,RO

X OR TESTER ##xwws

:CHECK FOR G
:LOOP ON CURRENT TEST ?
;TEST TTY FLAG

:CLR DONE BIT

JIF A TTY KEY IS STRUCK GO TO NEXT TST

BIT
BNE

#SW11,aSWR
2s

CMP

LPCNT, ICOUNT

;CHECK FOR ITERATION CNT FINISH

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

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

INC

164410

TSTB

BPL
MOV

164402

#SW14,aSWR

:THIS INSTRUCTION r0 A ‘'NOP''(NOP=240)

BLOS
CLRB
CLR

MOV
MOV
MOV

RT]

140"

432

LPCNT

3%
ERRFLG
LPCNT

SINHIBIT ITERATIONS ?

;RESTORE 'BEQ 1%'* INSTRUCTION
*RESTORE "BR 3$'' INSTRUCTION

;CHECK FOR FREEZE ON CURRENT DATA
(014552

104413

LSCOPT: CKSWR

JCHECK

FOR *G

15:36

PAGE 61

SEQ 0058

DZDUB~C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0C7-78 13:59

&8 AT TRERE
AV fiwN—‘OOO\J

Nole RNTe AW, F QW N}-0

BELEE
e
333EEFEEES BEE
SRR aK2s 555 SERERSS
9

032777

001402
016716
000002

001000

164316

164330

BIT
BEQ
1%:

MOV
RTI

#SW09, aSWR
1%

LOCK, (SP)

:TELETYPE OUTPUT ROUTINE
010546
017605
062766
105715

000002
000002

.TYPE:

000002

1%:

2%:

164272
164266

3%:

MOV
MOV
ADD

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

BEQ

1ST8

TSTB

B8PL
MOVB
B8R
MOV
RTI

(RS)

;LOOK FOR '0'*

QTPCSR

;TEST DONE BIT

2
(RS)+,aTPDBR
1%
(SP)+,RS

;TYPE CHAR

;DO IT AGAIN UNTIL ‘0" IS SEEN

;ASCII STRING INPUT ROUTINE

000004
000002

000010
000004

. INSTR: MOV
MOV
MCV

ADD

.INST1: BYPE
.MSG:

017700
000007
164212

1%:

164206
000200
000025

017110

MOV

TSTB

# INBUF ,Ré

#7.R3

@TKCSR

BPL
MOVB
BICB
CMPB
BNE

#200, (R4)
(R&) 425
200$

BR
C(MPB

200%:

.INST1
(R4)+ 415

164156

2%:

BEQ

MOVB

TSTB

BPL
DEC
BNE

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

016246

017110

34 (SP)
, .MSG

#2.,4(SP)

1%
QTKDBR, (R4)

TYPE ,MCRLF

000015
164154
164150

MOV

R3,=(SP)
R .=-(SP)

BEQ
400%:

INSTR2

Q@TKDBR,aTPDBR

QTPCSR

2%
R3
1%

.INSTG

R3,=(SP)
R4 .= (SP)
SNRDSW

400$

TYPE ,MCRLF

B8R

INSTR2: MOV

MOV
RTI

CINST1

(SP)+.R4
(ZP)+ R3

:18 1T <TM

DZDUB-C MACY11_30A(1052)

CZDUBD.P11

_21-NOV-78

31-0CT=-78 13:59

15:36

PAGE 62

;CONVERT ASCII STRING TO OCTAL
015002

015004
3069 015
3070 015012
3071 015016
015022

010546

.PARAM: MOV

010446
016605
012567
012567
012567

000004
000170
000166
000164

3075

015036 010566

000004

3077

015044

3073
3074

3076
3078
3079
3080
3081

3083
3085
3087

3089

3091

3092

015026
015032

015042

015050
015054
015056
015062
015064

112567
112567

005005

012704

000162
000157

017700

122714
001420
121427
002415
121427

000015

015072

#60, (R&4)

015100
015106
015106
015110
015112

122714
001414
006305
006305
006305

000015

015116

122714

000015

015076

015114

152405

000760

015132

000060

|
$:

8GT

BISB

(R4S+,RS

#15, (R4)
LIMITS

PARERR: CMPB

#15, (R4)

016246

104404

PARERR

CMPB
BEQ
ASL
ASL
ASL

1208:

30993100

BNE
TST
BNE

INSTER

B8R

RS
RS

120%
SRDSW
PART]

;1S FIRST CHARACTER A <CR>

;1S CKSWR ROUTINE BEING USED

PARAM1

;TEST TO SEE IF NUMBER IS WITHIN LIMITS

015136

015142
015144

015150
015152

015156

020567

101365
020567
103762
136705

001357

000046

LIMITS: CMP

RS, HILIM

BLO
BITB

PARERR
LOBITS,.RS

BHI
CMP

000036
000036

BNE

%}83

PARERR
RS,LOLIM
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS

3110
3111
3112

015160
015164
015166

016704
010524
062705

3114

015176

001372

015202

012605

015172

3115

015200

2117
2118
3119

015204
015206
015210

3116

#INBUF
R4

BICB

000742

3113

MOV

000060

015134

;189

RS,4(SP)

PARAM1: CLR

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

142714

33835

3106
3105

MOV

MOVB
MOVB

000067

070 003012

001003
005737
001023

3101

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

#15, (R4)
PARERR
(R4) ,#60
PARERR
(R4) 467

015122
015126
015130

3102
3103

RS,=(SP)

MOV
MOV
MOV
MOV
MOV

CMPB8
BEQ
CMPB
BLT
CMPB

3093
309
3095

3096

SEQ 0059

105367

012604

000002
000000
000000

000026
000002

1$:

000017

MOV
MOV
ADD

DEVADR R4
RS, (R4 +
#2.RS

BNE

DECB

PARTI:
LCLIM:
HILIM:

MOV

MOV
RT]
0
0

ADRCNT

(SP)
+ R4

(SP)+.RS

DZDUB-C MACY11 30A(1052)

CZDUBD.P11
|

3120
1%1

015212

015214

31-0CT=78

21-NOV-78

13:59

15:36

000000

015215

ADRCNT=LOBITS+1

}%g

;SAVE PC OF TEST THAT FAILED AND RO-RS

§}S%

:SAVE RO-RS

3130

015224

010567

g}gg

015254

000002

3131
3132
3133
3134
3135

015230
015234
015240
015244
015250

010467
010367
010267
010167
010067

163740

SV0S:

163732
163724
163716
163710
163702

015256

016700

g}zg

015306

000002

015262
015266
015272
015276
015302

016701
016702
016703
016704
016705

163674

.RESO5: MOV

163672
163670
163666
163664
163662

015310
015312

104402
017110

MOV
MOV
MOV
MOV
MOV
RTI

.CONVR: TYPE
MCRLF

3153
3154
3155
3156

015316
015320
015322
0153264

010146
010346
010446
010546

3158
3159
3160

015332
015340
015346

016767
062766
012167

002402
000002
000154

3163
3164

015362
015366

013167
016704

000144
000140

3166
3167

015376
015402

012700
010403

3169

015410

062703
042704

3152 015314 010046

.CNVRT: MOV

3168

015352
015356

015372
015404

112167
112167

116705

042703

3170
3171

015414
015416

110320
006204

3173
3174
3175

015424
015426
015430

006204
006204
005305

31;§

SAVRO,RO

SAVR1.R1
SAVR2 _R2
SAVR3.R3
SAVR% R4
SAVRS .RS

015420

RO.=(SP)

MOV
MOV
MOV
MOV

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

MOV
ADD
MOV

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

2%:

MOV
MOV

@a(R1)+,BINWRD
BINWRD
. Ré4

3$:

MOV
MOV

#TEMP,RO
R4 R3

000060

ADD

#060,R3

100000

BIC

3157 015326 017601 000012

3165

RS,SAVRS

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

;CONVERT OCTAL NUMBER TC ASCII AND QUTPUT TO TELEPRINTER

3150
3151

3161
3162

4(SP) , SAVPC

;RESTORE RO-RS

3140

3141
3142
3143
3144
3145

MOV

MOV
MOV
MOV
MOV
MOV
RTI

%112‘8;

SEQ 0060

LOBITS: 0

%}%3

DEVADR: 0

000000

I g}gg 015216 016667 000004 163750 .SAVOS: MOV
|

PAGE 63

000152
000147

000132

017740
177770

MOV

163610
000012
1$:

MOVB
MOVB

MOVB

BIC

MOVB
ASR
ASR
ASR
DEC

@12(SP) ,R1

(R1)+.CHRCNT
(R1)+.SPACNT

CHRCNT.RS

#177770.R3

R3,(RO)+
R&

#100000, R4
R&
Re
RS

sSHIFT FOR NEXT #

:CLUGE TO STOP BIT 15 PROPAGATING.
DITTO
DITTO

SUER
Q WWNWW
N ~ NWWW

000040
000043

$3es

HOW

)

S80S ?O
T
583383852

($:

000055
5%:

6%:

BNE
MOV

163440

888
v

-t

3s
#MDATA ,R3

MOVB

=(RO),(R3)+

CHRCNT

DECB

BNE
TSTB
BEQ

MOVB
DECB

BNE

SPACNT

#040, (R3)+
SPACNT

(LRB

TYPE

BNE
MOV
MOV
MOV
MOV
MOV
MOV

b
b
b ab

SEQ 0061

MDATA
DEC

000024

b aub

lelelelelels]

-t

Sarn
S rPoN NN
&SN
N

5 a0

wvwnaanwn v
v

000062

PAGE 64

RTI

BREFBERE
R

TERY
v

—

— -R

—

D e

0000
o
lelelelelelelelelelelelalelelelelelele] o
o

(R3)

WRDCNT

18
TEMP3, TEMP
(SP)+.RS
(SP) +.R4
(SP)+.R3
(SP)+.R1
(SP)+.RO

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

ng\
nNOOO

Vi
Vi
Vi
v
NN

.SETFLG:MOV

000131

1%:

177777
000002

=
d
d —d
D
h
D
d
D
—

000000
000116

3%:

CMPB
BNE
CLRB
BR
CMPB
BNE
MOVB
ADD
RTI

INSTER

a(SP) ,RS

#°'N, INBUF
1%
(RS)
;000
2%
#'Y, INBUF
3s
#-1,(RS)
#2,(SP)
.SETFLG

JIS IT W' 2

JIS IT °Y* 2
;377
;RETRY

:TRAP DISPATCH SERVICE

28 RKees

OO\~
OO\

e
e

—_—

R NVNO JR
—

O=O

—

NN SO

N — — —

§&&&&§g

sARGUMENT OF TRAP IS EXTRACTED
sAND USED AS OFFSET TO OBTAIN POINTER
:TO SELECTED SUBROUTINE

)
b D r

3 VONOWVB W=
b
b
b cd
s
b
o
b o
b

jelelolelelelelelelelele]

—

TR JOE U

NS NS YU ST S

SRR§ N N N N N NN N N NN N N NN N NN NN W N N
32
32
32
32
32
32
32
32
32
32
32

020000

15:36

;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
sBUFFER TO THE CHARACTERS 'W'' AND "YY'’,
sIF THE CHARACTER IS 'N'' CLEAR THE FLAG
:IF THE CHARACTER IS 'Y'' SET THE FLAG

elelelelelele]

§3888323838383832&8283333 g?

21-NOV-78
13:59

000002
000000
177001

001366
000000

.TRPSR: MOV
TRPOK
:

SuB
MOV

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

BIC

#177001, (SP)

;GET PC OF RETURN
:=PC OF TRAP
;GET TRP
sMULTIPLY TRAP ARG BY 2
sCLEAR UNWANTED BITS

a(SP), (SP)

s SUBROUTINE ADDRESS

ASL

ADD

MOV

(SP)

#."RPTAB, (SP)

;POINTER TO SUBROUTINE ADDRESS

DZDUB~C MACY11_30A(1052)
21-NOV-78
CZDUBD.P11
31-0CT-78 13:59

15:36

PAGE 65

015632 000136

JMP

015636
015644
39 015646
015652
1 015656
015660
&'« 015664
015666
%S

015670

g«

015676

0156764

10441

032777 020000 163234
001061
021667 163262
001404
011667 163254
105067 163362
104406
011605
162705

011504

JHLT:

18:

000002

3259
3260
3261

015702
015704

015710
015714
015720
015726
015
015734
015736
015742
015744
015746
015750

006304
042704

062704
012467
012467
011467
105767
001403
005767
001014
104410
016076
112767

szeg 015756 104402

3263
364
3265
3266
3267
3268
3269
3270
3271
3272
3273

015760
015762
015766
015770
015772
015774
016000
016002
016004
016006
016010

005767
001402
104402
000000
005767
001402
104410
000000
104407
005777

32277
3278
3279
3280

016024
016026
016030
016032

012600
104413
005267

3083
8,

016046
016054

032777
001407

177001

020514
000040
000046
000054

;GO TO SUBROUTINE

000042

177777

163270

ASL
BIC

R
#177001
R4

TYPE

163064

ERRMSG: 0
TST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ
CONVRT
DATABP: 0
RESREG: RESOS
HALTS:
TST

163074

HALT
POPRO
EXITER: CKSWR
INC

000004

3281 016036 032777 000400
3282 016044 001007

*INMIBIT ERROR TYPE OUT ?

(SP) RS

ASL

TYPMSG: CONVRT
ERTABO
MOVB

:CHECK FOR G

ERRFLG

#2 RS

ADD
MOV
MOV
MOV
TSTB
BEQ
TST
BNE

163312

#SW13,aSWR
HALTS
(SP),LSTERR
13
(SP) ,LSTERR

suB

ADD

3274 016014 100005
3275 016016 010046
3276 016020 016600 000002

CKSWR

8IT
BNE
CMP
BEQ
MOV
CLRB
SAVO0S
MOV
MOV

006

48 015700 061504

3251
szsg
3253
3256
3255
3256
3257
3258

a(SP)+

:ERROR HANDLER

015634

3249
3250

SEQ 0062

(RS) .R4

(RS) ,R4

#.ERRTAB
R4
(RG) +,ERRMSG
(R4)+
. DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG
DATABP
TYPDAT
#-1,ERRFLG
DATAHD
TYPDAT
DATABP
RESREG

ASWR

BPL
EXITER
PUSHRO
MOV
2(SP) RO

163034

002000

163024

3285 016056 016767 163034
3086 016064 012706 001100
3287 016070 000177 163020

163030

BIT
BNE

BIT
BEQ

18:

MOV
MOV
JMP

ERRCNT

:CHECK FOR *G

#SW08 , aSWR
1%

:LOOP ON ERROR ?

NEXT ,RTRN
#-TACK, SP
aRTRN

;SET UP FOR NEXT TEST
‘REINITIALIZE SP

#5W10,aSWR
2%

:ESCAPE TO NEXT ON ERROR ?

21-NOV-78

15:36

PAGE

2%:

ERTABC:

002

SEQ 0063

RTI

.BYTE

SAVP(

6,2

;ENTER HERE ON POWER FAILURE

SHERIFRNS&R

oooo«oo;oooo«

000002
000001
006
001174

PFAIL: MOV

MOV
MOV

MOV
MOV
MOV
MOV
MOV

161666
1%:

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

;SAVE RO-R5 ON PROCESSOR STACK

R3,=(SP)

R,=(SP)
RS.=(SP)
24 ,~(SP)
SP,SAVSP
#RESTART
,24

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

sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

RRRRRRRRRRRE222222222

163024

RESTAR: MOV

-b

«d

Rele RNTeJV, P
{VIAN]=o
iy

- b o b i cd cd cnd

WWWWWWWW

NWNWNWN NN
N
NANWN

WWW

§z§§SSO o8

31-0CT-78 13:59

—

DZDUB~C MACY11_30A(1052)
CZbuBD .P11

634
600
1%:

PFTAB:

016244

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

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

CLR
CLR
.{PP

ERRFLG
LSTERR
aRTRN

BYTE

6,2

CLR
INC

RTRN

;RESTORE STACK POINTER

;RESTORE RO-RS5

;SET UP FOR POWER FAILURE

TEMP
{EFP

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

;0F LOC.176.

:LOCATIONS USED:O

016246

016250
016254
016256
016264

RDSW:

005737
00104
022767
001036

000042

000176

. CKSWR: TST
162614

BNE
CMP

BNE

.WORD

aws?

ouT
#_REG, SWR

out

;SOF TWARE SWITCH REGISTER PRESENT

:NO, GET ouT

DZDUB-C MACY11_30A(1052)
g1;~ov-7s
CZDUBD.P11
31-0CT-78
13:5

10993
01776
042767

016

001021

016

104411

016
016
016
016
356

56
357
358

105777

01
81
16

016340

016344

19;606
1 609

000007

1044;
005137
104402

016376
016246
016403

104403

016413

016370

016346
016350
016352

177777
000176

016356
016362
016366

104402
005037
000002

017110
016246

§§‘ 016372

006

002

005015
015
020075
040
020075

043536
051412
000
047040
000

005015
020061
026502
042520

59 016354

360
361
scg

333

016370

016374

000001

000176

PAGE 67

162612

122767

104405

15:36

TSTB

176352
176344

176336

SEQ 0064
@TKCSR

;YES,WAIT FOR

#7,.MSG

(IS IT A <*G>

8PL
MOV
BIC

ouT
@TKDBR, .MSG
#177600. .MSG

BNE

CMPB

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

TYPE ,$CNTG
LCNTLU: COM
RDSW
TYPE ,SMSWR

CNVRT, SWREGC

001

INSTR. SMNEW

PARAM

0
177777
SWREG

.BYTE

0,1

TYPE ,MCRLF
CLR
HRDSW
RTI

oUT:

SWREGC: 1

BYTE

6,2

000
051127

S$CNTG:
$MSWR:

.ASCIZ
.ASCIZ

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

053505

SMNEW:

.ASCIZ

042012
055103
020103
041040

030525
052504
040524
006440

MTITLE: .ASCIZ

<15><12><12>/DU11 CZDUB-C TAPE B /<15><12>

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

SWREG

3
33%7
3368
33%9
3370

016376
016403
016410
016413
016420

%;%
3374
3375

0164%3
016432
016440
016446

377
3378
3379
3380
3381
3s§
gsa
384
gsss
386
issgg

016456
016464
016472
016500
016506
016514
0165;5
016530
016536
016544
8}255

005015
051117
mzszg
005015
042504
020072
053111
047117
051040
042526
051(1)340

042526
040440
051523
051461
044526
042522
051105
051124
043505
020122
051505

052103
042104
000055
020124
042503
042503
041440
046117
051511
042101
026523

MVECTO:

MREGAD: .ASCIZ

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

389
300
301
39;
393
306

016561
016566
016574
016608
01661
016616

015
054440
047125
822“0
120
044526

04041
052517
044516
0466125
020105
042503

042522
051040
043516
044524
0425
020123

MMULT:

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

3371

3376 016454

016424

395 ousegté 020077

.EVEN

.ASCIZ

054450 047440

§§39
8}&0 85‘5’5% 8532%2 0 213§ MLASTD: .ASCIZ
398 016646 042040 053105 041511
E

399

016654

035105

042522

042503

NEW= /

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

eSNnmmawawmso4SRSEBNR2ERsxo%o
A"alaR51017573054504005nNoWnNown—ONONOT0;
g3£g3g8&-gNgeO-£ggsSM Fegggbg TOgMegOgNgOggO(gN£& gs<2egMgNggMggONTOg83O3003O03T8¥OO—<=O=MOOTNTOP Ra :N
v[iAaV0gV] VSS w- —- AA vV AA ) io-o v~ (wbW~~] =

.NLv)%(b=,~\("N.e]4 .LNAoA . ~(>.oN) &

L2W8S3R8>03eRI58I35SZR1EROIZRR5[-%11%R]8eRN813<N%2]8SNU3—8NmROMW31Ns81JR<(1L21Rs%]o3‘uclsa5nlsm.3.mlSm3qlmSMNsBe—OWRmN—M1O1Nwm.vW.8318m3518{ENT“
Laloal

al‘lclqlclal

Xe(=leAleleRleAleRlalealelelelelelelelRalAeleAleRleAlelAeRlalSelSeRlelalePleRlelelolelolelelelelelelelelele

e—=

ANAN6N6A6SN66
w

i a

. - e Fegaic odi

DZDUB-C MACY11_30A(1052)
CZDuBD .P11
M

LASCIZ

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

JASCIZ

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

.ASCIZ

POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/

w) — <w @p

LASCIZ

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

JASCIZ

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

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

SEQ 0065

DZDUB-C MACY11_30A(1 0;‘)
21-NOV-78
13:59
31-0CT -78

CZDUBD.P11

047131
51101

15:36

PAGE 69

SEQ 0066

2
3044

030460
A

05144

MWIREG:

.ASCIZ

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

MWIRES:

.ASCIZ

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

MWIRESG:

.ASCIZ

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

MEXTJ:

.ASCIZ

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

020066
054450
024516
051440

05
017676

MSTATUS:

.ASCIZ

<12> <15>/

STATUS

MAP

/ <12> <15>

.EVEN

;BUFFERS FOR INPUT=-QUTPUT
017700
017740
020000

INBUF:

TEMP:
MDATA:
SRR

SRR A

020040
0044
020050

000044
000040
000034

.BLKB

.BLKB
.BLKB

40
40

AR AR AR AR A AR AR R

AN AR AR AR

SUTILITIES

AR AR A A AR

AR AR AR AR R AR AR R A AR AR

AR R RARRR

AR AR RN AR R AR

:THIS UTILITY CALCULATES PRIORITY LEVEL

DULEV:

ASL
ASL
ASL

DUPRT
DUPRT
DUPRT

;SHIFT LEFT

;

AR AR AR AR

RNk

006367
006367
016767

::_ag

MBEREERBNZ

~o&

15:36

PAGE 70
ASL
ASL

000020
000012
000004

162767

SRERRERRERS

NN NN NN NN
g\fl\fl\fl\h
Vi

—

d d e e

LI
RO
V\W\fl§\h\fl
OO NN NS W

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZDuBD.P11
13:59
31-0CT-

042767
000207
000240
000200
016767
005267

000422

DUPRT,LESS1
#1 LESST

RTS

LEVELS
LEVEL4

=
WA
VS

*CLEAR TNZVC

:LEVEL TO ALLOW INTERRUPTS
DUBASE ,RXCSR
DUBASE

:XXX0

DUBASE ,HRXCSR ; XXX1

000402
000400

MOV
MOV

DUBASE ,RXDBUF
DUBASE ,PARCSR

000364
000362

MOV
MOV

DUBASE ,HRXDBUF ; XXX3
DUBASE _HPARCSR - XXX3

000352

MOV

DUBASE ,TXCSR

:XXX&

000342

MOV

DUBASE ,HTXCSR

I XXXS

000332

MOV

000322

MOV

SEEX

% SEREREE BIFAR

WN) =

Vi
v

;MOVE THIS TO LESS1
*CREATE LESS1

MOV

000412

000302

NN U N AN AN AN N N N AN AN N AN N N N NN N N

#37. LESS1

:NEW DU ADDRESSES

DUADDR: MOV
INC

INC
INC

INC

RTS

DUBASE: 0

—er——

DUPRT
DUPRT

MOV
SUB
BIC

DUPRT:
LESS1:

SEQ 0067

160602

RPOKE:

1%:

DUBASE
DUBASE

DUBASE

DUBASE
, TXDBUF ; XXX6
DUBASE

DUBASE ,HTXDBUF ; XXX7

BIC

#MTDATA,3TXCSR

ROR
ROR
ASR

TEMPT
TEMP2
TEMP?

CLR

TEMP?

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

BIC

#BITIS, TEMP2

;CLR BIT 15

BIC
BIS
DEC

#CLK,@TXCSR
#CLK.@TXCSR
SHIFT

*POKE CLK
;

BNE

4%:

DUBASE

:XXX2
+XXX2

;THIS UTILITY POKES THE MAINT DATA BASED UPON THE
:INFORMATION CONTAINED IN TEMP1 AND IT IS
*SHIFTED IN BY THE CONTENTS OF SHIFT

BIS

0DD8:

DUBASE

TEMP2,3TXCSR

:POKE MAINT DATA

RPOKE

RTS
PC
:THIS ROUTINE CALCULATES OCD PARITY FOR AN 8 BIT CHAR

MOV

TEMPT, TEMP2

MOV

#8.,(PC)+

ROR

TEMP2

DEC

ROR

TcMP3
2%

CLR

ADC

BNE

TEMP3

TEMP3
1$

:SAVE TEMP1

MACY11_30A(1052)

31-0CT=-

052767
00040;
04276

21-NOV=78
13:59

15:36

000400

160534

000400

160524

000207

016767
005067
012727
000000

160516

PAGE 71

g&s

ggxrs.rsnr1

:SET ODD PARITY

2s:

BIC

#8178, TEMP1

:CLR EVEN PARITY

3$:

RTS

-TEMP1 NOW HAS ODD PARITY CHARACTER

:THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER

EVENS:
4%:
1%:

?f%

;EMP1.TEHP2

MOV
0

#8.,(PC)+
TEMP

DEC
BNE

I3
1%

BCC
SAS

2$
gglra.rsnp1

;SET EVEN PARITY

2s:

BIC

#BIT8, TEMP

:CLR ODD PARITY

3$:

RTS

160450

.ERRTAB:

TEMP3

#2,(SP)

:ALLOW IT TO “CRUNCH'' INTO HLT BACK

:IN MAIN PART OF THE PROGRAM

;ERROR HLT TABLE
gno
:HLT 0

BIT ERROR (GENERAL)

0
EM1
DH1
DT1
EM2

;HLT 1

;HLT 2

RECEIVER ERROR

gz."i

:HLT 3

TRANSMITTER ERROR

3604

DT1

RXCSR:

:DEFAULT DU ADDRESSES

160040

HRXCSR: 160041
RXDBUF: 160042

WN=O

RRREAR

TEMP

:TEMP1 NOW HAS EVEN PARITY CHARACTER

TRPREG: ADD

3606
3607
3608
3609

:SAVE TEMP1

ROR

ADC

ROR

160440

SEQ 0068

HRXDBUF :
PARCSR:

HPARCSR :

160042

VNV

TXCSR:
160044
HTXCSR: 160045
TXDBUF: 160046

HTXDBUF :
DURIV:
020576

DURIS:
DUTIV:
DUTIS:

160043

160047

-DEFAULT DU VECTORS

770

772
774
776

:REC INTR VECTOR

*REC INTR STATUS
SXMIT INTR VECTOR
*AMIT INTR STATUS

;ERROR MESSAGES

Py S

+ A

iDZDlB-C MACY11_30A(1052) 21;'0\!-78
CZDuUBD.P11
31-0CT-78
13:5

3624
5

|
|

362
3628
36%8

020614

020636

051511
051105
1520

042440

05112§

050040
051040

00010
043505

042524

042526
047522
005015

020122
020122
051001

E 6

PAGE 72

SEQ 0069

EMO:

.ASCIZ

/ = ERROR PC/

EMI:

LASCIZ

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

EM2:

.ASCIZ

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

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

020652
56

043505
02012
036440

051511
0
051040

041505

020672
020700
020706
020714
020720
020726
020734
020742
020750
020756
020764

051105
1520
043505
020122
036440
051516
051105
0 051117
ooo:.1§
052123
000

047522
005015
051511

020122
051001
042524

052040
044515
042440
05 0040

EM3:

LASCIZ

051105

040522
052124
051122
006503
044507
020040

020765
020772
021000

105
042524
052103

050130
020104
040525

041505
040440
000114

DH1:

;DATA HEADERS FOR ERROR MESSAGES
LASCIZ /EXPECTED ACTUAL/

3651

021006

000003

365

021012

001164

3655

021016

001156

3657

021022

363

3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648

3649
3650

3652

036440

051117
036440

15:36

3654

021010
021014

3656 021020

3658

044505

04;526

006

004

006

004

006

002

001160

000001

020122

.EVEN
DT1:

-DATA TABLES FOR ERROR MESSAGES

BYTE

6.4

.BYTE

6.4

BYTE

6.2

SAVR3
SAVRO

.END

SAVRT

sREGISTER

JEXPECTED DATA
;ACTUAL DATA

DZDUB-C MACY11_30A(1052)
_21-NOV-78
CZDUBD.P11
31-0CT=78
13:59
AMA
002520
ACTREG 001216
ADDBAS 001
ADDKEE 001310
ADDLAS 001312
ADDROT 001322
ADRCNT= 015215
A10010= swasvs GX

BASEAD
BASEDU
BASEIV

(001
001
001212

1177
8974
9378
9384
3w
%3
3074«
676
892#

F 6
15:36 PAGE 74
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0070

1061%
1057
1058
1059
1
3113+

1125+
1204+
1225+
1226
1230+
31228

1139%

1140+

1147+

1229

2909

2912

2922

1057*
1071
1063«

1064*
1237+
1717«

1107*

1144+

1145

1151%

1153«

1224

2916+

2928+

2932

1228

2917«

2929+

293¢

2935+

2936

2937+

2938

2939+

2940

1128#
3164

32014

1741

1799

1857

1915

1973

888
002336
BINWRD 015532
BITW = 002000
BIT0 = 000001
BIi1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13
= 020000
BIT14 = 040000
BIT1S = 100000
BIT2
= 000004
BITS
BIT4

BITS
BIT6
BIT7
BIT8
BIT9

= 000010
= 000020

=
0
= 000100

= 000200
= 000400
= 001000

BREAK = 000001

BRW

BRX

BUFF1
BUFHRX
BUFHTX
BUFRXD
BUFTXD
BYJMR
CARDET=
ccC
CHRCNT
CKSWR =
CLK
=

014546

014550

000002R
001346
001362
001344
001360
001305
010000
014302
015530
104413
020000

1126
3163«
8074
7554
7548
7,54
764k
7634
758
7,1
7400
753
752¢
7518
750
7.8

7684

778
7468
814#
2031

2746
1289
1290

806
805
804

3550

778
777
776
775
776

809
791
790

808

3568

3570

3585

3587

1451

1509

1567

1625

1683

1335

807

813
812
811
810

1393

2086
2801
1303

2141
2856
30024

1304

2196

2251

3199
3007

3200
3236

163

1035

1272
1241+
1247+
1240+
1246%
1223«

2931
3165
2961
1335
1460

29484
3179«
2983
1341
1461

1750

1751

1799

1805

2141

2147

1921

2313
2581
2807

9314

1631

1922

2093

2361
2587
2B08
1054

2306

2361

2416

2471

2526

2581

2636

2691

1344
1515

3279
1345
1516

1393
1518

1399
1519

1400
1567

1402
1578

1403
1574

1451
1576

1457
1577

1806

1808

1809

1857

1893

171

177

2148

2196

30034

1266
1075
1081
1074
1080
1056

2092

001303

788
787
786
785
1292

780
779

814

6768
953#
9504
952#
958#
9338
7714
2908
3161«
9924
806#
1458
1625

CLROPT

783
782
7735
772
771
770
769
768
781

1632

1924

2367
2588
2856

1221«

1342
1509
1925

2368
2636
0862

1973

2416
2642
%63

1683

1979

2422
2643
3552

1689

1980

2202

2423
2691
3553

1690

1982

2203

2471
2697

1692

1863

1864

1983

2031

2477
0698

2478
2746

2251

2257

1866

2037

2258

2526
2752

1867

1748

1915

2038

2086

532
2758

2801

' 2306

231

283

DZDUB~C MACY11_30A(1052)

CZDuBD.P11

CNTLU = 104414
CNVRT = 104411
CONVRT= 104410
COUNT
001142
COUNTT
001 %30
CSRHPA 001352
CSRHRX 001342
CSRHTX 001356
CSRPAR 001350
CSRRX
001340
CSRTX
001354
(TS
=0

wwwwnn

31-0CT-78

_21-NOV-78

13:59

9944
9884
9864
8684
9084
9554
951#
957#
954#
9504
9564
7704

15:36

2905

1265+
1077
1073
1079
1076
1072
1078

1%77*
1243+
1239«
1245+
1242+
1238+
12644+
268
32674
31204

32714

3605

36464

5599
835#
725#
932#

DSR
DSWR

7744
7248

1022

3600
1106

3
2933

3530

3531«

DTR

pT?
DUADDR

= 001000
= 177570

= 000002

DUBASE

DULEV
DUPRT
DURIS
DURIV
DUTIS
DUTIV
EIGHT =

EMO
EM1
EM2
EM3

ERRCNT
ERRFLG
ERRMSG
ERTABO
VEN8
EVEPAR=
EVPAR =

021006
020114
020246

020040
020110
020572
020570
020576
020574

020600
020614
020656
020720

EXITER

001132
001246
015760
016076
020422
001400
000400
016030

FLAG

001222

HALTS

016010

FILBUF
003204
FIVE
= 000000
FRMERR= 020000

3259

3270

3322

SEQ 0071

675

3257
3264
3110
34064
3602
1032
1023
1055

100000
000040
100000
000040

CROSS REFERENCE TABLE == USER SYMBOLS

1039
3353
1275

DATABP 01
DATAHD 015772
DEVADR 015212
DEVICE 016721
1
020765
DISPRE 000174
DLIGHT= 177570
DMULT
001304

DNA
=
DNAINT=
DSC
=
DSINTE=

PAGE 75

3254+
3253«
3072«

804#
8114
768#
778#

7824

1071

1172
1070
1066«
1065«
1068+«
1067
799

3595
3598
3601
3604

8614
9204
3252«
3
35754
802#
7914
3274
12684
7964

905#
787#

3238

1222+

3606
35224

36514

1102

1105

1237

3533«

2932«

3522

3523

3524

3525«

3526

35094
1169
1233
1113
1235
1234
1802

3532
1231
2936
1116
2940+
2938+
1860

3509+«
36204
1117
36224
36214
1918

3570«

3512«

3513«

3514

35184

1232

3511+
:
2934

2941

36194

1976

2694

2749

2804

2280«
2950+

2996«

3242+

3255

3261

3326+

2089

2144

2199

36244
36264
36324
36384
1013«
1012«
32634
32894

3534

32794

1271
2034

1087«

32734

1258

1262+

3535«

3536

3537«

3538

2859

35404

3527

3528+

3529

DZDUB~C MACY11_30A(1052)

CZDuBD .P11
HDXEN =

31-0CT-78

_21-NOV-78

13:59

1;0

15:36

003132
&1) 210
1136
001224

121
71«
8664
9064

12584
3101

3119#

1263«

1279

HPARCS

0205

1077«

1243

3530«

020552

1075+«

HRXCSR

HRXDBU

0012;2

020546

HTXCSR
HTXDBU

020562
020

NBUF

017

ICOUNT

001122

INIFLG 001244
INSTER= 104404
INSTR = 104403
INSTR2

1SYMOD=

014774

IVBASE 001314
IVKEEP 001316
JMRBY
001203
KEEPAD 001206
KEEPIV 001214
LASTAD 001210
LESS1
020112
LEVELO= 000000
LEVEL1= 000040
LEVEL2= 000100
LEVEL3= 000140
LEVEL4= 000200
LEVELS= 000240
LEVEL6= 000300
LEVEL7= 000340
LIGHTS 001102
LIMITS 015136
LOBITS 015214

LOGICA
LOKFLG
LOLIM
LPCNT
LSTERR
L1ESS

MCOW

p=3

—

MCRLF

MEPASS

001120

014334
001247
015206
001124
001134
001336
001634

16733

OO%}OO

LOCK

17110

017200

MEXT
=
010000
MEXT)
017571

MINT

MITSEX

= 004000
001301

907#

1073«
1079«
1081«

1364*
1239

1241

035

3077

3213

35014

1129

1154

1164

1178

1191

1195

1199

1203

1294

1389
1744

1396
1795

1447
1802

1454
1853

1505
1860

1512
1911

1563
1918

1570
1969

1621
1976

1628

1227+
1206
1064
1116«
1134
3514~

1223
1105+
1227
1145
3515«

2929
1159
3516+

1107

1151

1153

1225

2928

1032+

2952+

31214

3122

1014+
1069
1038

1298
3118#
2993+
2949+
1236+
10464

2994
3239

2997+
3241«

3327«

3043

3059

3151

3360

34284

30614

9414
8884
8934
896#
8944
1069+
7654
7644
7634
76248
7614
7604
759
758#
8464
3087
3073«

1060
1056

1276

3177
2904
8184
1204

8174

2031
2746

9294

3209

3046

2911

114

1184

1018
1188
;ggz

29564
9214
3070«
8584
862#
9%
1036

529+

SEQ 0072

36134
36154
36174

9184
978#
gzgfi

8564

524*
53+
538+

2994

795
1679
9404

1%80

1245
1247

8574

1180

CROSS REFERENCE TABLE == USER SYMBOLS

HEREU
HILIM
HOLD
HOLDO

HOLD1

PAGE 76

1331
1686
1063

1058+«
1060+
1059+
1236

1021+
3096
1108
1338
1737
1228+*

3218
1118

;

1226
35194

3519
3518
1023+
31014
3105

3010

1297
3103
1009+

34084
3188
34384
34844
1335

2086
2801
1052

35034

1393

2141
<856

1219+

1451

2196

1509

2251

1567

2306

1625

2361

1683

2416

1741

2471

1799

2526

1857

2581

1915

2636

1973

2691

DZDUB-C MACY11_30A(1052)
21-NOV-78
CZbusD .P11
31-0CT-78 13:59
MLASTD
MLEVEL
MLOCK

MULT
MPFAIL
MaM
MR
MRANGE
MREGAD
MRESET=

016640
017307
017244

016561
017113
017104
017225
017023
016500
00

|
MSTATU
MSYNC

017646
017334

MTDATA= 040000

MTITLE
MTSTPC
MULTD
MVECTO
MWIRES
MWIRES
MWIRE6
NEXT

016424
017231
001202
016456
017515
017450
017402
001116

NOPAR = 000000

NOSYNC
001300
ODDPAR= 001000

0oDD8

ONCE
OPTCLR
ouT
OUTCRY
OUTMUL
OVRRUN=
PARAM =
PARAM1
PARCSR

PAREN =
PARER =
PARERR
| PARTI
PASCNT
PFTAB

1130
1165
1295

020336

001522
001201
016362
014274
002476
040000
104405
015042
020554

001000
010000
015116
015200
001130
016240

= 012600
POP1SP= 005726

1119
3325
3056
1317
1155
1098

808+
1678

1 6
15:36 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

33974
22511
450
3854
2w
a7k
42N
§4180
3804
1330
1680

1332
1736

1388
1738

1390
1794

2028

2411

2081

2083

2136

2138

2743
1261

2798

2851

2853

1179

2796
34924
34554

_805#

2031
2746
1020
1308

8874
1109
1200
1196
1192
8554
2025*

2740*

800#

2034
2749

9284
8014

35584

2413
1335

2086
2801

1393

2468
1451

2521

1509

1446
1796

2191

2523
1567

1448
1852

2193

2576
1625

1504
1854

2246

2578
1683

2141
2856

2196
3545

2251

2306

2361

1121

1122

1222

1286

2907

2795+

1387+
2135+
2850«

1445+
2190+
2979

1503«
2245+
2999

1561+
2300%
3285

1619+
2355%

2089
2804

2144
2859

2199

2254

2309

2364

2419

1202
3345

1221
3349

33614

1110

1156

1166

1309

3355

1331«
1686*

1338+
1737«

1389+
1744

1396%
1795«

1447+
1802+

1454+
1853+

33724
34434
1055«
33774
34764
34694
34624
1329+
2080+
1338

1051

1019
8864
3341
2905
1127
7864
9804

10224
1054
3343
2944n
1152

1628+

1679+

30764
1076

SEQ 0073

1099
3097
1242

1396

1454

1512

1570

1628

1506
1910

2248

2631
1741

1562
1912

2301

2633
1799

1564
1968

2303

2686
1857

1620
1970

2356

2688
1915

1622
2026

2358

2741

1973

2416

2471

2526

2581

2636

2691

1677+«
2410%

1735+«
2465+

1793+
2520%

1851+«
2575«

1909*
2630%

1967+
2685+

1686

1744

2474

1802

1860

2529

1918

1976

2584

2639

2694

1563
1918«

1570«
1969+

1621+
1976+

1218+

11634

2027+
2364*
2;38;

2034+
2412«
2749%

2082+
2419%
2797«

2089+
2467+
2804~

2137x
2474%
2852+

2144*
2522«
2859+

2192+
2529«
3527+

7884
3079
3095
O#
3323
7348
7324

3081
31154
1011«
33294
3278

3083

3092¢

3102

3104

3106

2951+

2952

2199+
2577%
36124

1 05+
1

2
2

*
*

2302+
2639

2309+
2687+

2357+
2694+

RUNB

= 000000

RUND
RUNE

=
=

RUNC

RUNIT
RXCSR

| RXDBUF

wmexsxwx

wwssanw

|
wamsxx |J
wewwnw )

= wxkwnn (J
014104
020544

020550

IRXDONE= 000200
RXERR = 100000

SAVPC
SAVRO
SAVR1
SAVRZ2

SAVRS

001174
001156
001160
001162

001164

781#
1
N

53
53

21
21
21
21
2910
1072«

57
57
57
57
29164
1238

2035+«
2374
2750«

2044
2420+
2759

2048
2284
2534
2763

2064
2314
2543
2779

8814
8744
875#
8764

3126+~
3135«
3134+
3133«
3132+

1641

1074«
1545
1810

7764
785#

8774

1687«

1240
1578
1819

1318

1397+«
1757

3653

2145«
2484
2860+
1371
1636
1877
2119

2369
2598
2334

2171
2428
2662
2886

2208
2442
5666
5454

1409
1803«

1455+
1815

2962+

2154
2530~
2869
1404
1645
1893
2149

2378
2614
2864

2979+

2200+
2539
2946
1413
1661
1926
2158

2394
2644
2873

gOO?

1147
1466
1712
1948

PIN)
= —d b b

1142«
1426
1698
1944

BAN
oOWNO »
SNE~E2
oWV

2167
2391
2648
2882

663
663
668
668
668
668

= 000004

RUNA

RTS

001114

RTRN

2336
2593
2827
1016~

o8 —NW
—‘QU!SU!OW
b@?

1832

2098
2332
2556
2813
8544
3331

1140
1422
1658
1930

020250

OOO0OONN

1350
1596

1066
1065
1062+
1364
1600
1872
2112

7654
7778
%84
%54
900#

29604

1053
3%720
33054
54
272

1229+

29324
1220+

04
000100
001334
001326
001220

RESTRT 014344
RESOS = 104407

9304
3%89
3303
2925
9844

3361+

A PONINON)
=2 b
OAW—000
& —

RING =
RINTEN=
RISDU
RIVDU
ROTADD

[ 4

3351«

—mamaaaa
i
S

01
01614

%58 101
205 2950

33374

NONONOAY
= = = NONDN) — —
00\
N — QOO NOD
&~
NW
S\
=
NOOOWN—~N
000 OWDWWN S
V=

RESREG
RESTAR

3094

3057

RECACT= 004000
REGACT 001
REPLAY 014200
RESEC
001302

3317+

1211+

W' AN

731#
7354

%% 197

PUSH2S= 024646
RDSW
016246

1231+

}070

= 177776
010046
PUSH1S= 005746

SEQ 0074

7364
;440

001324

SRS

POP2SP= 022626

PRTDU

J 6
15: 36 PAGE 78
CROSS REFERENCE TABLE == USER SYMBOLS

~NINININD)
= b e —d b =
— PN
WO
NN
=N
oUW
N =W
o

DZDUB-C MACY11_30A(1052) 21;NOV-78
CZDUBD.P11
31-0CT-78 13:5

1583
1977+

2319
2695+
1520
1761

2009
259
4

2724

DZDUB-C MACY11_30A(1052)

CZbuBD .P11
SAVRG
SAVRS

SAVSP

001166
00117

00117
VO5 = 104406
SCOPE = 104400

31-0CT-78

_21-NOV-78

13:59

878#
8794

15:36

1%(1)'
130+

2125
2840

2180
2895

2235

1053
12614
1120
1570
1052«
1348+

1198

1220

2059+
2316%
2350%

2096+
2330+
2554+

1193
1628
1194
1362+
1598+
1870+

SIx
= 002000
SPACNT= 015531
SRD
= 002000
STACK = 001100

7974
3162«
7734
727#

STPSYN=
00
SV05
015224
SWR
001100

7754
31304
8454

SWREG
SWREGC
SW00 =
Sw01
=
Sw02 =

3353
7074
7
7054

SCOP1 = 104401
SEND = 000020

SEREC
001200
SETFG_
003144
SETFLG= 104412
SEVEN = 004000
SEXMIT 001177
SHIFT
001140

STATUS 001300
STD
= 000010
STFLG
001245

000176
016370
000001
000002
000004

Sw03 = 000010
Sw04¢ = 000020
SW05 = 000040
Swo6 = 000100
Sw07 = 000200
SW08 = 000400
Swo09 = 001000
SWw10 = 002000
SW11
= 004000
Swi2 = 010000
SwW13 = 020000
SW14 = 040000
SwW15 = 100000
SYNCNO 001176
SYNEXT= 020000
SYNINT= 030000
SYNSCH= 000020

2070
2785

9724
8124
8854
1259
9904
7984
8844
8674
1580%
1826

9284
7804
9194

3237

7044
7034
7024
7014
00#
6994
6984
6974
64
6954

694
6934
6924

1435

1493

1551

1609

1667

1783

2345

2400

2455

2510

1197
1686
1%19
1366%

1201
1744

1205
2474

1296
2529

2584

2639

1406%

1420%

1424%

1464%

1478+

2110
2334«
2591%

2114+
2371x
2605+

2151+
2385«
2609%

1396
3184~

1454
32004

512

2169+
2426%
2660*
2
2309

2206
2440%
2664*
3
2364

2220«
2444*
2701

1338
3181

2165«
2389%
2646%
2
2254

1007
1267

1283
1270

3286

3318

1027

1031«

1046

1084

1216

159+
1830+

1638+
1884~

1652+
1888+

1656%
1928+«

169%6*
1942+

1710%
1946*

1714%
1986*

1841

2565

1482«

1754«
2000*

2620

1899

2675

1957

2015

1522«

1536%

1540+

2730

2224+
24B1x
2715+

1768+
2004*

2261%
2495+
2719%

1772«
2041+

1812+
2055+

1292

1305

2984

2991

3008

2192

2199

2247

2254

2302

2309

1687

1745

1803

1861

1919

1977

2275«
2499«
2756+

2279
2536+
2770

2419

1010~

1022+

3273
1031
33634
1084
1305

1046
3281
3008
3283
2991

3281
1037

1037

3283
3342

3342
3358

3365

1216

3237
984
1051«
2027

1182«
2034

1186
2082

1218
2089

2137

2144

2694

2742

2749

2797

2804

2852

2859

1455

1513

1571

1629

7934
779%

1725

2290

88
7944

2357

SEQ 0075

144
145

309

4
137

CROSS REFERENCE TABLE == USER SYMBOLS

302+

9824
9704

PAGE 79

1339

2412

1397

2419

2467

2474

2522

2529

2577

2584

2632

2639

2687

DZDUB~C MACY1T 30A(1OSS)13 21-NOV-78
:59
CZbuBD.P11
31-0CT=7

L 6
15:36 PAGE 80
CROSS REFERENCE TABLE == USER SYMBOLS

2200
SYSTST= 014000

TABLE

TEMP

TEMPT

001232
017740

2255

2310

SEQ 0076

2420

2475

1275
3319«
1367+

001144

2530

2585

1483+

2001++

001146
001150

003710
011330
011556
0

2684

NION =\
ownown

TST2
TST20
TST21
1S122

2575

TST3

004152

TSTS
TSTé

004656
005120

TST4

004414

1541+
1813+
2056+
2280+
537+

2500+
757%
575

77
585+

3346

NONVNUNY <=2PONLNVNINVND)
= =3 b e

003446
0063
006572
007034

1537+«
1773«

3579«

TEMPSG
001152
TEMPS
001154
THRU
003262
TISDU
001332
TIVWDU
001330
TKCSR
001104
TKDBR
001106
TLAST = 013610
TPCSR
001110
TPDBR
001112
TRPOK
015614
TRPREG 020506
TSTNO
001126
TST1
TST10
TST11
TST12

2695

2042*
2276

2225
2482+
2716+
3568+
TEMP2
TEMP3

2640

1386+
2134+
2849+
2962

1444+

2189+

2963

1502+

2244+

1618«

2354+

1676%

2409+

1734+
2464

1792+

2519+

1850+

2574»

1908+

2629+

DIDUB-C MACY11 30A(1052)

| Czoueo.
P11
1S17
TST8

005362
005624

TST9
TIST
TXCSR

006066
014450
020560

31-0CT-78

——————

21-NOV-78

13359

1619
1677

1735
1989«
1078+

15:36

CROSS REFERENCE TABLE == USER SYMBOLS

17924
1290+
1246

1402+

185¢r
1925

185+
1968+
2083

e
1358 1321

TXDBUF
020564
TXDONE= 000200
TXINTE= 000100
TYPDAT
015774
TYPE
= 104402
| TYPMSG

015744

003224

USER =
VOID =
1
| WRDCNT 015526
ZERO
014112
$CNTG
016376
-

SMNEW
016413
SMSWR
016403
SN
= 000034

= 000015

$67

002142
= 021024

.BEGIN
JCKSWR
| JONTLU
CNVRT
.CONVR
EOP
"ERRTA

002630
016250
016324
015314
015310
014036
020514

2081+
ge02v
2358+«
2478+
2636+
2796+
3550%

M
1505

1857«
1o70r
J086x

1080«
8094
8104
3258
974#

ge03v
2361%x
2521
2642+
2798+
3553%

Jodew
2367+
2523«
0643w
2801%
3614M

3265
1020

32684
1261

3256

3250w

8164
7834
3160«
29174
3350

3189+«

31984

1677
2026

1329

16784
2080

13304

3187

12730

2410
o741
335,
3352
6764
1676
20264

1246

3262

3536+

1301«
1332«
1kGe

MR
] i8e

1863e
1973
2002

JodBe
v
2506w
*
2807

1303«
1335«

1448

1304r
1347+
1451+

29854
1342+
1450k

1345+

1388+

1390+

1393«

1399+

ME
1996+

EE
1399«

EE
1809«

pE
1800+

e
1508«

e
1809«

14SEe

NE
1750n

G
1351

Zosle
glle
2532«
Q0BBe
2808+

2237w
13
0533«
0691%
2851%

9238+
QUl6r
2576
J697%
2853%

2l4le
Q301s
Jigde
0578+
0698%
2856%

-1864x
1979«
30

1866e
1080:
213

M0
1790s

1344r

1867«
1982+
2138

1910v
1983«

1460s

1912
2026s
Jlase

2303«

1461e

1915s
2008
1B

0581
741%
2862+

2306e
Jiser
0587+
J743%
2863+

ug3e

1304e

1921s
1%
2191e

g3lge
Quedr
0588+
9746%
3532+

1306+

1920v
*
2193+

313

1924
2038+
3196

23dée

Jifle

uris

3150

2631%
2752«
3545+

9633+
2753w
3551w

36164

3324

3350

1317

2903

2906

2911

3033

3043

3055

3059

1387

13884

1445

14468

1503

1504#

1561

1562¢

1619

2465
27

13304
1734

3266

1509+

1276

3352

3360

1278

27414

2411M
2795
3360
33674
1328
1678¢
2079
24114
279

1047
814
O30
952
10827
993
995
989
987
2850
3251

10844
BoWh
9408
953K
1086
33404
33514
3152
31504
2905
5954

SEQ 0077

16764
1734#
1300v
1330
1403+

1400

)

PAGE 81

900

1735
20814

1736#
2135

Q466N
2850

1793
21364

2520
2851#

179%#
2190

1851
21914

18524
2245

2576

1386
1736r

13884
1792

1444
1794

1446H
1850

1502
18504

2521

2575

2246
2630

1910¢
2300

26314

1967
23014

lsoae
1

1560
19100

156

2685

16204

1968¢
2355

2025

1618
19684

620w
2024

2740

20814
2464
27964

2134
4b6N
2849

21364
2519
2BSIH

2189
25214
2BOTM

21914
2574

2244
2576

2246M
2629

2299
26314

23014

235,
6868

23564
2739

9784

980N

9824

9Bur

9BGN

9BBH

990K

992

B34
O4L1A
9S4k
12114

B4IN
94K
9SSH

927K
0434
956

9284
O4bk
9574

929k
945K
9584

930
946N
9594

9314
9478
9604

9324
948N
33714

9334
9408
35014

9374
9350
35024

938
9514
35034

9Tk

974w

9764

DZDUB-C MACY11 30A(1052)
z;-nov-n
CZDUBD.P11
31-0CT=-78
13:59

$1263%

JINSTR
JINSTT

0146
01465

JINSTG

.MSG

014

14654

15:36 PAGE 82
CROSS REFERENCE TABLE == USER SYMBOLS

305

gggy

554

208

34n

'&“:"‘ }S?OZ
el B

98% 1 g
8

.SCoP1 81455
CSETFL
015534

973
991

.TRPSR 015602

829

.SAVO5
.SCOPE

015216
014

.START

001420

-TRPTA
JTYPE

001366
014572

983
971

gggo

32954

3347+

3316

]

74
2084

837

006#

9674
975

3230
3015«

2§50

3219

1016

2915

3348

SEQ 0078

3498

6764
6764

820
1022

6764

$CONVR
SDNA
$EOP

6768
6764
6764

$GE TPA
$GETSY
SHEADE
SHLT
$INSTR
$1S08
SMATCH
$MRR

6764
6764
6764
6764
6764
6764
6764
6764

$SMRRW

6764

6764
6764

SPFAIL
$POKE

6764
6764

I SRCNET
$RECAC
$REG
SRESET

SRXACT
$SCOPE
$SCOP1
$SETFL
$SETVE
$START
$STRIP
$SYMBO
$SYNCR
$TRAPS
$TRPAR

1923
2751

2806

1207

3147

2896

1118

1097
1173
677
3233
3026

6764

3372

3064

3292

6764
2146

1343
2201

2256

2311

2531

1691

1749

6764
6764
6764
1736

3123
1330
1738

1332
1796

1388
1796

6764

2138
2576

6764
6764
6764
6764
6764
6764
6764
6764
6764
6764
6764

2191
2578

1401

1459

2193
2631

2246
2633

1397

1455

1620

2028
2853

1981

2036
2861

1622

1678
2083
2521

2081
2468

2964
3004
3202
821
998
689
1339
962

1513

1571

1629

1687

1745

1803

1861

1919

1977

25288

PRI
— —

§uFAR

PRI
— —
N —=00wWn

NINS®

]

~ »H

1794

N
— —

SPOKER

1195
1128

2631

6764

SMRW
$MSG

$SPARAM

1191
1108

1620
2466

Juow
pL4

S$GETFL

1446

2301

\h—'?

S$CATCH
S$CLRVE

6764
6764
6764
6764

1388

T 2246

NWOW

SCABLE

2191

TSETUP
$BEGIN
$BINAR
SBUFFE

213

1330

6764

782

8
6
83

-0

RSETUP

2766

2761
289
677

"
g

1469
1759

72
6768
6764

143
172
1

nN -

PRGEND
PRGFRT

PUSSYF

2486

}374

SEQ 0079

RIS

198
2211

}358

NCE TABLE == MACRO NAMES

NON)
= —

18%
??9

135

737

PAGE
RE F

—_—

HLT

31-0CT~

15: 36

CZousD .P11

21-NOV-78
13:59

——

DZDUB-C MACY11_30A(1052)

DZDUB~C MACY11_30A(1052)

CZbuBD .P11
$TRPDE
$TRPSR
$TSTNO
$TYPE

31-0CT-78

6764
6764
6764
2134
6764

970
3%20
1328
2189

3012

SUNIBU
$VARIA
$WORDF
$WORDO
p—

6764
6764
6764
6764
2;;2'

1320
2181

. ABS.

021024

000

ERRORS DETECTED:

21-NOV-78

13:59

15:36

PAGE 85

CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0080

972

974

976

978

980

982

984

986

988

990

992

1386
2244

1444
2299

1502
2354

1560
2609

1618
2464

1676
2519

1734
2574

1792
2629

1850
2684

2739

1908

1966
279

24
849

1378
2236

1436
22N

1494
2346

1552
2401

1610
2456

1668
251

1726
2566

1784
2621

1842
2676

1900
2731

1958
2786

2841

2079

840

CZDUBD .BIN, CZDUBD. SEQ/CRF /SOL/NL : TOC=CZDU11.HLO/EG:RUNB, (ZDU11.PAR,CZDU11.KET,CZDUBD.P11
RUN-TIME: 8 12 1 SECONDS
RUN-TIME RATIO: 92/22=4.0
CORE USED:
19k
(37 PAGES)

207