Digital PDFs

AH-8573C-MC

September 1979

82 pages

Original

4.5MB

view download

OCR Version

3.7MB

view download

Document:	CZDPAC0 DP11 DP11 SYNC INTFC SEP 1979 bw
Order Number:	AH-8573C-MC
Revision:	000
Pages:	82
Original Filename:	CZDPAC0__DP11__DP11_SYNC_INTFC__AH-8573C-MC__SEP_1979_bw.pdf

OCR Text

DP11 SYNC INTFC

CZDPACO

AH:8573C:MC

SEP 1979

FICHE 1 OF 1

MADE IN USA

copvriGHT 73.70

HDEORED

cop

MACYT1_20A(1052)

30-JAN=79

30=-JAN=79 15:40

15:40

PAGE

SEQ 0001

.REM %

ad o =

OO0 NONE WA -2O 000NN
B
ny

CJDPAC.P1Y

IDENTIFICATICN

PNIN)
~ b b b ok

PRODUCT

CODE:

AC-8572C-M(C

PRODUCT NAME
:

CZDPACO DP11

DATE :

JAN, 1979

MAINTAINER:

DIAGNOSTIC

SYNC

INTFC

GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT

ORPORATION.

DIGITAL EQUIPMENT

NO REEPONSIBILITY FOR ANY ERRORS

DOCUMENT.
THE

SOF TWARE

DESCRIBED

THE

TERMS OF

SUCH LICENSE.

THIS DOCUMENT

LICENSE AND MAY ONLY BE USED OR COPIED
DIGITAL

EQUIPMENT

[N THIS

IS FURNISHED UNDER A

IN ACTORDANCE WITH

CORPORATION ASSUMES NO RESPONSIBILITY

FOR THE USE OR RELIABILITY OF [TS
THAT IS NOT SUPPLIED BY DIGITAL.

CORPORATION ASSUMES

THAT MAY APPEAR

SOf TWARE

ON EQUIPMENT

1973,1976.1979 BY DIGITAL EQUIPMENT CORPORATON

MACY?1

(ZDPAC.P1

_30A(1052)

30-JAN=79

30-JAN-79 15:40

15:40

PAGE &

SEQ 0007
PAGE 02

ABSTRACT
THIS MAINDEC CONSISTS OF TWO PROGRAMS.
FIRSTLY, A DP11A EXERCISER
WHICH IS RUN WITH A TEST CONNECTOR (DB25S) IN PLACE OF THE MODEM.
THE FUNCTION OF THIS TEST 1S TO CHECK OUT THE CABLE (BCO1R=-25) AND
FUNC”IONAL INTERFACE WITH THE MODEM.
THIS TEST IS RUN UNDER A
SIMU_ATED (SOFTWARE) CLOCK THAT RUNS AT APPROXIMATELY S54KHZ.

SECONDLY,

THERE

PROGRAM RUNS

IS TAE PRINCIPLE DIAGNGSTIC FOR THE DP11.

IN THE MAINTENANCE MODE WITH

THE BCO1R-25

THIS

CABLE

REMOVED FROM THE SYSTEM UNIT.
THIS TEST PROVIDES COMPLETE
DIAGNOSTICS FOR THE DP11-DA AND DP11-CA.

REQUIREMENTS

EQUIPMENT

ANY PDPT11 FAMILY CPU
ggg?SDLEST CONNECTOR
DP11-CA

2.2

(IF

CABLE

TEST IS TO BE RUN)

(OPTIONAL)

STORAGE
THIS PROGRAM USES MEMORY

TO LOCATION 17500

LOADING PROCEDURE
THE PROGRAM MAY BE LOADED LIKE ANY OTHER PROGRAM
SUCH AS: PAPER TAPE ,DECTAPE ,MAGTAPE,CASSETT,DISK,ETC.
MOST COMMON WILL BE PAPER TAPE LOADING THROUGH
THE USE OF ABSOLUTE LOADER.

3.1

DF11-L

TESTING

THIS PROGRAM WILL EXERCISE THE DF11-L.
METHOD: CABLE MUST BE INSERTED INTO DP11,TEST

CASLE,

NOTE:

SA=210,

IN THIS

CONNECTOR ON END OF

SET SW00=1,HIT START AND (ONT. AS PFR 4.3.1.

TEST AN ERROR WILL

CAUSE PRG TO START AT BEGGINING OF

PAGE 03

STARTING PROCEDURE

CONTROL

— el =D

)

— kb
e

)

WN—'O%@\I

106

6.2

SWITCH SETTINGS

SWITCH 7

SET INDICATES SINGLE DP11 MODE

SWITCH 8

SET SELECTS THE DP11-CA OPTION FOR TEST

CLEAR

STARTING ADDRESSES

INDICATES CYCLE MODE

(MORE

THAN ONE)

TEST

W= O VOO NGNS WN—=OVoO~NONWNS

15:40

PAGE 5

SEQ 0003

20C =
210 -

START ADDRESS FOR MAINTENANCE MODE DIAGNOSTICS

MUST BE PULLED FROM THE

SYSTEM UNIT)

START ADDRESS FOR BCOTR-25 CABLE

MUST BE PLUGED

4.3

OPERATOR ACTION

4.3

IN)

TEST

(CABLE

(DB25S TEST CONNECTGR

SWITCH 7 WAS LEFT UP THE PROGRAM WI!L HALT WITH THE SWITCH REG IN

IN THE DATA LIGHTS.

AND REQUIRC

THE

(EXCLUDING 11/05 AND

11/10 CPU)

FOLLOWING OFERATOR ACTION:

SWO-Sw8

MUST BE SET

TO THE VECTOR ADDRESS OF

SWY-SWi5

MUST BE SET TO THE OCTAL LINE NUMBER OF

DP11. NOTE FIRST DP11
UNLESS IT IS LINE Q
TO BE

TESTED.

IN DATA LIGHTS(EXCLUDING

E.G.

THE FIRST

VECTOR; NOT THE LINE SELECTED

THE

FIRST DP11

THE DP11

IS LINE 0.

I W

Y IS W

R O

QT G

(20P
MACY11 _30A(1052)
30-JAN-79
CZOPAC.PT
30-JAN-79 15:40

PRESS

CONTINUE,

e Y
s

I.E.

39
140

1ST DP11

141

774770

144

2ND

145

146

152

774266
774764

774762

147

151

774776

774774
774773
774772

}2%

148
149
150

11/05,11/10)

RESET

SWITCH

AS PER 5.1.1''SWITCH SETTINGS''. PRESS CONTINUE. THIS STARTS PROGRAM.
ALL DP11 ADDRESSES SHALL BE ASSIGNED FROM 774777 TC 774400 (CONTIGUOUSLY

774760

32ND

774406
774404
774402

774400

XMIT

BUFFER

RCV

BUFFER

XMIT
SYNC

RCV

STATUS
BUFFER

STATUS

(0P
MACY11 30A(1052)
30-JAN=79
CZDPAC.PI
30~JAN~79 15:40

15:40

PAGE 6
SEQ 0004
PAGE 04
4.5.2

$.3.3

FOR CABLE

TEST REMOVE BfO1R-25

CABLE

FROM MODEM AND PLUG

THE

DB25S TEST (ONNECTOR SOCKET INTO THE CABLE.
FOR TiHE MAINTENANCE MODE
THE DEVICE SYSTEM UNIT.

TEST

THE

(ABLt

MUST BE

REMOVED

FROM

OPERATING PROCEDURE
SWITCH SETTINGS

(APPLICABLE

TO BOTH TESTS)

SW15 = 1 OR UP ...

HALT ON ERROR

SWi4 = 1

OR UP ...

SCOPE LOOP FOR WHOLE CURRENT

SW13 = 1

OR UP ...

INHIBIT ERROR PRINTOUT

SW12 = 1

OR UP ...

INHIBIT ALL PRINTOUT, BELL ON ERROR.

SWi1

OR UP ...

INHIRIT

SW10 = 1

OR UP ...

ESCAPE

SWO8 = 1

OR UP ...

TEST

ITERATION

TO NEXT TEST ON ERROR

GO TO TOP OF CURRENT TEST ON ERROR.

NOTE: THIS SWITCH IS VERY IMPORTANT FOR DATA
ERRORS IN WHICH THE DP11 CLOCK IS RUNNING.

THIS SWITCH MUST BE SET TO A
AN AVALANCH CF ERRORS......

STOP

ERRORS

ERROR PRINTOUT
PRINTS ALL

ERRORS UNLESS

INHIBITED BY

SWITCH 13 OR SWITCH

12.

ERROR PRINT OUT WILL LOOK LiKE:
TEST NO. XXX
PC: XXXXXX

LINE

NC.

DEPENDING ON THE ERROR AN ADDITIONAL MESSAGE MAY BE

6.1.1

STATED ABOVE

FOR ERRORS

THAT

ARE

CAUSED BY A

TYPED OUT.

COMPARISON

SUCH AS DATA (COMPARISON,REGISTER COMPARISON,ETC.
AND INTERUPT ERRORS, THERE WILL BE ADDITIONAL IN"ORMA~ION
IN THE ERROR REPORT.

(ZDP
MACY11_30A(7052)
30-JAN=79
CZDPAC.P1
30-JAN-79 15:40

15:40

PAGE

SEQ 0005

202

203
204

b —
)
d
d ad
b
—
—

O [0 . 2aNTo NV, ¥USSP o

AV] OO
PO ~ny

205
206
207
208
209

220

PAGE 05

6.2

ERROR RECOVERY
A.

TO RECCVER FROM HALT ON ERROR,
DEPRESS CONTINUE.

MAKE

IT MAY BE DESIRABLE

+3 OR SW 12 IN AN ERROR CONDITION.

IN A SCOPE

LOOP,

SET

SWiT(H 14.

TO SET

Sv'

SURE

SW14

IS SET

THEN

RESTRICTIONS

STARTING RESTRICTIONS

SEE 4.1
7.2
7.2.1
7.2.2

7.2.3

AND 4.3.7

OPERATING RESTRICTIONS

CABLE

TEST

A MODEM.

(SA=210)

MUST BE RUN WwiTH DB25S CONNECTOR

MAINTENANCE MODE DIAGNOSTIC MUST BE RUN WITH CABLE
FROM SYSTEM UNIT.

CYCLE MODE.

SW 07=0 WHEN START

IS PRESSED,;

[N PLACE

REMOVED

PROGRAM

WILL RUN SELECTED TEST (CABLE OR MAINTENANCE) ASSUMING
THAT ALL DP11S IN THE SYSTEM ARE TO BE TESTED. PROGRAM
STARTS WITH LINE O THEN SENSES FOR NEXT LINE; IF IT EXISTS

IT WHHL BE

THEN THE

TESTED.

THIS GOES ON UNTILL A NON-EXISTANT LINE

PROGRAM STARTS WITH LINE

O AGAIN.

BASCSR AND BASVEC ARE DEFAULT VALUES.
DIFFERENT PATCH YOUR VALUES IN THFRE.
MISCELLANEOUS

YOUR VALUES ARE

[S FOUND

C(ZDP

MACY11_30A(105 2)

(ZOPAC.P11

30-JAN-79

30=-JAN=79 15:40

15:40

PAGE 8

SEQ 0006
PROGRAM DESCRIPTION

INITIALIZATION ROUTINES
THE START CODE FOR BOTH THE MAINTENANCE MODE AND
TEST INITIALIZES THE PROCESSOR PRIORITY TO LEVEL

THE CABLE
SEVEN AND
SETS THE STACK POINTER TO ADDRESS 1100.
CONSOL SWITCH SEVEN
IS THEN EXAMINED TO GETERMINE IF THIS IS CYCLE MODE OR
SINGLE LINE IS
TEST.
IF SWITCH SEVEN IS

UP TWO SUBROUTINES
TEST

9.1.1

(CLRVEC,LINE.N)

SECTION IS ENTERED.

CLRVEC,

ARE EXECUTED BEFORE

THE

CLEAR-VECTOR-AREA

THE SUBROUTINE '‘CLEAR-VECTOR-AREA''
LOADS THE COMMUNICATION
VECTOR AREA WITH .+2,HALT.
THIS CAUSES ANY ILLEGAL INTERRUPTS
TO TRAP TO THERE

9.1.2

LINE.N,

STATUS WORD.

LINE NUMBER

THE FUNCTION OF THIS SUBROUTINE IS TO SAVE SWITCH EIGHT OF
THE CONSOL (Sw8 SELECTS DP11-CA OPTION) AND WAIT FOR OPERATOR ACTION TO SPECIFY THE LINE NUMBER AND FIRST DP11
VECTOR ADDRESS.
WHEN THE PROGRAM HALTS;

SWITCHES SWO THRU SW8 MUST BE SET TO THE VECTOR

ADDRESS OF

THE

FIRST DP11

AND SWITCHES

SW9 THRU SW15 MUST

BE SET TO THE OCTAL EQUIVILANT OF THE LINE NUMBER (E.G.
THE FIRST LINE IS LINE 0(8) THE TENTH LINE IS LINE 11(8) ).
FOLLOWING THIS ACTION '‘CONTINUE'' ENTERS THE PROGRAM INTO
THE

SELECTED

TEST

SECTION.

SWITCH SEVEN IS NOT UP WHEN

"'START'* 1S DEPRESSED THE PROGRAM ASSUMES CYCLE MODE

AND WILL

START RUNNING WITH LINE O THRU ALL

LINES.

BASCSR AND BASVEC ARE USED AS DEFALT CONDITIONS.
MAINTENANCE MODE

TESTS

IN AN EFFORT TO OPTIMIZE CORE UTILIZATION MANY OF THE
DIAGONOSTIC TEST WERE WRITTEN [N SUBROUTINE FORMAT
VERSUS MACROS.

CZ0P
MACY11_30A(1052)
30-JAN-79
CZDPAC.P11
30-JAN=79 15:40

15:40

PAGE 9

SeEaQ 0007
9.2.1

BITST, BIT

TEST

THIS SUBROUTINE IS ENTERED WITH A JGR RS, BITST,
[MMEDIATELY FOLLOWING THIS INSTRUCTION IS THE BIT SEIECTED
FOR TEST.
THE BIT NUMBER IS FETCHED BY THE SUBROUTINE
AND STORED IN LOCATION 'BITS''.
USING A SEQUENCE OF 'BIS'' 'BIT"’

AND 'BIC'' INSTRUCTIONS EACH READ/WRITE BIT OF

THE TRANSMITTER

AND RECEIVER CSR (TCSR,RCSR) IS TESTED TO VERIFY THAT AT LEAST
THAT PARTICULAR BIT CAN BE REFERENCED AND IS IN FACT READ/WRITE.
TOTQALE¢?6 IS MADE AT THIS POINT TO CHECK FOR ILLEGITIMATE
N

9.2.2

RESET

THIS

TEST

IS A SIMPLE

BITS OF

TEST

THAT MERELY WRITES

THE TCSR AND RCSR,

INTO ALL WRITEABLE

CHECKS THAT THEY WERE SET,

ISSUES 'RESET''
AND CHECKS THAT ALL BITS THAT ARE SUPPOSED TO

9.2.3

CLEARED BY RESET-WERE.

VALID
THE

FUNCTION OF

THIS SUBROUTINE

TEST FOR

INTERACTION

BETWEEN READ/WRITE BITS OF THE TCSR AND RCSR. THIS ROUTINE
1S ENTERED WITH A JUSR REGISTER FIVE, FOLLOWED BY THE BIT
NUMBER. THE SELECTED BIT IS SET AND THEN THE ENTIRE (SR
IS COMPARED WITH THE WORD (BITS) USED TO SET THE SELECTED
BIT. IF ANY OTHER BIT IS SET AN ERROR IS REPORTED. LOCATION
"REG'' CONTAINS THE ADDRESS OF THE CSR SELECTED FOR TEST.
AN EXAMINATION OF THIS CSR SHOULD REVEAL A BIT SET OTHER
THAN THE ONE IN LOCATION ‘BITS'.

—
md ——h
b
)
b
—

[0 R NTo NV, W YUV 1§}

WWNNWNINLNW

9.2.4

CLEAR
THIS SUBROUTINE IS ENTERED THE SAME WAY AS BITST, AND VALID
ARE ENTERED. ITS FUNCTION IS TO TEST FOR INTERACTION
BETWEEN ANY CSR BITS DURING A BIT CLEAR INSTRUCTION.
THIS IS ACCOMPLISHED BY SETTING ALL READ/WRITE BITS
OF THE SELECTED CSR AND MAKING A DUPLICATE BIT MAP IN
TMPDAT. THEN 'BITS'' IS USED TO CLEAR A SINGLE BIT IN THF
CSR AND TMPDAT, FOLLOWING THIS THE CSR IS (OMPARED WITH
TMPDAT TC VERIFY THAT ONLY THAT BIT WAS CLEARED.

9.2.5

PRIORITY

TESTS

WITH

PROCESSOR PRIORITY AT

THE

ENABLE"' (SIE)

IS SET AND ALL

LEVEL

FIVE

'‘STATUS-INTERRUPT=-

THE BITS THAT SHOULD CAUSE 2

STATUS INTERRUPT ARE SET INDIVIDUALLY AND COLLECTIVELY SET.
SECONDLY SIE IS REMOVED AND THE PROCESSOR PRIORITY IS LOWERED

TO FOUR. AGAIN THE CSR BITS THAT CAUSE '‘STATUS INTERRUPTS''
ARE SET AND RESET. FINALLY THE SIE BIT IS SET WHILE THE
PROCESSOR PRIORITY IS AT FOUR AND IT IS VERIFIED THAT

EACH DISCRETE EVENT THAT SHOULD CAUSE A STATUS INTERRUPT
DOES.
THIS SEQUENCE TESTS THAT THE DP11 STATUS BITS INTERRUPT
AT THE PROPER PROCESSOR PRIORITY.
THE NEXT SEQUENCE OF PRICR!TY
TESTS

VERIFY

THE

TRANSMITTER

INTERRUPTS BY

THE

(ZDP

MACY11

CZDOPAC.P"1
33

%gg

30A(1052)

30-JAN=79

30-JAN=79 *5:40

15:40

PAGE

SEQ 0008
TRANSMIT BUFFER, ENABLING THE MAINTENANCE MODE (LOCK AND
IF NO INTERRUPT IS RECEIVED WITHIN

WAITING FOR AN INTERRUPT,

10 (HARACTER TIMES AN ERROR IS REPORTED.

- o,

(ZDP
MACY11_30A(1052)
30-JAN-79
CZDPAC.P1
30-JAN=79 15:40

337

;gg

15:40

PAGE

9.2.6

340 .
341
342
343

FOR THE

346
347
348
349
350
351
352
353
354
355
356
357
358
359
%2?

364
365
366
367
368
369
270
%;;
37

SYNCHRONIZATION TESTS

THE FIRST SYNC TEST (TEST 24) VERIFIES THE READ/WRITE CAPABILITY
OF THE SYNC REGISTER 174XX3 AND THE SYNC EXTENSION 174XX7
WHEN THE DP11-CA OPTION EXISTS.
THIS IS ACCOMPLISHED BY
WRITING AND READING ALL POSSISLE SYNC CHARACTERS (0 THRU 377(8)

gzg

%g%

SEQ 0009

SYNC REG AND O THRU 17(8)

FOR

THE SYNC EXTENSION).

THE NEXT SYNC TEST ISSUES TWO OF EVERY POSSIBLE SYNC
CHARACTER IN EACH OF THE AVAILABLE CHARACTER LENGTH AND
CHECKS THAT TWO OF EACH SYNC RAISES 'RECEIVER ACTIVE''.
THEN
THE THIRD SYNC IS TRANSMITTED AS DATA.
THIS CHECKS THE CAPABILITY OF THE RECEIVER TO INTERRUPT AND ALSO CHECKS THE
RECEIVER BUFFER FOR DATA RECEPTION ACCURACY.
THIS TEST
IS FIRST RUN BY LOADING THE TRANSMIT BUFFER UNDER SOF TWARE
CONTROL THEN IS REPEATED IN THE IDLE MODE.
THIS CHECKS THAT
EACH AND EVERY POSSIBLE SYNC CHARACTER CAN BE TRANSMITTED N
THE IDLE MODE IN THE EVENT THAT AN ERROR IS DETECTED IN THE
LAST TWO SYNC TEST AND THE 'HALT-ON-ERROR'' SWITCH IS UP A
SCOPE LOOP MAY BE RUN.
THIS IS ACCOMPLISHED BY REMOVING
"HALT-ON-ERROR'' SW15, SETTING ''SCOPE'‘, INHIBIT PRINT,SET SW09, AND
PRESSING CONTINUE.
THIS CAUSES INCREMENT INSTRUCTION TO BE
SKIPPED AND THEREFORE LOOP ON THE SAME SYNC CHARACTER.
9.2.7

INTERRUPT DRIVEN SEQUENTIAL DATA TEST

SYNC 1S ESTABLISHED THROUGH THE TRANSMISSION TWO SYNC CHARACTERS.
ONCE SYNC IS ESTABLISHED A BINARY COUNT PATTERN IS TRANSMITTED
THE SIZE OF WHICH IS DETERMINED BY THE MAXIMUM CHARACTER SELECTED
FOR TEST (8 BITS/CHARACTER OR 12/8 BITS/CHARACTER IF THE CA
OPTION EXISTS).
AT THE COMPLETION OF THE BINARY COUNT PATTERN
"ACTIVE'' IS DROPPED AND THE NEXT SHORTEST CHARACTER LENGTH IS
SELECTED.
THIS TEST IS REPEATED FOR THREE CHARACTER LENGTHES
(12,11,10,0R 8,7.,6).
FUNCTIONALLY THIS TEST VERIFIES THE CAPABLIITY OF

THE DP11

%;é

MAINTAIN SYNC OVER A LONG CHARACTER STRING.

376
377

IN THE EVENT THAT AN ERROR IS DETECTED AND ‘HALT-OM-ERROR'‘ IS UP
REMOVE IT, SET '‘INHIBIT PRINT'® AND ''SCOPE’'' AND PRESS CONTINUE.

CZ0P
MACY11_30A(1052)
30-0AN-79
CZDPAC.PIN
30-JAN=-79 15:40

15:40

PAGE 12

SEQ 0010
9.2.8

RANDOM DATA,
THIS

RANDOM STALL

INTERRUPT DRIVEN TEST

TIME

TRANSMITS RANDOM DATA FOR A PERIOD

(0 TO 0.65 SECONDS, O TO 260 CHARACTERS)

A RANDOM GEMERATOR.

AT THE EXPIRATION OF

DETERMINED BY

THE DATA TIME

INTERVAL

THE “'IDLE’'' MODE IS ENTERED AND SYNC CHARACTERS ARE TRANSMITTED

FOR A RANDOM PERIOD OF TIME.
WHEN THE IDLE TIME TERMINATES
THE DATA MODE IS RESTARTED AND NEW DATA IS TRANSMITTED FOR A NEW
TIME INTERVAL.
THIS VERIFIES THAT THE DP11 CAN SWITCH BETWEEN DATA MODE AND

IDLE AT RANDOM.

9.2.9

PARITY

TEST

THE PARITY TEST CONSISTS OF A TRANSMITTER INTERRUPT SERVICE
ROUTINE THAT TRANSMITS A BINARY COUNT PATTcRN AND A RECEIVER

INTERRUPT SERVICE ROUTINE THAT CALCULATES THE PARITY ON THE
EXPECTED DATA, COMPARES THE RECEIVED DATA WITii THE EXFECTED DATA,
AND FINALLY TESTS THE PARITY BIT (BIT 12=0 FOR EVEN, 1 FOR 0DD).

9.2.10

RECEIVER OVERRUN TEST
THIS TEST TRANSMITS TWO SYNC CHARACTERS 10 RAISE ‘‘ACTIVE"'
FOLLOWED BY TWO DATA (CHARACTERS.
RECEIVER INTERRUPT ENARLF IS
NOT SET THEREFORE ‘'RECEIVER OYERRUN'' SHOULD SET AND CAUSE A
TRANSMITTER STATUS INTERRUPT.
THIS SEQUENCE IS REPEATED FOR A
FULL BINARY COUNT. (000-377)

9.2.11

HALF

DUPLEX TEST

THE HALF

DUPLEX BIT SHOULD PREVENT ANY DATA FROM ENTERING THE

RECEIVER WHILE SEND-REQUEST IS UP.
TO VERIFY THIS RECEIVER
INTERRUPT ENABLE IS SET WHILE THE TRANSMITTER ILLES FOR APPROXI-

MATELY 30MS.
BIT/CHAR SET.

FOR EACH POSSIBLE CHARACTER AVAILABLE IN THE 8
ANY DATA ENTRY INTO THE RECEIVER WILL CAUSE A

TRAP TO AN ERROR ROUTINE.

9.3

CABLE

TEST

THE CABLE TEST REQUIRES THE LEAST AMOUNT OF EFFORT AND THEREFORE
CAN BE RUN AS A QUICK CONFIDENCE CHECK.
THE OPERATING
PROCEDURE IS TO DISCOUNT THE BCO1R-25 CABLE FROM THE MODEM
AND PLUG IT INTO THE DB25S TEST CONNECTOR.
FROM THIS POINT ON
THE OPERATING PROCEEDURE IS THE SAME AS THE MAINTENANCE
MODE DIAGNOSTIC.
THE PRINCIPLE DIFFERENCE BETWEEN THE
CABLE TEST AND THE MAINTENANCE MODE TEST IS THE CLOCK.
THE
MAINTENANCE MODE TEST RUNS OFF OF A FREE RUNNING 3KHZ MULT]-

VIBRATOR WHERE AS THE CABLE TEST OPERATES OFF A SOFTWARE CLOCK.
SETTING BIT 3 OF THE TRANSMITTER STATUS RAISES THE CLOCK, CLEARING
IT LOWERS THE CLOCK.
THE SOF TWARE CLOCK THEREFORE HAS A FREQUENCY

RANGE OF ZERQO TO 56KHZ. THIS ENABLES THE PROGRAM TO STEP
THROUGH THE TRANSMIT~RECEIVE SEQUENCE ONE BIT AT A TIME.

IT ALSO VERIFIES THE 10KHZ CABLE SPEC AND 50 KHZ LOGIC SPEC.

CZD}
MACY11_30A(105 2)
30-JUAN-79
CZDPAC.P11
30-JAN=79 15:40

(32
(33
434
435
436
W37
(38

15:40

PAGE 13
9.3.2

AND EXAMINE BIT8 OF

SAVSR1

TO DETERMINE

12 BITS/CHAR HAVE BEEN SELECTED FOR TEST.

8 BITS/CHAR OR

THE 12 BIT

MODE HAS BEEN SELECTED 4 IS ADDED TO THE CLOCK COUNT AND

BIT 10 OF THE RECEIVER STATUS IS SET BEFORE EXECUTING THE

441

CLOCK

CLOCK IS THE SUBROUTINE TO RUN THE SOFTWARE CLOCK.
IT IS
ENTERED BY A TRAP CALL, CLOCK FOLLOWED BY THE NUMBER OF CYCLES
DESIRED.
UPON ENTRY THE SUBROUTINE FETCHES THE CYCLE COUNT

439
440

442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
L67
4L68
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483 .

SEQ 0011

CLOCKING INSTRUCTIONS.

BY CHANGING LOCATION ‘FREQ'’

IT IS POSSIBLE TO SLOW DOWN THE CLOCK.

FREQ 1

WITH

THE SOFTWARE CLOCK RUNS AT APPROXIMATELY 25 KHZ.

ENABLES THE OPERATOR TO SLOW THE CLOCK DOWN TQ ALMOST
ZERQO CPS.
THIS CAN BE USEFULL IN DETERMING IF A BUG IF

THIS

FREQUENCY DEPENDENT.

9.3.3

RXCLK

THIS TRAP CALL IS ANOTHER SOFTWARE CLOCK.
IT WAS WRITTEN
FOR CODE THAT IS INDEPENDENT OF 12/8 BITS PER (CHARACTER
OPTION.
RXCLK N EXECUTES N SOFRWARF CYCLES.
RXCLK ALSO HAS

"FREQ"* EMBEDDED WITHIN ITS DEFINITION.

SINCE

IT IS A TRAP CALL
THE DELAY INSTRUCTIONS CAN BE CHANGED
BY CHANGING THE CONTENTS OF ‘FREQ''.

9.3.4

REE

REE IS A UTILITY SUBROUTINE TO REINITIALIZE THE DP11 STATUS
REGISTER, INTERRUPT VECTOR AND SELECT THE 12/8 3ITS PER CHARACTER
MODE.
THE ENTRY REGISTER IS R5.
THE ADDRESS TO WHICH THIS
SUBROUTINE RETURNS IS A FUNCTION OF THE NUMBER OF BITS °ER
CHARACTER SELECTED FOR TEST.
IF 8 BITS PER CHARACTER IS SELECTED
THE SUBROUTINE RETURNS TO AN INSTRUCTION THAT SETS UP THE DATA

LIMIT FOR THAT MODE.

IF THE TWELVE BIT PER CHARACTER MODE

SELECT"O THE CONTENTS OF REGISTER 5 IS MODIFIED AND SUBROUTINE
RETURNS TO THE INSTRUCTION THAT SETS UP THF TWELVE BIT LIMIT.
9.3.5

SYNCHRONIZATION CHARACTER TESTS
FOLLOWING STATUS REGISTER AND VECTOR INITIALIZATION THE

CLOCK

RUN FOR 30 CYCLES TO CLEAR OUT ANY PREVIOUS DATA THAT MAY BE
RESIDING IN THE TRANSMIT OR RECEIVE BUFFERS.
AT THIS POINT THE
"'TRANSMITTER DONE'' AND ‘‘TRANSMITTER INTERRUPT ENABLE'' ARE SET
CAUSING AN_INTERRUPT TO A SYNCHRONIZATION SUBROUTINE, Tvi8.
Tvi8
LOADS THE TRANSMIT BUFFER WITH A SYNC CHARACTER. UPON RETURN FROM
THE INTERRUPT SERVICE ROUTINE THE SOF TWARE CLOCK RUNS FOR 3 CYCLES.
THIS SHOULD BR SUFFICIENT TO RAISE '‘SEND RCQUEST''; IF NOT AN
ERROR IS REPORTEC.
THE SOFTWARE CLOCK THEN GENERATOR ENOUGH
CYCLES TO TRANSMIT EXACTLY ONE CHARACTER AND EXAMINES ‘RECEIVE

ACTIVE".

IF 'RECEIVER ACTIVE'' IS UP THE RECEIVER 1S PREMATURELY

ACTIVE AND AN ERROR IS REPORTED.
THE NEXT SET OF CYCLES GENERATED
I5 ONE SHORT OF THE NUBER REQUIRED TO TRANSMIT A FULL CHARACTER.

CZDP
MACY11 30A(1052)
30-JAN=79
CZDPAC.P11
30-JAN-79 15:40

15:40

PAGE 14

SEQ 0012

484

AGAIN 'RECEIVER ACTIVE'' IS TESTED FOR A PREMATURE RESPONSE.

485
486

ONE MORE CYCLE IS THEN GENERATED AND ‘‘ACTIVE'® SHOULD BE UP.
TO
VERIFY THAT IT WAS THE TRANSMITTED DATA THAT RAISED ‘ACTIVE''
AND
NOT NOISE A THIRD SYNC IS TRANSMITTED AND CHECKED AS DATA.
THE SEQUENCE IS CONTINUED FOR COMPLETE SET OF POSSIBLE SYNC
CHARACTERS (1 TO LIMIT), IN EACH OF THE THREE AVAILABLE CHARACTER
LENGTHS.
THIS SET OF TESTS ALSO HAS THE SCOPE LOOP FACILITY
WHERE THE SAME SYNC CHARACTER IS NOT CHANGED iF THE SCOPE
SWITCH SW14 IS UP.

4«87
488
489
490
9N
. 492
493
494
495
496
497
498
499
500

501
502
503
504

9.3.6

SEQUENTIAL DATA
THIS TEST

IS THE SAME AS THAT RUN IN THE MAINTENANCE MODE

TEST.

IT'S PRINCIPLE OBJECTIVE IS TO VERIFY THE SOKHZ SPEC OF THE
DP11,
THE SOFTWARE CLUCK THAT DRIVES THIS TEST OPERATES AT

APPROXIMATELY 56KHZ.

9.3.7

RANDOM DATA,

RANDOM IDLE

THIS TEST IS SIMILAR TO THE RANDOM DATA TEST RUN IN THE MAINTENANCE MODE.
THE DIFFERENCE IS THAT IN GOING FROM '‘IDLE'' TO

"DATATM', ''ACTIVE'' IS DROPPED AND THE RECEIVER RESYNCED.

9.3.8

SEND-REQUEST TEST

LS — b ed b d d —d b
nN=O Voo-ENTo XV, ¥ N ¥,V

VIV (WL VL LV, LV, IV, IV, TV, IV, |

IN THIS TEST ''SEND REQUES:'' 1S RAISED BY LOADING THE TRANSMIT

BUFFER AND GENERATING 3 CYCLES.

1IF

THE CABLE

IS WIRED PROPERLY

"“'SEND REQUEST'' SHOULD RAISE '‘CLEAR-TO -SEND'' AND ‘MODEM READY''

(DATA SET READY).
THIS TEST IS REPEATED IN THE 8,
BITS PER CHARACTER MODE.

9.3.9

7, AND 6

TERMINAL READY
THE FUNCTION OF THIS TEST IS TO VERIFY THAT WITH THE DB25S TEST
CONNECTOR IN PLACE, SETTING °'‘TERMINAL READY'' RAISES '‘CARRIER'’

.ENDR %

AND 'RING FLAG''.
THIS TEST ALSO VERIFIES 'RING FLAG'® AND
"'CARRIER DOWN FLAG'' INTERRUPT.

CZDP
MACY11 30A(1052) 305JAN-79
CZOPAC.P1
30-JAN-79

15:40

PAGE 15

SEQ 0013
:DP11A SYNCHRONOUS MODEM INTERFACE DIAGNOSTIC
sannxn xxMAINTENANCE

MODExrtxxxn

;COPYRIGHT, DIGITAL EQUIPMENT CORPORATION®#*xxx«
;MAYNARD, MASSACHUSETTS 01754

;PROGRAMMER:

JREVISED BY:
;
:
;

JOHN FRIEDRICH

REVISION B CREATED BY JOHN EGOLF
REVISION C CREATED BY ELLIOT GERBERG
( ALL CODE COMMENTED ;+ IS FROM REV.

()

;ZZ-CIDPA-C

;DP11

;COPYRIGHT JUNE 1973,1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

s STARTING PROCEDURE
:LOAD PROGRAM
;LOAD ADDRESS 000200
;PRESS START
;THIS IS FOR THE STATIC TEST
;LOAD ADDRESS 000210
;PRESS START
;THIS 1S FOR CABLE TEST
;FOR MORE INFORMATION SEE THE
;DOCUMENTATION IN FRONT OF THE LISTING

;SWITCH REGISTER OPTIONS
SW14=40000
SW13=20000
SW12=10000
SW11=4000

SW10=2000
SW09=1000
Sw08=400
SW07=200
SW06=100
SW05=40
SW04=20
SwW03=10
SW02=4
SW01=
SW00=1

:=1,HALT ON ERROR

;=1,LO0P ON CURRENT TEST
:=1,INHIBIT ERROR TYPEOUT
;=1,DELETE TYPEOUT/BELL ON ERROr.
;=1,INHIBIT ITERATIONS
=1,ESCAPE TO NEXT TEST ON ERROR
=1,L00P WITH CURRENT DATA
:=1,LO0P ON ERROR
;=1,SINGLE SELECTED DP11. =0 CYCLE ALL DP11S

SW15=100000

S > -

100000

040000
020000

CZ0P
MACY11_30A(1052)
30 5JAN-79
CZDPAC.P11
30-JAN-79 15:4

574
575
576

577
578
579
580
581
582
583
584
585

586

620
621

SEQ 0014

000000
000001
000002
000003
000004
000005
000006
000007

;GENERAL
;GENERAL
;GENERAL
:GENERAL
;GENERAL
:GENERAL

sPROCESSOR STACK POINTER
;PROGRAM COUNTER

sLOCATION EQUiVALENCIES
177570
177570
177776
001050

SWR=177570
LIGHTS=177570

PS=177776

STACK=1050

;CONSOLE SWITCH REGISTER

;PDP=11/45 DISPLAY REGISTER

sPROCESSOR STATUS WORD

:START OF PROCESSOR STA(CK

;INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

603

604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619

PAGE 16

JREGISTER DEF INITIONS

587

588
589
590
SN
592
593
594
595
596
597
598
599
600
601
602

15:40

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
C00010
000004
000002

000001

PUSH1SP=5746
POP1SP=5726
PUSHR0O=10046
POPR0=12600
PUSH. SP=24646
POP.SP=22626
LEQUIV
EMT _HLT

BIT15=100000
BIT14=40000
81713=20000
BI712=10000
BIT11=4000
B1710=2000
8179=1000
BI78=400
BI717=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BITZ2=4
BIT1=2
BITO0=1

sDECREMENT PROCESSOR STACK 1 WORD
; INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STA(CK
;RESTORE RO FROM STACK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE

;BASIC DEFINITION OF ERROR fALL

CZ0P
MACYTT 30A(1052)
30-JAN-79
CZDPAC.PN
30-JAN=79 15:40

623
62«
625
626
627
628
629
630
631
632
633
634
635

15:40

PAGE

SEQ 0015
; TRAPCATCAER FOR

.+2

HALT

ILLEGAL

INTERRUPTS

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TC FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATIOM
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED

TRAP TO THIS LOCATION

EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE

000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
009000
000132
000000
000136
000000
000142
000000
000146
000000
000152
000000

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZDP
MACY11 30A(1052)
30-JAN-79
CZDPAC.PI1
30-JAN-79 15:40

000154
000156
000160
000162
000164
000166
000170
000172
000174
00176
000200
000202
000204
000206
000210
000212
000214
000216

000156

15:40

PAGE 18
SEQ 0016

SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK 7O FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
,EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTEC TRAP TO THIS LOCATION

000000

JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUMEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK YO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE

STACK

TC FIND CAUSE

Z0P
MACY11 30A(1052)
30-JAN-79
CZDPAC.FIN
30~JAN-79 15:40

735
736
737

738

739

740

741

742
743
744
745
746
747
748
749

750

751
752

753

754
755
756

757
758

759
760
761
762

763

764
765

766

767

768
769
770
771
772
773
774
775
776
777
778

779
780
781
782
783
784
785
786
787
788
789
790

000334
000336
000340
000342
000344
000346
000350
000352
000354
000356

000336

15:40

PAGE 19

SEQ 0017

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK 10 FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS ! OCATION
LEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TQ THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
.JINEXPECTED TRAP TO THIS LOCATION

SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAF TO THIS LOCATION

SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED fRAP TQ THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THiS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TG FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE

MACY 11 30A(1052)
CZDP
30-JAN-79
CZDPAC.P1T
30~JAN=-79 15:40

15:40

PAGE 20

SEQ 0018

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS | OCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
cEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATICN
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK 7O FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE

(Z0P
MACY11 30A(1052)
30-JAN-79
CZDPAC.P11
30-JAN=79 15:40

000674
000676
000700
000702
000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742
000744
000746
000750
000752
000754
000756
000760
000762
000764
000766
000770
000772
000774
C00776
000024
000026
000030
000032
000034
000036
000046

000052

15:40

PAGE 21

SEQ 0019

000676
000000
000702
000000
000706
000000

000712

000000
000716
0000

JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION

000000
000752
0000C0
000756
000000
000762
000000
000766
000000
000772
000000
000776
000000

SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SJEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;JEXAMINE STACK TO FIND CAUSE

:VECTOR INITIALIZATION
.=26

000024

013776
000340
016164
000340
000056
000340

LPFAIL
340
LHLT

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
;POWER

FAIL

JPRIORITY

VECTOR

340
. TRPSRV
340

000046
012470
000052
000000
000056

=46

LOGJCAL

0
. 56

;TRAP DISPATCH SERVICE

JARGUMENT OF TRAP IS EXTRACTED
JAND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROULTINE

000956
000060
000064

011646

162716

017616

000002

000000

.TRPSR: MoV
SuUB
MOV

(SP),~(SP)
#2,(SP;
a(SP), (SP)

sGET PC

;=PC

;GET

TRP

RETURN

TRAP

(Z0P
MACYT1 30A(1052)
30~JAN=79
CZDPAC.P11
30~JAN=79 15:40

910

911

912

913
914
915
91€
917
918
916
920
921
922
923
924
925
926
927
928
929
930

931
232
933

934
935
936
937
938
939
940
941
942

000076
000102
000106

000204

001146
001262

000210
000214

000210
005037
000137

001146
007234

001050

001050
001052
001054
001056

.=200
START1:
.=210

ASL

BIC

(SP)

JMULTIPLY TRAP ARG BY 2

#177001, (SP)

ADD
MoV
JMP

a(SP), (5P)
a(SP)+

;CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
; SUBROUTINE ADDRESS
;GO TO SUBROUTINE

(LR
JMP

XL INEX
Bt GIN1

;SET UP CONSOL SWITCH REGISTER

CLR

JMP

#.TRPTAB, (SP)

XL INEX

;DB255 CONNECTOR TEST

BEGIN?

.=1059

177560
177562
177564
177566

TKCSR:

TKDBR:

TPCSR:

TPDRR:

177560
177562
177564
177566

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

;PROGRAM (ONTROL PARAMETERS
001060
001062

001064
001066
001070

001072
001074
001076
0017

000000
000000

RETURN:
NEXT:

LOCK:
:
ICOUNT
T:
LPCN

TSTNO:
PASCNT
:

ERRCNT:
LSTERR:

:SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF

TEST

TO BE

001112
001114

001110

001116

948
%9
950
951
952
953

001120
001122
001124
001126
001130
001132

955
95¢
957
958

001136
001140
001142
007144

001134

TEMP?:

TEMP?2:
TEMP3:
:
TEMP4
TEMPS:
SAVRO:
SAVR1:

SAVR?:
SAVR3.
SAVRG:
SAVRS:
SAVSP:

SAVP(:
SAVSR1:

TMPDAT
:

SLIM:

BPC:
TSYNC(:

EXECUTED

sADDRESS FOR LOCK ON CURRENT DATA
JNUMBER OF ITERATIONS THAT CURRENT TEST WwILL BE
sNUMBER OF ITEREATIONS COMPLETED
sNUMBER OF TEST IN PROGRESS
sNUMBER OF PASSES COMPLETED
:TOTAL NUMBER OF ERRORS
;PC OF LAST ERROR CALL

;PROGRAM VARIABLES

945
96

954

TRPOK
:

;INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

947

177001
001202
000000

000200
005037
000137

000200

001102
001104
001106

964

006316
042716
062716
017616
000136

SEQ 0020

QOOOOOOOO

905
906
907
308
909

000070
000072

PAGE 22

jelelolelelolelelelaslalololololdlole]

903
904

15:40

: TEMPORARY STORAGE

; TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE

; TEMPORARY STORAGE

;RO STORAGE
sR1 STORAGE

;R2 STORAGE
;R3 STORAGE
;R4 STORAGE

;RS STORAGE

;STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

001146
001150
001152
001154
001156
001160
001162
001164
001166
001170
001172
001174

000000
000000

15:40

PAGE 23

SEQ 0021
XLINEX:
(ARBLE:
TDATA:
RDATA:
CHLEN:
LIM]T:
SCNT:

SAVSRZ:

000000

T[ME:
TP:
RP:

BACK:

QOO OOOOOOOO0O

(ZDP
MACYT 30A(1052)
30-JAN-79
C(ZOPAL.P11
30-JAN=79 15:40

C{DP
MACY11_30A(1052)
30-JAN=79
CZDPAC.PI1
30-JAN=79 15:40

15:40

PAGE 24

SEQ 0022

972

3;2

;PROGRAM CONTROL FLAGS

975
76

001176
001177

000
000

978

001201

000

977

ggg

001200

000

000000

INIFLG:
STFLG:

.BYTE
.BYTE

O
O

;PROGRAM INITIALIZATION FLAG
JTEST START FLAS

LOKFLG:

.BYTE

sLOCK ON CURRENT TEST FLAG

ERRFLG:

.BYTE

$Y=0

981
982

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
sPOINTERS TO SUBROUTINES CAN BE FOUND

3%2

IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS

985

986

IHRAARAARARR AR

987

001202

989
990
991

001202

993
994
995
996
997
998
999
1000

001206

988

992

1001
1002
1003
1004
100S

1006
1007

1008

1007
1010
;8};

001204

001210
001212

001214
001216

001220
001222
001224
001226

001230

1044900

(15672
104401
013374

104402

013434
104403
014332
104404
013004
104405
012722
104406

016104
104467
(16122
104410
016730

1026

.TRPTAB:

AR AN RARRAARRARRRR AN

RN SRR

RARRAAARAARNARA - AAARNA A RN

sCALL TO SCOPE LOOP AND ITERATION HANDLER

.SCOPE
CLOCK=TRAP+1
.CLOCK

;CALL

RXCLK=TRAP+?2

TO CLOCK DEVICE

;CALL TO CLOZK THE RX

-RXCLK
DELAY=TRAP+3
.DELAY
CLEAR=TRAP+4
.CLEAR
VALID=TRAP+5
.VALID
SCOP1=TRAP+6

;CALL

TO CELAY FOR SPEC.

TIME.

;CALL

TO BIT CLEAR SPEC BIT

;CALL TO MAKE SURE ONLY SPEC BIT (LR

.SCOP1
TYPE=TRAP+7
. TYPE
SAVO5=TRAP+10
. SAV05

;CALL

TO LOOP ON CURRENT DATA HANDLER

;CALL

TO TELETYPE OUTPUT ROUTINE

;CALL TO REGISTER SAVE ROUTINE

. CONVRT
CNVRT=TRAP+13
.CNVRT

104412

A ANR R AR AR AR NARAARRA A RARRR AR RRARARNR AR

AR E AR

SCOPE=TRAP+0

016530
104413
076534

;CALL TO REGISTER RESTORE ROUTINE

CONVRT=TRAP+1?2

;CALL TO DATA OUTPUT ROUTINE
;CALL

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

AR AN AR AR AR R AR AN AR RAR R RN R ARR R AR AR RN KRR I AR RAR AR R RN RN NN RN E
RN
AR AR AR AR AR AR AR AR R AR AR AR AR AR AT AR AR AN R AN RR RN

1017

1027

R P AR

RESO5=TRAP+11
.RESO5

1015
1016

;85?

104411
016770

1013
1014

1018
1019
1020
1021
1022
1024

JERROR OCCURED FLAG

TR RN

001232
001234
001236
001240
001242

001244

000001
000001
000001
000001
000001

000001

DPRS:
DPRB:
SYNC:
DPTS:
DPTB:

SEXT:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

AN KRR AR RARRANRARR P ARRAARRRARRRRNARRARRRANRRRARCN
RS

1
1
1
1
1

;DP11
;DP11
sSYNC
;DP11
:DP11

.BLKW 1
AR AN

AAN R RN

RECEIVER STATUS
RECEIVER BUFFER
BUFFER
TRANSMITTER STATUS
TRANSMITTER BUFFER

;DP11 SYNC EXTENSION

AR RN R AR NN R NN

RN RRNA NN AANSRARRCNRNRANRSY

S* RN

C20°
MACY11_30A(1052)
30=-JAN-79
CZDPAC.P11
30~JAN=79 15:40

001246
001250
001252
001254
001256
001260

15:40

000001
000001
~00001
000001
000300
174770

PAGE 25

SEQ 0023
DPRIV:
DPRP:
DPTIV:
DPTP:

.BLKW
.BLKW
.BLKW
BLKW

SRR AR

AR RN RN

BASVEC: 300
BASCSR: 174770

000005
005037
012706
012737
104407
105737
100005
004737
004737
000404
004737
004737
005737

012514
012300
001150

012737

007306
001356

001150
001050
000340
017022

BEGIN1: RLSET
CLR
MOV

177776

177570

1
1
1
1

;DP11 RECEIVER INTERRUPT VECTOR
;DP11 RECEIVER PRIORITY
;DP11 TRANSMITTER INTERRUPT VECTOR
:DP11 TRANSMITTER PRIORITY

sTHIS IS THE FIRST VECTOR. PATCH FOR YOUR FIiRST
JFIRST CSR ADDRESS.MAKE IT YOURS.
AN AR AR A R

AR AR AR RN RN RRN RN A RNNANRRRANARRAA RN

CABLE

;CLEAR THE WORLD.
;SET FLAG FOR NO CABLE

#340,PS

sSET PROCESSOR PRIORITY = 7

#5TACK,SP

MOV

TYPE, MTITLE
TSTB
SWR

STAR:

C12514
012234

BGNO:
PART1:

8PL
JSR
JSR
BR
JSR
JSR

BGNO
PC,CLRVEC
PC,LINE.N
PART
PC,CLRVEC
PC,LINE.X

8EQ

. +6

TST

CABLE

JMP

001060

PARTZ2

MoV

#TST1,RETURN

axxxxTEST 7:

;SET UP STACK POINTER

RN RN

TEST.

;+TYPE TITLE OF PROGRAM
s1S SWITCH SEVEN SET??
;BR_IF SW 07 NOT UP.
;SET UP COMM VECTOR ARCA.
;GO GET THE DESIFRD LINE NO.
;GO TO START THE TEST.

AND VECTOR.

;SET UP COMM VECTORS
;GO AND AUTO CYCLE THROUGH DP11S

sSHOULD I

DO THE CABLE

;BR IF MAINT.

TEST

TEST OR MAINT.

TEST??

;GO DO THE CABLE TEST

:SET RETURN ADDRESS

READ/WRITE ALL BITS OF

STATUS*xaxaxswx

SHRNRAAARRN
AR
x

TEST 1
*

IRARRRRANRRRRRR

001356

R AR AR RANR RN RS AR AR AR AR AR

TST1:

MOV
MOV
MOV
CLR
CLR
MOV
MOV

#1,TSTNO
#TST2 NEXT

001072
001062
177776

001440

012737
012737
012737
005077
005077
012777
012777
012777
012777

112777
052777

177634
177622
177616
177614
177570
177556

MOV
MOV
MOVS
BIS

#240,3DPRP
#240,aDPTP
#26,aSYNC
#81T2,3DPRS

001454
001462
001464
001466

032777
001001

177550

8IT

#81T72,aDPRS

001372
001400
001404
001410
001416
001424
001432
001446

104000
104400

BNE

HLT

#34C,PS

aDPTS
aDPRS
#FTINT,GDPTIV
#FRINT ,aDPRIV

A AR ANNNARRRNRRNRARRR AR RN

;SET PROCESSOR STATUS 10 7
;CLEAR TRANSMITTER STATUS
sCLEAR RECEIVER STATUS
sSET UP TRANSMITTER TEST VECTOR 1
;SET UP RECEIVER TEST VECTOR 1

;SET UP RECEIVER PRIORITY=S
;SET UP TRANSMITTER PRIORITY=S
sCLEAR NOISE FROM SYNC
sSET MAINTENANCE MODE
:TO ENABLE INTERNAL CLOCk (3KkH2)

JMAINT. SET

. YES

JREPORT ERROR

‘

cZ0P
MACY11_30A(1052)
30-JAN~79
CZDPAC P11
30-JAN=-79 15:40

15:40

PAGE 26

SEQ 0024

b b

AN ILLEGAL INTERRUPT WILL TRAP T0
;AN ERROR MESSAGE ROUTINE
sTEST ALL READ/WRITE BITS OF RECEIVER STATUS

D nd D ) D ) D d D d d D D d ) b ) D d e
o
oo

sRRARAARRA
AR
A
.

; TEST 2
.

38333 R3823

012737
012737

SRR AR AN AR AR AR AR AR AN A RARRA AR RAR AN AR RN AN

000002
001576

001072
001062

001232
012542

013110

TST2:

MOV

#TST3, NEXT
RO

;TEST RECEIVER STATUS BITS
;SYNC STRIP

912542

BITO
é§$1

DPRS ,REG
RS,BITST

R5.8ITST

JHALF DUPLEX

012542

é???

R5.BITST

sMAINTENANCE MODE

012542

é??6

RS.,BITST

;RECEIVER INTERRUPT ENABLE

012542

JSR
BIT7
JSR
BITS8

R5,BITST

s DONE

R5,BITST

;BITS/CHAR

JSR

RS,BITST

JSR
317110

R5.BITST

MOV
JSR

012542

d D D o e ek D e

A NARRANRN AR ARRAARAARE NS

#2,TSTNO

MOV
CLR

012542

D e

-A—J_J_A—A—hd.J-J—J—J—A—A-‘—Ld—d-a_A_A_hfl-d_a—d_hd_a-J-)—LAE;_A-J
WNANW
NNV
S = D
i = L a0 00000000

sRRRRRAARAR
AN
N

BIT9

012542

SCOPE

D nd ed e

:BIT3=MISCELLANEOUS RECEIVE=READ ONLY
;BIT11=RECEIVE ACTIVE=READ/WRITE ZERO
;BIT12=PARITY(VRC)=READ ONLY

;ALL OTHER BITS ARE NOT USED
sTEST ALL READ/WRITE BITS OF

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

TRANSMITTER STATUS

sRRRRAAAAAARASL
;

TEST 3
*

sRNARRANAN
ALK
A

001576
001612
001614
001622
001626
001630
001636

012737
012737
005000
013737
004537
000001
042777
004537

000003
001726

001672
001062

001240
012542
000004
012542

AR KRR R A AR R A AR AT AR AR AR AR R RN AR RAR A AR AR NN N AN AR RNNRRAAR NIRRT

1ST3:

MOV
MOV

#3 TSTNO
#TST4 NEXT

013110

MOV
é??o

DPTS REG
R5,BITST

;TEST TRANS STATLS BITS
s TERMINAL READY R/W

177374

8IC

#81T72,aDPRS

sSHUT OFF CLOCK FOR IDLE SYNC

CLR

JSR

RS.8ITST

;IDLE SYNC R/W

(Z0P
MACY11_30A(1052)
30-JAN-79
CZDPAC.PT
30~JAN-79 15:40

1135
1136
1137
1138
1139
1140

1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152

001642
001644
001652
001656
001660
001664

000002
052777
004537
000010
004537
000040

001666
001672
001674
001700
001702
001706
001710
001714
001716
001722
001724

004537
000100
004537
000200
004537
020000
004537
100000
004537
040000
104400

000004
012542

15:40

PAGE 27

SEQ 0025

BIT1
BIS
JSR
BIT3
JSR
BITS

177360

012542
012542

JSR
BIT6
JSR
BIT?7
JSR
BIT13
JSR
BIT1S
JSR
BIT14
SCOPE

012542
]
012542
012542
012542

#B1T72,aDPRS
RS,BITST

:START CLOCK
;SECONDARY TRANSMIT R/W

RS,BITST

;STATUS INTERRUPT ENABLE R/W

RS.BITST

;TRANSMITTER INTERRUPT R/W

RS,BITST

:DONE

RS,BITST

JRING FLAG R/W

RS,BITST

;CARRIER DOWN

RS,BITST

JRECEIVER OVERUN FLAG R/W

1153
1154
1155
1156
1157
1158
1159

:RESET TEST
;SET PROCESSOR PRIORITY TO 7
;SET ALL WRITE BITS IN T & R STATUS
;ISSUE RESET AND VERIFY ALL BITS THAT ARE

1162

sNOTE:

1165
1166
1167

;TEST READ/WRITE BITS OF RECEIVER STATUS
:SECTION 1

}}2?

;TO BE CLEARED BY RESET--WERE

;}22

1168

JRRRARAARRARRR

1169
1170
1171

:
;
:

1172

1173

1174
1175
1176
1177

001726
001734
001742
001746

012737
012737
005077
012777

000004
002006
177272
000004

1179

001762

017701

177244

1178

1180

001754

001766

(©127277
042701

1181

001772

012700

1183
1184
}}gg

002000
002002
002004

001401
104001
104400

1182

1187
1188
1189
1190

IF BITS/CHAR BITS ARE SET TO ALL 1'S RCV WILL

:NOT GO ACTIVE

001776

020001

143707

010000

003707

001072
001062
177256

177250

TEST 4

IRNRRRARRANAANRR
;ttt***tttttttttttttttttttttttfittttttttt*ttttttttt*tttttitt*tttt*tttt

TST4:

MOV
MOV
CLR
MOV

#4,TSTNO
#TSTS NEXT
aDPTS
#8112,aDPRS

;CLEAR TRANSMITTER STATUS
:MAINTENANCE MODE

aDPRS ,R1

:SAVE THE RX STATUS

#3707 ,R0

;SET RO FOR ERROR MESSAGE

YA
1

:BR IF STATUS IS OK.
;ERROR RX STATUS NOT WHAT EXPECTED.
:SCOPE THIS TEST.

MOV

#143707 . aDPRS

BI(

#81T12,R1

cTMMP

RO,R1

MOV

BEQ
HLT
SCOPE

;TEST ALL READ/WRITE BITS OF
JSECTION 2

;SET ALL RECEIVER STATUS BITS
:CLEAR THE PARITY BIT

;IS THE STATUS WHAT [ EXPECTED??

THE TRANSMITTER STATUS

CZDP
MACYT 30A(105 2)
326JAN-79
CZDPAC P11
30~JAN=79 15

15:40

PAGE 28
SEQ 0026

0O
—'O\OW\JOU\“WN—'OS B8IAIXIRER SZIRGR WA

N—

CARRARRRNANARANY

TEST S
AR

012737

—_

b
b
d
b

NI [V, [P Y

CARRRRRAR
AR AR
E

001072
001062
160353

RN RN R AR R

R AR AR AR R RRARARRNANNARNNANARRRARARA
RN

MOV
MOV
MOV

#5,TSTNO
#TST6 NEXT
#8172, aDPRS

s SET MAINT MODE

CLR
ADD
BNE

RO
#1,RO
1%

SSET FOR A DELAY
:WAIT FOR CLEAR TO SEND AND REQUEST TO S
:TO COME UP.

#163353,R0

*SET RO FOR ERROR MESSAGE.

MOV

177166
163353

AN
D
ek
e
D
d
d e
e

TSTS5:

18:

#160353,aDPTS

MOV

*SET R/W BITS ON TX

abDPTS R1

MOV

CMP
BEQ
HLT
SCOPE

NSTASIASLASIaS
IaN [ N ] LS IaN TN 1 N1,V1,¥7,8] n
\Y] NN
b wd b b b b b D b
n

*SAVE

RO,R1
.+
i

THE TX STATUS.

*1S THE TX STATUS CORRECT??
*BR IF GOOD
STX STATUS ERROR
*SCOPE THIS TEST

;ISSUE "RESET'' AND VERIFY ALL BITS ARE CLEARED
;SECTION 3

AR AR RN

177202
177202

000001

—b e

S W

—

1191

000006
002140
000004
143707

001072
001062
177122
177114

TSTS:

MOV

#6,TSTNO

MOV
MOV
8IS

#TST7 NEXT
#B1T2,3DPRS
#143707,3DPRS

RESET

177104

MOV
TST

aDPRS ,R1
R1

HLT

BEQ
CLR

104001
104400

sSET MAINT MODE
sWRITE THE STATUS REG

;ISSUE RESET INSTR.

sFLASH THE LIGHTS

sSAVE THE STATUS
;1S IT ZERO??

.+6
RO

SCOPE

;BR_IF GOOD
sSET RO FOR ERROR MESSAGE

sRX CSR NOT CLEARED BY

sSCOPE THIS TEST

;VERIFY ALL READ/WRITE BITS OF TRANSMITTER STATUS ARE CLEAR
JSECTION &
RN RAA N

RN
x

TEST 7
x

012737
012737
012777
052777
000005
005100
017701
005701
001402
005000

INIT.

cZ0P
MACY11 30A(1052)
30-JAN=79
CZOPAC.P11
30=-uAN=-79 15:40

15:40

1247

PAGE 29

SEQ 0027

:.'t...‘......

v
[V,]

CARRRRAARPAARNRAANREN
NN AANRNAANAR I AARR R AR AR NANANNRNANARA R AN EANRRRANARN O RO RS

002140
002146
002154
002162
002170
002172
002174
002200

160353

001072
001062
177050

1s17:

177050

#7,1STNO
#TSTI0,NEXT

MOV
MOV
MOV

#B1T72,aDPRS

#160353,3DPTS

MOV
RESET

RO
aDPTS ,R1
R1

(OM
MoV
TST

177040

.+6

BEQ
CLR

HLT

104400

]

SCOPE

;SET MAINT MODE

JWRITE TX STATUS
JISSUE A RESET INSTRUCTION
JFLASH

;SAVE

THE

LIGHTS.

STATUS

;1S 1T ZERO??
;BR IF GOOD

;SET RO FOR ERROR MSG
;TX

STATUS REG NOT

;SCOPE

THIS TEST

ZEROED BY

;TEST READY BIT CLEAR BEFORE READY (AN (OME UP
;I"ttttt'tttfi

S TEST 10

]

;tttt**tt'flfitt

;‘ii.tfittfi.tt*fi."".fittttt.tit.t'tttt*t'ttttt'ttttt'.Qttttttfitttflfitt

012737
012737
012777
0000905
005100
017701

002270

105777
100002
005000
104001
005777
001402
05000
104001
104400

000010
002272
160377

001072
001062

TST10:

177004

#10,TSTNO
#1ST11, NEXT

MOV
MOV
MOV
RESET

#160377,3DPTS
RO

COM

176774
176770

MOV
TST8B

aDPTS ,R1
aDPTS

BPL
CLR

JREADY CLEARED
JYES

;REPORT ERROR
;STATUS CLEAR

HLT
TST

176756

:LOAD STATUS
;ISSUE RESET INSIR,
;FLASH THE LIGHTS
cSAVE THE STATUS.

BEQ
ZLR

JYES

HL1
SCOPE

JREPORT ERROR

;BIT INTERAC:ION TEST
;SET EACH BIT AND VERIFY THAT ONLY THAT BIT S AFFECTED
sRECEIVER STATUS BIT VALIDITY TEST
;Qtttt*ttttttt

P OTEST 11
0

:'tttttt*tt..t

:**'Qtttttittfit'itt'it‘."ttlt'.ttit""'tttt"'t"l'.'t"'t."'l.'i'

002272

012737

000011

001072

TST11:

MOV

#11,TSTNO

[NIT

CZ0P
MACY11_30A(1052)
30-JAN-79
CZDPAC P11
30~JAN=79 15:40

S
N
U
S S S S U S U WY JETEEN

WWNINW AN W NN NN N N NN NN
AONININDAD Nt ed e ed b b e a2
w W20 00NN
W20 P oo~

838

1303
1304
1305
1306

002300

002306

(02310
002316
002320
002322
002324
002326
002330
002332
002334
002336
007340
002342
002344
002346
002350
002352

002354
002356

012737
005000
013737
104405

15:40

PAGE 30
SEQ 0028

002360

001062

MOV

001232

013110

MOV

#TSTI12 NEXT
RO
DPRS,REG

CLR

VAL ID

000001

JTEST RCvV

;STRIP SYNC

BITO

104405

VAL ID
BIT1

JHALF

VALID

DUPLEX

JMAINTENANCE MODE

BITZ
VALID
BIT6

JINTERRUPT ENABLE

VALID

;DONE

VALID

;BITS/CHAR

BIT?7
BIT8

VALID

BIT9

VALID

BIT10

104400

SCOPE

s TRANSMITTER STATUS BIT

VALIDITY

TEST

:Q*Q'****fi**fi*

L OTEST 12
*

:*t**tt**ti!'t
CRERA A AR AR A AN AN

012737
012737
005000
013737
005077

S NN

RERRRRRY

= OO 00 NN

VAWV

00 NN BN

U G

N AN N AN AN L NN

P QU

1341

104405
000001
104405
000002
104405
000010
104405
000040
104405
000100
104405

000012
002456

001072
001062

001240

013110

176630

TST12:

MOV
MoV

CLR

MoV

CLR
VALID
BITO
VALID
BIT1

JTEST XMIT

STATUS

;CLEAR TRANSMITTER STATUS
s TERMINAL READY

s IDLE SYNC

VALID

s STATUS ENABLE

VALID

sTRANSMITTER ENABLE

VALID

;TRANSMITTER DONE

VALID

JRING FLAG

VAL ID

JRECEIVER OVERRUN

VALID

;CARRIER DOWN

BITS

BIT6

020000

BIT13

040000
104405
100000

BIT14

104400

#12,TSTNO
#TST13 NEXT
RO
DPTS ,REG
aDPTS

AN A AN AN N AR AN RN NN RA AR RARRNANA TN AR AN RS

JMISC TRANSMIT

BIT7

104405

R R AR

VALID

BIT3

000200
104405

AN R AT R AN

BIT15
SCOPE

15:40

PAGE

SEQ 0029

JVERIFY BIT CLEAR ONLY CLFARS SPECIFIED BIT
JRECEIVER

TEST

SECTION

:‘Qtl'kttfittit

P OTEST 13

d and od
D
et
—d
d
b —D e

N
NNWWNWNWN W
o
NWNNNN ~
VSN
— o V00~

1359
1360

cZ0P
MACY11_30A(1052)
30~-JAN~79
CZDPAC P11
30-JAN=79 15:40

;tttt'tfit*tttt
;t"itfitttt"fi*titttttt**ii*ttt't*flittttttt.t*ttttttttttt.ttttt..'t.'t

002456
002464
002472
002500
002506
002514
002522
002524
002526
002530
002532
002534
002536
002540
002542
002544
002546
002550
002552
002554
002556
002560
002562

012737
012737
112777

013737
012737
012777

104404
000001
104404
000002
104404

000004
104404

000100
104404

000200
104404
000490
104404

001000

104404
002000
104400

000013
002564
000026
001232
003707
003707

001072
001062
176536
012110
007136
176510

TST13:

9%
MOV
MOVB
MOV
MOV
Mov

CLEAR

#13,T7STNO
#TST14 NEXT
#26 ,@SYNC
DPRS REG
#3707, TMPDAT
#3707 ,aDPRS

;LOAD SYNC WITH ANYTHING
JTEST RCV STATUS
:STORE STATUS IMAGE
sSET UP STATUS
2STRIP SYNC

BITO

CLEAR

JHALF

CLEAR

JMAINTENANCE MODE

(LEAR
BIT6
CLEAR

JRECEIVER INT ENB
JRECEIVER DONE

CLEAR

;BITS/CHAR

BIT1

BIT?

BIT7

BITS

DUPLEX

CLEAR

BIT9

CLEAR

BIT10
SCOPE

s TRANSMITTER

TEST

SECTION

: “'SEND REQUEST'' IS SET BY ‘'IDLE
JNOTE

SYNC''
"'CLEAR-TO-SEND'' IS SET BY MAINTENANCE MODE

30~-JAN=79 15:40 PAGE-SZ

cZopP
MACY11_30A(1052)
CZOPAC.PN
30-JAN=-79 1 5:40

1398
1399
1400
1401
1402

:tt'ittttitttt
.

;

1407
1408
1409
1410
1411

001001
104000
013737
104404
000001

042737
042777
012700
005300
001376
013700
017701
023777
001401
104001

052737
052777
104404

001672
001062

160353
163353

177776
176416
176416
001136

001000

176372

001240

013110

005050

1412
1413

1453

14
*

.-tttt*t*tttttttt'tt'tttttttttttttttttttttttt'tt't'tttt"t.ttttttttlt'

000014
003050
000340
000004

1406

1444
1445
1446
1447
1448
1449
1450
1451
1452

TEST

;tittttttitttt

1405

14624
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443

1403
1404

1414
1415
1616
1417
1418
1419
1420
1421
1422
1423

SEQ 0030

003002
000002
007020

001136
176320
001136
003002
000002

001136
176340

176312

0071136
176272

104404

042737

104404
000200
052777
052737
042777
042737
104404
020000
104404

040000
104404
100000

MOV

#14,TSTNO

MOV
MCV

#TST1S ,NEXT
#340,PS

MOV
MOV
MOV
DEC
BNE
BIT
BNE

#160353,aDPTS
#163353, TMPDAT
#2600. ,RO
RO
.~
#8119,aDPTS
. +4

;SEND REQUEST UP
JYES

MOV

DPTS,REG

;TEST

#3002, TMPDAT
#2,aDPTS

JCLEARING IDLE SYNC SHOULD CLEAR SEND REQUEST
;CLEAR IDLE SYNC

MOV

HLT

CLEAR

#BITé,aDPRS

BITO
JIDLE SYNC

000010
104404
000040
000100
042777

TST14:

000004
002000
000004

002000
004004
002000

176242

001136
176222
001136
176206
001136

BIC
BIC
MOV
DEC
BNE
MOV

MoV
MP

B8EQ
HLT

BIS
8IS
g%géR

#3600. R0
RO
.~
TMPDAT RO
@DPTS,R1
TMPDAT ,aDPTS

#3002, TMPDAT
#2,3DPTS

JSET STATUS TC LEVEL

cSET MAINTENANCE MODE

SEVEN

JSET UP STATUS
;STORE STATUS [MAGE
;DELAY 6MS FOR SEND REQUEST

;REPORT

ERROR

TRANS

; TERMINAL READY

JWAIT FOR ''CLEAR-~TO~SEND'' TO DROP

sIDLE

JYES

SYNC AND SEND REQUEST

;REPORT ERROR

JREINSTATE IMAGE
JREINSTATE STATUS
;MISC TRANSMIT

g%;?R

;STATUS INTERRUPT ENABLE

g%;fik

STRANSMITTER

BIC
8I(C

#B1T2,aDPRS

8IS

#81712,aDPRS

é%?éR
BIS
8l
8IC

CLEAR

BIT13

CLEAR
B8IT14
CLEAR

BIT15

#81T10, TMPDAT

#81710, TMPDAT
#4004 ,3DPRS
#BIT10,TMPDAT

CLEAR

INTERRUPT ENABLE

;MAINT MODE OFF (STOP CLOCK)

;CLEAR ‘'CLEAR-TO-SEND'’

;JREADY

<MAINT MODE ON

;SET ‘''CLEAR-TO-SEND'' TEST BIT
s SHUT OFF CLOCK
. (LEAR ~TO =-SEND

JRING FLAG

;RECEIVER OVERRUN
;CARRIER DOWN

CZ0P

MACY11

CZDPAC.PINM
?Zgg

003046

30A(1052)

3C~JAN=79

30=-JAN=79 15:40

15:40

PAGE 33

SEQ 0031

104400

SCCPE

1456

1457

AR AR

R I AR AR

R AR A RANAN A AR R ANNAARN A ORIV

1458

;PRIOR]TY TESTS

}225

. INTERRUPT WILL TRAP TO ERROR MESSAGE

1463

IREREARRNRNNSW

1459
1460

JVERIFY THAT
JWHEN PS=5

1464

;

1465
1466
1467
1469
1470
1471
1472

003050
003056
003064
003072

012737
012737
012737
012777

000015
003264
000240
014532

001072
001062
177776
176152

16474
1475
1476
1477
1478
16479
1480
1481
1482

003106
003114
003122
003130
003136
003144
J03152
003160
003166

052777
052777
052777
042777
052777
052777
042777
052777
052777

000004
000040
010000
020040
000040
040000
040040
000040
100000

176116
176116
176110
176102
176074
176066
176060
174052
176044

}zgz

003100

003174

012777

042777

014536

100040

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499

AP AR

TST15:

MOV
MCV
MOV
MOV

#15,TSTNO
#TST16,NEXT
#240,PS
#FTINT ,QDPTIV

BIS
BIS
BIS
8IC
8IS
BIS
BIC
8IS
BIS

#8172,3DPRS
#BIT5,aDPTS
#81T12,aDPTS
#20040,aDPTS
#8I175,aDPTS
#8I1714,aDPTS
#40040,aDPTS
#BIT5,aDPTS
#8IT15,aDPTS

176140

AR AR

MOV

176036

1222

AR AR R AR RN A A R

AR PRI NNV N AN NN

#FRINT ,aDPRIV

BIC

#100046.BDPTS

(©03202
003210
003216
0032264
003232
003240
003246
003254
003262

052777
052777
052777
052277
052777
(52777
042777
042777
104400

000100
0000091
000002
000004
000010
000020
000037
000100

176030
176022
176014
176006
176000
175772
175764
175756

BIS
BIS
BIS
BIS
BIS
BIS
B]C
BIC
SCOPE

#B176,aDPTS
#8170,aDPTS
#81T71,aDPTS
#BIT72,aDPTS
#8173,aDPTS
#BIT4 ,QDPTS
#37,aDPTS
#BIT6,aDPTS

R AN AN AN RN AN A AR RO NSO

JPRIORITY=S
JSET FOR UNCXPECTED INTERUPT.

JSET FOR UNEXPFCTED INTERUPT.
JSET MAINTENANCE MODE
cSTATUS INTERRUPT ENABLE

(SIE)

JRING FLAG
;CLEAR (SR
JINT ENB (STATUS)
JRECEIVER OVERRUN FLAG
;CLEAR (SR
JINT ENB (STATUS)
;CARRIER DOWN FLAG

.CLEAR (SR

JXMIT INT ENB
;NOISE
cMORE NOISE
;MORE NOISE
;MORE NO!ISE
;MORE NOISE
;OUIET!

JTEST FOR CONTROL OF STATUS INTERRUPT ENARLE BIT
sNO INTERRUPT SHOULD OCCUR IF INT ENB IS NOT SFT

;INTERRUPT VECTOR POINTS TO ERROR MESSAGE ROUTINE

1502

JRANANRANRNAAR

1503
1504
1505

;
;
:

1507

1506

1508

INTERRUPTS

JVERIFY NO TRANSMITTER READY INTERRUPTS

;28(1)

1509

ARE NO STATUS

: TEST 15
;
*
IRRRRRRRRARRRN

1468

1472

THCRE

ANNORDRRNREININRIOIININS

TEST 16

*
*

IRERNRARARNNAN

003264

003272

012737

000016

003422

001072
001062

TST16:

MOV

#16,TSTNO

#TST17 NEXT

003300
03306
003314

QU S

\Os Sl NS YUY QU W

YU YU S

Y -

AN AN AL ALY ALY, IV, TV 1V, TV TV 1V (O LV, RV [V, IV, QO LV RV RV RV, LV, RO, QUL LV LV, LV, IV, IV, [V TN, IV, TN, RV, IV, | (A %1%V, IV, [V, (W, [V, [V, IV, IV, (94
HN DD
—
VA
I
LI
I
IV IV D 9 P
NWNNNIAN N NNN NN N NN FONI N(a0 1,01, O e P i i ol S Sl G
OO0 NN B NN = O D00~ o VB AWN=O 00 NOWNEWN
OV NI NN 2O 000NN
NN — o

(ZOP
MACY11_30A(1052)
3C-JAN=79
CZDPAC.PIN
30-JAN=-79 15:40

162737

003420

032737
001341

000200
014532
014536
020000
020000
040000
040000

PAGE 34

SEQ 0032

1%:

100000
100000
160000
160000
000040

000340

#200,PS

Mov
MOV
MOV
BIS
BIC
BIS
BIC
BIS
BIC
BIS
8IC
Su8
BIT

#BIT13,aDPTS
#BIT13,aDPTS

;RING FLAG

SCOPE

INTER.
INTER.

;CLEAR
JRECEIVER OVERRUN FLAG
. CLEAR

#81714,3DPTS
#B1T14,aDPTS
461715,aDPTS
#BIT15,aDPTS
#160000,aDPTS
#160000,aDPTS
#40,PS
#340,PS
1%

BNE

104400

JPRIORITY-4
sSET FOR UNEXPECTED TX
JSET FOR UNEXPECTED RX

#FTINT ,@DPT]V
#FRINT ,aDPRIV

;CARRIER DOWN FLAG

sSET ALL STATUS ERROR BITS
;CLEAR
;DECREASE PRIORITY LEVEL
JYES

012737
012777
012777
052777
042777
052777
042777
052777
042777
052777
042777

15:40

YO Y

;VERIFY THAT ALL STATUS BITS INTERRUPT AT ALL LEVELS
JEQUAL TO OR LESS THAN 4
;IF THE DEVICE INTERRUPTS SUCCESSFULLY, THE
s INTERRUPT SERVICE ROUTINE WILL RETURN
TO THE

INSTRUCTION AFTER

;THE PROGRAM COUNTER
;THE HLT CALL

TR I

SRRRRRARANRAAA

Y TEST 17

]

s R I

YO S

:tt'titt*ttlfit
;'fifiti*t*tfit*!t"fi'ttfitt'lttt*ttttttt*tttttttitt'ttttt'!t'tfi'tttt'tfit

012737
012737
01777
012737
052777
052777
000240

000017
003614
003474
090200
000040
020000

001072
001062

TST17:

175606
177776

175569

BIS
BIS
NOP
HLT

175552

104003

024646
042777
022626
012777
042737
052777
000240
104003
024646
042777
022626
012777
042737
052777
000240
104003
024646
042777
022626

020000

175536

003534
000040
040000

175540
177776
175512

040000

175476

003574
000040

175500
177776

100000

175452

175436

MOV
MOV
MOV
MOV

1%:

PUSH. SP

BIC

POP. SP
MOV

BIC
3IS
NOP

2%:

#17.TSTNO
#15720,NEXT
#1$ aDPTIV
#200,PS

sSET UP INTERRUPT VECTOR-RTI
;JPRIORITY=4

#8115, 3DPTS

;INT ENB STATUS
JRING FLAG
;SHOULD INTERRUPT AFTER NOFP

#BIT13,3DPTS
3

sREPORT ERROR

#BIT13,aDPTS

s +ERROR INDICATOR/NOPOP.SP
;CLEAR RING

#2% ,aDPTIV
#B1T5,PS
#B1T14,3DPTS

JSET UP NEXT INTERRUPT VECTOR
JSET PRIORITY TO 4
JRECEIVER OVERRUN FLAG

HLT
3
PUSH. SP
#81T14,aDPTS
8IC
POP.SP
#3% ,aDPTIV
MoV

#8175.PS
BIC
#BIT15,Q0FTS
81S
NOP
HLT
PUSH. SP
#81715,aDPTS
BI(
POP.SP

;REPORT ERROR

;+ERROR INDICATOR/NOPOP.SP
;CLEAR RCV O RWN

JSET UP NEXT INTERRUPT VLCTOR
JSET PRIORITY TO 4
;CARRIER DOWN FLAG
. +ERROR

.REPORT ERROR
INDICATOR/NOPQOP.SP

;CLEAR CARRIER vOwN FLAG

C20P
MACY11 30A(1052)
30-JAN=79
CZDPAC.PN
30-JAN=7 9 15:40

1566

1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577

1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595

003604
003612

012777
104400

014532

15:40

175440

:
WN=O

saalaaaaaa

MoV

#FTINT ,aDPT]V

SCOPE

:F?gSE

INT

TRAP

;t.'tfittttit't
.

; TEST 20
4

;tttttt**ttttt
;t'fi'ttttttt*i.t'i"*tfitt*t*tttfitttQttfittttttttttt.t'tt'tttfittt'ttttt

012737
012737
005077
012777
105777
100401
104000

016077
105777
100001
104000
104400

000020
003670
175376
000200
175372

001072
001062

TST20:

#20,TSTNO
#TST2T NEXT
aDPRS
#B1T7,3DPTS
aDPTS

MOV

MoV

CLR

175376

MoV
TSTB

BM]
HLT

175364
175356

JCLEAR RCV STATUS
s DONE
;DONE SET
JYES

MOV
TSTB

RO.aDPTRB

;REPORT ERROR
;LOAD BUFFER

. +4

JYES

aDPTS

BPL
HLT
SCoPE

;VERIFY TRANSMITTER READY

;AT 8 BITS PER (HARACTER

.DONE

CLEARED

sREPORT ERROR
INTERRUPTS AT

LEVEL

SRR ARINANARER

s TEST 21
.

b §

k 4

JRNRRRIR
AAR
RN

;t.tfi"'tfifl'tfifii'itt"fitfitfi!tfitttttttttfitt*ttttfittttfittitt.'titt'tt'fi

012737
012737
012777
005077
012777
012737
110077

052777
105777
100001

000021
003774
000004
175322
003764
000200
175304
000100
175270

001072
001062

TST21:

175320

17532¢
177776

MOV
MOV
MOV
CLR
MOV

175274

#8172.3DPRS
aDPTS
418 ,aDPTIV
#200,PS
RO,aDPTB

:CLR STATUS
“TEST PASS VECTOR = RT1
*PRIORITV=4
*LOAD XMIT BUFFER

#BIT6,aDPTS

*XMIT INT ENB

aDPTS

*READY CLEARED BY BUFF

004704

022626
104400

#21,TSTNO
#TST22 NEXT

175250

$
1¢:

CLR

S YES

aDPTS

;VERIFY READY

225 MS
;+ERROR

INTERRUPTS AT LEVEL 4

JAT 7 BITS PER (HARA(TER

IT3A

LOAD

‘REPORT ECROR

2500.

—_

O NN

—ed

ooooonorOONONON

SEQ 0033

;DOES LOADING XMIT BUFFER CLEAR XMT DONE

1596

1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608

PAGE 35

*TRANSMITTER FAILED TO INTERRUPT

INDICATOR/NOPOP.SP
;CLEAR INT ENB

cZ0P
MACY1? 30A(1052)
30~-JAN-79
CZDPAC.PI1
30=-2AN=79 15:40
1622
16238
1624
1625
1626
1627
1628
1629

1630
1631

[

003774

004002
004010

.
012737

012737
012777

1642
1643

004072
004074

104003
024646

1647

1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658

1659
1660

1661
1662

1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1676

}g;g

1677

!tttfi*t*ifi*'t

005077
012777
012737
052777
110077
052777
105777
100001
104000

1644

SEQ 0034

P OTEST 22

004016
004022
004030
004036
004044
004050
004056
004062
004064

1645
1646

PAGE 36

:tttfitttt*t*t.

1632
1633
1634
1635
1636
1637
1638
1639
1640

1641

15:40

004066

004076

004102
004106

004110

104403

005077

005077
022626

tfi*tttttt'ttfififi"i*ttf*tttfi*t*tttflttttttfitittttttt.tflttttttttttttfitt

000022

004112
000004

175216
004076
000200
000400
175172
000100
175156

001072

001062
175214

Tsree:

CLR

175222
177776
175166

MOV

175162

8IS

:CLR STATUS
JTEST PASS VECTOR = [T4A
JPRIORITY=4

#8178, 3DPRS

;7 BITS/CHARACTER

RO,aDPTR
#8176,aDPTS
aDPTS
.+4

MovB

1%:

175132

aDPTS
#1%,aDPTIV
#200,PS

MOV
BIS

004704

175130

#22.TSTNO
#TS 723, NEXT
#8172, 3DPRS

MOV
MGV
MOV

JLOAD XMIT BUFFER

JXMIT

TSTB
8PL
HLT
DELAY
,2500.
HLT
3
PUSH. SP
aDPRS
CLR
CLR
aDPTS

;REPORT ERROR

25 MS

cTRANSMITTER FAILED
INDICATOR/NOPOP SP

INTERRUPT

;CLR 7 BITS/(CHAR
;CLEAR INT ENB

POP. SP

1064400

INT ENB

:LEQD BUFFER (LEARED READY

SCOPE

;YES

;VERIFY READY INTERRUPTS AT LEVEL 4
;AT 6 BITS PER (HARACTER
JRRRARARAAAARR

P TEST 23
3

tfi*fifi*fitttfifit
tfififittltik*t*ttttttitttl*'ittttttttttttttttttiittttttttttttttttlttnt

004112
004120
004126
0CG4134
004142
004146
004154
004162
004166
004174
004200
004202
004204
004210
004212
004214
004220

004222

012737
012737
012777
012737
005077
012777
052777
110077
052777
105777
100001
104000
104403
104003
024646
005077
022626

104400

000023
004224
000004
000200
175072
004214
0010006
175054
000100
175040

001072
001062
175076
177776

TST23:

175076
175050
175044

004704

175012

MOV
MOV
MOV
MOV

#23,TSTNO
#TST24,NFXT

#8172,aDPRS

#200,PS
aDPTS
#1%,aDPTIV
#B119,3DPRS
RO.,aDPTB
#BIT6,aDPTS
aDPTS
.t4

5
1%:

2500.

aDPRS

;PRIORITY=4

. CLR STATUS
:TEST PASS VECTOR = ITSA

;6 BITS/CHARACTER

;LOAD XMIT BUFFER
JXMIT INT ENB
:$820 BUFFER CLEARED READY

JREPORT ERROR

;25 MS

JTRANSMITTER FAILED

;+ERROR INDICATOR/NOPOP.SP
;CLR 6 BITS/CHAR

INTERRUPTY

MACY11_30A(1052)
cZopP
30-JAN-79
CZOPAC.P1
30~JAN=79 15:40

15:40

1678
1679
1680

1699
1700

1701

sTEST SYNC BUFFER IS READ/WRITE
;NOTE:

b
b
b
d

PN —

D
d ed
D
b
b
) =D wnd

N=OVO~NONNESWN=O

)

NN SNNNNNNNNNNNY

SW09=1 WILL FREEZE ON CUPRENT SYNC

CARRPARAAANARAN
%

TEST 24

CRARRRRARRRRAR

012737
012737
012737
005037
005077
005077
105077
105777
001407
104000
113777
113700
117701
123777
001401
104001
104406
105237

001360

— o)

SEQ 0035

Sevsv,0,0

1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1657
1698

PAGE 37

112777
104400

000024
004346
004276
001136

001072

001062
001064

TST24:

174754
174755
174750
174744

001136
001136
174722
001136

174732

1$:

174714

#24,TSTNO

CLR
CLR
CLR
CLRB
TSTB
BEG
HLT
MOVB
MOVB
Movs
CMPB
BEQ
HLT

TMPDAT
aDPRS
aDPTS
@SYNC

MOV
MOV

#TST25 NEXT
#18,L0CK

aSYNC

TMPDAT ,aSYNC
TMPDAT RO
@SYNC R1
TMPDAT ,aCYNC
.t
1

INCB

TMPDAT

ggzge

#26,3SYNC

BNE

174672

MOV

SCOP1

001136
000026

LTI

;CLEAR TEST DATA
;CLEAR RECEIVER STATUS
s CLEAR SYNC
:

sRRANCH [F

SYNC CLEARED

JREPORT ERROR
;LOAD SYNC

J7EST IF LOAD CK
;BRANCH 0K
JREPORPT ERROR
JNEXT SYNC

cNO,TEST NEXT SYNC

cANY SYNC BUT ALL

1'S

JREAD/WRITE ALL CHARACTERS IN SYNC EXTENSION

sNOTE:

SW09=1 WILL FREEZE ON CURRENT SYNC

JRRRANRRRARRA
L
:

: TEST 25
:

IRRRRRARARRARR

SRR

012737
012737
032737

000025
004502
00400

001062
174454
001136
000017
001136
174614
001136
174604

001072
001062

TST25:

001134

001960
174626
174620

001136

A RN R RN AN AR R AR AR RN NN AR R AR R RNNNNRNN A RN AR RN AARRNRRR AR AR R RN

MOV

MoV
BIT
BNE

MoV

1%:

2$:

JMP
CLR

mMovse
MOVB
MOvVB

Movs
cMP8

BEQ

#25,TSTNO

#TST26 NEXT
#8178, SAVSR1
1$

;12 BITS/CHAR
:NO, BRAMCH AROUND TEST

aRETURN
TMPDAT

;LOAD TMPDAT WITH ZERDS

NEXT ,RETURN

#17 ,@SEXT
TMPDAT ,@SEXT
@SEXT,R1
TMPDAT ,RO
aSEXT, TMPDAT
R

;LOAD SYNC EXT WITH 1°S
sLOAD SYNC EXTENSION

;DID SYNC LOAD C(ORRECTLY
JYES

CZDP
MACY11_30A(1052)
30~JAN=79
CZDPAC.PI
30-JAN-79 15:40

1734
1735
1736
1737
1738
1739
1740
1741

004444

104001
104406

005237
022737
001355
105077

105777
001401

15:40

PAGE 38

SEQ 0036
HLT

001136
000020

SCOP1
INC
CMP
BNE
CLRB

00113¢

174554
174550

:REPORT ERRIR

TMPDAT
#20, TMPDAT
2%

INEXT SYNC
JHAVE ALL SYNL'S BEEN TESTED
:NO, CONTINUE TEST
;CLEAR SYNC EXT

ASEXT

1STR

ASEXT

BEQ

104000
104400

:TEST

HLT

SYNC

EXT

SYNC CLEARED

:REPORT ERRGR

SCOPE

Junkanannnwwknwrtt

SYNC

;JBRANCH IF

TESTS

sawanwavcnnnnnwnnnnnwnnnn

sSYNCHRONIZATION CHARACTER TEST
;ISSUE ALL SYNC CHARACTERS AND VERIFY THAT [T WAS THE
;CORRECT SYNC

;ttt*tttt*t*t*
"

; TEST 26
.'

:tttttttttt*lt
M 2222822222223

012737
012737
105077
005077
005077
012737
012737
012737
052777
012737
012777
104403
113777
117737
113777
105777
100375

032777
001401

104000
113777
012777
105777
100375

013777
052777

000026
005120
174522
174512
174500
000290
000377
000400
000004
000001
014536
013560
001144
174422
001144
174410

001072
001062

177776
001140
001142
176450
V1144
174450
174426

001152

174416

004000

174372

001144
004712
174354

174370
174366

001144
000100

174346
174330

1ST26:

MOV

CLRB
CLR
CLR

2$:

#26,TSTNO

#TST27 NEXT
aSEXT
aDPTS
aDPRS

JCLEAR SYNC EXTENSION
;CLEAR TRANSMITTER STATUS
cCLEAR RECEIVER STATUS

#4,00,8PC
#81T72,aDPRS

JINDEX TO CHANGE BITS/CHAR
JMAINT MODE

.6000.

;10 CHAR TIMES FOR ALL 1°'S IN BUFF

TSYN(C,aDPTB

;LOAD FIRST SYNC CHAR

MOV
MOV

#200,PS
#377,SLIM

MOV
MOV

#1,TSYNC
#FRINT ,aDPRIV

MOVB
MOVR

TSYNC,aSYNC
aSYNC,TDATA

TSTB

aDPTS

BIT

#81T11,aDPRS

MOV
8IS
1%:

232422222 2222222222222
R
2R
R R R R R
R R PR SRS
E

DELAY

MOVB
BPL

BEQ
HLT

MOovB
MOV

.~
R IA

TSYNC,aDPTR

#3% ,aDPRIV

TST8

aDPTS

MOV
BIS

TSYNC.aDPTB
#B1T6,3DPRS

B8PL

;PRIORITY=4
JSYNC LIMIT FOR 8BITS/CHAR

JFIRST SYNC = 1
JSET UP RECEIVER INT VECTOR TO ERROR

;LOAD SYNC BUFFER
sSTORE SYNC
JREADY FOR NEXT

;NO TEST AGAIN

SYNC

;TEST FOR PREMATURE ACTIVE

;BRANCH [F NOT SET
;PREMATURE ACTIVE

;LOAD SECOND SYNC BYTE
JSET UP TEST VECTOR

; TRANSMITTER READY

:NO

JXMIT 3ED SYNC AS DATA
JRCV INT ENB

CZ0P
MACY11_30A(1052)
30-JAN-79
CZDPAC.P11
30-JAN=79 15:40
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817

004702
004706
004710
004712
004720
0047246
004730
004736
004740
004746
004750
004754
004756
004760
004766
004774
004776
005000
005006
005014
005022
005024
005026
005030
005036
005044
005046
005052

104403
104004
024646
017737
013701
013700
023737
001404
042777
104001
105777
100001
104000
042777
032777
001001
104000
112777
042777
032777
001401
104000
022626
042737
032737
001002
105237
123737

1819
1820
1821

005062
005066
005074

005037
(053777
006237

1818

1822
1823
1824
}ggg

005060

GO5100
S106
005114
005116

001246

062737
022737
001225
104400

15:40

PAGE 39

005670
)
174316

001136

001144

000004

174264

001136
001144

174256

4%:

000100
004000

174244
174236

000026
004000
004000

174230
174216
174210

000040
040000

177776
177570

001144
001140

001144

001144
001142
001140

000400
001400

3%:

5%:

)
174136

001142
001142

SEQ 0037
DELAY
,3000.
HLT
4
PUSH. SP
MOV
aDPRB, TMPDAT
MOV
TMPDAT ,R1
MOV
TSYNC,RO
CMP
TMPDAT, TSYNC
BEC
4%
BIC
#B172,3DPRS
HLT
1
T1STB
aDPRS
BPL
. +4
HLT
BIC
#8176,aDPRS
BIT
#81T711,aDPRS
BNE
.44
HLT
MOVB
#26,aSYNC
BIC
#81711,aDPRS
BIT
#BIT11,aDPRS
BEQ
R
HLT
POP.SP
BIC
#81T5,PS
817
#BIT14,SWR
BNE
5%
INCB
TSYNC
MP
SLIM,TSYNC

BNE

CLR
BIS
ASR

TSYNC
BPC,aDPRS
SLIM

ADD
(MP
BNE
SCOPE

#400 ,BFC
#1400 ,BPC
1%

]lgsg

JexnnaxxxSYNC

1829

JRRANRANRRRARR

1830
1831
1832

:
s
;

1833

EXTENSION

;CORRECT SYNC (HARACTER
JYES
;NO,SHUT OFF CLOCK
JREPORT ERROR
;DONE CLEARED
JYES

JREPORTM ERROR

;CLFAR REV INI ENB
;RECEIVER ACTIVE
JYES
;REPORT ERROR
s CHANGE SYNC
JCLEAR RECEIVER ACTIVE
JRCY ACTIVE CLEARED

;YeS
;REPORT ERROR
;SET PRIORITY TO &
sTEST FOR SCOPE LOOP
;BRANCH AROUND IN(C IF SCOPE
JNEXT SYNC
JHAVE ALL SYNC'S BEEN TeSTED

:NO

S YES
;DEC BITS/CHAR BY 1 BIT
;DECREASE #8I7S/(CHAR

;DEC BITS/CHAR BY 1 BIT
JHAVE ALL CHAR SEIZES BEEN TESTED
sNO

TESTaxsxwnnansnx

IRERRENNARNRAN

1834

1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845

TEST 27

sSTALL 10 CHARACTER TIMES
JREPORT ERROR
;+ERROR INDI(ATOR/NOPOP.SP
;SAVE DATA

005120
005126
005134
005142
005144
005152
(005156
005164
005172
005176
005204

012737
012737
032737
001005
013737
000177
012777
012737
105077
112777
012737

000027
(005534
000400

(€01072
001C62
001134

001062
173704
002104
000400
174040
000001
007400

0C1060
174046
001144

174040
001140

TST27:

1%:

AR AR AR R AR R AR R AR AR AR R R A AR AN RN R AN NN A RNA VIR N ANO R AR AAR RN N RN NN AR

MOV
MOV
BIT

BNE
MOV
JMP
MOV
MOV
CLRB
MOvB
MoV

#27,TSTNO
#TST30,NEXT
#B1T8,SAVSR1

1%
NEXT ,RETURN
aNEXT
#2104 ,aDPRS
#4600, TSYNC
aSYNC
#1, 3SEXT
#7400,SLIM

:DOES TWELVE BIT OPTICN EXISTY
;sBRANCH If NOT
sSET STATUS TO 12 BITS/CHARACTER
sFIRST SYNC CHARACTER
JLOAD SYNC BUFFERS WITH 400
;LOAD SYNC BUFFERS WITH 400
JSET UP SYNC LIMIT

CZDP
MACY11_30A(1052)
30-JAN-79
CZDPAC.P11
30-JAN=79 15:40

15:40

1846
1847
188
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878

005212
005220
005226

012737
012777
104403

002000
016536
006000

005232
005236
005244
005252
005256
005260
005266
005270
(05272
005300
005304
005306
005314
005322
005330
005334
005336
005344
005346
005350
005354
005356
005360
005366
005372
005376
005404
005406
005410

105077
113777
013777
105777
100375
032777
001401
104000
013777
105777
100375
012777
052777
013777
105777
100375
032777
001001
104000
104403
104004
024646
017737
013700
013701
023737
001401
104001
022626

174000
001145
001144
173762

174000
173770

004000

173752

001144
173734

173742

005360
000100
001144
173704

173732
173710
173712

004000

173666

1880
1881
1882
1883

005420
005426
005434
005442

1879

005412

042737

042777
042777
032737
001002

1884
1885
1886
1887
1888
1889
1890
1891
1892
1893

005444
005450
005456
005460
005466
005470
005474
005500
005506
005514

105237
123737
001404
112777
000654
005037
006237
043777
062737
053777

1895
1896

005530
005532

001233
104400

18%

005522

022737

001142
174020

PAGE 40

2s:

013560
173650
001144
001136
001144

000040

004000
000100
040000

001136

177776

001141

000026

173550

003400

4$:

5%
173524
001142
173510

001142

MOV
MOV
DELAY

#2000,BP(
#FRINT ,aDPRIV
,6000

CLRB
MOVB
MOV
TSTB
BPL
BIT
BEQ
HLT
MOV
TSTB
BPL
MOV
BIS
MOV
TSTR
BPL
BIT
BNE
HL T
DELAY
HLT
PUSH. SP
MOV
MOV
MOV
P
BEQ
HLT
POP. SP

aSYNC
TSYNC+1,aSEXT
TSYNC,a’DPTB
aDPTS
=4
¥81T11,aDPTS
.+4

BIC

173604
173576
177570

001145
001145

001144
001140
001142
000400
001142

38:

SEQ 0038

BIC
°
BIC
BIT
BNE
INCB
CMPB
BEQ
MOVB
'
BR
CLR
ASR
8](
ADD
BIS

CMP

BNE
SCOPE

TSYNC,aDPTB
aDPTS
=4
#3% ,aDPR]V
#8176 ,3DPRS
TSYNC,aDPTB
@DPTS
.4
#B1T11,aDPRS
.+
,6000.
4
@DPRB, TMPDAT
TSYNC ;RO
TMPDAT ,R1
TSYNC, TMPDAT
.+
1

#BI1T5,PS

#BIT17,aDPRS
#B1T6,3DPRS
#81T14,SWR
4$

;SET # BITS/CHAR TO 12
JRCV INTERRUPT VECTOR = ERROR
SWAIT FOR ALL 1'S
sTO SHIFT INTO XMIT,RCV BUFS
;CLEAR SYNC EXTENTION
:LOAD NEXT SYNC
;s TRANSMIT FIRST SYNC
JWAIT FOR "DONE'’

:
:TEST FOR PREMATURE "ACTIVE''
:NO
:REPORT ERROR
s TRANSMIT SECOND SYNC
:WAIT FOR “DONE''
:
sSET UP RECEIVER INT VECTOR
:RCV INTERRUPT ENABLE
sTRANSMIT 2ED SYNC AS DATA
:WAIT FOR "DONE"'

:
sTEST FOR ACTIVE
;0K
:REPORT ERROR
:WAIT FOR INTERRUPT
:DEVICE FAILED TO INTERRUPT
;+ERROR INDICATOR/NOPOP.SP
;SAVE RECEIVED DATA

: COMPARE SYNC
:BRANCH IF SYNC OK
;REPORT ERROR

;LOWER PRIORITY
:CLEAR ACTIVE
:CLEAR INT ENB
:TEST FOR SCOPE LOOP

:BRANCH AROUND INC IF SCOPE
:INC_TO NEXT TEST SYNC
HAVE ALL SYNC'S BEEN TESTED
SYES

TSYNC+
TSYNCH1,SLIM#T
5%
#26,aSYNC
2%
TSYNC
SLIM
BPC ,@DPRS
#400,BPC
BPC,aDPRS

:CLEAR OLD CHAR SIZE
:INC BITS/CHAR TO NEXT SIZE
:CHANGE BIT MODE

:BRANCH UNTIL ALL SIZES HAVE BEEN TESTED

#3400,8PC

:CLEAR TSYNC
:DECREASE SYNC LIMIT

:CHECK CHARACTER SIZE

CZ0P
MACY11_30A(1052)
30-JAN-79
CZDPAC.P1
30~JAN=79 15:40

15:40

1897
1898
1899

1900

PAGE 41

1901

SEQ 0039

AR AR AR

R R AR AR AR AR AR A AR

R AR A AN AR AN AN TR AN R AN

AR RN NN

AAR A NN

}%%

; IDLE SYNC TEST

138%

;RAISE “ACTIVE'' BY IDLEING IN EACH AVAILABLE CHARACTER LENGTH

1906

SRR RRARR

1907
1908
1909

.
. TEST 30
H

1910

SRR AR AR AR AR AN R RN A AR R RA R AR R R AR AR

1912
1913
1914
1915
1916
1917
1918
1919

005534
005542
005550
005556
005562
005566
005572
005574

012737
012737
012737
005077
005077
013703
005203
052777

000030
006134
000026
173456
173444
001232

001072
001062
001144

000004

173430

1922
1923
1924
1925
1926
1927
}ggg

005606
005612
005620
005626
005634
005642
005650

104403
012777
113777

113777
013777
052777
052777

013560
005666
001144
001145
001144
000002
000100

_
173426
173410

1930
1931
1932
1933
1934

005656
005662
005664
005666
005674

104403
104004
024646
017737
022626

1935
1936
1937

1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
}gg;

JRRRRRRANRAARSL

1911

}gg?

AR A RS

005602

005676
005700
005704

005710
005716
005720
005722
005724
005730
005732
005734
005740
005744
005752
005754
005756
005762
005754

012702

000412
013700
013701

023737
001401
104001
000475
105737
001401
104200
013700
013701
123737
001401
104001
105777
100001
104000

006112

TST30:

1%:

173410
173400

00?144
001136
001136

001144
001136
001136

173250

2%:
3$:

001144

001137

DELAY
MOV
MOvB

,6000.
#2%,3DPRIV
TSYNC,aSYNC

BIS
BIS

#B81T1,aDPTS
#B176,38DPRS

MOVB
MOV

173370
173354

001136

#30,TSTNO
#TST31,NEXT
#26,TSYNC
aDPTS
aDPRS
DPRS,R3
R3
#B81T2,aDPRS

MoV

027340
173342

MoV
MoV
MoV
CLR
CLR
MOV
INC
BIS

4%:

001144

5%:

#6$ R?

TSYNC+1,aSEXT
TSYNC,aDPTB

DELAY
,12000.
HLT
4
PUSH. SP
MoV
aDPRB, TMPDAT
POP.SP
BR
MoV
Mov

CMP
BEQ
HLT
BR
TST8
BEQ
HLT
MoV
MOV
(MPB
BEQ

HLT
TSTB
BPL
HLT

4s
TSYNC,RO
TMPDAT ,R1

TMPDAT , TSYNC
.4
1
3%
TMPDAT +1
.+

TSYNC,RO
TMPDAT ,R1
TMPDAT , TSYNC
. +4
1
aDPRS
.+

AR R AR NNRARRR I AR RANAANRRANC

R R

;LOAD TEST SYNC CHARACTER

;CLEAR STATUS REGISTERS
;
SFETCH DEVICE ADRS
sCHANGE ADRS TO HIGH BYTE OF
:START MAINTENANCE

STATUS

;SET UP CHARACTER LENGTH SELECTOR

JWAIT FOR ALL 1°'S TO SHIFT IN
sLOAD DP RCV_INTERRUPT VECTOR
;LOAD LOW BYTE OF SYNC
sLOAD SYNC EXTENSION BITS
;LOAD XMIT BUFFER
sSET IDLE SYNC
;SET RCV INTERRUPT ENABLE
;WAIT FOR RCV INTERRUPT
;REPORT ERROR
;+ERROR INDICATOR/NOPOP.SP
:SAVE RCV DATA
;CONTROL WORD 12 BITS=BR

.+2

;DOES SYNC CHECK
JYES
;REPORT ERROR
;VERIFY ONLY 8 BITS WERE

TRANSMITTED

JBRANCH IF 0K
JREPORT ERROR
sCHECK SYNC IN LOW BYTE
sBRANCH IF SYNC OK
sREPNRT ERROR
:DID READING RCV BUFF CLR DONE
JYES
JREPORT ERROR

1967

1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984

15:40

PAGE 42

SEQ 0040

042777
032777
001401

004000
004000

#B1711,aDPRS
#B1T11,aDPRS

042777
042737
022626

000002
000040

#BIT1,aDPTS
#81715,PS

104000

162213
152213
020227
001264

.*4

(R2)+,aR3
(R2)+,a3R3

?%.#6504

006116

;CLEAR ACTIVE

JACTIVE
JYES

CLEARED?

JADJUST

STACK

JREPORT ERROR
JCLEAR IDLE
;LOWER PRIORITY 10 4
;CLEAR (HAR LENGTH

JSELECT NEXT CHAR LENGTH

END OF MODE?
NO
TEST 12 BITS/CHARACTER

032737
001424
032777
001020
052777

000400

001134

;21T8,SAVSR1

002000

173156

002000

173146

:YES
:NO

042777
012737
012737
000636
000403

001400
000400
001426

173136

#B1T710,aDPRS
7$
#81T10,3DPRS
-(R2). -(RZ)

#5400, 38

;CHANCE

012737

000026
000412

024242

001003

012737
104400

005676
001144
6%:

001144
005676

7%:

#1400, aDPRS

MOV
MOV
B8R

:1426 TSYNC

403
1003

#26,TSYNC
#612,3%

MOV
MOV

SCOPE

sxawnxx INTERRUPT DRIVEN SCQUENTIAL DATA

END OfF

12 BIT TEST

;ADJUST CHAR SELECTION

;CLEAR (CHAR LENGTH |SB'S
CONTROL WORD

. CHANGE SYNC

. CHARACTER LENGTH SELECTION
s CHARACTER LENGTH SELECTION

JRESTORE TSYNC

JRESTORE

CONTROL

WORD

TEFSTaxaannnn

CRRAANARNANNAAAR

0,8,
8,

1964
1965
1966

005766
005774
006002

30-JAN-79
30=-JAN=79 15:40

TEST 31
*

1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963

30A(1052)

CHANRRRARRNAN
RN

MACY11

CRHAANAARARNAAAARNRTNNNANNRNNRANRN
NN
ANRARSY LA RS SRRRARRSR
AR
RE]

012737
012737
012737
105077
005037
005037
005077
012777
012737
032737
001414
012737
052777
012737
105277

012777

000031
006346
006344
173062
001154
001152
173042
000005
000400
000400

010000
002000
000426
172774

000400
000026
014542
014650

(0P

TZDPAC.P11

001072
001062
001174

TST31:

173026
001156

001134

001160
172774
001144
001160
001144
172756
172744

1%:

2%:

MOV
MOV
MoV
CLRB
CLR
CLR

CLR
MOV
MOV
BIT
BEQ
MCV
BIS
MOV
INCB
BR
MOV
MOV
MOV

MoV

#31,TSTNO
#TST32,NEXT
#3$ BACK
SSEXT
RDATA
TDATA
aDPTS

;CLEAR SYNC EXTENTION
s INIT RCV DATA
JINIT XMIT DATA

sTRANSMITTER STATUS

#5,3DPRS
#400, CHLEN

;CLOCK ON + STRIP SYNC
;CHAR LENGTH INDEX

#1000G,L IMIT

;SELECT END OF DATA
;SELECT 12 BITS/CHARACTER

qglré SAVSR1

#81710,aDPRS

:LSST 12 BIT CHAR MODE

#4626, TSYNC
ASEXT

;SYNC FOR 12 BIT (HAR

#400,L IMIT
#26, TSYNC
#TV18,aDPT1V
#RV18,aDPR]V

; TEMPORARY

JPLACE

S INIT

MSB OF

SYNC

(HARACTER L IMIT

STORAGE

s TRANSMITTER

VECTOR

JRECEIVER VECTOR

EXT

czCe
MACY11_30A(1052)
30-JAN-79
CZOPAC P
30-JAN-79 15:40

009
2010

2011
2012
2013
2014
2015
2016

2017

006302
006310
006316
006324
006332

006340
006342
006344

012737
012737
113777

052777
052777

000200
000003
001144
000100
000340

15:40

PAGE 43
SEQ (041

177776
001162

MOV
MOV

172712
172700
172700

000001
000776

MovB

BIS

18:

JPRIORITY=4

TSYNC,aSYNC

;LOAD SYNC
JRCV _INT ENB

JSYNC COUNT=3

#B1T6,aDPRS

#340,aDPTS

WAIT

104400

#200,PS
#3,SCNT

BR
SCOPE

;STATUS INT ENB
;TRANS INT ENB
; TRANS DONE
JWAIT FOR INTERRUPTS

sxxxnv2RANDCM DATA,

RANDOM STALL*txxnwx

;t.tttttttttfi'

: TEST 32
.

Ett**'t'k.tt*t
CHRARA AR A A RN AN AR AN AN AN NN AR AR RNARARN

006346
006354
006362
006374
006402

012737
012737
005037
012737
113777

004737

000032
006472
001156
000026
001144
013112

001072
001062
001144
172634

TST32:

MOV

MOV
CLR

MOV

MOVB
JSR

#32,TSTNO

AN A AANAN NN AARRARANANRRANNNNANINEN
NN S

#TST33 NEXT
CHLEN

;SET CHAR LENGIH TO 8 BITS

TSYNC,aSYNC
PC,AND

:LOAD SYNC BUFFER
JEXECUTE DATA + STALL MODES

#26, TSYNC

JSYNC = 26

;REPEAT PREVIOUS TEST AT 7 BITS/CHAR

006406
006414

006430

012737
052777
042777
004737

000200
000400
004000
013112

001156

172610
172602

MOV

BIS
BIC

JSR

#200, CHLEN

#8118, aDPRS
#81711,aDPRS
PC,AND

;SET CHAR LENGTH TO 7 BITS

;7 BITS/CHAR
sCLEAR ACTIVE
JEXECUTE DATA + STALL MODES

;REPEAT PREVIOUS TEST AT 6 BITS/CHAR
0064 34
006442
006456
006464
006470

012737
042777
052777
042777

000300
000400
001000
004000

MOV
BIC
BIS
8IC

#300, CHLEN
#8]118,aDPRS
#81T19.aDPRS
#81111,aDFRS

;SET CHAR LENGTH TO 6 BITS

004737

013112

JSR
SCOPE

PC,AND

JEXECUTE DATA & STALL MODES

104400

;SET MODE TO 6 BITS/CHAR
sCLEAR ACTIVE

CZ0P
MACY11_30A(1052)
30 JAN-79
CZDPAC PN
30-JAN=79 15:40

15:40

PAGE 44

SEQ 0042
;annnwnaxPARITY

TESTrennnn

;VERIFY "PARITY'* BIT=1 FOR ODD PARITY AND=0 FOR EVEN
;ttt*fi't*tfit!t
:

;

TEST 33

;*.fi**'.*""'

012737
012737
012737
005077
005077
012737
012737
005037
005037
105077

012737

113777
012737

005077
005077
032737
001406
012737
052777
012737
012777
012777
052777
052777
000001
000776

000033
006676
006674
172512
172514
001401
000400
001154
001152

172470
000026
001144
000003
172430
172432
000400

010000
002000
000200
015320
015410
000105
000300

001072
001062
001174

AR A AR A AN AN AR RN

AR RN AN R R R AAN R

TST33:

#33,TSTNO
#TST34 NEXT
#2% ,BACK
aDPRS
aDPTS
#1401 ,RPRT1

MOV
MOV

MOVB
Mov

#3,SCNT
aDPRS
aDPTS

CLR
CLR
BIT
BEQ

001134

104400

#6400,LIMIT
RDATA
TDATA
@SEXT
#26,TSYNC
TSYNC,aSYNC

CLR
CLR
CLRR
MOV

001144
172446
001162

172404
172372
172350
172350

MoV
MOV

CLR
CLR

015454
001160

001160
172400
177776

MOV

qEITB.SAVSR1
#10000,LIMIT
#81710,aDPRS
#200,PS

MOV

1%:

2%:

8IS

MOV
MOV
MOV
8IS
8IS
WAIT
BR

#TPRTY ,aDPTIV
#RPRTY ,aDPR]V
#105,3DPRS

#300,aDPTS

AR AR AN AN AAAAN A RN

ANARARARNR AR AN

;LOAD RPRT2WITH BEQ .+4
:SET UP CHARACTER LIMIT

;CLR RCV DATA
JCLR XMIT DATA
cCLEAR SYNC EXTENTION
JSET UP SYNC
JINIT SYNC

;3 SYNC'S

sCLR RECEIVER STATUS
s CLR TRANSMITTER STATUS

;8/12 BITS/CHAR

;BRANCH IF 8 BITS/CHAR
JSET LIMIT TO 12 BITS/CHAR

JSELECT 12 BIT MODE

JPRIORITY = 4
;TRANSMITTER PARITY

TEST

VECTOR

JRCV INT ENB, STRIP SYNC,
JXMIT INT ENB,DONE

CLOCK

JRECEIVER PARITY TEST VECTOR

SCOPE

JRECEIVER OVERRUN TST
IRRRRAARANNNRR
:

; TEST 34
.

:t*itt**tttttt

;tttttttttttfittttttttttttttttttitwtttttt'tttttttttttttttti‘ttttttfi'tn

006676
006704
006712
006716

006722
006730
006736
006740
006746
006754

012737
012737
005037
105077
112777

032737
001403
012777
012777
052777

000034
007136
001136

001072
001062

000026
000400

172306
001134

002000

172264
172276
172250

172322

007072
000004

TST34:

MOV
MoV

CLR
CLRR

MOVB

BIT
BEQ

1%:

MOV
MOV

BIS

#34 ,TSTNO

#TST35 NEXT
TMPDAT
aSEXT
#26 ,aSYNC

;STOR TEST CHAR IN TMPDAT
;CLEAR SYNC EXTENTION
;LOAD SYN(C BUFFER

#B1T10,aDPRS
#3%,aDPT]V
#B1T72,aDPRS

sTURN ON CLOCK

qngB,SAVSR1

:8/12 BITS/CHAR
;BRANCH [F 8 BITS/(CHAR
JSELECT 12 BITS/CHAR
JXMIT

STATUS

INT VETTOR=0'RUN

ir S-Sy i

NN PNIAIN NI NI PN

Sy ir-

Sihr

PORNIMNON)
= Db DD D b

Slir G4

PNINI NNV

(Z0P
MACY11_3CA(1052)
30=-JAN=79
CZDPAC P11
30-JAN=79 15:40

006752
0067656
006774
007000
007002
007010
007014
007016
007024
007030
007032
007040
007044
007046
007054
007062
007066
007070
007072
007100
007102
007104
007110
007116
007120
007126
00713¢
007134

104403

052777
105777
100375

013560
000200
17240

15:40

172264

012777

000026
172224

172232

012777

000026

172216

013777

001136

172202

013777
052777

001136
000040
005670

172 166
172156

047200

172140

105777
100375

104403
104000

024646
032777
001001

172210

172174

172130

PAGE 45

SEQ 0043

2%:

DELAY
BIS

,6000.
#B177,3DPTS

TSTB

aDPTS

B8PL

MoV

aDPTS

Mov

#26,3DPTB

.=b

cTRANSMIT FIRST

SYNC

TMPDAT ,aDPTRB
aDPTS

;TRANSMIT

DATA

TMPDAT ,aDPTR

;TRANSMIT DATA (HAR #2

oV
1ST8

MoV

. =4

.~4

BIS
DELAY

#B1T5,dDPTS
,3000.

HLT

PUSH. SP

BIT

#BIT14,aDPTS

BNE
HLY
CLR

.+4

aDPTS

004000

172114

8I1C

#BIT11,aDPRS

000040
001136

177776

BIC

#BIT5,PS

POP.SP

TMPDAT
2%

INCB
BNE
SCOPE
DUPLEX

TO CLEAR

SECOND

aDPTS

B8PL

JHALF

FOR BCV

; TRANSMIT

1ST8

BPL

104400

s DONE

#26,3DPTR

T1ST8B

BPL

3s:

;WAIT

SYNC

(HAR #1

JSET STATUS INT ENB

;WAIT

FOR O'RUN INTERRUPT

JREPORT ERROR, NO O'RUN INT
;+ERROR INDICATOR/NOPOP.SP
sTEST FOR O'RUN
;JBRANCH IF O'RUN CAUSED INT
sREPORT ERROR
vy CLEAR XMIT STATUS
;CLEAR ACTIVE

;LOWER PRIORITY TO 4
sINC TO NEXT DATA
;BRANCH [F NOT END

TEST

;**t*'*fi"fifil"
:

TEST 35

’

PAAAAEELL
DS S E
A
AR

LoleJRNTe NV, PXVI,N]

4
i
i
S
JEhr iy S-S

OV AVALYL
IV IV, IV, 1V, [6,)

WACTAN 1IN 1, T,V 1,V 1,8 1, ¥

007136
007144

007152
007156
007164
007172
007176
007204
007212
007220
007224
007230
007232

012737
012737
005077
012777
012777
005037
012737
113777
052777
104403
105237
001365
104400

000032
007340

001072
001062

000103
014536
001144
000200
001144
000002
005670
001144

172046
172054

1.2062

177776
172024

172020

AAR SRSl

TST35:

MOV

MOV
CLR
MOv

MOV

1%:

CLR
MOV
MOvB

BIS
DELAY
INCR
BNE
SCOPE

JNOTE END OF

RRRRE

#35,TSTNO

#TST36,NEXT
aDPTS
#103,3DPRS

#FRINT ,aDPRIV

TSYNC
#200,P3
TSYNC,aSYNC

#817T1,aDPTS
,3000.
TSYNC
1%

THIS TEST.

;CLEAR TRANSMITTER STATUS

JHALF

DUPLEX,INT

EN,TURN CLK ON

JSETUP TEST VECTOR
;CLR TEST SYNC

JPRIORITY=4

;LCAD SYNC BUFFER
;IDLE SYNC

;DELAY 20.1 MS
:HSVE ALL SYNC REEN TESTED
.N

TR R

(Z0P
MACY11_30A(1052)
30~JAN-79
CZDPAC.PIM
30=-JAN=7S 15:40

15:4C

2160

2161
2162

2163
2164
2165
2166
2167

g}gg

2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180

2181
2182
2183

007234

007236
007244
007250
(07256
007262
007264

000005

012737
012706
012737
105737
100005

004737

177777
001050
000340
177570

001150

PAGE 46

SEQ 0044

;xveeaaPART2 DB2SS (ONNECTOR TEST SECTION®*#swane
BEGINZ: RESET

MOV
MOV
MOV
TSTR
BPL

177776

012514

#-" CABLE
#STACK,SP
#340,PS
SWR
BGNOA

JSR

PC,CLRVEC

007270
007274
007276
007302
007306
007314
007316
007324
007330
007336

004737
000404
004737
004737
032737
001405
012737
000177
012737
000240

012234
01254
0123090
00000.
03i2022
171530
007306

BGNOA:
001124

PART?2:

001060
001060

1%:

JSR
BR
JSR
JSR
BI1
BEQ
MOV
JMP
MOV
NUP

PC,l INE.N
PART?
PC,CLRVEC
PC,LINE.X
#B1T70,SAVSR1
1%
#PART3 ,RETURN
oRE TURN
#PART2 ,RETURN

21864

JaxexwsTEST 1: CABLE TESTS

2186

2232332222222

2187
2188
2189

:
.
:

2185

2190

2210

SS};

2213
2214

TEST 36

;

HALT
FETCH LINE NUMBER FROM SWR

JRRRRRAANRARNL

2191

2192
219%
2194
2795
2196
2197
2198
2199
220C
2201
2202
2203
2204
2205
2206
2207
2208
2209

JSET UP STA(K POINTER
;SET PROCESSOR PRIORITY = 7
JTEST FOR CHANGE IN DP ADRS
JBRANCH [F NO CHANGE
:LOAg ENTIRE VECTOR AREA WITH

SRR

007340
007346
007354
007360
007362
007370
007372
007400
007404
007410
007416
007422
007426
007432
007440
007446
007454
007462

007464

007466

012737
012737
005737
001013
032737
9001405
012737
000177
000137
112777
005077
105077
005077
012777
012777
012777
012777
104401

000030
104400

000036
007470
001150

001072
001062

000001

001134

012022
171454
016002
000026
171616
171616
171600
014532
014536
000240
000240

001060
171620

171612
171600
171574
171572

AR A AR AR AR AR A AN R

T5T36:

1%:

MOV
MCV
TST
BNE
BIT
BEQ
MCv
JMP
MP
MOYB
CLR
CLRR
CLR
MOV
MOV
MOV
MOV
(LOCK

A AR R RN AR AR AR AR AR AN AN AN RN R AR RN AN R R AN RS R RN NI AR

#36,TSTNO
#TST37 NEXT
CABLE
1%
#8170,SAVSR1
.14
#PART3 RETURN
aRE TURN
.EOF
#26,3SYNC
QDPTS
aSEXT
aDPRS
#FTINT ,’DPT]IV
#FRINT ,aDPR]IV
#240,3DPRP
#240,3DPTP

sCLEAR NOISE FROM SYNC
sCLEAR TRANSMITTER STATUS
;CLEAR SYNC EXT
;CLEAR RECEIVER STATUS
;SET UP TRANSMITTER TEST VECTOR 1
JSET UP RECEIVER TEST VECTOR 1
sSET UP RECEIVER PRIORITY=6
JSET UP TRANSMITTER PRIORITY=6
JRUN CLOCK

SCOPE

sSYNCHRONIZATION (HARACTER TEST 8/12 BITS/"HARACTER
JINTERRUPT ENABLE, COMPARE SYNC, TEST PARITY

MACY11 30A(1052)
(ZDP
30= JAN=79
CZOPAC.PN
30-JAN-79 15:40

15:40

2216
2217
2218
2219
2220
2221

PAGE 47

SEG 0C«5

JERERRRRRRNNNS
.

;

TEST

37
w

;.ttt'.ttt'.tt

:Qfittt"tfiltQQ"Q".i'tfifififi'flQ.t'ttflfitlitttttt'tt..ttt'.t'ttt.t'.."'

012737
012737
004537
012737
000403

000027
007760
013524
000376

012737
012737
012777
012737

007776
007710
0146542
000003

001072
001062

1ST37:

001174

171510

001162

JSET UP 12 BITS/CHAR LIMIT

1%:

MOV
MoV
MoV

#2$ ,BACK
#Tv18,aDPT
IV
#3,SCNT

MovVB
B1S
BIS

TSYNC+1 ,@SEXT
#8176,aDPRS
#300,aDPTS

01000

BIT

#B8179,aDPTS

004000

%XCLK

BNE
HLT
CLOCK
10

171376

BiT

BFQ
HLT

TSYNC,aSYNC

#BIT11,aDPRS
.+

BIT

BEQ
HLT

#BIT11,3DPTS
.t4

?XCLK

171342

BIT

#BIT11,aDPRS

015622

171344

MOV

#SRVS ,aDPRIV

000026
001144
001160

004000

17174

001144

BNE
HLT

CLOCK

2%:

10
HLT
BIC

8IC
BIT
BNE
MOVB
INC
(mp

BNE

INT VECTOR O SYNC

;LOAD SYNC BJFFER
sLOAD SYNC EXT
JRCV _INT ENB
JXMIT INT ENS
:SE?D REQULST UP?

JREPORT ERROR

:RSCEIVER ACTIVE

;REPORT ERROR
JRUN (.0CK

171366

;SET XMIT

JSYNC COUNT = 3

JRUN CLOCK

CLOCK

004000

;SET UP RCV SERVICE RETURN

LRUN (1 OCK

MCVR

004000
000100
040000

023737
001267

#7776, LIMIT

MOV

001144
001145
000100
C00300

—h

104402

000003
032777
001601
104000
104401
000010
032777
001401
104000
104401
000007
032777
001401
104000
104402
000001
032777

.+10

SNNN
~N - -2
N
NN
N ——
O

052777
05¢777

SREINIT FOR TEST
;8 BIT SYNC LIMIT
JBRANCH AROUND 12 BIT LIMIT

#3706, IMIT

CLOCK

—

113777
113777

#TST40, NEXT
RS, REE

:REE WILL ENER HERE IF 12 BITS/CHAR

104401

000030

#37.TSTNO

MOV
JSR

MOV

001160
001160

MOV

#BIT11,aDPRS
#B116,aDPTS

#31714,SWR
1%
#26,3SYNC

TSYNC
LIMIT,TSYNC

:RCV
;NO

ACTIVE?

;REPORT ERROR

JRCV ACTIVE?
;YES

JREPORT FRROR

;TEST PASS VECTOR

JRUN CLOCK

;REPORT ERROR

;CLEAR ACTIVE
;CLEAR INT ENB

.TEST FOR SCOPE

LOOP

;BRANCH IF SCOPE LOOP

s CHANGE SYNC
JNEXT SYNC, ENTRY FROM INTERRUPT
JHAVE ALL SYNC'S BEEN TESTED

czopP
MACY1 30A(1052)
30-JAN~-79
CZDPAC PN
30~-JAN=79 15:40

2272
2273
2274
2275
2276
2277
2278
2279
2280
2281

007756

15:40

PAGE 48
SEQ 0046

104400

SCOPE

;SYNCHRONIZATION CHARACTER TEST 7/17 BITS/CHARACTER
s INTERRUPT ENABLE AND SYNC CHARACTER (HECK
;tt*tfitttttttt

Y TEST 40

;i*fiil*ififii*tt
"l**t*'tttt*i'tfltttifi**t**tQtttttth'tfitttttfl'itttttttfitttttttt.fi'ttttt

007760
0077¢6
007774

012737
012737
004537

000040
010256
013524

001072
001062

010000
010006

012737
000403

006176

001160

010010
010016
010024

012737
052777
012737
012777
012777

003776
000400
010206
014536
014542
000003

001160
171206
001174
171206
171204
001167

010054
010056

012737
104401
000024
113777

052777
052777

001144

000300

000100

TS140:

MOV
MOV
JSR

JRETURN HERE

MoV
BR

JRTETURN HERE

1%:

MOV
8IS
MOV
MOV
MOV
MOV

S%OCK

171150
171144
171130
171124

042777

#176,LIMIT
.+10

;7 BIT LIMIT
JBRANCH AROUND 12 BITS/(HAR LIMIT

#3776,LIMIT
#B8178.,aDPRS
#2% ,BACK
#FRINT ,aDPRI1V
#TV18,aDPT]V
#3,SCNT

;11 BITS/CHAR LIMIT
;7/11 BITS PER CHAR
;SET UP RCV SERVICE RETURN
JFALSE INT TEST VECTOR
JSET "MIT INT VECTOR TO SYNC
JXMIT 3 SYNCS

12 BITS/CHAR

DPY

JRUN CLOCK

TSYNC,aSYNC
#300,aDPTS
#8176,aDPRS

;LOAD SYNC BUFFER
JXMIT INT ENB
JRCINT ENB

BIT
BNE
HLT
gLOCK

#B1T79,aDPTS
. +4

:SEND REQUEST uP?
;REPORT ERROR
JRUN CLOCK

004C00

171100

BIT
BEQ
HLT
gLOCK

#81T11,aDPRS
R IA

;RECEIVER ACTVE
:NO
;REPORT ERROR
JRUN CLOCK

004600

171070

BIT
BEQ

#81T11,aDPTS
. +4

JRCV ACTIVE?
:NO

sRCV ACTIVE?
JYES

HLT
?XCLK

010214

JREINIT

8 BITS/CHAR

MOvVB
8IS
BIS

QXCLK

001000

#40,TSTNO
#TSTLT NEXT
RS ,REE

004000

171044

8IT
BNE

#R1T11,aDPRS
L+

015622

171046

MOV
gLOCK

#SRVS ,aDPRIV

004000
000100

171016

ALT

2%:

HLT

6IC

BIC

#B1T11,3DPRS

#8[T6,aDPTS

;REPORT ERRNR

;REPORT ERROR

;TEST PASS VECTOR
JRUN CLOCK

JREPORT

ERROR

JCLEAR RCV ACTIvVE

JCLEAR XMIT

INT ENB

cZ0P
MACY11_30A(1052) 5326JAN-79
CZDPAC.P1M
30-JAN=79 1

2328
2329
2330
2331
2332
2333
g%gg

010222
010230
010236
010240
010244
010252
010254

112777
032737
001300
005237
023737
001272
104400

15:40

000026
040000

171006
177570

001144
001160

001144

2336

PAGE 49

SEQ 0047

MOVB
BIT
BNE
INC
(MP
BNE
SCOPE

#26 ,aSYNC
#BITIL,SWR
1%
TSYNC
LIMIT,TSYNC
1

sSYNCHRONIZATION CHARACTER TEST 6/10 BITS/CHARACTER

g%;g

s INTERRUPT ENABLE AND SYNC (CHARACTFR CHECK

2339

2340

JARNRRANRRN R &N

2341

2343

;

2345

2342

POTEST 41

2344

2346
2347
2348
2349
2350
2351
2352
2353
235«
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372

2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383

;DUMMY SYNC
JTEST FOR SCOPE LOOP
JBRANCH [F SCOPE
JNEXT SYNC
JHAVE ALL SYNC'S BEEN TESTED

INEPRNNRRRARRN

010256
010264
(010272
010276
010304

012737
012737
004537
9212737
000403

000041
010562

010306
010314

012737
052777

001775
001090

001160
170710

010344
010352
010360
010366
010370
010372

042777
042777
112777
104401
000021
113777

000100
004000
000026

170666
170652
170650

010322
010330
010336

012737
012777
012737

010400
010406

052777
052777

010416
010420
010426
010430
010432
010434

000003
032777
001001
104000
1044607
000006

010414

010436
010444
010446
010450
010452
010454
010462
010464
010466
010470
010472
010500

104402

032777
001401
104000
104401
900005
032777
001401
104000
104402
000001
032777
001001

013524
000075

010520
014542
000003

001072
001062

001160

001174
170774
001162

001144
000100
000300

170636
170624
170624

001000

170612

004000

170566

004000

170556

004000

170532

RN R AN R

TST41:

AR AR A AN AR AN N

MOV
MOV
JSR
MOV
BR
;RETURN HERE IF
MOV
BIS
MOV
1%:
MOV
MOV
BIC
BIC
MOVB
(LOCK
21
MOVR
BIS
BIS
RPXCLK
3
BIT
BNE
HLT
CLOCK
6
BIT

BtQ
HLT
CLOCK
5
BIT
BEQ
HLT
RXCLK
]
BIT
BNE

#4671 ,TSTNO
HTSTL2 NEXT

R5,REE
#75, LIMIT
.+10
10 BITS/CHAR
#1775,LIMIT
#8179,aDPRS
#2% ,BA(CK
#TV18,aDPT1V
#3,SCNT
#8176,aDPTS
#BIT11,aDPRS
#26,3SYNC

A R AR RN R AR IR ARR AN R A RN SR N RN A AR AN

JREINIT DP11
:6 81T LIMIT
;BRANCH AROUND 10 BIT LIMIT
JSET UP 10 BITS/CHAR
;6/10 BITS/CHAR

JSET UP RCV SERVICE RETURN
JSET XMIT INT VECTOR TO SYNC
JXMIT 3 SYNCS

;JCLEAR XMIT INT ENB
;CLEAR ACTIVE
s CHALGE SYNC
JRUN CLOCK

TSYNC,aSYNC
#8176,aDPRS
#30C,aDPTS

JLOAD SYNC BUFFER
JRCVINT ENB
JXMIT INT ENB

#81 9,aDPTS
YA

;SEND REQUEST uUP?

#B1T11,aDPRS
.t

JRECEIVER ACTIVE
;NO
;REPORT ERROP
JRUN CLOCK

#4817111,aDPTS
.+

JRCV ACTIVE?
:NQ
;FEPORT ERROR

#81T711,3DPRS

JRCV ACTIVE?
JYES

AN RN

;JREPORT ERROR
JRUN CLOCK

cZbe
MACY11_30A(1052)
30-JAN-79
CZDPAC.PM
30~JAN=79 15:40

010502
010504
010512
010514
010516
010520
010526
010534
010542
010544
010550
010556
010560

104000

012777
104401

015622

15:40

PAGE SO
SEQ 0048
HLT
MOV
gLOCK

170534

000006
104000

042777

112777

032737
001272
005237
023737
001264

;REPORT ERROR
JTEST VECTOR
;RUN CLOCK

#SRVS,aDPR]V

HLT

004000
000026

2%:

JREPORT ERROR

BIC

040000

#BI711,aDPRS

MOVB

#26 ,@SYNC

BNE

BIT

001144
001160

#BIT14,SWR

INC
(MP
BNE
SCOPE

104400

;TEST

FOR SCOPE

sBRANCH IF

TSYNC
LIMIT,TSYNC
1%

SCOPE

LOOP

JNEXT SYNC
JHAVE ALL SYNC'S BEEN TESTED

s INTERRUPT DRIVEN SEQUENTIAL DATA TEST
IRRRNNRARRNCRE
:

;s TEST 42
:

IRRERERNRARRRSE
AR

010562

010570
010576
010602

012737

012737
004737
104400

000042
010604
014032

001072
001062

TST4L2:

AR AR AR AR RS AR RANA

MOV

#62,TSTNO

JSR
SCOPE

PC,SEQ.DATA

MOV

#TSTL3 NEXT

:DC THE

NN NR NN

AN AN

AR NN NN

TEST.

.‘ttfififittitl'tttii'i"'!ttt't'tfittt'.'tttitlt'.tlttttfittt!

;RANDOM CATA RANDOM |DLE

IMNNRRRRNANANR
.

TEST 43

) 4

IRERRARARNANRS

012737
012737
005077
005077
105077

012737
012737
113777
012701
012702
012703
004737

000043
010762
170414
170402
170410
177400
000026

001144
015371
072414
004036
013614

001072
001062

001156
001144
170360

AR AR AN

TST43:

A AN

AR AN N RN

MO,
MOV
CLR
CLR
CLRB

#43,TSTNO
#TSTL4 NEXT
aDPTS
aDPRS
aSEXT

MOV
MOVB
MOV

#26,TSYNC
TSYNC,aSYNC
#15371,R1

MGV

MOV
MOV
JSR

AR A AN A

#177400, CHLEN

#72414 ,R2
#4036 ,R3
PC,AZND

AN A NN R A AN NN R

AR RN RN R

P A RANY

;sCLEAR SYNC EXTENTION

;SET CHAR LENGTH TO 8 BITS

JSYNC = 26

;LOAD SYNC BUFFER

;PRIME

RANDOM # GEN

177600

001156

MOV

#177600, CHLEN

;SET CHAR LENGHT TO 7 BITS

012737

010676

;REPEAT PREViIOUS TEST AT 7 BITS/CHAR

cZbP
MACY11 30A(1052)
30~JAN-79
CZDPAC.PT
30-JAN-79 15:40

2440
2641
24642
24643
2644
2445
24406
2447
24648
2449
2450
2451

010704
010712
010720

052777
042777
004737

000400
004000
013614

15:40

170320
170312

PAGE

SEQ 0049

BJS
BIC
JSR

#B1T78,aDPRS
#BIT11,aDPRS
PC,A2ND

;7 BITS/CHAR

JCLCAR &CTIVE

JREPEAT PREVIOUS TEST AT 6 BITS/(HAR
010724
010732
010740
019746
010754
010760

012737
042777
052777
042777
04737
104400

177700

000400
001000
004000
013614

001156
170272
170264
170256

MOV
BIC
BIS
BIC
JSR
SCOPE

#177700,CHLEN
#8178,3DPRS
#8179,aDPRS
#BIT11,aDPRS
PC,AND

;SET CHAR LENGTH TO 6 BITS

;oET MODE TO 6 BITS/(CHAR
;CLEAR ACTIVE

CZDP
MACY11_30A(1052
30~JAN-79
CZOPAC.P1
30-JAN-79 15:40

15:40

PAGE 5¢

SEQ 0050

:DB255 TEST CONNECTOR DISCRETE EVENTS TEST
;VERIFY ‘'SEND REQUEST'' RAISES ‘''CLEAR-TO~-SEND'' AND ‘MODEM READY'’

;WHEN TRANSMITTER BUFFER

IS LOADED

JARARARRARNANRR
*

* TEST 44

LARRRERRNRARRR
AR

010762
01077¢C
010776
011004
011010

011014
011016

012737
012737
012737
005077
005077

104401
000010
012777

012777

052777
015777
104401

014532
014526
000040
001152

170224
170212
170176
170172

001000

170156

002000

170144

010000

170132

HSNONDOOO SO

VAN
S O

TST&44:

AN N

MOV

AR AR RN R RN R AR

002000

#FTINT,aDPTIV ~ ;XMIT ERROR TRAP VECTOR
#FRINT .@DPRIV ~ ;RCV ERROR TRAP VECTCR

MOV

TDATA,aDPTB

BIS

BIT
HLT

BIT
BNE
HLT

070000

BIV

BEQ

170102
170070

AR RN AN AR

MOV
MOV

BNE

170114

#TSTLS5 NEXT

MOV
CLR
CLR
gbOCK

#240,PS
aDPTS
aDPRS

#BITS,aDPTS

#BIT9,aDPTS
RTA

#B1T10,aDPTS
A

#81T712,aDPTS
A

EEOCK

001000

AR AR AR

#44 ,TSTNO

MOV

gLOCK

NVO

SUIFOIIN -—

O
b

h
D

ORI

01072
001062
177775

b
d

P O

e
d

e
e
b

SamaOaagaaaaaaaa5 —

jelelelelelelelolelolalalelelels o

011066

000044
011156
000240
170230
170216

HLY

BIT

BEQ
HLT

BIT

BEQ
HLT
SCOPE

JPRIORITY=S
;CLR XMIT STATUS
;CLR RCV STATUS
sRUN CLOCK

JSTATUS+RDY INT ENB
;LOAD BUFFER

JRUN CLOCK

;''SEND REQUEST'' ON

JYES

;RFPORT ERROR

;CLEAR-TO=SEND'* UP?
S YES
JREPORT ERROR

;' YODEM READY'' UP
JYES
;REPORT ERROR
JRUN CLOCK

#B1T19,aDPTS
. +4

#81T710,aDPTS
.t4

#BIT12,aDPTS
A

;''SEND REQUEST'' DOWN
JYES

;REFORT ERROR

;"'CLEAR=TO~SEND'* DOWN
JYES

JREPORT ERROR

;' MODEM READY'' DOWN

S YES
;REPORT ERROR

R AN A AR R RN RN

CZDP

MACY11_30A(1052)

CZOPAC.PI11

30-JAN-79

30~JAN=79 15:40

15:40

PAGE 53

SEQ 0051

Sgg%

;PERFORM PREVIOUS

2503

IRNANNNNERRRAN

2504

;

2507

2222323222227

2505
2506

;
;

2508

2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
gggg

011156
011164
011172
011200
011204
011210
011216
0112264
011232
011240
011246
011250
011252
011260
011262
011264
011272
011274
011276
011304
011306

012737
012737
012737
005077
005077
012777
012777
052777
052777
013777
104401
000003
032777
001001
104000
032777
001001
104000
032777
001001
104000

2531
2532
2533
2534
2535
2536
2537
2538
2539
25640
25641
522%

011310
011312
011314
011322
011324
011326
011334
011336
011340
011346
011350
011352

104401
000011
032777
001401
104000
032777
001401
104000
032777
001401
104000
104400

000045
011524
000240
170034
170022
014532
014536
000400
000040
001152

001072
001062
177776

001000

167760

002000

167746

010000

167734

170034
170022
170000
170000
167774

001000

167716

002000

167704

010000

167672

ggzg
2546

2547
2548
2549
2550
2551
2552

2553
2556
2555
2556

BITS/CHARACTER

TEST 45

TEST AT 7/11

TST4S5:

A AR AR

MOV
MOV
MOV
CLR
CLR
MOV
MOV
BIS
BIS
MOV
CLOCK
3
BIT
BNE
HLT
BIT
BNE
HLT
BIT
BNE
HLT
CLOCK
11
8IT
BEQ
HLT
BIT
BEQ
HLT
BIT
BEQ
HLT
SCOPE

AR AR R R AR R R AR R AN R

¥45,TSTNO
HTST46 NEXT
#240,PS
aDPTS
aDPRS
#FTINT,aDPT]V
#FRINT ,aDPRIV
#8178,aDPRS
#BITS,aDPTS
TDATA,aDPTB
#BIT9,aDPTS
R TA
#81710,aDPTS
A
#B1T12,aDPTS
nA

NN AR ARANNRAANNR R AR AN R AR

JPRIORITY = 5
sCLR XMIT STATUS
;CLR RCV STATUS
JXMIT ERROR TRAP VECTOR
JRCV ERROR TRAP VECTOR

;7/11 BITS/CHARACTER
;STATUS+RDY INT ENB
.LOAD BUFFER
JRUN (CLOCK

;' 'SEND REQUEST''
ON
S YES
<REPORT ERROR
;CLEAR-TO-SEND'‘ UP?
SYES
<REPORT ERROR
;' MODEM READY'' UP
S YES
JREPORT ERROR
JRUN CLOCK

#B1T9,aDPTS
.+
#81710,aDPTS
. +4
#81T712,aDPTS
.+

;''SEND REQUEST'' DOWN
;YES
-REPORT ERROR
;' 'CLEAR=TO-SEND'
DOWN
;YES
;REPORT ERROR
;' MODEM READY'' DOWN
cYES
;JREPORT ERROR

.PERFORM PREVIOQUS TE?T AT 6/10 BITS/CHARACTER
011354

011362
011366
011372
011400
011406
011414

011422
011430
011432
011434

012737

005077
005077
012777
012777
052777
052777

013777
104401
000003
032777

000240

167652
167640
014532
014536
001000
000040

177776

167652

167640

001152

167616
167616
167612

001000

167576

MOV

CLR
CLR
MOV
MOV
BIS
BIS

MOV
CLOCK
3
BIT

#240,PS

JPRIORITY = 5

TDATA,aDPTB

sLOAD BUFFER
JRUN CLOCK

#8179,aDPTS

;"'SEND REQUEST'' ON

aDPTS
JCLR XMIT STATUS
aDPRS
.CLR RCV STATUS
#FTINT ,aDPTIV
JXMIT ERROR TRAP VECTOR
#FRINT ,aDPRIV ~ ;RCV ERROR TRAP VECTOR
#B1T79,aDPRS
;6 BITS/CHARACTER
#81T5,aDPTS
;STATUS+RDY INT ENB

AR AR RARRS S

MACY11_30A(1052)
cZopP
30=-JAN=79
CZDPAC.PI
30-JAN=79 15:40

2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583

011442
011444
011446
011454
011456
011460
011462
011464
011472
011474
011476
011504
011506
011510
011516
011520
011522

15:40

104009

032777
001001
104000
104401
000010
032777
001401
104000

03277;

010000

001000

167534

010000

167522

BNE

.th

BIT
BNE

#BIT12,aDPTS
.+

HLT
cLOCK
10

167546

002000

SEQ 0052
HLT

167564

S YES
JREPORT ERROR
;' MODEM READY'' UP

cYES
:REPORT ERROR

JRUN CLOCK

BIT
BEQ

#81T79,3DPTS

BIT

#B1T10,dDPTS
.+

BIT

#BIT12,aDPTS

.+4

HLT

BEQ
HLT

BEQ
HLT
SCOPE

104400

:'EEND REQUEST'' DOWN
Y

;REPORT

ERROR

;' 'CLEAR~TO~SEND’' DOWN
JYES
;REPORT ERROR

."MODEM READY'' DOWN

JYES
;REPORT

ERROR

;DB25S TEST CONNECT CONNECTOR TEST

s TERMINAL READY

;TERM RDY-RAISE '‘CARRIER'' AND 'RING FLAG'', NO INT ENB
IRRRRRNARANRRS

; TEST 46

2585

2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612

001001

2584

2586
2587
2588
2559
2590
2591
2592

PAGE

SRR RANRANRANRR
"ti*l’*t'*ttfifitfiti'ti**tt*i.ttfifi*t*tttttttttttttttttfittttttitlti'ttttt

011524
(11532
0117540
011546
011552
011560
011566
011572
011600
011602
011604
011612
011614
011616
011624
011626

012737
012737
012737
005077
012777
012777
104403

032777
001001

104000

000046
012022
000240
167466

014532
000001

001500
000001

001072
001062
177776
167460
167452
167440

032777
001001

004000

167426

032777
301001

020000

167414

104000
104000

TST46:

MOV

MOV
MOV
CLR
MOV
MOV
DELAY

BIT
BNE
HLT
BIT
BNE
HLT
BIT
BNE
HLT

#46,TSTNO
#TST4L7 NEXT
#240,PS
aDPTS
#FTINT ,aDPTS

#81T0,aDPTS

.1500

#8170,aDPT3
.+
#BIT11,3DPTS

;PRIORITY = 5
JCLR XMIT STATUS
JERROR TRAP VECTOR

;TERMINAL READY

;15MS PROPOGATIOM DELAY
;TERMINAL READY
;YES
;REPORT ERROR

;CARRIER

. +h

;YES

#BIT13,aDP7S
< t4

JRING FLAG UP

:REPORT ERROR
:YES

;REPORT

ERROR

s CLEAR TERMINAL READY

011630
011634
011642
011650
011652
011654

042777
104403

032777
001401
104000

032777

000001
001500
000001

167402

004000

#B170,3DPTS

;CLEAR TERMINAL READY

167370

BIC
DELAY
BIT
8EQ

#B1T70,aDPTS
.4

;TERM RDY DOWN
JYES

167356

BIT

#BIT11,3DPTS

HLT

.1500

:REPORT ERROR
;CARRIER DOWN

MACY11_30A(1052)

(ZDPAC.P11

2613
2614
2615
2616
2617

011662
011664
011666
011674
017676

001401
104000
032777
001007
104000

2620
2621
2622
2623
2626
2625
2626
2627
Sggg

263C
2631
2632
2633
2634
2635
2636
2637
52%3

Sg}g

30-JAN-79

30~-JAN=-79 15:40

15:40

100000

167344

042777

100000

167332

011706
011714
011720
011724
011732
0117640
011746
011752

012777
005077
005077
012777
012737
012777
104403
104000

000240
167320
167306
014406
000200
000041
001500

167340

011756
011762
011770
011776
012004
012010
012012
012020

012777
012737
012737
(042777
104403
104000
042777
104400

014460
012020
000200
000001
001500

167270
001174
177776
16723

100000

167220

011700

167320
177776
167272

PAGE 55

SEQ 0053

BEQ
HLT
BIT
BNE
HLT
BIC

R
#BIT15,aCPTS
. +4
#BIT15,aDPTS

JYES
JREPORT ERROR
;"'CARRIER DOWN'' FLAG UP
SYES
;REPORT ERROR
;CLEAR DOWN FLAG

;VERIFY THAT "RING'* AND ‘'‘CARRIER DOWN'' INTERRUPT
MOV
#240,3DPTP
s INTERRUPT PRIORITY S.
RCD:
CLR
aDPTS
;CLEAR XIMT STATUS
CLR
aDPRS
;CLEAR RCV STATUS
MOV
#TV24,aDPTIV
;TEST PASS VECTOR
MOV
#200,PS
JPRIORITY = 4
MOV
#BIT5+BIT0,aDPTS
. STATUS INTERRUPT ENABLE
DELAY
,1500
215.75 MS DELAY
HLT
;REPORT ERROR

;VERIFY ""CARRIER DOWN'' RAISES INTERRUPT
RCD1:
MOV
#TV2S,aDPTIV
JNEXT TEST VECTOR
MoV
#1%,BACK
MOV
#200,PS
BIC
#B170,aDPTS
;CLEAR TERM. RDY. SHOULD SET
DELAY
,1500
215.75MS DELAY
HLT
;REPGRT ERROR
BIC
#BIT15,aDPTS
;CLEAR ""CARRIER DOWN''
1%:
SCOPE

°'CARRIER DUWN'.

(ZDP
MACY11_30A(1052)
30-JAN~79
CZDPAC L1
30~JAN-7 9 15 1690

15:40

PAGE 56

SEQ 0054

2641

;CABLE TEST WITH OUT EXERCISING THE SOF TWARE CLOCK.

2643

sTESTED WITHOUT THE SOFTWARE CLOCK.
;SUPPLIED BY THE DP11.

2642

:IN THIS TEST FUNCTIONS OF

2644

012022

THE CLOCK MUST BE

PART3:

.
DF11=-L TEST!'!!
JVERIFY THAT LOADING THE TRANSMITTER BUFFER
JBRINGS UP 'REQUEST TO SEND'' WHICH IN TURN WILL
;BRING UP "'C(LEAR TO SEND'' AND ‘MODEM READY''.

JVERIFY ALSO THAT

THEY GO AWAY.

;Qtti'fi'ttt.fit
*x

;

TEST 47

;t'fittttktt'tt
B

oSO

WWNINNN)

012022
012030
012036

012737

005077
005002
012700
010c77
017701
042701
022701
001403
005202
001367

000047
016002
000001

001072
001062
001134

T1ST47:

016002
167162
167150

001300
167146
167140
164777
013000

1%:

MOV

BIT
BNE
JMP
CLR
CLR
CLR
MOV
MOV
MOV

8IC
MP
BEQ
INC

BNE

104001

005002
005202
001376
032777
001401

HLT

2%:

013000

167104

#8170, SAVSR1
.+6

.EOP
aDPTS
aDPRS

R2
#1300,R0
R2,.aDPTR
aDPTS,R1

;CLEAR
sCLEAR

THE TX STATUS
THE RX STATUS.

;SET TIME OUT

JLOAD THE TX BUFFER

#164777
R1
513000.R1
R2

JUPDATE DELAY

.ERROR REQUEST

;IS IT DONE?

TO SEND,CLEAR

;SEND AND MODEM READY NOT UP.

;SET FOR TIME OUT

BNE
BIT

.~2
#13000,aDPTS

;
JARE THEY GONE?

R?2

;DELAY

Sir G4

104403

o
~N

S-Sy G-l
gl

Ghnr Guar Giure
G
G
PourQiur Qi

AoNLNLRLN)YINDNND

JUP "RING'' AND '‘CARRIER DOWN'' ALSO VERIFY THAT
;CLEARING ''TERMINAL READY'' BRINGS DOWN ‘RING''
JAND "‘CARRIER DOWN'’.
012777

017701
042701
022701
001401
104001
042777

000001
001500

167072

167062
153776

MOV

BIC

024001
000001

MOV
DELAY

CMP

167040

BEQ
HLT
BIC

#47 ,TSTNO

INC

# .EOP NEXT

(LR

BE?

104000

;VERIFY THAT THE SETTING OF ‘‘TERMINAL READY'' BRINGS

jeleleleleloleld]

2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657

THE CABLE WILL BE

#8170.3DPTS
1500
aDPTS,R1

#153776.R1

#24001,R1
L+
i

#BIT0,aDPTS

(20P
MACY11 30A(10S52)
30=JAN=79
CZDPAC.PN
30=-JAN=79 15:40

2697
2698
2699
2700
2701
2702
2703
2704
2705
2706

2707
2708
2709

012200
012204
012212
012214

104403
022777
001401

001500
120000

104000

15:40

167026

PAGE

SEQ 0055
DELAY

(MmP

BEQ
HLT

,1500

#120000,aDPTS
.th

sNOW TEST THAT DATA (AN BE TRANSFERED.
;A BINARY (OUNT PATTERN WILL BE TRANSMITTED AND RECEVED
;WITH OUT THE USE OF THE SOF TWARE (CLOCK.

012216
012222
012226
012232

005037
005037
004737
104400

001102
001104
014032

CLR
CLR
JSR
SCOPE

TEMPT
TEMP?
PC,SEQ.DATA

cZ0P

MACY11_30A(1052)
30~JAN=79
30=-JAN=79 15:49

CZDPAC.PN

27210
2711
2712
2713
2714
2715
2716
2717
2718
2719

15:4C

PAGE 58
SEQ 0056

JLINE.N SUBROUTINE TO FETCH THE LINE
JNUMBER AND FIRST DP11 VE(TOR ADDRESS FROM

:THE CONSOL SWITCHES
;SWO-SW8=VECTOR ADDRESS OF FIRST DP11
;SW9-SW15=LINE NUMBER OF DP11 SELECTED FOR TLST

012234
012240
012246
012252

005037
013737
013700
000000

001076

177570
177570

001134

LINE.N:

CLR

MOV
MOV
HALT

ERRCNT

SWR, SAVSR1
SWR.RO

:CLEAR ERRCR CCUNT

*SAVE CONSOL SWITCH SETTINGS
;SET SWR TO LINE NUMBER

*LOw BYTE = FIRST DP VECTOR

012254
012262
012266
012270
012272
012276
012300
012304
012310
012312
012316
012320
012322
012324
012326
012332
012334
012340
012342
012350
012354
012356
012362
012364
012366
012370
0712372
012374
012376
012400
012402
012404
012406
012410
012414
012420
012424

013737
013700
00000
005001

001165

013701
005037
006301
006201
010137
00€307
006301
006301
005777
000240
105737
100403
012737
0137C2
160102
012703

001146
001134

000405

001164

MOV
MOV

SWR, SAVSR2
SWR.RO

CLR
MOVB

R1
SAVSR2+1,R1

HALT

113701

B8R

LINE.X: MOV
CIR
XTAG:

001146

166726

012454
001260

2% :

aBASCSR

:DOES LINE O REALLY EXIST??

R1,
XL INEX

TO ADDRESS

SAVSRI

BM]
MOV
MOV
SUB
MOV
MOV

.+10
#3344
BASCSR,R2
R1,R2
¥DPRS ,R3
R2, (R3)+

MOV
INC

R2, (R3)+
R

;SET R2 = LINE O ADDRESS
*MANUFACTURE DEVICE ADDRESS
*R3 = ADDRESS OF RCV STATUS ADRS
*LOAD RCV STATUS ADRS

(R2)+

“INC

R2, (R3)+

*LOAD SYNC ADRS

INC
MOV

R2
R2,(R3)+

MOV

R2, (R3)+

TO RCV BUFFER ADRS

*LOAD RCV BUFFER ADRS
*TNC TO SYNC BUFFER ADRS

“INC TO XMIT STATUS ADRS
*LOAD TRANSMITTER STATUS ADRS

(R2)+

“INC

R2
R2, (R3)+

“INC TO SYNT EXTENTION
*LOAD SYNC EXTENSION ADRS

TO XMIT BUFFER

*LOAD XMIT BUFFER ADRS

INC
MOV
MOV
BIC
TSTB
BMI
MOV
ADD
MOV

SAVSR2, k2
#177000.R2
SAVSR1
2%
BASVEC,R2
R1,R2
R2. (R3)+

;SET VECTOR ADDRESS TO LiNE NUMBER
*LOAC RCY VECTOR ADRS

MOV

R2,

*LOAD RCV PRIORITY ADRS

1ST

005722

XLINFX,R1
SAVSR1

:SCALE LINE NMBER
*MODULO 10(8)

001256

;SAVE LINE NUMBER

R1
g;

MOV

001164
177000
007134

NUMBER(S)

SWITCHES

ASL
ASL
A5

TSTB

001232

LiNE

:CLEAR LSB

MOV

rg;

000004

CONSOL

R1
R1

001134

XTAG

*HIGH BYTE

*SAVE

ASL
ASR

0712426
012432

012434
012436
012440
012442

177570
177570

(R2)+

(R3)+

(R2)+

*SET UP VECTOR ADDRESS
:CLEAR LINE NUMBER FROM VEC ADRS

217 TO NEXT VECTUR
SINC TO NEXT VECTOR

MACY11_30A(1052)
0P
30-JAN=79
CZDPAC P11
30~-JAN=-79 15:40

2766
2767
2768
2769
2770
277
2772
2773

012444
012446
012450
012452
012454
012460
012464
012466

2775

012470
012472
012474
012476
012500
012502
012504
012512

2774

15:40

PAGE

010223
005722

010213
000414
005037
013701
001402
00000¢
012470
004711

001146
000042

SEQ 0057
MOV
IST

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

(LR

BEQ

XL INEX
a“z,v\‘
43

LOGICAL=.
J3R

PC, (R1)

MOv
BR
MOY

RESET

A Y
00C006

000004

5%:

;LOAD XxMIT VECTOR ADRS
;INC TO NEXT VECTOR
sLOAD XMIT PRIORITY ADRS

NOP
NOP
NOP

POP.
S:

BR
MOV
RTS

L INE.X
#6, NG

JNRNARARAARARRANR
AN IR (| RYE (A r v a
st aaaaaa e a vttt a vttt
ns

012514
012520
912524
012526
012530
012532
012536
012540

012702
012701
010122
005022
022121
022701
001372
00027

000300
000302

;CLRVEC,.ROUTINE

TO ©ILL

CLRVE(C: MOV

#300,R2
#302.R1
R1,R2)+
(R2)+
(R1)+,(R1)+
#776,R1
1%

1%:

MOV
MOV

CLR
(MP
(MP
BNE

000776

RTS

COMMUNICATION YELTOR AREA WITH .+2 HALT

JR2 (OMM YECTOR AREA ADRS
JINIT R1 WITH ADRS UF HALT
;JMOV .+2 TO PC
JMOV HALT T0 PC
JINC TO NEXT VECTOR AREA
JEND OF VECTOR AREA

:NO

JRETURN

;BITSR,ROUTINE TO TEST READ WRITE BiTS OF STATUS
;THIS ROUTINE VERIFIES THAT EACH READ/WRITE BIT
;CAN BE SET AND CLEARED
;EXAMINE LOCATIONS

;BITS:
;REG:

012542
012546
012552
012560
012564
012570
012576
012600
012602
01¢010
012614
212620
012626
012630
012632
012640
012644

010537
012537
053777
053700
017701
033777
001001
104002
043777
04370C

017701
033777
001401
104002

053777

053700
G17701

001110
013106
013106
013106
000320

BITST:

600330

013106

000312

013106
013106
000270
013106

00030C

013106
013106
000240

000262
00250

FOR BIT UNDER TEST
tOR REGISTER UNDER TEST
MOV

MOV

BIS
8IS

MGV

BIT
BNE
HLT
BIC
8I1C
MOV

BIT

BEQ
HL

BIS
BIS

MoV

RS, TEMP4
(R5)+ BITS
BITS,aREG

BITS,.RO

aREG,R1
BITS,aREG

JCAVE G!T NUMBER
JSET BIT

. th

;1S BIT SET?
;YES

BITS,@REG

JCLEAR BIT

BITS.RO
aRCG,R1
BITS.aREG
. +4
2
BITS,aREG

BITS.R”
aREG,RI

;REPORT

ERROR

:55 BIT CLEARED
ES

JSET BIT

JREPORT ERROR

(ZDP
MACY11 30A(1052)
30~JAN=-79
CZDPAC.P1
30-JAN=79 15:40

2822

<823
2624
2325
2826
2827
2828
2829
2830
2831
2832
2833
2834

2835
2836
2837
2838
2839
2840
2841
2842

012650
012656
012660
012662
012666
012670
012674
012702
012704
012706
012714
012720

033777
001001

013106

005077
0usS00C
017701
033777
001401

000222

1040C2

104002

052777
052700
000205

000214
013106
000004
000004

15:40

PAGE 60

000232

SEQ 0058
BIT
BNE
HLT

CLR
(LR

MOV

000206

BIT

BEQ
HLT
BIS
BIS

166316

RTS

;1S BIT SET

BITS,IREG
R
2
aREG
RO
aREG,R1
BITS,aREG
. *4

JYES
JREPORT ERROR

:CLEAR REG

;IS BIT CLEARED

#81712,3DPRS
#BIT2,RY
RS

cYES
;REPORT ERROR

JKEEP (CLOCK HUMMING

JVALID,ROUTINE TO TEST FOR ANY INTERACTION BETWEEN BITS
;THIS ROUTINE

CHECKS

THAT

WHEN EXECUTING A BIT

JONLY THE SPEL.IFIED BIT IS SET
012722
Q1726
012734
012740
012746
012752
012756
0lcr64
012766
012770
012776
013002

011637
017637
062716
053777
053700
017701
023777
001401

001110
000000
000002
013106
013106
000132
013106

043777
053700
00002

013106
013106

104002

013106

.VALID: MOV

MCV
ACD

000142

BiS
8IS

MOV
CMP

000124

BtQ
HLT
BIC
BIS

000112

RTI

SET

INSTRUCTION

(SP) ,TEMP4

a(SP) BITS

#2,(SP)
BITS,aREG

BITS,RO
aREG,R1
BITS,aREG
., th
2
B8ITS,aREG

BITS.RO

JFETCH BIT

NUMBER

JSET BIT
JWAS ONLY

:YES

THAT BlTM

SEI?

;REPORT ERROR
JRESTORE REC

JRETURN

:CLEAR,ROUTINE TO TEST THAT BIC ONLY CLEARS SPECIFIED BIT
013C04
013010
013015
13022
013030

011637
017637
062716
043777
043737

001110
000000
000002
013106
013106
013000

013106

.CLEAR: MOV
MoV
ADD

000060
001136

BIC
BIC
MOV

(SP)
, TEMP4
a(SP),BITS
#2,(SP)
BITS,aREG
BITS, TMPDAT
#13000,R0
RO

JFETCH BIT NUMBER
;CLEAR BIT
:CLEAR MASK

TMPDAT RO
BREG,R1

000024

::gns ANY OTHER BITS CLEARED

"REPORT ERROR

000012
001136

000000
00000C

TMPDAT ,aREG

BITS.aREG
BITS, TMPDAT

BITS:
REG:

s COMMON DATA 4ND IDLE SUBRCUTINE

‘RESTORE REG
*RESTORE MASK

JRETURN

012701
072702

015371
072414
004036
004300
160342

OIS

U'IU'IJ\%NN—‘—'
ONNONN

cZopP
MACY11 704 (1052)
3C~JAN=79
CZDPAC.PI
S0=JaN=79 15:40

015610
061172
015224
015076
000002
001152
000100
001144
000340
001166
001166
000140
0T0002
013342
001166
001166

013306
015314

000207

15:40

PAGE 61

SEQ 0059

AND :

MOV

11,6076
166076

1172
001170
166062

:PRIME RANDOM # GEN
JRCV

001162

2%:

MOV

DEC

165772

165764

JSYNC COUNT = 2

R2.TDATA
#100,aDPRS

;RANDOM DATA

cRCV INT ENB
;LOAD BUFFER

TSYNC,aDPTB

#340,aDPTS
R1,TIME

JXMIT DONE,

TIME

;"ON'' STALL
;0.6 SEC MAX

#140,aDPTS

JTURN OFF

#BIT1,aDPTS

013342
000002

165734

000100

165716

DEC

R1,TIME
TIME

;COUNT IDLE TIME

;TIME

OUT?

112777
104403

004537
110137

000207

000026
005670
013342
001144

165712

SGEN:

MOVB
DELAY
JSR
MOVB
RTS

#81T1,3DPTS

#100.aDPRS

;CLEAR RCV INT ENB

#26,aSYNC

JSET UP FILLER SYNC

R5,RNUM
R1, TSYNC

;RANDOM #
JLOAD SYNC

,3000.

;DELAY 10 CHAR

SRNUM, PSEUDO RANDOM NUMBER GENERATOR

013342
013350
013352
013354
013356
013360

013372

032737
001010
060201
005501

000205

040000

177570

RNUM:

BIT

BNE
ADD
ADC
ADD
ADC

1%:

ADD
ADC
ADD
AD(
RTS

TIME

;GENERATE 'ON'' TIME + SYNC
;CLEAR IDLE

;SGEN,ROUTINE TO GENERATE A UNIQUE SYNC CHARACTER
013316
013324
013330
013334
013340

STATUS ENRB

INT ENB

JFETCH RANDCN STALL

RS, RNUM

RTS

INT ENB,

;IDLE SYNC
JGENERATE '‘STALL'' TIME

RS ,RNUM

3%:

RCVv ACTIVE

JRCV INT VECTOR
JXMIT INT VECTOR

#2,SCNT

1%:

INT ENB,

;INT ENBS IDLE SYNC, ERRORS
JSET UP RCV POINTER
JSET UP XMIT POINTER

RP,TP
#RRRR,aDPR]V
#RRRT ,aDPT]v

166060

166020
166022
166012

#15371,R1
872414 ,R2
#4036 ,R3
#4300,aDPRS
#160342,aDPTS
#BOTTOM,RP

#BIT14,SWR
1%

RZ,R1
R1
R1,R?

;TEST FOR SCOPE LOOP
JEXIT 4F SCOPE

cZ0P
MACY11_20A(1052)
30-JAN-79
CZOPAC.P11
30~JAN-79 15:40

15:40

2934

2946
2947
2948
2949
2950
2951
2952
2953
295%
2955
2956
2957
2958
2959
2960
2961
2962

SEQ (060

s CLOCK,SUBRNOUTINE

gg%g

2937
2938
2939
2940
2941
2942
2943
2944
2945

PAGE 62

JNUMBER OF

013374
013400
013406
013410
013416
013424
013432
013434
013440
013444
Q13452
013456
013464

013470
013472
013474
013502
013506
013510
013512
013516
013520
013522

005037
032737
001412
052777
052737
062737
000402
005037
005037

067637
062716
052777
013705
013470
005305
001376
042777
013705
013506
005305
001376
005337
001357
000002
000030

001102
000400

001134

002000
000400
000004

165614
001160
001102

001102
177776
000000
000002
000010
013522

000010
013522

001102
165554

.CLOCK: CLR
BIT
BEQ
8IS
BIS
ADD
BR
.RXCLK: CLR
(LR
1%:

DEL=.
165536

DEL=.

001102
FREQ:

TO RUN SOF TWARE (LOCK

CYCLES IS FETCHED

CALL

ADD
ADD
BIS
MoV

TEMP?
#B1T8,SAVSR1
.RXCLK
#81710,aDPRS
#BIT8,LIMIT
6, TEMPI
.*6
TEMP1
PS
a(SP,,TEMP1
#2,(SP,
#BIT3,aDPTS
FREQ,RS

;SET CLOCK HIGH
;SET UP DELAY COUNT

DEC
BNE
BIC
MoV

RS
DEL
#BIT3,3DPTS
FREQ,RS

;DECREMENT CJUNT
;BRANCH IF NO TIMEOUT
sSET CLOCK LOW
;SET UP DELAY COUNT

DEC
BNE
DEC
BNE
RTI
30

RS
DEL
TEMP1
1%

;DEC COUNT
JBRANCH IF NO TIMEOUT

JNORMAL 12.8 US DELAY
JPATCH FOR 50 FT CAEEL

2963

2964

%322
2967
2968
2969
2970
2971
2972
2973
2974
2575
2976
2977
ggZB

JREE, SUBROUTINE TO REINITIALIZE DP11 FOR NEXT TEST
013524
013532
013536
013542
013546
013554
013562
013570
013576
013600
013604
013612

012737
005077
005077
105077
012737
012777
012777
032737
001405
062705
052777
000205

0CQ200
165502
165470
165476
000001
014536
014542
000400

177776

001144
165464
165462
007134

000010
C02000

165420

[

533?

2982
2983
2984
2985
2986
2987
2988
2989

:12/8 BITS/(HAR
;BRANCH IF 8 BITS/(HAR
;SELECT 12 BIT MODE
;9 BIT SYNC
s INCREASE CLNCK COUNT

013614
013622
013630
013636
013644
013652
013660
013666

042777
042777
012737
0°3737
012777
(12777
012737
110237

004300
160342
015610
001172
015224
015076
000002
001152

165410
165410
001172
001170
165374
165372
001162

REE :

1$:

MOV
(LR
(LR
CLRB
MoV
MOV
MoV
B8IT
BEQ
ADD
BIS
RTS

#200,PS
aDPTS
aDPRS
ASEXT
41, TSYNC
#FRINT ,aDPRIV
#TV1E,aDPTIV
#BIT8,SAVSR1
1%
#10,R5
#81T710,3DPRS
RS

;cOMMON DATA AND IDLE SUBROUTINE

A2ND:

BIC
8IC
MOV
MOV
MOV
MOV
MCv
MOVB

#4300,aDPRS
#160342,aDP(S
#BOTTOM,RP
RF,TP
#RRRR,aDPRIYV
#RRRT ,aDPTIV
#2,SCNT
R2, IDATA

;SET PRIORITY TO 4
;CLEAR XMIT STATUS
;CLEAR RCV STATUS
;CLEAR SYNC EXTENTION
SINIT TEST SYNC
;SET UP RVI INT VECTOR
JSET XMIT INT VECTOKk TO SYNC
;TEST FOR 8/12 BITS/CHAR
JEXIT IF 8 BITS
sSET RETURN ADRS FOR 12 BIT LIMIT
JSET 12 BIT/CHAR MODE
JRETURN

;RCV INT ENB, RCV ACTIVE
JINT ENBS IDLE SYNC, ERRORS
JRP = BOTTOM OF TUMBLE TABLE
;SET UP TRANSMIT POINTER
JRCV INT VECTOR
JXMIT INT VECTCR
;SYNC COUNT = 2
;RANDOM DATA

(Z0P
MACY11_30A(1052)
30~JAN=79
CZOPAC.P11
30-JAN~7 9 15:40

2990
29N
2992
2993

2994
2995

2996

2997
2998
2999
3000
3001
2002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017

3018
3019
3020
3021

013672
013700
013706
013714
013720
013722
013724
013730
013732
013740
013746
013752
013756
013740
013762
013766
013770
013774

013777
052777
052777
010137
104402

000001
005337
001375
042777
052777
004537
010137
104402

000001
005337
001373
004537
000207

15:40

PAGE 63
SEQ 0061

001144
000100

000140
001166

1%:

001166
000140
000002
013342
001766

s ¥

001166

MOV
BIS
BIS

TSYNC,aDPTR
#100,aDPRS
#140,aDPTS
R1,TIME

DEC
BNE
BIC
BIS
JSR

TIME
1%

MOV
?XCLK

014032
014032
014036
014042
014646
014052

014056
014062

014070
014076
014104
014106
014114
014122
014130
014134
014136
014144
014152
014160
014166
014174
014202
014210

012737
000000
000005
012706
012737

RXCLK

104407

017074

001050

013776

000177

165026

011637

001174
165202
001154
001152
165154
165156
000001
000400
000400

105077

005037
005037
005077
005077
052777
012737
032737
001414
012737
052777
012737
105277
000406
012737
012737

012777
012777
012737
012737
113777
052777

PFAIL:
PWRUP:

000024

MOV

RS ,RNUM

SEQ.DATA:

MOV

CLRB
CLR
CLR
CLR
CLR
8IS
MoV
BIT
BEQ
MOV
6IS
MOV

165110

1%:

2%:

165014

INT ENB

J"ON'" STALL

;0.6 SEC AVERAGE
;TURN OFF

. IDLE SYNC

INT ENB

;GENERATE ''STALL'' TIME
L4

INCB
B8R
MOV

MOV

Mov
MOV
MOV
MOVB
BIS

;sCOUNT IDLE TIME
JTIME OUT?
;GENERATE "ON'' TIME + SYNC

ROUTINE

HALT
RESET
MOV
Mov
TYPE
MPOWER

JMP

010000
002000
000426
000400
000026
014542
014650
000200
000004
001144
000100

T IME

RTS

00002¢

R1,TIME

JXMIT

DEC
BME
JSR

013342

014006

RS5,RNUM

MOV

;POWER FAIL

013776
014004
014006
014010
014014
014022
014024
014026

#140,aDPTS
#81T1,aDPTS

;LOAD BJFFER
JRCV INT ENB

#PWRUP,
24
#STACK,SF
# PFAIL,24

;L 0AD PFAIL VECTOR FOR POWER UP

SWAIT TTY TO COME UP

SREINIT STACK POINTER
;LCAD PFAIL VECTOR FOR POWER DOWN

aRETURN

(SP) ,BACK
ASEXT
RDATA
TDATA
aDPRS
aDPTS
#8170,aDPRS
#400, CHLEN

1%IT8.SAVSR1

;CLEAR SYNC EXTENTION
;RECEIVER DATA
:TRANSMITTER DATA

RECEIVER STATUS

;TRANSMITTER STATUS

: STRIP SYNC
:CHAR LENGTH INDEX

:LSST 12 BIT CHAR MODE

#10000,LIMIT

;SELECT END OF DATA

#4626, TSYNC
ASEXT

;PLACE MSB OF SYNC

#81710,aDPRS
2%

sSELECT 12 BITS/CHARACTER
JSYNC FOR 12 BIT (HAR

IN SYNC EXT

#400,LIMIT
#26, TSYNC
#TV18,aDPTIV

: TEMPORARY CHARACTER LIMIT
JINIT SYNC STORAGE

#200,PS

sPRIORITY=4

#RV18,3DPRIV
#4,SCNT
TSYNC,aSYNC(
#BI1T6,aDPRS

s TRANSMITTER VECTOR

;JRECEIVER VECTOR

s SYNC COUNT=¢
sLOAD SYNC
JRCV INT ENB

(Z0P
MACY11_30A(1052)
30-JAN=79
CZOPAC.P11
30-JAN=-79 15:40

3046
3047

3048

3049
305C

014216
014224
014226
014234
014236
014244
014252
014254
014262
014264
014272
014300
014302

014304
014306
014310
014312
014316
014320
014324
014326
014330
014332
014340
014344
014350
014352
014356

032737

000001

001134

052777
000403
052777

000540

165004

000301

164774

001004

032737
001017
022737
001010
052777
042777
000771
000000

005337
001372

014372
014400
014402

000000
014372
162737

001374
000177

#B]T0, SAVSR1
+12

#340,3DPTS
.+10
#301.aDPTS

#B1T0,SAVSR1

000001

013522

#1,FREQ

20010
000010

164746
164740

001102

BIS

RXCLK

5%:

INC

6%:

RTS

.DELAY:

MOV

001104

104000

162737

SEQ 0062

001134

000207

017637
062716
011637
022626
005037

PAGE 64

000001

104402

000001
000775
005237
001375

000000
062737

0i4370

15:40

000000
000002
001110

0C1106

177776

LESS.TIME:

001106

164502

#BI1T3,aDPTS

§21T3.8DPTS

;TRANS INT ENB
; TRANS DONE

sTEST FOR HIGH SPEED

JBRANCH IF NOT HIGH SPEED

;SET CLOCK HIGH
JSET CLOCK LOW

JRUN SLOW CLOCK
4%

TEMP1
5%
TEMP?
5%

A(SP) ,TEMP3

#2,(SP)
(SP) ,TEMPS

sSET UP COUNT

001106

000001

sSTATUS INT ENB

ADD
MORE
. TIME :

001106

DEL-.

(PC)+,TEMP3

;FOR A SMALLER DELAY TIME
;sPUT A NUMBER [N HERE TO BE

(PC)+,TEMP3

;FOR A LONGER DELAY TIME
;PUT A NUMBER [N HERE TO BE

000

Su8
BNE
JMP

s SUBTRACTED FROM TOTAL.

;TO THE TOTAL
#1,TEMP3
DEL
aTEMPS

;TIME OUT

;NO

TIME.

ADDED

MACY11_30A(1052)
CZDP
30~-JAN-79
CZDPAC.PT
30-JAN=79 15:40

15:40

PAGE oS

SEQ 0063

3088

:INTFRRUPT SERVICE ROUTINES
*THESE

> 1.
: 2.

: 3.
014406

032777
001001

020000

014420
014426
014434
014436

042777
032777
001401

020000
020000

014440
014446
014450
014452
074454

032777
001401

014460
014466
014470

032777
001001

014472
014500
014506
014510

042777
032777
001401

014512
014520
014522

032777
001401
104000

060200

014524
014530

013716
000002

001174

014532
014534

000002

014414

NS NN =
N
OOV

e e )
P

b d d e ek b d b

e L
P
P

N =

WWNWWWNWNWNWW

014416

N—'OOQ!:‘&\A

—t

X 2

VY]

b md oo

NN
NN N NN

3134

164624

Tvo4:

BIT
GNE

INTERRUPT RESULTED FROM RING.
#BIT13,3DPTS
1%

HLT

164612
164604

1%:

104000

BIC

#BI1T13,aDPTS

BEQ

BIT

#BIT13.3DPTS

HLT

140200

164572

104000

011754
100000

28
3¢:

164552

104000

Séé

100000
100000

164540
164532

POP. SP
JMP

;VERIFY THAT
tvos:
BIT
BNE

1%:

164472
164466

;CLEAR RING FLAG.

-TEST IT

*BRANCH IF
*REPORT

CLLAR.

ERROR

:NO OTHER STATUS FLAG ON?
:REPORT ERROR

RCD1

INTERRUPT RESULTED FROM ‘CARRIER UOWN' FLAG
#BIT15,aDPTS
:TEST FOR ‘CARRIER DOWN' FLAG
1$
*BRANCH IF SET
*REPORT ERROR

:CLEAR 'CARRIER DOWN'
-TEST IT
*BRANCH IF CLEAR.

BIT
BEQ

#060200,aDPTS
3%

,NO OTHER FLAGS ON?

3s:

MOV

BACK, (SP)

FTINT:

S#}

;ERROR ROUTINE

SHOULD RETURN

TO MAINL INE

FRINT:

S#}

;ERROR ROUTINE

SHOULD RETURN

TO MAINLINE

T/18:

MOV
MOVB

TSYNC,aDPTB
TSYNC+1,aSEXT

2%:

HLT

001144
001145

*REPORT ERROR

#BIT15,3DPTS
#BIT15.aDPTS
2$

HLT

104005

:TEST FOR RING
*BRANCH IF SET.

BIC
BIT
BEQ

104000

164520

§;4oeoo,aoprs

HLT

014536
014540

014542
014550

FUNCTIONAL TEST WHICH ARE INTERRUPT DRIVEN

:VERIFY THAT

104000

022626
000137

ROUTINES MAY FUNCTION AS:

ERROR TRAPS FOR FALSE INTERRUFTS
POINTERS BACK TO THE MAIN LINE TOR VALID INTERRUPTS
3

RTI

FLAG.

"REPORT ERROR

:REPORT ERROR

SXMIT SYNC
;LOAD SYNC EXT

cZ0pP
MACY11_20A(1052)
30-JAN=79
CZDPAC P11
30-JAN~-79 15:40

3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159

3160
3161
3162
3163
3164
3165
3166
3167
3168

3169
3170
317
3172
3173
3174
3175
3176

b
—

—

)

WNWNWN WWWNW

VSN LEIEIXR
29K ogo»o

3184

014556
014562
014564
014572

005337
001003
012777
000002

15:40

PAGE 66

001162
014574

164460

SEQ 0064
DEC
BNE

1%:

MOV

RTI

SCNT
1%
#TV19,3DPT1V

;zgve 2 SYNC'S BEEN XMITED

*YES CHANGE VECTOR

s SEQUENTIAL DATA TRANSMITTION ROUTINE
014574
014602
014604
014606
014612
014614
014616
014624
014630
014636
014640
014646

032777

140000

164436

TVi9:

164426

001152
001152
001160
000140

164416

001152
164372

1%:

8IT
BEQ
HLT
TSTR
BM]
HLT
MOV
INC
CMP
BNE
BIC
RT]

#140000,aDPTS
44

ADPTS

.+4

TDATA,’DPTB
TDATA

LIMIT,TDATA
1%
#140,8DPTS

:AgY STATUS ERRORS

;N
;REPORT ERROR
s TRANSMITTER READY
JYES

;REPORT ERROR
;LOAD BUFFER
JNEXT CHARACTER
:HGVE ALL
;N

cYES,

CHARACTERS

CLEAR

INTERRUPTS

;JRECEIVE SEQUENTIAL DATA
014650

014654
014656
014660

014664

014670
014676
014700
014706
014710
014716
014722
014730
014732
014736
014742
014746
014754
014762
014770
014776
015004
0150C6
015014
015016
015024
015032
015040
015046
015050
015052
015056
015062

105777
100401

164356

013700
017701
023777

001154
164344
001154

164336

164330

001136

104000

000001
001154
001160

164314

164276
001162
164242
164234

000340

164224

000301
001156

164214
164200

(MP
BEQ
MOV

1%:

001134

001156
001156

TSTR
BMI
HLT

MoV
MoV

001154

001154
001152
001160
014542
000204
000001
004000

000001

000002
005077
005077
005037

RV18:

HLT
BIC
INC
CMP
BNE
CLR
CLR
ASR
MOV
MOV
BIS
BIC

B8IT
BNE
BIS
BR
BIS
BIS

2%:
3%

4%:

ADD

(TM

BEQ

RT]

CLR
CLR
(LR

aDPRS

RDATA,RO
aDPRB,R1

:REEEVIER DONE??
;Y

JREPORT ERROR

$2ATA.SDPRB

. CORRECT DATA

?DPRB,TMPDAT

;STORE DATA

#8110,3DPRS
RDATA
LIMIT RDATA

;REPORT ERROR
;CLEAR STRIP SYNC

INEXT CHARACTER

RDATA
TDATA
LIMIT
#TV18,aDPTIV
#4 ,SCNT

#8170,3DPRS
#B1T11,3DPRS
#81T0,SAVSR1
+12

;DECREASE LIMIT TO 7 BITS
sSET UP SYNC TRANSMITTION
s SYNC COUNT =4
;STRIP SYNC
;CLEAR RCV ACTIVE

#340,aDPTS

s INT ENB + DONE

CHLEN, @DPRS
#400, CHLEN

;CHANGE CHAR LENGTH
sDECREASE CHAR LENGTH
:végf ALL LENGTHS BEEN TESTED

aDPTS
aDPRS
PS

;CLR TRANSMITTER STATUS
JCLR TECEIVER STATUS

+10
#301,3DPTS

flAOé,CHLEN

;NO

CZDP
MACYT 304(1052)
30-JAN=79
CZDPAC PN
30-JAN-79 15340

015066
015072

012706
000177

105777
100401
104000

013777
005337

15:40

PAGE 67

SEQ 0065

001050
164076

MOV
JMP

164136
..

001144
001162

164126

015140

164122

160000

;SYNC RPUTINE

FOR RANDOM DATA TEST

;SYNC ROUTINE

FOR RANDOM DATA TEST

Ve v gar®?
gfi
*1STB

105777

164074

(04537
010137

013342
001152
001156
001152
001170
001152
015620

;RRRT,

001152

164046

071637
017737
013702
013701

#RRT1,aDPTIV

:YES,SET UP DATA TRANSMIT VECTOR

BIC

001110
164000
001172
001154

001154

SYES

#160000,aDPTS

1%:

001154

RRRR:

SYNC,

aDPTS
.+

MOV

R1.TDATA

JSR

RS ,RNUM

BIC

CHLEN, TDATA

:NO

:CLEAR ERROR BITS

RANDOM

28:

:TRANSMITTER READY
SYES
*REPORT ERROR

:GENERATE NEXT CHARACTER

:REDUCE DATA TO # BITS/CHAR

STRANSMIT CHARACTER
*SET UP TRANSMITTER POINTER

CMP

R4, HTOP

:END OF

MOV
Q?Y

#BOTTOM.R4
R4, TP

TDATA, (R4) +

RANDOM DATA,
MOV

MOV

RANDOM SYNC,

(SP)
, TEMP4

aDPRB,RDATA

:MOV CHARACTER TO TUMBLE TABLE
:SAVE

TUMBLE

TABLE

TRANSMITTER POINTER

RANDOM STALL,

RECEIVER SERVICE

;SAVE RECEIVED DATA

RP,R2
RDATA,R1
(R2) ,RO
RDATA, (R2) +
1%

:1S DATA CORRECT
TYES

BEO
HLT
ST
CMP

R
2
=(R2)
#T0P,R2

SYES
*REPORT ERROR
*ADJUST TUMBLE TABLE
:TOP OF TUMBLE TABLE

MOV

#BOTTOM,R2

g%g

#8170,aDPRS

CMP

1%:

STALL

TDATA.aDPTB
TP.R4

MOV
MOV
MOV
CMP
BEQ

001144

163714

DATA,

TSTB
BM]
HLT

BNE

015620
015610
001172
000001

RANDOM

MOV

001154

0000C2

MOV

MOV
MOV

;RRRR,

015224
015230
015236
015242
015246
015250

TSYNC,aDPTB
SCNT

*REPORT ERROR
*TRANSMIT SYNC
12 SYNC'S

TRANSMITTER SERVICE ROUTINE
RRT11:

015610
001170

015222

HLT
MOV
DEC

.+4

RTI

043737
013777
013704
013724
020427

:READY

B8NE

000002

100401
14000

aDPTS

BMI

164102

#STACK,
SP
ABACK

BNE

MOV

RDATA, TSYNC

:SET UP RECEIVER POINTER

*IF NOT DATA IS IT SYNC

:NO

R2,RP

*SAVE RECEIVER POINTER

*YES,RAP AROUND

“CLEAR STRIP SYNC

(Z0P
MACY11 30A(1052)
30-JAN-79
CZOPAC.P11
30-JAN-79 15:40

15:40

PAGE 68

SEQ 0066

sTRANSMITTER

015320
015320
015326
015332
015334
015342
015344
015352
015354
015356
015364
015370
015376
015400

015402
015406

013777
005337
001003
012777

000002

001144
001162

163714

015344

163710

032777

163666

001401
104000

013777
005237
023737
001401
000002
005077
000002

TPRTY:

MOV
DEC
BNE

MOV
RT!

18:

2s:

BIT
BEQ
HLT
MOV
INC
CMF
BEQ

163656

001160

RT]

3%:

SERVICE

ROUTINES

TSYNC,aDPTB

SCONT
1%
#2%,aDPTIV

#160000,aDP7S
.+
TDATA,aDPTR

TDATA,LIMIT

CLR

FOR PARITY

TEST

SXMIT SYNC CHARACTER
sDEC SYNC COUNT
;BRANCH IF LESS THAN 2 SYNCS
;SET VECTOR TO TRANSMIT DATA

JRETURN TO MAINLINE

. ANY ERRORS

<NO
;REPORT ERROR
:TRANSMIT DATA

;INC TRANSMIT DATA
;IS UPPER LIMIT REACHED
JYES, EXIT

;NO,

RETURN TO MAINL INE

. CLEAR STATUS REGISTER

RTI

JRECEIVER SERVICE ROUTINE FOR PARITY TEST
000000

HERE=0

015410
015416
015424
015430
015434
015442
015444
015446
015454

017727
017737
013700
013701
023737
001401

163616
163612
001154
001136
001136

032737
001401

010000

015456

104000

015460

005237
005037
012737
000241
006137

001154
001104
000020

005137
005337
001370

001104
001106

104001

103002

000000
001136

RPRTY:

MOV
MOV

001154

015414

MOV
MOV

RPRT1:

CMP
B£Q
HLT
BIT
BEQ
HLT

001154

INC
CLR

001106

MGV

RPRT?:

RPRT3:
JIF

cLC
ROL
8CC
COM
DEC
BNE

aDPRS ,#HERE
aDPRB, TMPDAT

RDATA RO

TMPDAT ,R1
TMPDAT ,RDATA
.

#BIT12 ,RPRTY+4

. +4

:SAVE RCV STATUS HERE

;SAVE RCV DATA

;CHECK FOR CORRECT DATA
:BRANCH IF DATA 0K
JREPORT ERROR
;TEST PARITY

;(RPRT1)=BEQ .+4 FOR EVEN PARITY

s (RPRT1)=BNE .+4 FOR ODD PARITY
;REPORT ERROR
EXAMIN #HERE FOR STATUS
TMPDAT FOR DATA
RPRT1 FOR ODD/EVEN
ZINC TO NEXT EXPECTED DATA
:PARITY FLAG

*SET ROTATE COUNT TO 16.
;CLEAR (ARRY
DATA
JROTATE

;BRANCH IF BIT [S A '9D"
JSET FLAG TO A '1"" FOR ODD PAR]TY
;DEC ROTATE COUNT

JBRANCH IF

16 BIT WORD NOT CHECKED

FLSG}EXPECTED DATA SHOULD CAUSE 0DD PARITY

SBIT 1

0i5520

006137

001154

RCL

JRESTORE EXPECTED DATA

CZ0P
MACY11_30A(1052)
30~JAN=79
CZDPAC L1
30-JAN=-79 15:40

005737

001104

052737
000403
042737

000400

015454

000400
000001
001160

015454

100404

N WNWNNWNWAN
W IN AN N NN

15:40

163436
000040
000002

163454

001154

177776

PAGE 69

SEQ 0067
TEMP?2
RPRT4
#BIT8,RFRT1

;JTEST FOR NEXT PARITY
;BRANCH FOR 0ODD PARITY
JEVEN PARITY=BEC .+4

RPRTS:

BIC

BIC(

#BIT8,RPRTI
#B1T70,aDPRS
LIMIT RDATA
RPRT6

;0DD PAR]ITY-BNE .+4
;CLEAR SYNC STRIP
JEND OF DATA
JYES

RPRT6:

(LR

aDPRS
#BITS,PS
#2,(SP)

RPPT4:

RPRTS

BOTTOM: 0

:NO

;CLEAR STATUS
;LOWER PRIORITY

;BOTTOM OF

TUMBLE TABLE

TOP:

: INTERRUPT SERVICE ROUTINES FOR DB25S TESTS
*THESE ROUTINES MAY FUNCTION AS:
;

1.
; 2.
: 3.

015622
015626
015630
015632
015636
015642

015650
015652
015654
015656
015660
015666

105777
100401
104000

013700
017701

123777
001401
104001

022626
022626
042737
000177

163404

SRVS:

001144

163372
001144

000040

163302

163364

177776

ERROR TRAPS FOR FALSE INTERRUPTS

POINTERS BACK TO THE MAIN LINE FOR VALID INTERRUP1S
FUNCTIONAL TEST WHICH ARE INTERRUPT DRIVEN

TSTB

aM]
HLT
MOV

MOV

CMPS
BEQ
HLT

POP. SP
POP. SP

BIC
JMP

aDPRS
.+

TSYNC,RO
aDPRB,R1

TSYNC,aDPRB

. +4

#BITS5,PS
aBA(CK

sRCV DONE
;REPORT ERROR

sCORRECT SYNC CHARACTER

S YES

;REPORT ERROR
;ADJUST STACK

;ADJUST

STACK FOR CLOCK SuB

:LOWER PRIORITY
:JMP
:BACK TC MAINLINE

MACY11 30A(1052)
(0P
30=-JAN=-79
(ZDPAC.P1N
30-JAN=-79 15:40

15:40

PAGE

SE« 0068

;SCOPE LOOP AND INTERATION HANDLER
015672
015700
015702
015704
015710
015712
015716
015720
015726
015730
015734
015742
015744
015750
015754
015762
015770
015774
015776

016000

032737
001407
000432
105777
100027

017700
000412
032737
001006
005237
023737
001012
105037
005037

012737

013737
013716
000002
001407
000432

040000

177570

163140

. SCOPE: BIT
BEQ
8R

1STR

aTKCSR

MoV

aTKDBR,R0

B8PL

163134

004000

177570

001070
001070

001066

001200
001070
000012
001062
001060

#BIT14,SWR
1%
3%

TTST:

001066
001060

BR
BIT
BNE
INC
CMP
BNE
CLRB
CLR
MOV

MOV
MOV

BRW:
BRX:

432

2%
#S5W11,SWR
2%
LPCNT
LPCNT, ICOUNT
3%
ERRFLG
LPCNT
#10.,1COUNT

NEXT ,RETURN
RETURN, (SP)

RT]

1407

;END OF PASS

;TYPE "END OF PASS CSR:
;UPDATE PASS COUNT

XXXXXX''

JUPDATE L INE NUMBER

J1F

IN CYCLE MODE

CLR
CLR
INC

LSTERR
ERRFLG

PASCNT

CNVRT
XCSR
TST8B

SAVSR1

JRESTART

005037
005037
005237
104407

001100
001200
001074

.EOQOP:

TYPE
MEPASS

017111

104413

016076
105737
100402

001134

005237
013737
012737
012706
105737

001146
001074
001336
001050
001134

000137
000137
000001
006
001232

001336
001326

100002

BMI

177570
001060

INC
MOV
RESTRT: MoV
MOV
7STB
8PL

JMF

XCSR:

00¢

{MP

.BYTE
DPRS

TEST

XL INEX
PASCNT
I JGHTS
#PART1,RE TURN

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

sDISPLAY PASS (OUNT

#STACK,SP

SAVSR1
. +6
PART1
BGNO

6.c

¢CHECK FOR FREEZE ON CURRFNT DATA

032737
001402

001000

177570

.SCOP1: 817
8tQ

#SW09, SWR
1%

RRERRRRY RRRY RRRLERRRRRRRLYR
RRRRY RRERRRRRRRRRE

= b b b ad b b b
TN
N RIETHEIRAR SRR
JXBRY PONIN)
N=0O 000NNV
NN — o

CZ0P
MACY11 30A(’052)
306JAN-79
CZDPAC.PI
30~-JAN-79 15

016114
016120

013716
000002

001064

"5:40

PAGE

71
SEQ 0069
1¢:

MOV

RTI

LOCK, (SP)

sTELETYPE OUTPUT ROUTINE

016122
016126
016132
016140
016142
016144
016146
016152
016154
016160
016162

017605
062716
032737
001010
105715
001406
105777
100375
112577
000764
000002

000000
000002
010000

1%:

162702

2$:

.TYPE:

162676

mov

#2, (SP)
#5W12,SWR
3%
(RS)
3%

BPL

TSTR

MOvB

3s:

a(SP) RS

ALD
37
BNE
TSTR
BEQ

RT]

aTP(SR

(R5)+,3TPDBR

sERROR HANDLER
016164
016172
016174
016200
016202
016210
016216
016220
016224
016226
016232
016236
016240
016242
016246
016250
016252
016254
016256
016262
016266
016272
016276
016302
016306
016310
016314
016316
016320
016322
016324
016326

016330
016332
016334
016336
016340

032737
001406
105777
100003
112777
032737
001075
021637
001404
011637
105037
104410
011605
162705
011504
006304
061504
006304
042704
062704
012437
012437
011437
105737
001403
005737
001030
104407
017134
104413
016514
104407

017150
104413
016522
104407
017157

010000

JHLT:

162654

000207
020000

XBX:

001109
001100
001200

BIT
BEQ

TSTB
BPL

aTPCSR
XB8X

BIT

#SW13, suR

MOVB
BNE
(MP
BEQ

MoV

1%:

000002

#SW12, SWR
XB8X

#207,aTPDBR
HALTS
(SP) ,LSTERR
1%
(SP) ,LSTERR

CLRB

ERRFLG

MoV
SuB
Mov

(SP) ,RS
#2,R5
(RS5) R4

SAV05

ASL

177001
017352
016362
016374
016406
001200

ASL

ADD
MOV
MOV
MOV

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

016406

BEQ
TST
BNE

ADD

BIC

TSTB

TYPMSG:

TYPE
MTSTN

CNVRT

XTSTN
TYPE
ML INE

CNVRT
ZLINE

TYPE
MERRP(

(R5) ,R4

#177001
R4

ERRFLG

TYPMSG
DATABP

TYPDAT

(ZDP
MACY11 _30A(1052)
30-JAN=79
CZOPAC.P11
30=JAN=79 15:40

016342
016344
016346
016350
016352

15:40

SEG 0070

104413
016506
104407

017166

112737
104407
000000

005737
001402

104407
000000
005737
001402

CNVRT

ERTAROD
TYPE

177777

001200
ERRMSG:

16374

104411

100005

010046
016600
000000
012600
005237
032737
001013
032737
001007
032737
001407
013737
012706
000177
000002
000001
006
001132
000001
003
001072
000001
002
001146

#-1,ERRF
.G

TST
BEQ

DATAHD
TYPDAT

TYPE

01¢406

TYPDAT:

000000

005737

MCRLF
MOVR
TYPE

DATAHD: 0

104412

016444
016446
016454
016456
016464
016466
016474
016500
016504
016506
016510
016512
016514
016516
016520
016522
016524
016526

PAGE 72

TST

B8EQ

CONVRT

0
RESREG: RESOS
DATARP:

177570

HALTS:

TST

BPL
PUSHRO
MOV
HALT

000002
001076
000001

001134

000400

177570

002000

177570

001062
0r1050

001060

162354

EX]TER:

POPRO

XTSTN:

00¢

ZLINE:

002

2(SP),RC

ERRCNT
#8170, SAVSR1
1%
#SwW08, SWR
1%
#SW10, SWR

MOV

NEXT ,RETURN

JMP

aRETURN

BYTE
§Av°c

6,2

BYTE

3,2

BYTE

2,2

MOV

?TI
2%:
ERTARBO:

002

SWR

EXITER

INC
B!T
BNE
BIT
BNE
BIT

B8EQ
1%

DATARP

RESREG

{STNO
XL INEX

#STACK,SP

JCONVERT OCTAL NUMBER TO ASCII AND OQUTPUT TO TELEPRINTEFR

N NN N
NN N NN

PNON) = 2 b b
b 2
OV
~NONN W

A YW
N NN
N

3512

016530
016532
016534
016540
016546
016552
076556
016562
01666
016572
016576

.CONVR:

000000
017454
000002
016722
016724
016725
016726
01€726
016724

001106

TYPE
MCRLF

.CNVRT: MOV
MOV

1%:
2%:

ADD
MOV
MOVB
MOVR
MOV

MOv
MOVB

a(SP) R1

TEMP, TEMP3

#2,(SP)
(R1,+,WRDCNT
(RY)+ ,CHRCNT
(R1) »,SPACNT
a(R1)+ ,BINWRD

BINWRD ,Ré
CHRCNT RS

(20P
MACYTT 30A(1052)
30-JAN=79
(/DPAC . P11
20=JAN=79 15:40

3522
3€23
2624

3525
3726
3527

3528

016602
(016606
016610
016614
016620
016622

01€624

3529

016626

3531

016632

3530
3532

3533

353,
3535

3550
3561
3552
3553
§g§4

177770

000260

gggg

%gg?

006004

000241

cLC

016640
016642

001362
012703

BNE
MOV

3¢
#MDATA R3

016654

016674
016676

016700
016702
016706

016710
016712

016720
016722
016724
016726

016730

000241

CLC

005305

114023
105337

001374

105737
001405
112723
105337

001373
105013

104407
017516
005337

€01322
013737

000002
000000
000000
016725
000000

DEC

017516

4$:

016724

000240

5¢:

016725

68 :
016722

001106

016637

000004

MOVB
DECB

-(R0O), (R3)+
CHRCNT

TSTB
BEQ
MOVE
DECB

SPACNT
6%
#240, (R3)+
SPACNT

BNE

016725

017454

001132

BNE
CLRB

TYPE
MDATA
DEC

BNE
MOV

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

S¢
(R3)

WRD(NT

1%
TEMP3, [EMP

;SAVE P(C OF TEST THAT CAILED AND RO-RS

.SAV0S: MOV

4(SP), SAVPC

;SAVE RO=RS
016756
016762

016742
016746
076752

016766

010537

010437
010337
010237

017137
0. 037

000002

00112¢

001124
001i22
001120

001116
001114

§§§?

SV05:

MOy

MOV
MOV
MOV
MGV
MOV

RT]

RS, SAVRS

R4 . SAVR4
R3.SAVR3
R2.SAVR2

R1.SAVR1
R0. SAVRO

:RESTORE RO-RS
016770
016774

013700
013701

001114
001116

.RESOS: MoV
MOV

001122
001124

MOV
MOV

3575

017000

013702

001120

3577

017014

013705

001126

3575
3576

ROR

#260,R3
R3S, (RO)+

ROR

3566
3567

3572
3573

2177770.R3

006004

016636

016736

3568
3569

BIC

016634

2562

3563
3564
3565

NTEMP RO
R4 ,R3

ADD
MOVB
cLe

%%29

MOV
MOV

016656
016662
016664
016670

3548
3549

SEQ 0071

ROR

3539
2540
3541
3542
3545
3546
3547

00600«

016646
016650

3543
3544

062703
110320
000241

017454

PAGE

016630

3536
3537

3538

012700
010403
04c703

15:40

017004
017010

015703
C13704

MOV

SAVRC,RO
SAVR1 .R?

SAVR2.RZ

SAVR3.R3
SAVR4 R4

SAVRS RS

MACY11_30A(1052)
30-JAN-79
30=-JAN=79 15:40

CZDPAC.PI1

3578
3579
3580
35K1

017020
017022
017030
017036
017044
017052
017060
017066
017074
017102
017110

017111

017116
017124
017132
017134
017142
017150
017156
017157
017164
017166
017211
017176
017204
017212
017220
017226

b
b
b ok
b
—

O000 NONWN SN

et
FRERNE
N =

3609
3610
3611

000002
005015
041501
030461
0461516
046505
051105
042040
005015
040506
600
007
042116
020123

000040
905015
047040
044514
000

055103
020040
020101
046440
044440
040506
040511
053520
046111

000000
000000

SEQ 0072
<15><12>/CZDPAC

DP11/ SYN( MUDEM [NTERFACEF

029122
042105

MPOWER:

LASC1Z <15><12>/PWR FAILED/

006407
050040
051503

042412
051501
035122

MEPASS:

.ASCIZ <THCI><ISC12>/END PASS CSR:

062524
027117
042€16

052123
000040
020072

MTSTN:

LASCIZ <15><12>/TEST NO.

ML INE :

JASCIZ /LINE:

050012

035103

MERRPC:

LASCIZ <15><12>/PC:

MIRLF
:

EM1:

LASCIZ <15><12>
LASCIZ <15><12>/ENTERED FROM

EM2:

LASCIZ <15><12>/TRANSMITTER

042503

EM3:

LASCIZ <15><12>/RECEIVER

041505
051040
042526

D~0:

LASCIZ /EXPECTED

042514
044440
050125

DH1:

LASC!IZ /FAILED TO INTERUPT,

052522
052440
041595
027131

DHZ:

LASCIZ /INTERUFTED UNEXPETTEDLY./

050130
020104
044505
000
044501
047524
051105
030040
042524
042105
050130
046104

017352

020115
051124
0521M
000040
042522
051105

017247
017254
017262
017270
017275
017300
017306
017314
017320
017326
017334
017342
017350

050104
050104
054523

PAGE

MTIT E:

000
042412
042795

017232
017240
017246

15:40

042117

052116
042503
000107

052116
043040
000040
047107
042524
020040

.EVEN
.EKRTAR:

0
0
)

MCRLF

DHQ

DTO
EM1

DHO

JHALT

JHALT 2

RECEIVED /

D!AG/

MACY11 30A(1052)
(ZoP
30~JAN-79
(ZOPAC.P1N
30=-JAN=79 15:40

3634

15:40

PAGE

SFEQ 0073

017372

017436

017374
01737¢
017400

017212
017272
000000

Em2
DH1

JHALT

017402
017404
017406

017232
017273
000000

EM3
DH1

JHALT 4

017470
017412
017414

017212
017320
000000

DH!

017416
017420
017422

017232
017320
000000

DH2

017424
017426
017430
017432
017434

000002
006
N01114
006

017436

000003

017440
01744

017444
C17446
017450

017452

001116

Em2
0

EM3

004

DTO:
SAVRO

002

010

.BYTE

SAVR1
DT1.

TEMPS

004

6.8.

6.2

017516

hBATA:

.END

6.2

BYTE
SAVR1

TEMP:

.=.+460

6.4

6,64

017454

JHALT 6

BYTE

SAVRO

002

JHALT

(2DF
MACY11_30A(1052)
30=JAN-79
CZDPAC.P1T
30~JAN=/9 15:40
ANV
AZND
BACK
BASCSR
BASVEC
BEGIN1

013112
013614
001174
001260
001256
0012€2

2034
2434
9704
10334
10324
971

BECINZS
BGNO
BGNOA
BINWRD
BITS

007234
001326
007276
016726
013106

975
1043
c167
3519«
2806+

BITST

012542

1094
1143
6204

BITO

- 000001

Bl11
= 000002
BIT10 = 002000

BIT17

= 004C30

BIT12 = 010000
BIT13 - 020000
BIT14 = 040000

BIT'S = 100000
BIT2

BIT3
8114
BITS
BIT6

BIT7
BIT8
BIT9

= 000004

= 000010
= 000020
= 000040
= 000100

= 000200
= 000400
= 0010CC

BOTTOM

BP(

BRW
BRX
CABLE
CHLEN
CHRCNT
CLEAR =

015610

0011742

015776
016000
001150
061156
016724
104404

CLOCK = 104401
CLRVEC
012514
CNVRT = 104413
CONVRT= 104412

2845

2609
3316

6194
6104

c041
2642
1991«
2737
2760
10374

21624
10474
21734
3520
2807
2847
1096
1145
1095

2626
3489
1097
1109

2494

2524

2247
2441
608
6074

2252
2449
1180
1146

6094

606#

2329

6054
318
618
1440

6174
6164
5154
2122
6144
1803
613
6124
2292
614
2491
2883

9574

33754
33764
9604
9634
3517«
9
1442
9904

2386
1044
10104
0084

15:40 PAGE 77
CROSS REFERENCE

1781

1150

2392

1148
3119
1073
1444

1138
1492
1140
2132
1101
1862
1103
1105
2440
1107
2521
2984

1771«

1038+
1997«
3521
1376
1448
2209

2472
1047
3390
3479

2050
2450
*
2064
2742

2878~
29824
2230«

TABLE =-- USER SYMBOLS

2295+«

2354x

SEQ 0074

2632+

3023+

3127

3200

3352

2816
2860

2819
2869

2820
2870

2822
2873

2828

2842+

2844

1134

1137

1139

1141

3401

35544
2808
2850
7098
1147
1132

2634

1135
131
2536
1804

2813
2857~
1102

1106

28054
1338

7108

1131

2689

3029

3040

1488

2175
3053

2196
3175

2593
3184

2595

3186

2607
3253

1340

1489
14647

1927
1966

1957
1968

2154
2001

2896
2080

2902
2105

2999
2485

2040
2377

2048

2382

130
2390

1419

1441

2940

3034

1866

2257
2598
1476
1350
1352
2920

2379

2326

1880

1953
2358

1954
2372

2539

2559

2570
2601

3290
3098

1544
1516

1548
1552

1556

1814

1882

3102

3103
2126

2266

1354

1518

1560

1564

2615

2618

2637

3114

1075
1474
1342

177
1660

1225
1798
3058

1251
1919

1311
2107

1381

2953

1209
1772
3C57

2831

285

1481

1543

1551

1559

1813

1879

1958

1439

1487

1494

1607

1637

1666

1789

1344

2476

3321

1142
1881
1144
1317

2265
1443

3251

1837

2447

2327
2109
1968

2357

2363

3045

2039

2046

2077

2103

2367

2448

2480

1319

2974
2047

3313
2304

1820

1891

1892

1894

2533
3233

1049

2031~
3537+
1378
1450

2234
2478
2168
3458

3315
2353

2428+

2439

2446+

3030~

319

3192+

3193

3227

1384

1386

1388

1390

1418

1634

1436

1438

2261
253

2297
2554

2307
2562

2312

2323

2360

2376

2375

MACY11 30A(1052)
cZ0P
30-JAN-79
CZOPAC.P11
30-JAN=79 15:40

DATABP
DATAHD
DEL
=
DELAY =

016406
0716374
014372
104403

DHO
DH1

017247
017273

DH2
DPRB
OPRIV
DPRP
DPRS

017320
001234
001246

001250
001232

34651«
34,50
29504

994

2260«

2294+

10204
10284
10294

10194
1229
1635«
1919=

DPTIV

DPTP
DPTS

001252

001254
001240

D10
0T
EMN
EM2

017424
017436
017171
017212

ERRCNT
ERRFLG
ERRMSG
ERTABO
EXITER

001076
0071200
016362
016506
0164632

EM3

FREQ

017232

013522

1611
2608

3629
3637
3645

10234

1585+

2115«
3262+

10304

2106*
3040«

10314
10224
1336«
1480+«
1514+
1564+
1666%
1995+

2148«
2367
2521
2591«
2634
2902+«
3098
3196+
3630
3634
36004
36034
36064
9364
Q774

3449«
3467
3483
2949

1641

2627
3633

SEQ 00/5

34804

2557
1670

2635

1070~
1067
1251+
1644~
1808+
1928+

2390«
2665*
3034«
3404

3.77
3,764
29554

1793
1069+

20¢7%
2257
2426%
2744
3045«

2046+
2247

001242

3454
3473
2952

2594
25094
36134
36174

804

DPTB

K
6
15:40 PAGE 78
CROSS REFERENCE TABLE -- USER SYMBOLS

30834

1775
2690

3085

1790

1930

2108

3170
1774«
2475

3345
2008+
2986+

3346
2083«
3041+

1093
1375«
1673«

1176
1474+
1789+
1891«

1200+
1580+

2697

1841+«
1954

«
2007
2130+
2358«
2516+
2982+
3283

2075«
2301«
2447
2889+
3184
1665+

2118+
3271

2518«

2205+«
3145«

2355+
3265+
1201+

1068+

1858+

1541~

1071«
1066+
1409~
1481+
1515»
1581«
1667
2013«

1423«

1487+
1518«
1603+
1779

2085«
2242
2476%
2536
2598
2680
2983
3114
3268

2154+
2377

3439+

3055

3452

1869

2012«
2149
2363+
2548+
2991+
3316+
1863+

3141«

3157«

2631«

1633+

1663+
2886+

1277
1476+
1492«
1548~
1637+
1864

1278
1477
1493~
1552+
1638
1915+

2119
2314
2494
2559
2015
2882+
3048+
3154

3470~

1798+
1893«

2122«
2327+
2497
2564
2618+
2891«
3050«
3161

2123

2155

ICOUNT
INIFLG
LESS.T
LIGHTS=
LIMIT

(0010€6
001176
014362
177570
001160
]
LINE.N 012234
LINE.X
012200
LOCK
001064
LOGICA= 012470
LOKFLG
001201
LPCNT
001070
LSTERR
001100

MCRLF

MDATA
MEPASS
MERRPC
MLINE
MORE.T

FART1
PART?2
PART3
PASCNT
POPRO =
POP.SP=

5469

017074
017022
017134
001062

3018
1041
3457
9304
1470«

001336
007306
012022
001074
012600
(022626

POP1SP= 005726

= 177776

PUSHRO= 010046
PUSH.S= 024646
PUSH1S= 005746
PWRUP

RCD
RCD1
RDATA

REE

REG

9324
_o75#
5078
5904
964#
2375
1045
10.8
9314
891
978#
9334
9374

017166

017516
017111
017157
017150
014370

MPOWER
MTITLE
MTSTN
NEXT

014006

3535
3389
3465
3461
30814

1840
2468+

1046
1051
2177
9354
SO
6014

3075

SO7#

591#

1661«

2590%

598+
6004
5964

3012

011714
011754
001154

26224
26314
962N

013524

2225

013110

RESREG
016410
RESTRT
016046
RESOS - 104417

3285

1093«
2821
2874w
3478
33964
10064

1512
1511

2367

3371+

3395
2000+
2941
A7
2174
1692«
774N

2005+
3033+
2717
27294

1472
34824
3283«

336K
3385«

3512

3546
35894
35974
35954
35864
35794
35034
1064+
1509+

1913«
2510+

10494
2172
2198
3387«
3487

1549

3410

1774

1566

2205

1847

2150
2474

2068+
3038«

2079+
3159

2226+
3177

1175=
1601
«

1630«

3370+
3438«
3628

«
1091
1540+
1990+

1128+
1579«

1557

2294
2549

2550

2972

3136

2288+
3317

2291+

2332

23490

2352+

1273+
1722+

1303«
1725

1333
1765+

1371+

1406+
1839

2780

3367
3436
35994
36684

2589+
3396
21754
26464
3395

2206
2514

SEQ 0076
L

1473

TABLE == USER SYMBOLS
—n

1069

1068
2435
32814

014536

AN —

FRINT

FTINT
014532
HALTS
016412
HERE
= 000000

15:40
PAGE 79
CROSS REFERENCE

C2DP
MACY11_30A(1052)
30-JAN~79
CZDPAC.Pi1
30=JAN=79 15:40

2030+
2660~

2063«

3400
2179

3372

1199+

2099+
3495

1224+
1659+

1250
1691+

2147+

2193«

2224#

2285+

2347+

1836+
2408+

1812

1878

1934

1959

213

2779

2511«

1605+

1634~
25460

2624

3110

3349

1565

3350

1615

1674

1040«

1065+
1813«

2633«

1407+
1879«

2945+

1471~
1958+
2967+

2081+
3076+

2132+
3198«

2152«
3321+

2165+
3351«

2469+

1555

1563

1613

1672

1792

1871

1932

2125

2069+«
3297+
2348

3025+
3301«
29674

3169
3310+

3176«

3177

3179+

3239«

3241

3243

3245

2825+

2827

1373«
2828

2807+
2846

2809
2847

2810
2850+

2813«
2859~

2815
2865

2816
2866

2879+
2869+

1769~

2625+
3484
1547

1521+

1522

1542+

1551+

1559+

30144

3111
1993«

3287

2286

1130«
2822
34814
3481

1305+

1335

cZ0P
MACY11 30A(7J052)
3C-JAN-79
CZDPAC.P11
30=JAN=79 15340
RETURN

001060

RNUM

013342

RP
RPRTY

RPR11
RPRT2
RPRT3
RPRTZ
RPRTS
RPRT6
RRRR
RRRT
RRT1
RVI8
RXCLK =

SAVPC
SAVRO
SAVRT
SAVR2
SAVR3

SAVRG

920M

3396«

001172
015410

015454
015500
015512
015542
015550
015570
015224
015076
015140
014650
104402

SCOPE = 104400

SRVS
STACK =
STAR
START1
STFLG
SV05
SWR~
=

001306
000200
001177

SW00
SW01
SW02
SWO3
SWO4
SW05
SW06
SW07

000001
000002
000004
000010
000020
000040
000100
000200

=
=
=
=
=
=
=
=

015622
001050

016736

177570

2178

2179+

2198+

2199

2912

29204

3000

3006

3225

2984+

2985

3240

3252+

2302

2317

2365

2380

2994

3002

3062

3654
3656

3662
3664

32914
3305
33044
33154
33164
33204
2086
2987
32214
3041
2240

3501
3567+
3566+«
3565«
3564+

3563«

3562+
1723

2938
2723«
3440

3313+

3372+

3373

32384
32064

316¢#
2255

3558=
3572
3573
3574
3575

3576

3577

2974
2727

1837

3031
2756

1964

3046

1998

2077

2103

2175

2196

2661

2718+

2730+

2739

2232%
1151
1589

2296%
1185
1616

2356%
1210
1647

2887+
1234
1675

2938+
1260
1710

3043+
1286

3143+
1322

3183«
1355

3211e
1392

3263«
1454

1740

1766%

3053

3186

2010%
1078
1526

2074+
1110
1567

1000#
2409
10244

1706
2708
1728+

2101%

1735
30224
1729+

2203~

2237x

2427+

2970%

3024*

9564
3518+
2260
592¢
10420
9104
9764
35624
S8ON
3357
5734
5724
5714
5704
5694
5684
5674
5664

1770+
3539
2322
1039

1817
3542%
2385
2164

1821*
35534
33414
3015

1845«

1885

1890w

3199

3397

3496

1042
3364

1814
3408

1882
3417

2166
3429

2266
3434

2329
3482

2088

3019

3315

988
1495

2071%
29100

SGEN
013316
SLIM
001140
SPACNT= 016725

2177+

BBL
3290

2031
SCOP1 = 104406
SEQ.DA
014032
SEXT
001244

1839+

SEQ 0077

2901

9514
o524
954#
2758
966H
10064
0654

SAVSR2 001164
SAVOS = 104410
SCNT_
001162

1726

3497

TABLE == USER SYMBOLS

BB3~
32834

950#

001126
001130
001134

1725+

96o#
2083

953#
946N
9474
948#
94o#

001124

SAVRS
SAVSP
SAVSR1

1052+

3495«

2897

2067+
33014
3302
3310
3314
3318
2885
2886
3213
2008
9924

001132
001114
001116
001120
001122

15:40
PAGE 80
CROSS REFERENCE

2135

2058

1730

1732

2272

1739«

233

3392

2397

3398

1743

3489

1825

1896

2410

2451

2500

2542

1978

2018

2573

3036%

3142+

1844»

1851+

1925+

1992«

2003e

2392
3491

2718
3493

2719

2723

2724

2920

CZ0P
MACY11 27ar10S52)
30-JAN-79
CZDPAC.PI11
30=UAN=79 .,:40

TOP
TP
TPCSR
TPDBR
TPRTY
TRPOK
TSTNO

TST1
TST10
TST11
TST12
TST13
TST14

TSTi5
TST16
TST17
TST2
7ST20
TST21
TST22
TST23
TST24
TST2S
TST26
1ST27
TST3

015620
001170
001054
001056
015320
000070
001072

001356
002212
002272
002360
002456
002564

003050
003264
003422
001470
003614
003670
003774
004172
004224
004346
004502
005120
001576

1843+

2268+

2299+

2328+

2553

2989+

3026+

3157

3158+

3159

2944
3203«
3084«
3074

2946+
3311
3299
3086

2958+
3304+
3238+

3549

2899«

2993«

2996+

3004~

1427
1731
1942

1429
1732

1447+
1794

1693«
1796

1700
1872+

1701
1874

3284+

3286

3229

3234«

1174%
1600+

2192«

1946

3287

1198+
1629+

2223+

1223+
1658+

2284

1249+
1690«

2346+

»
»

3272+

1422%

1807+

2256+

[o
JUNIV,]

001136

1777

2201~

N ——

001112

001166
001050
001052
012022

1776+

2102+

001110

1709+

2073«
3044+
2518
327

001104
001106

1702

NON

017454
007102

1700+

2033«
2910w
2477
3230

O NS

TMPDAT

SEQ 0078

—_—

TEMPS

TIME
TKCSR
TKDBR
TLAST =

001152

TEMPS

TABLE == USER SYMBOLS

1697

TEMP2
TEMP3

3491
3408
3493
3364
3617
3434

b
\ )

TEMP
TEMP1

&~
OO0~

TDATA

000400
001000
002000
004000
010000
020000
040000
100000
001236

N—A-J

=
=
=
=
=
=
=
=

A VNNO WIS B NWWAWND
o NEGFCONONWNO~N
Yy
VO H VOO =2 NWW

SWO8
SW09
SW10
SW11
Swi12
SW13
SW14
SW15
SYNC

15:40
PAGE 81
CROSS REFERENCE

1272+
1721~
2407+

2121

2133

<860«

2864

1302+
1764

1332«
1835+

1370w
1912+

1405+
1089+

2423~

2467+

2509+

2588+

rzop
MACY1T 30A(1052)
30-,AN-79
CZDPAC.P11
30-JAN=79 15:40

15:4C
PAGE 82
CROSS REFERENCE

1ST30
TST31
1ST32
1ST33
1ST34
TST3S
1ST36

005534
006134
006346
006472
006676
007136
007340

183
1913
1990
2030
2063
2095
2147

19124
1989
20294
20624
2098w
21464
2194

1ST4
1ST40
1ST41
15742

001726
007760
010256
010562

1128
2224
2285
2347

1174n
2284w
2346
ZLO7H

010762

2626

26678

1ST37

007470

1ST43

(10604

15745

011156

1ST44

1ST46

011524

2193

2408

2468
2510

1S147
012022
SIS
002006
TST50 = sxxns U

2589
1175
2660

1ST7

1226

1ST6

002066

TSYNC

001144

002140

1199

9584

1852
1938

TTST

Tv18
V19
TV24
TV25
TYPDAT

015700

014542
014574
014406
014460
016376

TYPE
= 104407
TYPMSG
016316

VALID = 104405
WRDCNT
XBX
XCSR
YLINEX

XTAG
XTSTN
ZLINE
$E
-

016722
016210
016076
001146

012312
016514
016522
000051

000047

8
TABLE

== USER SYMBOLS

SEQ 0079

2223#

2423#

25094
25884

2659
1198

3378

1223

12498

1773«

1858
1945

1776

1863
1947

1778

1873
1972«

1784

1875
1976+«

1788

1884~
2002+«

1795

1885
2006*

1796

1889+
2011

347

3475

351

3545

1316

1318

1320

1337

1339

1341

1343

2770%

3394«

3507

1128
13044
1579
17664

11294
1333
15804
1836

1175
13344
1601
18374

11764

1199

12004

1224

12254

1371
1602¢
1913

13724
1630
19144

1406
16314
1990

14074
1659
19914

1470
16604
2030

12254
1463
16604
023

2007
3145
2624
2631
3455

2231
31514
30984
31144
3474

2295

2355

2973

3040

31414

3182

1002
3453

1041
34564

3017

3388

3456

3460

3464

1308
1349

1310
1351

1312
1353

1314

9594

2729

2733%

10654
1273
15104
1722

109
127644
1540
17234

10924
1302
15414
1765

2728
3459
3463
1#
1250
14714
1691

27324
35024
35054
1064
12514
1509
16934

2270
3035«

2299
3039+«

2331«
3044

314 1

3142

3210

3245

35514
34344

2063
23487

20644
2408

2099
26094

21004
2424

2147
24258

21484
2468

2193
24694

21948
2510

2224
25114

22254
2589

2285
25904

14
1243
14714
1684

1057
12514
1502
16934

10654
1266
15104
1715

1084
127648
1533
17234

10924
1296
15418
1758

1121
13044
1572
17664

1129%
1326
15804
1829

1168
13340
1594
18374

11764
1364
16024
906

1192
13724
1623
19144

12004
1399
16314
1983

1217
16074
1652
1991#

2056

2151+
2629+
3262

34774

20314
SZg?t

20314

1851

1936

3468

2269+
2990

3547+
3432
34024
914+

1842+

1926

2073
2395

2237
2971~

3516«
3430
3391
910+

1819+

1925

2072+«
2394+

2236
2913«

1306
1347

1924

2033
2362

2156
2890
3346

998#¢
1345

1817

2153
2430
3344

33584

181 6+
1914~
ggg 2+

20644

2092

21004

2140

21484

2186

219w

2217

22254

2278

22864
2

22864

(Z0P
MACY1? 30A(1052)
30-JAN-79
CZDPAC.P1
30-JAN=79 15:40

CoC014

017560

2340
26614
»
10104

.ERRTA
CHLT
PFAIL

.RESOS

+RXCLK

.SAV0S
.SCOPE

.SCOP1
. TRPSR
.TRPTA

.TYPE

.VALID

016164

013776
016770
0713434
016730
015672
016104
000056

001202
016122

012722

9794

24254

988

990"

9924

»
99

905

1003

999

2461

2459

631
657

705
731
757
783

2253
2484
2565
2699
3047
3291

887

=~ USER SYMROLS

2617

809
835
861
8944

1001

TABLE

24094

805
831
857
8904

997
991
1011
1009
995
2200
3448
885
883
1007
993
1005
989

2401

627
653
679

10294
1426
1787
1951

013004
013374
016534
016530
014332
016002
017352

23484
33784

624N
649
675
701
727
753
779

.CLEAR
.CLOCK
-CNVRT
.CONVR
.DELAY

15:40
PAGE 83
CROSS REFERENCE

36694

2663
3016
29444

33854

3412
918

ABS.

2186

017560

ERRORS DETECTED:

990

99?2

994

996

998

1000

1004

1006

1008

1284
1594

1121
1623

11€8
1652

1192
1684

1217
1715

1243
1758

1296
1906

1326
1983

1364

2316
2526
2617
3105
3289

3555
3354
3405
555
979
988
895
1057
1572

2217

2278

2340

2401

2417

2461

000

CZDPAC.BIN,CZDPAC.SEQ/CRF/SOL/NL
: TOC=CZDPAC.M(L,CZDPAC.P11
13k

1588
1806

2249
2485
2572
2826
3168

3377

RUN-TIME: 6 10 1 SECONDS
RUN-TIME RATIO: 60/18=3.2

CORE USED:

=2ON\NNNO
W
WO
W ~JWNOD &
W00
O OMANO

»
X

STYPE
$VARIA

NI
A b — —2

539
3426

WWNONINY
=2 =2 —

1»
1%
LY 4
¥
»
1#
1%
1%
X
o
i#
1533

$SEOP

1671
1931

== ONUANND
N S
NOD
&~ NN & Ny
R = 2NPONY
—

$HEADE
SHLT
TMSG
$REG
$SCOPE
$5COP1
$SYMBO
$TRAPS
$TRPDE
$TRPSR
$TSIN

1259

W =2 ONUNNNO
N &
SN NNON BN
00 —=\00\0
O HON

3508
3072

623

2306
2499
2611
3069
3247

1209
1642
1870

WNWNNIMAON)
— — —

14
S3a

”

SEQ 0081

2263
2496
2603
2868
3224

1184
1640
1868

WM NAND NN

$CONVR
SDELAY

$CAT(CH

-~ MA(CRO NAMES
=2
NN SO0
[V 1o No SV IV ¥ RV 1VA

2259
. 2493
2600
2849
3209

TABLE

WWNINON)
= — —

2254
2488
2597
2830
2174

WWLANININ)
— — —

1077
1612
185/

WNAAINOAUND)
= - =

S53La

602#
1610
1811

N =N N WO ON N
NO =N — O W
OO
£ N— OWNW

BITSR

HLY

15:40
PAGE 85
CROSS REFERENCE

N — O NMNNO
O
NONMNLNLN
S OO0
W00\
0 —O 00—

(0P
MACY11 30A(1052)
30-JAN-79
CZDPAC .P
30=-JAN=-79 15:40

(25 PAGES)

2503

2653

2023

1010

1399

2056

1463

2092

1502

2140