Digital PDFs

AH-8589C-MC

October 1983

50 pages

Original

23MB

view download

OCR Version

29MB

view download

Document:	CZDPEC0 DUP11 CONFIDENCE TST OCT 1983 bw
Order Number:	AH-8589C-MC
Revision:	000
Pages:	50
Original Filename:	CZDPEC0__DUP11__CONFIDENCE_TST__AH-8589C-MC__OCT_1983_gray.pdf

OCR Text

5890."0

OCT

1983

COPYRIGHTO

veoe v usa

74-83

CZOPE

MACY11 30A(1052)

CZOPEC.P1

_20-JuUL-83

19-JuL-83 17:09

13:32

SEQ 1

PAGE 8

IDENTIFICATION

PRODUCT CODE:

AC-8588C-MC

PRODUCT NAME:

CZDPECO DUP11 CONFIDENCE TST

DATE:

JUNE 1983

MAINTAINER:

MK=DIAGNOSTICS

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 NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANIES.

COPYRIGHT (C) 1974, 1979, 1983 BY DIGITAL EQUIPMENT CORPORATION
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

MACY11 30A(1052) 20-JUL-83
CZOPE
CZDPEC.P1
19-JUL-83 1 7:09

1.0

13:32

SEQ 2

PAGE 9

ABSTRACT

THE FUNCTION OF THE PROGRAM IS TO PROVIDE A LEVEL OF
CONFIDENCE IN_ THE OPERATION OF THE DUP=11 WITHOUT CHANGING
JUMPERS OR SWITCHES FROM CUSTOMER CONFIGURATION.
THE OPTION IS TESTED IN SDLC MODE (BIT-STUFFING),

THEN IN

DEC

MODE USING A SIMULATED DDCMP-LINE PROTOCOL WITHW AN IMBEDDED
CRC CHARACTER. BOTH OF THESE MODES
CABLE IF A TURNAROUND IS POSSIBLE.

WILL

TESTED

THE MODEM CONTROL LEADS WILL ALSO BE TESTED.

OVER

IF THE H325 TURN-

AROUND CONNECTOR IS USED. _ THE DETERMINATION OF ~WHAT WILL BE
TESTED IS DONE BY ANSWERING A "PARAMETER DIALOG'' (LOAD ADDRESS
200, START ADDRESS O OR 1.) ALL_QUESTIONS MUST BE ANSWERED.
A TYPEOUT WILL EXPLAIN ~ THE
IF_ AN ERROR SHOULD OCCUR,

FUNCTIONAL AREA OF

THE DEVICE WHICH FAILED.

OPTION, THE DIAGNOSTICS WILL HAVE TO BE RUN.

TO REPAIR THE

ADDITIONALLY THE MODEM DATA LEADS MAY NOW BE TESTED IF A MODEM HAS THE ANALOG LOOPBACK FEATURE ENABLED.

CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS THAT ARE TO BE
RUN IN SEQUENCE TO ENSURE THAT IF AN ERROR SHOULD OCCUR IT
WILL BE DETECTED AT AN EARLY STAGE AND ESTABLISH THAT
ggaacggrs OF THE ERROR WILL BE IMMEDIATE TO DISCOVERING THE
NOTE:

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE THREE DIAGNOSTICS ARE:

1.1
1.2

CZ0PB CREV] BASIC AND OFFLINE TRANSMITTER TESTS.
CZDPC CREV] OFFLINE RECEIVER TESTS, MODEM CONTROL

1.3

CZ0PD CREV] OFFLINE SDLC DATA AND FUNCTION OFFLINE DECMODE
DATA AND FUNCTION TESTS
CZDPO CREV] DP11 OVERLAY FOR INTERPROCESSOR TEST PROGRAM

1.4
NOTE:

1.5

INTERRUPT TESTS

THE FOURTH TAPE IS:

CZDPE [REV] THIS CONFIDENCE TEST.
**NOTE**

CZDPE WILL ONLY TEST ONE DUP11 AT A TIME. IF TESTING
OF ANOTHER DUP11 IS DESIRED, RESTART AT 200 AND ENTER
NEW PARAMETERS.

AND

13:32

MACY11 30A(1052) 28;JUL-83
CZOPE
CZOPEC.P1
19-JuL-83 17

2.0

REQUIREMENTS

2.1

EQUIPMENT

SEQ 3

PAGE 10

2.1.1. ANY PDP11 FAMILY CPU (WITH MINIMUM &K MEMORY)
5.1.2. ASR 33 (OR EQUILIVALENT)
bl

2. 4

3355 TEST CONNECTOR

2. .5. MODEM WITH ANALOG LOOPBACK FEATURE

2.2

STORAGE

PROGRAM WILL USE ALL 4K OF MEMORY EXCEPT WHERE
AND
BOOTSTRAP
LOADER _ RESIDE. _ LOCATION 1500 THRU 1560 ARE
ESPECIALLY TO BE NOTED AND LEFT UNTOUCHED BY THE OPERATOR
AFTER THE DUP11 PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER
THE DEFAULT SETUP HAS BEEN DONE.

3.0

LOADING PROCEDURE

3.1

METHOD

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE
IF_THE DIAGNOSTICS ARE ON A MEDIA
NOTE:
ABSOLUTE LOADER.
SUCH AS DISK
MAGTAPE,
~DECTAPE,
OR _ CASSETTE
FOLLOW

gggz?gleggglAFOR THE MONITOR WHICH MAS BEEN PROVIDED ON THAT

ABSOLUTE LOADER STARTING ADDRESS = ++500
MEMORY

SIZE

4K
8K
12K
16K
20K
24K
28K

17
37
57
77
117
137
157

()=

3.1.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.

3.1.2

DEPRESS °'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

3.1.3

DEPRESS °'START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW

'HALT' SW UP)

BE LOADING INTO CPU)

(ALSO PLACE

CZOPE

CZDPEC.P1

19-JuUL-83 17:09

4.0

PAGE 11

13:32

20-JUL-83

MACY11 30A(1052)

STARTING PROCEEDURE

SET SWITCH REGISTER TO 000200

DEPRESS 'LOAD ADDRESS' KEY AND RELEASE

LEAVE SWR BIT 7=1 TO USE EXISTING PARAMETERS PREVIOUSLY
SET UP_BY THE DUP11 PARAMETER DIALOG. WHENEVER PROGRAM IS STARTED
AT ADR 200 WITH SWR BIT7=0, NEW PARAMETERS MUST BE LOADED.
'EXAMPLE"

"MAP OF DUP11 STATUS'

1500
1502

CSR_OF DUP11
VECTOR OF DUP11

160050
000300

THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS
TABLE STARTING AT ADDRESS 1500 IN THE PROGRAM. THE STATUS
TABLE MUST BE VERIFIED BY THE USER.

IT IS POSSIBLE FOR THE OPERATOR TO MANUALLY CHANGE (TOGGLE IN)

THE

INFORMATION

IN THE MAP TO SUIT A SPECIFIC CONFIGURATION,

BUT THE RESPONSIBILITY FOR VERIFYING
WITH THE OPERATOR.

THAT

INFORMATION

RESTS

THE PROGRAM WILL TYPE 'R AND PROCEED TO RUN THE MAINDEC
4.1

CONTROL SWITCH SETTINGS
SW 15
SW 14
SW 13
SW 12

SET:
SET:
SET:
SET:

SW 09
SW 08
SW 07
Sw Og
Sw 0
SW 04
SW 03
SW 02

SET:
SET:
SET:
SET:
SET:
SET:
SET::
SET:

SW 11
SW 10

SW 01
SW 00

SET:
SET:

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
INHIBIT TYPE OUT/BELL ON ERROR.
INHIBIT ITERATIONS.
(QUICK PASS)
ESCAPE TO NEXT TEST ON ERROR
RESERVED
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
RESERVED
RESERVED
RESERVED
RESE RVED
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
RESERVED

SWITCHES 8 THROUGH 15 ARE DYNAMIC AND SHOULD BE USED AS NEEDED
ARE
IN THE DIAGNOSTIC. SWITCHES O THROUGH 2 ARE STATIC (
AND
RUNNING)
IS
TAPE
THE
OF
OPERABLE WHEN THE MONITOR PORTION
T
R
OR
BE SET UP PRIOR TO STARTING
SHOULD

MACYN 30A(1052)

20-JUL-83

19-JuL~83 17:09

13:32

PAGE 12

DIAGNOSTIC.

4.1.2

SWITCH REGISTER RESTRICTIONS

SW 01

IT IS STRONGLY
RESTART PROGRAM AT SELECTED TEST.
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE
TRYING TO SELECT A TEST THAT IS NOT IN

THE

ORDER

SEQUENCE. THE REASON FOR THIS IS THAT THE PROGRAM HAS
TO CLEAR AREAS AND SET UP PMTER IN _THE MITOR
PORTION OF THE PROGRAM. IT 1S POSSIBLE TO LD200,
RAISE SUO‘l THEN START, PROVIDED PARAMETERS HAVE BEEN
PREVIOUSLY SET UP AS DESCRIBED IN SECTION 4.0. ALSO,
WHEN A TEST IS SELECTED, ALWAYS START AT THE VERY

BEGINNING OF THAT TEST.
SWITCH REGISTER PRIORITIES
A)

ERROR SWITCHES

1.
2.
«
.
.
B)

SCOPE SWITCHES

SW 14 - LOOP ON TEST.
IS LOWERED.

WILL LOOP ON TEST UNTIL

SW 11 = INHIBIT ITERATIMS (QUICK PASS).

A TEST
ONE PASS THROUGH

SWITCH

ONLY

ALLOWS

STARTING ADDRESS

STARTING ADDRESS IS AT 000200. THERE ARE NO OTHER STARTING
ADDRESSES FOR THE DUP11 DIAGNOSTICS OR THIS EXERCISER.
NOTE:

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES 1T
OR XXDP_CONTROL AND WILL ACT
ACT11
UNDER
IS
ACCORDINGLY. AFTER DUP11 IS TESTED, THE PROGRAM WILL
RETURN TO *XXDP' OR ‘ACT=11'. ALSO, UNDER
"ACT11"* OR *XXDP'' CONTROL THE FOLLOWING DEFAULT
HARAMETERS ARE ASSUMED:

4.2.1. ALL JUMPERS ARE ASSUMED TO BE IN
THE FOLLOWING CONFIGURATION:
IN

SEC REC ENABLE
SEC REC DISABLE
EAR OPTION
A+8 DS CONTROL

4.2

SW 12 DELETE PRINT OUT/BELL ON ERROR.
SW 13 DELETE ERROR PRINTOUT.
SW 15 HALT ON THE ERROR.
SW 08 GOTO BEGINNING OF THE TEST(ON ERROR).
SW 10 GOTO NEXT TEST(ON ERROR).

4.1.3

SSRGRS

CZDPE

CZDPEC.P11

SEQ 5

MACY11 30A(105¢) 20=JUL-83
CZOPE
CZDPEC.P1
19-JuUL-83 17:09

13:32
W7 =

SEQ 6

PAGE 13
BUS GRANT CONTROL

4.2.2. H325 TEST CONNECTOR IS ASSUMED TO BE ON.

4.2.3. THE MANUFACTURING OPTION CSR 160050 AND
VECTOR OF 770 ARE USED.
4.2.4. THE BR LEVEL IS ASSUMED TO BE 5.
5.0

OPERATING PROCEDURE

WHEN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN
%527%?:@5%‘: WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING
5.1

PROGRAM AND/OR OPERATOR ACTION
THE TYPICAL APPROACH SHOULD BE

1.
2.

HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS.
CLEAR SW 15.

THE TEST NUMBER AND PC WILL BE TYPED OUT_AND POSSIBILY AN
ERROR MESSAGE (THIS DEPENDS ON THE TEST), TO GIVE THE OPERATOR
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT, LOOK IN
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND _THEN
_IN THIS WAY THE EXACT
NOTE THE PC_ OF THE ERROR REPORT.
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR PC
IS THE HLT+2 LOCATION.

AT THIS POINT IT IS RECOMMENDED THAT THE NORMAL DIAGNOSTICS BE
RUN TO ISOLATE THE ERROR CONDITION.

6.0

ERRORS

AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE
PC TYPED OUT AT THE TIME OF AN ERROR (PROVID
12=0). ADDITIONAL INFORMATION WILL BE SUPPL
E*Rg%“ WHICH IS TO GIVE THE OPERATOR AN
6‘1

ERROR RECOVERY

IF FOR SOME REASON THE DUP11_SHOULD 'HANG THE BUS' (GAIN
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHWIBITED)

AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN
IF THIS SHOULD HAPPEN LOOK IN LOCATION
CONTROL OF CPU.
*TSTNO' FOR THE NUMBER OF THE TEST THAT WAS RUNNING AT THE
TIME OF THE CATASTROPHIC ERROR. THIS GIVES THE OPERATOR SOME
IDEA AS TO WHAT THE DUP11 WAS DOING AT THE TIME OF THE ERROR.
7.0

RESTRICTIONS

MACY11 30A(1052) 20-JUL-83
CZDPt
CZDPE..P11
19-JuL-83 17:09
7.1

13:32

SEQ 7

PAGE 14

STARTING RESTRICTIONS

7.2

VERIFIED

TABLE

SHOULD

DUP11 PARAMETER DIALOG MUST BE ANSWERED

BEFORE

RUNNING

SEE SECTION &

(PLEASE).

STATUS

REGARDLESS OF HOW THE PROGRAM WAS STARTED.
OPERATING RESTRICTIONS
PROGRAM.

THIS

ANSWER THE COMPLETE PARAMETER DIALOG AGAIN.

TOGGLE IN THE NEW CSR AT 1500 AND THE VECTOR AT 1502, THEN

RESTART THE PROGRAM WITH SW07=1.

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

ALL DUP11 DEVICE DIAGNOSTICS WILL

GIVE AN "END

PASS®'

MESSAGE

(PROVIDING NO ERRORS AND SW12=0) WITHIN & MINS. THIS IS
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY
ON THE PDP11 CPU CONFIGURATION.

8.2

PASS COMPLETE

NOTE: +EVERY+ TIME THE PROGRAM IS STARTED, THE TESTS WILL RUN
AS IF SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO VERIFY
NO *HARD* ERRORS AS SOON AS POSSIBLE.
THEREFORE THE FIRST
PASS=-EACH TIME PROGRAM IS STARTED--WILL BE A 'QUICK PASS'
UNTIL ALL DUP11°'S IN SYSTEM ARE TESTED. WHEN THE DIAGNOSTIC
A PASS WITH THE NORMAL ITERATION COUNT
COMPLETED
HAS
ééchflpggga. THE TOLLOWING IS AN EXAMPLE OF THE PRINT OUT TO

END PASS CZDPB? CSR:160050 VEC:300 PASSES:000001 ERRORS:000000
NOTE:

THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY _THE
VALUES FOR THE DEVICE.
THEY ARE ONLY FOR THIS

EXAMPLE.

8.3

