Digital PDFs

AH-8589C-MC

October 1983

50 pages

Original

2.7MB

view download

OCR Version

2.2MB

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

OCR Text

5890."0

OCT

1983

COPYRIGHTO

veoe v usa

74-83

CZOPE

MACY11 30A(1052)

CZOPEC.P11

_20-JUL-83

19-JuL-83 17:09

13:32

SEQ 1

PAGE 8

.REM @

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 RELIAB ILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGI TAL 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

13:32

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

1.0

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 WITH AN IMBEDDED
CRC CHARACTER. BOTH OF THESE MODES WILL BE TESTED OVER A
CABLE IF A TURNAROUND IS POSSIBLE.

THE MODEM CONTROL LEADS WILL ALSO BE TESTED, IF THE H325 TURN-

AROUND CONNECTOR IS USED.
THE DETERMINATION OF WHAT WILL BE
TESTED IS DONE BY ANSUER]NG A 'PARAMETER DIALOG'' (LOAD ADDRESS
200, START ADDRESS 0O OR 1.) ALL QUESTIONS MUST BE ANSWERED.
THE
IF AN ERROR SHOULD OCCUR, A TYPEOUT WILL EXPLAIN
FUNCTIONAL AREA OF THE OEVICE WHICH FAILED.
TO REPAIR THE
OPTION, THE DIAGNOSTICS WILL HAVE TO BE RUN.
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

B8E

RUN IN SEQUENCE TO ENSURE THAT IF AN ERROR SHOULD OCCUR IT
WILL BE DETECTED AT AN EARLY STAGE AND ESTABLISH THAT

gésgfigzls

NOTE:

THE

ERROR WILL BE IMMEDIATE TO DISCOVERING THE

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE THREE DIAGNOSTICS ARE:

1.1
1.2

1.3
1.4
NOTE:

1.5

CZ0PB [REV] BASIC AND OFFLINE TRANSMITTER TESTS.
CZpPC CREV] OFFLINE RECEIVER TESTS, MODEM CONTROL AND
INTERRUPT TESTS
CZ0PD CREV] OFFLINE SDLC DATA AND FUNCTION OFFLINE DECMODE
DATA AND FUNCTION TESTS
CZDPO [REV] DP11 OVERLAY FOR INTERPROCESSOR TEST PROGRAM
THE FOURTH TAPE IS:

CZDPE [REV] THIS CONFIDENCE TEST.
2w
«tNOTE

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

CIDPE

13:3¢

MACY11 30A(1052) 720-JUL~83
19-JuL-8 317:09

CZOPEC.P11

2.0

REQUIREMENTS

2.1

EQUIPMENT

—b
b
b

2 .1.1.
2 .1.2.
3.
2
4.
2
.5.
2

2.2

SEQ 3

PAGE 10

ANY PDP11 FAMILY CPU (WITH MINIMUM 4K MEMORY)
ASR 33 (OR EQUILIVALENT)
buP1t
H325 TEST CONNECTOR
MODEM WITH ANALOG LOOPBACK FEATURE

STORAGE

PROGRAM WILL USE

ALL

MEMORY

EXCECT

WHERE

ABS

AND

LOADER _ RESIDE. _ LOCATION 1500 THRU 1560 ARE
BOOTSTRAP
ESPECIALLY TO BE NOTED AND LEFT UNTOUCHEC 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

ME THOD

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE
IF THE DIAGNOSTICS ARE ON A MEDIA
NOTE:
ABSOLUTE LOADER.
FOLLOW
CASSETTE
OR
DECTAPE,
MAGTAPE,
SUCH AS DISK,
THAT
ON
PROVIDED
BEEN
HAS
WHICH
MONITOR
THE
FOR
INSTRUCTIONS
SPECIFIC MEDIA.

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
BE LOADING INTO CPU)

'HALT' SW UP)

(ALSO PLACE

4.0

PAGE N

13:32

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

SEQ 4

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 DUP1

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

SET:

SW 09

SET:

SW 14
SW 13
SWw 12
SW 11
SW 10

SW 08
SW 07
SW 06
SW 05
SW 04
SWw 03
SW 02
SW 01
SW 00

HALT ON ERROR

SET:
SET:
SET:
SET:
SET:

LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
INHIBIT TYPE OUT/BELL ON ERROR.
(QUICK PASS)
INHIBIT ITERATIONS.
ESCAPE TO NEXT TEST ON ERROR

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

CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
RESERVED
RESERVED
RESERVED
RESERVED
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
RESERVED

RESERVED

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

728;JUL-83
5
MACY11 30A(1052)
19-JUL- 8 31

13:32

PAGE 12

DIAGNOSTIC.

6.1.2

SWITCH REGISTER RESTRICTIONS

IT IS STRONGLY
RESTART PROGRAM AT SELECTED TEST.
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE

SWw 01

TRYING TO SELECT A TEST THAT IS NOT IN THE ORDER OF
SEQUENCE. THE REASON FOR THIS IS THAT THE PROGRAM HAS
TO CLEAR AREAS AND SET UP PARAMETERS IN THE MONITOR
PORTION OF THE PROGRAM. IT IS POSSIBLE TO LD200, AND
RAISE SW01, 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.
6.1.3

SWITCH REGISTER PRIORITIES
ERROR SWITCHES
o

WSS NN

CZDPE

CZDPEC.P11

SEQ 5

SCOPE SWITCHES

2.
4.2

5w 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).

SW 14 - LOOP ON TEST.
IS LOWERED.

WILL LOOP ON TEST UNTIL

SWITCH

ONLY

ALLOWS

SW 11 = INHIBIT ITERATIONS (QUICK PASS).

ONE PASS THROUGH A TEST.

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
ACCORDPINGLY. AFTER DUP11 IS TESTED, THE PROGRAM WILL
RETURN TO °*XXDP*' OR °*ACT=11°'.
ALSO, UNDER
“ACT11°'' OR °*XXDP'* CONTROL THE FOLLOWING DEFAULT
P ARAMETERS ARE ASSUMED:

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

Wl
W2
w3
W4
WS
Wé

=
=
=
=
=
=

SEC REC ENABLE
SEC REC DISABLE
CLEAR OPTION
SEE TX ENABLE
DSC A CONTROL
A+B DS CONTROL

X
X
X

X
X

CZOPE

MACY11 30A(1052) 720;JUL-83

CZDPEC.P1

19-JUL-83 1

13:32
w7 =

SEQ 6

PAGE 13
X

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
SECTION FOUR WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING
THE DIAGNOSTIC.

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

ERROR MESSAGE (THIS DEPENDS ON THE TEST), TO GIVE THE OPERATOR
IF IT IS NECESSARY
AN IDEA AS TO THE SOURCE OF THE PROBLEM.

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 A TEST NUMBER AND
PC TYPED QUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW
12=0). ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE ERROR
gssgsfif WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE
6.1

ERROR RECOVERY

IF FOR SOME REASON THE DUP11 SHOULD °'HANG THE BUS' (GAIN
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED)

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

CZDOPt

20-JuL-83

MACY11 30A(1052)

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
HAS
COMPLETED
A PASS WITH THE NORMAL ITERATION COUNT
éécggggzgga, THE TSiLLOwiNG IS AN EXAMPLE OF THE PRINT

OUT

END PASS C2DPB? 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 RETURN
ITERATION COUNT IS REACHED OR IF LOOP ON

WHEN

TEST IS ASSERTED.

NEXT
TSTNO

CONTAINS THE ADDRESS OF THE NEXT

PERFORMED.

CONTAINS THE NUMBER

PEFORMED.

THE

TEST

TEST
NOW

BEING

CZOPE

MACY11 30A(€1052)

C20PEC.P11

20-JuL-83

19-JUL-83 17:09

13:32

PAGE 15

*eNOTEwe

1T SHOULD BE REMEMBERED THAT C2DPE IS NOT A DIAGNOSTIC , BUT
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
CZDPE
19-JUL-83 17:09
CZOPEC.P11

13:32_ PAGE 17
INTRODUCTION TO DUP11 DIAGNOSTIC
;*CZDPECO /<377>/DUP11_CONF IDENCE TST

389

392

393
394
395
396

;STARTING PROCEDURE
:LOAD PROGRAM

:LOAD ADDRESS 000200
;PRESS START

400

:AND THEN RESUME TESTING

402

403

;SWITCH REGISTER OPTIONS

28(5!

emescccccscncccccccacce

406
407
408

100000
04500C
020000

SW15=100000
SW14=40000
SW13=20000

;=1,HALT ON ERROR
:=1,L00P ON CURRENT TEST
:=1,INHIBIT ERROR TYPEOUT

410
411
412
413
414

00400y
002000
001000
000400
000200

SW11=4000
SW10=2000
SW09=1000
SW08=400
SW07=200

:=1,INHIBIT ITERATIONS
:=1,ESCAPE TO NEXT TEST ON ERROR
:=1,L00P WITH CURRENT DATA
:=1,L00P ON ERROR

418
419
420
421
422

000010

415
416
417

:PROGRAM WILL TYPE ''CZDPECO /<377>/DUP11_CONF IDENCE TST
:PROGRAM WILL TYPE 'R'* TO INDICATE THAT TESTING HAS STARTED
AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE

397
398
399

409

SEQ 9

0110000

000100
000040
000020

000004
000002
000001

SW12=10000

SW06=100
SW05=40
SW04=20

Sw03=10
SW02=4
SW01=2
Sw00=1

:=1.DELETE_TYPEOUT/BELL ON ERROR.

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

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

425

* ap
D @

000000
000001
000002
000003
000004
000005
000006
000007

437

440
225

S
S

RO=%0
R1=11
R2=%2
R3=%3
RG=%4
R5=%5
SP=16
PC=%7

177776
001150

PS=177776
STACK=1150

’

005746
005726

PUSHISP=5746
POP1SP=5726

454
455
456
457
458
459
460
461
462
463
464
465
466

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

81T15=100000
BIT14=40000
8171320000
81712=10000
81T11=4000
81710=2000
8179=1000
BIT8=400
8177=200
8IT6=100
BIT5240
BIT4=20
BIT3=10

467

468

293

;GENERAL REGISTER
*GENERAL REGISTER
*GENERAL REGISTER
+GENERAL REGISTER
:GENERAL REGISTER
:GENERAL REGISTER
:PROCESSOR STACK POINTER
*PROGRAM COUNTER

;PROCESSOR STATUS WORD
*START OF PROCESSOR STACK

: INSTRUCTION DEF INITIONS

446
47

448
449
450
451
22%

;LOCATION EQUIVALENCIES

222

445

13:32 PAGE 18
GENERAL DEFINITIONS AND EQUIVALENCIES
:REGISTER DEFINITIONS

2%9

428
429
430
431
432
433
434
zgg

010046
012600
024646
022626

000001

;DECREMENT PROCESSOR STACK 1 WORD
: INCREMENT PROCESSOR STACK 1 WORD

PUSHR0=10046
;SAVE RO ON STACK
POPR0=12600
*RESTORE RO FROM STACK
PUSH2SP=24646
:DECREMENT STACK TWICE
POP2SP=22626 : INCREMENT STACK TWICE
LEQUIV EMT,HLT :BASIC DEFINITION OF ERROR CALL

81T2=4

8IT1=2

BI1T0=1

SEQ 10

CZOPE
MACY11 30A(1052) 20-JuL-83
19-JuUL~8317:09
C20PEC.P11

13:32 PAGE 19
TRAPCATCHER FOR UNEXPECTED INTERUPTS
RN RN AR AN NLEL AT ER A

472

474

s TRAPCATCHER FOR ILLEGAL INTERRUPTS

476

;BETWEEN ADDRESS O TO ADDRESS 776.

475

2;;
479

:THE STANDARD

'‘TRAP CATCHER'' IS PLACED

;1T LOOKS LIKE

''PC+2 HALT

480

23%
484

000000

.=0

.=24

485
486

000024

000024
004312

4«88

000030

003730

+PFAIL

sPOWER FAIL HANDLER

LHLT

;ERROR HANDLER

340

000032
000034
000036

000340
003676
000340

340
- TRPSRV
340

493
494
495
496

000040
000042
000044
000046

000000
000000
000000
002464

233

000052

492

497

500
501
502
503
ggg

000026

s STANDARD INTERRUPT VECTORS

000340

4«89
490
491

000174
000176
000200

506

507

508

001000

509
510

212

513
g}g

001200
001202

000040

.=40

000052

.=52

000174
000000
000000
000200
000137

=174
DISPREG:
SWREG: 0
.=200
JMP

000000

001000

005377

001510

055103

050104

518

;SERVICE AT LEVEL 7
$GENERAL HANDLER DISPATCH SERVICE
;SERVICE AT LEVEL 7
sSAVE FOR
ACT-11 OR DDP2
:RETURN ADDRESS IF UNDER ACT=11 OR DDP2
sSAVE FOR ACT-11 OR DDP2
:FOR USE WITH ACT=11 OR DDP2

sACT=11 PROGRAM CHARACTERISTICS

.=1000

001200

.=1200

177570
177570

DISPLAY:
SWR:
177570

sSOFTWARE DISPLAY REGISTER
sSOFTWARE SWITCH REGISTER

.START

;GO TO START OF PROGRAM

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

;SWR AND LIGHTS

Fommmmmemmooees
177570

;11745 CONSOLE LIGHTS
*INDIRECT POINTER TO SWITCH REGISTER

; INDIRECT POINTERS T0 TELETYPE VECTORS AND REGISTERS
001204
001206
001210

177560
177562
177564

ggg 001212 177566

§§§

sSERVICE AT LEVEL 7

0
0
0
$ENDAD

MTITLE: .ASCIZ

g}g
519
520
521

E LR AR OAARNRAA NN E NS

E:tttttttttt'tttttt'ttttQ'Qtttttttttttttt.Qttttttttt"tt'tttttttttt'tt

481

487

SEQ 11

TKCSR:
TKDBR:
TPCSR:

TPDBR:

‘

177560
177562
177564

177566

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

*TELEPRINTER DATA BUFFER

:PROGRAM CONTROL PARAMETERS

001234

000000

001236

000000

PAGE 20

ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

RETURN:
NEXT:
LOCK:

ICOUNT:
LPCNT:

TSTNO:
PASCNT:

ERRCNT:
LSTERR:

TEMP1:
TEMP?2:
TEMP3:
TEMPL:
TEMPS:
SAVRO:
SAVR1:
SAVRZ:

SAVR3:
SAVRé:
SAVRS:

001266

001270

001272
001274

001276

SAVSP:

SAVPC:

SAVROA:
SAVR1A:
SAVRZ2A:
SAVR3A:
SAVRGA:

SAVRSA:

SAVSPA:
SAVPCA:

