Digital PDFs

AH-8573C-MC

September 1979

82 pages

Original

41MB

view download

OCR Version

55MB

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

OCR Text

DP11 SYNC INTFC

CZDPACO

AH:8573C:MC

SEP 1979

FICHE 1 OF 1

MADE IN USA

copvriGHT 73.70

HDEORED

MACYT1

e
s

ONENWN
-2 OO0
NN
N no

(ZDPAC.P1T

30A(1052)

30-JAN=79

30=JAN=79 15:40

15:40

PAGE

SEQ 0001

.REM %

IDENTIFICATICON

PRODUCT CODE:

A(C=-8572C-M(

PRODUCT NAME:

(CZDPACO DP11

DATE:

JAN, 1979

MAINTAINER:

DIAGNOSTIC GROUP

SYNC

INTFC

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

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES

ggcsaE:?NSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
THE

SOF TWARE DESCRIBED

THE

TERMS OF

IN THIS DOCUMENT

IS FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH
SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBlLITY
FOR THE USE OR RELIABILITY OF ITS SOF TWARE
THAT IS NOT SUPPLIED BY DIGITAL.

ON EQUIPMENT

1973,1976,1979 BY DIGITAL EQUIPMENT CORPORATION

CZ0P

MACY?1_30A(1052)

(ZDPAC.P1

30-JAN=79

30-JAN-79 15:40

59
60

15:40

PAGE 4

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

66
gg

FUNCTIONAL INTERFACE WITH THE MODEM.
THIS TEST IS RUN UNDER A
SIMU_ATED (SOFTWARE) CLOCK THAT RUNS AT APPROXIMATELY S54KHZ.

THE FUNCTION OF THIS TEST iS TO CHECK OUT THE CABLE

SECONDLY, THERE IS THE PRINCIPLE DIAGNGSTIC FOR THE DP11.

REMOVED FROM THE SYSTEM UNIT.

;%
d.

REQUIREMENTS

e.1

EQUIPMENT

ANY PDP11

79
80
g}

THIS TEST PROVIDES COMPLETE

FAMILY CPU

DB25S TEST CONNECTOR (IF CABLE TEST IS TO BE RUN)
DP11-DA
DP11-CA (OPTIONAL)

2.2

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

g‘é

THE USE OF ABSOLUTE LOADER.

3.1

)

DF11-L TESTING
THIS PROGRAM WILL EXERCISE THE DF11-L.

METHOD:

98
1%

CABLE MUST BE

INSERTED INTO DP11,TEST CONNECTOR_ON END OF

CABLE, SA=210, SET SW00=1,HIT START AND CONT. AS PER 4.3.1.
NOTE: IN THIS TEST AN ERROR WILL CAUSE PRG TO START AT BEGGINING OF

101
102
103
}8?

STARTING PROCEDURE

;867:

4.1

CONTROL SWITCH SETTINGS

PAGE 03

108

SWITCH 7

SET INDICATES SINGLE DP11 MODE

SWITCH 8

SET SELECTS THE DP11-CA OPTION FOR TEST

:}(1)8

113

THIS

DIAGNOSTICS FOR THE DP11-DA AND DP11-CA.

(BCOTR=25)
AND

PROGRAM RUNS IN THE MAINTENANCE MODE WITH THE BCOTR-25 CABLE

SEQ 0002

4.2

CLEAR INDICATES CYCLE MODE

STARTING ADDRESSES

(MORE THAN ONE)

TEST

bbwgw&ggwwwwmmmmmwmwmuAAAA44
WN=O VRN
VNS WN—=OYoO~NONNS

—I—J.—l—l..A—D_J—l_l_‘—-I—A_J—J-—J—I—J_J—l._‘—l-—._..—i-l_l—a_.

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

15:40

PAGE 5

SEQ 0003

200 =
210 =

150
151
152

MUST BE PULLED FROM THE SYSTEM UNIT)

START ADDRESS FOR BCO1R=-25 CABLE TEST (DB25S TEST CONNECTOR

MUST BE PLUGED IN)

4.3

OPERATOR ACTION

4«.3.1

IF SWITCH 7 WAS LEFT UP THE PROGRAM WILL HALT WITH THE SWITCH REG IN
IN THE DATA LIGHTS. (EXCLUDING 11/05 AND 11/10 CPW)
AND REQUIRE THE FOLLOWING OFERATOR ACTION:
A)

SWO-Sw8

MUST BE SET TO THE VECTOR ADDRESS OF

Sw9-SwWi5

MUST BE SET TO THE OCTAL LINE NUMBER OF

PRESS

THE FIRST

DP11. NOTE FIRST DP11 VECTOR; NOT THE LINE SELECTED
UNLESS IT IS LINE O

CONTINUE,

THE DP11

TO BE

TESTED.

IN DATA LIGHTS(EXCLUDING 11/05,11/10)

E.G.

THE FIRST DP11

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

I.E.

9
0
1
}2%
144
145
146
147
148
149

START ADDRESS FOR MAINTENANCE MODE DIAGNOSTICS (CABLE

1ST DP11 774776

2ND

32ND

BUFFER

XMIT
SYNC
RCV

STATUS
BUFFER

774770

RCV

STATUS

774766
774764
774762

774760

XMIT

774774
774773
774772

774406
774404

774402
774400

BUFFER

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

15:40

PAGE 6

SEQ 0004

153

PAGE 04

4£.3.2

TEST REMOVE BCO1R-25 CABLE FROM MODEM AND PLUG THE

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

TEST THE CABLE MUST BE REMOVED FROM

OPERATING PROCEDURE
SWITCH SETTINGS

(APPLICABLE TO BOTH TESTS)

SW15 = 1 OR UP ... HALT ON ERROR
SW14 = 1 OR UP ...

SCOPE LOOP FOR WHOLE CURRENT TEST

SW13 = 1 OR UP ...

INHIBIT ERROR PRINTOUT

SW12 = 1 OR UP ...

INHIBIT ALL PRINTOUT, BELL ON ERROR.
INHIBIT

D e
o

SWI0 = 1 OR UP ... ESCAPE TO NEXT TEST ON ERROR
SWO8 = 1 OR UP ...

J— —

SWi1 = 1

O~NNN
NNVNVNVNO
OV NON

6£.3.3

FOR CABLE

D o

RCROR

D —

AN NN

PN NIN S S LR AR AR 2T SR TF A

154

OR UP ...

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 1
AN AVALANCH OF ERRORS......

181

ITERATION

TO 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 NOC.

DEPENDING ON THE ERROR AN ADDITIONAL MESSAGE MAY BE
AS STATED ABOVE FOR ERRORS THAT ARE

TYPED OQUT.

CAUSED BY A COMPARISON

SUCH AS DATA COMPARISON,REGISTER COMPARISON,ETC.
AND INTERUPT ERRORS, THERE WILL BE ADDITIONAL [N ORMATION
IN THE ERROR REPORT.

(ZDP
MACY11_30A(71052)
30-JAN=79
CZDPAC.P11
30-JAN=79 15:40

PAGE 7

SEQ 0005
PAGE 05

6.2

ERROR RECOVERY
A.

TO RECOVER FROM HALT ON ERROR, MAKE
DEPRESS CONTINUE.

IT MAY BE DESIRABLE

RESTRICTIONS

STARTING RESTRICTIONS

IN A SCOPE LOOP,

VONONESWN—=O

USTASIAS
NS N ST N 1,8 [N

202
203
204
205
206
207
208

15:40

SET SWITCH 14.

SURE SW14

IS SET THEN

TO SET S¢' i3 OR SW 12 IN AN ERROR CONDITION.

SEE 4.1 AND 4.3.1
7ol
7.2.1
8.8
Tele3

OPERATING RESTRICTIONS

CABLE TEST

OF A MODEM.

(SA=210) MUST BE RUN WITH DB25S CONNECTOR IN PLACE

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

CYCLE MODE.

IF SW 07=0 WHEN START IS PRESSED; 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 WILL BE TESTED. THIS GOES ON UNTILL A NON-EXISTANT LINE IS FOUND
THEN THE PROGRAM STARTS WITH LINE O AGAIN.
BASCSR AND BASVEC ARE DEFAULT VALUES. IF YOUR VALUES ARE
DIFFERENT PATCH YOUR VALUES IN THFRE.
MISCELLANEOUS

(ZDP

MACY11_30A(1052)

CZDPAC.P11

30-JAN-79

30-JAN=79 15:40

15:40

PAGE 8

238
239
240
241
242
243
244
245

SEQ 0006
PROGRAM DESCRIPTION

INITIALIZATION ROUTINES
THE _START CODE FOR BOTH THE MAINTENANCE MODE AND THE CABLE
TEST INITIALIZES THE PROCESSOR PRIORITY TO LEVEL SEVEN AND
SETS THE STACK POINTER TO ADDRESS 1100.
CONSOL SWITCH SEVEN

IS THEN EXAMINED TO DETERMINE IF THIS IS CYCLE MODE OR
SINGLE LINE IS
TEST.
IF SWITCH SEVEN IS
UP TWO SUBROUTINES (CLRVEC,LINE.N) ARE EXECUTED BEFORE THE
TEST SECTION IS ENTERED.

9.1.1

CLRVEC,

CLEAR-VECTOR-AREA

THE SUBROUTINE ''CLEAR-VECTOR-AREA'' LOADS THE COMMUNICATION

VECTOR AREA WITH .+2,HALT.
TO TRAP TO THERE

9. 1.8

THIS CAUSES ANY ILLEGAL

STATUS WORD.

INTERRUPTS

LINE.N, LINE NUMBER
THE FUNCTION OF

THIS SUBROUTINE

IS TO SAVE SWITCH EIGHT OF

THE CONSOL (SwW8 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 O(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'' IS 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 IN SUBROUTINE FORMAT
VERSUS MACROS.

(ZDP
MACY11 30A(1052)
CZDPAC.P11
30=JAN=79

279

30—JAN-79
15:40

15:40

PAGE 9

9.2.1

SEQ 0007
BITST, BIT TEST
THIS SUBROUTINE IS ENTERED WITH A JSR RS, BITST.
MMEDIATELY FOLLOWING THIS INSTRUCTION IS THE BIT SELECTED
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.
TST?;LE?TéNIS MADE AT THIS POINT TO CHECK FOR ILLEGITIMATE

9.2.2

RESET TEST
THIS IS A SIMPLE TEST THAT MERELY WRITES INTO ALL WRITEABLE
BITS OF THE TCSR AND RCSR, 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 IS TO TEST FOR INTERACTION
BETWEEN READ/WRITE BITS OF THE TCSR AND RCSR. THIS ROUTINE
IS ENTERED WITH A JSR REGISTER FIVE, FOLLOWED BY THE BIT
NUMBER. THE SELECTED BIT IS SET AND THEN THE ENTIRE CSR
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'".

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 THE
CSR AND TMPDAT. FOLLOWING THIS THE CSR IS COMPARED WITH
TMPDAT TC VERIFY THAT ONLY THAT BIT WAS CLEARED.

9.4.5

PRIORITY

TESTS

WITH THE PROCESSOR PRIORITY AT LEVEL FIVE '‘STATUS=INTERRUPT=-

ENABLE'' (SIE)

IS SET AND ALL THE BITS THAT SHOULD CAUSE A

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

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
TESTS VERIFY THE TRANSMITTER INTERRUPTS BY LOADING THE

PRICRITY

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

334
335
336

15:40

PAGE 10
SEQ 0008
TRANSMIT BUFFER, ENABLING THE MAINTENANCE MODE CLOCK AND
WAITING FOR AN INTERRUPT.
IF NO INTERRUPT IS RECEIVED WITHIN
10 CHARACTER TIMES AN ERROR IS REPORTED.

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

15:40

PAGE 11

SEQ 0009
9.2.6

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)
FOR THE SYNC REG AND 0 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 IN
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
%gléffl'fgé O;HéS7Tg§T IS REPEATED FOR THREE CHARACTER LENGTHES

FUNCTIONALLY THIS TEST VERIFIES THE CAPABLIITY OF

MAINTAIN SYNC OVER A LONG CHARACTER STRING.

THE DP11

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

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

15:40

PAGE 12

SEQ 0010

9.2.8

RANDOM DATA, RANDOM STALL

THIS INTERRUPT DRIVEN TEST TRANSMITS RANDOM DATA FOR A PERIOD

OF TIME

(0 TO 0.65 SECONDS, O TO 260 CHARACTERS) DETERMINED BY

A RANDOM GENERATOR.

AT THE EXPIRATION OF

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

;7550%?52325 IS RESTARTED AND NEW DATA IS TRANSMITTED FOR A NEW

THIS VERIFIES THAT THE DP11

IDLE AT RANDOM.

9.2.9

CAN SWITCH BETWEEN DATA MODE AND

PARITY TEST

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

INTERRUPT SERVICE ROUTINE THAT CALCULATES THE PARITY ON THE
EXPECTED DATA, COMPARES THE RECEIVED DATA WITid THE EXPECTED 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 ENABLF IS
NOT SET THEREFORE 'RECEIVER OVERRUN'' SHOULD SET AND CAUSE A
TRANSMITTER STATUS INTERRUPT.
THIS SEQUENCE IS REPEATED FOR A
FULL BINARY COUNT. (000-377)

9.2.1

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 IDLES FOR APPROXIMATELY 30MS.
FOR EACH POSSIBLE CHARACTER AVAILABLE IN THE 8
BIT/CHAR SET.
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 MULTIVIBRATOR WHERE AS THE CABLE TEST OPERATES OFF A SOF TWARE 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 ZERO 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.

CZDi

MACY11_30A(1052)

CZDPAC.P11

30=-JAN=79 15

326JAN-79

15:40

PAGE 13
9.3.2

SEQ 0011
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
AND EXAMINE BIT8 OF SAVSR1 TO DETERMINE IF
8 BITS/CHAR OR
12 BITS/CHAR HAVE BEEN SELECTED FOR TEST.
IF 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
CLOCKING INSTRUCTIONS.
BY CHANGING LOCATION ‘FREQ"’
IT IS POSSIBLE TO SLOW DOWN THE CLOCK.
WITH
FREQ 1 THE SOF TWARE CLOCK RUNS AT APPROXIMATELY 25 KHZ.
ENABLES THE OPERATOR TO SLOW THE CLOCK DOWN TO ALMOST
ZERO 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 PER
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 IS

SELECT
0 THE CONTENTS OF REGISTER 5 IS MODIFIED AND SUBROUT INE
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 IS
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, TV18.
TV18
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 REPORTED.
THE SOF TWARE 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 MNEXT SET OF CYCLES GENERATED

IS ONE SHORT OF THE NUMBER REQUIRED TO TRANSMIT A FULL CHARACTER.

CZDP

MACY11_30A(10 52)

CZDPAC.P11

30-JAN-79 15

325JAN-79

15:40

PAGE 14

484
485
486
487
488
489
490
491

AGAIN "RECEIVER ACTIVE'' IS TESTED FOR A PREMATURE RESPONSE.
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.

. 492

493
494

SEQ 0012

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 S50KHZ SPEC OF THE
DP11.
THE SOFTWARE CLOCK 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

"DATA'’, "ACTIVE'' IS DROPPED AND THE RECEIVER RESYNCED.
9.3.8

SEND-REQUEST TEST

——————
. |

=0 ele- RNTe NV, F NP N

RORORO

L=
=
D

IN THIS TEST '‘SEND REQUESi'‘ IS RAISED BY LOADING THE TRANSMIT

BUFFER AND GENERATING 3 CYCLES.

IF 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, 7, AND 6
BITS PER CHARACTER MODE.

2.3.9

TERMINAL READY
THE FUNCTION OF

.ENDR X

THIS TEST IS TO VERIFY THAT WITH THE DB25S TEST

CONNECTOR IN PLACE, SETTING ‘‘TERMINAL READY'' RAISES ‘'‘CARRIER'
AND 'RING FLAG''.
THIS TEST ALSO VERIFIES ‘RING FLAG'' AND
"'CARRIER DOWN FLAG'' INTERRUPT.

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

15:40

PAGE 15

SEQ 0013

523
524
525
526
527
528

:DP11A SYNCHRONOUS MODEM INTERFACE DIAGNOSTIC
PanxnsxsMAINTENANCE MODE*
% ###+
:COPYRIGHT, DIGITAL EQUIPMENT CORPORATION**####
MAYNARD, MASSACHUSETTS 01754
:PROGRAMMER: JOHN FRIEDRICH

529
530

:REVISED BY:
:

531

534
535
536
537
538
539
540

:22-CIDPA=C

332

543

.
:

:PRESS START
:THIS IS FOR THE STATIC TEST
:LOAD ADDRESS 000210

:PRESS START
:THIS IS FOR CABLE TEST
:FOR MORE INFORMATION SEE THE

252

256

558
559

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

560
561
562
563
564
565
566
567
568
569
570
571
572
573

:STARTING PROCEDURE

:LOAD PROGRAM
:LOAD ADDRESS 000200

:DOCUMENTATION IN FRONT OF THE LISTING
|

;SWITCH REGISTER OPTIONS

SW15=100000
SW14=40000

4
;

SW13=20000
SW12=10000
SW11=4000
SW10=2000
5W09=1000
SW08=400
SW07=200
SW06=100
SW05=40
SW04=20
SW03=10
SW02=4
SW01=
SW00=1

:=1,HALT ON ERROR
:=1,LOOP 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,L00P ON ERROR
:=1.SINGLE SELECTED DP11. =0 CYCLE ALL DP11S

549
550
551

554
555

( ALL CODE COMMENTED ;+ IS FROM REV. ()

546
547
548

REVISION C CREATED BY ELLIOT GERBERG

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

21
544
545

REVISION B CREATED BY JOHN EGOLF

CZDP
MACY11_30A(1052)
30-JAN—79
CZDPAC.P1
30=JAN=79 15:4

574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598

599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621

15:40

PAGE 16

SEQ 0014

sREGISTER DEF INITIONS
000000
000001
000002
000003
000004
000005
000006
000007

;GENERAL REGISTER
;GENERAL REGISTER
sGENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
+PROCESSOR STACK POINTER

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

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

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

PUSH1SP=5746
POP1SP=5726

;DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
PUSHR0=10046
:SAVE RO ON STACK
POPR0O=12600
;RESTORE RO FROM STACK
PUSH. SP=24646
;DECREMENT STACK TWICE
POP. SP=22626
s INCREMENT STACK TWICE
LEQUIV
EMT_HLT sBASIC DEFINITION OF ERROR CALL
100000
30000

BIT10=2000
BIT9=1000
BIT8=400
BIT7=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BITZ—
BIT1=2
BITO=1

CZDP
MACYTT 30A(1052?
30=JAN=79
CZDPAC.P1
30=JAN-79 15:40

000000
000002
000000
000006
000000
000012
000000
000016
000000

15:40

PAGE 17

SEQ 0015
s TRAPCATCAER FOR

HALT

. ¢

HALT

.42

HALT

.42

HALT

.42

HALT

ILLEGAL

INTERRUPTS

JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

SEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED 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
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
cEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
SUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED 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
sJUNEXPECTED TRAP TO THIS LOCATION
EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE

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

000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000
000212
000000
000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
000000
000276
000000
000302
000000
000306
000000
000312
000000
000316
000000
000322
000000
000326
000000
000332
000000

15:40

PAGE 18

SEQ 0016

JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LGCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
sUNEXPECTED 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 TC FIND CAUSE

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

000336
000000

15:40

PAGE 19

SEQ 0017

sJUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK 10 FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEYAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
:UNEXPECTED TRAP TO THIS LOCATION

SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAF TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
SUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIiS LOCATION
SEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

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

793
794
795
796
797

798
799

800

801
802
803
804

805
806
807

808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846

000514
000516

000520
000522
000524
000526
000530

000532
000534
000536
000540
000542
000544
000546
000550
000552
000554
000556
000560
000562
000564
000566
000570
000572
000574
000576
000600
000602
000604
000606
000610
000612
000614
000616
000620
000622
000624
000626
000630
000632
000634
000636
000640
000642
000644
000646
000650
000652
000654
000656
000660
000662
000664
000666
000670
000672

000516
000000

000522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546
000000
000552
000000
000556
000000
000562
000000
000566
000000
000572
000000
000576
000000
000602
000000
000606
000000
000612
000000
000616
000000
000622
000000
000626
000000
000632
000000
000636
000000
000642
000000
000646
000000
000652
000000
000656
000000
000662
000000
000666
000000
000672
000000

15:40

PAGE 20

SEQ 0018
.+
HALT

.+2
HALT
.+2
HALT
.42
HALT
.+2
HALT
.42
HALT
.2
HALT
.42
HALT
.+2
HALT
.+2
HALT
.2
HALT
. 8
HALT
o 8
HALT
.42
HALT
o *€
HALT
.+2
HALT
.2
HALT
.42
HALT
R
HALT
o ¢
HALT
.42
HALT
o 08
HALT
.42
HALT
.42
HALT
o ¢
HALT
.+
HALT
.2
HAL T
.+
HALT

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS |.OCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

sJUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE 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
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATICN
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
SJUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
SEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sJUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
sUNEXPECTED 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

(ZDP
MACYT1T 30A(1052)
326JAN-79
CZDPAC.P11
30=JAN=79 15

15:40

PAGE 21

000676

000000
000702
000000
000706
000000
000712
000000
000716
000000
000722
00000
000726
000000
000732
000000
000736
000000
0C0742
000000
000746
000000
000752
0000C0

SEQ 0019
.42

sJUNEXPECTED TRAP TO THIS LOCATION

JUNEXPECTED TRAP TO THIS LOCATION

HALT

SEXAMINE STACK TO FIND CAUSE

HALT

;EXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE

HALT

JEXAMINE STACK TO FIND CAUSE

HAL T

SEXAMINE STACK TC FIND CAUSE

HALT

sEXAMINE STACK TO FIND CAUSE

o« *&

sUNEXPECTED TRAP TO THIS LOCATION

.+2

JUNEXPECTED TRAP TO THIS LOCATION

.42

JUNEXPECTED TRAP TO THIS LOCATION

o« ¢

JUNEXPECTED TRAP TO THIS LOCATION

HALT

JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

.+2

JUNEXPECTED TRAP TO THIS LOCATION

HALT

sEXAMINE STACK TO FIND CAUSE

HALT

;EXAMINE STACK TO FIND CAUSE

HALT

JEXAMINE STACK TO FIND CAUSE

HALT

SEXAMINE STACK TO FIND CAUSE

HALT

;EXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

.+2

JUNEXPECTED TRAP TO THIS LOCATION

o *8

JUNEXPECTED TRAP TO THIS LOCATION

o *f

JUNEXPECTED TRAP TO THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE

o 08

JUNEXPECTED TRAP TO THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE

.+2

JUNEXPECTED TRAP TO THIS LOCATION

.42

JUNEXPECTED TRAP TO THIS LOCATION

.+2

JUNEXPECTED TRAP TO THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE

HALT

;EXAMINE STACK TO FIND CAUSE

HALT

sVECTOR INITIALIZATION
.=24
PFAIL
340
MLY

;EXAMINE STACK TO FIND CAUSE

;POWER FAIL VECTOR
;PRIORITY 7

340

. TRPSRY
340

L0GI CAL
.=52

sTRAP DISPATCH SERVICE

sARGUMENT OF

TRAP IS EXTRACTED

sAND USED AS OFFSET TO OBTAIN POINTER
sTO SELECTED SUBROUTINE

O=0O

1164 6
62716

17616

000002

000000

. TRPSR: MOV

SuB

MOV

(SP) ,=(SP)

#2,(SP)

a(SP), (SP)

sGET PC OF RETURN

:=PC OF

;GET

TRP

TRAP

CZDP
MACY11_30A(1052)
325JAN-79
CZDPAC.P1
30-JAN-79 15

903
904

006316
042716
062716
017616
000136

905

907

177001
001202
000000

000200
005037
000137

001146
001262

000210
005037
000137

001146
007234

001050

15:40

PAGE 22
TRPOK
:

.=200

START1:

.=210

SEQ 0020
ASL

(SP)

sMULTIPLY TRAP ARG BY 2

#.TRPTAB, (SP)

sPOINTER TO SUBROUTINE ADDRESS

#177001, (SP)

BIC
ADD
MOV
JMP

a(SP), (SP)
a(SP)+

CLR
JMP

BeGIN1

CLR

JMP

;CLEAR UNWANTED BITS
s SUBROUTINE ADDRESS
;GO TO SUBROUTINE

XL INEX

sSET UP CONSOL SWITCH REGISTER

XL INEX

;DB25S CONNECTOR TEST

BEGINZ

.=1059

;INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
177560
177562
177564
177566

TKCSR:
TKDBR
:

TPCSR:

TPDBR:

177560
177562
177564
177566

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

RETURN:
NEXT:
LOCK:
ICOUNT:
LPCNT:
TSTNO:

PASCNT
:

ERRCNT:
LSTERR:

(=lelelolelelelsls)

;PROGRAM CONTROL PARAMETERS
:SCOPE ADDRESS FOR LOOP ON TEST
sADDRESS OF NEXT TEST TO BE EXECUTED
sADDRESS FOR LOCK ON CURRENT DATA
sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE
sNUMBER OF ITEREATIONS COMPLETED

;NUMBER OF TEST IN PROGRESS
sNUMBER OF PASSES COMPLETED
: TOTAL NUMBER OF ERRORS
;PC OF LAST ERROR CALL

TEMP]:

TEMP?2:
TEMP3:
TEMPS4:
TEMPS:

SAVRO:
SAVR1:
SAVR?:

SAVR3:

SAVRS:
SAVRS:
SAVSP:
SAVPC(:

SAVSR1:
TMPDAT :

SLIM:
BPC:

TSYNC:

jelelolelelelalololeloleleloleldslole)

2833838233833888388
RRSHRRERRNBFESSRRS

;PROGRAM VARIABLES

: TEMPORARY
: TEMPORARY
: TEMPORARY
: TEMPORARY
: TEMPORARY

;RO STORAGE
:R1 STORAGE

STORAGE
STORAGE
STORAGE
STORAGE
STORAGE

:R2 STORAGE

;R3 STORAGE
;R4 STORAGE

;RS STORAGE

;STACK POINTER STORAGE

sPROGRAM COUNTER STORAGE

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

MACY11_30A(1052)

001146
001150
001152
001154
001156
001160
001162
001164

001166
001170
001172
001174

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

15:40

PAGE 23
XLINEX:
:
CABLE
TDATA:
RDATA:
CHLEN:

LIMIT:
SCNT:
SAVSRZ:
TIME
:

TP:
RP:
BA(CK:

SEQ 0021
leleolelololelolololelele]

(ZDP

C(ZDPAC.P1

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

15:40

PAGE 24

SEQ 0022

972

3;2

975
976
977
978
8878

;PROGRAM CONTROL FLAGS

001176
001177
001200
001201

000
000
000
000
000000

INIFLG:
STFLG:

.BYTE
.BYTE
ERRFLG: .BYTE
LOKFLG: .BYTE
$Y=0

981
982
&3
985
986
987
988

001202

104400

R
T
.TRPTAB:
SCOPE=TRAP+0

sCALL TO SCOPE LOOP AND ITERATION HANDLER

104401

CLOCK=TRAP+1

sCALL TO CLOCK DEVICE

104402

RXCLK=TRAP+?2

sCALL TO CLOZK THE RX

104403

DELAY=TRAP+3

sCALL TO CELAY FOR SPEC. TIME.

104404

CLEAR=TRAP+4

sCALL TO BIT CLEAR SPEC BIT

104405

VAL ID=TRAP+5

;CALL TO MAKE SURE ONLY SPEC BIT CLR

104406

SCOP1=TRAP+6

;CALL TO LOOP ON CURRENT DATA HANDLER

1044067

TYPE=TRAP+7

;CALL TO TELETYPE OUTPUT ROUTINE

104410

SAVO5=TRAP+10

;CALL TO REGISTER SAVE ROUTINE

104411

RESO5=TRAP+11

sCALL TO REGISTER RESTORE ROUTINE

104412

CONVRT=TRAP+12

sCALL TO DATA OUTPUT ROUTINE

104413

CNVRT=TRAP+13
«CNVRT

sCALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

001202

(C15672

991

001204

013374

993

001206

013434

995

001210

014332

997

001212

013004

999

001214

012722

1001

001216

016104

1003

001220

016122

1005

001222

016730

1007

001224

016770

1002

001226

016530

001230

076534

992

994

996

998

1000
1002

1004

1006
1008
1010
}8};
1013
1014

1017

}85?

1026

1027

001232
001234
001236
001240
001242

001244

000001
000001
000001
000001
000001

000001

T
T
T

.SCOPE

.CLOCK
RXCLK
.DELAY

.CLEAR
.VALID
.SCOP1
. TYPE

.SAVOS
.RESO5

. CONVRT

IR
P

1015
1016

1018
1019
1020
1021
1022
1023

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

sDEFINITIONS FOR TRAP SUBROUTINE CALLS
sPOINTERS TO SUBROUTINES CAN BE FOUND
sIN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS

989

990

O
O
0
O

A AR AR AR
T T T

DPRS:
DPRB:
SYNC:
DPTS:
DPTB:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

SEXT:

AR AR AR RN RN RRR AR
T L

1
1
1
1
1

.BLKW 1

RN AR AR

RN RN AR RN AR RN AR AR RS
T T

;DP11
:DP11
sSYNC
;DP11
;DP11

T T e
e
T T
T

RECEIVER STATUS
RECEIVER BUFFER
BUFFER
TRANSMITTER STATUS
TRANSMITTER BUFFER

:DP11 SYNC EXTENSION

.'ttltttttttttttt't!"ifit'itli.'ttt.t.tttt.".ttlt'.tt.-l'. “RRRRE N

czpo®°
MACY11_30A(1052
30=JAN=79
CZDPAC.P1i
30=-JAN-79 15:40

15:40

PAGE 25

SEQ 0023

DPRIV:
DPRP:
DPTIV:
DPTP:

104407
105737
100005

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

;DP11

BASVEC: 300
BASCSR: 174770

174770

000005
005037
012706
012737

.BLKW
BLKW
.BLKW 1
.BLKW 1

BEGIN1: RESET
CLR

001150
017022

012514
012300
001150

012737

007306
001356

AR AR AR A AR AR AR R AR AR

CABLE

#STACK,SP
MOV
#340,PS
MOV
TYPE, MT ITLE
TSTB
SWR

177776

177570

004737
004737
000404
004737
004737
005737

AR AR AR AR AR

STAR:

BGNO

BPL
JSR
JSR
BR
JSR
JSR
TST
BEQ

C12514
012234
BGNO:
PART1:

PC,CLRVEC
PC,LINE.N

PART1

PC,CLRVEC
PC,LINE.X

CABLE

.+6
PART2
#TST1,RETURN

JMP
MOV

001060

‘wxnanaTEST

aiii233332
33
3

TRANSMITTER PRIORITY

sTHIS 1S THE FIRST VECTOR. PATCH FOR YOUR FIRST
sFIRST CSR ADDRESS.MAKE IT YOURS.
AR AR AR AR

AN AR AR AN

;CLEAR THE WORLD.
:SET FLAG FOR NO CABLE TEST.
:SET UP STACK POINTER
sSET PROCESSOR PRIORITY = 7

s+TYPE TITLE OF PROGRAM

;1S SWITCH SEVEN SET??
;BR_IF SW 07 NOT UP.
sSET UP COMM VECTOR AREA.
;GO GET THE DESIFRD LINE NO. AND VECTOR.
;GO _TO START THE TEST.
sSET UP COMM VECTORS
;GO AND AUTO CYCLE THROUGH DP11S
sSHOULD I DO THE CABLE TEST OR MAINT. TEST??
;BR IF MAINT. TEST
;GO DO THE CABLE TEST
:SET RETURN ADDRESS

READ/WRITE ALL BITS OF STATUS*w*#xanxwx

TEST 1
*

shhkRhkR kA
--

hh sk

etst
it
t
I
1222222222222322
t
22222;

177776

#FTINT ,aDPTIV
#FRINT ,aDPRIV

052777

177634
177622
177616
177614
177570
177556
177550

#B81T2,aDPRS
.+

005077
005077

032777
001001
104000
104400

wn
—

—_—

012737
012737
012737

MOV

#1,TSTNO
#TST2 NEXT
#34C ,PS
aDPTS
aDPRS

#240,aDPRP
#240,aDPTP
#26 ,aSYNC

#8172 ,3DPRS

:SET PROCESSOR STATUS TO 7
:CLEAR TRANSMITTER STATUS
:CLEAR RECEIVER STATUS
sSET UP TRANSMITTER TEST VECTOR 1
sSET UP RECEIVER TEST VECTOR 1
:SET UP RECEIVER PRIORITY=5
:SET UP TRANSMITTER PRIORITY=5
sCLEAR NOISE FROM SYNC
sSET_MAINTENANCE MODE
:TO ENABLE INTERNAL CLOCK (3kH2)
;?AgNY.

SET

sREPORT ERROR

‘

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

15:40

D D b

235

;AN ERROR MESSAGE ROUTINE
sTEST ALL READ/WRITE BITS OF RECEIVER STATUS

o o

012737
012737

000002
001576

001072
001062

013737
004537
000001
004537

001232
012542

013110

004537
000004
004537

012542

005000

000002

000100
004537
000200
004537
000400
004537
001000
004537
002000
104400

TST2:

o e

ettt eI
2223233223 222332222222 222223

MOV
MOV
CLR
MOV
JSR

#2,TSTNO
#TST3 NEXT
RO
DPRS ,REG
R5,BITST

JSR
BIT1

R5.BITST

sHALF DUPLEX

JSR

R5.BITST

sMAINTENANCE MODE

JSR

R5.BITST

;RECEIVER INTERRUPT ENABLE

JSR

R5.BITST

; DONE

JSR

R5.BITST

;BITS/CHAR

JSR

R5.BITST

JSR

R5,BITST

BITO

012542

BIT2

012542

BITé

012542

BIT7

012542

BIT8

012542

BIT9

012542

8IT10

;TEST RECEIVER STATUS BITS

:SYNC STRIP

SCOPE

s %

;BIT3=MISCELLANEOUS RECEIVE=READ ONLY
;BIT11=RECEIVE ACTIVE=READ/WRITE ZERO
;BIT12=PARITY(VRC)=READ ONLY
;ALL OTHER BITS ARE NOT USED

—

D e e

TEST 2

—

D D d e e

D d Do

D nd D ) D d D e

D d

D D D ) D e

D d i

chAk
Ak kb h ke h

sTEST ALL READ/WRITE BITS OF TRANSMITTER STATUS

— e

D D

D e

SEQ 0024

:AN ILLEGAL INTERRUPT WILL TRAP TO

1079
1080

RERTERRNEORIRYRIEIFGRERZ33RIRGRAR3S EEREEREREEE

PAGE 26

012737
012737
005000
013737
00453;
00000
042777
004537

001672
001062
013110
177374

TST3:

MoV
MOV
CLR
MOV
JSR

BITO
BIC
JSR

#3,TSTNO

#TST4 NEXT

RO
DPTS,REG
R5.BITST

;TEST TRANS STATLS BITS
s TERMINAL READY R/W

#B81T72,aDPRS
R5,BITST

sSHUT OFF CLOCK FOR IDLE SYNC
s IDLE SYNC R/W

000002
052777
004537
000010
004537
000040
004537
000100
004537
000200
004537
020000
004537
100000

004537
040000

000004

15:40

PAGE 27
SEQ 0025
BIT1

BIS

#B1T2,aDPRS
RS,BITST

*SECONDARY TRANSMIT R/W

012542

é??s

RS,BITST

;STATUS INTERRUPT ENABLE R/W

012542

'Ja.;,%

RS,BITST

;TRANSMITTER INTERRUPT R/W

012542

é??;

RS,BITST

: DONE

012542

g??w

RS,BITST

:RING FLAG R/W

012542

é??w

RS,BITST

;CARRIER DOWN

012542

éf?u

RS,BITST

:RECEIVER OVERUN FLAG R/W

012542

177360

é??s

104400

;START CLOCK

SCOPE

:RESET TEST
*SET PROCESSOR PRIORITY TO 7
*SET ALL WRITE BITS IN T & R STATUS
:ISSUE RESET AND VERIFY ALL BITS THAT ARE
:TO BE CLEARED BY RESET--WERE
.

;NOTE: IF BITS/CHAR BITS ARE SET TO ALL 1'S RCV WILL
:NOT GO ACTIVE

D D el

D D d D e e

D e e

8B IR RNRER2BIIVFANNANIITEIF
RIS

D e

D D

D D D

D e

d—

D D D D ) D ) D e

D d

vy a8

D ol D D d — -

) -l
) D e
D

d
D
D s

(ZDP
MACY11_30A(1052)
325JAN-79
CZDPAC.P11
30-JAN-79 15

;t'ttttttttttt
3

:-ttttttttttttt

—

— e

d e e e

D e

D d

)

D i

) - -

D D ) D e

d e

D e

: TEST &

) D D

) D D e