KEY LOCATIONS

RETURN

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETW
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON
TEST IS ASSERTED.

NEXT
TSTNO

CONTAINS THE ADDRESS OF THE NEXT

PERFORMED.

’C,EGFJ&A!INS THE NUMBER

THE

TEST

TEST
NOW

BEING

CZDPE

MACY11 30A(1052)

CZDPEC.P

20-JUL-83

19-JUL~83 17:09

13:32

PAGE 15

*eNOTE*+

IT SHOULD BE REMEMBERED THAT CZDPE IS NOT A DIAGNOSTIC$ b8uT
IT IS A CONFIDENCE TEST DESIGNED TO EVALUATE ONLY THAT THE
DEVICE IS OPERATIONAL. IF THERE IS A FAILURE, THE DUP11 DAGNOSTICS

WILL HAVE TO BE RUN FOR SPECIFIC FAULT DETECTiON.

SEQ 8

MACY11 30A(1052) 20-JUL-83
CZOPE
19-JuL-83 17:09
CZDPEC.P11

389
ggg
39

13:32 PAGE 17
INTRODUCTION TO DUP11 DIAGNOSTIC

:#CZDPECO /<377>/DUP11 CONF IDENCE TST
-comucut 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
.

39
394
395
396
397
398
399
28?

:STARTING PROCEDURE
$LOAD PROGRAM
:LOAD ADDRESS 000200
:PRESS START
.
mocm WILL TYPE “'CZDPECO /<377>/DUP11_CONFIDENCE TST *
TO INDICATE THAT TESTING HAS STARTED
PROGRAM WILL TYPE
AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE
:AND THEN RESUME TESTING

402

;SWITCH REGISTER OPTIONS

‘:’.32

405

406
407
408
409
410
411
412
413

414
415
416
\7
418
419
420
421

422

100000
040000
020000
010000
004000
002000
001000
000400

000200
000100
00004
000020
000010
000004
000002

000001

$W15=100000
SW14=4
SW13=2
SW12=1
SW11=4000
$W10=2000
SW09=1
SW08=400
SW07=200
SW06=1
SW05=6
SW04=2
SW03=1
SW02=4
SW01=2

SW00=1

:=1,HALT ON ERROR
:=1.INHIBIT ERROR TYPEOUT
:=1.DELETE tmour/sm ON ERROR.
-1 INHIBIT ITERATIONS
:=1.ESCAPE TO NEXT TEST ON ERROR
=1 L00P WITH CURRENT DATA
:=1.L00P ON ERROR

:=1.L00P ON CURRENT TEST

;SELECT DUP'S DESIRED ACTIVE
*NOTE:THIS MUST NOT EXCEED ORIGINAL COUNT
SLOCK ON TEST SELECT
*RESTART PROGRAM AT SELECTED TEST
*ENTER PARAMETERS

SEQ 9

CZOPE

MACY11 30A(1052) 2%-!0!.-83

CZOPEC.P1
423
424
425
426
427
428
429

430

&3
432
433
634
435
436
437
438
439

440
441

442
463

19-JuL-83 17

Lab

452
453

438

457
458
459

460
461
‘6;
46

465
463
669
48
69
470

18
13:32 PAGE
GENERAL DEFINITIONS AND EQUIVALENCIES
sREGISTER DEF INITIONS

000000
000001
000002
000003
000004
000005
000006
000007

sGENERAL REGISTER

SP=%
PC=X

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

;LOCATION EQUIVALENCIES
177776
001150

PS=17777
STACK=1150

sPROCESSOR STATUS WORD

;START OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS

444

446
447
448
449
450
431

005746
005726
01
012600
024
022626

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046
POPRO=1
PUSHZSP*S““
POP2SP=22626

20000

BIT15=1
0"1686
BIT

10000
004000
002000

001000
000400
000200
0001 08

00003
000003
000001

28
00001

sDECREMENT PROCESSOR STACK 1 WORD

.INCRE'KONTPlsIOCESSM STACK 1 WORD
: SA

ACK

sRESTORE IO FROM STACK

:DECREMENT STACK TWICE
NCREMENT STACK TWICE
:IN
.EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL

Bl"?
8"1

SEQ 10

CZDPE

HACV11

CZDPEC.P11

A(IOS ) 20-JUL-83

JUL=-8

13:32

SEQ 11

PAGE 19

TRAPCATCHER FOR UNEXPECTED INTERUPTS

3 :QQQQtt.tttttttt.tQttt't'.t'!ttt'."t.t'tt."tttt'tt..t...fi'..'.t.t..

474

475

481

zgg

000000

=24

485
eag
48
488
489
490
491

000026
oooogg
000030
000032
000034
000036

000024
004312
000340
003730
000340
oosgzs
000

493
494

000040
000042

000000
000000

000040

.=40

;STANDARD INTERRUPT VECTORS

PFAIL
340
HLT
340
TRPSRV
340

:POVER FAIL HANDLER
SSERVICE AT LEVEL 7
*ERROR HANDLER
SSERVICE AT LEVEL 7
*GENERAL MANDLER DISPATCH SERVICE
sSERVICE AT LEVEL

:SAVE FOR ACT=11 OR DDP2
*RETURN ADDRESS IF UNDER ACT=11 OR DDP2

495 000044 000000
496 000046 002464
497
000052

.=52

000174
500
501 000174 000000
% 000176 %ooo
ssgt.s 000200 000137 001510

=17
DISPREG
s!gsg: 0
f
JMP

5539

001

.=1000

509

001200

29’3

000052

000000

g 001000 005377

%1?
s1§

513 001200 177570
S}g 001202 177570

;;g
513

1206

s
a8
2; 831 13 177566
g

ATCHER'’x;
PLACED

:0 :t.ttt'Q.tt.'.t.t'..'t.t"t"......t'..tlQ..'tt..t"'...tt""t"""

2873

492

THE STAND

{BETWEEN masss
ro mn
"PC+2 HALT'

;1T LOOKS LIKE

2;3

48%

rmcmuen
ER FOR mem INTERRUPTS

:FOR USE WITH ACT=11 OR DDP2

055103 050106 MTITLE: .ASCIZ

.=1200

:SAVE FOR ACT=11 OR DDP2

SENDAD

;ACT=11 PROGRAM CHARACTERISTICS

.START

:SOFTWARE DISPLAY REGISTER
:SOFTWARE SWITCH REGISTER
:60 TO START OF PROGRAM

<377><12>/CIDPECO /<377>/DUP11 CONFIDENCE TST /<377>

;SWR AND LIGHTS
!

DISPLAY:
177570
SWR:
177570

111745 CONSOLE LIGHTS
s INDIRECT mum TO SWITCH REGISTER

:INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

TKCSR:

‘

177

e
TPDBR: 177

sTELETYPE

KEYBOARD CONTROL amsm

I
S
Mo
il
T LEH!NIEI
DATA BUFFER

;PROGRAM CONTROL PARAMETERS

CZOPE

MACY1

{CZOPEC.P11

527
528
3
§
531
§32
§33
§3,

001214
001216
1
1
001224
01
001
000000
001232

§35 00123¢
ggg

538

(105) 28;.!!1-83

000000

PAGE

PMTERS. VARIABLES, AND TRAP CALLS.

:SCOPE ADDRESS FOR LOOP ON TEST
*ADDRESS OF NEXT TEST TO BE mcum
ON CURRENT
ADDRESS m ocx
TIONS THAT cunaeut TEST WILL BE EXECUTED
*NUMBER
*NUMBER or rsmnous COMPLE TED
*NUMBER OF TEST IN PROGRESS
*NUMBER OF PASSES COMPLETED
STOTAL NUMBER OF ERRORS

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

;PROGRAM VARIABLES

§39
540
541
s4§
543
544
545

001 38
001
001242
001244 000000
001246 8%838
0012
00155

TEMPY :
TEMP2:
TEMP3:
TEMPS :
TEMPS : 8
SAVRO:
SAVR1:

548
549
550
ggl

001
000000
001
383338
001
001266

SAVR& :
SAVRS: 0
SAVSP: 3
SAVPC :

§53

001270 000000

001254
546
547 001256

13:32

§54 001272
555 001274
55? 00127
557 001
558 001
559 001382
% 001
seg 001 1g 09999;
1
001312
563
564 001314 100000
1
565 001 19
1
569 00131
1 5
ssg‘ 001320

SEQ 12

SAVR2:
SAVR3:

SAVROA: 0

SAVRIA:
SAVR2A:
SAVR
SAVRGA:
SAVRSA:
SAVSPA:
SAVPCA:
REPEAT : s
CTSDLY: =1
DELAY: 100000
DUPACTV: .BLKB 1
DUPNUM: .BLKB 1
sevm“ : .BLKB 1

:PC OF LAST ERROR CALL

:TEMPORARY STORAGE
-rsmmv STORAGE
TEMPORARY STORAGE
: TEMPORARY STORAGE

*Ré STORAGE
*RS STORAGE
:STACK POINTER STORAGE
*PROGRAM COUNTER STORAGE

: smv STORAGE
.
:R1 STORA

smugf
.ug
*R3 STORAGE

;RO STORAGE

*R1 STORAGE
:R2 STORAGE
*R3 STORAGE
*Ré STORAGE
*RS STORAGE
SSTACK POINTER STORAGE
:PROGRAM COUNTER STORAGE
:REPEAT CTSDLY
:CTS DEI.A
SDELAY FOR DATA LEAD TESTS
:DUP11°'S SELECTED ACTIVE.
SOCTAL NUMBER OF DUP11°S.
:WORKABLE mn.

(1os ) zo-.mL-as
MACY11
CZOPE
[CZOPEC.P11
19=JuL-83
17:09

13: 32

PAGE 21
OGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

569

;CONTROLREGISTER DEFINITIONS

75
7

574
575
5;9
§
578
579
580
581
582
583
584
585
586
ggz

589
5§90

|
|

591
59
59
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611

614
615
61
g}

100000
0000
28888
1
000
002000

001000

108
000020
000010
000004
000002
000001
10%88
04
010000
002000
001000
100000
001000
010000
:
108888
04
10000
000
1
0004
1

8ooooo
14000
8(')2000
000

.RXCSR BiT omumons
DSCA=BITIS
:DATA SET CHANGE A
RING=BIT14
:luns
CTS=BIT13
:CLR TO SEND
:CARRIER DETECT
mm-em;
aecncrsean
*REC ACTIVE
SRD=BIT1
$SEC REC DATA

:DATA SET RDY
DSR=BIT9
STPSYN=B]T
smr SYNC
RXDONE=BIT
:REC DONE
RINTEN=BIT
SREC INTR ENABLE
DSINTE=BIT
:DSC INTR ENABLE
RCVEN=BI T4
:REC ENABLE
STD=BIT
.sec XMIT DATA
RTS=BIT2
*REQ TO SEND
:DATA TERM RDY
DTR=BIT1
DSCB=BITO
DATA SET CHANGE B
:RXDBUF
BIT
otn&mous
RXDERR=BIT15
;RECDATA ERROR
OVRRUN=BIT14%
*OVERRUN ERROR
CRCERR=BIT1
:CRC ERROR
RABORT=81T1
:REC ABORT
REOM=8]T
*REC END OF MESSAGE
RSOM=B] T8
*REC START OF MESSAGE
mcsn BIT DEFINITIONS
DECMOD=BIT1
:DEC MODE (DDCMP)
cncsn-em
cnc ENABLE
PRISEC=BIT12
PRI/SEC SELECT
x;sa BIT omnhx

TXDLAT=8]

MTDATA=B]T14
CLK=BIT1
mooea-em;
MMODEA=B1T1
81TwW=8IT
TXACT=BIT
MRESET=BIT
TXDONE=8]T
TXINTE=BIT6
SEND=B81T4

X DATA LATE

;mut DATA OUT
:CLK
SMAINT MODE 8
SMAINT MODE A

:BIT WINDOW INPUT
:TX ACTIVE
msm RESET
XMIT DONE
XMIT DONE INTR ENABLE
: SEND
noxen-om
HDX/F DX
TXCSR WRD omuinous
USER=0
;USER MODE
mooe-u
SMAINT INT MODE
MEXT=1
SMAINT EXT MODE
SYSTST=4
SSYSTEM TEST MODE
;TXDBUF BIT DEFINITIONS

100

62
624

RCRC?T=BIT1S
RCRCIN=BIT14
TCRC7T=BIT1
TCRCIN=BITY

SEQ 13

CZOPE

MNACY11 SOA(IOS)

CZOPEC.P11

19=-JuL-8

004000
002000
001000
000400

20°JUL-83

13:32 PAGE 22
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.
sMAINTENANCE TIMER

TIMER=BIT11

TABORT=B1T10
TEOM=BIT
TSOM=BIT8

;TRANSMIT ABORT
;TRANSMIT END OF MESSAGE
;TRANSMIT START OF MESSAGE

sMISC. PROGRAM DEFINITIONS

PRIRTY: .WORD o
TCNFLG:

OPCLRJ: .BLKB 1

D
ALJMFL: .WORD
DSCFLG: .WORD

INIFLG: .BYTE

ERRFLG: .BYTE
LOKFLG: .BYTE

QV.FLG: .BYTE
.EVEN

s PROGRAM lNlTlAI.lZMlW FLAG
0

:ERROR OCCURED FLAG
:LOCK ON CWENT TEST FLAG
sQUICK VERIFY FLAG.

:ON FIRST PASS O‘EEACH DUP11 ITERATIONS
:WILL BE SUPPRESSED

c
MACY ggmos
) 20°JUL-83
CZDPE
JUL-8
CZOPEC.P1

13: 32

PAGE 23

OGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

;DEFINITIONS FOR TRAP SWRW"'E CALLS

;POINTERS TO SUBROUTI

1333
333 3383

CAN BE FOUND

:IN THE TABLE IWDIATLV FOLLOWING THE DEFINITIONS

658
659

SEQ 15

::Q.tt'tt‘.'tt.'Q.'.'.Q"Q"'Q'l'..fi..tt...".Q."QQ.."Q"".QQ'Q.'Q.
-

.TRPTAB:

001354

SCOPE=TRAP+0

001354
001356

0026

001360

001362

002772

.SCOPE
SCOP1=TRAP+1
ssom

msmsrm;os

sCALL TO ASCII STRING INPUT ROUTINE

lNStER-tRAPM

sCALL TO INPUT ERROR HANDLER

PARAM=TRAP+

sCALL TO NUMERICAL DATA INPUT ROUTINE

SAVOS=TRAP+6

sCALL TO REGISTER SAVE ROUTINE

201372

. SA¥05
RESOS=TRAP+
.RESOS

001374

«CONVRT

001370

001400

00362

sCALL TO REGISTER RESTORE ROUTINE

CONVRT=TRAP+10

sCALL TO DATA OUTPUT ROUTINE

CNVRT=TRAP+11

sCALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

ssmssmg:;n

sCALL TO TELETYPE INPUT ROUTINE

«CNVRT

001376