001310
001312
001314
001316
001317
001320

REPEAT:
CTISDLY:
DELAY:

sSCOPE ADDRESS FOR LOOP ON TEST
sADDRESS C; NEXT TEST TO BE EXECUTED

. O0O0O0O0O—2000

000000
000000
000000
000001
000000

13: 32

:ADDRESS FOR LOCK ON CURRENT DATA
:NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
:NUMBER OF ITEREATIONS COMPLETED
:NUMBER OF TEST IN PROGRESS
:NUMBER OF PASSES COMPLETED

; PROGRAM VARIABLES

-l.\h QOO0 OO0O0O0O0O0OOOOO00O -

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

SEQ 12

100000
DUPACTYV: .BLKB
DUPNUM: .BLkB
SAVNUM: .BLk8
.EVEN

sTOTAL NUMBER OF ERRORS
:PC OF LAST ERROR CALL

: TEMPORARY STORAGE
: TEMPORARY STORAGE

; TEMPORARY STORAGE

: TEMPORARY STORAGE

: TEMPORARY STORAGE
sRO STORAGE
sR1 STORAGE

;R2 STORAGE
:R3 STORAGE
;R4 STORAGE
;RS STORAGE

:STACK POINTER STORAGE
:PROGRAM COUNTER STORAGE
;RO STORAGE
sR1 STORAGE

:R2 STORAGE
:R3 STORAGE

;R4 STORAGE

:RS STORAGE

sSTACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

SREPEAT CTSDLY
sCTS DELAY

1
1
1

;DELAY FOR DATA LEAD TESTS

:DUP11°'S SELECTED ACTIVE.

:OCTAL NUMBER OF DUP11°S.
;WORKABLE NUMBER.

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

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

569

;CONTROL REGISTER DEFINITIONS

g;?
572

RXCSR BIT DEFINITIONS

573
574,

100000
040000

DSCA=BITIS
RING=BIT14

:DATA SET CHANGE A
‘RING

581

000200

RXDONE=BIT?7

*REC DONE

575
576
577
578
579
580

582
583
584
585
586
587
588
589
590

591
5§92

593
594
595
596
597
598
599
600
601
€02
603
604
605
606
607
608
609
610
611
612
613
614
615

616
g}g

020000
010000
004000
002000
001000
000400

000100
000040
000020
000010
000004
000002
000001
100000

040000
010000

002000
001600
000400
100000
001000
010000
100000
040000
020000
010000
004000
002000
001000
000406
0002C0
000100
000020
000010

000000
014000
010000
004000

2}3

621
622
623
624

CTS=BIT13
CARDET=B1T12
RECACT=BIT11
SRD=BIT10
DSR=B1T9
STPSYN=B1T8

:CLR TO SEND
:CARRIER DETECT
SREC ACTIVE
SSEC REC DATA
SDATA SET RDY
SSTRIP SYNC

RINTEN=BITé
‘REC INTR ENABLE
DSINTE=BITS
:DSC INTR ENABLE
RCVEN=BIT4
SREC ENABLE
STD=BIT3
SSEC XMIT DATA
RTS=BIT2
*REQ TO SEND
:DATA TERM RDY
DTR=BIT1
0SCB=BITO
‘DATA SET CHANGE B
:RXDBUF BIT DEFINITIONS
RXDERR=BIT15
:REC DATA ERROR

OVRRUN=BIT14%
CRCERR=BIT12

*OVERRUN ERROR
:CRC ERROR

MEXT=10000
SYSTST=4000

‘MAINT EXT MODE
‘SYSTEM TEST MODE

RABORT=BIT10
*REC ABORT
REOM=BIT9
*REC END OF MESSAGE
RSOM=BIT8
SREC START OF MESSAGE
:PARCSR BIT DEFINITIONS
DECMOD=BIT1S
:DEC MODE (DDCMP)
CRCEN=BIT9
:CRC ENABLE
PRISEC=BIT12
SPRI/SEC SELECT
STXCSR BIT DEFINITIONS
TXDLAT=BIT1S
;TX DATA LATE
MTDATA=BIT14
SMAINT DATA OUT
CLK=BIT13
SCLK
MMODEB=BIT12
‘MAINT MODE B
MMODEA=BIT11
*MAINT MODE A
BITW=BIT10
‘BIT WINDOW INPUT
TXACT=BIT9
STX ACTIVE
‘MASTER RESET
MRESET=BIT8
TXDONE=BIT7
‘XMIT DONE
TXINTE=BIT6
:XMIT DONE INTR ENABLE
SEND=BIT4
:SEND
DX
*HDX/F
HDXEN=BIT3
;TXCSR WRD DEFINITIONS
USER=0
;USER MODE
MMODE =14000
SMAINT IN7 MODE

STXDBUF BIT DEFINITIONS

100 200
0. )00
<0000
010000

RCRC7T=BIT1S
RCRCIN=BIT14
TCRC7T=B]T13
TCRCIN=BIT12

SEQ 13

MACY1Y 30A€1052)
20-JuL-83
19-JuL-83 17:0 9
CI0PEC.P11
CZ0PE

004000
002000
001000
000400

13:32 PAGE 22
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.
TIMER=BIT11
TABORT=B1T10
TEOM=BIT9
TSOM=BIT8

sMAINTENANCE TIMER
s TRANSMIT ABORT

s TRANSMIT END OF MESSAGE

s TRANSMIT START OF MESSAGE

sMISC. PROGRAM DEFINITIONS
001322
001324
001325
001326
0v'330
001332
001334
001336
001340
001342
00134+
001346

001350
001351
001352
001353

000000
000001
000001
000000
000000
000000
000000
000001
000001
000000
000000
000000

PRIRTY:
TCNFLG:

OPCLRJ:
DATA:
SHIFTS:
MIND:
FLAG:

STJUMFL:
:
SRUMFL
MDMFLG:
ALJMFL:
DSCFLG:

INIFLG:
ERRFLG:
LOKFLG:
QV.FLG:
.EVEN

;PROGRAM INITIALIZATION FLAG

sERROR OCCURED FLAG
sLOCK ON CURRENT TEST FLAG

sQUICK VERIFY FLAG.
sON FIRST PASS Of EACH DUP11 ITERATIONS
sWILL BE SUPPRESSED

SEQ 14

CZDPE
MACY11 30A(1052) _20-JUL-83
CZ0PEC.P11
19-JuL-83 17:09

SEQ 15

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

656

sDEFINITIONS FOR TRAP SUBROUTINE CALLS

ggg

:IN THE TABLS IMMEDIATLY FOLLOWING THE DEFINITIONS

657

;POINTERS TO SUBROUTINES CAN BE FOUND

;:it'ttttlt'tt'tt'.'tttii"tt.t..'lQQQ...'ttt.'..tt.t.tt.""tt"".tt

660

661

662

001354

664

001354

002540

666

001356

002672

668

001360

002716

670

001362

002772

663
665

667

669

671
672
673
674

675
676

677

678
679
680
681

L L L L1 coecsecew -

.TRPTAB:

104400

sCALL TO SCOPE LOOP AND ITERATION HANDLER

104401

SCOP1=TRAP+1

;CALL TO LOOP ON CURRENT DATA HANDLER

104402

TYPE=TRAP+2

;CALL TO TELETYPE OUTPUT ROUTINE

104403

INSTR=TRAP+3

sCALL TO ASCII STRING INPUT ROUTINE

001364

104404
003076

sCALL TO INPUT ERROR HANDLER

001366

003116

104405

INSTER=TRAP+4
. INSTER
PARAM= TRAP+5

104406
003316

SAVOS=TRAP+6
. SAV05

sCALL TO REGISTER SAVE ROUTINE

.RESO5
CONVRT=TRAP+10
- CONVRT
CNVRT=TRAP+11

sCALL TO DATA OUTPUT ROUTINE

001370
201372
001374
001376

684

001400

685

SCOPE=TRAP+0

682

683

LL L L

104407

003356
104410
003410
104411
003414

104412

003622

. SCOPE

.SCOP1
.TYPE
. INSTR

PARAM

RESOS=TRAP+7

. CNVRT

SETFLG=TRAP+12

.SETFLG
LYYY T ¥

sCALL TO NUMERICAL DATA INPUT ROUTINE

sCALL TO REGISTER RESTORE ROUTINE
sCALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

sCALL TO TELETYPE INPUT ROUTINE

686

687