D D e

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

012737

001072

002006 001062
177272
000004 177256
143707 177250
177244

010000
003707

;ttttttttttttttttttttfittittttttttt.ttttttttttttttttttt!tttttttttt'ttt

TsT4:

Mov

#4,TSTNO

MOV
CLR
MOV
MOV

#TSTS NEXT
aDPTS
#8112,aDPRS
#143707 . aDPRS

BIC
MOV
CMP

#81T12,R1
#3707,R0
RO.R1

:CLEAR THE PARITY BIT
:SET RO FOR ERROR MESSAGE
+1S THE STATUS WHAT 1 EXPECTED??

HLT

:ERROR RX STATUS NOT WHAT EXPECTED.

MOV

BEQ

SCOPE

aDPRS ,R1

sTEST ALL _READ/WRITE BITS OF

sSECTION 2

;CLEAR TRANSMITTER STATUS
*MAINTENANCE MODE
*SET ALL RECEIVER STATUS BITS
*SAVE THE RX STATUS

:BR IF STATUS IS OK.

*SCOPE THIS TEST.
THE TRANSMITTER STATUS

15:40

d -

000
RARGNS
o
80@\‘0\03‘04'\)-'0 BRIRoRNSS 8LIRIR WN
=

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

TEST 5
B

D D e

)

SRRRARKAR AR

SRRARRARRRRRER AR AR RAR AR RARREN AR AR

SEQ 0026

chAR
AR A AR AR AN

012737

D D i

—

D D )

PAGE 28

000005
002066
(00004
160353

001072
001062
177202
177202

D D d

000001

TST5:

MOV
MOV

177166
163353

)

MOV
MOV

#8112 .aDPRS
#160353,3DPTS

BNE
MOV
MOV
CMP

18
aDPTS ,R1
#163353,R0
RO,R1

D D
d D D

*TO COME UP.
*SAVE THE TX STATUS.
:SET RO FOR ERROR MESSAGE.
*1S THE TX STATUS CORRECT??

*BR IF GOOD
:TX STATUS ERROR

*SCOPE THIS TEST

;ISSUE 'RESET'' AND VERIFY ALL BITS ARE CLEARED
sSECTION 3

wd D

*hhkkh
Rk hkhhk
-

TEST 6

)

SRR ARk

d
e nd
-

*SET FOR A DELAY
:WAIT FOR CLEAR TO SEND AND REQUEST TO S

.+
i

SCOPE

RRARARAARRARNRARRA RN REA RS

:SET MAINT MODE
:SET R/W BITS ON TX

RO
#1,R0

BEQ
HLT

n SIS IS LS TASIASIS LS TS LS TN NSNS T,8T,§)
n
PNININININD
=
= e o b b e o
~N

#5,TSTNO
#TST6 NEXT

CLR
ADD

18:

012737

000006
002140
000004
143707
177104

001072
001062
177122
177114

TSTS:

MOV
MOV

#6,TSTNO
#TST7 NEXT

MOV
8IS
RESET
COM
MOV

#B1T2.aDPRS
#143707.,aDPRS
RO
aDPRS ,R1

ST
BEQ

R1
. +6

CLR

HLT

SCOPE

L Lttt

:SET MAINT MODE
*WRITE THE STATUS REG

*ISSUE RESET INSTR.
.

*FLASH THE LIGHTS
:SAVE THE STATUS

:1S IT ZER0??
:BR IF GOOD

:SET RO FOR ERROR MESSAGE

:RX CSR NOT CLEARED BY INIT.

. :SCOPE THIS TEST

;VERIFY ALL READ/WRITE BITS OF TRANSMITTER STATUS ARE CLEAR
sSECTION 4
chRAAR
AR AR AN
*

TEST 7
*

CZ0P
MACY11 30A(1052)
30-JAN=79
CZDPAC.P1T
30=-JAN=79 1 5:40

15:40

PAGE 29

SEQ 0027

;Qt".'...'..l
:...'......Q.Q."'..'.Q.'Qlt.".......'...Q'.'Q.Q.'Q.'...'Q..Q'...'QQ

002140
002146
002154
002162
002170

001072
001062
177050

1317

#7,TSTNO
#TSTT10,NEXT

MOV

#8112,3DPRS

;SET MAINT MODE

#160353,3DPTS

177050

“WRITE TX STATUS

*ISSUE A RESET INSTRUCTION

RO
aDPTS,R1

“FLASH THE LIGHTS.
“SAVE TX
STATUS

*1S

*TX STATUS REG NOT ZEROED BY

.+6
RO

CLR

HLT

SCOPE

;TEST READY BIT

IT ZERO??

*BR IF GOOD
*SET RO FOR ERROR MSG

;SCOPE THIS TEST

CLEAR BEFORE READY CAN (OME UP

:.'Qt.fi'."'tt

* TEST 10
.

sRARA
A AR AN RN AN
AR

012737
012737
012777
000005
005100
017701
105777
100002

000010
002272
160377

001072
001062
177004

A XA AR A AR AR AR

TST10:

MOV

MOV
RESET
COM

176774
176770

MOV
TSTB

BPL
CLR
HLT
TST
BEQ
CLR
HLT
SCOPE

005000
104001

005777
001402
05000

176756

104001
104400

AR AR AR

A AN R AR R A AR A AARA R AR R A AR

#10,TSTNO
#TST11,NEXT

MOV

AR AR R

#160377,aDPTS

:LOAD STATUS

RO
aDPTS.R1
aDPTS
.+6
RO
1
aDPTS
.6
H0]
1

*FLASH THE LIGHTS
*SAVE THE STATUS.
*READY CLEARED
;YES

:ISSUE RESET INSTR.

:REPORT ERROR
*STATUS CLEAR

:YES

;REPORT ERROR

JBIT 1 NTERAC:1ION TEST
JSET E ACH BIT AND VERIFY THAT ONLY THAT BIT IS AFFECTED
sRECEIVER STATUS BIT VALIDITY TEST
S 222222222222
*

TEST 11
*
CTHARAA
A AR A AN AN

002272

012737

000011

001072

*RRAAAAAA
A A AR AR

R AR R AR AR R AR AAR

IST11:

#11,TSTNO

MOV

AR AR ARA R AR R AR AR RN

A TR RN

REIRRRRARS O

INIT

3% ggegs

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

D
D D
N nny —
Y =OVONOVNSWN=O

D
D o
D
D
D
D
)
D
) e
—

WWWWWWWWWWWWW

)

D o

1303

012737
005000
013737
104405
000001

15:40

002360

001062

001232

013110

PAGE 30

SEQ 0028
#TST12 NEXT
RO
DPRS,REG

MOV
CLR
MOV

VALID

JTEST RCV

;STRIP SYNC

BITO

104405
000002
104405
000004
104405

VALID

sHALF DUPLEX

VALID

sMAINTENANCE MODE

VALID
BIT6
VAL ID

s INTERRUPT ENABLE

- DONE

VALID

;BITS/CHAR

BIT1

BIT2

BIT7
BIT8

VALID

BIT9

VALID

BIT10
SCOPE

s TRANSMITTER STATUS BIT VALIDITY
NN, N,

*RA Ak

TEST

ok h kK
*

TEST 12
*

*RAA
A AR AR A ANk R

ViV

e T

NARAAAAIMA
R R R PR PRI

00 ~NONN S WN=0 VNV
W)=

1340

104405
000001
104405
000002
104405

000012
002456

001072
001062

001240

013110

176630

S ARl
2323222222223 22223

012737
012737
005000
013737
005077

TST12:

MOV
MOV
CLR
MOV
CLR
VALID

BITO

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

sTEST XMIT STATUS

;CLEAR TRANSMITTER STATUS
: TERMINAL READY

VALID

s IDLE SYNC

VALID

sMISC TRANSMIT

VAL ID

:STATUS ENABLE

104405
000100
104405
000200
104405
020000

VALID
BIT6

:TRANSMITTER ENABLE

040000

BIT14

BIT1

000010

BIT3

000040

BITS

104405

104405
100000
104400

VALID

;TRANSMITTER DONE

VALID

;RING FLAG

VAL ID

;RECEIVER OVERRUN

VALID

;CARRIER DOWN

BIT7

BIT13

BIT15
SCOPE

15:40

PAGE 31

SEQ 0029

;VERIFY BIT CLEAR ONLY CLEARS SPECIFIED BIT

JRECEIVER TEST SECTION

D asl

FYutIntuas & ELRERELE
CEEF R 384 oyoo\w«mbum

1359
1360

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

i and

:‘tlt'tttiit.t
.'

;
:

NN
-0 o

i
b
i
3 S
S
Y
T
I

Y B
Y
YR Y
Y
Y
YO
JE Y
T
R

TEST 13
x

:Q'."'fi't't.'l
"'*t"'.'*fi‘fifi*.""i".‘fi"fi"fit.fifi"lfi'.""fifi‘fi*fi.'.t.'..'...'....'

012737
012737
112777

013737
012737
012777
104404

000013
002564
000026
001232
003707
003707

001072
001062
176536

013110
007136
176510

TST13:

MOV
MOV

#13,TSTNO
#TST14 NEXT

MOV

DPRS ,REG

MOVB

MOV

CLEAR

#26,3SYNC

sLOAD SYNC WITH ANYTHING

#370§,TMPDAT

;STORE STATUS IMAGE

#3707 ,aDPRS

BITO

JTEST RCV STATUS

;SET UP STATUS
:STRIP SYNC

CLEAR

sHALF

g%;SR

sMAINTENANCE MODE

CLEAR
BIT6
CLEAR

SJRECEIVER INT ENB

CLEAR
BIT8

;BITS/CHAR

BIT1

DUPLEX

sJRECEIVER DONE

BIT7

CLEAR

BIT9

CLEM

BIT10
SCOPE

s TRANSMITTER

TEST

SECTION

sNOTE: ''SEND REQUEST'' IS SET BY ‘‘IDLE SYNC''
:
"'CLEAR-TO-SEND'' IS SET BY MAINTENANCE MODE

MACY11 30AC1052)

CZDP
CZDPAC.P11

30-JAN=79 15:40 PAGE
32

30=JAN-79 15:40

1398
1399

1400
1401
1402
1403
1404

D —d ed

fll\
d
b
— e

)
—

CO~NONN
S W=

) —d —

POl o o o o o

i b

1405
1406
1407
1408

SEQ 0030

JRRRIARAKRK
KA
.

; TEST 14
.

:ttttttitfi.*tt
AR