sCALL TO LOOP ON CURRENT DATA HANDLER

sCALL TO TELETYPE OUTPUT ROUTINE

PARAM

001366

sCALL TO SCOPE LOOP AND ITERATION HANDLER

TVPE:TRAP*- 2

ol gtsl

001364

.
;:'t't...'.'.QQ....'...""".Q'.'....'."Q..'..Q.'..'Q...Q.Q."'Q.."

MACYN
CZOPE
1
{CZOPEC.P11

(105;) 28;.!“.-‘3

690 %168%
69
69
694
695
69

SEQ 16

13:32 PAGE 24
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

;DUP11 VECTOR AND REGISTER INDIRECT POINTERS
sPOINTER TO DUP11 RECEIVER }NYEWT VECTOR
DUPRVC :

DUPRPS :

:POINTER TO DUP11 RECEIVER INTERRUPT SERVICE PS

X
:
DUPSEC:

:POINTER TO DUP11 TRANSMITTER DATA BUFFER
:POINTER TO DUP11 SECONDARY REGISTER SELECT REGISTER

14
141
161
161
141
14

DUPTV(
DUPTPS
RXCSR
RX
PARCSR
TXCSR: 0

1
14
%Mg
14
001436

HUPPSR :
HUPRBF :
HUPRCR:
HUPTBF :
HUPTCR:

1
14

sPOINTER TO DUP11 TRANSMITTER INTERRUPT VECTOR
sPOINTER TO DUP11 TRANSMITTER INTERRUPT SERV!CE PS
;POINTER TO DUP11 RECEIVER STATUS REGISTER
DATA BUFFER
;POINTER TO DUP11
sPOINTER TO DUP11 PARAMETER STATUS REGISTER
:’OINTER TO DUP11 TRANSMITTER STATUS REGISTER

:POINTER TO PARAMETER STATUS HIGH BYTE
;POINTER TO RECEIVER BUFFER WIGH BYTE
sPOINTER TO RECEIVER CONTROL REG HIGH BYTE
:POINTER TO TRANSMITTER BUFFER HIGH BYTE
:POINTER TO TRANSMITTER CONTROL REG HIGH BYTE

;DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST
001440

000

MASK.A: .BYTE 000

001441

010

CLK.A:

001442

000000

.BYTE 8.

L00.00: 090000

sLAST CHAR TO TEST AND PARITY MASK

sNUMBER OF CLOCKS NEEDED FOR ONE CHAR
sPARAMETERS

;DUP11 STATUS TABLE AND ADDRESS ASSIGNMENTS
001500

001233

001500

001
1
001504 000001

.=1500
DUP.MAP:

DUPCRO: .BLKW 1

DUPTRO: .BLKW 1
DUPO.A: .BLKW 1

;CONTROL STATUS IEGPTEI FOR

;VECTOR "'A’* FOR DUP11 NUMBER
;PARAMETER FOR DUP11 NUMBER

11 NUMBER 0

(1os§)
MACY11
CZOPE
ICZOPEC.P11
19-JuL-83 17:

JUL-83

:PROGRAM
INITIALIZATION
$LOCK OUT INTERRUPTS

72‘

:SET UP PROCESSOR STACK
SSET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS

:TYPE TITLE MESSAGE

73173

739 881510 012737 000340
740
001516 81 709
7261 0015
1
762
74
764

745

001530
15
001540
001544

005037
1850 7
105037

177776 .START: MOV
MOV
000024
MOV

CLR
CLRB
CLRB

105037

CLRB

g
g
e
748
001560 005037
749

15%

750
gi
753
754
755
759
757
758
759
760
761
ng
763
764

0015
001576
001606
001610
381614.
182
001
001630
001636
001644
01
165
0016
01

769

765

77% ggm

5037

15 7
012737
013746
01 7/.9
1273 og;g
77

888

128

688:

gggr 881 2

}0 1
001740

174
1766

1
106403

001

%
7801

1;;3

000004

18“0;
m
119?238;
001

881%26
1214

118:

001

77;9 001
881

CLR

138:

775

786

i
CLR

16%

76
1674
% °°}?§,§
001
m 33"03
%
17
001714

785

SEQ 17

13:32 PAGE 25
PROGRAM INITIALIZATION AND START UP.

gi
7

105037

001

MOV
MOV
MoV
MOV
MOV
ST
B8R
MOV
MOV
CMP
MOV
MOV
18T
BNE

TYPE

ISTE

B8PL
JMP
MoV
CLR
(MP
BNE

;LOCK OUT INTERRUPTS
SSET UP STACK
SSET UP POWER FAIL VECTOR

#340,PS
#STACK, SP
#.PFAIL, 3024
PASCNT
ERRFLG
QV.FLG

:CLEAR PASS COUNT
:CLEAR ERROR FLAG
:ZERO QUICK VERIFY FLAG

DUPNUM

je,
ERRCNT

;CLEAR ERROR COUNT
SCLEAR LAST ERROR POINTER

LiTEM

SSET UP FOR TEST1
‘?Egr%srgutn“’.?",‘" FAIL BEFORE
:SAVE CURRENT VECTORS
:
SSETUP FOR TIMEOUT
*REFERENCE MARDWARE SWITCH REG
:BR IF IT EXISTS
:POINT TO SOFT SWR
*POINT TO SOFT DISPLAY REG
sADJUST STACK
:RESTORE VECTORS

#1,TSTNO
#.START ,RETURN
a6, =(SP)
6. =(SP)
128,30
oga
1
#SUREG, SWR
#DISPREG,DISPLAY
(SP)+,(SP)+
(SP)+, a0
(SP)+. a6
2

:1F ACT11 OUTO MODE

DON'T TYPE ID
STYPE TITLE MESSAGE

MTITLE

10
.BEGIN
MAP RO
(RO)
+
zg #DUP . END
$

SUSE SAME PARAMETERS?

:CLR MAP

:IF NO, BR AND INPUT NEW PARAMETERS
:1F YES, GO.

:DONE WITH MAP?
:BR IF NO

CLRB

MDMFLG

gun

SSTORE AT THIS LOCATION

1
INSTR

SHOW MANY TIMES ¢ 2
:OUTPUT MESSAGE & GET INPUT STRING

CLRB

ALJMFL

INSTR ;OUTPUT
MESSAGE & GET INPUT STRING
MCSR
;MESSAGE
£'1'l'u§m"
:fou
:1
SHIGH LIMIT
.BYTE

BYTE

MVEC

PARAM

SMASK

:MES

:CONVERT

STRING

CZOPE
MACY11
30A(1052)
ICZOPEC.P11
19-JuL-83 17:
787
788

789
790

791
ni

001761
1762

793

001764

794
795

79
798
799

001766
001

1776

13:32 PAGE 26
PROGRAM INITIALIZATION AND START UP.
:LOV LIMIT
SHIGH LIMIT

;98

001752
001

01
0017

JUL=-83

1502
001

.BYTE

081
104403

BYTE

004741

10441
1%

105

001342

001
1050
881;24.
105037
001344

°°§

10440

10441

ao;

gumo SSTORE AT THIS LOCATION
sMASK
1
INSTR

SHOW MANY TIMES ¢ 2
:OUTPUT MESSAGE & GET INPUT STRING

SETFLG
MOMFLG

:SET FLAG BASED UPON INPUT STRING
:THIS FLAG

1% 00511

MDMFLG

INSTR

;OUTPUT MESSAGE & GET INPUT STRING

SETFLG

:SET FLAG BASED UPON INPUT STRING

MTCN

?818«

TCNFLG

S737 00132

sMESSAGE

ISTB

BEQ
CLRB
CLRB

B ey oo

:MODEM FLAG SET?

718
TCNFLG
%m

:IF BR.

:MESSAGE

:THIS FLAG

1ST8

;&nc

SETFLG

:SET FLAG BASED UPON INPUT STRING

1578

;&m

INSTR

;OUTPUT MESSAGE & GET INPUT STRING

80
808
809

1627
104403
082‘1

BEQ
INSTR ;OUTPUT MESSAGE & GET INPUT STRING
MALLJM ;MESSAGE

811

?01#

ALJNFL

001020

BNE

810

gt;
814

15
19
1
gts
1

104412

05737 001344

;

MJMPR
SETFLG
OPCLR)
INSTR
MSTJM
SETFLG

INSTR

:MESSAGE

SRIMFL

:THIS FLAG

INSTR

MDSC
1317
1

708:

131
1

246

66$:

:OUTPUT MESSAGE & GET INPUT STRING

MSRJM

SETFLG

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

STJMFL :mgurus

;

:THIS FLAG

:SET FLAG BASED UPON INPUT STRING

:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE

SETFLG

:SET FLAG BASED UPON INPUT STRING

INCB
MoV

wm“

DSCFLG
INCB
INCB

JMNP

;THIS FLAG

SAVNUM

.BEGIN

;LET'S 6O.

SEQ 18

MACY!
CZOPE
1
I0PEC.P11

ggg

1
§

844
845

13:32 PAGE 27
PROGRAM INITIALIZATION AND START UP,

1
?1 729
0
1
1%
1
1
127
15¢ 0127
1% 1

1176
70 113737
113737

00 11

1322
1324
1325

% 1% 1;;;

17701

831333

204 105037
002210 10440;

17737
1

01
527

MOV
INCB
MOV
MOV
MOV
MOVB

mo)

: TURN=AROUND=CONNECTER
xom CLEAR JUMPER FLAG
:0PT

MOV

m.m TEMP1

.-set romm

CLRB
TYPE

MOV
BEQ

mé

ATEMPY,
témz
.BEGIN’

asg

;TEST START AND RESTART

32777 000004 176706
001411
5
1
40 002554
01
556
}
§$s§ 18:

.1)‘ 7

31‘ 28:

:MODEM FLAG
:TYPE WEADER

:SET DATA
DONE WITH DATA
*ALL
;UPDATE POINTER

#340,PS

osutx sP

:LOCK OUT msmrs

BIT
BEQ
TYPE
MoV
MOV
B8R
g

#B1T2,a5WR
0cK
#NOP,TTST
#NOP.TTST+2
28
m
ng.

:CHECK FOR LOCK ON TEST
: '4' NO LOCK DESIRED.
:
%ocx SELECTED.
:ADJUST SCOPE
d
$SET UP TO LOCK
:CONTINUE ALONG
SPREAgNORMAL scon nou 'c

10
1

%
7

73
001023