::t't".'.ttlt"t'ttttQt"".'ttt..'tt.t'ttt't.t't'.Q."."tt""""'

T ¥ ¥ ¥ 1 X 1 T ¥ T L 2 1 T T 1 T L 1 L L & L & L 4 1 L 1 L 1 Q2 44

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

13:32

SEQ 16

PAGE 24

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

sDUP11 VECTOR AND REGISTER INDIRECT POINTERS

TXCSR: 0

:
TXDBUF
DUPSEC:
HUPPSR:
:
HUPRBF
HUPRCR:
:
HUPTBF
HUPTCR:

001436

O0O0O0

;POINTER TO DUP11 TRANSMITTER INTERRUPT VECTOR

sPOINTER TO DUP11 TRANSMITTER INTERRUPT SERVICE PS

sPOINTER TO DUP11 RECEIVER STATUS REGISTER

;POINTER TO DUP11 RECEIVER DATA BUFFER
sPOINTER TO DUP11 PARAMETER STATUS REGISTER
:POINTER TO DUP11 TRANSMITTER STATUS REGISTER

OO0

:
RXDBUF
PARCSR:

;POINTER TO DUP11 RECEIVER INTERRUPT VECTOR
;POINTER TO DUP11 RECEIVER INTERRUPT SERVICE PS

sPOINTER TO DUP11 TRANSMITTER DATA BUFFER

COO0O00O0O0

DUPRVC(:
DUPRPS:
DUPTVC:
DUPTPS:
RXCSR: O

001402
001404

;POINTER TO DUP11 SECONDARY REGISTER SELECT REGISTER
sPOINTER
sPOINTER
sPOINTER
sPOINTER
;POINTER

TO PARAMETER STATUS HIGH BYTE
TO RECEIVER BUFFER HIGH BYTE
TO RECEIVER CONTROL REG HIGH BYTE
TO TRANSMITTER BUFFER HIGH BYTE
TO TRANSMITTER CONTROL REG HIGH BYTE

:DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST
001440

000

MASK.A:

.BYTE 000

sLAST CHAR TO TEST AND PARITY MASK

001441

010

CLK.A:

.BYTE 8.

sNUMBER OF CLOCKS NEEDED FOR ONE CHAR

001442

000000

1L00.00: 020000

sPARAMETERS

;DUP11 STATUS TABLE AND ADDRESS ASSIGNHENTS
001500

001504

000001
000001
000001

001506

00000C

.=1500

DUP.MAP:

DUPCRO: .BLKW 1
DUPTRO: .BLKW 1
DUPO.A: .BLKW 1
DUP.END:

;CONTROL STATUS REGISTER FOR DUP11 NUMBER 0
:VECTOR *'A’* FOR DUP11 NUMBER 0
:PARAMETER FOR DUP11 NUMBER 0
000000

E
MACY11 30A(1052)
20-JUL-83
CZDPE
19-JuUL-83 17:09
CZOPEC.P1T

13:32

SEQ 17

PAGE 25

PROGRAM INITIALIZATION AND START UP.
sPROGRAM INITIALIZATION

:LOCK OUT INTERRUPTS

:SET UP PROCESSOR STACK

:SET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS
;TYPE TITLE MESSAGE

012737

000340
001150
004312
001230
001351

127776

000024

001353
001317
001320

001510

000006
000004
001630
177354

000176
000174

177306

002246

001734
001736
001740
001742
001743
001744
001746
001750

012700
005020
020027
001374
105037
105037
104403
004707
104405
160000

001500

001506

001226
001214

000004

001202

001200

128:

CLR
CLR
MOV
MOV

ERRCNT
LSTERR
#1,TSTNO
#.START ,RE TURN

:CLEAR ERROR COUNT
LCLEAR LAST ERROR POINTER
*SET UP FOR TEST 1
1SET UP FOR POWER FAIL BEFORE

MoV
MOV
MoV
ST
B8R

a6,=(SP)
. =(SP)
#128, 304
asWR
13s

SAVE CURRENT VECTORS
SETUP FOR TIMEOUT
‘REFERENCE HARDWARE SWITCH REG
‘BR IF IT EXISTS

cmP
MOV

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

SADJUST STACK
*RESTORE VECTORS

MOV
MOV

DUPNUM
SAVNUM
DUPACTV

MOV
ST

6%:

TYPE
TSTB

(SP)+.a46
a2
668
MTITLE
&SWR

JMP

.BEGIN

MOV

#DUP.MAP, RO

BNE

68$

108:

68$:

001342
001344

BNE

BPL

CLR
(NP

.BYTE

+
(RO)
RO, #DUP. END

MOMFLG
ALJMFL

MCSR
PARAM

-MESSAGE
:CONVFRT STRING

160000
175500
DUPCRO
1

INSTR

MVEC
PARAM

:POINT TO SOFT SWR
*POINT TO SOFT DISPLAY REG

:1F ACT11 OUTO MODE
‘DON'T TYPE ID

STYPE TITLE MESSAGE
TUSE SAME PARAMETERS?

*IF NO, BR AND INPUT NEW PARAMETERS

CLRB
CLRB

INSTR

STESTING STARTS

#SWREG, SWR
#DISPREG,DISPLAY

118:

175500

001500
001
001
104403
00426
104405

:LOCK OUT INTERRUPTS
SSET UP STACK
1SET UP POWER FAIL VECTOR
*CLEAR PASS COUNT
‘CLEAR ERROR FLAG
*ZERO QUICK VERIFY FLAG

CLRB
CLRB
CLRB

138:

001000

MOV
MOV
CLR
CLPB
CLRB

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

+START: MOV

‘IF YES, 6O.

;CLR MAP
:DONE WITH MAP?

‘B8R IF NO

:OUTPUT MESSAGE & GET INPUT STRING

:LOW LIMIT
:HIGH LIMIT

:STORE AT THIS LOCATION
‘MASK

‘HOW MANY TIMES ¢ 2

:OUTPUT MESSAGE & GET INPUT STRING
MESSAGE
:CONVERT STRING

MACY11 30A(1052)
20-JuL-83
CIDPE
19-JuUL-83 17:0 9
CZOPEC.P1N
001752
001754
001756
001760
001761
001762
001764
001766
001770
001772
001776

000300
000770
001502
001
001

004741
104412
001342
105737
001405
105037
105037
000436

001342
001324
001344
71%:

104403

005112
104412
001324
105737
001427
104403
005321
104412
001344
105737
001020

13:32 PAGE 26
PROGRAM INITIALIZATION AND START UP.

.BYTE
.BYTE

104403

INSTR
MMODEM
SETFLG

BNE
INSTR

005375
104412
001346

MDSC

SETFLG
SRIMFL
INSTR

105237
012700

000137

70$:

SETFLG
DSCFLG
INCB
INCB
INCB

MOV

66$:

708

;OUTPUT MESSAGE ¢ GET INPUT STRING

JMESSAGE

:SET FLAG BASED UPON INPUT STRING

2THIS FLAG
ALJMFL

708

;OUTPUT MESSAGE ¢ GET INPUT STRING
JMESSAGE
JSET FLAG BASED UPON INPUT STRING

;MESSAGE

MSRJM

JMP

:H?DEH FLAG SET?

:THIS FLAG
TCNFLG

MSTJM

005240
104412
001340

001317
001320
001316
001500
002246

718
TCNFLG
ALJMFL
708

:THIS FLAG

SETFLG
STJMFL
INSTR

104403

sMESSAGE
:SET FLAG BASED UPON INPUT STRING

MJMPR
SETFLG
OPCLRJ

INSTR

104403

sHOW MANY TiMES + 2
;OUTPUT MESSAGE L GET INPUT STRING

;OUTPUT MESSAGE ¢ GET INPUT STRING
JMESSAGE
JSET FLAG BASED UPON INPUT STRING

ALJMFL
1S18

001336

sSTORE AT THIS LOCATION

*s MAS K

INSTR

BEQ
INSTR
MALLJM
SETFLG

001344

sHIGH LIMIT

JTHIS FLAG
MDMFLG

TCNFLG
1518

001324

;LOW LIMIT

MOMFLG
1ST8
8tQ
CLRB
CLRB
B8R

SETFLG

005205
104412

002132

300
770
?UPTRO

MTCN

104403

105237
105237

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

;OUTPUT MESSAGE ¢ GET INPUT STRING
JMESSAGE
JSET FLAG BASED UPON INPUT STRING
:THIS FLAG

;OUTPUT MESSAGE ¢ GET INPUT STRING

JMESSAGE

JSET FLAG BASED UPON INPUT STRING

JTHIS FLAG

PUPNUM
SAVNUM
DUPACTY
#DUPCRO,RO
.BEGIN

;LET'S GO.

SEQ 18

MACY11 30A(1052)
20-JUL°83
C20PE
19-JuL-83 17 :09
CZOPEC.P1T

SEQ 19

13:32 PAGE 27
PROGRAM INITIALIZATION AND START UP.

-t b =k = QOO O

002132
002136

b e b
el e O b
WAL NI

;** FOLLOWING PARAMETERS ARE LOADED IF UNDER ACT11 OR XXDP CONTROL.e

062737
000766

001500
001316
160050
000770
140026
000005
001236
001236
001342
005273
001500
177010

000002

MOV

INCB

MOV
MoV
MOV
MOVB

000002

MOV8B
MOV

001324
001325
001236
001240

CLRB

b1 ¥

001236

TYPE
MoV
MoV

BEQ
CONVRT
XSTATQ
ADD

#DUP.MAP,RO
DUPACTV
#160050. (RO)
#7702 (RO)

#140026, 4 (RO)

#5.PRIRTY
TEMP1, TCNFLG
TEMP1.0PCLRJ
MOMFLG
L XHEAD
#DUP.MAP, TEMP1

sSET UP POINTER

QEVICE

ACTIVE FOR TESTING

;VECTOR

:STATUS AND SYNC
:PRIORTY

; TURN=AROUND=CONNECTER FLAG

:OPTIONAL CLEAR JUMPER
:MODEM FLAG
s TYPE HEADER

ATEMP1, TEMP2
.BEGIN’

sSET POINTER
sSET DATA
sALL DONE WITH DATA

#2,TEMPY

;UPDATE POINTER

sTEST START AND RESTART

012737
012706
005737
001023
032777
001411
104402

012737
012737
000406
013737
013737
012737
104402

000177

000340
001150
000042

177776

000004

176706

004526
000240
000240
002666
002670
005624
004416
176642

.BEGIN: MOV

#STACK,SP

aHé2
23

#8IT2,3SWR
18

JMLOCK

002554
002556
002554
002556
001214

#340,PS

#NOP,TTST

sQOP.TTSTOZ
18:

BRW,TTSTY

2$:

#CYCLE,RETURN
MR

BRX,TTST+2
SRETURN

sLOCK OUT INTERRUPTS

;SET UP STACK

;1S PROGRAM UNDER MONITOR CONTROL
:BR IF YES
:CHECK FOR LOCK ON TEST
sBR IF NO LOCK DESIRED.
sTYPE LOCK SELECTED.
;ADJUST SCOPE ROUT INE.

sSET UP TO LOCK
:CONTINUE ALONG.
:PREPARE NORMAL SCOPE ROUTINE

sLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
START AT “CYCLETM FIND WHICH DEVICE TO TEST
TYPE R

SYARY TESTING

CIOPE
MACY11 30A(1052) 2o-JuL-83
19-JuL-83 17:09
CIDPEC.P11

13:32 PAGE 28
END OF PASS ROUTINE

874

;END OF PASS

*TYPE NAME OF TEST
‘UPDATE PASS COUNT

875
876

LCHECK FOR EXIT TO ACT=11

*RESTART TEST

877

g;g

880
881
882
883
884
385
886
887
888
889
890
891
892

002352
002356
002362
002366
002374
002400
002404
002410
002414
002420
002424
002430
002434

005037
105037
005237
013777
104402
104402
104411
104402
104411
104402
104411
104402
104411

001234
001351
001230
001230
004373
004555
002510
004563
002516
004571
002524
004602
002532

894

002446

113737

001317

JEOP:

176604

893 00:440 112737 000377 001353

895 002454 013701 000042
897

002462

000005

899
900

002464
002466

004711
000240

904
905
906
907
908
909
910
911
912
913
914
915
916
3};

002476
002504
002510
002512
002514
002516
002520
002522
002524
002526
002530
002532
002534
002536

012737
000137
000001
006
001412
000001
003
001402
000001
006
001230
000001
006
001232

901
902
903

002464

002470
002472
002474

000240
000240
000240

UPNUM,SAVNUM

001214

002

002
002

002

RESET

JSR
NOP
NOP
NOP
NOP
RESTRT: MOV
JMP
1
XCSR:
.BYTE
RXCSR
XVEC:
1
.BYTE
DUPRVC
XPASS: 1
.BYTE
PASCNT
XERR:
1
.BYTE
ERRCNT

0377 Qv.FLG

SSET THE QUICK VERIFY FLAG.

RESTRT

*IF NOT, CONTINUE TESTING

ac42
ai

:RESTORE THE COUNT

*CHECK FOR ACT=11 OR DDP

1STOP THE SHOW-=CLEAR THE WORLD

PC, (R1)

NCYCLE ,RETURN
CYCLE
6,2

3,2
6,2

6,2

:SCOPE LOOP AND INTERATION HANDLER

921
922

002540
002544

005037
010016

924
925

002554
002556

001407
000437

927

002564

100034

001236

923 002546 032777 040000 176426

928
929

MOVB

BEQ

ggg

926

LSTERR
;CLEAR LAST ERROR PC
ERRFLG
*CLEAR ERROR FLAG
‘UPDATE PASS COUNT
PASCNT
PASCNT,3DISPLAY :DISPLAY PASS COUNT
,MEPASS
STYPE END PASS
STYPE CSR
.MCSRX
SSHOW IT
_XCSR
STYPE VECTOR
.MVECX
SSHOW IT
XVEC
.MPASSX
STYPE PASSES
_XPASS
SSHOW IT
.MERRX
*TYPE ERRORS
_XERR
SSHOW IT

MOV

$ENDAD:

005624
005624

CLR
CLRB
INC
MOV
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT

MOVB

001320

896 002460 001406
898

SEQ 20

002560

002566
002572

105777

176420

017700
000415

176414

.SCOPE: CLR
MOV

TTST:

LSTERR
RO, (SP)

:CLEAR LAST ERROR PC
*SAVE RO ON STACK

BIT

#8iT14,3SuR

*LOOP o~ TEST?

TSTB

BTKCSR

*KYBD oo~5°

MOV
B8R

3TKDBR,RO
2%

BEQ
BR
BPL

1$
3s
3s

‘8R IF NO (IF LOCK suo1 1:THIS LOCATION
160 TO 3%
(DITT
*BR IF NO (LOCK:
*CLR DONE BIT
; CONT INUE

= 240)

HIT A KEY ON TTY TO GO TO NEXT TEST)

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

930

002574

032777

004000

932
933
934

002604
002610
002612

105737
001406
005237

001353

931

935
936
937
938

939

940
941
942
943
944

945
946
325

949

002602

002616
002624
002626
002632

002636

002642
002650
002656
002660
002662

002666
002670

001011

023737
001014
105037
005037

005037

012737
013737
011600
022626
000177
001407
000437

950
951
952
953
954
955

002716
002720
002724
002732
002740
002742

010546
017605
062766
032777
001012
105715

957
958
959
960
961

002746
002752
002756
002760
002764

104402
105777
100375
112577
001362

963

002770

002

956 002744 100002

962

966

967
968
969
970
971
972

002766

002772

0027746
002776
003004

001220

000050
001216

001222
001214

#SW11,3SWR

;DELETE ITERATION (QUICK PASS)?

TSTB
8EQ
INC

QV.FLG
28
LPCNT

*HAS FIRST PASS BEEN COMPLETED?
‘BR IF QUICK VERIFY
‘UPDATE ITERATION COUNTER

BNE

CMP
BNE

CLRB
CLR

MOV
MOV
MOV
POP2SP
JMP

28:

LPCNT,ICOUNT
38
ERRFLG
LPCNT
LOCK

#50, 1COUNT
NEXT,RETURN
(SP) .RO

aRETURN
1407
437
;TELETYPE OUTPUT ROUTINE

117714
142714
122427

176146
000200
000015

980
981
982

003052
003056
003

105777
100375
017777

176132

005560
000007
176152

TYPE
TST8
8PL
MOVB
BNE

.MCRLF
STPCSR
28
(RS)+,aTPDBR
1

STYPE A CR/LF!
STTY READY?
‘BR IF NO.
:PRINT CURRENT CHAR.
*IF NOT ZERO KEEP PRINTING'

MOV
RTI

176122

MoV
MOV
ADD

JINST1: TYPE
‘MSG:
0
MOV

18:

28:

176124

;RESET ITERATIONS
‘GET NEXT TEST
‘POP RO OFF STACK
*FAKE AN RT]
16O DO THE TEST

:SAVE RS ON THE STACK.
‘GET ADDRESS OF MESSAGE.
‘POP OVER ADDRESS.
SINHIBIT ALL PRINT OUT??
B8R IF NO PRINT OUT WANTED (SW12=1)
LIS NUMBER MINUS? (MSB=1(BIT?))

.INSTR: MOV
003014
000004

:ALL ITERATIONS DONE?
‘BR IF NOT YET
‘PREPARE FOR NEW TEST
*START ICOUNT AT ZERO

RS,=(SP)
a2(sP) RS
#2,2(SP)
#5612, aSWR
38
(RS)

(SP)+,RS

- e

000004
000002

*BR IF YES

MOV
MOV
ADD
8IT
BNE
TST8

B8PL

3s:

003034
003040
003044

005303
001356
012604

1$:

176226

976
977
978

979 003050 001417

38:

.TYPE:
000002
176242

BIT

CLR

BRW:
BRX:

010346

975 003032 100375

003066
003070
003072

28:

012605

010446
017637
062766

1$:

001222

004352
176232

003022
003026

983
984
985

176400

176326

000002
000002
010000

SEQ 21

13:32 PAGE 29
END OF PASS ROUTINE

001351
001224

104402
000000
012704
012703
105777

973
974

003012
003014
003016

001224
001224

R3,=(SP)

R4 ,=(SP)
% (SP)
., . MSG
#2,4(SP)

MOV
TSTB

# INBUF R4
#7.R3
@TKCSR

MOVB
BICB
CMPB

@TKDBR, (R4)
#200, (R4)
(R&)+ #15

1STB
BPL
MOV

@TPCSR
2
STKDBR,aTPDBR

B8PL

BEQ

DEC
BNE
MOV

INSTR?

R3
1%
(SP)+,Ré4

:BR IF NUMBER IS PLUS

*END OF OUTPUT. RESTORE RS
$GO
HOME

:SAVE R3 ON STACK

JSAVE R4 ON STACK

CZDPE
MACY11 30A(1052) 20-JUL-83
19-JUL~-83 17:09
CZOPEC.PIN
986
987
988

003074
003076
003100

012603
010346
010446

990
991
992
ggz

003106
003110
003112

000741
012604
012603
000002

989

003102

003114

104402

004346

13:32 PAGE 30
END OF PASS ROUTINE
MOV
JINSTE: MOV
MOV

(SP)+,R3
R3,=(SP)
R&,=(SP)

BR
INSTR2: MOV
MOV

CINST1
(SP)+,R4
(SP)+,R3

998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009

1010
1011
1012

1013
1014
1015

RTI

003116
003120
003122
003126
003132
003136
003142
003146
003152
003156
003160
003164

003170
003172
003176

003200

010546
010446
016605
012537
012537
012537
112537
112537
010566
005005
012704
122714

001420
121427
002415

121427

003012
142714

1017
1018
1019
1020
1021
1022

003214
003220
003222
003224
003226
003230

122714
001406
006305
006305
006305
000760

}85§

003234

000750

1016 003212 152405

003232

‘

005560
000015

.PARAM: MOV
MOV
MOV
MoV
MOV
MOV
MOVB
MOVB
MOV
PARAM1: CLR
MOV
CMPB

000060

18:

000004
003306
003310
003312
003314
003315
000004

000067
000060

1028

PARERR
(R4),#60
PARERR

(R4),#67

BGT
BICB

PARERR
#60, (R4)

CMPB
BEQ
ASL
ASL
ASL
BR

#15,(R&)
LIMITS
RS
RS
RS
18

PARAM1

BISB

000015

106404

BEQ
CMPB
BLT

RS,=(SP)
R&,=(SP)
4(SP) .RS
(RS)+,LOLIM
(R5)+,HILIM
(R5)+,DEVADR
(R5)+.LOBITS
(R5)+,ADRCNT
RS,4(SP)
RS
#INBUF ,Ré
#15, (R&)

CMPB

PARERR: INSTER

(R4J+.RS

;TEST TO SEE IF NUMBER IS WITHIN LIMITS

}859
1029
1030
1031
1032
1033
}8§§

;RESTORE Ré&
*RESTORE R3

:CONVERT ASCII STRING TO OCTAL

003206
003206

1023

,MQM

TYPE

ggg

997

SEQ 22

003236
003242
003244
003250
003252
003256

020537
101373
020537
103770
133705
001365

003310
003306

003314

LIMITS: CMP
BHI
CMP
BLO
BIT8
BNE

RS, HILIM
PARERR
RS,LOLIM
PARERR
LOBITS,RS
PARERR

:STORE NUMBER AT SPECIFIED ADDRESS

%8%9
1038

003260

013704

003312

1040
1041

003266
003272

062705
105337

000002
003315

1039 003264 010524

1$:

MOV

ADD
DECB

DEVADR, R4

RS, (R4S +

#2 RS
ADRCNT

K
MACY11 30A(1052)
20-JuL-83
CZDPE
19-JUL-83 1 7:09
CZDPEC.P11
003276
003300
003302
003304
003306
003310
003312
003314

003410
003414
003416
003420
003422
003424
003426
003432
003440

13: 32 PAGE 31
END OF PASS ROUTINE
BNE
MoV
Mmov

001372
012604

RTI

104402

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTE

.CONVR: TYPE

004352

000012
000002
003614
003616
003617
003620
003620
003616
005454
177770
000060

"CNVRT: mov

MOV
MOV
MOV
MOV

MOV

000012
18:

2s:

38:

SN=
NN = N =2\

2t = = OO0 O0O0 0000

OOOOOO
= =O=dO=O =2

d and

CEERERE 388

000

lele]

b and
b
b
b
b
b cud

005516

003616

003617
000040
003617
005516
003614

R1.=(SP)
R3,~(SP)
R&,=(SP)
RS = (SP)

a12(sP) .R1

#2,12(SP)

MOVB
MOVEB
MOV
MOV
MOVB
MOV

(R1)+.CHRCNT
(R1)+.SPACNT
(R1)+,BINWRD
R4
BINWRD
CHRCNT.RS
STEMP,RO

BIC

#197770.R3

CLC
ROR
CLC

Ré

MOV

ADD
MOV8

48:

,MCRLF
RO,=(SP)

ADD

(R1)+,WRDCNT

R4 ,R3

#060.R3
R3,(RO)+

ROR

Ré

DEC
BNE
Mov
MOV8B
DECB
BNE

RS
38
#MDATA R3
=(R0),(R3)+
CHRCNT
43

CLC
ROR

003606

18
(SP)+,R4
(SP)+,RS

LOLIM: O
HILIM:
O
DEVADR: 0
LoBITS: O
ADRCNT=LOBITS+1

000000
003315

VoD~

283 FREEREE

VOO ~NOWVNES W nN OV

b b
b
b ad ad
ed
b

elel=lelelelal o

b i

VWA N SARRRRRRR

~NOWVESW

1042

1S18

BEQ

SPACNT

5%:

MOvVB

#040, (R3)+

6$:

BNE
CLRB

5%
(R3)

DECB

SPACNT

TYPE
DEC

+MDATA
¥§DCNT

MOV
Mov
MOV
MOV

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

SEQ 23

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

003610
003612
003614
003616

012600
000002
000000
000000

003620

000000

PAGE 32

END OF PASS ROUTINE

MOV
RT]

(SP)+,RO

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

:COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
:BUFFER TO THE CHARACTERS ‘N'' AND ‘‘v*’,
:IF THE CHARACTER IS 'N'° CLEAR THE FLAG
:IF THE CHARACTER IS °'Y'* SET THE FLAG

003622
003626
003634
003642
003644
003646
003650
003656
003660
003664
003670
003672
003674

017605
042737
122737
001002
105015
000406
122737
001005
112715
062716
000002
104404
000752

000000
000040

000116

005560

LSETFLG:MOV
8IC

CMPS

BNE

CLRB

000131

005560

1772777
000002

1$:
2s:
3%:

a(sSP) RS
#40, INBUF

#°'N, INBUF
13

(RS)

JIS IT 'W'?

2000

;;V.INBUF

JIS IT 'Y?

Mov8
a??

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

:377

INSTER
BR

;RETRY
.SETFLG

g:ze

JTRAP DISPATCH SERVICE
:ARGUMENT OF TRAP 1S EXTRACTED

:AND USED AS OFFSET TO OBTAIN POINTER
:TO SELECTED SUBROUTINE

003676
003700
003704
003710
003712
003716
003722
003726

01
16
O1
006
0427
062716
017616
000136

. TRPSR: MOV
SuB
Mov
TRPOK: ASL
8IC
ADD
Mov

000002
000000
177001
001354
000000

JMP

(SP) ,=-(SP)
#2,(SP)
8(SP),(SP)
(SP)
#177001,(SP)
#.TRPTAB, (SP)
8(SP), (SP)
8(SP)+

:GET PC OF RETURN
2=PC OF TRAP
:GET TRP
JMULTIPLY TRAP ARG BY 2
;CLEAR UNWANTED BITS
: ‘OINTER TO SUBROUTINE ADDRESS
;SUBROUTINE ADDRESS
;G0 TO SUBROUTINE

JERROR HANDLER

— e

—d o

md —d

b
) md

) nd el md cd
b b e wd e

b
d

d
d

b )
b wd

)
b

b —d

b e e
d b
bb

e o red e b b e
e b e e e e i b D b b i
e e
b d o b b b e b b D e b b e b D e b b o e o i

uuwmmmmmwmmmm-&—-b-a—.-n—-b-a_nooooog
m\h\hml\bbl\bbbbbbuwuwwgw
W
= O VW N
VB NN = OO
NOANEWNI=2O
V0NN
WN=O V0NN
NN —=OO00 NN WA -

D
e b D d bd D b d ek b D —
(ololels]
o

1098
1099

13:32

SEQ 24

003730
003736
003740
003744
003746
003756
003762
003764
003770
003772
003776

032777
001406
105777
100003
112777
032777
001105
021637
001404
011637
105037

010000

175244

.HLT:

175244

000207

175236

020000 175220 XxBX:
001234
001234
001351

BIT
8tQ
1ST8
BPL
MOVB

#SW12,8SWR
XBX
aTPCSR
X8X
#207 ,8TPDBR

JBELL ON ERROR?
:BR IF NO BELL
:TTY READY.
:DON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT THE TTY,

BNE

HALTS

:BR IF NO PRINT OUT WANTED.

BIT

CMP

BEQ

MOV
CLRB

lSU13.3$UR

(SP) ,LSTERR

(SP) ,LSTERR
ERRFLG

;DELETE ERROR PRINT 0UT?

:WAS THIS ERROR FOUND LAST TIME?

:BR IF YES

:RECORD BEING HERE
:PREPARE HEADER

CZOPE

MACY11 30A(1052)

CZOPEC.P11

_20-JUL-83

19-JUL~83 17:09

1154
1155

004002
004004

104406
011605

1158

004014

006304

1160
1161
1162
1163
1164
1165
1166
1167
1168
1169

004020
004022
004026
004032
004036
004042
004046
004052
004054
004060

006304
0642704
062704
012437
012437
011437
105737
001403
005737
001040

13:32

PAGE 33

END OF PASS ROUTINE

1$:

1156 004006 162705 000002
1157 004012 011504
1159

1170
1171
1172
1173
1176
1175
1176
1177
1178
1179

1180
1181

004016

004062
004066
004072
004076
004100
006106
004110
004114
0064120
004124

004142
004144
004146

112737
005737
001402
104402
000000

1186
1187
1188
1189
1190
1191

(04150
004154
004156
004160
004162
004166

005737
001402
104402
000000
005737
001402

1194
1195

004174
0064176

1182
1183
1184
1185

1192
1193
1196

1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209

004130
004136

004150

004170
004172

004204

004206
004212
004214
004216
004222
004226
004226
004232
0042640
004242
004250
004252
004260

104410
000000
104407
022737
001403
005777
100005
010046
016600
000000
012600
005237

032777
001007
032777
001407
013737
012706

004172
004352
004352
001220

177777
004146

001351

002464
174770

000002
001232
000400

174742

002000

174732

001216
001150

001214

TYPMSG: TYPE
TYPE
TST
BEQ
TYPE
1$:
TYPE
CNVRT
TYPE
CNVRT
TYPE

Mov8
TST

CONVRT
DATABP: 0
RESREG: RESO5
HALTS: (MP
BEQ
TST
BPL
18:
PUSHRO
MOV
HALT
POPRO
EXITER: INC

1$:

sMULT 8Y TWO

(RS) ,Ré4

TST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ

000042

ADD

WRKO.FM:

004172

sSAVE ALL PROC REGISTERS
cGET THE PC OF ERROR

#2 RS
(R5) R4

8EQ
TYPE
ERRMSG: O

006160

(SP) ,R5

sus
MOV

ASL
8IC
ADD
MoV
MOV
MoV
1ST8
BEQ
ST
BNE

177001
0115644
006146
004160
004172
001351

004625
004613
004300
004702
004272
004352

SAVO05
MoV
ASL

061504

104402
104402
005737
001402
104402
104402
104411
104402
104411
1064402

SEQ 25

8IT
BNE
BIT
BEQ
MoV
MOY

Ré
#177001,P4
#.ERRTAB,R4
(R4) +,ERRMSG
(R4)+,DATAHD
(R4) ,DATABP
ERRFLC
TYPMSG
DATABP
TYPDAT
+MCRLF
MCRLF
LOCK
18
-MASTEK
MTSTIN
_XTSIN
+MERRP(
_ERTAB0
+MCRLF

#-1,ERRFLG
ERRMSG
WRKO.FM

DATAHD
TYPDAT

sGET ADDRESS OF TRAP (CALL
sGET HLT INSTRUCTION
;DOUBLE IT

sMULT AGAIN
sCLEAR JUNK
sGET POINTER
sGET ERROR MESSAGE
cGET DATA HEADRER
;GET DATA TABLE
s TYPE HEADREER
:BR IF YES
;DOES DATA TABLE EXIST?
;B8R IF YES.

sSHOW IT
:TYPE PC.
cSHOW IT
:GIVE A CR/LF

sNO MORE HEADER UNLESS NO DATA TABLE.
s1S THERE AN ERROR MESSAGE?
:BR _IF NO.
sTYPE
:
ERROR MESSAGE
:

DATABP
RESREG

sDATA HEADER?
:BR IF NO
sTYPE
:
DATA HEADER
;DATA TABLE?
:BR IF NO.

#SENDAD , 3#42

TABLE
sRESTORE PROC REGISTERS
sIF ACT=11 AUTO MODE=-=HALT!!

aSWR
EXITER

2(SP) ,RO
ERRCNT
#5W08,3SWR
1$
#5W10,3SWR
23
NEXT ,RETURN
#STACK,SP

s SHOW
:
DA°

sHALT ON ERROR?
:BR IF NO HALT ON ERROR
¢SAVE RO
:SHOW ERROR PC IN DATA LIGHTS
sHALT
¢GET RO
sUPDATE ERROR COUNT
:GOTO TOP OF TEST?
sBR _IF YES
:GOTO NFXT TEST?
:BR_IF NO
sSET FOR NEXT TEST
sRESET SP

MACY11 30A(1052) 20-JuL-83
CZDPE
CZOPEC.P11
19-JuL~-83 17:09
1210
1211

1212
1213
1214
1215
1216
}g}g

004264
004270

004272
004274
004276
004300
004302
004304

000177
000002

000001
006
001266
000001
003
001226

174724
002
002

SEQ 26

13:32 PAGE 34
END OF PASS ROUTINE
JMP
28:
RTI
ERTABO: 1
.BYTE
SAVP(
XTSTN:
1
.BYTE
TSTNO

SRETURN
6,2
3,2

GOTO SPECIFIED TEST
sRETURN

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

}%g}

0064306

004310

13:32 PAGE 35
END OF PASS ROUTINE
;WAIT ROUTINE
SMALL: NOP

000240

RTS

000207

1223

1226

0064312

012737

1228
1229
1230

0064322
004324
004330

000005
012706
012737

1231
1232
}ggz

004320

004336
004340
004342

000000

104402
004355
000177

004322
001150
004312

004346

020040

000077

1238
1239

0064362
004370

040506
020056

046111
000

1240
1241
1242
1243

1264
1245

1246
1247
1248
1249
1250

004352
004355

004373

004400
0044
004414

0046416
004421

1251

004426
004434
004442
004450
004456
0044

1253
1254
1255
1 50
1257

004476
004504
004512
006514
004522

1252

1258

1259
1260
1261

004470

0045¢6

0045
004542
004550

1262

004555

1264

004563

1266

004571

1263

000024

HALT

RESET
MoV
Mov

TYPE
MPOWER
JMP

MQM:

JASCIZ

sLOAD PFAIL VECTOR FOR POWER UP

#STACK,SP
#.PFAIL,26

sWAIT TTY TO COME UP
¢REINIT STACK POINTER
;LOAD PFAIL VECTOR FOR POWER DOWN

aRETURN
/7

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

042777

062116

MEPASS: .ASCIZ

<15><377>/END PASS CZDPEC /

051377
377

000
051120

043517

MR:
MERR2:

LASCIZ
.ASCIZ

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

044777

051516

043125

MERR3:

.ASCIZ

<377>/INSUFFICIENT DATA!/

051505

020124

MTSTPC: .ASCIZ

<377>/TEST PC-/

061517

020113

MLOCK:

.ASCIZ

<377>/LOCK ON SELECTED TEST/

051123

020072

MCSRX:

.ASCIZ

/CSR: /

.ASCIZ

/VEC: /

015

050040
055103
000040

0640522
044504
020123
053105
050040
052116

044506
020124
000041
052377
041520

046377

047117
041505
042524

103

000

1279
1271
1272

004576
004602
004610
004613
004620
004625

035123
051105
020072

1276

004634

053523

004627

PWRUP:

#PWRUP, 24

020122

004570

1273

.PFAIL: MOV

(ASCIZ
MCRLF:
MPOWER: .ASCIZ

000

1267
1268
1269

000
053520

005015
377

004562

1265

000024

174646

1235

1236
1237

sSTALL

sRETURN

;POWER FAIL ROUTINE

}%%g
1227

SEQ 27

051501
050104

020115
040503
047516
061511
042522
000056

044503
040504
000055

051440
042524
052123

062105

020123
041505

047111
042524
042040
051505
042523

047105
0405264

046105
020104
000

126

041595

020072

MVECX:

120

051501

042523

MPASSX: .ASCIZ

/PASSES: /

051522

MERRX:

.ASCIZ

/ERRORS: /

051505
020072
000

0201246
000

MTSTN:

_ASCI2

/TEST NO: /

052111

044103

126
047516
052

377

000040
047522
000

042523

020124

MASTEK: .ASCIZ

MNEW:

.ASCIZ

/*/

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

MACY11 30A(1052)
C20PE
19-JUL-83
CZDPEC.P11

20-JuL-83

051040

044524

€ = \ ) = \) = \ ) = —d b\ N}
- O wd O b wd b wd Q) b b =
2 QNN
NN =D b Y =d

020072

13: 32 PAGE 36
END OF PASS ROUTINE

052040
030520
042504
020104
042526
/PC: /

000
020103
042101

MERRPC: .ASCIZ

MCSR:

.ASCIZ

<377>/REC CSR ADRS /

040440
00

MVEC:

.ASCIZ

<377>/VEC ADRS /

MMODEM: .ASCIZ

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

047040

MJMPR:

.ASCIZ

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

044124

MTCN:

.ASCIZ

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

047511
024040
033440

MPAR:

.ASCIZ

<377>/PRIORITY (4 TO 7) /

020103
050115
020077
020122

MSTUM:

_ASCIZ

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

051040
051120
024040
047040

MSRJM:

.ASCIZ

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

020120

XHEAD:

.ASCIZ

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

NININIPNOLNOINININ)
= b =b b b b b b b
W)
o0 oo NOWVS WN=20O VDN OSSN =O

b
b b
b e
b o
b
b
b
b e
b
b e md

- ok b b
W

020051

043117
030461
052524

051440
177523

(Y OR N)

052040
052120
020114
046512
037516
047440
020040

%WWWWWWWWWMWWWWW“WWW
g3

1307

SEQ 28

VSN =200V
NOWVESWN
=00V ~NO

VIV

NN
N NN NN

S AA
wgu

N NN NN N

MACY11 30A(1052)
20-JUL-83
CZDPE
{CZDPEC.PY
19-JuUL-83 17:09

005321
005326
005334
005342
005359
005356
005364
005372
005375

377
044124
040506
052512
020123
047111
047440
020040
377
051504
047101
047502
037516
051117
000040

005442
005444
005446
005450
005452

000002

005454

000000

005402
005410
005416
005424
005432
005440

006

001236
006
001240

13:32

PAGE 37

END OF PASS ROUTINE

051101
020105
046125
050115
046101
020077
020122

020105
042504
020124
051105
020114
054450
024516

MALLJM: .ASCIZ

051101
020103
020104
0441246
024040
047040

C€20105
02006
020062
0464440
020131
020051

MTMDSC:

000

LASCIZ

003

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

6,3

.BYTE

6,2

TEMP1

002
.EVEN

TEMP2

TEMP:

.=. 440

005516

005560

:
INBUF

000001

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

.EVEN

XSTATQ: 2

MDATA:

005622

SEQ 29

TRP.PC:

.BLKW 1

€

MACY11 30A(1052) 28-JUL-83
P11
19-JuL-83 17
CZDPEC.

13:32

PAGE 38

END OF PASS ROUTINE

ROUTINE USED TO ‘‘CYCLE'' THROUGH UP TO EIGHT DUP11'S

;THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
THIS ROUTINE «MUSTe
:AND RUNS THE SPECIFIED DUP11°'S.
:BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE

JeRERE &

C2DPE

~N -~ ~
Vi W)
—

d
=
b e

005624

WWNW

:SETUP NECESSARY.

=2
OO0V
NOWVE
W
PV T

U‘W%

b wmd

b ==

1382

pay —d ad ad ad

SEQ 30

1395

105737
001004
104402
000000
000776
012700
012037
012037
012037
012700
013737
005237
013737
005237
013737
013737
013737
005237
013737
013737
005237
013737
005237
013737
005237
013737
005237

001316

013737

001402
001404
001404
001406
001406
001410

CYCLE:

004421
001500
001412
001402
001442
000002
001412
001432
001432
001414
001414
001414
001414
001430
001430
001426
001420
001420
001436
001436
001422
001422
001434

18:

T7ST18

BNE

TYPE
HALT
BR

MOV

MOV
MOV
MOV

Moy

001432

006116
006120

104403

004613

004352

.MERR2
.=2

#DUP_.MAP
R0
(RO)+ ,RXCSR
(RO)+,DUPRVC
(R0)+,L00.00
#2,RO
RXCSR,HUPRCR
HUPRCR
HUPRCR ,RXDBUF
RXDBUF
RXDBUF ,DUPSE(
RXDBUF ,PARCSR
RXDBUF ,HUPRBF
HUPRBF
HUPRBF ,HUPPSR
HUPPSR, TXCSR
TXCSR
TXCSR,HUPTCR
HUPTCR
HUPTCR, TXDBUF

sARE ANY DUP11°'S TO BE TESTED?
:BR IF OK,

:NO DUP11°S SELECTED!!

:STOP THE SHOW.
:DISQUALIFY CONT. Sw.
:RESTORE POINTER.

:LOAD SYSTEM CTRL. REG

;LOAD VECTOR
:GET PARAMETERS
:SAVE CORE THIS WAY!

:GET CONTROL REG HIGH BYTE

001414

MoV
INC
MOV

001424
001416
001430

Mov
MOV
MoV

001426
001420

MoV
MOV

001436

MOV

001422

MoV

001434

MoV

TXDBUF ,HUPTBF
HUPTBF

sGET }¥ BUFFER HIGH BYTE

001404

MoV
ADD
MOV
ADD
MOV
ADD

DUPRVC,DUPRPS

sRX VECTOR
sRX PRIORITY LEVEL

INC

INC
INC

INC

001406

001410

001442
001440
001441
006234
000042
000002

DUPACTV
18

173072
7%:

TYPE

TXDBUF

RO,DUPRPS

DUPRPS ,DUPTVC
RO,DUPTVC
DUPTVC,DUPTPS
RO,DUPTPS
#L00.00,RO
#MASK
A, R1
#CLK.A,R2
PC,FIX.00
aNL2
43
#SW01,3SWR
43

MCRLF

sGET ?¥ CONTROL REG BUFFER
;GOT SECONDARY REG SELECT REG
:GOT PARAMETER STATUS REGISTER
sGET ?¥ BUFFER HIGH BYTE
:GOT PAR STATUS REG HIGH BYTE
sGET T¥ CONTROL REGISTER
|

sGET }¥ CONTROL REG HIGH BYTE
.BEY }¥ BUFFER

sTX VECTOR
sTX PRIORITY LEVEL

;LOAD STAUS 00-00

:PREPARE MASK.
:PREPARE CLOCKS
;GO AND CALCULATE CONFIGURATION.

;1F SW01=1,GET STARTING TEST #

JOUTPUT MESSAGE & GET INPUT STRING
sMESSAGE

20-JuL-83
MACY11 30A(1052)
CIDPE
19-JuUL~83 17:09
CZOPEC.P11

13:32 PAGE 3 9
END OF PASS ROUTINE
:ARAH

104405

1000

.BYTE
.BYTE

006364
012737
001226

000002

001226

000004

010036

012737
000177

006364
172760

011003
000207

TSTNO

0
1

5%:

MOV
CMP

6$:

MOV
TYPE
TYPE
B8R
TST

001214
004352
004416

020027
001352
104402
000734

SEQ 31

BNE
CMP
BNE
CMP
BNE

CMP
BNE

TYPE
BR

004346

001214

(8
8s:

Mov

JMP

FIX.00: MOV
RTS
5%.

s CONVERT STRING
;LOW LIMIT
SHIGH LIMIT

;STORE AT THIS LOCATION
*MASK

uou mnv TIMES ¢ 2

012737 (RO)

#TST

6
TSTNO,2(RO)
6$
#TSTNO,4 (RO)
6
RO,RETURN

+MCRLF

:SAVE PC

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

s
#TST1,RETURN
SRETURN

sPREPARE RETURN ADDRESS
;G0 START TESTING.

;20).R3

sGET PARAMETERS.

CZ0PE

20-JuL-83
19-JuUL~83 17:09

MACY11 30A(1052)

CZOPEC.P11

SEQ 32

13:32 PAGE 40
END OF PASS ROUTINE
sTHIS ROUTINE PICKS UP THE ADDRESS OF
:THE JUMPER TABLE AND LOADS RS WITH
:THE CORRECT DATA BASED ON THE STATE
;OF THE JUMPER AND CONNECTOR FLAGS.

001324

JUMPER: MOV

1ST8

BEQ
TST8
BEQ

001325

MOV

006304

001325
006304

006306
006310

012100
105737

001324

006330

2%:

3s:
5%:

006360
006362

012577
012577
112577
112577
000205
104001
000002

104002
000002

173044
173044
173036
173036

CMP

T7ST8
8EQ
MOV

JMP
MOV
RTS

OJUMPER :MOV
TST8
8EQ
MOV

48:

6$:

006332
006336
006342
006346
006352
006354
006354
006356

JMP

JMP
cmp
MOV

RTS

(R1)+,R0
TCNFLG
2%
OPCLRJ
s
(RO) ,RS

;GET THE TABLE ADDRESS
:TEST THE TURN AROUND CONNECTOR FLAG
*BRANCH IF CONNECTOR IS MISSING
:TEST CLEAR JMPER FLAG
BRANCH IF JMPER IS MISSING
SMOVE THE DATA TO RS, BOTH JUMPER

(RO)+,(RO)+
OPCLRJ
3s
ggO).RS

;POP POINTER

(RO)+,RS

:NO CONNECTOR OR JUMPER

(R1)+,RO
TCNFLG
43
(RO) RS
6$
(RO)+,(RO)+
(RO) ,RS

:GET THE POINTER ADDRESS
:CHECK FOR TURNAROUND CONNECTOR
BR IF MISSING
HOVE THE INFO TO RS
GO BACK
:POP POINTER
LOAD DATA TO RS

:AND CONNECTOR ARE THERE

sTEST CLEAR JMPER FLAG
BRANCH 1F MISSING
HOVE DATA= JUMPER IN, CONNECTOR OFF
;RETURN

*RETUN

:ROUTINE TO SET UP INTERRUPT VECTORS

SETVEC: MOV
MOV

Move

MOVB
RTS

NO.ATRAP:
HLT
RTI

NO.BTRAP:
HLT
RTI

(R5)+,aDUPRV(
(R5)+,3DUPTVC
(RS) +,3DUPRPS
(RS)+,3DUPTPS
RS
1

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

PAGE 41

13:32

1492
1493
1494
1495
1696
1497
1498
1499
1500
1501

SEQ 33

END OF PASS ROUTINE
JNRRAEAERARRRANCETRONORNNANS TEST 1

asasnnetenttseasasnsestends

tTHlS TEST PROVES THE INTERACTION OF DTR!RTS!STD

tHIIH RING,DSR,CTS ,CARDET,STD,SRD
tAND DATA SET CHANGE ONE AND DATA SET CHANGE TwO.

'SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR

tTHE BIT AND VERIFY CLEAR. REPEAT FOR MRESET.

tt.ttttt.t'ttt'..t.ttt.."..ttt.Q'QQ.t't'.'tt.'..'.tt'.'.'tt"

IRARRNRARNENS

TEST 1
232221021442

012737
012737
012746
012746

b d b

b b b

WWNWNNANININININININININ)
= b wd b b o b b b b
grhU“hU“hU“AU“”U“#U“AU“flU“hU“AU“AU“h
isuflv-flCDCND‘UO“AJ\U“U-‘CMOOD‘dOHfiJ\UNNMdCD

AR RARARANEANRAR A AR N EEREARANAARAAREANAANAAARRRALOAARNAORRQCCRCORNNOS

b b b b
b e
b o
b b i
b e

NOMWN
J‘&thb&darfla=vl

NOWNMESWLWN=OO

005327

MOV

#TST2 NEXT

MOV

#173001.-(SP)

MOV
1ST8
BEQ
ggga

#0,-(SP)
TCNFLG
63
ALJMFL

MOV

:
1008

BNE
8IC

1018
R1.7%

8IC

R1,78+4

006734
006736
006740
001346

102$:

006734
006736
006306

128:

TST8

006616
172620

66$:

004000

172610

67%:

172654

1028

SRJMFL

BNE
DEC
DEC

12%
143
78+2

JSR
43

DSCFLG

R1.0JUMPER
aRXCSR

:THIS CALL DETERMINES IF TURNAROUND CONNECTOR

*AND OPTIONAL JUMPER ARE USED
:AND LOADS RS (EXPECTED) ACCORDINGLY.

BIS
JSR

#MRESET,3TXCSR
PC,SMALL

;RESET THE DEVICE
‘WAIT FOR RESET TO FINISH

BIS

MMEXT @TXCSR

ENTER EXTERNAL MAINT. MODE

MOV

18:

R1,78+2
1028
R1,7$
R1,78+2
R1,78+4

TST8

sH325 TEST CONNECTOR ON?
sIF NO, SKIP TEST.

STJMFL

E
8IC
BIC
IC

CLR

172654
000400
004306
001412
010000
000016
000110
004000

172636

:SAVE

#1016, -(SP)

MOV

BIC

101$:

2123017, <(SP)

128
#STD!SRD,R1

1ST8

001340

#1,34TSTND

MOV

006734
006736
006740

i o
b
i
b e
e

ST1:

002010
001336

b b eud

MRV

001226
001216

001344

Nk
Ll

b b b b o

000001
006744
173017
173001
001016
000000
001324

BIS

MOV

BIT

BNE
8IT
BEQ
DEC

RXCSR,R3

‘LOAD THE RECEIVER CONTROL REGISTER TO R3.

#DTR'RTS'STD,
(R3}
;TURN ON DTR!RTS!STD
#110,68$
LOAD THE NUMBER
STIMER,3TXDBUF : CHECK THE TIMER BIT
668
#TIMER,TXDBUF
678
(PC)+

‘BR IF SET
:cuscx THE BIT
BR IF CLEAR
;DECREMENT THE NUMBER

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

1543
1549
1550

006616
006620
006622

000110
001365
011304

1552
1553

006626
006630

001401
104003

1556
1557
1558
1559
1560
1561
1562
1563
1564
1565

006644
006646
006654
006662

006672
006674
006676
006700
006702

005013
012737
032777
001374
032777
001774
005327
000005
001365
011304

1567
1568

006706
006710

001401
104003

1570
1571
1572
1573
1574
1575
1576
1577
1578

006712
006716
006722
006726
006732
006734
006736
006740
006742

012637
012637
012637
012637
104400
173017
173001
001016
000000

1551

13:32 PAGE 42
END OF PASS ROUTINE

68$:

006624 020504

1569

000005
004000

006676
172540

004000

172530

3$:
71$:

72%:
738:

704 020504

006712

110
BNE
MOV

668
(RS) R4

:OF TIMES TO REPEAT
BR IF MORE T0 GO
:GET THE BITS FROM THE RXCSR

BEQ
HLT

2
3

BRANCH IF THEY MATCH
NO MATCH = SHOW OPR.

(R3)
#5,73%
JTIHER 8 TXDBUF
71%
#TIMER,TXDBUF
72%
(PC)+
718
(R3) ,R4

JCLEAR OUT THE REGISIER
LOAD THE NUMBER
CHECK THE TIMER BIT
.BR IF SET
:CHECK THE BIT
:BR IF CLEAR
DECREHENT THE NUMBER
OF TIMES TO REPEAT
BR IF MORE TO
G
READ BACK IHE REGISTER

63
3

BRANCH IF ONLY THE DSC BITS ARE SET
NO-GO TELL OPR

CMP

1554 006632 012737 006644 001220 2$:
0 042705 073016
1555

1566

SEQ 34

6$:

006742
006740
006736
006734

7$:

5,Ré

MOV
8IC

;R5=600D Ré4=?

#38,L0CK
SUO9 SETUP
lRING‘CTS'CARDEY'SRD‘DSR'STD'RIS'DTR RS

CLR
MOV
BIT
BNE
BIT
B8EQ
DEC
5
BNE
MOV

CMP

RS,Ré

MOV
MOV
MOV
MOV
SCOPE
WORD
.WORD
.WORD
.WORD

(SP)+,7%+6
(SP)+,7%+4
(SP)+,78+2
(SP)+.7%
173017
173001
1016
O

BEQ
HLT

;CLEAR OUT UNWANTED BITS

RS-GOOD

sRESTORE

;SCOPE THE WHOLE TEST

1581

JUNRRAREARERAAAACREARANANNY TEST 2 et aasaaat ettt tteasatany

1583

tPATIERN WITH A CRC CALCULATION AS A SECONDARY STATION

1582

tTEST OF THE DUP RUNNING A BINARY COUNT

1584

CARARNNAN R AN N RN RN AN AN AR NN

1585

1586

JINRARARARANNN

1587

1588

: TEST 2

1589

DIRRRERRAREANEN

1590
1591

1592

006744

012737

000002

001226

1594
1595

006760
006766

052777
004737

000400
004306

172432

1597
1598
1599
1600

006776
007000
007006
007014

001403
012737
012737
005001

1593 006752 012737 010026 001216

Tste:

007016
007024
007032

012737
012737
013737

mov

MOV
8IS
JSR

1596 006772 105737 001324

1601
1602
1603

AN NN AR RN A RN AR ARARRRARARAAROOCES

1518

010000
000005

007104
001244

102010
177777
010024

010020
010024
007054

1028:

16$:

BEC
MOV
MOV
CLR

MOV
MOV
MOV

LA AR

AR AT CARAARRARAORANRAANRNRETRANTEANRRARORACRACENRAE

#2,34TSTNO

JISTS NEXT

lflRESEI aTXCSR
PC.SHALL

RESET THE DEVICE
UA FCR RESET TO FINISH

102%
JHEXT.103$02
#5,TEMPS
R1

1F NO, BR.
'lF VES SEI MAINT

TCNFLG

HSZS TEST CONNECTOR ON?

sCLEAR OUT DATA
#CRC.CCITT, XPOLY SET UP THE POLYNOM_AL
#-1,CALBCC
JSETUP FOR THE FIRST TIMe
CALBCC 20%
ALLOU FOR THE NEXT CHARACTER

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

007040

010137

1607

007052

000001

1605
1606

007044
007050

004537
000010

1616

007056
007060
007062
007070
007074
007102
007110
007114

105201
001364
012737
005037
012737
052777
004537

007052

007646
178:

007402

1617 007116 007450
1618
1619

007120

1622
1623
16264

007122
007126
007130

105737
001427
013703

1626
1627

007142
007150

013737
052777

1620
1621
1625

007134

340

012777

1629
1630
1631
1632
1633
1634
1635
1636

1637

007162
007170
007172
007174
007176
007200
007202
007204

032777
001006
005302
001372
005303
001366
104007
000475

103$:

001342
001310
010000
001314
000006

007372
172234

020000

172222

172256

<DATA

:PREVIOUS BCC

s INCREMENT DATA
BR IF MORE TO GO
sLOAD DATA
CLEAR EXPECTED
:PS= 7
ENTER SYSTEM TEST MODE
:LOAD INTERRUPT VECTORS
;RECEIVER

: TRANSMITER

;LEVEL
T

1068:

1048:

000020

172162

28%:

1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659

007244
007252
007260
007262
007270
007272
007274
007276
007300
007304
007306
007310
007314
007316
007322

012737
032777
001374
032777
001774
005327
000005
001365
005337
001001
104004
105777
100353
005077
052777

000005
004000

007274
172142

66%:

004000

172132

67$:

1$:

1018

68$:
001244

172104

3s:

172070

BIT
BNE
DEC
BNE
DEC
BNE
HLT
B8R

#CTS,SRXCSR
1048
R2
105%
R3
106$
7
63

BIS

#RCVEN,SRXCSR

;TURN ON THE RECEIVER

MoV

#TSOM.@TXDBUF

:TURN ON START OF MESSAGE

MOV

1058:

172170

172156

MoV
8IS

MDMFLG
sMODEM CONNECTED?
1048
:1F _NO, BR.
REPEAT ,R3
REPSAT CYSDLY
#MEXT ,@TXCSR
sSET EXTERNAL MAINTENANCE
DELAY,73%
;SET TIMER
#DTRIRTS ,@RXCSR ;ENABLE MODEM.

MOV

000100
172172

172100
000100

R1
16$
#1,TEMPT
TEMP2
#340,PS
#SYSTST,@TXCSR
RS,SETVEC

1ST8
BEQ
MOV

052777
105777
100375
052777

000400

INCB
BNE
MOV
CLR
MOV
BIS
JSR

;60 CALCULATE SOF TWARE BCC
:BASED ON THESE PARAMETERS

bbb it

;#«FOLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED*+
L L
L
L L L T
s T
T
e e e e T
L

007214
007222
007226
007230

012777

.BYTE
340,340
T
L

1639
1640
1641
1642

88;522

sLOAD DATA

R5,SIMBCC

128

1638 007206 052777 000020 172176

}gzz

BLKW

118

340

1628 007156 013702 001312

R1,178

.BLkW

001236

177776
172310

Mov

JSR
8.

208:
000001
001240
000340
004000
006332

SEQ 35

13:32 PAGE 43
END OF PASS ROUTINE

1608 007054 000001

1609
1610
1611
1612
1613
1614
1615

4$:

CTSDLY RS

8IS
1ST8
8PL
8ls
Mov
BIT
BNE
BIT
BEQ
DEC
5
BNE
DEC
BNE
HLT
1578
8PL
CLR
8IS

NRINTEN,SRXCSR
8TXCSR
18
#SEND ,@TXCSR
#5,68%
NTIMER,STXDBUF
663
#TIMER,@TXDBUF
67%
(PC)+
663
TEMP4
3s
4
8TXCSR
101$

S8TXDBUF
#TXINTE ,@TXCSR

:WAIT FOR CTS

;CLEAR TO SEND UP?
sIF YES, BR.
sSTEP COUNTER IF NO.
cIF NO TRY AGAIN
*ALLOW CTSDLY TO REPEAT
:BR IF NOT COMPLETE
sCTS STILL NOT ACTIVE
:D0 NOT CONTINUE TEST
L L

L L T T

;TURN ON REC INTERRUPT ENABLE
;TEST FOR TX DONE
;BR IF NOT SET
sTURN ON SEND
sLOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
:BR If CLEAR
:DECRENENT THE NUMBER
:OF T,MES TO REPEAT
:BR IF MORE TO GO
;WAIT FOR DONE
sBR IF NOT SET
;PUSH QUT DATA
;TURN CN TRANSMITTER INT ENABLE

e T

T e T

MACY11 30A(1052) _20-JuL-83
CZDPE
19-JuL-83 17:09
CZDPEC.P11

1660

1661
1662

007330
007334

005037

13:32 PAGE 44
END OF PASS ROUTINE

177776

5%:
P

1663
1664

007336
007340

105737
001003

001342

1666
1667
1668
1669

007342
007350
007356
007360

012737
032777
001374
032777

000040
004000

007372
172044

718:

004000

172034

728%:

1671

007370 005327

1665

1670

1672
1673
1674
}g;g

007366

007372
007374
007376
007400

001774

SEQ 36

000040
001365
104004
104400

CLR
L

1ST8
BNE

;LOWER PROCESOR STATUS

T Ty

MDMFLG
718

;MODEM FLAG SET?
:IF YES, BR

MoV
BIT
BNE
BIT

#32.,73%
#TIMER,QTXDBUF
718
#TIMER,QTXDBUF

DEC

(PC)+

;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR _IF SET
;CHECK THE BIT
:BR IF CLEAR

738:

6$:

BEQ

32.
BNE
HLT
SCOPE

728

718
4

1679

:RECEIVER:

007410
007416
007420
007422
007426
007432
007434
007440

1690
1691

007444
007446

017737

001240

340
000002

340

1689 007442 007450
1692

1693 007450

172006 001326

123737
001401
104004
105237
105737
001005
004537
007554

001326

118:

001240
001240

006332

113777 001236

171744

TEMP1,8TXDBUF

;LOAD THE TRANSMITTER BUFFER

138

;LEAVE

171706

1699
1700
1701
1702
1703
1704
1705
1706
17207
1708
1709
1710

007502
007510
007516
007520
007526
007530
007532
007540
007546
007552

012777
012777
000413
012777
000240
000240
042777
012777
012716
000002

000377
007520

171712
171670

21§:

001000

171674

22%:

000120
006360
007334

171660
171640

007554

117737

171634

001326

1712
1713

007566
007570

100375
117737

007602

000002

1715

; TRANSMITTER

MOv8

007502

1714 007576 012716 007604

sCHECK IT
:BR IF OK
s COMPARISON ERROR
sCOUNT UP EXPECTED
s CHECK TO SEE IF DONE
:BR IF
YES--RESET THE VECTORS
;RECEJVER

i28:

: TRANSMITTER:

001236

001327

sGET THE REGISTER AND DATA

78:

001236
000377

171620

TEMP2 ,DATA
R
4
TEMP2
TEMP?
78
R5,SETVEC
340,340

105237
122737
001026
012777

007562 105777 171624

SRXDBUF ,DATA

LBYTE
RTI

007456
007462
007470
007472

1711

cMPB
BEQ
HLT
INCB
1ST8
BNE
JSR
148

12%

1694
1695
1696
1697

1698 007500 000422

MOV

:DECREMENT THE NUMBER

:OF TIMES TO REPEAT
:BR IF MORE TO GO
sFAILED TO INTERRUPT IN TIME
;SCOPE THIS TEST

s INTERRUPT SERVICE ROUTINES

1681
1682
1683
1684
1685
1686
1687
1688

A A LI

DL L L L DL DL L L LR L

ttttttttttttttttttttttttttttttttttttttttttt'ttttttt#ttttttttttttttttttttttttttt

}g;g

1680 007402

bbbk

138:

14$:

INCB
CMP8
BNE
MOV

TEMP1
#377,TEMP1
138
0218.3DUPTVC

sLEVEL
sRETURN

;UP THE COUNT
;ARE WE DONE
:BR_IF
sSETUP FOR NEXT PART

MoV
#377,8TXDBUF
;LOAD BUFFER
MOV
#22%,3DUr IVC
;SETUP NEXT PART
BR
138
;LEAVE
MoV
lTEOH ATXDBUF
:SET END OF MSG
NOP
;STALL
NOP
:DITTO
BIC
#SEND
' TXINTE,@TXCSR ;TURN OFF TRANSMITTER
mov
#NO.BTRAP,3DUPTVC ;LOAD VECTOR
MOV
#58,(SP)
s CRUNCH STACK
RTI
sRETURNS
sCRC CATCH INT SVC
Move
SRXDBUF ,DATA
sGET FIRST PART OF (CRC

1ST8

aRXCSR

UAIT FOR SECOND PART

MOV

#158,(SP)

;SETUP FOR RETURN

BPL
MOv8
RTI

.~
SRXDBUF ,DATA+1

:DITTO
:GET THE REST OF THE CRC
:RETURN

CZ0PE
MACY11 30A(1052) 20-JUL-83
C20PEC.P11
19=-JuUL~-83 17:09

13:32 PAGE 45
END OF PASS ROUTINE

1716

007604

012737

000340

177776

1718

007616

023737

010026

001326

1722
};gz

007636
007642

004737
000137

000400
004306
007400

171562

1717 007612 005137 010024
1719
1720
1721

1725

007624
007626
007630

001401
104004
052777

15%:

MOV

#340,PS

CMP

CALBCC,DATA

COM

8EQ
HLT
8IS

JSR
JMP

1726
1727
1728

007646
007650
007652

0100/,
010146
010246

SIMBCC: MOV
MOV
MOV

1730
1731

007660
007664

012537
012537

001240
001242

1733
1734
1735
1736
1737
1738
1739
1760
17641

007674
007700
0077046
007706
007712
007714
007720
007724
007726

013700
006037
005500
032700
001402
005137
013700
005100
040537

001242
001240

010022

MOV
ROR
ADC
BIT
BEQ
COM
MOV
COM
8IC

17243
1744
1745

007734
007740
007744

006037
013700
013701

001242
010022
001242

ROR
MOV
MOV

MOV

1729 007654 012537 001236

1732 007670 005037 010022

1742

1746
17647
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763

1765
1766

1767
1768
1769
1770

007732

007750
007752
007754
007760
007762
007770
007774
010000
010002
010010
010012
010014
010016
010020
010022
010024

000241

010102
040100
043702
050200
043737
050037
005337
001333
013737
012602
012601
012600
000205
000000
000000

000000
120001
102010

SEQ 37

1$%:

000001
010022

010020

2$:

MOV
MOV

CLR

cLe

010022

010020
001242
001236

001242

010024

MOV
8I1C
8IC
BlS
8IC
8IS
DEC
BNE
MOV
MOV
MoV
MOV
RTS
XPOLY: 0
BCCFBK: 0

CALBCC

.t
4
#MRESET ,aTXCSR

PC,SMALL
63

:RAISE PS

INVERT 8cCC

COHPARE SOFTWARE AND HARDWARE BCC

BR If 0K
BCC COMPARISON ERROR
RESET THE DEVICE

UAIT FOR RESET TO FINISH
.LEAVE

RO,=(SP)
R1,=(SP)
R2.=(SP)

(RS)+, TEMP1

(RS5)+,TEMP?2
(RS)+,TEMP3

BCCFBK

TEMP3,R0O
TEMP2
RO
#817T0,R0O
2%
BCCFBK
XPOLY,RO
RO
RO,BCCFBK

TEMP3
BCCFBK,RO
TEMP3,R1
R1,R2
R1,RO
BCCFBK,R2
R2,RO
XPOLY,TEMP3
RO, TEMP3
TEMP1
1$
TEMP3, CALBCC
(SP)+,R2
(SP)+ R1
(SP)+,RO
RS

CALBCC: 0
CRC16=120001
CRC.CCITT=102010
JNRNRARRRAARARAAAANRTRRANER TEST 3 stnnnnnannannsstetattetetes

-ru:s TEST PROVES THE DEVICE WILL HANDLE THE
'DDCHP PROTOCALL. SEND AND RECEIVE SYNCS,
tFOLLOUED 8Y DATA,BCC,DATA AND FINAL BCC.

untunn"t"nnnt"n"n"nnt"ttn"tntnuun"nt

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

13:32 PAGE 46
END OF PASS ROUTINE

1772

JINARARARERARS

1773

1775

1774

JIRERNRRNR

1778
1779

010026
010034

012737
012737

1781

010046

001403

1780

1782
1783
1784

1785
1786
1787
1788
1789
1790
1791
1792
1793
1794

};32

1797

1798

010042

010050
010056
010064

010070
010072
010074
010076
010102
010106
010112
010116
010122
010130

8}8}23
010142

105737

012737
012737
004537

010626
010450
340
005037
005037
005037
005037
005037
052777

004737

012777

052777

000003
002352

001324

010000
000340
006332

001226
001216

010144
177776

340
001236
001240
001242
001244
001246
000400

171270

100026

171254

004000

171250

004306

1799

1800

TST3:

MOV
MOV

TSTB

101$:

MOV
MOV
JSR

108
2$
.BYTE
CLR
CLR
CLR
CLR
CLR
BIS

340,340
TEMP1
TEMP2
TEMP3

AR AN

ACE AR TN

AR ES

:H325 TEST CONNECTOR ON?

JIF NO, BRF

JIF YES, SET MAINTENANCE
;RAISE PROCESSOR STATUS
sSET UP VECTORS
JBASED ON
s THESE
JPARAMETERS

TEMP4

JSR

TEMPS
#MRESET ,@TXCSR
PC,SMALL

BIS

#SYSTST ,8TXCSR

;RESET THE DEVICE
:WAIT FOR RESET TO FINISH

;LOAD THE MODE AND SYNC CHARACTER

#DECMOD ! 26 ,8PARCSR

MOV

1028

RN AR

AT TR NN RN

#3,84TSTNO
#.EOP ,NEXT
TCNFLG
1018
#MEXT,1028+2
#340,PS
RS,SETVEC

BEQ

010150
010154
010156
010162
010170
010176

105737
001427
013703
012777
013737
052777

001342

001310
010000
0013146
000006

010422
171206

1808
1809
1810
1811
1812
1813
1814
1815

010210
010216
010220
010222
010224
010226
010230
010232

032777
001006
005302
001372
005303
001366
104007
000476

020000

171174

1817

010234

1807 010206 013702 001312

171230

1058:

TS18
BEQ
MOV
Mov
[ [0]")
BIS

104$:

103$:

1818
1819
1820

010234
010242
010250

052777
052777
012777

000420
000020
000426

171150
171150
171144

1822
1823
1824
1825
1826
1827

010264
010272
010274
010302
010304
010306

032777
001374
032777
001774
005327
000030

004000

171130

66$%:

004000

171120

67$:

1821

AAR

AN RN RN

;ENTER SYSTEM TEST MODE
e L

e T

AT L A L

bbb bbb datuiniviintdintai

:«+FOLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED®**

1801
1802
1803
1804
1805
1806

1816

: TEST 3

1776

1777

SEQ 38

010256 012737 000030 010306

68$:

MOV

CTSDLY,RE

#CTS,8RXCSR
103$
R2
1048
R3
105%
7
18

BIS
BIS
MoV

#RCVEN'!STPSYN,aRXCSR
#SEND ,a@TXCSR
#TSOM!26,8TXDBUF

BIT
BNE
BIT
BEQ
DEC
30

#TIMER,@TXDBUF
663
#TIMER,aTXDBUF
67%
(PC)+

MOV

b L A LA S AL DAL DAL LA LA AL ALl

*WAIT FOR CTS

BIT
8NE
DEC
BNE
DEC
BNE
HLT
BR

bbbttt

MDMFLG
;MODEM CONNECTED?
103$
:IF NO, BR.
REPEAT ,R3
JREPEAT CTSDLY
#MEXT ,@TXCSR
:SET EXTERNAL MAINTENIANCE
DELAY,74$
JSET TIMER.
#DTR!RTS ,@RXCSR ;ENABLE MODEM.
JCLEAR TO SEND UP?
:1F YES,BR.
:STEP COUNT IF NO.
JTRY AGAIN.
;ALLOW CTSDLY TO REPEAT
:BR IF NOT COMPLETE
:CTS STILL NOT ACTIVE
:D0 NOT CONTINUE TEST.

#30,68%

L e

s e L LA LA

;LOAD RCVEN!STPSYN
;TURN ON TRANSMITTER
;OUTPUT A SYNC CHAR

:LOAD THE NUMBER

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

Al e

20=JuUL-83
MACY11 30A(1052)
C20PE
.PN
19-JuL~83
17
:09
CZOPEC
010310
010312

001365
105777

00 0o o Co Oo 0o Co

RN
R R RRRRRRRE

VIS WN =O V0O NOWNB WO OO N S WR = O VBN

LN =

—l-l—l—l—l—l-—l—l-—l—.—l-—.-—l;—l—.d-.—J—l—.—l—l—ld—!—l—l—.dd—ldd-b
A
AR AR AR R R RRPRRR

1840

171072

000426
000100
000100
177776

69$:

1008

;B8R IF MORE TO GO

BNE

66$

BM]
HLT
MOV

., +4
5
sEXTERNAL CLOCKING STOPPED
#TSOM!26,aTXDBUF
aTXCSR
s CHECK DONE
:BR IF NOT SET
69$
#TSOM!26,8TXDBUF _ ;SEND SYNC
NRINTEN,SRXCSR ; TURN ON INTERRUPTS
NTXINTE ,@TXCSR ;DITTO

TST8

171102

000426
171064

005037

13:32 PAGE 47
END OF PASS ROUTINE

1ST8
BPL
MOV
BIS
BIS

CLR

aTXCSR

;LOWER PROCESSOR STATUS

;;tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt'tttttttt

010364
010370

105737
001003

001342

010372
010400
010406
010410
010416
010420

012737

000144
004000

010422
171014

72$:

004000

171004

73$:

104005

000400
004306
001150

MDMFLG
72%

sMODEM FLAG SET?
sIF YES, BR

MOV
BIT
BNE
BIT
8tQ
DEC
100.
BNE
HLT

#100.,74$
NTIMER,3TXDBUF
728
#TIMER,@TXDBUF
738
(PC)+

sLOAD THE NUMBER
;CHECK THE TIMER BIT
:BR_IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
sOF TIMES TO REPEAT
:BR IF MORE TO GO
SFAILED TO FINISH TEST

8IS
JSR
MOV
SCOPE

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

ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

74$:

052777
004737
012706
104400

1ST8
BNE

170762

728
5

;RESET THE DEVICE
SWAIT FOR RESET TO FINISH
¢RESET THE STACK
sSCOPE THIS TEST

s INTERRUPT SERVICE ROUTINES
sTRANSMITTER

012777

000252
000026
010474

170744

2s:

Mov

#252,3TXDBUF

<LOAD FIRST DATA CHAR

170720

3s:

MOV
INCB
CMP8
BNE
MOV
B8R

TEMP1,3TXDBUF
TEMP1
#32,TEMP1
78
#4$,8DUPTVC
7$

;MOV DATA TO BUFFER
:UPDATE DATA
s CHECK FOR DONE
;BR IF MORE TO SEND
sRELOAD VECTOR
;RETURN

001236
170714

001236
001236
000032

001236

010526

110662

001000
010544

170666
170644

001240
001240
000100

170650

5%:

001240

010576

170612

001000
000120
006360

170616
170606
170566

6$:

MOV
MOV
BR

MoV
MOV

BR
MOV
INCB
CMPB
BNE
MOV
BR
MoV

8IC

MoV

#26,TEMP1
#3$ ,aDUPTVC
78

NTEOM,3TXDBUF
#5$,3DUPTVC

78
TEMP2 ,@TXDBUF
TEMP2
#100, TEMP2
’$
#6$ ,3DUPTVC
7%
NTEOM,QTXDBUF

N DATA
sRELOAD VtuTOR
sLEAVE

:PUT OUT BCC
:RELOAD VECTOR

:RETURN
;LOAD DATA
sUPDATE DATA
sCHECK FOR FINISH
:BR IF MORE TO GO
:RELOAD VECTOR
:RETURN
:PUSH OUT DATA BCC

#SEND ! TXINTE,@TXCSR
#NO.BTRAP,3DUPTV(

sSHUT DOWN TRANSMITTER
;RESET VECTOR

SEQ 40

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

1884
}ggg

010620
010624

012716
000002

13:32 PAGE 48
END OF PASS ROUTINE

78:

010364

1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900

010626
010634
010642
010646
010650
010652
010656
010660
010662
010670
010672
010674

017737
017737
105737
100401
104005
005737
100001
104005
122737
001401
104005
012737

1902
1903
1904
1905
1906

010710
010712
010720
010724
010726

000531
017737
005737
100001
104005

010736
010740
010742
010746
010754
010756
010764
010766
010774
011000
011002
011006
011012
011014
011022
011030
011032

001401
104005
105237
122737
001107
012777
000503
017737
005737
100001
104005
012777
000470
017737
032737
001001
104005

011042
011046
011050
011056
011062
011064
011066
011074
011076
011100
0111046
011112
011114
011122

005037
000452
017737
005737
100001
104005
123737
001401
104005
105237
122737
001030
012777
000424

1907

1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
19246

1925

1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939

#1008, (SP)

;SETUP RETURN
sRETURN

sRECEIVER

}ggg

1901

MOV
RTI

170560
170554
001242

001242
001244

001244

118:

000252

001244

12$:

000026

001246

13$:

010702 012777 010712 170472

010730

011034

123737

012777

10$:

170476
001244

001244

14$:

001246

001244

15S8:

001246
000032

001246

16$:

010766
]
17047
001244

001244

011014

170370

170374
010000

001326
001326

18$:

011050

170340

19%:

170340
001244

001244

20$:

001332

001244

21$:

001332

170416

001332
000100

001332

011124

170260

17$:

228:

MoV
MoV
TST8
BMI
HLT
TST
BPL
HLT
CMPB
BEQ
HLT
MOV

SRXCSR, TEMP3
aRXDBUF ,TEMP4
TEMP3
118
]
TEMP4
12%
5
#252,TEMP4
13%
5
#26,TEMPS

sSAVE CSR
;SAVE BUFFER
s CHECK FOR DONE
:BR IF SET
sFALSE INTERRUPT
sCHECK FOR _ERROR
:BR IF NO ERROR
sRECEIVER ERROR
«CHECK DATA
sBR _IF A MATCH
sDATA COMPARE ERROR
sLOAD NEXT EXPECTED

BR
MoV
TST
8PL
HLT

26$
SRXDBUF ,TEMP4
TEMP4
15%
5

sLEAVE
;GET DATA
sCHECK FOR _ERROR
:BR_IF NO ERROR
:DATA ERROR

MOV

CMPB

#14$,30UPRVC

TEMPS5, TEMP4

sRELOAD VECTOR

sCHECK DATA

BEQ
HLT
INCB
CMPB
BNE
Mov
BR
MUV
TST
8PL
HLT
MOV
B8R
MoV
BIT
BNE
HLT

16$
p]
TEMPS
#32,TEMPS
263
#17$,3DUPRVC
26$
SRXDBUF ,TEMP4
TEMPS
. +b
5
#188,3DUPRV(
263
SRXDBUF ,DATA
#CRCERR,DATA
19%
5

:BR_IF A MATCH
:DATA COMPARE ERROR
sUPDATE DATA
:CHECK FOR FIRST PART FINISH
:BR_IF MORE TO GO
sSET UP NEXT VECTOR
sLEAVE
;GET THE BUFFER
sVEST FOR ERROR
s8R IF 0K
sRECEIVER ERROR
sRELOAD THE VECTOR
cLEAVE
sGET DATA
sCHECK FOR CRC ERROR
:BR IF 0K
sCRC ERROR!!!
1!

CLR
BR
MoV
TST
8PL
HLT
CMPB
BEQ
HLT
INCB
cmPB
BNE
MoV
BR

MIND
26%
SRXDBUF ,TEMP4
TEMPS
218
5
MIND, TEMP4
22%
5
MIND
#100,MIND
263
#23% ,8DUPRV(
26$

sSETUP FOR NEXT DATA
sLEAVE
;GET DATA
sCHECK FOR _ERROR
sBR IF NO ERROR
cRECEIVER ERROR
sCHECK DATA
:BR _IF A MATCH
sDATA ERROR
JUPDATE SOF TWARE DATA
:CHECK FOR FINISH
:BR [F MORE TO GO
sRELOAD FINAL VECTOR
sLEAVE

MoV

#2083 ,30UPRV(

sSET UP VECTOR

MACY11 30A(1052) 20-JUL-83
C20PE
19-JuL-83 17:09
CZOPEC.P11
1940
1941
1942

011124
011132
011136

017737
005737
100001

170264
001244

1944
1945
1946
1947
1948
1949

011142
011146
011150
011156
011164

105777
100375
017737
032737
001001

170244

1943

1950
1951
}gg%
1954

011140

011166
011170
011174

001244

23$:

104005
012716
000002

MoV
TST
BPL

SRXDBUF ,TEMP4
TEMP4
248

1ST8
8PL
MoV
8IT
BNE

aRXCSR
248
SRXDBUF ,DATA
#CRCERR,DATA
25%

HLT

104005

1702640
010000

010430

SEQ 41

13:32 PAGE 49
END OF PASS ROUTINE

r{3 ¥

001326
001326

258:
268%:

HLT
MOV
RTI

5
”$,(SP)

;GET DATA
sCHECK FOR ERROR
¢8R IF 0K

sRECEIVER ERROR ON FIRST OCTEY
sOF SECOND BCC
sTEST DONE

;BR_IF NOT SET
;GET SECOND BCC OCTET
sCHECK FOR BCC ERROR
sBR IF OK
;8CC ERROR ON SECOND PART OF MSG
;SETUP TO FINISH TEST
sRETURN

SEQ 42

CZOPE

MACY11 30A(1052)

CZOPEC.P11

1955
(1)
(1)
(1)
(1)
(1)
(1)
(1)

m
(1)

(1)
(1)
(1)
(1)
(1)
(1)

20-JuL-83

19-JUL-83 17:09

011176
011243

011310
011347
011367
011412
011434
011466
011546

052777
377

042777
377
377
051377
041777
041777
011544

042516
047125

051122
051105
051105
047125
042514
042514

13:32

050130
054105

051117
047522
047520
042040
051101
051101

PAGE 50

END OF PASS ROUTINE

EM1:
EM2:

EM3:
EM4:
EMS:
EM&:
EM7:
EMB:

-EVEN
ERRTAB

.ASCIZ
.ASCIZ

(ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<377>/ERROR WHEN USING MODEM LEADS /
<377>/ERROR IN SDLC /
<377>/ERROR IN DECMODE /
<377>/RUN DIAGNOSTICS /
<377>/CLEAR TO SEND NOT ACTIVE/
<377>/CLEAR TO SEND STILL NOT ACTIVE-TEST ABORTED/

011544
011546
011550
011552
011556
011556

000000
000000
000000
011176
011412
000000

(1)
(1)
(1)

011560
011362
011564

011243
011412
000000

EM2
EM6
0

:HALT 2

(1)
(1)
(1)

011566
011570
011572

011310
011412
000000

EM3
EM6
0

:HALT 3

(1)
(1)

011576
011576

011347
011412

EMé
EM6

(1)
(1)
(1)
(1)
(1)
(1)

011602 011367
011604 011412
011606 000000
011610 011434
011612 000000
011614000000

EMS
EM6
0
EM7
0
0

(1)
(1)
(1)

011616
011620
011622

EM8
0
0

(1) 011600 000000

(1)
1956

011624

011466
000000
000000
000001

0
0
0
EM1
EM6
0

<377>/UNEXPECTED INTERRUPT ON VECTOR ‘A’
/
<377>/UNEXPECTED INTERRUPT ON VECTOR 'B' /

CORMAX:
-END

HALT 1

GHALT 4

HALT S
:HALT 6

;HALT 7

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

SEQ 43

13:32 PAGE 52
CROSS REFERENCE TABLE == USER SYMBOLS
1050#
799+
1761
11034

ADRCNT= 003315
ALJMFL 001344
BCCFBK 010022
BITW = 002000
8170 = 000001
BiT1
=
000002
BIT10 = 002000
BIT11 =
000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
8112 = 000004
BIT3 = 000010
BIT4 = 000020
8115 = 000040
8116 = 000100
BIT7 = 000200
8IT8 = 000400
BIT9 = 001000
BRW
002666
BRX
002670
CALBCC 010024
CARDET= 010000

812

an
1744

1748

606

626

7600

1736

593
605
592
603
59N
590
863
612
en
610
609

625
599
623
602
597

604

624

622
601

923
621

595
594

608
598

628
607

627

1717«

1718

1754

17614

1083«

11014

1102

888

890

892

1176

1178

1713«

1718

1921«

1192
1948

1629
1807
905

1681
1190
11894

1808

13714
1710+
11934

1805
10484

883+

DISPRE 000174
DSCA = 100000
psCB = 000001
DSCFLG 001346
DSINTE= 000040
= 001000
DSR
2
=10
PDTR

DUPNUM
DUPRPS

001317
001404

1529

1399«

1555
832+
833
830+
1400«

1627
839«

1401

1922

1947«

1948

MACY11 TOA(1052) 20-JuUL-83
CZDPE
19-JuL~-83 17:09
CZOPEC.P
DUPRVC
DUPSEC
DUPTPS

001402

DUPTRO

ERRFLG
ERRMSG

PAGE 53

CROSS REFERENCE TABLE 1378+

1399

14040

1482+

1402+

1403

838

848

917
881+
11840

1203+
937+

SEQ 44

USER SYMBOLS

1901

1913«

1697«

1700+

1166

1180+

N;bb &F aR38
Lehid3NI NNO WO

d
i
b
il e
o
b e
d

EMS
EM6
EM7
EM8
ERRCNT

EMé4

OOOOOOOOOS

DUPO.A
Eml
EM2
EM3

001500
P Poer uur Puur QuurQour-Qhur
Gour Qur

DUPTV(C
DUP.EN
OUP.MA

13:32

001351

ERTABO
EXIT = 000000
EXITER
FIX.00

FLAG
HALTS
HDXEN =
HILIM

1389

1383

1394
113

1358#

792

808

INSTR2

JUMPER
LIMITS
LOFITS

814

HUPPSR
HUPRBF
HUPRCR
HUPTBF
HUPTCR
ICOUNT
INBUF
INIFLG
INSTER=
INSTR =

LOKFLG
LOLIM
LPCNT
LSTERR
L00.0V

938«
921+

1152+

MASK.A
MASTEK
MCRLF
MCSR
MCSRX

12364

1415

796

1622

1663

MALLJM

MDATA
MOMFLG
MDS(

1883+

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

004373

MERRPC 004702
MERRX
004602
004421
MERRZ
004470
MERR3
MEXT
= 010000
MIND
001332
mJMPR
005037
MLOCK
004526
MMODE = 014000
MMODEA= 004000
MMODEB= 010000
MMODEM 004741
MNEW
004627
005161
MPAR
MPASSX 004571
MPOWER 004355
MOM
004346
MR
MRESET=
MSRJM
MsSTJM

MTCN
MTDATA=
MTITLE
MISTN
MISTPC
MVEC

004416
000400
005240
005205

005112
040000
001000
004
004
004726

004563
MVECX
NEXT
001216
NO.ATR 006354
NO.BTR 006360
OJUMPE 006306
OPCLRJ 001325
OVRRUN= 040000
PARAM =
PARAM1
PARBIT=
PARCSR
PARERR
PASCNT

104405
003156
000000
001416
003232
001230

PERFOR= 000000
POPRO = 012600
POP1SP= 005726
POP2SP= 022626
PRIRTY 001322
PRISEC= 010000
PS
= 177776
PUSHRO= 010046

PUSH1S= 005746
PUSH2S= 024646
PWRUP
004322
Qv.fLG 001353
RABORT= 002000
RCRCIN= 040000

RCRC7T= 100000

884
nzz

89
12454
12524
6164

6374
815
865
6154
6054
604#
793

12734
13134

889

1232
989
872
&704

823
819
803
6024
S08#

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

12404
12814
1268#
1373
1804

1594

1721

1793

1508+

1593«

1779+

1461

12874

12664
12374
12354
12440
6084
13224
13174
13064

1854

765

12704

887
5284

12644
941

14844

1782
1936

1540
1926+
12984
12584

1175
12564

785

12854

1208

1706
1533

1883

817

845+

1455

778

786

1418

6964

1386+

5334

7462+

1795«
1014
882«

10234

883

1030
914

1032

1034

859+

1613¢

1660+

1716«

1783«

893+

932

14884
1468¢

6344
5914

6734

10074
4704

1024

1010

1012

4704
498
“7n
4510

1202

943
843+

6324
5994
440N
4684

739¢
1199

1226

12284

446N
4500

6524
5934
6224
6214

SEQ 45

6 4

744

1838+

MACY11 30A(1052)
20=-JUL-83
CZ0PE
19-JuUL-83 1 7:09
C2DPEC P11

SAVRS
SAVRSA

SAVSP
SAVSPA

SAVO0S5

003324
001202
Swo0

000176
= 000001

941+

944

1208+

1210

1233

1431+

1441

1442

1806
1536+

1539

1627+«

1629

1638¢

1639+

1806+

1808

1386

1387

1680

1710

1713

1890

1903

1915

1921

820

824

828

930

947

953

1143

1148

1197

1204

746+

1051«

1051«
1051

1051+
1051+

1051

1154
1574

1857
1819

1642
794
1615

1784

17264
1538
1085

1517
825

740

1517
821
1818
756
1413
758

1722
11024

766

SAVR4
SAVR4A

904+

1051«

wino

SAVR3
SAVR3A

1541
908
1836+
1383«
1940

SAVRO
SAVROA
SAVR1
SAVR1A
SAVR2
SAVR2A

5514
S60#
5444
SS53#
5454
5544
S464
555#
5478
SS564
5484
5574
549¢
S58#
5504
SSo#
675#
6634
6654
6114
6834
14794
6364
1605
12204
1064
S78%¢
640#
Le1n
5854
6394
5804
10514
5144
1206
502#
42N

1803

QD=
OO S~ 00V

SAVP(
SAVPCA

1928
5904
S81#

1624
11644
904#
1194
751
1555
1639

(7]

RXDBUF

1818

Se7#4

= 000100
000400
00004
001412

1638

RXDERR = 100000
RXDONE = 000200
SAVNUM

001214
040000

SEQ 46

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

001414

S84k
5774
S94LN
5624
1191
896
6778
5274
§744
582#
5954
5864
694#
1818+
6954

RCVEN
RECACT

1794

1855

1229

1856

863

923

MACY11 30A(1052)
20-JUL~-83
CZDPE
19-JuL-83 17 :09
CZOPEC.P11
SWw0l
Sw02
sw03
Sw04
SW0S
SWw06

= 000002
= 000004
= 000010
= 000020
= 00004
= 000100

= 000200
= 000400
= 001000
= 002000
= 004000
= 010000
= 020000
SWi4 =
sSWw1S = 100000
SYSTST= 004000

SWw07
SWw08
Sw09
SW10
sWwil
swWwi2
sWw13

TABORT= 002000
TCNFLG 001324
TCRCIN= 010000
TCRC7T= 020000
TEMP
005454

“o
4204

SEQ 47

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

14613

4184

L1748

4164
4154
Q14N

4134
4124
L11e
4104
409
408#
4074
406n
6174
6264
6334

1452

1469

1596

1780

TEMP1

001236

853+

1349

1693

1694+

1729«

1752+

TEMP2
TEMP3
TEMPG

001240
001242
001244

1684+
1750+
1894

1685
1751+
1897

1734+
1790«
1904

1789+
1889+«
1907

1876+

1877

1916

1928+

TEMPS

001246

1669

1822

1845

1847

1656

1659+

1658+
1862+

1667
1866+

970

989

TEOM = 001000
TIMER = 004000

1646

1648

TSOM = 000400
TSINO
001226
006364
ST

1429

1507+

TKCSR
TKDBR
TLAST =
TPCSR
TPDBR
TRPOK
TRP.PC

TSTL

1778+

010026
wetene

002554
TTST
TWOSYN= 000000
TXACT = 001000
TXCSR
001420
TXDBUF

1592+

006744

TST2

TST3

001204
001206
010026
001210
001212
003710
005622

1391«

001422

TXDLAT= 100000
TXDONE= 000200
TXINTE= 000100
TYPDAT 004162
TYPE = 104402

1881«

885

891

957

MACY11 30A(1052) _20-JuL-83
CZOPE
CZDPEC.P1Y
19-JuUL-83 17:09
TYPMSG 004062
USER = 000000
WROCNT 003614
WRKO.F 004150
003754
XBX
XCSR
002510
002532
XERR
005273
XHEAD
002524
XPASS
010020
XPOLY
XSTAT2 005442
XTSTN
004300
XVEC
002516

S$ENDAD

= 000005

002464

SN
= 000003
SRAY0 = 177777
sY
= 000013
.
= 011624
.BEGIN
.CNVRT
.CONVR
.EOP
ERRTA

002246
0036414
003410
002352
011544

PFAIL
.RESO5
.SAV05
.SCOPE
.SCOP1
.SETFL
.START
.TRPSR
.TRPTA
TYPE

004312
003356
003316
002540
002672
003622
001510
003676
001354
002716

CHLT
.INSTE
.INSTR
-INST1
-MSG
PARAM

003730
003076
002772
003012
003014
003116

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

1054

1091

1170
11004

1144
886
892
847
890
1601~
852
1176
888

1092+«
1185#
1146
9064
9154
13274
9124
1739
136474
12154
909#

496

8984

1432
1167
6144
1062«
1182

1433
11704

1438

n”n

1174

1175

177

17594

1508

15094

1593

15944

1779

17804

3¢
1
6564
4814
6334

1493
14930
663
482
634N

1501
1496
6654
4854
63

1509
14994
6674
4924
6404

1581
15814
66
474
7204

1586
1582
6714
5004
7224

15944
15844
6734
5034
7234

674

9984

12264

1230

16074
768
682
680
88ox
1162
488
672
670
9704
968+

486
678
676
664
666
684
504
490
6624
668

16084
834
10554
10544
1779
19554
11634
9874
9664
990
9714

7461
10514
10514
9214
9474
11114
7394
1131#
1136
9504

1179

1183

1188

1231

1766
17664
6754
5074
7240

1772
1767
6778
S09#
13554

17804
17704

19554

1373

1415

6834
S674
13604

6854
5684
1375

11484

1750

SEQ 48

1195

1682
850

1123
751

1712
8594

1719

1830

1917

1955#

6794
654
13574

6814
S66#
13594

ERRORS DETECTED:

1721

1635
1931

1594

1416

011624

. ABS.

802
784

84
or
3894
3894
4
on
¢
S#
S#
o
3894
8¢
19554
8¢
S#
9%
3
S#
3894
3894
9%
3894
8
*
n
S#
8¢

3894
3894
9

Vel
o

$CLRVE
$CYCLE
$DECST
$DEC22
SEOP
SERRTA
$F INI
SGETFL
SGETPA
SHEADE
$SJMPR
$MSG
$MSGA
SPFAIL
SQUEST
SRESET
$SCOPE
$SETFL
$SETVE
$S1mMB(C
$SMALL
$SYNC
$TRPDE
$TSTN
SVARIA
SWAIT
$x2

$BINCY
$87
SBUFFE

874
389
1485
1906
1569
1509

—

POP
PUSH
QaQ

o
o
6524
1899
7w
S#
8#

SEQ 49

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

MACY11 30A(1052) 20-JuUL-83
CZDPE
:
CZDPEC.P11
19-JuL~83 17:09
DUPEND
DUPFRN
HLT

1720

1814

1831

679

681

683

1579
1492
1353
1362
1793
1765
874

1955
792
776
389
1446
1235
1223
770
1537
918
1105
1477
1726
1218
1833
663
1501
506
1542
1493

814

818

1793

1853

822

826

675

1586

1772

667

671

673

1557

1644
1581

1821
1766

1844
1770

665

1499

000

CZDPEC.BIN,C2DPEC.SEQ/CRF/SOL/NL:TOC=CZDPEC.MAC,CZDPEC.P11T"
RUN-TIME: & 6 .6 SECONDS

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

677

1852

1893

1896