012737
012737
012737
012777
012777
012737
012700
005300
001376
032777
001001
104000
013737
104404
000001

042737

000014
003050
000340
000004
160353
163353
005050

001072
001062
177776
176416
176416
001136

001000

176372

001240

013110

TST14:

LSRR

MOV

MOV
MCV
MOV
MOV
MOV
MOV
DEC
BNE
BIT
BNE
HLT
MOv
CLEAR

#1ST15 NEXT
#340,PS

001136
176320
001136

003002
000002

001136

176340

BIC
B8IC
MOV

22222222282

#163353. TMPDAT
gssoo..no

;SET STATUS TC LEVEL SEVEN
sSET MAINTENANCE MODE
:SET UP STATUS
sSTORE STATUS IMAGE
;DELAY 6MS FOR SEND REQUEST

.-2
#BIT19,aDPTS

;SEND REQUEST UP

#B1T2,aDPRS
#160353,aDPTS

DPTS,.REG

BITO
s IDLE SYNC
003002
000002
007020

#14,TSTNO

#3002, TMPDAT
#2,aDPTS
#3600. ,R0
RO

; YES

*REPORT ERROR
“TEST TRANS

*TERMINAL READY

sCLEARING IDLE SYNC SHOULD CLEAR SEND REQUEST
;CLEAR IDLE SYNC

;WAIT FOR "'CLEAR-TO-SEND'' TO DROP

.-2

TMPDAT ,RO

aDPTS ,R1

176312

TMPDAT ,aDPTS

:$E§E SYNC AND SEND REQUEST CLEAR

]

;REPORT ERROR
;REINSTATE IMAGE
REINSTATE STATUS
sMISC TRANSMIT

. +4

001136

#3002, TMPDAT
#2,aDPTS

176272

;STATUS INTERRUPT ENABLE
;TRANSMITTER INTERRUPT ENABLE

176242

#B112,aDPRS

001136

#BIT10, TMPDAT

176222

#B112,aDPRS

001136

#B1T10, TMPDAT
#4004 ,aDPRS
#BI1T10, TMPDAT

176206

001136

BIT13
BIT14

CLEAR

BIT15

sMAINT MODE OFF (STOP CLOCK)

;CLEAR "‘CLEAR-TO-SEND"'

sREADY

sMAINT MODE ON

sSET "'CLEAR-TO-SEND'" TEST BIT
sSHUT OFF CLOCK
;CLEAR =TO =SEND

;RING FLAG

sRECEIVER OVERRUN

;CARRIER DPOWN

(ZDP
MACY11 30A (105 2)
326JAN-79
CZDPAC.P11
30=-JAN=79 15

003046

PAGE 33

SEQ 0031

104400

SCCPE
;ttfi.t.t..."..."'QQ.'..Q."Q."'Q‘QQ...".'.'."Q'Q.tlt.'..'."'

;PRIORITY TESTS

JVERIFY THAT THZRE ARE NO STATUS INTERRUPTS

JWHEN PS=5

JINTERRUPT WILL

TRAP TO ERROR MESSAGE

8,8

AR
S S 2 s RS SS ]

Sevsn,

1454
1455
1456
1457
1458
1459

15:40

TEST 15
*

*hRk Ak

012737
012737
012737
012777
012777
052777
052777
052777
042777
052777
052777
042777
052777
052777
042777

A ARk
kN

SRR AR

A A AN AR AR

TST15:

MOV
MCV
MOV
MOV
MOV

#15,TSTNO
#TST16,NEXT

BIS
BIS
BIC

#BITS.aDPTS
#BIT12.3DPTS
#20040.aDPTS

AR A AR

R AR

RARA AR AR

AR AR

;PRIORITY=5

#81T12,3DPRS

*SET MAINTENANCE MODE

BIS

#8I75,aDPTS

*INT ENB (STATUS)

BIS
BIC

#BIT15,aDPTS
#100040,aDPTS

#FTINT ,aDPTIV
#FRINT ,aDPRIV

8IS
BIC
BIS
176036

A AR

#240,PS

BIS

100000
100040

AR AR AR R

AT RPN

sSET FOR UNEXPECTED INTERUPT,
sSET FOR UNEXPECTED INTERUPT.

*STATUS INTERRUPT ENABLE
‘RING FLAG
:CLEAR (SR

#81T14,aDPTS
#40040.aDPTS
#BITS,aDPTS

(SIE)

*RECEIVER OVERRUN FLAG
*CLEAR CSR
*INT ENB (STATUS)

*CARRIER DOWN FLAG
*CLEAR CSR

;VERIFY NO TRANSMITTER READY INTERRUPTS
003202

003262

052777
052777
052777
052777
052777
052777

000100
000001
000002
000004
000010
000020
000037
000100

176030
176022
176014
176006
176000
175772
175764
175756

BIS
815
BIS

#BIT6,aDPTS
#B1T0,aDPTS
#BIT1.aDPTS

SXMIT INT ENB
*NOISE
*MORE NOIE

BIS
BIS

#81T2.aDPTS
#BIT3.aDPTS

*MORE NOISE
*MORE NOISE

8]C

#37.,aDPTS

TQUIET!

BIS

#B1T4.aDPTS

BIC

*MORE NOISE

#B176,aDPTS

SCOPE

;TEST FOR CONTROL OF STATUS INTERRUPT ENABLE BIT
sNO_INTERRUPT SHOULD OCCUR IF INT ENB IS NOT SET
: INTERRUPT VECTOR POINTS TO ERROR MESSAGE ROUTINE
:'t.t.t'.tt'lt
-

; TEST 16
2

:ttttitfittt.'.
AL

003264
003272

000016
003422

001072
001062

TsT16:

SRSl

MoV
MOV

#16,TSTNO

#1ST17 NEXT

Y22

2222222222223

—d
e
e e
D-

= =
BELEARUR
LS NINININIFONININININ)
VO NN WN=O000NN
NN — o

YS
S
Y

012737
012777
012777
052777

15:40

MOV
BIS
BIC
BIS
BIC
BIS
BIC
BIS
BIC

000040
000340

SCOPE

;PRIORITY=4

#BIT13,aDPTS

;RING FLAG

;IF

;CLEAR
sRECEIVER OVERRUN FLAG
;CLEAR
;CARRIER DOWN FLAG
:SEE ALL STATUS ERROR BITS

#160000,aDPTS

#40,PS

;DECREASE PRIORITY LEVEL

THE DEVICE

INTERRUPTS SUCCESSFULLY,

s INTERRUPT SERVICE ROUTINE WILL RETURN

: THE PROGRAM COUNTER TO THE
:sTHE HLT CALL

THE

INSTRUCTION AFTER

sRRARR
AR AN AR K

L OTEST 17
L4

:t*ttttttttttfi

-0

:tt.ttt.*ttttt*"itt"'t.t't.tttfi'.ttttfit.*'t!'titfi'i'tt"'t'tt'*tt"

000017
003614
003474
090200
000040
020000

001072
001062

020000

175536

e gy

=0V~

cromrébnunnun

TST17:

175606
177776

MOV
MOV
MOV

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

#B8175,aDPTS
#B1T13,3DPTS

175560

175552

175476

1%:

#B1T13,aDPTS
#2%,aDPTIV

#8175,PS
#B1T14,aDPTS

2%:

175500

#81T14,aDPTS
#3$,aDPTIV

177776
175452

WN
W

sSET FOR UNEXPECTED RX INTER.

#BIT13,aDPTS

sSET FOR UNEXPECTED TX INTER.

;VERIFY THAT ALL STATUS BITS INTERRUPT AT ALL LEVELS
;EQUAL TO OR LESS THAN 4

e R
b
R
e
e

#200,PS

#FTINT ,@DPTIV
#FRINT ,aDPRIV

#340,PS

175540
177776
175512

SEQ 0032
MOV
MOV

o
B
B it
v vV

PAGE 34

000200

iuvaiuawn vivivivioa

O Y

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

#B175,PS

#BI1T15,30PTS
3

022626

100000

175436

2%:

#BIT15,aDPTS

sSET UP INTERRUPT VECTOR=RT]
;PRIORITY=4

s INT ENB STATUS
;RING FLAG
s SHOULD INTERRUPT AFTER NOP
sREPORT ERROR
;+ERROR INDICATOR/NOPOP.SP
:CLEAR RING
sSET UP NEXT INTERRUPT VECTOR
;SET PRIORITY TO 4
JRECEIVER OVERRUN FLAG

;REPORT ERROR
. SP
: *ERROR INDICATOR/NOPOP
;CLEAR RCV O RUN
sSET UP NEXT INTERRUPT VECTOR

;SET PRIORITY TO 4

:CARRIER DOWN FLAG
+REPORT ERROR

. SP
:+ERROR INDICATOR/NOPOP

;CLEAR CARRIER LOWN FLAG

MACY11_30A(1052)
(Z0P
30=JAN=79
CZDPAC.P11
30-JAN-79 15 140

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

003604
003612

012777
104400

014532

15:40

PAGE 35

SEQ 0033

175440

MOV
SCOPE

#FTINT,aDPTIV

;FALSE
s YES

INT TRAP

;DOES LOADING XMIT BUFFER CLEAR XMT DONE
;.Q'Q.tt".t"
.

TEST 20
CREARRAARRR
RN

012737
012737

000020
3670
175376

001072
001062

IRRR AR

TST20:

MOV
MOV
CLR

#20,TSTNO
#1ST21 NEXT
aDPRS

TSTB
BMI
HLT

aDPTS
.+

TSTB

aDPTS

175376

MOV

R AR RN

RR AR R R AR

R AR

;CLEAR RCV STATUS

#8177,aDPTS

MOV

. DONE

;DONE SET
;YES
;REPORT ERROR

RO,aDPTB

BPL
HLT
SCOPE

E A RRERNRRRNNRRRRAARRRRRA
AR
AR

;LOAD BUFFER

DONE CLEARED

:YES
REPORT ERROR

sVERIFY TRANSMITTER READY INTERRUPTS AT LEVEL 4

;AT 8 BITS PER (HARACTER
AR
A A AR AR AR
“

TEST 21
.

*TRAAR
AR ARk

AL AE

012737
012737
012777
005077
012777
012737
110077

SO
-

- e

d d

) e

e e

o o Lo 0o 1o T Yo Yo No Yo Yo ¥
n N -2 b b b d d e b e b

NO NS WN—=O

1608

052777
105777

000021
003774
000004
175322
003764
000200
175304
000100
175270

001072
001062

TST21:

MOV

#TST22 NEXT
#B172,aDPRS

177776

MOV
MOV

#1%,aDPTIV
#200.PS

175274

BIS

#81T6,aDPTS

8PL

CLR

17532¢

MOVB
TSTB

HLT

1$:

aDPTS

*LOAD XMIT BUFFER

SXMIT INT ENB

CLR

aDPTS

READY CLEARED BY BUFF

“YES

*REPORT ERROR

,2500.

7 BITS PER CHARACTER

LOAD

225 MS
*TRANSMITTER FAILED TO INTERRUPT

:+ERROR INDICATOR/NOPOP.
SP

sVERIFY READY INTERRUPTS AT LEVEL 4
;AT

2222323323323 222223222

*TEST PASS VECTOR= RT1 TO IT3A
*PRIORITY=4

aDPTS

POP. SP
SCOPE

:CLR STATUS

RO,aDPTB

DELAY
HLT

PUSH. SP

#21,TSTNO

MOV
MOV

175320

004704
175250

:CLEAR INT ENB

CZ0P

MACY11 30A(10$2)
30-JAN=79
30=-JAN=79 15:40

CZDPAC.P1

15:40

162¢
1623

PAGE 36

SEQ 0034

CRRRERRRAEK
AR AN

1624
1625
1626
1627

TEST 22
.

CRRRRRRRRA
AN
A

1628

1629

001072
001062
175214

1630
1631
1632
1633
1634
1635

RRR AR R AR

TST22:

A RRRRRRRRRRRRRRRARRRRRR
AR RREARRRARRARA RN
AR

MOV
MOV
MOV

#22 ,TSTNO
#TST23 NEXT
#8172,aDPRS

175166

MOV
BIS

#200,PS
#8178, 3DPRS

175162

BIS

#8176,3DPTS

DELAY
HLT

CLR
MOV

175222
1777

aDPTS
#1$,3DPTIV

MOVB

*PRIORITY=4
+7 BITS/CHARACTER

RO,aDPTB

TSTB
BPL
HLT

:LOAD XMIT BUFFER

SXMIT INT ENB

@DPTS
.+

PUSH. SP

1%:

:CLR STATUS
:TEST PASS VECTOR = [T4A

CLR
CLR
POP. SP
SCOPE

LOAD BUFFER CLEARED READY
‘YES
*REPORT ERROR

,2500.

225 MS
:TRANSMITTER FAILED TO INTERRUPT

;+ERROR INDICATOR/NOPOP. SP

aDPRS
aDPTS

:CLR 7 BITS/CHAR
*CLEAR INT ENB
YES

;VERIFY READY INTERRUPTS AT LEVEL 4

;AT 6 BITS PER (HARACTER
chhhA Ak

hn
»

TEST 23
.

TRARRRARRR
A AR

SIS

RS
S NS SE IR AN

SRR

NNV
i
w D
Ny
—
oo

001072
001062

AR AR AR AR R R R

TST23:

175076
177776

175076
175050
175044
'

1$:

MOV
MOV
MOV
MOV
CLR
MOV

E AR AR

RRR AR

#23,TSTNO
#TST24 NEXT
#B172,aDPRS
#200,PS
aDPTS

BIS
MOVB
BIS

#1$,3DPTIV
#8179, 3DPRS
RO,aDPTB
#8176,aDPTS

DELAY
HLT

TSTB
BPL
HLT

PUSH. SP
CLR
POP. SP
SCOPE

@DPTS
. +4

,2500.

aDPRS

RRRR AR RRRRR RN RRCRARRRR R A RRRARARRTE AR R AR

:PRIORITY=4

*CLR STATUS

*TEST PASS VECTOR = ITSA
:6 BITS/CHARACTER
:LOAD XMIT BUFFER
SXMIT INT ENB

:LOAD BUFFER CLEARED READY
“YES
*REPORT ERROR

125
MS
:TRANSMITTER FAILED TO INTERRUPT

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

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

15:40

PAGE 37

SEQ 0035

SRICZ2S

OO\
O
Loy
o

2ERERERE 2%

1678
1679

sTEST SYNC BUFFER IS READ/WRITE
;NOTE: SW09=1 WILL FREEZE ON CUPRENT SYNC
i

iid

i ddddd]
*

s TEST 24
8

;ttttttfittttflttt*tttttttttttttttfitttttttttttttttttfi'ttt"tt.ttttt't‘t

012737
012737

000024
004346
004276
001136
174754
174755
174750
174744

001072
001062
001064

001136
001136

174732

001136

174714

174722

TST24:

000026

CLR
CLR
CLRB
TSTB
BEG

aDPRS
aDPTS
aSYNC
aSYNC
.+

MOvVB
MOVB

TMPDAT ,aSYNC
TMPDAT R0

;CLEAR SYNC
:
sRRANCH IF SYNC CLEARED
;REPORT ERROR

sLOAD SYNC

MOVB

aSYNC ,R1

BEQ
HLT
SCOP1

.+
1

sBRANCH OK
sREPORT ERROR

TMPDAT
1%
#26,2SYNC

JNEXT SYNC
sNO,TEST NEXT SYNC
sANY SYNC BUT ALL 1°'S

TMPDAT ,aSYNC

INCB
BNE
ggggs

174672

;CLEAR TEST DATA
;CLEAR RECEIVER STATUS

J7EST IF LOAD CK

#24 ,TSTNO
#TST25 NEXT
#1%,L0CK
TMPDAT

CMPB

sREAD/WRITE ALL CHARACTERS IN SYNC EXTENSION

sNOTE:

SWO09=1 WILL FREEZE ON CURRENT SYNC

shkk ARk Rk Ak ok
*

; TEST 25
:

“

AARRRERARRRAR

—h

n
\‘NN
N =

) —d

—d

D e

ed D e

)

001136

NN NNNNNNNNNNNNYY

1707

MOV
MOV
MOV
CLR

HLT

1%:

Etttttt!tt'ttt

012737
012737
03?737

000025
004502
C00400

001072
001062
001134

001062

001960

001136
000017
001136
174614

174626
174620

174454

1
174604

001136

AR AR KRR RN

TST25:
v

MOV
MOV
BIT
BNE

MOV

1%:
2%:

JMP

CLR
MOVB
MOVB
MOVB
MOvB
CMPB

RAR

AR AR RRR R AR AR AR

#25,TSTNO
#TST26 NEXT
#BIT8,SAVSR1
1%

NEXT ,RETURN

aRE TURN

TMPDAT
#17 ,@SEXT
TMPDAT ,@SEXT
@SEXT ,R1

TMPDAT ,RO
OSEXT,TMPDAT
.’

;12 BITS/CHAR

RRRR AR RN R

:NO, BRAMCH AROUND TEST

;LOAD TMPDAT WITH ZEROS
sLOAD SYNC EXT WITH 1°S
sLOAD SYNC EXTENSION
:eég SYNC LOAD CORRECTLY
.

CZDP
MACY11_30A(1052)
30-JAN-79
CZDPAC.P11
30=JAN=79 15:40
1734
1735
1736
1737
1738
1739
17640
1741
1742
1743
1744
1745

004444
004446
004450
004454
004462
004464
004470
004474
004476
004500

104001
104406
005237
022737
001355
105077
105777
001401
104000
104400

001136
000020

15:40

PAGE 38

SEQ 0036
HLT
SCOP1
INC
CMP
BNE

001136

174554
174550

CLRB
TSTB
BEQ
HLT

sREPORT ERROR

TMPDAT
#20, TMPDAT
2%

JNEXT SYNC
JHAVE ALL SYNC'S BEEN TESTED
sNO, CONTINUE TEST
sCLEAR SYNC EXT
JTEST SYNC EXT
sBRANCH IF SYNC CLEARED
;REPORT ERRGR

aSEXT
aSEXT
.+

SCOPE

1746

swkknkkhnnkkrkwwt

1747
1748
1749
1750
1751
1752
1753
1754
1755

sSYNCHRONIZATION CHARACTER TEST
sISSUE ALL SYNC CHARACTERS AND VERIFY THAT IT WAS THE
sCORRECT SYNC

1758

JRRKRRKARKRK KK

1759
1760
1761

3
;
:

1756
1757

1762

1764
1765
1766
1767
1768
1769
1770
1771

004502
004510
004516
004522
004526
004532
004540
004546

1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789

004562
004570
004576
004602
004610
004616
004624
004630
004632
004640
004642
004644
004652
004660
004664
004666
004674

1772

004554

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
000200
000377
000400

001072
001062

000001
014536
013560
001144
174422
001144
174410

001144
174450

000004

TEST 26

SRR AR AR

AR AR

TST26:

MOV
MOV
CLRB
CLR
CLR
MOV
MOV
MOV

177776
001140
001142

174450

174426
001152
174416

004000

174372

001144
004712
174354

174370
174366

001144
000100

174346
174330

TESTS

wawananawntannnwnnnrtnnnn

.
*

JRRARRRRAR KRR

1763

SYNC

BIS

1%:
2%:

MOV
MOV
DELAY
MOVB
MOVB
MOVB
TSTB
BPL
BIT
BEQ
HLT
MOVB
MOV
TSTB
BPL
MOV
BIS

AR R

AR R AR AR AR RN AR AR AR ARRAANRARRRA AR AR AR R

#26,TSTNO
#TST27 NEXT
aSEXT
aDPTS
aDPRS
#200,PS
#377,SLIM
#400,8PC

lBITé.aDPRS

#1,TSYNC
#FRINT ,aDPRIV
.6000.
TSYNC,aSYNC
@SYNC,TDATA
TSYNC,aDPTB
aDPTS
.~4
#B1T11,aDPRS
.+

TSYNC,aDPTB
#3% ,aDPRIV
aDPTS
.~4
TSYNC.aDPTB
#B176,aDPRS

AR R AR AR

sCLEAR SYNC EXTENSION
sCLEAR TRANSMITTER STATUS
sCLEAR RECEIVER STATUS
sPRIORITY=4
sSYNC LIMIT FOR 8BITS/CHAR
sINDEX TO
CHANGE BITS/CHAR

;MAINT MODE

sFIRST SYNC = 1
sSET UP RECEIVER INT VECTOR TO ERROR
210 CHAR TIMES FOR ALL 1'S IN BUFF
sLOAD SYNC BUFFER
sSTORE SYNC
sLOAD FIRST SYNC CHAR
JREADY FOR NEXT SYNC
sNO TEST AGAIN
sTEST FOR PREMATURE ACTIVE
;BRANCH IF NOT SET
;PREMATURE ACTIVE
;LOAD SECOND SYNC BYTE
sSET UP TEST VECTOR
s TRANSMITTER READY
sNO
JXMIT 3ED SYNC AS DATA
sRCV INT ENB