{o.

260
002264

843
864
865
as;

XSTATQ

000340 177776 .BEGIN: MOV
3332“ 012737
1
1150
MOV

859 002246

:PRIORTY

rsfin
rcms
TEMP1.OPCLRJ

CONVRT
og.rem
ADD
B8R
5

10441
851
823“
835
737 000002 001236
85
3;53 002244 000766

:SET UP POINTER
SDEVICE ACTIVE FOR TESTING
.csa
$VECTOR
SSTATUS AND SYNC

MOVB
MOVB

”i

861

SEQ 19

;** FOLLOVING mmreas ARE LOADED IF UNDER ACT11 OR XXDP CONTROL.*

84
850 885

uosg» 285M°”

SRETURN

TST
BNE

MOV

tu.azfuun
m

:SET UP STAC

:1S PROGRAM uon MONITOR CONTROL
:BR IF YES

:smrAT
’%mghm\mcuDEVIIE CE ?ot’%
JTYPE R
SSTART TESTING

CZOPE
MACY11 30A(1052) 20-JuL=-83
CZOPEC.P11
19-JuL-83 17:09

;END OF PASS
STYPE NAME OF TEST
SUPDATE PASS COUNT
$CHECK FOR EXIT TO ACT=11

*RESTART TEST

005037

omgsl.

104402
104411
104402
104411
104402
104411
104402

004555
oozstg
00456
002516
004571
002524
004602

880

002352

385
886
887
888
889
891

002400
002406
002410
002414
002420
002426
002430

893

002440 112737 000377 001353

356
881
882
883
884 002376

894

105037
005237
013777
104402

001351
oo1s§8
176604
001
006373

113737

896
897

002460
002462

001406
000005

899

002464

004711

001317

895 002456 013701 000042
900
901
902
903
904

JEOP:

002434 104411 002532
002446

898

002464

002466
002470
002472
002474
002476

000240
000240
000240
240
012737

005624

908
909

002514
002516

001412
000001

911
912

002522
0025264

001402
000001

914
915

002530
002532

001230
000001

002536

001232

910 002520
913 002526

916 002534

003

002

006

002

006

002

:CLEAR LAST ERROR PC

TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE

.MCSRX
.XCSR
.MVECX
XVEC
,MPASSX
_XPASS
.

STYPE CSR
sSHOW IT
:TYPE VECTOR
SSHOW IT
:TYPE PASSES
sSHOW IT
:TYPE ERRORS

#377,QV.FLG

*SET THE QUICK VERIFY FLAG.

MOVB

XCSR:

:CLEAR ERROR FLAG
ERRFLG
:UPDATE PASS COUNT
PASCNT
PASCNT,@DISPLAY :DISPLAY PASS COUNT
:TYPE END PASS
,MEPASS

x;m

DUPNUM,SAVNUM

MOV

ane2 R

JSR

PC. (R1)

BEQ
RESET

NOP
NOP
NOP
NOP
RESTRT: MOV

JMP
1
BYTE

XVEC:

RXCSR
1

XPASS:

DUPRVC
1

XERR:

PASCNT
1

RESTRT

SSHOW IT

:RESTORE THE COUNT

SCHECK FOR ACT=11 OR DDP

*IF NOT, CONTINUE TESTING
:STOP THE SHOW==CLEAR THE WORLD

#CYCLE ,RETURN

CYCLE
6.2

.BYTE

3,2

.BYTE

6.2

.BYTE

6.2

ERRCNT

:SCOPE LOOP AND INTERATION HANDLER

991‘,3

922
923
924
925
926
927
928
929

LSTERR

CLRB
INC
MOV
TYPE

CNVRT

001320

001214

CLR

MOVB

$ENDAD:

905
002506 000137 00562
1
510
906
907 002512
006
002

921

SEQ 20

13:32 PAGE 28
END OF PASS ROUTINE

874
875
87
87

892

002540

002
002546
002554
002556
002560
002564
2593
002572

005037

01001
032

ugr

105777

1099
01
00041

001234

040000 176426
176420

176414

.SCOPE: CLR

TTST:

MOV
BIT
BEQ
BR
1ST8
BPL
MOV
B8R

LSTERR

RO, (SP)
#8iT14,a5WR
1$
i$
gmcsa
$
3TKDBR,RO
s

;CLEAR

LAST ERROR PC

SSAVE RO ON STACK
:LOOP ON TEST?
BR IF NO C(IF LOCK SWO1 = 1;THIS LOCATION = 240)
260 T0 38
(01TT0)
*KYBD DONE?
*BR IF NO (LOCK: HIT A KEY ON TTY TO GO TO NEXT TEST)
:CLR DONE BIT
* CONT INUE

CZDPE
MACY1 30A(105§) 28;JUI.°83
{CZOPEC.P11
9%0

002574

2602
604

13: 32 PAGE 29
END OF PASS ROUTINE
18:

004000

BIT

BNE

IST8

001353

BEQ
INC

001224
001224

28:

CMP
BNE

CLRB
LR

CLR

MOV
3s:

']
POP2SP

18:

2s:

MOV
ADD
BIT
BNE
IST8
8PL
TYPE
TST8
BPL
MOVB
BNE
MOV
RTI

MOV
MOV
ADD

JINST1: TYPE

e gov
MOV
18:
TSTB
BPL

MOVE

1761

BICB
CMPB

SR8888

00001

176132

176122

spcm.xcoum
$
ERRFLG
chur

cso ICOUNT

f.newm

28:

BEQ
1ST8
B8PL
MOV
DEC
BNE
MOV

IF YES

:UPDATE ITERATION CMTER
’aI.RLllTERATIWS DONE?

F NOT YET
sPREPARE FOR NEW TEST

:START ICOUNT AT ZERO
sRESET _ITERATIONS

;GET NEXT TEST
POP RO 0" STACK

SRETURN

AKE AN RTI
60 DO THE TEST

RS,=(SP)

sSAVE RS ON THE STACK.

MOV

.INSTR: MOV

V761se

2
LPCNT

JTYPE:

3s:

00556(7)

QV.FLG

:HAS FIRST PASS OEEN COMPLETED?
:BR IF_QUICKVERIF

1407
43
:TELETYPE OUTPUT ROUTINE

176226

000004
66 000002

gELETE ETERA"N (QUICK PASS)?

BRW:
BRX:

000002
000002
010000

004352
176232

MOV

#SW11,aSWR

(sP) RS
#2,2(SP)
#SU12,3SWR
38
(RS
23
,MCRLF
STPCSR
2
(RS)+,aTPDBR
1$
(SP)+,RS
R3,=(SP)

Ré.=(SP)
a4 (SP), .MSG
L4 (SP)

R4
#
og.ng
STKCSR
1$

STKDBR, (R4)

#200,R4)
(R4)+,#15

INSTR
TPCSR
@TKDBR,aTPDBR
R3
1%
(SP)+,Ré

:GET ADDRESS OF MESSAGE.

:POP OVER ADDRESS.

:INHIBIT ALL PRINT OUT??
:BR IF NO PRINT OUT WANTED (501281)
;1S NUMBER MINUS? (MSB=1(BIT7))

:BR IF NUMBER IS PLUS
sTYPE A CR/LF!

;TTY READY?

:BR IF NO.

:PRINT CURRENT CHAR

:1F NOT ZERO KEEP PRINTING!
:END OF OUTPUT. RESTORE RS
:GO HOME
:SAVE R3 ON STACK

;SAVE R& ON STACK

CZDPE
MACYT g(.)A(1052) 20-JUL-83
{CZOPEC.P1
19=-JuL-8 17:09

$8IRSR 83383883388
RREECRRREREERERANRERR
oo 283383
s
I3 R
SNt

986
987
988
989
990
91
992
993

13:32 PAGE 30
END OF PASS ROUTINE

MOV
MOV
TYPE
BR
INSTR2: MOV
MOV
+INSTE: MOV

004346

RTI

MOVB
MOVB

NRNESR
R ANS £§E
Srmnsnn
§NN~

:RESTORE Ré
*RESTORE R3

S
SNSBNVNVNO

18:

RS,=(SP)

Ré.=(SP)
4($P) RS
(RS)+,LOLIN
(RS)+.HILIN
(R5)+,DEVADR

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

MOV
MOV
CMP8
BEQ
CMPB
BLT

RS,4(SP)
RS
#INBUF ,RG
#15, (R&)
PARERR
(R&),#60
PARERR

BGT
BICB

PARE
#60,(Ré)

BEQ
ASL

Lgnirs
R

PARAM1: CLR

CMPB

BISB
CMPB

S RNNRS uv§§~égnra
- (\) b b ) S

WWWWW
NNNNNY

D md amd

—-SO=O=000 -2 O000000

MOV
MOV
MOV
MOV
MOV

BR
BR

PARERR: INSTER

(R&),#67

(R4J+.RS
#15,(R4)
RS
RS

1$
PARAM1

SusRS
- NN S33
=
SSJNIA
W

NWN

T
_ Py Y

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
003310

LIMITS: CMP

BHI
CMP
BLO

003306

BITB

003314

RS, HILIN

PARERR
RS,LOLIM
PARERR

LOBITS.RS
PARERR

¥R
Q3N

:STORE NUMBER AT SPECIFIED ADDRESS
P

e amah o

mad

WVWONOWVSWN=O

P
Q-G
gi

.PARAM: MOV

ASL
ASL

C—a

b
b
e
b e
b e o
e
e e o
— e e o

(gm R3
R3,=($P)
Ré.=(SP)
|,
TINST1
(SP)+,Ré&
(SP)+.R3

;CONVERT ASCII STRING TO OCTAL

995

=lelelelelalelelela

SEQ 22

003312

003315

18:

MOV
MOV
ADD

DECB

VADR, R4

RS, (R&J+

#2.RS

ADRCNT

K
MACYN
C.PI
CZOPE
CZDPE

A(1052)

?O—JUL-BB

13008 17:09

13: 32 PAGE 31
END OF PASS ROUTINE

BNE
MOV
MOV

104
104
1044
1045
104
104

RTI
LOLIM:
HILIM:
DEVADR:
LOBITS:
ADRCNT=LOBITS+1

000012

&
PN

888888

geess5

«CNVRT: MOV

:
AIA)

R §§§=zzz§§£§§s§§

OO=OO0==0
..9.29.33‘2‘
4 NWWWNOINNDNINOO OO

.CONVR: TYPE

1$:

2s:
3s:

261
o

SPIPITIITITZTREREE

b emd D e
b b wd med D md
b md
b

58:
£%

RS =(SP)

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

MOV
MOVB
MOV

BINWRD, R4

ROR
cLC
ROR
cLC
ROR

Ré
Ré
Ré

MOVB
MOVB
Mov

MOV

%g
MOVB
cLe

BNE

48:

MCRLF

MOV
ADD
MOV

DEC

D e e

D d

1$
(SP)+,R4
(SP)+ RS

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

D D b

S0050000000

b D-

d ond cnd

) o

b wd wd D e

(=l=]

) wd D

D cnd d =D-y

elelolelele]

JAANAN3S $E2TEREREE 3222 AZADRZE

}0’08

b e

(R1)+,CHRCNT
(R1)+,SPACNT
8(R1)+,BINWRD
CHRCNT.RS

#TEMP,RO
R4 .R

nh;?ng.ns
ag.(fio)o

MOV
MOVB
DECB
BNE
;g;o

mm.ag
=(RO),(R3)+
CHRCNT
(8
SPACNT

DECB

gmcur

MOVB

BNE
CLR8

OEC.
o

MOV
MoV
MOV
MOV

%‘o.m)o
$
(R3)

GRDCNT
15
(SP)+,RS
(SP)+.R%
(SP)+.R
(SP)+.R

SEQ 23

CZOPE
MACYN ;9“105 ) _20=JUL-83
{CZOPEC.P1
19-JuL-83 17:09
1098

00361

00%212
099 88;214

1
1" 80

I
168 003620

MOV

RTI

(SP)+,RO

WRDCNT : 8
361

CHRCNT:

+1
SPACNT=CHRCNT
BINWRD: 0
;;CONPARE THE FIRST CHARACTER IN THETELETYPE INPUT

110

:BUFFER TO THE_CHARACTERS

1108

:IF THE CHARACTER IS **v'*

.SETFLG:MOV
003622 017605
F 1111
"‘§
oosa;g
8«59°7
8880‘0””3
005560
BIC
1113
003636
122737
116 005560
CMP8

a(SP) RS
#40,
INBUF
#°N.INBUF

1114 003642
ms

00100
10501

BNE
8.'5“'

1118 003656

1005

BNE

RTI
INSTER

;RETRY

m? 3336“33 3%2”7"?9 000131 005560 1$:
H 3

3660 3515 177777
71g 000002
003670
3672

00000
104404

3674 000752

28:
38:

ng
1128

CMP8

MOVB
ADD

B8R

1%
gs»

;000

#'V,INBUF

#-1.(RS)
#2,(sP)

SET THE FLAG

;1S IT "W 2

;1S 1T 'Y2

:377

"SETFLG

*ARGUMENT
OF TRAP IS EXTRACTED
SAND USED AS OFFSET TO OBTAIN POINTER

"
1

sTRAP DISPATCH SERVICE

}33

:T0 SELECTED SUBROUTINE

:IF THE CHARACTER IS 'N'' CLEAR THE FLA

1121
11;

SEQ 24

13:32 PAGE 32
END OF PASS ROUTINE

12600

1104
1105
1109

m
1

3%3

ongu

1
3
162716
1
3706 017616
"
sng
;16
1135
00371
16 mggz
1
sng
716 001
1137 003722 017616 000000

}}333 003726 000136

.TRPSR: MOV

SUB
MOV
TRPOK: ASL
BIC
ADD
MOV

1140

mf 003730 032777 010000 175244 .HLT:
1144 °°§'23 om%
1145 003740
105
175244
m? 33 764 1
114
746 1
m msss
1
754
777
175220 x8x:
114
7
1
1150
7
1637
001234

Has
S1iess7 3319?
o1
nsi 003773
83?776 053

JMP

(SP) ,=(SP)

:GET PC OF RETURN

a(sP)+

:G0 TO SUBROUTI

#2.(5P)
a($P), (sP)
(SP)
#177001, (SP)
#.TRPTAB, (SP)
a(sP), (SP)

;ERROR HANDLER

BIT

BEQ
ISTB
B8PL
MOVB
BIT
BNE
CMP

ROy
CLRB

:=PC OF TRAP
:GET TRP
SMULTIPLY TRAP
:CLEARAnmmo
$S0INTER TO SUBROUTINE ADDRESS
*SUBROUTINE ADD

#SW12,3SWR

;BELL ON ERROR?

(8P).LSTERR
mn.t

SRECORD
:PREPAREBEING
HEADERWERE

XBX
@TPCSR
x%
#207,3TPDBR
#5u15,35uR
ugrs
(SP) ,LSTERR

B8R IF NO BELL
STTY READY
SDON'T WAIT IF TTY NOT READY.
SPUSH A BELL AT THE TTY,
:msr: RROR PRINT OUT?
BR IF NO PRINT OUT WANTED.
SWAS tu# ERROR FOUND LAST TIME?

CZOPE
MACY11 3(_)“105) 20-JUL-83
19-JuL-83 17:09
CZOPEC.P11
1156

004002

13:32 PAGE 33
END OF PASS ROUTINE

10“03

1$:

1155 004004 011
1139 332
162705 000002
1
012
0115
1158
014
gg:
1159
01
1
1160 004
1161 004

304
2704 mgm
mg ool.ogg
11544
1163 004032
012437
1%
1164 0040
81 437
1
1165 004042
011437 oom;
o:.g 105737 00135
1166

1167
05
1168
056
1169 004060
1170
1N

004062
oot.ogg

ng 0040
| 1173
004076
1174 8&"’0
1175
106
1176 004110
1177 004114
1178 38:1
1179
126
1180 004130
1181 oomg
m; 382“
18
144
1184 oou;s
1185 0041
m?
150
118
15¢
1188
156
1189
1
1190 88:1
191
1
mi 8821
119
1
119
“95

88:174
ooam

1198
1199
1539
1
1
1
1
1
}
1

1
1
4 13
4

1139

1533

SAVOS

MOV
SUB
MOV
ASL
ADD

ASL
BIC
ADD
MOV
MOV
MOV
TSTB

u;g;
005
004172
001040

13220
1

BEQ
ST
BNE

8%5
5

TYPMSG: TYPE
TYPE

885
0012
ST
001402
BEQ
1
w&g
TYPE
1
61
18:
TYPE
104411
004300
CNVRT
104402 00470
TYPE
104411
7
CNVRT
1
5
TYPE
112
1
001351
MOVE
005737 004146
ST
001
BEQ
10440
TYPE
ERRMSG: 0
WRKO, FM:

005737 004160
0014
1

ST
BEQ

174770

000042

RESREG: RESOS
MALTS: &n;

8PL
18:
PUSHRO
000002
(Y
HALT
POPRO
m
EXITER: INC
1247462
BIT
BNE
002000 174732
gg
MOV
1216 001214

381153

(SP) ,RS
#2.RS
(RS) R4
R4
(RS) ,R%

Ré
#177001,R%
#.ERRTAB,RG
(R4)+,ERRMSG
(R4)+,DATAND
(R4) ,DATABP
ERRFLE

TYPMSG
DATABP
TYPDAT
,MCRLF
.MCRLF

socx
3
.MASTEK
.MTSIN
XTSTN
.ntn::s
_ERT
nsu.r
#-1,ERRFLG
ERRMSG
WRKO. FM

DATAHD
TYPDAT

5m
DATAHD:
TYPDAT: TST
DATABP
BEQ
RESREG
soum
DATABP:

004172
002464

SEQ 25

18:

MOV

gem.mz

aswR

EXITER
2(SP) RO
ERRCNT

#5W08,
aSWR
1
guto.asua
NEXT ,RETURN

#STACK, SP

;SAVE ALL PROC REGISTERS

:GET THE PC OF ERROR
:GET ADDRESS OF TRAP CALL
$GET MLT INSTRUCTION
:MULT BY TWO
:DOUBLE IT
SMULT AGAIN
sCLEAR JUNK

:GET POINTER
;GET ERROR MESSAGE
;GET DATA HEADRER
:GET DATA TABLE
:TYPE HEADREER
‘BR IF YES
:DOES DATA TABLE EXIST?
:BR IF YES.

;SHOW IT

:TYPE PC.
:SHOW IT
:GIVE A CR/LF
SNO MORE WEADER UNLESS NO DATA TABLE.
:1S THERE AN ERROR MESSAGE?
:BR IF NO.
STYPE
i
ERROR MESSAGE
:
*DATA HEADER?
:BR IF NO
:
5
DATA HEADER
DATA TABLE?
:BR IF NO.
:
i
DAT. TABLE
*RESTORE PROC REGISTERS
S1F ACT=11 AUTO MODE==HALT!!

;HALT ON ERROR?

:BR vé' NO HALT ON ERROR
:SAVE RO
:SHOW ERROR PC IN DATA LIGHTS
:mfr
:GE
:UPDATE ERROR COUNT
:GOTO TOP OF TEST?
‘BR 3: vt;
:&ot"ug TEST?
;SET FOR NEXT TEST

:RESET SP

HAC"‘I
CZDPE
{CZOPEC.P
1210
1211

004264
004270

1213

004274

121;

1214
1215

1216

}g};

004272

A(lOS )
000177
000002

174724

006

002

003

002

000001

004276
004

001266
000001

004304

001226

004302

20-JUL-83

SEQ 26