CZDP
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
1818
1819
1820
1821
1822
1823
1824
13222

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
005060
005062
005066
005074
(005100
005106
005114
005116

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
001246
005037
053777
006237
062737
022737
001225
104400

15:40

PAGE 39

005670
;
174316

001136

001136
001144
001136

001144

000004

174264

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
BECQ
4%
BIC
#B1T72,aDPRS
HLT
1
TSTB
aDPRS
BPL
.+
HLT
BIC
#B176,aDPRS
BIT
#8I1T11,aDPRS
BNE
A
HLT
MOVB
#26,aSYNC
BIC
#B81T11,aDPRS
BIT
#81T11,aDPRS
BEQ
.+
HLT
POP.SP
BI{
#BITS,PS
8IT
#BIT14,SWR
BNE
5%
INCB
TSYNC
CMPB
SLIM,TSYNC
BNE
2%
CLR
TSYNC
BIS
BPC,aDPRS
ASR
SLIM
ADD
#400,BFC
CMP
#1400 ,8PC
BNE
1%
SCOPE

}gzzg

sexkxxx*xSYNC

EXTENSION

1829

JRARIRKKA AN KN

1830

1833

JREAKRRKAARRAR

1831
1832

;
3

1834

TEST 27

1835
1836
1837

005120
005126
005134

012737
012737
032737

000027
(05534
000400

(001072
001062
001134

1839
1840
1841
1842
1843
1844
1845

005144
005152
(005156
005164
005172
005176
005204

013737
000177
012777
012737
105077
112777
012737

001062
173704
002104
000400
174040
000001
007400

0C1060

1838 005142 001005

174046
001144

174040
001140

TST27:

;CORRECT SYNC CHARACTER
JYES
sNO,SHUT OFF CLOCK
;REPORT ERROR
;DONE CLEARED
JYES
sREPORTM ERROR
;CLEAR REV INI ENB
JRECEIVER ACTIVE
JYES
;REPORT ERROR
s CHANGE SYNC
;CLEAR RECEIVER ACTIVE
sRCV ACTIVE CLEARED
;YES
;REPORT ERROR
;SET PRIORITY TO 4
;sTEST FOR SCOPE LOOP
;BRANCH AROUND INC IF SCOPE
JNEXT SYNC
JHAVE ALL SYNC'S BEEN TESTED
sNO
$YES
;DEC BITS/CHAR BY 1 BIT
;DECREASE #BITS/(CHAR
;DEC BITS/CHAR BY 1 BIT
sHAVE ALL CHAR SEIZES BEEN TESTED
sNO

TESTraswswnnnnn

*
*

AR AR A AR AR

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

RO AR

MOV
MOV
8IT

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

;DOES TWELVE BIT OPTICN EXIST

MOV
JMP
MOV
MOV
CLRB
MOvVB
MOV

NEXT ,RETURN
aNexf
#2104 ,aDPRS
#400, TSYNC
aSYNC
#1,3SEXT
#7400,SLIM

sSET STATUS TO 12 BITS/CHARACTER
sFIRST SYNC CHARACTER
JLOAD SYNC BUFFERS WITH 400
sLOAD SYNC BUFFERS WITH 400
JSET UP SYNC LIMIT

BNE

1%:

;STALL 10 CHARACTER TIMES
+REPORT ERROR
;+ERROR INDICATOR/NOPOP.SP
;SAVE DATA

*BRANCH IF NOT

CZDP

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

CZDPAC.P1

005212
005220

012737

012777
104403
105077

002000
014536
006000

15:40
5

001142
174020

174000
001145
001144
173762

174000
173770

004000

173752

PAGE 40

2%:

FERERES
~N

d
b
b
D
d e
b
b e

004000

001136
001144

#2000,8PC

#FRINT ,aDPRIV

000

#81T11,aDPTS
o+

*TEST FOR PREMATURF "‘ACTIVE''

#B1T76,aDPRS

TSYNC,aDPTB
aDPTS
.-4

173666

#8IT11,aDPRS
-+4

,6000.

001136

3%:

001136

aDPRB, TMPDAT
TSYNC,RO
TMPDAT ,R1
TSZNC.TMPDAT
+
1

177776
173604
173576
177570

001141

#BIT5,PS
#81T711,aDPRS
#B8176,aDPRS

zng14,SUR

4%:

173550

173524

173510

001142

TSYNC+1
;gYNC*1,SLIM*1

;WAIT FOR "DONE'’

:NO
sREPORT ERROR
s TRANSMIT SECOND SYNC

UAIT FOR 'DONE"’

.SET UP RECEIVER INT VECTOR
sRCV INTERRUPT ENABLE

sTRANSMIT 3ED SYNC AS DATA
;WAIT FOR "DONE"’

“TEST FOR ACTIVE
;0K

sREPORT ERROR

;WAIT FOR INTERRUPT

;DEVICE FAILED TO INTERRUPT
SP
; +ERROR INDICATOR/NOPOP.
;SAVE RECEIVED DATA

; COMPARE SYNC
:BRANCH IF SYNC OK
sREPORT ERROR

;LOWER PRIORITY
;CLEAR ACTIVE
;CLEAR INT ENB
;TEST FOR SCOPE LOOP
sBRANCH AROUND INC IF SCOPE
sINC TO NEXT TEST SYNC

:HAXE ALL SYNC'S BEEN TESTED

#26 ,8SYNC

5%:

001142

sCLEAR SYNC EXTENTION
sLOAD NEXT SYNC

sTRANSMIT FIRST SYNC

TSYNC,aDPTB
aDPTS
.4
#3%,aDPRIV

173732
173710
173712

;SET # BITS/CHAR TO 12

sRCV_INTERRUPT VECTOR = ERROR
;WAIT FOR ALL 1'S
sTO SHIFT INTO XMIT,RCV BUFS

TSYNC,aDPTB

aDPTS
.~

013560
173650
001144

SEQ 0038

aSYNC
TSYNC+1 ,@SEXT

173742

173704

TSYNC

SLIM
BPC ,aDPRS
#400,BPC
BPC, aDPRS

- #3400,8PC
2%

sCLEAR TSYNC
sDECREASE SYNC LIMIT

sCLEAR OLD CHAR SIZE
;INC BITS/CHAR TO NEXT SIZE
;CHANGE BIT MODE
:CHECK CHARACTER SIZE
sJBRANCH UNTIL ALL SIZES HAVE BEEN TESTED

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

15:40

1897
1898
1899

1900

PAGE 41

SEQ 0039

PR
R AR AR R AR AR AR R AR AR A AR AR AR AR AR AR AR

1901

RRARRA R AR AR AR

AR AR R R

}gg%

sIDLE SYNC TEST

}g%g

JRAISE "ACTIVE'® BY IDLEING IN EACH AVAILABLE CHARACTER LENGTH

1906

'ttttittt*ttt!

1907
1908
1909

'TM
; TEST 30
:

1910

SRR

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

005606
005612
005620
005626
005634
005642
005650

104403
012777
113777
113777
013777
052777
052777

013560
005666
001144
001145

1930
1931
1932
1933
1934

005656
005662
005664
005666
005674

104403
104004
024646
017737
022626

027340

005700
005704
005710
005716

013700
013701
023737
001401

001144
001136
001136

005722
005724
005730
005732
005734
005740
005744
005752
005754
005756
005762
005764

000415
105737
001401
104900
013700
013701
123737
001401
104001
105777
100001
104000

1926
1927
}g%g

1935

1936
1937
1938
1939
1940

1941
1942
1943
1944
1945
1949
1947
1948
1949
1950
}gg}

JRRRRRRRR
KR AR

1911

}gg?

005602

005676

005720

012702

000412

006112

001144
000002
000100

173342

173426
173410
173410
173400
173370
173354

001136

AR AR AR AR R AR AR AR

TST30:

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

DELAY
MOV
MOVB
MOVB
MOV
BIS
BIS

,6000.
#2%,aDPRIV
TSYNC,aSYNC
TSYNC+1,9SEXT
TSYNC,aDPTB
#BIT1,aDPTS
#8176 ,aDPRS

MOV
1%:

2%:
3%:

001144

104001

001144
001136
001136
173250

4%:

001144

5%:

#6% ,R2

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

MOV
MOV
CMP
BEQ
HLT

001137
'

AR AR AR

MOV
MOV
MOV
CLR
CLR
MOV
INC
BIS

BR
TSTB
BEQ
HLT
MOV
MOV
CMPB
BEQ
HLT
TSTB
BPL
HLT

AR R AR AANRAARRAANRARN
AR RAR AR AR AR R AR AR

;LOAD TEST SYNC CHARACTER
sCLEAR STATUS REGISTERS
H

JFETCH DEVICE ADRS
s CHANGE ADRS TO HIGH BYTE OF STATUS
;START MAINTENANCE

sSET UP CHARACTER LENGTH SELECTOR
sWAIT FOR ALL 1'S TO SHIFT IN
;LOAD DP RCV INTERRUPT VECTOR
sLOAD LOW BYTE OF SYNC
;LOAD SYNC EXTENSION BITS
sLOAD XMIT BUFFER
sSET IDLE SYNC
;SET RCV INTERRUPT ENABLE
sWAIT FOR RCV INTERRUPT
sREPORT ERROR
;+ERROR INDICATOR/NOPOP.SP
;SAVE RCV DATA

;CONTROL WORD 12 BITS=BR .+2

DOES SYNC CHECK
;YES
*REPORT ERROR

TSYNC,RO
TMPDAT ,R1
TMPDAT , TSYNC
.+

5%
TMPDAT+1
.+
TSYNC,RO
TMPDAT ,R1
TMPDAT , TSYNC
.+
1
aDPRS
RA

JVERIFY ONLY 8 BITS WERE TRANSMITTED
sBRANCH IF OK
;REPORT ERROR
sCHECK SYNC IN LOW BYTE
sBRANCH IF SYNC 0K
;REPORT ERROR
;DID READING RCV BUFF CLR DONE
JYES

;REPORT ERROR

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

1953
1954
1955
1956
1957
1958

005766
005774
006002
006004

1959
1960
1961
1962
1963
1964
1965
1966

042777
032777
001401

004000
004000

042777
042737
022626

000002
000040

104000

142213
152213

1967

1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997

15:40

PAGE &2

SEQ 0040
#B1T11,aDPRS

JCLEAR ACTIVE
:Ag;IVE CLEARED?

l8£T11,0D°RS

1732¢4
177776

;REPORT ERROR
;CLEAR IDLE
;LOWER PRIORITY T0 4
JADJUST STACK
;CLEAR CHAR LENGTH
sSELECT NEXT CHAR LENGTH
;END OF MODE?

#BIT1,aDPTS

#B1T5,PS

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

?i.fiéi’k

006116
000400

001134

;2]78.5AVSR1

002000

173156

#B81T710,aDPRS

002000

173146

001400
000400
001426

173136
005676
001144

‘NO

:LSST 12 BITS/CHARACTER

*END OF 12 BIT TEST

7%
#B1T10,aDPRS
-(R2) ,~(R2)
#1400 aDPRS

s YES
:NO
;ADJUST CHAR SELECTION
;CLEAR CHAR LENGTH LSB'S
s CHANCE CONTROL WORD
s CHANGE SYNC

#400,
38

11426.rsv~c

6%:

000026
000412

006132

001144
005676

7%:

;CHARACTER LENGTH SELECTION
s CHARACTER LENGTH SELECTION
sRESTORE TSYNC

#26, TSYNC
#412,3%

JRESTORE CONTROL WORD

s*axxxx INTERRUPT DRIVEN SCQUENTIAL DATA

TESTxxnannnn

SRR AAARAA
AN NN

* TEST 31
.

:ttifittttt.'tfi
CRARA A AAARA A AN AR AR

012737
012737
012737

001072
001062
001174

105077

TST31:

173026
001156

001134

000426
172774
000400
000026
014542
014650

001160
172774
001144

001160
001144
172756
172744

1%:

2%:

MOV
MOV
MOV
CLRB
CLR
CLR
CLR
MOV
MOV
BIT
BEQ
MOV
BIS
MOV

INCB
BR
MOV
MOV
MOV
MOV

AR AAARARARR AR AR

#31,TSTNO
#TST32,NEXT
#3$ ,BACK
QSEXT
RDATA
TDATA
aDPTS
#5,aDPRS

#400, CHLEN

1@118.5Avsn1
#10000,LIMIT

#B1710,aDPRS

#4626, TSYNC
aSEXT

#6400,LIMIT
#26, TSYNC
#TV18,aDPTIV
#RV18,aDPRIV

AR AN AAAAAAAARAAARAAA
AR AR AR AR

sCLEAR SYNC EXTENTION
s INIT RCV DATA
JINIT XMIT DATA

s TRANSMITTER STATUS

;CLOCK ON + STRIP SYNC
sCHAR LENGTH INDEX

;TEST 12 BIT CHAR MODE
:NO

sSELECT END OF DATA

sSELECT 12 BITS/CHARACTER
;SYNC FOR 12 BIT CHAR
;PLACE MSB OF SYNC IN SYNC EXT
: TEMPORARY

CHARACTER LIMIT

s INIT SYNC STORAGE

s TRANSMITTER VECTOR

JRECEIVER VECTOR

(zoP
MACY11_30A(1052)
30=JAN=-79
CZDPAC.P1T
30=JAN=79 15:40

012737
012737

2009

2010

201
2012
2013
2014
2015
2016
2017

113777

052777
052777

000200
000003
001144
000100
000340

15:40

PAGE 43

177776
001162

MOV

#200,PS

BIS

#B116,aDPRS

MOV
mMOovB

172712
172700
172700

000001
000776
104400

SEQ (041

#3,SCNT
TSYNC,aSYNC

BIS

3s:

#340,aDPTS

;PRIORITY=4

;SYNC COUNT=3
;LOAD SYNC

sRCV INT ENB

;STATUS INT ENB
;TRANS INT ENB

; TRANS DONE

WAIT
BR
SCOPE

JWAIT FOR INTERRUPTS

;**x***RANDCM DATA, RANDOM STALL***%xxxs
kAR
*

TEST 32
*

cHA A AR AR A AR AA R

006346
006354
366
006374
006402

012737
012737
005037
012737

001072
001062

001144

113777

172634

004737

AL ALAE

LSSl

TST32:

MOV
MOV

#32,TSTNO
#TST33 NEXT

MOV

#26, TSYNC

JSR

PC,AND

CLR

mMovB

2222222322323

22222222223

CHLEN

sSET CHAR LENGTH TO 8 BITS

TSYNC,aSYNC

;LOAD SYNC BUFFER
JEXECUTE DATA + STALL MODES

;SYNC = 26

;REPEAT PREVIOUS TEST AT 7 BITS/CHAR
006406
006414
006422
006430

012737
052777
042777
004737

MOV

#200, CHLEN

BIC

#B1T11,aDPRS

BIS
013112

JSR

#B178,aDPRS
PC ,AND

sSET CHAR LENGTH TO 7 BITS

;7 BITS/CHAR
:CLEAR ACTIVE
;EXECUTE DATA + STALL MODES

;REPEAT PREVIOUS TEST AT 6 BITS/CHAR
006434
006442
006456

006464
006470

012737
042777
052777
042777

000300
000400
001000
004000

MOV

#300, CHLEN

;SET CHAR LENGTH TO 6 BITS

BIS
BIC

#8179 aDPRS
#81T11,aDFRS

;SET MODE TO 6 BITS/CHAR
;CLEAR ACTIVE

004737

013112

JSR
SCOPE

PC,AND

JEXECUTE DATA & STALL MODES

104400

BIC

#B1T8.aDPRS

CZDP
MACYTT 30A (105 2)
30- JAN=79
CZDPAC.P1
30=-JAN=7'9 15:40

15:40

PAGE 44

SEQ 0042
sannnxxPARITY

TESTrennnn

;VERIFY "PARITY'" BIT=1 FOR ODD PARITY AND=0 FOR EVEN
TR

A AR AN

ER TR

TEST 33
.

SRR
A AR
A
AR
SRR

012737

001072
001062
001174

AR A AR AR A AR AR R AR AR A AR AR AR AR AR R AR R AR AR AR AR AR AR

TST33:

MOV
MOV

#2% ,BACK
aDPRS
aDPTS
#1401 ,RPRT1
#400,LIMIT
RDATA
TDATA
ASEXT
#26,TSYNC
TSYNC,aSYNC

MOV
MOV
CLR
CLR
CLRB
MoV
MOVB
MOV
CLR
CLR

001144
172446
001162

001134

#3,SCNT

aDPRS
aDPTS

quTB.SAVSR1

BIT

001160

172400
177776
172404
172372
172350
172350

MOV
CLR
CLR

015454
001160

1%:

BEQ
MOV
BIS
MOV
MOV
MOV
BIS
BIS

#10000,LIMIT
#B1710,aDPRS

#200,PS

#TPRTY,aDPTIV
#RPRTY ,aDPRIV

#105,aDPRS
#300,aDPTS

WAIT

2%:

RN RN

#33,TSTNO
#TST34 ,NEXT

sLOAD RPRT2WITH BEQ .+4
sSET UP CHARACTER LIMIT
sCLR RCV DATA
;CLR XMIT DATA
sCLEAR SYNC EXTENTION
sSET UP SYNC
JINIT SYNC
:3 SYNC'S
sCLR RECEIVER STATUS
sCLR TRANSMITTER STATUS

:8/12 BITS/CHAR

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

;SELECT 12 BIT MODE

sPRIORITY = 4
s TRANSMITTER PARITY TEST VECTOR

JRECEIVER PARITY TEST VECTOR
JRCY INT ENB, STRIP SYNC, CLOCK
JXMIT INT ENB,DONE

SCOPE

JRECEIVER OVERRUN TST
IRRRRRARAAAARAR
.

; TEST 34
.

sk AAARRAAR
R NN

012737

052777

000034
007136
001136
172322
000026
000400

001072
001062

002000
007072
000004

172264
172276
172250

TST34:

172306

001134

1%:

MOV
MOV
CLR
CLRB
MOvB

MOV

#34 ,TSTNO
#TST35 NEXT

TMPDAT
aSEXT
#26,@SYNC

:gITB,SAVSR1

#BIT10,aDPRS
#3%,aDPT]V
#B1T2,aDPRS

e 2222332333223222222322222%

:STOR TEST CHAR IN TMPDAT

sCLEAR SYNC EXTENTION
;LOAD SYNC BUFFER

:8/12 BITS/CHAR
;BRANCH IF 8 BITS/CHAR
;SELECT 12 BITS/CHAR
JXMIT STATUS INT VECTOR=0'RUN
:TURN ON CLOCK

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

15:40

2108
2109
2110

006752
006766
006774

104403
052777
105777

013560
000200
17240

2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135

007002
007010
007014
007016
007024
007030
007032
007040
007044
007046
007054
007062
007066
007070
007072
007100
007102
007104
007110
007116
007120
007126
007132
007134

012777
105777
100375
012777
105777
100375
013777
105777
100375
013777
052777
104403
104000
024646
032777
001001
104000
005077
042777
022626
9042737
105237
001313
104400

000026
172224

17232

000026
172210

172216

001136
172174

172202

001136
000040
005670

172166
172156

040000

172140

172130
004000

172114

2111

2136
2137
2138

007000 100375

000040
001136

172244

PAGE 45

SEQ 0043
2%:

)

DELAY
BIS
TSTB

BPL

3%:

177776

2140

MOV
#26,aDPTB
TSTB
aDPTS
BPL
.4
MOV
#26,aDPTB
TSTB
aDPTS
BPL
.~
MoV
TMPDAT ,aDPTB
T1STB
aDPTS
BPL
.~
MOV
TMPDAT ,aDPTB
BIS
#B1T5,aDPTS
DELAY
,3000.
HLT
PUSH.SP
BIT
#B1T14,3DPTS
BNE
R
HLT
CLR
aDPTS
BIC
#81T11,aDPRS
POP.SP
BIC
#BITS,PS
INCB
TMPDAT
BNE
2%
SCOPE

JTRANSMIT FIRST SYNC

s TRANSMIT SECOND SYNC

;TRANSMIT DATA (CHAR #1
s TRANSMIT DATA CHAR #2

;SET STATUS INT ENS

sWAIT FOR O'RUN INTERRUPT

sREPORT ERROR, NO O'RUN INT
; +ERROR INDICATOR/NOPOP.SP
;TEST FOR O'RUN

;BRANCH IF O'RUN CAUSED INT
;REPORT ERROR
s CLEAR XMIT STATUS
sCLEAR ACTIVE
;LOWER PRIORITY TO 4
sINC TO NEXT DATA
;BRANCH IF NOT END

JRRRRAKRKR A KRN

2141

2142

TEST 35

2143

2145

JRARKARN LA

2144

2153
2154
2155
2156
2157
2158
2159

JWAIT FOR BCV TO CLEAR
- DONE

sHALF DUPLEX TEST

2139

2146
2147
2148
2149
2150
2151
2152

,6000.
#B177,aDPTS
aDPTS

JRRRRRARRR AR

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

000035
007340
172062
000103
014536
001144
000200

001144
000002
005670
001144

001072
001062

TST35:

172046
172054
177776
172024
172020

1%:

MOV
MOV
CLR
MOV
MOV
CLR
MOV

*
&

ARl s
22222222222 2222222

#35,TSTNO
#TST36 ,NEXT
aDPTS
#103,aDPRS
#FRINT ,aDPRIV
TSYNC
#200,P3

MOvVB
TSYNC,aSYNC
BIS
#81T1,aDPTS
DELAY
,3000.
INCB
TSYNC
BNE
1%
SCOPE
;NOTE END OF THIS TEST.

;CLEAR TRANSMITTER STATUS
sHALF DUPLEX,INT EN,TURN CiLK ON
;SETUP TEST VECTOR
sCLR TEST SYNC

;PRIORITY=4

;LCAD SYNC BUFFER
JIDLE SYNC

:DELAY 20.1 MS

;zeVE ALL SYNC BEEN TESTED

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

2160
2161
2162
2163
2164
2165
2166
2167
S}gg

2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180

2181
2182
2183
2184
2185

007234
007236
007244
007250
(007256
007262
007264

000005
012737
012706
012737
105737
100005
004737

177777
001050
000340
177570

15:40

001150
177776

012514

PAGE 46

SEQ 0044

sevxnxxPART2 DB25S CONNECTOR TEST SECTION=*#sann
BEGIN2: RESET
MOV
#-1,CABLE
MOV
#STACK,SP
;SET UP STACK POINTER
MOV
#340,PS
;SET PROCESSOR PRIORITY = 7
ISTB
SWR
JTEST FOR CHANGE IN DP ADRS
BPL
BGNOA
;JBRANCH [F NO CHANGE
JSR
PC,CLRPVEC
:LOAg ENTIRE VECTOR AREA WITH
s

007270
007274
007276
007302
007306
007314
007316
007324
007330
007336

004737
000404
004737
004737
032737
001405
012737
000177
012737
000240

012234
01254
012300
00000:
0312022
171530
007306

BGNOA:
001134

PART2:

001060
001060

1%:

JSR
BR
JSR
JSR
BI1
BEQ
MOV
JMP
MOV
NOP

PC,I.INE.N
PART?
PC,CLRVEC
PC,LINE.X
#B81T0,SAVSR1
1%
#PART3,RETURN
aRETURN
#PART2 ,RETURN

saxxxxxTEST 1:

2186

IERFRRRRRRRARK

2188

s TEST 36

2190

JRREARAA IR AN AR

2187

2189
2191

2192
2193
2194
2195
2196
2197
2198
2199
220C
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
gg}}

2213
2214

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

TST36:

1%:

: HALT
‘FETCH LINE NUMBER FROM SWR

(CABLE TESTS

AR AR R AR RN AR AN AR

MOV
MCV
TST
BNE
BIT
BEQ
MCV
JMP
iMP
MOVB
CLR
CLRB
CLR
MOV
MOV
MOV
MOV
CLOCK
30
SCOPE

#36,TSTNO
#TST37 NEXT
CABLE
1%
#8170, SAVSR1
.+14
#PART3,RETURN
aRETURN
.EOF
#26,aSYNC
aDPTS
aSEXT
aDPRS
#FTINT,aDPTIV
#FRINT ,aDPRIV
#240,aDPRP
#240,aDPTP

R RA R AR AR XA R

R R AR AR

AR RN AR AT AT AR

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

sSYNCHRONIZATION CHARACTER TEST 8/12 BITS/7HARACTER
;INTERRUPT ENABLE, COMPARE SYNC, TEST PARITY

CZ0P
MACY11 30A(1052)
30=.AN=79
CZDPAC.P11
30=-JAN=7G 15:40

15:40

PAGE 47

SEG 00«5

ALl
RS ] ]
*

: TEST 37
.

:.ttttt'tfi'ttt

'Qttttit.'!.tfi"".!..ttt.ttt'.t.'ttQtQitttl't."l.tt."'t.t't'.."'.

012737
012737
004537

012737

000403

000027
007760
013524

000376

001072
001062

001160

012737
012737

007776
007710

001160
001174

012737

000003

001162

012777

014542

TST37:

171510

MOV

113777
113777

052777
052777

104402
000003
032777
001001
104000

1%:

001401

0376 LIMIT

+10

12 BITS/CHAR

001144
001145

000100
C00300
001000

MOV

#3,SCNT

*SYNC COUNT = 3

MOV
30

MCVB
MOVB

171422

RXCLK
3
BIT

BIS
BIS

BNE
HLT
10
BIT

171376

BEQ

104000
10440;

HLT
gLOCK

032777
001401
104000

004000

032777
001001

004000

012777

171366

*BRANCH
AROUND 12 BIT LIMIT
sSET UP 12 BITS/CHAR LIMIT
*SET UP RCV SERVICE RETURN

#Tvi8,aDPTIV

“SET XMIT INT VECTOR TO SYNC
;RUN CLOCK

TSYNC,@SYNC
TSYNC+1,aSEXT

:LOAD SYNC BUFFER
*LOAD SYNC EXT

#81T9,aDPTS
.+

:SEND REQUEST UP?
YES
REPORT ERROR

#8176,aDPRS
#300,aDPTS

CLOCK

004000

“8 BIT SYNC LIMIT

#7776 ,LIMIT
#2% ,BACK

171454
171454

171434
171434

:REINIT FOR TEST

MOV
MOV

CLOCK

104401

000010
032777

#37,TSTNO
#T5T40, NEXT
RS,REE

:REE WILL ENER usne

104401

000030

MoV
MOV
JSR

*RCV INT ENB
SXMIT INT ENB

sRUN CLOCK
#81T11,aDPRS

:RECEIVER ACTIVE

;NO

*REPORT ERROR
JRUN C.OCK

BIT
BEQ
HLT

#B1T11,aDPTS
L+

:RCV
ACTIVE?
*NO
*REPORT ERROR

171342

BIT
BNE

#81T11,aDPRS
.+

:RCV ACTIVE?
SYES

015622

171344

MOV

#SRVS ,aDPRIV

;TEST PASS VECTOR

042777 004000

171314

BIC

#BI1T11,3DPRS

104402

104

104401
000010
104000

fixch

042777
032737

000100
040000

171314
177570

112777

000026

171274

001300

005237
85?525

001144
001160

HLT

2%:

CLOCK
10
HLT

BIC
BIT

#B1T6,aDPTS
#81T14,SWR

MOVB

#26.@SYNC

BNE

_
001144

INC
522

TSYNC
%%MIT,TSYNC

*REPORT FRROR

*RUN CLOCK

:REPORT ERROR

“CLEAR ACTIVE

:CLEAR INT EN8B
“TEST FOR SCOPE LOOP

*BRANCH IF SCOPE LOOP
: CHANGE SYNC

*NEXT SYNC, ENTRY FROM INTERRUPT
*HAVE ALL SYNC'S BEEN TESTED

cZDP
MACY11 _30A(7052)
30=JAN=79
CZDPAC.P11
30=JAN=79 15:40

gg;%

007756

15:40

PAGE 48

104400

SEQ 0046

SCOPE

2274

sSYNCHRONIZATION CHARACTER TEST 7/17 BITS/CHARACTER

gg;g

s INTERRUPT ENABLE AND SYNC CHARACTER CHECK

2277

2278

JRAREARARN AR

2279

2280
2281

;
3

*
*

JRERR AR AA K AR K

2283

22
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327

TEST 40

t'ttt'ttitt'tttttttttttnttttnttttnOttttttttttttttfitttt'tnt.tttQttt.t

007760
007766
007774

012737
012737
004537

000040
010256
013524

001072
001062

010000
010006

012737
000403

000176

001160

010010
010016
010024
010032
010040
010046
010054
010056
010060
010066
010074
010102
010104
010106
010114
010116
010120
010122
010124
010132
010134
010136
010140
010142
010150
010152
010154
010156
010160
010166
010170
010172
010200
010202
010204
010206
010214

012737
052777
012737
012777
012777
012737
104401
000024
113777
052777
052777
104402
000003
032777
001001
104000
104401

003776
000400
010206
014536
014542

001160
171206
001174
171206
171204
001162

001144
000300
000100

171150
171144
171130

001000

171124

032777
001401
104000
104401

004000

171100

032?77
001401
104000
104402
1
032777
001001
104000
012777
104401
000007
104000
042777
042777

004000

171070

004000

171044

015622

171046

004000
000100

171016
171016

TST40:

MOV
#40,TSTNO
MOV
#1747 ,NEXT
JSR
RS ,REE
JRETURN HERE IF 8 BITS/CHAR
MOV
0176 LIMIT
BR
+10
JRTETURN HERE IF 12 BITS/CHAR
MOV
#3776 ,LIMIT
BIS
lBITS aDPRS
MOV
lZS.BACK
MOV
#FRINT ,aDPRIV
1%:
MOV
#TV18,aDPTIV
MOV
#3,SCNT
CLOCK
24
MOVB
TSYNC,aSYNC
BIS
#300,aDPTS
BIS
#B1T76,aDPRS
RXCLK
3
BIT
#BIT9,aDPTS
BNE
A
HLT
CLOCK
7
BIT
#81T711,aDPRS
BEQ
.+
HLT
CLOCK
6
BIT
#81T11,aDPTS
BEQ
.+
HLT
RXCLK
1
BIT
#B1T11,aDPRS
BNE
.+
ALT
MOV
#SRVS ,aDPR]IV
CLOCK
7
HLT
2%:
BIC
#BIT11,3DPRS
BIC
#B1T76,aDPTS

sREINIT

.
DP1i