13:32 PAGE 34
END OF PASS ROUTINE
28:

JMP
RTI

SRETURN

BYTE

6,2

XTSTN:

SAVPC
1

.BYTE

3,2

ERTABO: 1

TSTNO

:GOTO SPECIFIED TEST
sRETURN

CZOPE
MACY11 30A(1052) _20-JUL-83
{CZOPEC.PI
19-JuL-83 17:09

13:32 PAGE 35
END OF PASS ROUTINE

1219

;WAIT ROUTINE

1220 004306 000240
}ssg 004310 000207

SMALL:

1223

1229 006312
1227
1228
1229
1230

004320
004322
004326
004330

}ggz

004342

004336
004340

1235
1236
1237

004
004352
004355

1240

004373

1238
1239

12641
126§

1243

1264
1245

1246
1247
1248
1249
1250
1251

1 Si
1253
1254
1255

1256

004
00437

012737

000000
000005
012706
012737
10440
00435

004322
001150
004312

000024

.PFAIL: MOV
PWRUP:

000024

HALT
RESET
MOV
MOV

TYPE
MPOWER

JMP

#PURUP, 24
#STACK,SP
#.PFAIL 24

:
SWAIT TTY TO COME UP
sREINIT STACK POINTER
;LOAD PFAIL VECTOR FOR POWER DOWN

GRETURN

020040
005015
377

000077
000
053520

JASCIZ
MQM:
MCRLF: LASCIZ
02012; MPOWER: .ASCIZ

042

062113

MEPASS: .ASCIZ

<15><377>/END PASS CZDPEC /

040506
OZOOSg

015

046111
999

004400
004406

050040
055103

004416
004421

05137
377

000
051120

043517

MR:
MERR2:

LASCIZ
.ASCIZ

<377>/R/
<377>/PROGRAM INDICATES NO DEVICES PRESENT./

044777

051 ‘lg

043125

MERR3:

.ASCIZ

<377>/INSUFFICIENT DATA!/

052377

051505

020124

MTSTPC: .ASCIZ

1517

020113

MLOCK:

.ASCIZ

<377>/LOCK ON SELECTED TEST/

.ASCIZ

/CSR: /

004414

00“;2
0044
004442
004450
004456

00“%

040522
4504
2012;
05310
050040
05211

004476
004506
004512

65%6
020124
1

004470

004514

051501
050106

04210

020115
9503
316
1511
042522
000256
82458‘
05

047111
042524
042040
051505
042523
7105
0524

<377>/TEST PC~/

‘lgzg
1
1261
}222;

5
00454
004550
00455

117
1505
042526
6&3,

051440
526
0521 g

MCSRX:

1269
126
1
1269
1
1271

571
576
60
10
61

1
0351
51105
020072
126

051501

042523

MPASSX: .ASCIZ

/PASSES: /

051522

MERRX:

.ASCIZ

/ERRORS: /

020553

MTSTN:

.ASCIZ

/TEST NO: /

MASTEK: .ASCI;

—

\Ilg

051
2
NN

0475

8‘8105
020104
208%

126 041595 020072 MVECX: .ASCIZ /VEC: /

}Zzgg %%

VIO
NN
=2

%:Sst

02012
041505

VW
<15><12>
<377>/PWR FAILED. /

04 529

1 7;
127
1274

:LOAD PFAIL VECTOR FOR POWER UP

174646

004522

1258

sSTALL
sRETURN

000177

1257

NOP
RTS

;POWER FAIL ROUTINE

}%%g

1231
1232

SEQ 27

s e

Ww:

LASCI