;7 BIT LIMIT
sBRANCH AROUND 12 BITS/CHAR LIMIT
;11 BITS/CHAR LIMIT
:7/11 BITS PER (CHAR
sSET UP RCV SERVICE RETURN
sFALSE INT TEST VECTOR
JSET MIT INT VECTOR TO SYNC
JXMIT 3 SYNCS
JRUN CLOCK
;LOAD SYNC BUFFER
JXMIT INT ENB
JRCINT ENB

:SEND REQUEST UP?
sREPORT ERROR
JRUN CLOCK
JRECEIVER ACTIVE
2NO
sREPORT ERROR
sRUN CLOCK
JRCV ACTIVE?
sNO
;REPORT ERROR
sRCV ACTIVE?
JYES
:REPORT ERROR
;TEST PASS VECTOR
:RUN CLOCK

JREPORT ERROR
sCLEAR RCV ACTIVE
JCLEAR XMIT INT ENB

CZDP
MACY11_30A(1052) S306JAN-79
30=-JAN-79
CZDPAC. P11

010222
010230
010236
010240
010244
010252
010254

112777
032737
001300
005237
023737
001272
104400

15:40

000026
040000

171006
177570

001144
001160

001144

PAGE 49

SEQ 0047
sDUMMY SYNC

;TEST FOR SCOPE LOOP

;BRANCH IF SCOPE
sNEXT SYNC

JHAVE ALL

SYNC'S BEEN TESTED

sSYNCHRONIZATION CHARACTER TEST 6/10 BITS/CHARACTER
s INTERRUPT ENABLE AND SYNC CHARACTER CHECK
LA 222222222
d
*

TEST 41
*

:t"it'.t'it.t
TR

010256
010264
010272
010276
010304

012737
012737
004537
912737
000403

000041
010562
013524
000075

001072
001062

010306
010314

012737
052777

001775
001020

001160
170710

010330
010336
010344
010352
010360
010366
010370
010372
010400
010406
010414
010416
010420
010426
010430
010432
010434
010436
010444
010446
010450
010452
0104 54
010462
010464
010466
010470
010472
010500

012777
012737
042777
042777
112777
104401
000021
113777
052777
052777
104402
000003
032777
001001
104000
104401
000006
032777
001401
104000
104401
000005

014542
000003
000100
004000
000026

170714
001162
170666
170652
170650

010322

012737

032777

001401
104000
104402
000001
032777
001001

010520

001144
000100
000300

001160

001174

170636
170624

170624

AR R AR

TST41:

AR A AR AR A AR AR AR A AR AR AR R A AR AR AR AR A RR AR

MOV
MOV
JSR
MOV
BR

#41,TSTNO

MOV
BIS
MOV
MOV
MOV
BIC
BIC
MOVB
CLOCK

#1775,LIMIT

004000

170612

170566

170556

1%:

MOvVB
BIS
BIS

BIT
BNE
HLT
CLOCK
6
BIT
BEQ
HLT
gLOCK

BIT

BEQ

HLT
?XCLK

004000

170532

c?? LIMIT

JRETURN HERE IF 10_BITS/CHAR

RXCLK

001000

#TST42 NEXT
RS ,REE

BIT
BNE

#B1T9,aDPRS

#2% ,BACK
#TV18,aDPTIV
#3,SCNT
#BIT6,aDPTS
#BIT11,aDPRS
#26,3SYNC
TSYNC,aSYNC

#8176,aDPRS
#30C,aDPTS

#B119,aDPTS
.+

SRR AR R AR AR R R AR

;REINIT DP11
:6 8iT LIMIT
;BRANCH AROUND 10 BIT LIMIT

;SET UP 10 BITS/CHAR
:6/10 BITS/CHAR
sSET UP RCV SERVICE RETURN
JSET XMIT INT VECTOR TO SYNC
JXMIT 3 SYNCS
sCLEAR XMIT INT ENB
;CLEAR ACTIVE

;s CHALGE SYNC

;RUN CLOCK

:LOAD SYNC BUFFER
sRCVINT ENB

XMIT INT ENB

:SEND REQUEST UP?
;REPORT ERROR

sRUN CLOCK

#BIT11,aDPRS
.+4

sRECEIVER ACTIVE
:NO

*REPORT ERROR
*RUN CLOCK

#BIT11,aDPTS

sRCV ACTIVE?
:NO
;KEPORT ERROR

#B1711,aDPRS

sRCV ACTIVE?

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

010502
010504
010512
010514
010516

012777
104401
000006
104000

015622

010520

042777

004000
000026
040000

104000

112777

032737

15:40

PAGE 50

SEQ 0048
KLT

MOV

170534

sREPORT ERROR

#SRVS5 ,aDPRIV

gLOCK

sTEST VECTOR
sRUN CLOCK

HLT

2%:

001144
001160

sREPORT ERROR

BIC
MOvB
BIT
BNE

#B1711,aDPRS
#26 ,aSYNC
#BIT14,SWR
1%

INC
(MP
BNE
SCOPE

010560

;TEST FOR SCOPE LOOP
sBRANCH IF SCOPE
sNEXT SYNC
JHAVE ALL SYNC'S BEEN TESTED

TSYNC
LIMIT,TSYNC
1%

; INTERRUPT DRIVEN SEQUENTIAL DATA TEST
IRRRRARAR
R AN
A
.

; TEST 42
:

:ttfit't.t!tfi..
:'tlt*.Qt'!"t'!fi.'li...ti.Qttt’QQtt.t'Q'.it.tt'..t!t.:ttt.t.tt'..'.

010562
010570
010576
010602

012737
012737
004737
104400

000042
010604
014032

001072
001062

TST42:

MOV

#42,TSTNO

MOV
JSR

#TST43 NEXT
PC,.SEQ.DATA

SCOPE

:DC THE TEST.

;.Qt.'fi'ttitt.*""'t'fitfi.'.t...tt..'it't'.".t.tt'tt"'t

;RANDOM CATA RANDOM IDLE
CRRRRARRR AR

’

TEST 43

CARRRRR
AR AR
R

012737
012737
005077
005077
105077
012737

TST43:

A A A A A AR AR

MOV
MOV
CLR
CLR
CLRB

MOV
MOV

012737
113777

MOovB
MOv

012701
12702
012703
004737

MOV
MOV
JSR

AR AR AR

AR AR AR AR AN PR N AR R AR AR R AR

#43,TSTNO
#TSTL4 NEXT
aDPTS
aDPRS
ASEXT

#177400, CHLEN
#26,TSYNC

TSYNC
. @SYNC

#15371 ,R1
#72414
R2
#4036,R3
PC.,A2ND

R RN R AR

AR AR AR P AR NS

sCLEAR SYNC EXTENTION

sSET CHAR LENGTH TO 8 BITS
:SYNC = 26
:LOAD SYNC BUFFER
;PRIME RANDOM # GEN

177600

001156

MOv

#177600, CHLEN

sSET CHAR LENGHT TO 7 BITS

012737

010676

;REPEAT PREViIOUS TEST AT 7 BITS/(HAR

MACY11_30A(1052)
czop
3
30=JAN=79
CZDPAC.P1
30~JAN=79 15:40

2440
2441
2442
2443
2444
2445
24406
2447
24L4L8
2449
2450
2451

010704

010712
010720

052777
042777
004737

000400

004000
013614

15:40

170320
170312

PAGE 51

SEQ 0049
BIS
BIC
JSR

#B178,aDPRS
#B1T11,aDPRS
PC.A2ND

;7 BITS/CHAR
sCLCAR ATTIVE

sREPEAT PREVIOUS TEST AT 6 BITS/(HAR

010724
010732
010740
010746
010754
010760

012737

042777
052777
042777
004737
104400

177700
000400
001000
004000
013614

001156
170272
170264
170256

MOV
BIC
BIS
BIC
JSR

SCOPE

#177700,CHLEN
#B178,aDPRS
#B8179,aDPRS
#B1T11,aDPRS
PC,AZND

;SET CHAR LENGTK TO 6 BITS

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

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

15:40

PAGE 5¢

SEQ 0050

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

sWHEN TRANSMITTER BUFFER IS LOADED
st

de e e

e
*

TEST 44
*

SHEARCRARR
AR
K

2467
2468
2469
2470
2471
2472

2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500

010762
01077C
010776
011004
011010
011014

011034
011042
(11050
011052
011054
01106¢
011064
011066
011074
011076
011100
011106
011110
011112
011114
011116
011124
011126
011130
011136
011140
011142
011150
011152
011154

012737
012737
012737
005077
005077

000044
011156
000240
170230

012777
032777
052777
013777

01072
001062

ERRARAARARRRN AR

TST44:

RN A RARRRRRRRRRRRRAAARRRRRARRRARRNRNA
RN AR
A AR

MOV
MOV
MOV
CLR
CLR
gbOCK

#44 ,TSTNO
#TST4S5 NEXT
#240,PS
aDPTS
aDPRS

014532
014526
000040
001152

MOV
MOV

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

MoV

TDATA,QDPTB

032777
001001

001000

BIT

#B1T9,aDPTS

032777
001001

002000

170144

BIT

#BI1T10,aDPTS

032777

010000

170132

BIT

#B1T12,3DPTS

104401
000010

104401
00003

104000

17777%

170216

BIS

gLOCK

BNE
HLT

BNE

HLT
%50CK

001000

170114

002000

170102

010000

170070

#BIT5,aDPTS

.+
.t

BIV
BEQ

#B1T9,aDPTS
.+

BIT

#BI1T10,aDPTS

HLY

BEQ
HLT

BIT

BEQ
HLT
SCOPE

#BIT12,aDPTS
.4

;PRIORITY=S
sCLR XMIT STATUS
:CLR RCV STATUS
sRUN CLOCK

;STATUS+RDY INT ENBS
;LOAD BUFFER

sRUN CLOCK

'SEND REQUEST'' ON

s YES
:REPORT ERROR

s CLEAR-TO-SEND'* UP?

;YES
:REPORT ERROR

:"MODEM READY'' UP
SYES

sREPORT ERROR
sRUN CLOCK

;"'SEND REQUEST'' DOWN
;YES

:REPORT ERROR

:"'CLEAR-TO~SEND"* DOWN

:YES

;REPORT ERROR

:"MODEM READY'' DOWN

s YES
:REPORT ERROR

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

15:40

2501
2502
2503

SEQ 0051

;PERFORM PREVIOUS TEST AT 7/11 BITS/CHARACTER
IRRRRRRRERR
AR

504

2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556

PAGE 53

; TEST 45
:

R ARk
hw
AR

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

012737
012737
012737
005077
005077
012777
012777

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

000045
011524
000240

177776

014532
014536
000400
000040
001152

170034
170022
170000
170000
167774

MOV
MOV
BIS
BIS
MOV
gLOCK

#FTINT ,aDPTIV
#FRINT ,aDPRIV

001000

167760

#B1T79,aDPTS

002000

167746

010000

167734

BIT
BNE
HLT
BIT
BNE
HLT
BIT
BNE
HLT

170034
170022

001000

TST45:

167716

002000

167704

010000

167672

MOV

#45,TSTNO
#TST46 NEXT
#240,PS
aDPTS
aDPRS

MOV
MOV

CLR
CLR

CLOCK
11

BIT

BEQ
HLT
BIT
BEQ
HLT
BIT
BEQ
HLT
SCOPE

#B178,aDPRS
#B81T5,aDPTS

TDATA,aDPTB

#BI1T10,aDPTS

o*‘

#BIT12,aDPTS
.+

222223 2223322222222 2223

;PRIORITY = 5
sCLR XMIT STATUS
:CLR RCV STATUS
sXMIT ERROR TRAP VECTOR
sRCV ERROR TRAP VECTOR

:7/11 BITS/CHARACTER
s STATUS+RDY INT ENB

;LOAD BUFFER

sRUN CLOCK

'SEND REQUEST'' ON
REPORT ERROR

C%EAR-TO-SEND" uP?

:REPORT ERROR

:"MODEM READY'* UP

:YES
;REPORT ERROR
sRUN CLOCK

#BIT9,aDPTS

#BIT10,aDPTS

#BI1T12,aDPTS
.+

'SSND REQUEST"* DOWN
:REPORT ERROR

;" 'CLEAR-TO~-SEND'
DOWN

SYES
sREPORT ERROR
;' MODEM READY'' DOWN
s YES
;REPORT ERROR

;PERFORM PREVIOUS TE?T AT 6/10 BITS/CHARACTER
011354
011362
011366

011372
011400
011406
011414
011422
011430
011432
011434

177776
167652
167640
167616
167616
167612

003
032777

167576

MOV
CLR
CLR
MOV
MOV
BIS
BIS
MOV
CLOCK

3
BIT

#240,PS

aDPTS
aDPRS
#FTINT ,aDPTIV
#FRINT ,aDPRIV

#B179,aDPRS
#B175,aDPTS

;PRIORITY = 5
sCLR XMIT STATUS
sCLR_RCV STATUS
¢XMIT ERROR TRAP VECTOR
sRCV ERROR TRAP VECTOR
;6 BITS/CHARACTER
:STATUS+RDY INT ENB

TDATA,aDPTB

;LOAD BUFFER

#BIT9,aDPTS

:"'SEND REQUEST'' ON

sRUN CLOCK

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

2557

011442

001001

011446
011456

032777
001001

2558

011444

2561
256%
2563
2564
2565
2566

011456
011460
011462
011464
011472
011474

2568
2569

011504
011506

2571
2572
gg;z

011516
011520
011522

2559
2560

2567 011476
2570

011510

104000

10400C
104401
000010
032777
001401
104

032777
001401
104000

032777
001401
104000
104400

010000

15:40

SEQ 0052

167546

002000

167534

BNE

BIT
BNE

#B1T712,3DPTS
.+

HLT

167564

001000

010000

PAGE 54

HLT
CLOCK
10
BIT
BEQ
HLT ,

#B179,aDPTS
.+

BIT

#81710,aDPTS

BIT

#BIT12,aDPTS

BEQ
HLT

167522

BEQ
HLT
SCOPE

%g;g

2579

“

2585

2584

* TEST 46

2586

SYES
:REPORT ERROR

:"MODEM READY'' DOWN
s YES
:REPORT ERROR

JRRRRRRRRRRNAR

2587

011524

012737

000046

001072

2589
2590
2591
2592
2593

(11532
011540
011546
011552
011560

012737
012737
005077
012777
012777

012022
000240
167466
014532
000001

2595
2596
2597
2598
2599
2600

011572
011600
011602
011604
011612
011614

032777
001001
104000
032777
001001
104000

000001

167440

004000

167426
'

020000

167414

011566

011616

104403

032777

2602 011624 901001
011626

001500

001062
177776

167460
167452

104000

TST46:

AR AR

MOV

BIT
BNE
HLT
BIT
BNE
HLT

#B81T0,aDPTS
.+

BNE

BIT

RRA AR RRRNRARA R AR AR

#46,TSTNO

#TST4L7 NEXT
#240,PS
aDPTS
#FTINT ,aDPTS
#B81T0,aDPTS

DELAY

R R AR R R AR AR AR

MOV
MoV
CLR
MOV
MOV

HLT

gggg
2607
2608
2609
2610
2611
2612

:"'CLEAR=-TO=SEND"* DOWN

JRRRRRNRANRANR

2583

5&3

REPCRT ERROR

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

2582

2601

:REPORT ERROR
sRUN CLOCK
*
'SEM) REQUEST'" DOWN

; TERMINAL READY

2580
2581

2594

:"MODEM READY'' UP
:YES

;DB25S TEST CONNECT CONNECTOR TEST

2577
2578

2588

;YES

REPG" ERROR

,1500

#BI1711,3DPTS
.+

#BIT13,aDPTS

;PRIORITY = 5
sCLR XMIT STATUS
;ERROR TRAP VECTOR

: TERMINAL READY

:15MS PROPOGAT
ION DELAY
TERHINAL READY
; YES
:REPORT ERROR
;CARRIER
SYES
:REPORT ERROR

:RING FLAG UP

YES

:REPORT ERROR

;CLEAR TERMINAL READY
011630
011636
011642
011650
011652
011654

042777
104403
032777
001401
104000
032777

000001
001500
000001

167402

004000

167356

167370

BIC
DELAY
BIT
BEQ
HLT
BIT

#B170,aDPTS
,1500
#B170,aDPTS
.+
#BI1T11,aDPTS

;CLEAR TERMINAL READY

TERM RDY DOWN

;YES
:REPORT ERROR
;CARRIER DOWN

RRNNRARRRRARNS

CZDP
MACYTT 30A(1052)
30-JAN=79
(ZDPAC.P11
30=JAN=79 15:40
2613
2614
2615
2616
2617
sg}g

011662
011664
011666
011674
011676
011700

001401
104000
032777
001001
104000
042777

2621
2622
2623
2624
2625

011706
011714
011720
011726
011732

2627
gg?zg

011746
011752

2620

2626

2630

2631
2632
2633
2634
2635
2636
2637
222;8

011740

011754
011762
011770
011776
012004
012010
012012
012020

15:40

100000

167344

100000

167332

012777
005077
005077
012777
012737

000240
167320
167306
014406
000200

167340

104403
104000

001500

012777

012777
012737
012737
042777
104403
104000
042777
104400

000041

PAGE 55
BEQ
HLT
BIT
BNE
HLT
BIC

RCD:

167272

167270
001174
177776
167234

100000

167220

.t
#BIT15,3DPTS
.+
#BIT15,aDPTS

JYES
sREPORT ERROR
:"'CARRIER DOWN'' FLAG UP
s YES
sREPORT ERROR
sCLEAR DOWN FLAG

JVERIFY THAT "RING'® AND ‘‘CARRIER DOWN'' INTERRUPT

167320
177776

014460
012020
000200
000001
001500

SEQ 0053

MOV
CLR
CLR
MOV
MOV

#240,aDPTP
aDPTS
aDPRS
#TV24 ,aDPTIV
#200,PS

s INTERRUPT PRIORITY 5.
;CLEAR XIMT STATUS
;CLEAR RCV STATUS
sTEST PASS VECTOR
;PRIORITY = 4

DELAY
HLT

,1500

:15.75 MS DELAY
sREPORT ERROR

MOV

0B[T§*BIT0.0DPTS

:STATUS INTERRUPT ENABLE

:VERIFY ''CARRIER DOWN'' RAISES INTERRUPT

RCD1:

1%:

MOV
MOV
MOV
BIC
DELAY
HLT
BIC
SCOPE

#TV2S5,aDPTIV
#1$ BACK
#200,PS
#8110,aDPTS
,1500

#BIT15,aDPTS

sNEXT TEST VECTOR

;CLEAR TERM. RDY. SHOULD SET 'CARRIER DOWN'.
:15.75MS DELAY
;REPORT ERROR
;CLEAR '‘CARRIER DOWN''

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

15:40

PAGE 56

SEQ 0054

sCABLE TEST WITH OUT EXERCISING THE SOF TWARE CLOCK.
sIN THIS TEST FUNCTIONS OF THE CABLE WILL BE
sTESTED WITHOUT THE SOFTWARE (LOCK. THE CLOCK MUST BE
;SUPPLIED BY THE DP11.
2646

012022

PART3:
:
DF11=L TEST!'!!
JVERIFY THAT LOADING THE TRANSMITTER BUFFER

;BRINGS UP "REQUEST TO SEND'' WHICH IN TURN WILL
sBRING UP "'CLEAR TO SEND'' AND ‘MODEM READY''.
JVERIFY ALSO THAT THEY GO AWAY.
*RARAA
AN AN AN AN
*

TEST 47
*

AR AR A AR AR Ak
AR

2659
2660
2661

2663

012022
0312030
012036

012737
012737
032737

000047
016002
000001

012046

000137

016002

2664

012052

(005077

005077

167150

2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691

012064
012070
012074
012100
012104
012110
012112
012114
012116

012700
010277
017701
042701
022701
001403
005202
001367
104001

001300
167146
167140
164777
013000

2665

2692
2693
2694
2695
2696

012056

012120
012122
012124
012126
012134
012136

005002
005202
001376
032777
001401
104000

001072
001062
001134

TST47:

167104

:CLEAR THE TX STATUS
:CLEAR THE RX STATUS.

MOV
MOV

#1300,R0
R2.aDPTR

:LOAD THE TX BUFFER

MOV
BIC

-EOP

abDPTS,R1
#164777
.R1

CMP

#13000,R1

BNE

2%
R2

:UPDATE DELAY

*ERROR REQUEST

CLR
INC

R2
R2

BIT

#13000,aDPTS

BNE

ee?

SSET TIME ouT

.~2
L+

*IS IT DONE?

TO SEND,CLEAR TO

*SEND AND MODEM READY NOT UP.
*SET FOR TIME OUT
:DELAY

:ARE THEY GONE?

;VERIFY THAT THE SETTING OF '‘TERMINAL READY'' BRINGS
;UP "RING'' AND ‘'CARRIER DOWN'' ALSO VERIFY THAT
;CLEARING '‘TERMINAL READY'' BRINGS DOWN ‘RING'
;AND '‘CARRIER DOWN''.
012140
012146
012152
012156
012162
012166
012170
012172

012777
104403
017701
042701
022701
001401
104001
042777

000001
001500
167062
153776
024001

167072

000001

167040

222222222223

aDPTS
aDPRS

HLT

013000

CLR
CLR

BEQ
INC

2$:

#47,TSTNO
# .EOP NEXT
#B1T0,SAVSR1
+6

CLR

1%:

MOV
MOV
BIT
BNE

JMP

167162

MOV
DELAY
MOV

#8170,aDPTS
,1500
aDPTS,R1

CMP

#24001,R1

BIC

BEQ
HLT

BIC

#153776.R1
.+
1

#81T0,aDPTS

22223

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

2697

2698
2699

2700

012200

012204
012212

012214

104403

022777
001401

001500
120000

104000

15:40

167026

PAGE 57

SEQ@ 0055
DELAY
(MP

BEQ
HLT

,1500
#120000,aDPTS
.t

sNOW TEST THAT DATA (AN BE

TRANSFERED.

;A BINARY (OUNT PATTERN WILL BE TRANSMITTED AND RECEIVED
;WITH OUT THE USE OF THE SOF TWARE CLOCK.

2706
2707
2708
2709

012216
012222
012226
012232

005037
005037
004737
104400

001102
001104
014032

CLR
CLR

JSR
SCOPE

TEMP1
TEMP2

PC,SEQ.DATA

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

2710
2711
2712
2713
2714
2715
2716
2717
2718
2719

15:4C

PAGE 58

SEQ 0056

;LINE.N SUBROUTINE TO FETCH THE LINE
sNUMBER AND FIRST DP11 VECTOR ADDRESS FROM
:THE CONSOL SWITCHES

s SWO-SW8=VECTOR ADDRESS OF FIRST DP11
;SW9-SW15=LINE NUMBER OF DP11 SELECTED FOR TEST
012234
012240
012246
012252

005037
013737
013700
000000

001076

177570
177570

001134

012254
012262
012266
012270
012272
012276
012300
012304
012310
012312

013737
013700
000000
005001

177570
177570

001164

113701

LINE.N:

LINE.X:
XTAG:

001146

ERRCNT
SWR, SAVSR1
SWR,RO

SWR, SAVSR?
SWR,RO

001165
001146
001134

CLR
MOV
MOV
HALT

;CLEAR ERROR CCUNT
sSAVE CONSOL SWITCH SETTINGS

;SET SWR TO LINE NUMBER
;LOW BYTE = FIRST DP VECTOR
sHIGH BYTE = LINE NUMBER(8)
;SAVE CONSOL SWITCHES

R1
SAVSR2+1,R1
XTAG
XLINEX,R1

;SAVE LINE NUMBER

R1
R1
R1,XLINEX

:CLEAR LSB

SAVSR1

sSCALE LINE N'MBER TO ADDRESS

2MODULO 10(8)
166726

;DOES LINE O REALLY EXIST??

001134
012454
001260

SAVSR1

.+10

000004

#3$,an4
BASCSR,R2
R1,R2
#DPRS ,R3

001232

R2, (R3)+

(R2)+
R2, (R3)+
R2
R2,(R3)+
R2
R2,(R3)+
(R2)+
R2,(R3)+
R2
R2, (R3)+
SAVSR2
k2
#177000,R2

001164
177000
001134

001256

012440
012442

005722

3AVSR1
$

2%:

BASVEC ,R2
R1.R2

;:SET R2 = LINE O ADDRESS

sMANUFACTURE DEVICE ADDRESS

;R3 = ADPRESS OF RCV STATUS ADRS

sLOAD RCV STATUS ADRS
s INC TO RCV BUFFER ADRS
:LOAD RCV BUFFER ADRS

sINC TO SYNC BUFFER ADRS
:LOAD SYNC ADRS
sINC TO XMIT STATUS ADRS
;LOAD TRANSMITTER STATUS ADRS
sINC TO XMIT BUFFER
;LOAD XMIT BUFFER ADRS
sINC TO SYNC EXTENTION
sLOAD SYNC EXTENSION ADRS
sSET UP VECTOR ADDRESS
;CLEAR LINE NUMBER FROM VEC ADRS

sSET VECTOR ADDRESS TO LiNE NUMBER
sLOAC RCV VECTOR ADRS
SINC TO NEXT VECTUR
;LOAD RCV PRIORITY ADRS
2INC TO NEXT VECTOR

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

2766
2767
2768
2769
2770
2771
2772
2773

012444
012446
012450
012452
012454
012460
012464
012466

2:75
2776

012470
012472

15:40

PAGE 59

010223

001146
000042

000006

012512

3%:

(00004

SEQ 0057
MOV
TST
MOV
BR

;LOAD XMIT VECTOR ADRS
sINC TO NEXT VECTOR
;LOAD XMIT PRIORITY ADRS

(R2)+

(LR

MOv
BEQ
RESE T

LOGICAL=.
JSR
NOP
NOP
NOP
L%
POP. S
BR
5%:
MOV
SRR

R2,(R3)+

RTS

PC,(R1)

L INE.X
#6 ,a44

A AR AR RN R AR R AR TR

(AN

A A A AR AR AR RN AR

AR AR AR RN R

sCLRVEC,ROUTINE TO FILL COMMUNICATION VECTOR AREA WITH .+2 HALT

2787
2788
2789
2790
2791
2792
2793
279

012514
012520
91252
012526
012530
012532
012536
012540

012702
012701
010122
005922
022121
022701
001372
000207

000300
000302

CLRVEC: MOV
1%:

MOV

000776

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

;R2 COMM YECTOR AREA ADRS
JINIT R1 WITH ADRS OF HALT
JMOV .+2 TO PC
MOV HALT TO PC
:INC TO NEXT VECTOR AREA
;END OF VECTOR AREA
:NO
:RETURN

KIKRK

iy
P
ghery
Yo

KIEKKS

W
NN
=
— (N

eleolelelele)
S

010537

WO
WW
—a ) — -

01310
013106
0002

C17701

N
o

012542

O§°O

2805
2806

—_—
L O

;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: FOR BIT UNDER TEST
FOR REGISTER UNDER TEST
;REG:
BITST:

000330
000312
000300
000262

000250

MOV
MOV
BIS
BIS
MOV
BIT
BNE
HLT
BIC
BIC
MOV

BIT
BEQ
HL

BIS
BIS
MOv

RS, TEMP4

(R5)+.BITS

;CAVE GIT NUMBER
;SET BIT

L+

:YES

BITS,aREG
BITS,RO
@REG,R1
BITS,aREG
. +h

JCLEAR BIT

BITS,aREG
BITS.RO
@REG.R1
BITS.3REG

BITS,aREG
BITS.R"
aREG,R1

;IS BIT SET?
;REPORT ERROR

;1S BIT CLEARED
s YES
sREPORT ERROR
JSET BIT

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

2822
¢82%
2624
2325
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836

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

033777
001001
1040C2
005077

0VsS00C
017701

033777
001401
104002
052777
052700
000205

15:40

013106

000232

000222

000214
013106
000004
000004

166316

012722
012726

012734
012740
012746
012752
012756
01cr64
012766
012770
012776
013002

011637
017637

062716
053777
053700
017701
023777
001401
104002
043777
053700
(00002

MOV
BIT
BEQ
HLT
BIS
BIS
RTS

aREG,R1
BITS,aREG
A
2
#B172,3DPRS
#BIT2.R0O
RS

IS BIT SET
:YES
*REPORT ERROR
;CLEAR REG
IS BIT CLEARED
;YES
*REPORT ERROR
KEEP CLOCK HUMMING

001110
000000

000002
013106
013106
000132
013106

013106
013106

013106

.VALID: MOV
mMCv

ACD
BiS
BIS
MOV
CvP
BEQ
HLT
BIC
BIS
RTI

000142

000124
000112

(SP) ,TEMP4
a(SP) ,BITS

#2,(5P)
BITS,aREG
BITS.RO
aREG,R1
BITS,3REG
.4
2
B8!TS,aREG
BITS.RO

JFETCH BIT NUMBER
;SET BIT

:WAS ONLY THAT BIT SEI?
;YES
;REPORT ERROR
;RESTORE REG
;RETURN

sCLEAR,ROUTINE TO TEST THAT BIC ONLY CLEARS SPECIFIED BIT

2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
Sg;}

013004
013010
013016
(13022
013030
013036
013042
013044
013046
013052
013056
013064
013066
013070
013076
013104

011637
017637
062716
043777
043737
012700
005300
001376
013700
017701
023777
001401
104002
053777
053737
000002

2873

013106
013110

00000C

2876

BITS,aREG
.*4
2
aREG

JONLY THE SPECIFIED BIT IS SET

%ggg

gg;g

BIT
BNE
HLT
CLR

sVALID,ROUTINE TO TEST FOR ANY INTERACTION BETWEEN BITS
sTHIS ROUTINE CHECKS THAT WHEN EXECUTING A BIT SET INSTRUCTION

ggzg

2843
2844
2845
2846
2847
2848
2849
2850
2851
%gg%

SEQ 0058

CLR

000206

2837
2838
2841
2842

PAGE 60

000000

001110
000000
000002
013106
013106
013000

013106
000060
001136

001136
000032
001136

000024

013106
013106

000012
001136

.CLEAR: MOV
MOV
ADD
BIC
BIC
MOV
DEC
BNE
MOV
MOV
CMP
BEQ
HLT
BIS
BIS
RTI.

BITS:
REG:

(SP) ,TEMP4
a(SP) ,BITS
#2,(SP)
BITS,aREG
BITS,TMPDAT
#13000,R0
RO
.~2
TMPDAT R0
aREG,R1
TMPDAT ,aREG
YA
2
BITS,aREG
BITS, TMPDAT

O
0

;COMMON DATA AND IDLE SUBROUTINE

JFETCH BIT NUMBER
;CLEAR BIT
;CLEAR MASK

JWERE ANY OTHER BITS CLEARED
;NO
;REPORT ERROR
:RESTORE REG
;RESTORE MASK
:RETURN

CZ0P
MACY11_%0A(1052)
30=JAN=79
CZDPAC.P1
30=JEN=79 15:40

15:40

015371

PAGE 61

SEQ 0059
#15371,R1
#72414 ,R2

:
AND

:PRIME RANDOM # GEN

#4036 ,R3
#4300,aDPRS
#160342,3DPTS
,
RP
#BOTTOM

sRCV INT ENB, RCV ACTIVE

;INT ENBS IDLE SYNC, ERRORS
sSET UP RCV POINTER
;SET UP XMIT POINTER
sRCV _INT VECTOR
sXMIT INT VECTOR

RP,TP
#RRRR,aDPR]V
#RRRT ,aDPTIV

166020
166022
166012

1%:

sSYNC COUNT = 2

#340,aDPTS
R1,TIME

JXMIT DONE,

sRANDOM DATA

sRCV _INT ENB
:LOAD BUFFER

TSYNC ,aDPTB

2%:

;"ON'" STALL

TIME

;0.6 SEC MAX

#140,aDPTS

;TURN OFF

165772
165764

#BI1T1,aDPTS
RS ,RNUM

165734
165716

;s IDLE SYNC

RTS

INT ENB, STATUS ENB

INT ENB

;GENERATE ‘‘STALL'' TIME

R1,TIME
TIME

3%:

013270
013272
013276
013304
013306
013314

#2,SCNT
R2,TDATA
#100,aDPRS

RS ,RNUM
#BIT1,aDPTS

JFETCH RANDCN STALL TIME
;sCOUNT IDLE TIME
;TIME OUT?
;GENERATE "ON'' TIME + SYNC
;CLEAR IDLE

#100,aDPRS

;CLEAR RCV INT ENB

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

000026
005670
013342
001144

165712

SGEN:

MOvVB
DELAY
JSR
MOVB
RTS

#26,aSYNC

, 3000.
RS, RNUM

R1,TSYNC

JSET UP FILLER SYNC

;DELAY 10 CHAR

sRANDOM #

;LOAD SYNC

sRNUM, PSEUDO RANDOM NUMBER GENERATOR

013342
013350

013372

032737
001010
060201
005501
060102
005502
060302
005502
060203
005503
000205

040000

177570

RNUM:

1%:

BIT
BNE
ADD

ADC
ADD
ADC
ADD
AD(
ADD
ADC
RTS

#BIT14,SWR
1%

RZ.R1
R1

R1,R2

R2
R3.R2
R2

R2.R3

R3
RS

sTEST FOR_SCOPE LOOP

JEXIT iF SCOPE

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

15:40

PAGE 62

2934
Q;Z

sCLOCK,SUBRNUTINE TO RUN SOF TWARE CLOCK
sNUMBER OF CYCLES IS FETCHED CALL

2937
2938
2939
2940
2961
2942
2943
2944
2945
2946
2947
2948
2949

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

005037
032737
001412
052777
052737
062737
000402
005037
005037
067637
062716
052777
013705

2951
2952
2953
2954

013470
013472
013474
013502

005305
001376
042777
013705

2956
2957
2958
2959
2960
2961

013506
013510
013512
013516
013520
013522

005305
001376
005337
001357
000002
000030

2950

2955

2962

SEQ 0060

013470

013506

001102
000400

001134

002000
000400
000004

165614
001160
001102

001102
177776
000000
000002
000010
013522

000010
013522

.CLOCK: CLR
BIT
BEQ
BIS
BIS
ADD
BR
«RXCLK: CLR
CLR
ADD
ADD
1%:
BIS
MoV

001102
165554

DEL=.
165536

DEL=.

001102
-

FREQ:

TEMP?
#B1T8,SAVSR1
«RXCLK
#B1710,aDPRS
#BI1T8,LIMIT
#6,TEMPT
. +6
TEMP1
PS
a(SP;,TEMPT
#2,(SP,
#BIT3,aDPTS
FREQ,RS

sSET CLOCK HIGH
sSET UP DELAY COUNT

DEC
BNE
BIC
Mov

R5
DEL
#BIT3,aDPTS
FREQ,RS

;DECREMENT COUNT
sBRANCH IF NO TIMEOUT
sSET CLOCK LOW
sSET UP DELAY COUNT

PEC
BNE
DEC
BNE

RS
DEL
TEMP1
1%

sDEC COUNT
;BRANCH IF NO TIMEOU'T

RTI
30

sNORMAL 12.8 US DELAY

;PATCH FOR 50 FT CABEL

2963

2964

2976
2977
ZZgZB

013524
013532
013536
013542
013546
013554
013562
013570
013576

013600
013604
013612

012737
005077
005077
105077
012737
012777
012777
032737
001405

062705
052777
000205

000200
165502
165470
165476
000001
014536
014542
000400

177776

001144
165464
165462
003134

000010
002000

165420

004300
160342
015610
001172
015224
015076
¢
-

042777
042777
012737
013737
012777
(12777
012737
110237

013614
013622
013630
013636
013644
013652
013660
013666

2982
2983
2984
2985
2986
2987
2988
2989

o
o

2233(1)

165410
165410
001172
001170
165374
165372
001162

REE :

1%:

MOV
CLR
(LR
CLRB
MOv
MOV
MOv
BIT
BEQ

ADD
BIS
RTS

#200,PS
aDPTS
aDPRS
aSEXT
#1,TSYNC
#FRINT ,aDPRIV
#TV1E,aDPTIV
#BIT8,SAVSR1
1%

#10,R5
#B1T10,3DPRS
RS

; COMMON DATA AND IDLE SUBROUTINE

A2ND:

BIC
BIC
MOV
MOV
MOV
MOV
MCv

2967
2968
2969
2970
2971
2972
2973
2974
2975

JREE, SUBROUTINE TO REINITIALIZE DP11 FOR NEXT TEST

v e}

2965

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

#4300,3DPRS
#160342,aDP (S
#BOTTOM,RP
RF,TP
#RRRR ,aDPRIV
#RRRT ,aDPTIV
#2 ,SCNT
R2,DATA

;SET PRIORITY TO 4
;CLEAR XMIT STATUS
:CLEAR RCV STATUS
;CLEAR SYNC EXTENTION
JINIT TEST SYNC
sSET UP RVI INT VECTOR
sSET XMIT INT VECTOk TO SYNC
;TEST FOR 8/12 BITS/CHAR
SEXIT IF 8 BITS

sSET RETURN ADRS FOR 12 BIT LIMIT
;SET 12 BIT/CHAR MODE
;RETURN

sRCV INT ENB, RCV ACTIVE
:INT ENBS IDLE SYNC, ERRORS
;RP = BOTTOM OF TUMBLE TABLE
;SET UP _TRANSMIT POINTER
sRCV_INT VECTOR
JXMIT INT VECTCR
sSYNC COUNT = 2
sRANDOM DATA

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

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

013777
052777
052777
010137
104402

SOBJAN-79

15:40

000
000
001

PAGE 63

1%:

000001
005337
001373
042777

2$:
001166

013342

SEQ 0061
MOV
BIS
BIS
MOV
?XCLK

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

;LOAD BUFFER
sRCV_INT ENB
JXMIT INT ENB
;"ON'" STALL

DEC
BNE
BIC
BIS
JSR
MOV

TIME
1%
#140,3DPTS
#BI1T1,aDPTS
R5 ,RNUM
R1,TIME

;0.6 SEC AVERAGE

DEC
BNE
JSR

?XCLK

RTS

TIME

RS .RNUM

:TURN OFF

. IDLE SYNC

INT ENB

;GENERATE ‘'STALL'' TIME

;COUNT IDLE TIME
;TIME OUT?
;GENERATE "ON'' TIME + SYNC

;POWER FAIL ROUTINE

013776
014004

014006
014010
014014
014022
014024
014026
014032
014032
014036
014042
014046

012737
000000
000005
012706
012737
104407

014006
001050
013776

017074
000177

165026

011637

001174

105077
005037

165202

001154
001152
165154

16515?

000024

.PFAIL: MOV
PWRUP:

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

000024

SEQ.DATA:
MOV
CLRB
CLR
CLR
CLR
CLR
BIS
MOV

(SP) ,BACK
ASEXT
RDATA
TDATA

aDPRS
aDPTS

#B1T0,aDPRS

000100

SREINIT STACK POINTER

:LOAD PFAIL VECTOR FOR POWER DOWN

1%:

BR
MOV

2%:

MOV

sCLEAR SYNC EXTENTION
;RECEIVER DATA
s TRANSMITTER DATA
sRECEIVER STATUS

s TRANSMITTER STATUS

: STRIP SYNC

#400, CHLEN

1glré SAVSR1

:CHAR LENGTH INDEX
TEST 12 BIT CHAR MODE

#10000,LIMIT

SELECT END OF DATA

#4626, TSYNC
aSEXT

:SYNC FOR 12 BIT CHAR
sPLACE MSB OF SYNC IN SYNC EXT

#B81T710,aDPRS

SWAIT TTY TO COME UP

@RETURN

BIT

113777
052777

;LOAD PFAIL VECTOR FOR POWER UP

#6400, LIMIT
#26, TSYNC
#TV18,aDPT1V
#RV18,aDPRIV
#200,PS
#4
., SCNT
TSYNC,aSYNC
#BI1T6,aDPRS

sSELECT 12 BITS/CHARACTER

: TEMPORARY CHARACTER LIMIT
sINIT SYNC STORAGE

s TRANSMITTER VECTOR

sRECEIVER VECTOR
;PRIORITY=4
sSYNC COUNT=4
sLOAD SYNC
sRCV INT ENB

(ZDP
MACY11_30A(1052)
32‘JAN-79
CZDPAC.P11
30-JAN-79 15:40

014216
014224
014226
014234
014236
014244
014252

032737

001004
052777
000403
052777

032737
001017
022737
001010
052777
042777
000771
000000

15:40

000001

001134

000340

165004

000301

164774

000001

001134

000001

013522

€20010
000010

164746
164740

104402

014324
014326
014330
014332
014340
014344
014350
014352
014356

000001
000775
005237
001375
005337
001372

001102

.+10
#301,aDPTS

#BITO,SAVSR1
5%

#1,FREQ

3%:

001104

104000

6%:

017637
062716
011637
022626
005037
162737

177776
001106

000000
062737

001106

000000
000002
001110

001106

BIS

#BIT3,3DPTS
#BIT3,aDPTS

5%:

000207

SEQ 0062
#BIT0,SAVSR1
.+12
#340,3DPTS

RXCLK

INC
BNE
DEC
BNE
HLT
RTS

.DELAY: MOV
ADD
MOV
POP. SP
CLR
SuB
LESS.TIME:

000

ADD

. TIME :
MORE

014370

014372
014400
014402

PAGE 64

164502

001106

SUB
BNE
JMP

:TRANS INT ENB
: TRANS DONE

;TEST FOR HIGH SPEED
¢BRANCH IF NOT HIGH SPEED
sSET CLOCK HIGH
sSET CLOCK LOW

sRUN SLOW CLOCK
4%
TEMP1

5%
TEMP2
5%

a(SP) ,TEMP3

#2,(SP)
(SP)
, TEMP4

sSET UP COUNT

(PC)+,TEMP3
(PC)+,TEMP3

000

000001

;STATUS INT ENB

#1,TEMP3
DEL
aTEMPS

sFOR A SMALLER DELAY TIME
;PUT A NUMBER IN HERE TO BE
s SUBTRACTED FROM TOTAL.
;FOR A LONGER DELAY TIME

;PUT A NUMBER IN HERE
:TO THE TOTAL TIME.

:TIME OuT
.

TO BE ADDED

CZDP
MACY11 30A(1052)
30-JAN-79
CZDPAC.P1
30=JAN=79 5:40

15:40

PAGE oS

SEQ 0063

3087

:INTERRUPT SERVICE ROUTINES
:THESE ROUTINES MAY FUNCTION AS:

: 1.
2.
; 3.

014406
014414
014416

032777
001001

020000

014420
014426
014434

042777
032777
001401
104000

020000
020000

014440
014446
014450
014452
074454

032777
001401

140200

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

104005

014536
014540

104006
000002

014542
014550

013777

014436

VONO
NS WN=O

—
—

—d

d
d

D e
- d

D d e
D cd c—d

WWWWWWWWWW

3109

R=OVRYENRIR
LS

WWWWWIWWWWWWWWW

3120

164624

104000

:VERIFY THAT INTERRUPT RESULTED FROM RING.
tves4:
BIT
#BIT13,aDPTS
;TEST FOR RING
SNE
1%
*BRANCH IF SET.
HLT

164612
164604

1%:

164572

3%:

011754
100000

2%:

164552

BEQ

gé;

#BI1T13,aDPTS

2140200,30PTS

HLT

POP.SP
JMP

BIT
BNE
HLT

1%:

104000

113777

#BI1T13,aDPTS

BIC

2%:

sNO OTHER STATUS FLAG ON?

RCD1

#BIT15,aDPTS
1%

#BIT15,aDPTS

#BIT15,aDPTS
2%

gég

ggbOZOO.SDPTS

HLT

3%:

164472
164466

;BRANCH IF CLEAR.

JREPORT ERROR

;REPORT ERROR

BIT
BEQ
HLT

001144
001145

;CLEAR RING FLAG.

STEST IV

:VERIFY THAT INTERRUPT RESULTED FROM °'CARRIER vOWN®' FLAG

Tve5:

104000

100000
100000

*REPORT ERROR

BIC

BIT

HLT

104000

022626
000137

ERROR TRAPS FOR FALSE INTERRUFTS
POINTERS BACK TO THE MAIN LINE FOR VALID INTERRUPTS §
FUNCTIONAL TEST WHICH ARE INTERRUPT DRIVEN

;TEST FOR 'CARRIER DOWN®'
JBRANCH IF SET

FLAG

;REPORT ERROR

sCLEAR

'CARRIER DOWN'

$TEST 11
;BRANCH IF CLEAR.

FLAG.

;REPORT ERROR

;NO OTHER FLAGS ON?
;REPORT ERROR

MOV

BACK, (SP)

FTINT:

HLT
RTI

;ERROR ROUTINE SHOULD RETURN TO MAINL INE

FRINT:

HLT
RTI

;ERROR ROUTINE SHOULD RETURN TO MAINL INE

Tv18:

MOV

TSYNC,aDPTB

RTI

MOvVB

TSYNC+1,@SEXT

JXMIT SYNC

;LOAD SYNC EXT

(0P
MACY11 30AC1052) 30-JAN-79
CZDPAC.P11
30=JAN=79
15:40

3143
3144
3145
3146
3147
3148
3149
3150
3151
3152

014556
014562
014564
014572

005337
001003
012777
000002

15:40

PAGE 66
SEQ 0064

001162
014574

164460

18:

DEC
BNE
MOV
RTI

SCNT
1%

#TV19,3DPTIV

:zsvs 2 SYNC'S BEEN XMITED

*YES CHANGE VECTOR

sSEQUENTIAL DATA TRANSMITTION ROUTINE
014574
014602

032777
001401

140000

014606
014612
014614
014616
014624
014630
014636
014640
014646

105777
100401
104000
013777
005237
023737
001003
042777
000002

164426

3153 014604 104000

3154
2155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169

014650
014654
014656
014660

105777
100401
104000
013700

3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

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

023777
001404
017737
104001
042777
005237
023737
001047
005037
005037
006237
012777
012737
052777
042777
032737
001
052777

164436

Tvi9:

BIT
BEQ

#140000,aDPTS
.+

TSTB
BMI
HLT
MOV
INC
P
BNE
BIC
RTI

aDPTS

HLT

001152
001152
001160

164416
001152

000140

164372

18:

;ANY STATUS ERRORS
:NO

sREPORT ERROR
:;EQNSMITTER READY
sREPORT ERROR

TDATA,aDPTB
TDATA

:LOAD BUFFER

]

:NO

L%MIT.TDATA

sNEXT CHARACTER
sHAVE ALL CHARACTERS

#140,8DPTS

;YES, CLEAR INTERRUPTS

JRECEIVE SEQUENTIAL DATA

3170 014664 017701

164356

RV18:

001154

164344

001154

164336

164330
|
000001
001154
001160

001136
164314

MOV
cMP

18:

001154

001154
001152
001160
014542
000004
000001
004000
000001

164276
001162
164242
164234
001134

000340

164224

052777
053777
062737
022737
001401

000301
001156
000400
001400

164214
164200
001156
001156

005077
005077
005037

164162
164150
177776

TSTB
BMI
HLT
MOV

2s:
38:
4$:

BEQ
MOV
HLT
BIC
INC
P
BNE
CLR
CLR
ASR
MOV
MOV
BIS
BIC
BIT
BNE
BIS
BR
BIS
BIS
ADD
CMP
BEQ
RTI
CLR

CLR
CLR

aDPRS

RDATA,RO
aDPRB,R1

:5Egevxen DONE 2?

*REPORT ERROR

?2ATA.GDPRB

s CORRECT DATA

?DPRB. TMPDAT

;STORE DATA

#BI1T0,aDPRS

:CLEAR STRIP SYNC

RDATA
LIMIT ,RDATA

:REPORT ERROR

*NEXT CHARACTER

RDATA
TDATA

LIMIT
#TV18,aDPTIV
#4,SCNT

;DECREASE LIMIT TO 7 BITS
sSET UP SYNC TRANSMITTION
sSYNC COUNT =4

#81T11,aDPRS
08%70,SAVSR1

;CLEAR RCV ACTIVE

#8170,aDPRS

#340,aDPTS
+10
#301,aDPTS
CHLEN, aDPRS
#400, CHLEN

01406 CHLEN
aDPTS
aDPRS

:STRIP SYNC

;INT ENB + DONE
; CHANGE CHAR LENGTH
:DECREASE CHAR LENGTH
:vggf ALL LENGTHS BEEN TESTED
:NO

sCLR TRANSMITTER STATUS
:CLR TECEIVER STATUS

CZDP

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

CIDPAC.P11

3199 015066 012706
3200 015072 000177

3201

15:40

PAGE 67

001050
164076

MOV
JMP

3204

;SYNC ROUTINE FOR RANDOM DATA TEST

3206
3207

015076
015076

105777

3209

015104

104000

2211

015114

3208 015102

100401

005337

001162

3212 015120 001006
3213 015122 012777 015140
015130

015136
015136

042777

160000

gggg
015140
015140

105777

3224

015146

104000

015144

013342
001152

3228 015166 013777
3229 015174 013704
3230 015200 013724
3231 015206 020427
3232 015210 001002
3233 015212 012704
3234 015216 010437

001152
001170
001152
015620

3235
%9

015222

000002

3238

015224

011637

001110

3264

015254

001406

3246
3247
3248

015264
015066
015270

001401
104002
005742

015160

043737

001156

001154

3245

023737

001154

022702
001002
012702
010237

015620

3249
3250
3251
3252
3253
3254

015256

015272
015276
015300
015306
015310
015316

MOV
DEC

BNE
MOV

164102

1$:

042777
000002

164000
001172
001154

015610
001172
000001

* %7

qu’ e

BIC

aDPTS

:READY

. +4

SYES

TSYNC,aDPTB

*TRANSMIT SYNC

SCNT

1s
#RRT1,@DPTIV

#160000,aDPTS

*REPORT ERROR

22 SYNC'S

:NO
:YES,SET UP DATA TRANSMIT VECTOR
:CLEAR ERROR BITS

RTI

;RRRT, RANDOM DATA,

SYNC, RANDOM STALL

TRANSMITTER SERVICE ROUTINE

RRT1:

TSTB

BM]

HLT

001152

1$:

aDPTS

; TRANSMITTER READY

“YES

JSR
MOV

RS, RNUM
R1.TDATA

MOV
MOV
MOV
cMP
BNE
MOV
MOV

TDATA.aDPTB
TP.R4
TDATA, (R&4) +
R4 ,ATOP
1%
#BOTTOM,
R4
R4, TP

BIC

164046

015610
001170

3239 015230 017737
3240 015236 013702
3241 015242 013701
3242 015246 011200
3243 015250 023722

ISTB

8M]

HLT

164122

.
164074

(004537
010137

3227

015150
015156

100401

164126

3221
323‘%

3225
3226

000002

3218

L (GBRTEE
TR
O Sag

164136

2210 015106 013777 001144

3215
g}g

#STACK,
SP
ABACK

;SYNC RNUTINE FOR RANDOM DATA TEST

3202
3203

2214

SEQ 0065

CHLEN, TDATA

*REPORT ERROR

*GENERATE NEXT CHARACTER
;REDUCE DATA TO # BITS/CHAR

STRANSMIT CHARACTER
*SET UP TRANSMITTER POINTER
*MOV CHARACTER TO TUMBLE TABLE
*END OF TUMBILE TABLE
:SAVE TRANSMITTER POINTER

RTI
;RRRR, RANDOM DATA, RANDOM SYNC, RANDOM STALL. RECEIVER SERVICE

001154

RRRR:

1%:
28:

(SP)
, TEMP4

aDPRB,RDATA
RP,R2
RDATA,R1
(R2) ,RO
RDATA, (R2)+

;1S DATA CORRECT

CMP

RDATA, TSYNC

*IF NOT DATA IS IT SYNC

CMP
BNE
MOV
MOV

#TOP,R2
2%
#BOTTOM,R2
R2.RP

BEQ

001144

163714

MOV

MOV
MOV
MOV
MOV
CMP
BEQ
HLT
ST

BIC
RTI

2
-(R2)

#81T0,aDPRS

;SAVE RECEIVED DATA
*SET UP RECEIVER POINTER
“YES

SYES
*REPORT ERROR
*ADJUST TUMBLE TABLE

rop OF TUMBLE TABLE
ves RAP AROUND
*SAVE RECEIVER POINTER
*CLEAR STRIP SYNC
:
‘

.
\

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

15:40

3255
3256
3257
3258

33%2(9)

015320
015320
015326
015332
015334
015342

013777
005337
001003
012777
000002

3268
3269
3270
3271
3272
3273
3274
3275
3276
;g;g

015344
015352
015354
015356
015364
015370
015376
015400
015402
015406

032777
001401
104000
013777
005237
023737
001401
000002
005077
000002

001144
001162

163714

015344

163710

160000

163666

001152
001152
001152

163656

1$:
2%:

163632

3%:

MOV
DEC
BNE
MOV
RTI

TSYNC,aDPTB
SCNT
1%
#2%,aDPTIV

sXMIT SYNC CHARACTER
sDEC SYNC COUNT
sBRANCH IF LESS THAN 2 SYNCS
sSET VECTOR TO TRANSMIT DATA
JRETURN TO MAINLINE

BIT
BEQ
HLT
MoV
INC
CMF
BEQ
RTI
CLR
RTI

#160000,aDPTS
.+

;ANY ERRORS
sNO
sREPORT ERROR
:TRANSMIT DATA
s INC TRANSMIT DATA
;1S UPPER LIMIT REACHED
JYES, EXIT
sNO, RETURN TO MAINL INE
;CLEAR STATUS REGISTER

TDATA ,aDPTB
TDATA
TDATA,LIMIT
3%
aDPTS

;RECEIVER SERVICE ROUTINE FOR PARITY TEST

gsg}

000000

3283
3284
3285
3286
3287
3288
3285
3290
3291
3292
3293

015410
015416
015424
015430
015434
015442
015444
015446
015454

017727
017737
013700
013701
023737
001401
104001
032737
001401

015456

104000

3297
3298
3299
3300
3301

015460
015464
015470
015476
015500

005237
005037
012737
000241
006137

015504
(C15506
015512
015516

103002
005137
005337
001370

HERE=0
163616
163612
001154
001136
001136

001154

010000

015414

000000
001136

RPRTY:

RPRT1:

MOV
MOV
MOV
MOV
CMP
BEQ
HLT
BIT
BEQ

aDPRS , #HERE
aDPRB, TMPDAT
RDATA,RO
TMPDAT ,R1
TMPDAT ,RDATA
.+
1
#BIT12 ,RPRTY+4
.+

HLT

001154
001104
000020

001106

001154

RPRT2:

001104
001106

RPRT3:

3307
3308

3309
3310

TPRTY:

001160

%?2;3

3302
3303
3304
33382

SEQ 0066

s TRANSMITTER SERVICE ROUTINES FOR PARITY TEST

3261
3262
3263
3264
3265
32326667

3294
3295
3296

PAGE 68

INC
CLR
MOV
CLC
ROL

BCC
cOM
DEC
BNE

RDATA
TEMP2
#16.,TEMP3
RDATA
RPRT3
TEMP2
TEMP3
RPRTZ2

;SAVE RCV STATUS HERE
;SAVE RCV DATA
sCHECK FOR CORRECT DATA
:BRANCH IF DATA OK
;REPORT ERROR
TEST PARITY
;(RPRT1)=BEQ .+4 FOR EVEN PARITY
:(RPRT1)=BNE .+4 FOR ODD PARITY
sREPORT ERROR

;EXAMIN #HERE FOR STATUS
:
TMPDAT FOR DATA
:
RPRT1 FOR ODD/EVEN

:INC TO NEXT EXPECTED DATA
:PARITY FLAG
:SET ROTATE COUNT TO 16.
:CLEAR CARRY
;ROTATE DATA

;BRANCH IF BIT IS A ‘90"
;SET FLAG TO A *"1'* FOR ODD PARITY
;DEC ROTATE COUNT
;BRANCH IF 16 BIT WORD NOT CHECKED

;IF FLAG=1 EXPECTED DATA SHOULD CAUSE ODD PARITY
:BIT 12="11""
015520

006137

001154

ROL

RDATA

sRESTORE EXPECTED DATA

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

015524

15:40

005737

001104

052737
000403

000400

015454

000400
000001
001160

015454
163454
001154

100404

163436
000040
000002

PAGE 69

SEQ 0067
TST

177776

RPRT4:

RPRTS:

RPRT6:

TEMP2

B8MI
8IS
BR

RPRT4
#BIT8,RPRT1
RPRTS

BIC
CMP
BEQ

#8170,aDPRS
LIMIT,RDATA
RPRT6

BIC

#81T8,RPRT1

RTI
CLR

aDPRS

ag?

#2,(SP)

BIC

#BITS,PS

BOTTOM: 8

015620

TOP:

;TEST FOR NEXT PARITY

;BRANCH FOR ODD PARITY
;EVEN PARITY=BEC .
:

*0DD PARITY=BNE .+4

*CLEAR SYNC STRIP
*END OF DATA
JYES

:NO
;CLEAR STATUS

;LOWER PRIORITY

+BOTTOM OF TUMBLE TABLE

0
0

11~rennupr 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

SRVS:

163404
001144
163372
001144

ERROR TRAPS FOR FALSE INTERRUPTS
POINTERS BACK TO THE MAIN LINE FOR VALID INTERRUPTS
FUNCTIONAL TEST WHICH ARE INTERRUPT DRIVEN

T1STB

8M]

HLT

163364

MOV
MOV

CMPB
BEQ
HLT

POP.SP

000040
163302

177776

POP.SP

BIC

JMP

aDPRS
.44

TSYNC,RO
aDPRB,R1

;RCV DONE
;REPORT ERROR

TSYNC,aDPRB
. +4
1

CORRECT SYNC CHARACTER
;YES
:REPORT ERROR
sADJUST STACK

#B1T5,PS

;LOWER PRIORITY

aBA(K

:ADJUST STACK FOR CLOCK SUB

: JMP
:BACK TO MAINLINE

CZDP
MACY11_30A(1052)
30=JAN=79
(ZDPAC.P1
30=JAN-79 15:40

3355
3356
3357
3358
3359
3360
3361
3362
3363

15:40

PAGE 70

SEG 0068

;SCOPE LOOP AND INTERATION HANDLER
015672
015700
015702
015704
015710
015712
015716

032737
001407
000432
105777
100027
017700
000412

040000

177570

163140

#BIT14,SWR

BEQ
TSTB

163134

004000

177570

001070
001070

001066

001200
001070
000012
001062
001060

BIT

1%:

CMP

2%:

001066
001060

BPL
MOV
BR
BIT
BNE
INC
BNE

3%:

CLRB
CLR
MOV
MOV
MOV

BRW:
BRX:

432

aTKCSR

3%
aTkDBR,RO
2%
#SW11,SWR
2%
LPCNT
LPCNT, ICOUNT
3%
ERRFLG
LPCNT
#10.
, ICOUNT
NEXT ,RETURN
RETURN, (SP)

;END OF PASS

;TYPE "END OF PASS CSR:

sUPDATE PASS COUNT
sUPDATE LINE NUMBER
:IF IN CYCLE MODE

XXXXXX''

;sRESTART TEST

001100
001200
001074

.EOP:

CLR
CLR
INC

LSTERR
ERRFLG
PASCNT

MEPASS
CNVRT
XCSR
TSTB

SAVSR1

TYPE

B8MI

177570

001060

001336
001326
002

INC
MOV
RESTRT: MOV
MOV
TSTB
BPL
JMF
{MP
XCSR:

BYTE

DPRS

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

XL INEX
PASCNT I IGHTS
#PART
1 ,RE TURN
#STACK,SP
SAVSR1
.+6
PART1
BGNO

;DISPLAY PASS COUNT

6,2

sCHECK FOR FREEZE ON CURRENT DATA
104
112

032737
001402

001000

177570

.SCOP1: BIT
BEQ

#SW09, SWR
1%

016114
016120

013716
000002

15:40

001064

PAGE 71

1%:

SEQ 0069
MOv
RTI

LOCK, (SP)

sTELETYPE OUTPUT ROUT INE

016122
016126
016132
016140
016142
016144
016146
016152
016154

016160

017605
062716
032737

000000
000002
010000

.TYPE:

177570

Mov

ADD
31T
BNE

TSTB

105777

162702

112577

162676

2%:

BEQ

3%:

a(SP) ,R5

#2,(SP)

gmz.sm
(R5)

TSTB
8PL

aTPCSR
2$

MOvVB

016162

RTI

(R5)+,aTPDBR

;ERROR HANDLER

N
o8
m
3

016164

032737

010000

105777

162654

112777

—

o
n
~
N

000207

032737

020000

021637

001109

011637

105037

KRR W
gRRRE Ry RERRRRERRRRRRRR r
FoF
oP o
W)
= SVEIRRRUR WEEEN &0 RENDSoxIarran= o

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

162705

177570

162646
177570

LHLT:

#SW12, SWR
XBX

MOVB

#207,aTPDBR

TSTB
BPL

XBX:

001100

001200

BIT
BEQ

1%:

000002

BIT

BNE
MP
BEQ
MOV
CLRB

SAV0S

MOV

105737

005737

ASL

(RS) ,Ré4

#177001,R4

MOV
MOV

(R4)
+ ,DATAHD
(R4) ,DATABP

TSTB

TST

TYPMSG:

(R5) R4

BIC

BEQ

016406

(SP) RS

ASL

ADD
MOV

001200

HALTS
(SP) ,LSTERR
1%
(SP) ,LSTERR
ERRFLG

#2 RS

MOV

177001
017352
016362
016374
016406

#SW15, SWR

SUB

ADD

042704
062704
012437
012437
011437

aTPCSR
XBX

BNE

MERRP(

# .ERRTAB,R4
(R4)+ ,ERRMSG
ERRFLG

TYPMSG

DATABP

TYPDAT

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

016342
016344
016346
016350
016352
016360

104413
016506
104407
017166
112737
104407

15:40

CNVRT

177777

016374

000000
005737
001402

01¢406

TYPE
MCRLF
MOVR
TYPE

001200

ERRMSG: 0

TST

BEQ

104407

TYPE

DATAHD: 0

104412

177570

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

TST
L

SWR
EXITER

MOV

2(SP) ,RO

HALT

000400

177570

002000

177570

001062
0r1050

001060

162354

EXITER:

POPRO

INC
BIT
BNE
BIT
BNE
BIT

BEQ
1%:

MOV
MCV
JMP

2%:
RTI
ERTABO: 1
BYTE

002

XTSTN:

00¢

JLINE:

002

TYPDAT

HALTS:

PUSHRO

001134

DATAHD

TST

000002
001076
000001

#-1,ERRFLG

TYPDAT:

BEQ
CONVRT
DATABP: 0
RESREG: RESOS

000000
104411

SEG 0070
ERTABQ

000000
005737
001402

005737

PAGE 72

SAVP(C
1

BYTE

TSTNO

BYTE

XL INEX

DATABP

RESREG

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

NEXT ,RETURN
#STACK,SP
aRE TURN

6,2
3.2
2,2

;CONVERT OCTAL NUMBER TO ASCII AND QUTPUT TO TELEPRINTER
016530
016532

—

016572
016576

—d

.CONVR:
WWILNNNONOND
N

IWNWWWWWWWW
ATV
AA.

NN
R
L@
- OV
NOWVES~W

3512

000000
017453
00000
016722
016724
016725
016726
016726
016724

001106

TYPE
MCRLF

.CNVRT: MOV

MOV

1%:

2%:

a(SP) ,R1

TEMP,TEMP3

ADD
MOV
MOVB
MOVB
MOV

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

mMOovB

CHRCNT RS

MOV

BINWRD ,R4

(Z0P
MACY11_30A(1052)
32°JAN-79
CZDPAC.P1T
30=JAN=79 15:40

3522
3523
3524
gsgz

016602
016606
016610
016614

012700
010403
04c703
062703

15:40

017454

PAGE 73

SEQ 0071
3%:

177770
000260

MOV

#TEMP RO

BIC

#177770,R3

MOV

ADD

#260,R3

ROR
CLC
ROR

R4
R4

ROR

MOVB
CLC

CLC

3535

016642

012703

017516

3537

016650

105337

016724

3539

016656

105737

016725

3541
3542

016664
016670

112723
105337

000240
016725

3545
3546
3547
3548
3549
3550

016700
016702
016704
016710
016712
016720

104407
017516
005337
(€01322
013737
000002

3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572

3573
3574
3575
3576
3577

016722
016724

016726

4%:

6%:

001106

RS
3%
#MDATA ,R3

BNE

BEQ
MOvVB
DECB
BNE
CLRB

6%
#240,(R3)+
SPACNT
5%
(R3)

MOVB
DECB

017454

000000
000000
016725

TYPE

MDATA
DEC
BNE

016722

R3,(R0)+

DEC
BNE
MOV

T1STB

5%:

R4 ,R3

MOV

RTI
WRDCNT: C

=(RO),(R3)+
CHRCNT

SPACNT

WRDCNI
1%
TEMP3, TEMP

CHRCNT: 0
SPACNT=CHRCNT+1
BINWRD: 0
JSAVE PC OF

016730

016637

000004

001132

.CAV0S: MOV

TEST

4 (SP) ,SAVPC(

;SAVE RO-RS
016736
016742
016746
016752
016756
016762
016766

010537
010437
010337
010237
017137
0037
000002

001126
001124
001122
001120
001116
001114

Sv0S:

MOV

RS,SAVRS

MOV
MoV

R4 ,SAVRS
R3,SAVR3

MGV
MOV

R1,SAVR1
R0, SAVRO

MOV
RT]

R2,SAVR?2

JRESTORE RO=RS
016770
016774
017009
017004
017010
017014

013700
013701
013702
013703
C13704
013705

001114
001116
001120
001122
001124
001126

.RESOS: MOV
MOV
MOV
MOV

SAVRC,RO
SAVR1,R?
SAVR2 ,RZ

MOV

SAVRS RS

MOV

THAT

SAVR3,R3
SAVRS R4

FAILED AND RO-RS

017020

000002
005015

058823

15:40

PAGE

SEQ@ 0072

OO—'—'N?O
NWON W
&~

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

MTITLE:

RTI

LASCIZ

<15><12>/(ZDPAC

DP11/4

SYNC

MPOWER
:

LASCIZ <15><12>/PWR FAILED/

:
MEPASS

LASCIZ <7T2<7><15><12>/END PASS (SR:

051503
062524
027117
04216

052123
000040
020072

MTSTN:

LASCIZ <15><12>/7TEST NO.

ML INE :

LASCIZ JLINE:

050012

035103

MERRPC(:

LASCIZ <15><12>/PC:

MCRLF
:

EM1:

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

EM2:

LASCIZ <15><12>/TRANSMITTER

042503
020040

EM3:

LASCIZ <15><12>/RECEIVER

041505
051040
042526

DHO:

LASCIZ /EXPECTED

042514
044440
050125

DH1:

JAS(CIZ /FAILED TO INTERUPT,

052522
052440
041505
027131

DH2:

LASCIZ /INTERUPTED UNEXPECTEDLY./

000
042412
042705

020115
051124
052111
000040
042522
051105
3610

OO NV

EESEEESE

3611

3625

050130
020104
044505
000
044501
047524

052116
043040
000040
047101
042524

.EVEN
.EKRTAB:

0
0
0

MCRLF

DHQ
DTO

EM1
DHO

JHALT

JHALT 2

RECEIVED /

MUDEM

[NTERFACE

DIAG/

(ZopP

MACY11_30A(1052)

CZDPAC.P1

30=JAN-79

30=JAN=79 15:40

15:40

PAGE

SEQ 0073

017372

017436

3626
3637
3638

017374
01737¢
017400

017212
017273
000000

EmM2
DH1

3640
36641
3642

017402
017406
017406

(017232
017273
000000

EM3

3644
3645
3646
3647
3648
3649
ggg?

017470
017412
017414

017212
017320
000000

EM2
DH!

JHALT §

017416
017420
017422

017232
017320
000000

EM3
DH2

SJHALT 6

3652
3653
3654
3655
3626

017424
017426
017430
017432
017434

000002
006
001114
006
001116

3658
%659
3660
3661
3662
3663

017436
017440
01744z
017444
017446
017450

000003
006
001110
006
001114
006

3666
3667
3668
2669
3670

017452

001116

017454

000000
017516
000000
017560
000001

017516

DH1
0

004

pPTO:
SAVRO

002

010

004
002

DT1:

JHALT 2

SJHALT 4

6.4

BYTE
SAVR1

6.2

BYTE

6.8.

BYTE
SAVRO

6.4

TEMP4

SAVR1

6.2

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

013112

2034

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

2041

AZND
BACK

013614
001174

2434
9708

2442
1991+

BECINZ
BGNO
BGNOA
BINWRD
BITS

007234
001326
007276
016726
013106

BITST

012542

21624
10474
21734
3520
2807
2847

BITO

= 000001

975
1043
167
3519«
2806+
2845
1094
1143

SASCSR
BASVEC
BEGIN1

001260
001256
001262

BI71
= 000002
BIT10 = 002000
BIT11

= 004CGO

8IT12 = 010000
BIT13 = 020000

BIT14 = 040000

BIT'S = 100000

BIT2

= 000004

BIT3
8I1T4
BITS

= 000010
= 000020
= 000040

BIT6

= 000100

BIT7
BIT8

= 000200
= 000400

BIT9

= 001000

BOTTOM
BPC
BRW
BRX
CABLE
CHLEN
CHRCNT
CLEAR =

015610
001142
015776
016000
001150
001156
016724
104404

10334
1032#
971

2737
2760
10374

gg?g

1096
1145
1095
%258

619%
6104
2494
609

1097
1109
2524
1781

6204

2247
2441
6084
607#

2050

2450
2064

2878#

29824
2230%

n
2293«

35544
2808
2850
1098
1147

2810
28%1
1100
1149

2634

1135
1321
2536
1804

2742

2354%

2632+«

3023«

3127

3200

3352

2813
2857«
1102
28054

2814
2859
1104

2816
2860
1106

2819
2869
1108

2820
2870
1131

2822
28734
1134

2828

2842+

2844

1137

1139

1141

2661

2689

2696

3029

3046

1488

2175

2196

2593

2595

2607

1329
1391
2567
1808

1340
1441
2940
1809

1379
1445
2977
1855

1489
1447
3034
1866

1927
1966

1957
1968

2154
2001

2896
2080

2902
2105

2999
2483

1880

1953

1954

2040

2048

<130

3401

1132

1307

2252
2449
1180
1146

2257
2598
1476
1350

2264
2612
2486
1449

2329

2392

2920

3357

6184

1073

1075

606#

3?93#
1440

617#
6164
5154
2122
6144
1803
6134
612#

2292
6114
2491

1150

%}?g
1444

1138
1492
1140
2i32
1101
1862
1103
1105

2440
1107
2521

CLOCK = 104401

2883
9574
33754
33764
960#
9634
3517«
996#
1442
9904

1038+«
1997«
3521
1376
1448
2209

CLRVEC
012514
CNVRT = 104413
CONVRT= 104412

1008

3479

2386
1044
10104

2984
1771«

2472
1047
3390

SEQ 0074

1352

1354

1474

1338

1377

1419

3053

3175

3184

3186

2309
3185
2497
1513

2374

2319

2326

2358

2372

2377

2527
1514

2539
1544

2559
1548

2570
2601

3290
3098

3102
1882

2126

2266

1453

1482

1517

1518

1560

1564

2615

2618

2637

3114

10799

1133

177

1209

1225

1251

1311

1381

1408

1451

1490

1479

1602

1515

1136

1631

1516

1660

1552

1772

1556

1814

2382

3253

3103

2390

1342

1435

1491

2948

2953

3057

3058

1798

1919

2107

2831

283¢

1344
2476
1142
18381
1144
1317

1437
2517
1313
1928
1315
1387

1475
2552
1346
2012
1348
1635

1478
2626
1383
2238
1385
1723

1481
3321
1439
2265
1443
1837

1543
3351
1487
2301
158!
1964

1551

1559

1813

1879

1958

1607
2357

1637
2363

1666
3045

178S

2039

2046

2077

2103

2367

2448

2480

2447
1319
2533
3233
1820

1049
2031~
3537«
1378
1450
2234

2478
2168
3458

2516
1389
2551

3251
1822«

2163
2038+
35524
1380
1452
2245

2489
2173
3462

2938
1414
2556

3324m
1823

2194
2045+
3553
1382
2250

2519
27874
2456

2941
1664
2564

2974
2047

3031
2242

1494
2327
2109
1958
3313
2204

1846

1891

1892+

1892

1894

2428+

2439+

2446+

3030+

3191

3192«

3193

3227

1384

1386

1388

1390

1418

1434

1436

1438

2261

2297

2307

2312

2323

2360

237G

2375

2531

2554

2562

3315
2353

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

016406
076374
014372
104403

DHO
DH1
DH2
DPRB
DPRIV

017247
017273
017320
001234
001246

DPRP
DPRS

001250
001232

3651+
3450
29504
994
2594
36094
36134
36178
10204
10284

2260%

10294
10194
1229

1635«

1804

1919
2046
2247

2390%
2665«
3034%
DPTB
DPTIV
DPTP
DPTS

001242
001252
001254
001240

3404
1023#

EM3
ERRCNT
ERRFLG
ERRMSG
ERTABO
IEXITER
FREQ

017232
001076
003200
016362
076506
016432

013522

3477
34764

34804
30834
1775

1869

2690

1793
1069+

3170

3284

1070«
1067+
1251+«

1644+

1928+«
2047+
2257

2426+
2744
3045+
1585+

2108

2475«

2972+

3346
2083+
3041+

1093
13754

1178+
1446+
1781
1881+

1200+
1580+
1798+
1893+

2075+
2301*
2447%
2889+
31842

2107+
2353
€313

1673+
1841+
1954

1808+

1930

1923«

1774+

2294»

1922

2012«
2149+

2363+
2548+
3316+

1665+

1863+

2118+
3271+

2518«

2106*
3040«

2205«
3145+

2355+
3265+

2886+

1336«

1409«

1423+

1201+

1278
1477«
1493+
1552+
1638
1915=

1030#

1031#
1022#

2148+«
2367
2521

017424
017436
017171
017212

3454
3473
2952
1611
2608
3629
3637
3645

SEQ 00/5

2115«
3262«

1480
1514
1564
1666
1995«

DTO
DT
EM
EM2

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

2591«
2634%
2902+
3098
3196«
3630
3634
36004
36034
36064
9364
9774
3449«
3467
3483
2949

1068«

3157«

1541+

1071«
1066*

1481+«
1515«
1581«
1667
2013«

1663+

1487+
1518»
1603+
1779

2154«
2377
2524

2592
2637
2948+
3102«
3207
36524
3¢ S84
3632
3636
3€40
2717
3369«
34724
34994
3488#
2954

3118«
3276+

3439+

3055

3452

3470+

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

2123

2155

CZDP
MACY11_30A(1052) S30-JAN-79
CZDPAC.P11
30=-JAN=79

LIGHTS= 177570
LImMIT
001160
LINE.N
L INE
.X
LOCK
LOGICA=
LOKFLG
LPCNT
LSTERR

012234
012200
001064
012470
001201

MCRLF

MDATA
MEPASS
MERRPC
ML INE
MORE.T

MPOWER
MTITLE
MTSTN

017022
017134
001062

1069
1068

001336
007306
012022
001074
012600
022626

POP1SP= 005726
= 177776

PUSHRO= 010046
PUSH. S=
PUSH1S=

PWRUP
RCD

RCD1
RDATA
REE
REG

RESREG
IRESTRT
RESOS =

1512
151

34824
3283«
3367

3371+

5904= 3395«
964k
2000%

2005+

2435
32814
9328
_O75#

1774
1566

TABLE == USER SYMBOLS
1847

2205

2150
2474

SEQ 0076

2206
2514

2475
2592

2229+

2288+

1273+

2550

2972

31364

- 2291+

2332

2349+«

2352+

1303«
1725

1333«

1371+
1836+

1496+
1839

30784

2375

1045
108
9314

891

9784
9334

2941

2171
2174
1692«

3033+
27174
2729
3410

336An
3385+
3512
3546

3367
3436
35994
36684

2774M

9374
3469
3535
3389
3465
3461
3081#
3018

35864

3457

35934

1041

9304

1470+«
1840

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

1473
1472

2468«
1046
1051

35894
35974
35954

2068+ 2079+
3038«

3159

W
iy N

014536
014532
016412
HERE
= 000000
ICOUNT 0010¢6
INIFLG 001176
LESS.T
014362
FRINT
FTINT
HALTS

15:40 PAGE 79
CROSS REFERENCE

3181«

3317

2780

3370+
3438«
3628

35794

1064+

1128+
1579«

1509+«

1913+

1175~
1601«

1199+

1630+

1224
1659+

1250+
1691+

1722+

1765+

2063+
3372

2099+
3495

2147+

2193«

2224+

2285+

2347+

2408+

24624+

10454
2172

2030+
2660+
3400
2179

3387«
3487
1549

1878

1934

1959

213

2779

2511+

2546+

2510«

2177

2198

3075
SO74
5914

3110

1565

3350

1615

1646

1674

1812

1040+

1407+
1879+

1510+

2009~
3042+

1521«
2081+
3076+

2132+
3198+

2152+
3321+

1551+

2945+

1471
1958+
2967+

2165+
3351+

1559+
2469+

1563

1613

1643

1672

1792

1871

1932

2125

3025+
3301«
29674

3169
3310+

3171
3317

3176+

3177

3179+

3239+

3241

3243

3245

2827

2828

1417+

2807+
2846

2809
2847

2810
2850+

2813+
2859+«

2815
2865

2816
2866

2819+
2869+

9354
5994
6014

1661«

2590
5984
6004
5964
3012
26224
26314
9624
3285
2225
1093+
2821
28744
3478
33964
1006#

1769%

2625+
84
1547

1522

1542+

1605+

1634

30144

3111
1993«
3287
2286
1130+
2822

34814
3481

2069+
3297+
2348
1305+
2825+

1335+«

1373+

2844+

CZ0P

MACY11_30A(71J052)

30=JAN=79

RETURN

001060

RNUM
RP
RPRTY
RPRT1
RPRT2
RPRTS
RPRTZ
RPRTS
RPRT6
RRRR
RRRT
RRT1
RVI8
RXCLK =

013342
001172
015410
015454
015500
015512
015542
015550
015570
015224
015076
015140
014650
104402

9294
3396%

CZDPAC.P11

SAVPC
SAVRO
SAVR1T
SAVR2
SAVR3
SAVRG
SAVRS
SAVSP
SAVSR1

30~JAN-79 15:40

2897
96O#
2083
2067+
33014
3302
3312
3314,
3318
2885
2886
3213
2008
9924

001132
001114
001116
001120
001122
001124
001126
001130
001134

9534
946H
947#
9484
94K
9504
9514
9524
954#

2758
966N
1006#

SAVSR2 001164
SAVOS = 104410

SCNT
001162
SCOPE = 104400

15:40

PAGE 80

CROSS REFERENCE TABLE == USER SYMBOLS

1052+

1725«

1726

1839+

2177+

2178

2901
oBB3*
3283#
32914
3305
33044
33154
33160
33208
2986
2987
32214
3041
2240

2912
2884
3290
3313«

2920
0984*

3000
2985

3006
3240

3225
3252+

2302

2317

2365

3654
3656

3662
3664

3495+

3501
3567+
3566%
3565+
3564r
3563+
3562+
1723

2938
2723%
3440

3497

2179+

2198«

2199

2380

299

3002

3062

31664
2255

3558«
3572
3573
3574
3575
3576
3577
1837

3031
2756

1964

3046

1998

2077

2103

2175

2196

2661

2718+

2730«

2739

2232+
1151
1589

2296+
1185
1616

2356%
1210
1647

2887%
123
1675

2988+
1260
1710

3211+
1392

3263s
145

2410

3143+
1322
1825

3183«
1355

2397

3043+
1286
1743

451

2500

2542

2573

1766+
3036*

1844*
3142+

1851+

1925«

1992+

2003+

2392

2718

2719

2723

2724

2920

3053

3186

SCOP1 = 104406
SEQ.DA 014032
SEXT
001244

1000#
2409
10260

1706
2708
1728+

SGEN
013316
SLIM
001140
SPACNT= 016725

2101%

1735
3022#
1729%

2203+

1730
2237%

1732
2427%

1739*
2970%

1740
3024*

956#
3518«

1770+
3539

1817
3542%

1821
35534

1845x

1885

1890w

SRVS
015622
STACK = 001050
STAR
001306
START1
000200
STFLG
001177
SVOS
016736
SWR
= 177570
SW00
SW01
SW02
SW03
SW04
SW05
SW06
SW07

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200

.
.

2260
S92
10424
9104
9764
35624
S804
3357
5734
5724
5714
5704
5694
5
5674
5664

2135

2058

22M

2272

23%

2322
1039

2385
2164

33,14
3015

3199

3397

3496

1042

1814
3408

1882

2166

2266

2329

3364

3373

2974
2727
2074%
1110
1567

2071%
2910#

3372«

32384
32064

2010%
1078
1526

2088

3019

3315s

9654
988#
1495

051

SEQ 0077

3417

3429

3434

3482

3392

3491

3398

3493

3489

189%

1978

2018

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

SW08
Sw09
SWw10
SW11

= 000400
= 001000
= 002000
= 004000

SWw13
W14
Sw15
SYNC

= 020000
= 040000
= 100000
001236

Sw12

= 010000

5654
5644
5634
S562#

349N
3408
3493
3

604
S59#
5584
10214

3434

5614

1850«

N 6
15:40 PAGE 81
CROSS REFERENCE TABLE == USER SYMBOLS

3417

3429

1072«

1372«

1887+

1696+

2299+

2328+

1994+

2070+

2989+

3026+

3157

3158+

3159

36664
2942+
3298+

1447+
1794

1693«

1700
1872+

1701
1874

2359+

2362+

2391*

3180«

3226%

3227

2430+

3522
2706%
2707«

3549«
2937%
3067+«

001110

944k

2805+

2841+

2856+

9674
9224
9234
33784

2892%
3360
3362

2893+

2898«

1374x
1707+«
1933«

1410%
1727«
1937

1422«
1729
1938

TEMPS

TIME
TKCSR
TKDBR
TLAST =

TMPDAT

TOP
P
TPCSR
TPDBR
TPRTY
TRPOK
TSTNO

ST
TST10
TST11
TST12
TST13

TST14
TSTi5
TST16
TST17
TST2
7ST20
TST21
TST22
TST23
TST24

IST25
TST26
1ST27
TST3

001112

001166
001050
001052
012022

001136

015620
001170
001054
001056
015320
000070
001072

001356
002212

002272
002360
002456
002564
003050
003264
003422
001470
003614
003670
003774
004112
004224
004346
004502
005120
001576

9434

9454

9554
1703
1875
2866

3231
9684
9248
925#
2082
9034
9344
1469«

3072+«

2870%

1063«
1508+

1090+
1539+«

1371
1406
1470
1509
1064
1540
1579
1601
1630

14054
14694
15084
1539
10904
15784
16004
16294
16584

1691
1722
1765
1091

17214
17644
18354
11274

1659

3173%

33284
2985+«
3431
3433«

2062%
3504

1052
1250
1273
1303
1333

3077«

3249
2884+
3421
3423%
32614

2029*
2659+

10634
12724
13024
13324
13704

16904

1843+

2268+

3514
9618
9428

001106

1807+

2236+

017454
102
001104

TEMPS

1777

2201+

TEMP
TEMP1
TEMP2

TEMP3

1776+

2011+

001152

1777«

1709+

1924

TDATA

9614

SEQ 0078

2098

3228

3080

3549

1429
1732
1946
3287

3284+

2121

2133+

2860+

2864

1332+

1370+
1912+

1405+
1989+

3229

1127«
1578+

2146+

1174~
1600+

2192+

1198+
1629+

2223+

1223+
1658+

2284+

1249+
1690+

2346+

1272+
1721«
2407+

1302+

1764+

2423+

1835+

2467

2509+

2588+

CZDP

MACY11_30A(1052)

CZDPAC.P1
TST30

005534

TST31
TST32
TST33

006134
006346
006472

30-JAN-79

30=-JAN=79 15:40

1836

TST34
TST35
TST36
1ST37

006676
007136
007340
007470

2063
2099
2147
2193

TST40
TST41

007760
010256

2224
2285

22844
23464

001726

1128

010562
010604
010762

2347
2408
2424

TST46
TST47

011524
012022

2510
2589

25884
26594

TSTé

002066

1199

12234

TSYNC

001144

9584

1773«

011156

2468

TSTS
002006
TSTS0 = wawsnn

1175
2660

1ST7

1224

TTST

002140

V18
19
V24
V25
TYPDAT
TYPE
=
TYPMSG
VALID =

015700

014542
014574
014406
014460
016376
104407
016316
104405

WRDCNT
XBX
XCSR
YLINEX

016722
016210
016076
001146
XTAG
012312
XTSTN
016514
ILINE
016522
$E
= 000051

= 000047

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0079

11744

TST4
TST4
TST44

TST45

PAGE 82

19124

19894
20294
20624
20984
21464
21924
22234

TST4

1913
1990
2030

15:40

c4Q7#4
24234
467K

25094

11984
12494

3378

1776

1778

1784

1788

1795

1796

1852
1938
2153
2430
3344

1858
1945
2156*
2890
3346

1863
1947
2236
2913«

1873
1972«
2237
2971«

1875
1976*
2269+
2990

1884~
2002+«
2270
3035«

1885
2006+
2299
3039+«

1889+
2011
2331+
3044

2007
3145
2624
2631
3455
1002#
3453
998#
1345
3516
3430
3391
910+
2728
3459
3463
1#

2231
31514
30984
31144
3474
1041
34564
1306
1347
3547«
3432
34024
914~
27324
35024
35054
1064

2295

2355

2973

3040

31414

3182

34774
3017

3388

3456

3460

3464

1308
1349

1310
1351

1312
1353

1314

9594

2729

2733«

14714
1691

1509
16934

10654
1273
15104
1722

1091
12744

10924
1302
15414
1765

3358#

1250

12514

35514
3434n

1540
17234

1816+
1914
ggggt

1817

1924

1819+

1925

1842+

1926

1851

1936

3141

2033
2362
3142

2072«
2394«
3210

2073
2395
3245

3468

3471

3475

35N

3545

1316

1318

1320

1337

1339

1341

1343

2770%

339

3507

1128
13044

1129
1333
15804
1836

1175
13344
1601
18374

11764
1371
16024
1913

1199
13724
1630
19144

12004

1224

12254

1579
17664

1406

16314
1990

14074

1659
19914

2151+
2429+
3262

1470

16604
2030

20314
Sgg;‘

2063
2348%#

2064#
2408

2099
24098

21004
2424

2147
24258

21484
2468

2193
2469

21944
2510

2224
2514

22254
2589

2285
25904

22864
2660

1#
1243
14714
1684

1057
12514
1502
16934

10654
1266
1510#
1715

1084
12748
1533
17234

10924
1296
15418
1758

1121
13044
1572
17664

11294
1326
15804
1829

1168
13344
1594
18374

11764
1364
16024
1906

1192
1372¢
1623
19144

12004
1399
16314
1983

1217

1225#

16407%#
1652
19914

1463
16604
2023

20314

2056

20644

2092

21004

2140

21484

2186

2194

2217

22254

2278

22864

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

C00014

017560

2340
26614

23484
33784

624n
649
675

625
651
677

#
10104

701
727
753
779

805
831
857
8904

1029#
1426
1787
1951

2253
2484
2565
2699
3047
3291
997

.CLEAR
.CLOCK
. CNVRT

991
1011
1009
995

2401

2258
2487
2568
2740
3049
3342
28564

29374
35134
35114
30724

36694

883

30124

3016

. TYPE

.VALID

012722

34294

1007
993
1005
989

35724
2939
35584
33574

887
905
1003
999

9004
9874
34154
28414

1001

. TRPSR
. TRPTA

246

10304
1430
1801
1955

-PFAIL

. SCOPE

2461

807
833
859
8924

2663

.SCOP1

24254

703
729
755
781

2660
36244

. SAVO5

2417

9944

2200
3448

.RESO5
-RXCLK

24094

974
10124

.EOP
.ERRTA

885

15:40 PAGE 83
CROSS REFERENCE TABLE == USER SYMBOLS

34084

2944k

33854

1010

1057
1572

1084
1594

1121
1623

1168
1652

1192
1684

1217
1715

1243
1758

1296
1906

1326
1983

1364

=N \NANNO WY
WOV~
0o &
W00
OON WO

@ —=\V00O0OHN

n
no
&~

Vel

et v

WRNOIRINOA)
— —

1008

FSAIRREY

1006

NONIWNO
SN —

1004

WNNDNON)
— — —

1000

RO
R
wogmvfibmm

998

WOQO—'OS—'

996

WWNNONON) — — —

994

WRINONLN)
— —
= NN
= g\

OWNNONON—=
=0

WWNNINUAY
— — -

QO HW—=NYVW

WWNINON)
= — —

992

N—GO\J‘W&N
NO =N —=NYO"W

990

988

1
#

S34a

1%
1
1#

$MSG

$REG
$SCOPE
$5COP1
$SYMBO

bl 4
1#
1
14

$TRAPS
$TRPDE
$TRPSR

$TSTIN

WNNOROND
— = -

$EOP
$HEADE
SHLT

ngNN—o—-h

$SDELAY

2254
2488
2597
2830
2174

15:40 PAGE 85
CROSS REFERENCE TABLE == MACRO NAMES
N =N \VNiwWO
O
NOONINLN
& O 00

$CATCH
$CONVR

S3.u

6024
1610
1811

BITSR

HLT

KX
RNz~
o002
T®

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

1#
%
o4

STYPE
$VARIA

1533
2186
%
14

2217
3412

. ABS.

017560

000

ERRORS DETECTED:

2278

2340

2401

2417

2461

918

CZDPAC.BIN,CZDPAC.SEQ/CRF/SOL/NL
: TOC=CZDPAC.MCL ,CZDPAC.P11
RUN-TIME: 6 10 1 SECONDS

RUN-TIME RATIO:

CORE USED:

13k

60/18=3.2

(25 PAGES)

2503

2653

2023

1399

2056

1463
2092

1502

2140