/*/

<377>/SET SWITCH REG TO DUP11'S DESIRED ACTIVE./

NN
= WO

000

MERRPC: .ASCIZ

02%8%

MCSR:

.ASCIZ

'
0440

MVEC:

. ASCIZ

<377>/REC CSR ADRS /
<377>/VEC ADRS /

<377>/1S A MODEM WITH ANALOG LOOPBACK ENABLED CONNECTED? (Y OR N)

044126

MTCN:

.ASCIZ

<377>/1S THE H325 CONNECTOR ON? (Y OR N)

051120

047511

MPAR:

.ASCIZ

<377>/PRIORITY (4 TO 7) /

202
062523

020103

MSTJM:

.ASCIZ

<377>/SEC TX JMPR IN? (Y OR N) /

1505

051040

MSRJM:

.ASCIZ

<377>/SEC RX JMPR IN? (Y OR N) /

8;812%

XHEAD:

.ASCIZ

<377>/MAP OF DUP11 STATUS/<377>

PRRERP

b \ ) b
-

OQ&

020051
377

=]
W

451

-222S

LYY

OO0

onN

<377>/1S THE OPTIONAL CLR JMPR IN?

o
w
SO O~N—
P —]
WSS
N) = S =2
[- X=1=1,¥1.
XL g

.ASCIZ

314 Ogggg‘

22 982

-.5
o

[=1=]

SRR T

—

(Y ORN)

MJMPR:

QONNOW

RAR
&0
N

—d e e

SR OSSN

=2 =2

MMODEM: .ASCIZ

/P;: /

g® - b b )

OO0

- NN

RRBRRARADE

:U' —.ug\fl-‘d-fl“-flu

NN
= O =

§~2~

d ) b b b ) OESNINON

b
=D

\V 1V ]

®
*

2&
s882
SFBRF REEEL
S

b =-

VONOWVSWN=O

W NN N W W

0000

Wi W

) e o e ) o D e wd D ) D b D
—d

13:32 PAGE 36
END OF PASS ROUTINE

g g B o
8“533
8‘ Ség 4
041501 044526 042

$552SRESEEYITITRIR
LT L BISHRRERSIS

D D e b D D d =D b b b b — ) ) D i cd ) D D oD D e NN
D ) D NN
) D D ) NN
) D D D i D d

CZOPE
MACY11 30A(1052) _20-JuL-83
{CZOPEC.PI
19-JuUL~83 17:09

SEQ 28

MACY11 ;(_)A(WS) 20-JUL-83
CZDOPE
1 JUL-83 17:
7:09
ZOPEC.P11

‘lgg

005321

%77

1338

00537;

020049

1340
1341
136;
1343
1344
1345
1346

005402
005410
005416
005424
5635
00544

051504
047101
047502
03751
05111
0

1347
1348
1349
1350
1351
Hg%

005442
005444
005“8
00545
005452

000002
006
001236
006
001240

1354
1355

005454

000000
005516

51101

1356

1357
1358
1359
}332(1)

00537

005516

005560

005622

377

000000

005560
000000
005622
000001

080

051101

020103
201
6126
26040
7060

003
002

SEQ 29

13:32 PAGE 37
END OF PASS ROUTINE

8(23105

MALLJM: .ASCIZ

0%01 0S

MDSC:

‘} 3 882 34 0“52‘ 20} g 0?02
%mawmm
1336
005%56 §:91
n 28097 3“50
1337 005364
7440 020122 024516
1339

020061
0
04444
020131
O

JASCIZ

<EVEN
XSTATQ: 2
BYTE
TEMP1
.BYTE
TEMP2
.EVEN

TEMP:
.=. 440

MDATA:

0
O

.=. 440
INBUF: 0
.=, %40
TRP.PC: .BLKW 1

<377>/ARE THE DEFAULT JUMPERS ALL IN? (YOR N)

<377>/ARE DSC 1 AND 2 BOTH IN? (YOR N)

6.3
6.2

A(1052) 20-JuL-83
83 1 7:09

13:32 PAGE 38
END OF PASS ROUTINE

dd;dddddddddd
w
SSBgELEEE &8 £EIIT Non SILLELES&

C
|{CZOPEC.P1

SEQ 30

;ROUTINE USED TO ‘'CYCLE'' THROUGH UP TO EIGHT DUP11°'S
sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
THIS ROUTINE +MUST+
sAND RUNS THE SPECIFIED DUP11°'S.
sBE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE

S BB S8 OH LSSV
P R
e
OO

SEERRR FRNSSSS

8333888
8388388838888383388338383
P
e e
o cmd D
md D md h o ) e d ik d b D =
e

3888
11
X8 X wEER

-MAP,RO

MoV

HUPRCR,RXDBUF

sARE ANY DUP11°'S TO BE TESTED?
:BR IF OK.
sNO DUP11°'S SELECTED!!
sSTOP THE SHOW.
sDISQUALIFY CONT. SW.

sRESTORE POINTER.

sLOAD SYSTEM CTRL. REG
sLOAD VECTOR
sGET_PARAMETERS
sSAVE CORE THIS WAY!
sGET CONTROL REG HIGH BYTE
sGOT IT

;GET RX CONTROL REG BUFFER

RXDBUF
RXDBUF ,DUPSEC

:GOT IT
;GOT SECONDARY REG SELECT REG

;GOT PARAMETER STATUS REGISTER
;GET RX BUFFER HIGH BYTE
:;GOT IT

INC

RXDBUF ,PARCSR
RXDBUF ,HUPRBF
HUPRBF

HUPRBF ,HUPPSR
HUPPSR.TXCSR
TXCSR
TXCSR,HUPTCR
HUPTCR
HUPTCR,TXDBUF
TXDBUF
TXDBUF ,HUPTBF
HUPTBF

:GOT PAR STATUS REG HIGM BYTE
:GET TX CONTROL REGISTER
2G0T IT
:GET TX CONTROL REG HIGH BYTE
2G0T IT
;BET TX BUFFER
:6OT IT
:GET TX BUFFER HIGH BYTE
:6OT IT

MOV
ADD

Dg’RVC ,DUPRPS
RO,DUPRPS

;RX X VECTOR
sRX PRIORITY LEVEL

ADD
MOV
ADD

pUPTVC
DUPTVC ,DUPTPS
RO, DUPTPS

:TX VECTOR
:TX PRIORITY LEVEL

MOV
MOV
MOV

#L00.00,R0
#MASK.A R
ccuz.A.gs

:LOAD STAUS 00-00
*PREPARE MASK.
*PREPARE CLOCKS

zguol.asm

:1F SW01=1,GET STARTING TEST #

TYPE

+MCRLF
;OUTPUT MESSAGE & GET INPUT STRING

MOV
MOV
INC
MOV
INC
MOV
INC
MOV
INC
MOV

JSR

173072

DUPACTYV
1%
-MERR2

(RO)+,RXCSR
(RO)+,DUPRVC
(R0)+,L00.00
#2,R0O
Wémma

MOV
MoV

BBDDDD

g2
SZI3R8NS

383
NOWVMS WNN=O

dddflddg

888%$32

)
& & 8 SS8
D md ad =D
b = acd
b

WOAWN

000000

0
W

b b b b b -

) b b D D b D D b
)
e

) b
)o
o~
¥
¥
— i ) andd
F X R ¥
R

1ST8
BNE
TYPE
HALT
BR
MOV
MOV
MOV
MOV

>
N

) b b b b—
WWWWW
o|

sSETUP NECESSARY.

INSTR

MTSTN

g#”S DUPTVC

PC.FIX.

;MESSAGE

26O AND CALCULATE CONFIGURATION.

e
ICZDPEC.P11
CZDPE

3N
N
JUL-8

)

08817205 083

13:32

PAGE

13800 OF PASS ROUTINE
CONVERY S!RING

104405
00000
001
001

1418
1419
1430
1421
142%
1423
1424
1425

006122
0061
0061
0061
006132
006133
006134
006140

1429
1430
1431
1432
1433
1434

006156
006164
006166
006172
006176

#TSTNO,4 (RO)
63
RO,RETURN

h
1433 00653

(RO)+
RO,#TLAST+10
5$

1426
1427
1428

1438
1439
1440

1441
1442
1443
1444
1445

006144
006146
006154

stoW LIMIT

L
LINMIT
HIGH

:STORE AT THIS LOCATION
s MASK
; HOW HANV TIMES ¢+ 2
#TST1,R

001
012700
022710
001017

012737 (n0)

6$
ZiTND.Z(RO)

+MCRLF
MR

006214
006220

006222
006230
006234
006236

sSAVE PC

006364
172760

#TST1,RETURN
SRETURN

sPREPARE RETURN ADDRESS
;GO START TESTING.

(RO) ,R3

sGET PARAMETERS.

CZDPE

;) 28;JUL-83
MACY1 30A(105
19-JuL-8

|CZDPEC.P11

13: 32 PAGE 40
END OF PASS ROUTINE

sTHIS ROUTINE PICK S UP THE ADDRESS OF

1464
T4
1448

:THE JUMPER TABL AND OL &D‘S RS WITH

BFHS CORRECT DATA BASED

THE JUMPER AND CONNECTOR FLAGS.

)

—3

ZERRZZEEE~
maavo-oo

SEIRIARLL
§588R28ITIIIIAL

1449
1450
1451

e e = sI

SEQ 32

001324

(R1)+,R0

sGET THE TABLE ADDRESS

BE
1518
BEQ
MoV

28
OPCLRJ
43
(RO) RS

:BRANCH IF CMCYU IS MISSING

:BRANCH IF JWEN IS MISSING
MVE THE DATA TO RS, BOTH JUMPER

JNP
CMP

5%
(RO)+, (RO)+

:POP_POINTER

BEQ

]

JUMPER: MOV

TSTB

001325

2s:

1ST8

Jflg

38:
58:

MOV
RTS

OJUMPER :MOV

TST8

BEQ

48:
6$:

MOV
JMP

cMP

MOV

RTS

TCNFLG

CLRJ

(:0).'!5

;TEST THE TURN AROUND CONNECTOR FLAG
sTEST CLEAR JMPER

AND CONNECTOR ARE THERE

STEST CLEM JDER FLAG
sBRANCH IF
SING
:MOVE DATA- JWER IN, CONNECTOR OFF

(RO) +,R5
R1

sNO CONNECTOR OR JUMPER

(R1)+,R0

sGET THE POINTER ADDRESS

(13

BR IF MISSING

TCNFLG

sRETURN

;CHECK FOR TURNAROUND CONNECTOR
MOVE Elf INFO TO RS

(RO) RS
6$

:GO BACK

(RO)
RS

:LOAD DATA TO RS

(RO)+, (RO)+

:POP POINTER

JRETUN

:ROUTINE TO SET UP INTERRUPT VECTORS

SETVEC: MOV

MOV

MOVB

MOov8
RTS

FLAG

(RS) +,3DUPRVC

(R5)+.DUPTVC

(R5)+.aDUPRPS

'(!I;S)O.WWTPS

NO.ATRAP:
HLT
RTI

NO.BTRAP:
HLT
RTI

(105 ) 20°Jll-83

MACYN
CZOPE
{CZOPEC.P

13:32 PAGE 41
END OF PASS ROUTINE

Jernternenereaveceeeeenntns TEST | evvtetctetneenacteeeeaeaces

-ruxs TEST PROVES THE mrmmou OF DTR!RTS!STD
teWITH RING,DSR,CTS,CARDET,STD,SRD

S«AND DATA SET CHANGE ONE AND DATA SET CHANGE TWO.

t«SET THE BIT AND venm THE omen BITS ARE SET. CLEAR
-me BIT AND VERIFY CLEAR. REPEAT FOR MRESET.

i iiiddddd

t...Q.Q'ttt'.i.......Q..'t"'...."tt'..Q"'.tt.."t".t...".....'t

ST‘I

:SAVE

:H325 TEST CONNECTOR ON?

:IF NO, SKIP TEST.

dma G

oOOm®

001340

101s:

006740
001346

102$:

006734
006736
006306

12%:

172654
00

172636

C‘)fi ?%66}8 668:
172610

18:

678:

1ST8

006736
006740

004000

1008:

002010
001336

0100?0

#TST2, NEXT
#173017,-(SP)
#173001.=(SP)

-(sP)
zam
TCNFLG

001344

00141

#1,34TSTNO

73017
300
001 016
000000
001324

1226

001216

TEST 1

OO- 1ML !sifl,. oS3
SRepeIezoon
g;f5f5 ;E-ufllfllflha{dqg
a;f\f‘f‘

764

RRRY

) bt be b0 & N

N=NNNN

NNN

pry

OO0O0O0O

~rn

NNNN

000

S
b B

RRRS SSRRR oo8ala228s8ee
EE.. x:-b =2 \N\un $23 82228
S3SELES
S
TN
ud
o
=
n-!w‘(‘w&&&&ws
iEo = NN8 FSE
g RRRRY E8ER ¥SR
b

g8ie R
2

d el e

md o -

) b b

D d b e b d D b = —d ) ad cd ) b ) b b D b b b b b b b b =
VIV VTV
T VTV VAW
VIV
D D
D d e
d d
b
b
— e

000001

q.
.o Qe %e % .0

tt't'.t.t.....'.".t......'.....'..'....'.Q'Q'QQQ"."'Q.Q.."

) ) b

L3 38 33 33 StWRZEYYahfi‘FU“U-‘80“%\”5 oSSR SRARAR2882

149
149
1694
1495
14
149

SEQ 33

7842

R1,0JUMPER

.
MSET..TXCSR

sTHIS CALL DETERMINES IF TURNAROUND CONNECTOR

AND OPTI
JUMPER ARE USED
AND LOADS R (EXPECTED) ACCORDINGLY.
sRESET THE DEVICE

HM! FOR RESET TO FINISH

RXfSR
sLOAD THE RECEIVER CNTI& REGISTER TO R3.
#MEXT ,@TXCSR
ENTEI EXYEM MAINT. MODE
”13'2;3'570.(!3)
TURN ON DTR!RTS!STD
it
:antu.mm
ogm.atxm
¢
(PC)+

;é“’ THE NUMBER
;CHECKTHE TIMER BIT
:BR IF SET
SCHECK THE BIT

*BR IF CLEAR
*DECREMENT THE NUMBER

CZOPE
MACY11
(1052) 20-JUL-83
ICZOPEC.P11T
19=JUL-83 17:09

1543

006616

688:

ooo11g

006640 042705

073016

1556
005013
38:
1557
015737 000005 006676
1558 006654 032777 004000 172540 718:
1559 006662 001374

1560
1561
1562
1563

006664
006672
006674
006676

032777
001774
005327
000005

1568

006710

104003

1570
1571
1572
1573
1574
1575

006712
006716
006722
006726
006
006734

012637
012637
012637
012637
104400
173017

004000

172530

1576
1577
1578

006712

736
006740
006742

728:
738:

1564 006700 001365
1565 006702 011304
1566
704 020504
706 001401
1567
1569

SEQ 34

13:32 PAGE 42
END OF PASS ROUTINE

1549 006620 00136
2 811304
1550
6 020504
1551
1ss§ oou%g 001401
1553
006630
104003
1554 006632 012737 006644 001220 28:
1555

6S:

006742
006740
006
006734

78:

173001
001016
000000

110

:0F TIMES TO REPEAT

BNE
MOV
CMP
BEQ

(1]
(R3) ,Ré
RS,Ré
gs

MOV
BIC
CLR
MOV
BIT
BNE

#3$,L0CK
;SW09 SETUP
#RING'!CTS!CARDET!SRD!DSR!STD!RTS!DTR RS
(R3)
:CLEAR OUT THE REGISTER
#5,73$
:LOAD THE NUMBER
#TIMER,3TXDBUF ;CHECK THE TIMER BIT
718
:BR IF SET

BNE
MOV
CMP
BEQ

718
(R3) ,Ré
RS, Ré
gs

MOV
MOV
MOV
MOV
SCOPE
WORD

(SP)+,78+6
(SP)+,78+4
(SP)+,78+2
(SP)+.7%
73017

HLT

BIT
BEQ
DEC
S

#TIMER,3TXDBUF
728
(PC)+

HLT

JWORD
JWORD
LWORD

:BR IF MORE TO GO
:cgr THE BITS FROM THE RXCSR
*R5=GO0OD Ré=?
:BRANCH IF THEY MATCH
*NO MATCH = SHOW OPR.

:CLEAR OUT UNWANTED BITS

;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
:OF TIMES TO REPEAT

:BR IF MORE TO GO
:ag» BACK THE REGISTER
*R5=GOOD Ré=?
:BRANCH IF ONLY THE DSC BITS ARE SET
:NO-GO TELL OPR

:RESTORE

:SCOPE THE WHOLE TEST

173001
1016
O

1581

JRRRARARRAAAAARARCARARAANCAY TEST 2 I 22 2222221223322 222222233¢2]

158

:«PATTERN WITH A CRC CALCULATION AS A SECONDARY STATION

1sa§

s«TEST OF THE DUP RUNNING A BINARY COUNT

15“
1585

4 - ' 3333332333332 2223283233333¢22233323233333311333 3333333333333 33343}

1586

JINRARRRRRRNNS

1588
1589

: TEST 2
:

1587

1590
1591

1592

006744

012737

1593 006752 012737
1594 006760 052777
1595 006766
004737
1599 006

001226

10033 001 13
17243

JrenRARRRAReS
. :ttttt'tttttt.tttt.ttttQQQttQQ.ttt.Qtt.Qttt.'ttttt'tl'tt.t"t...t'..t

TST2:

105737 001324

MOV

MOV
8IS
JSR

1ST8

#2,MTSTNO

#TST3, NEXT
#MRESET,3TXCSR ;RESET THE DEVICE
PC, SMALL
:w,\y FOR RESET TO FINISH
vsms

*H32S TEST CONNECTOR ON?

%3
7104
1
O?“O; goooomg
}233
1599 005000
83
81?;7
831244
1028:
MOV
CLR
ogt
00
1600 007014

}ngr 1038+2
#5,
TEMPS
R

}; 'fe’i egét MAINT
‘
:CLEAR OUT DATA

1603

CALBCC,

sALLOW FOR THE NEXT CHARACTER

1601 007016 012737 10 179
uog 007024 81 737 17

0070

13737 010024

100
10024

054 168:

MOV
MOV

MOV

#CRC.CCITT, XPOLY:SET UP THE POLYNOMIAL
#-1 mssg
sSETUP FOR THE FIRST TIME

MACY1 30A(105§)‘7?8;JUL-83

CZOPE

19-JuL-8

007040
4

13: 32

PAGE 43
END OF PASS ROUTINE

R1,178
RS.SIMBCC

80reie
o
888800

b
s
b
e
e
e

SReseseRas

SSEER

—

:LOAD DAT

cgsm;xmm

RS,SETVEC

:LOAD INTERRUPT

340,340

°LEVE

;RECEIVER
TRANSMITER

052777
12777

000020
000400

172162
172156

2s:
-

0;3737
032777
001374
832777
1774
005327

000005
004000

7274
172142

004000

172132

§§
\¥,]

18:

668:
678:

172104

38:

007
007310
007314
007316
007322

104004
105777
100353

005077
052777

ISTB

MDMFLG

.mosn CONNECTED?

MOV
BIT

CTSDLY, RS
#CTS,BRXCSR

SWAIT FOR CTS
:CLEAR TO SEND UP?

BEQ
MOV
MOV
MOV
BIS

BNE
DEC
BNE
DEC
BNE
HLT
BR

1048
SIF NO
REPEAT,R3
SREPEATCTSOLY
mxt.irxcsa
SSET emm MAINTENANCE
DELAY,73$
SSET TIMER
#DTR!RTS ,@RXCSR;ENABLE MODEM.
104
1 58
R
1068

:IF YES, BR.
*STEP COUNTER IF NO.
:IF NO TRY AGAIN.
SALLOW CTSDLY TO REPEAT
:BR IF NOT COMPLETE
$CTS STILL NOT ACTIVE
:DO NOT CONTINUE TEST

AR RARAARNARRRARANRRAARRRRARAARRRAAAARANARRRARARARARAAARARNAARGAAAAACAAAACCAANCCARROEONS

foes:

cOo==0

N
N

007244
0072
007252
007260
007
007
007

1068:
105$:

172176
172170

wviun

007230
72

172222

000020
000100
172172

292
NN
S
W

17225

888888 88
SIS

oo~

VIS
N =

2$§&°3°$°3°
SOVRISARUR SERARRRRRRRR
b =D
b
b e ed b
b e

:BR IF noas T0 GO

tt...t.t'.'.ttt.t.'.Qt'Q"'Q.Q.Q.Q.i.Q'.ti.Q.Q.tt.....'.'..'Q.Q'....'tt.'.i."'..'..

68$:

1658
1659

.lncnensm DATA

osvsfsr STXCSR :ENTER SYSTEM TEST
MODE
VECTORS

103s:

0013637 244
163 Qorare
8853
7
001
165§
1654 007304 081001
1655
1659
1657

mvxous BCC

n tsm

.BYTE

b
—

164
1644
1645
1649
1647
1648
1649
1650

iininbdn
bt
L L L
L
;#«FOLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED*+

—

b e

i
e
i

177776
172310

*BASED ON THESE PARAMETERS

)

168

001236

:LOAD DATA
*GO CALCULATE SOFTWARE BCC

VOONO
VS WN=O

o
o e

i cd

CZOPEC.P11

SEQ 35

172100
000100

172070

48:

BIS

#RCVEN,IRXCSR

:TURN ON THE RECEIVER

BPL
BIS
MOV
MOV
BIT
BNE
BIT
BEQ
gec
BNE
DEC
BNE
HLT
1ST8
B8PL
CLR

1$
#SEND,ATXCSR
#TSOM.ATXDBUF
#5,68$
#TIMER,3TXDBUF
668
#TIMER,@TXDBUF
678
(PC)+
668
TEMP4
3s
4
mgsa
101
aTXDBUF

*BR IF NOT SET
:TURN ON SEND
:TURN ON START OF MESSAGE
:LOAD THE NUMBER
:CHECK THE TIMER BIT
:BR IF SET
cuecx THE BIT
:BR IF CLEAR
-oecuenem THE NUMBER
SOF T,MES TO REPEAT
*BR IF MORE TO GO

BIS
TSTB

8IS

#RINTEN,SRXCSR :TURN ON REC INTERRUPT ENABLE
@TXCSR
STEST FOR TX DONE

#TXINTE,QTXCSR

:WAIT FOR DONE

:BR IF NOT SET
wsu OUT DAT

:TURN ON mwsmmn INT ENABLE

CZOPE

MACY11_30A(1052) 28;JUL-83

ICZOPEC.P11

}ggg
166%

1663

1664
I“S
1666
1667
1668
1669
1670
1671
1672
1673
1676
12;2

19-JuL-83 17

88;%332
007334

007340
007342
007350
007356
007
007370
007372
007374
007376
007400

005037
105737

SEQ 36

13:32 PAGE 44
END OF PASS ROUTINE

”

177776

CLR

:LOWER PROCESOR STATUS

ttttttttt.t.tttttfittt.'Qt'tttttttttt'tttQtttltQQt'ttt".tttt'Qtttt't'tttt"ttt'

ISTB

001342

MDMFLG

:MODEM FLAG SET?

001003
BNE
718
:IF YES, BR
ttttttttttttttt.tttttttttttt.'tttttltttt'tt.ttt.tttttttittttttttt.ttttttttt"'t
012737 000040 007372
MOV
#32.,738
:LOAD THE NUMBER
#TIMER,STXDBUF ; CHECK me TIMER BIT
BIT
032777 004000 172044 718:
001374
BNE
718
:BR IF SET
32777 004000 172034 728:
BIT
#TIMER,3TXDBUF ;CHECK THE BIT
001774
BEQ
72%
:BR IF CLEAR
005327
DEC
(PC)+
:DECREMENT THE NUMBER
0
738:
32.
:OF TIMES TO REPEAT
001365
BNE
718
IF MORE TO GO
104004
HLT
A
sFAILED 7O INTERRUPT IN TIME
:SCOPE THIS TEST
SCOPE
68:
104400
; INTERRUPT SERVICE ROUTINES

}g;;

1679
*RECEIVER:
1680 007402 017737 172006 001326 11$:
MOV
1681 007410 123737 001240 001326
CMPB

@RXDBUF ,DATA

:GET THE REGISTER AND DATA

1684 007422 105237 001240
1685 007426 105737 001240
1686
007432
001005
1687 007434 004537 006332

INCB
IST8
BNE
JSR

.+
A

TEMP,
TEMP
78
RS,SETVEC

:BR IF OK
:COMPARISON ERROR

.BYTE

340,340

1682
1683

007416
007420

001401
104004

BEQ
HLT

1688
1689

007440
007442

007554
007450

148
12%

1691

007446

000002

1690 007444

1692

340

RTI

1693 007450 113777 001236 171744
169
1695

1696
1697
1698
1699
1700
1701
1702
1703

007456
007

007470
007472
007500
007502
007510
007516
007520
007526

105237
2737

001026
012777
oool.;;
012777
012777
000413
012777
000240

:TRANSMITTER:

128:

0012
000377

001236

007502
000377
007520
001000

171706
171712 21$:
171670
171674 22%:

1705 0075
007532 ooo;:;g
042
000120 171660
17064

1706 007540
1707
mg
1708 00755
1709
1710 007554
1711
007562
mg 007
7
7570
1714 oorsrg
1715

00760

015
006360 171640
012716 007334
138:
117737 '"3‘ 001326 148:

105777

171624

100375
117737 171620 001327
012716 007604
2

TEMP2,DATA

sCHECK IT

CO(.NT UP EXPECTED
:CHECK TO SEE IF DONE
:BR IF NO
:YES=--RESET THE VECTORS
*RECEIVER
sTRANSMITTER

:LEVEL

*RETURN

TEMP1,3TXDBUF

:;LOAD THE TRANSMITTER BUFFER

m
#218,3DUPTVC
$
om.arxoaur
2s.aourrvc
138
#TEOM,ATXDBUF

‘B8R IF NO
:SETUP FOR NEXT PART
sLEAVE
:LOAD BUFFER
:SETUP NEXT PART
sLEAVE
:SET END OF MSG
s AI.I.

INCB
CMPB

rgm
#377.TEMP1

BIC

osswrxmrs mtsaruan orr TRANSMITTER

RTI

:RETURN

BNE
MOV
BR
MOV
MOV
B8R
MOV
NOP
NOP

:UP_THE COUNT
ARE WE DONE

MOV
#NO.BTRAP,3DUPTVC ;LOAD
VE
vc
MOV
#58.(SP) °
chunu
RTI
:CRC CATCH INT SVC
MOVE
@RXDBUF,DA
.ser FIRST PART OF CRC
TSTB
@RXCSR
WAIT FOR SECOND PART
B8PL
.4
‘DITTO
MOVB
@RXDBUF ,DATA+1 :GET me REST OF THE CRC
MOV
2158, (SP)
.serup FOR RETURN

MACY11_30A(1052) _20-JuL-83
CZDOPE
CZDPEC.P11
19=-JuL=-83 17:09
000340
010024
010026

777
737
7

000400
004306
007400

001401

177776

PAGE 45
END OF PASS ROUTINE
158:

001326
171562

MOV

#340,PS

;RAISE PS

BEQ
HLT
BIS

. +4
&
#MRESET,@TXCSR

:BR If OK
:BCC COMPARISON ERROR
;RESET THE DEVICE

COM
(MP

JSR
JMP

SIMBCC: MOV

P e

1$:

N
&~

2
N

‘:J‘

N oNroO

BIC
BIC
BIS

001242

010024

XPOLY:
BCCFBK:
CALBCC:

#81T0,RO
2

RO,BCCFBK

TEMP3
accrgx RO
TEMP3,R1
R1.R
R1.R
BCCFBK,R2
R2,

xpou.rgnps

BIS

RO, TEMP

BNE
MOV
MOV
MOV
MOV

1$
TEMP3, CALBCC
(SP)+.R2
(SP)+.R1
(SP)+.RO

DEC

L=]

013737

purs

W
W
~

2
S
W

ég322

BIC

RTS

*WAIT FOR RESET TO FINISH
:LEAVE

Rl.'(SP)

BCCFBK
XPOLY,RO
RO

ROR
MOV
MOV
MOV

: INVERT BCC
:COMPARE SOFTWARE AND HARDWARE BCC

RO,=(SP)

COM
MOV
COM
cLe

001242

PC,SMALL
&%

R2.=(SP)
(RS)+, TEMPI
(R5)+.TEMP
(R5)+, TEMP
BCCF
TEMP3,RO
TEMP2
RO

BIC

8
~

28:

CALBCC
CALBCC,DATA

MOV
MOV
MOV
MOV
CLR
MOV
ROR
ADC
BIT
BEQ

S S
3

VN
=
WA

D d D d d =D D
NNNY

b e e b d =D D d d D wd D d d b e
~ SN ~

862 7
005137
023737

SEQ 37

13: 32

8coocooco

g
Sttt o
i

®N

007624

UWNN=OO

AR
o
3 ’th\s: NI JedgisiieidoidyNaS
IS
3333 &FOFSRATIIIINY

719

007604
007612
007616

288888
SRRRR

dddddddddddddddddfldd‘dddddflddddddd

716
717
718

TEMPT

CRC16=120001
CRC.CCITT=102010
JeternRtektneeneteaenennnns TEST T annantntttnttttARRCCRNARCRESY

s*THIS TEST PROVES THE DEVICE WILL HANDLE THE

s*DDCMP PROTOCALL. SEND AND RECEIVE SYNCS,
s*FOLLOWED BY DATA,BCC,DATA AND FINAL BCC.

::..QCtt'.t.'..Q"tt.Qt"tt..t't.'.t..l.'QQ.Q..Q'.'.'.'.'..'...Q

CZOPE
MACY11_30A(1052) 20°JUL-83
ICZOPEC.P11
19-JuL=83 17:09

13:32 PAGE 46
END OF PASS ROUTINE

1772

JINRRRRARRANNS

1774

: TEST 3

1773

1775

; 11121113111}

1777

1778 010026 015737

R 1233132233222 222322222 22322tz i23i233233323 3323332323222 2022434%12)

3 001226 tsT3:

MoV

1779 010034 012737 002352 001216
1780 010042 105737 001324
1781 010046 001403
1782 010050 012737 010000 010144
1783 010056 012737 000340 177776 101$:

MOV
TSTB
BEQ
MOV
MOV

1786

010072

010450

1789
1790
1791

010102
010106
010112

005037
005037
005037

1784
010064 004537 006332
1785 010070 010626

1787 010074
340
340
1788 010076 005037 001236
010116
010122
010130

005037
052777
004737

0012
001242
001244

JSR
108

171270

1798

010142

052777

004000

171250

1799

1801
1802

010150
010154

105737
001427

CLR
8IS
JSR

TEMPS
onnssst.atxcsa
SMALL

coécnoo'ze.avnncsn

:LOAD THE MODE AND SYNC CHARACTER

BIS

#SYSTST,ATXCSR

:ENTER SYSTEM TEST MODE

013737

TEMP.
TEMP
TEMP

;RESET THE DEVICE
*WAIT FOR RESET TO FINISH

001314

MDMFLG
103$

:MODEM CONNECTED?
:1F NO, BR.

MOV

0nExr irxcsn

010422

SSET EXTERNAL naxnrsuxnnce

BIT
BNE
DEC
BNE
DEC
BNE

#CTS,3RXCSR
1038’
R2
1048
R3
105$

MOV

1808
1809
1810
1811
1812
1813

010210
010216
010220
010222
010226
010226

032777 020000 171176 104$:
001006
005302
001372
005303
001366

1806
010176 052777 ooooos 171206 1058: BIS
1807 010204 013702 00131
MOV

010230
010232
0102

3‘

010234
010242

104007
000476

052777
052777

010306

000030

HLT
BR

REPEAT ,R3
DELAY

*REPEAT CTSD

:SET TIMER.
oora'érs
aRXCSR
;ENABLE
MODEM.
CTSDLY,R2
SWAIT FOR CTS

7
1

:CLEAR TO SEND UP?
:IF YES,BR,
:STEP COUNT IF NO.
:TRY AGAIN.
SALLOW CTSDLY TO REPEAT
*BR IF NOT COMPLETE
*CTS STILL NOT ACTIVE
:DO NOT CONTINUE TEST.

1a;;tttttttttttt'tttttttttQQttttttQttt'tttttltttt'tttttttttttt.tttttt.t.tit't'tttttt

000420
000020

171150
171150

1820 010250 012777
000426 171144
1821 010256 012737 000030 010306
1az§ 10264 032777 004000 171130 66%:
1823
010272 001374
1824 010274 032777 004000 171120 67$:
1825 010302 001774
1826 010304 005327
1827

:PARAME TERS

TSTB
BEQ

MOV

010170

1818
1819

: THESE

tttttttttttittt'tttQtttttQ'tttttt'ltt.tttttttt.ttttQ.tt.t.tttt"'t'tttt'it'tttttt'.

001342

1805

1817

:SET
UPVECTORS
*BASED ON

--roLLouxuc CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED*+

1804 010162 012777 010000 171230

1816

:IF NO, BRF
:IF YES, SET MAINTENANCE
*RAISE PROCESSOR STATUS

t.tttt'.tt'tttttt.t't't.t""t'tttfi.fittttttttttttt't..fittttt.tt.tttfitttt'tttttt'.tt'

1803 010156 013703 001310

1814
1815

RS, sérvec

:H325 TEST CONNECTOR ON?

340,340
TEMPI

CLR
CLR
CLR

001246
000400
004306

#3,34TSTNO

#.EOP,NEXT
TCNFLG
1018
MMEXT,1028+42
#340,PS

.BYTE
CLR

};32 8}8}23 012777 100026 171254 a— MOV
1797

SEQ 38

;

1776

1792
1793
1794

688:

8IS
BIS

MOV
MOV
BIT
BNE
BIT
BEQ
DEC
30

#RCVEN!STPSYN, 3RXCSR
#SEND . aTXCSR

.LOAD RCVEN!STPSYN
TURN ON TRANSMITTER

#TSOM! 26, 9TXDBUF
SOUTPUT A SYNC CHAR
:LOAD THE
NUMBER
#TIMER, aTXDBUF cuscx rns TIMER BIT
668
:BR IF SET
#TIMER,3TXDBUF :CHECK THE BIT
678
*BR IF CLEAR
*DECREMENT THE NUMBER
(PC)+

#30,688

SOF TIMES TO REPEAT

D D d
D e
)

=l=l=l=]

010
010370

010372
010400

BIS

CLR

;BR IF MORE TO GO

;EXTERNAL CLOCKING STOPPED
M!
26 ,aTXDBUF
#TSO
@TXCSR
;CHECK DONE
:BR IF NOT SET
698
#TSOM!26,aTXDBUF~
:SEND SYNC

#RINTEN,SRXCSR ;TURN ON INTERRUPTS

#TXINTE.TXCSR

:DITTO

:LOWER PROCESSOR STATUS

perd

010422
171014

728:

171004

738:

d
e e

D e

TSTB
BNE

MDMFLG
728

MOV

#100. ,74$

BNE
BIT
BEQ

728
#TIMER,3TXDBUF
738
(PC)+

:MODEM FLAG SET?
:IF YES, BR

:;tt'ttttt.ttttttttt.t.'t".t*ttttttttt't.t.ttit.tttt"t".'ttt'i't.tt.tt.'tttttt

748:

BIT

DEC
100.
BNE
HLT
BIS
JSR
MOV
SCOPE

170762

d b d ed

#TIMER,3TXDBUF

728
5

#MRESET,@TXCSR
PC, SMALL
#STACK,SP

:LOAD THE NUMBER

;CHECK THE TIMER BIT

:BR IF SET
:CHECK THE BIT
*BR IF CLEAR

:DECREMENT THE NUMBER
:OF TIMES TO REPEAT
:BR IF MORE TO GO
*FAILED TO FINISH TEST
;RESET THE DEVICE
:WAIT FOR RESET TO FINISH
*RESET THE STACK
*SCOPE THIS TEST

: INTERRUPT SERVICE ROUTINES
170744

O0OOOOCOO0O0000

: TRANSMITTER

001236
170714

NN
N
N NN W
NN
- NNNN
~
W
~

N =N WVIWNO NN
NOMNLNLO

8
—

20
S
°8-'-‘°
O=ONO=O
OO
==

&»H
N

[+ X 3

o
-

—2

N
}2 v
&» O

=lelelelelelelelelelel=la]

d
d e e
—

% gm-mmw
3

~
N

s e
i e e o
e o
b o
d d e o

514

h e

OO0

SEREREE

BM]
HLT
MOV
TSTB
BPL
MOV

@TXCSR

.' 3 tttttttttttttltttttlttttttiQt'tfittt'.tttt'tttt.l*t't'I.ttt't"ttttttt'tt'ttt'

D e

66$

BIS

—

BNE

TSTB

698:

]00 00 0o 0o Co
»® ;dflddd-‘-‘ddd-‘—‘ 0o
R
R
AR
AR
R
R
R
R
R
R
RRR
33
NN NS
g
G
~Noewn
VoO~NONW SUWNN=OVONOWVISW nN=o0s B3
33 ~
o0
&SW

0
0

13: 32 PAGE 47
END OF PASS ROUTINE

171102

0
0
0

1829

1
1831
1832

010310

pur ury

238

MACY11 30A(1052) 20=JUL-83
CZDPE
19-JUL-83 1 7:09
{CZOPEC.P1

SEQ 39

170720

28:

38:

001236

010526

170662

001000
010544

170666
170644

48:

001240
001240
000100

170650

5%:

001240

010576

170612

1000

170616
170606
170566

68:

MOV

MOV
BR
MOV
INCB
(MP8
BNE
MOV
BR
MOV
MOV
BR
MOV
INCB
CMPB
BNE
MOV
BR
MOV

BIC
MOV

#252,3TXDBUF

#26, TEMP1

;LOAD FIRST DATA CHAR

1 PAD DATA

#3$.aDUPTVC
;RELOAD VECTOR
:LEAVE
73
:MOV DATA TO BUFFER
TEMP1,3TXDBUF
DATA
:UPDATE
TEMP1
#32,TEMPI
:CHECK FOR DONE
:BR IF MORE TO SEND
73
#4$,3DUPTVC
*RELOAD VECTOR
*RETURN
7
#TEOM,aTXDBUF
:PUT OUT BCC
#58,aDUPTVC
*RELOAD VECTOR
*RETURN
78
TEHPS.&TXDBUF
:LOAD DATA
:UPDATE DATA
TEMP
$CHECK FOR FINISH
#100, TEMP2
*BR IF MORE TO GO
78
#6$,aDUPTVC
*RELOAD VECTOR
*RETURN
7
#TEOM QTXDBUF _ :PUSH OUT DATA BCC

#SEND ' TXINTE ,aTXCSR
#NO.BTRAP, aDUPTVC

:SHUT DOWN TRANSMITTER
*RESET VECTOR

CZOPE
MACY11 30A(1052) 20=JuL-83
19=JUL-83 1 7:09
{CZOPEC.P11
1884

010620

012716

}885 010624 008002
&
}gg 010626 017737
1890
010634 81 7;57
1891 010642 105737

100401
104005
005737
1
104005
122737
001401
104005
012737
012777
531
17737
005737
100001
104005
123737
001401
104005
105237
122737
1107
012777
503
017737

13: 32 PAGE 48
END OF PASS ROUTINE

78:

010364

001242
001244

108:

118:

001244

128:

000026
010712

1246
170472

138:

170476
001244

001244

48:

001246

001244

15$:
168:

010766

170416

5737

170422
001244

001244

10499;
12
79

011014

170370

170374

001326
001326

188:

7 001832

170340

198:

0013‘“

001244

208:

1 ;g
32737

010000

~N~NN

® 3= NN =YW

el =8

2882

SITS
§83§s§§

1001
104

RTI

#1008, (SP)

170340

178:

218:

047% 001332

228:

011124

SRXCSR, TEMP3

HLT
TST

5
TEMPS

8PL

170260

aaxoguf.tem
TEMP
118

128

HLT
(MPB
BEQ
HLT

5
ogsz.tem
138
g

MOV
B8R

#14$,3DUPRVC
26$

MOV

MOV
ST

HLT
(MPB
BEQ
HLT
INCB

#26,TEMPS

, TEMP4
@RXDBUF
TEMP4

:SETUP RETURN
sRETURN

#32,TEMPS

MOV
ST

SRXDBUF
, TEMP4
TEMP4

B8PL
HLT
MOV
B8R

26;’
#178,3DUPRVC
268

+4
#18$,3DUPRVC
268

MOV

SRXDBUF ,DATA

BNE
HLT

1
5

BIT

#CRCERR.DATA

MOV
CLR

#208,3DUPRVC
MIND

MOV

F
, TEMP4
SRXDBU

HLT

26$

TEMP4

CWPB

nim.rem

HLT
INCB
CMP8

MIND
#100,MIND

BEQ

BNE
MoV
B8R

sSAVE CSR
sSAVE BUFFER
sCHECK FOR DONE
:BR IF SET
sFALSE INTERRUPT
sCHECK FOR ERROR
:BR IF NO ERROR
sRECEIVER _ERROR
sCHECK DATA
sBR_IF A MATCH
sDATA COMPARE ERROR
;LOAD NEXT EXPECTED
sRELOAD VECTOR
sLEAVE

158

S
TEMPS,TEMP
168
5
TEMPS

CMPB

BNE
MOV
B8R

8PL
001244

001332

MOV

MOV
TSTE
8MI

8PL

001246

00001

MOV

;RECEIVER

001246
000032

NEuRSAN I FEIISEER
o0

SEIERRER 2

192
1
192
192
19
19
19
19
19
19
19
19
19
19
19

3 92
1 924

1921
192;

d d D d D d d b b md b D d b D D b
e D D D D wd D b D d wmd b b =D D =D

1918
1919
1920

O0O0O0O0O0O0O0O0O0O00O000O0

8 0774

—d et e d d e o
— e wd ced d cmd e

1919

010646
010650
010652
010656
010660
010662
010670
010672
010674
010702
0107
01071
010
010726
010726
010730
010736
010740
010742
010746
010754
010756
010764
010766

OO0

189%
1893
189
1895
1896
1897
1898
1899
1900
1901
190§
1903
1904
1905
1906
1907
1908
1909
1910
1911
191;
1913
1914
1915

SEQ 40

g
#238,3DUPRVC
268

E DA
:
;CHECK FOR FIRST PART FINISH

E_TO GO
:BR_IF
sSET UP NEXT VECTOR
sLEAVE
sGET_THE BUFFER
sTEST FOR ERROR

:BR IF OK
sRECEIVER ERROR
sRELOAD THE VECTOR
sLEAVE
sGET DATA
sCHECK FOR CRC ERROR
sBR IF OK
sCRC ERROR!!!!!!
sSET UP VECTOR
sSETUP FOR NEXT DATA
sLEAVE
sGET DATA
sCHECK FOR_ERROR
;BR IF NO ERROR

Enscéxm ERROR
CK DATA
;CHE

A(105§) 20=JUL-83
MACY11
CZOPE
{CZOPEC.P11
19=JuL~83 17:09
1940

011126

017737

19%2

011136

100001

011142

105777

170264

1941 011132 005737 001244
1963
1944
1945
1946
197
198
1949
1950
1951

170244

100375
017737 170240 001326
032737 010000 001326
001001
104005
o1zng 010430

}ggg 011174 00000,

1954

001244

238:

011140 104005

011146
011150
011156
011164
°m°3
01117

SEQ 41

13:32 PAGE 49
END OF PASS ROUTINE

248:

5$:

6$:

MOV

aRXDBUF ,TEMP4

;GET DAT.

BPL

HLT

gas

TSTB

@RXCSR

*RECEIVER ERROR ON FIRST OCTET
or SECOND BCC
:TEST DONE
:BR IF NOT SET OCTET
:GET SECOND BCC
.cuecx FOR BCC ERROR
:BR IF OK
:BCC ERROR ON SECOND PART OF MSG
SSETUP TO FINISH TEST

B8PL
MOV
BIT
BNE
HLT
MOV

RTI

TEMP4

248
SRXDBUF ,DATA
cgacm,DATA
s, (SP)

: CHECK roa ERROR
:BR IF OK

*RETURN

CZDPE

MACY1 11 3936193;)17?8;JUL-83

PNNNNNNNN

==gofhoe

D
g 0t D ol

o
[
y
xmmom OWV B(&)

gessssuy

Lw@>yt

x MH HME w

—

O NN

13:32 PAGE 50
END OF PASS ROUTINE

w <P

{CZOPEC.P11

SEQ 42

= w) a ~

CIOPE
WACYI1 30AC1052) 20-JuL-83
[CZOPEC.P1T
19-UL~83 17:09

JNFL 001344
CCFBK 010022

ADRCNT= 003315

IT¥ = 002000
IT0
IT1_

= 000001

= 000002

1T10 = 002000
IT11 = 004000
IT12 = 010000

IT13 = 020000
IT14 = 040000
1715 = 100000

112"
BITS
BIT4
BITS
BIT6
BIT?

= 000004
= 000010
= 000020
= 000040
= 000100
= 000200

BRW
BRX

002666
002670

BIT8
BIT9

= 000400
= 001000

010024

CALBCC

CARDET= 010000
CHRCNT 003616
€Lk

CLK.A

= 020000

001441

CNVRT = 104411

CONVRT= 104410
CORMAX 011624

CRCEN = 001000
CRCERR= 010000
CRC.CC= 102010
CRCi6 = 120001
TS
= 020000

CTSDLY

001312

DATA

001326

005624

|CYCLE

13:32 PAGE 52
CROSS REFERENCE TABLE == USER SYMBOLS

1041+
2
1738+
1730¢

1005+

7008

105

1741%

1065+

1066

11034

469

583

1736

WS
4580
WS

5
57
576

593
6
59

6064
4684

dser
éssh
éser

“w67w
4668
w658
464k
4“3
sen

41
400
869
870

1602¢

5764
1063«

627

1603

1717«

1718

1754+

17614

1083+

11014

1102

888

892

1176

178

1710+

1713+

1718

1921«

1806

8%
1401

1481s

945w
946N

1555
1067
1409

gror
1955¢

851
1956

1192

1922
176

1948

1555

1629

1808

905

13714

1190
1189#

193¢

5984
S92
1601
17620
S75#

5634

871

886

1628

906

1680

1807

1681

001316

1555
1341

1355

2
s668

781
743e

001404

923

628
607

DUPRPS

608
598

1529

001500
00131

580
579

86
612
611

829

DUPCRO
DUPNLM

626
606

610
609
595
59

586
585
584
583
582
581

:
$830

DUPACT

606

6914

623
g0
597

001348
DSCPLG.
000040
BSINTE=
001
=
DSR
=

158
1760

803
o1
390

11
11
1
1626
1038
59«
759

DTR

1748

57s
57a
573

1165+
116k
s974
S64#
1003
1
5010

DATABP 004172
DATAHD 004160
DECMOD= 100000
001314
DELAY
DEVADR 003312
001200
DISPLA
000174
DISPRE
DSCA = 100000

1766

7120

6814

SEQ 43

747e

1399«

601

1805
104
883¢

.
1400+

839«

1371

1922

1947+

1948

PAGE 53

CROSS REFERENCE TABLE - - USER SYMBOLS

1479+

1901«

1913«

1919+

1925+

1938+

1403

1480+

1697«

1700+

1706+

1864+

1870+

1873+

848

1376

1203+
937+

1153«

1166

1180+

1113

13584

792

802

808

814

818

822

826

1416

1378+

1399

1404+

1482+

1402+

838

Nflflflflgo-‘
lelele]
- P
e KA AR LR AN
g8 223
EEeRoevNeAT

13:32

1389
1383

139%

1050

1172

15564+«

938+
921

1150

1152+

1"MM”n

1179

1236

1415

1432

796

846+

1622

1663

1801

o -

SEQ 44

D i cnd
e
e

e
— o

ot o

00000000

i) omn enh

#SEESEIRS
sEepesstansepanass
SR
R

001402
1624
00141
00150
001406
001506

L32

MACY11 30A(1052) 20=JUL-83
CZOPE
19-JuL-8 17:09
ZOPEC.P1

1841

1879+

1883+

MACY11
CZOPE
CZOPEC.P11
1
PASS
RRPC

20-JU|.°83
(105;)

004373
004702

602

177

4t
P

12650
1552¢

0013
00503
004526

6l6r

MMODEB= 010000

RRX
XT

MJMPR

004741
004627
005161
004571
004355
004348

MMODEM
WNEW
WPAR
WPASSX
MPOVER
MM

g7e
15T
865

6150
6054

18730
15130
:

004416

872

NSRUM
MSTUM
MTCN

005240
005205
005112

NTSTN
NTSTPC

0046
004514

1975
12564

MVECX

00456

887

006354

14840

MRESET= 000400

MTDATA= 04
NTITLE 001

602#
s

MVEC

001216

NO.ATR

NO.BTR 006360
OJUWPE 006306
OPCLRJ 001325
OVRRUN=

PARAM = 10440

PARAMI 003156
PARBIT= 000000
PARCSR 001416

PARERR

0032

PASCNT 001230
PERFOR= 000000
POPRO = 012600
POP1SP= 005726
POP2SP= 02262
PRIRTY 00132
PRISEC= 01

= 177776

|wsmo- 1
PUSH1S=

PUSH2S=

005746

PWRUP
ov.FLG
0013
002000
RABORT=
RCRCIN= 040000
RCRC7T= 100000

SEQ 45

13:32 PAGE 54
CROSS REFERENCE TABLE == USER SYMBOLS

12408
13818

MMODE = 014000
A= 004000

823
810
803

785

lecar

1560

136
1098
1258#

1598

1625

1935

1932

12660
15370
13354

1%4r

13228
1317
13064
768
12700

12854
1264s

1438

1433

1537

159«

1721

1793

1508+

1593«

1779+

14884
1468¢
g4
a1l

17
15

1883

mse

1S5

1007¢
4
¢

1024

778

786

1418

1386+

1795+

1010,

L708
Wor
e
ésia
320
908

2408

817

1012

743

1014

1023

1030

1032

1034

1660*

1716+

1783«

883

943
843

1199

739«

859«

1613+

12
gdr
9
o
”

1228#
Tuie

4508

914

1202

“ar
4468

1854

1417

1208

734

1804

193

12874

941

1782

1838«

1638

1818

1624
11544
904#
119
75 *
53
63

1803

904

91+

944

1208«

1210

1233

1431«

146461+

1442

54
908

1627
1381
1945
1385

1806
1536+

1539

1627«

1629

1638+

1639+

1711

1806«

1808

1386

1387

1680

1710

1713

1890

1903

1915

1921

1819
810
1784

1882
816

820

824

828

1722
1102#

1794

1855

1209
1555

1229

1856

766

863

923

930

947

953

1143

148

M97

1204

RXDBUF
RXDERR=

—

873

b
=B B

RTS
= 000004
RXCSR

13: 32 PAGE 55
CROSS REFERENCE TABLE == USER SYMBOLS

%) ?O-JUL-BS
S’;fi

SEQ 46

VN =

HACV11‘
CZOPE
ZOPEC.P

3230
940

746+
1051«

894+

1051+
1051+
1051«
1051+
1051+

1051«

SCOP1 = 104401
SEND = 000020
SETFLG= 104412
SETVEC 006332
SHIFTS 001330
SImMBCC 007%82
004
SMALL
SPACNT= 003617
000
SRD

JSTACK == 001150
000010
SRJ

STD

SWR

001202

000176
SWREG
Swo0 = 000001

1154
1574

1857

MACY11
CZOPE
CZDPEC.P11

_20-JuL-83

SEQ 47

13: 32 PAGE 56
CROSS REFERENCE TABLE == USER SYMBOLS

1413

:
22888

174

SWw03
SWwo4

= 000002
= 000004
= 000010
=
nununnuwnnnn

Sw01

A(1052)

139JUL-8 17:09

1143

1452

1596

853+

1693

1729+

1752+

1684+
1750+
1894

1734+
1790+
1904

1876+

1877

1916

1928+

1669

1845

1847

1656

1659+

1658+
1862+

1667
1866+

1646

TRP.PC 005622
TSOM = 000400
TSTNO
001226
TST1
006364
006744
TST
TST
010026

TXDBUF

001422

TXDLAT= 100000
00
TYPDAT
162
TYPE = 104402

1778+

870+

1392
1797+
96
1702+

ZERY

002554

TWOSYN= 000000
TXACT = 001000
TXCSR
0014620

1592+

N ]

TTIST

= weennn

1507«

5552

TISTL

1429

1837

865

885

970

1432

10
14
116

1091
1433
11704

117

1062«
1182
1164
886
892
847
890
1601
852
1176
888
3¢
496
¥
1%
6564
4B1#
6334
1607#
768
682
680
8804
1162
488
672
670
9704
968+
674
486
678
676
664
666
684
504
490
662
668

1092+
1185#
1146
9064
9154
1327#
9124
1739
13474
12154

1100#

1174

1175

1593

1594

1779

17804

15094
1499

1581
15814
6694
4L97H
7204
1719

1586

15944
15844

179

1183

1766
17
6754
5074
7248
19554

1772
1767
6774
5094
13554

1188

1231

1373

1415

6834
5674
13604

6854

12264

1230

g?ll
0os

7224

1830

7234
1917

19554

6814
664
13594

4928
or
1712
859

1582

11484

1508
8984
1493
1693
663
482
634N
1608#
834
1055#
10544
1779
19554
11434
9874
990
9714
998#
741
10514
10514
9214
%74
1111
7394
1131»
1136
9504

1644

~N —

004062

13: 32 PAGE 57
CROSS REFERENCE TABLE == USER SYMBOLS

TYPMSG

SEQ 48

WO NN
Vo~

MACY11_30A(1052) 20=JUL-83
{CZDPEC.P11
19-JuL-83 17:09
CZDPE

S68#
1375

MACY11_30A(105 ) 20~JUL-83
CZOPE
17:09
19-JuL~-83
CZOPEC.P11
o

874

4528

1485

7w
S
8#
389
3894
o
8s
o
389
3894
W
b
3

1569
1509

SHEADE
$SJMPR
$MSG
$MSGA
SPFAIL
SQUEST

oy
3894
8¢
19554
8¢
54

389
1446
1235

$SCOPE
$SETFL
$SETVE
$SIMBC
$SMALL

*
S#
3894
389
o

918
1105
1477
1726
1218

$TRPDE

SWAIT
$x2

#1542
8¢
1493

DUPEND

HLT

FRN

POP
PUSH
QQQ
SBINCT
$87
SBUFFE
SCLRVE
$CYCLE
SDECST
c22
oP
SERRTA
$F INI

SGETFL
$GETPA

SRESET

$TSTN
SVARIA

. ABS.

389

1553

1568

18%5

1855

18"’6

802
784

808
1416

814

818

822

826

1537

1594

1721

1793

1853

#1501
o4

1586

1772

667

669

671

673

675

1557
1499

1644
1581

1666
1584

1821
1766

1844
1770

o
b1

011624

ERRORS DETECTED:

1906

1909

SEQ 49

13:32 PAGE 59
CROSS REFERENCE TABLE == MACRO NAMES

1489

191

1924

1931

1934

1943

1683

1720

1814

1831

677

679

681

683

1950

1579
1492
1353
1362
1793
1765
874

1955

792
776

1223
770

665

000
O

CZDPEC BIN,CZDPEC.SEQ/CRF/SOL/NL: TOC=CZDPEC.MAC,CZDPEC.P1T"

RUN-TIME: &4 6 .6 SECONDS

RUN-TIME RATIO: 41/11=3.5
CORE USED: 17k (33 PAGES)

1852

1893

1896