Digital PDFs

AH-8589B-MC

September 1979

50 pages

Original

23MB

view download

OCR Version

29MB

view download

Document:	CZDPEB0 DUP11 DUP11 CONFIDENCE TST SEP 1979 bw
Order Number:	AH-8589B-MC
Revision:	000
Pages:	50
Original Filename:	CZDPEB0__DUP11__DUP11_CONFIDENCE_TST__AH-8589B-MC__SEP_1979_gray.pdf

OCR Text

'DUP11 CONFIDENCE TS

CZDPEBO

~ AH-8589B-MC

copyrichT 7a-70
FICHE1 OF1

SEP 1979

EOFORED

IN USA
MADE

(ZDPE

MACY11

C7DPEB.P11

30A(1052)

19=JAN=79

16:09

19=JAN=79 16:07

PAGE 3

SEQ 0002

SEQ 0001

.REM 3

IDENTIFICATION

THE

INFORMATION

PRODUCT CODE:

A(C-8588B-M(

PRODUCT NAME:

CZDPEBO DUP11

DATE :

JANUARY 1979

MAINTAINER :

DIAGNOSTICS

IN THIS DOCUMENT

IS SUBJECT

CONFIDENCE

TST

WITHOUT

NOTICE

TO CHANGE

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.

(C)

1974,

FOLLOWING ARE

DIGITAL
DEC

1979 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUIS

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION:

MASSBUS

(ZDPE

MACY11

(ZDPEB.PI

30A(1052)

19=JAN=79

16:09

19=JAN=79 16:07

1.0

PAGE 4

SEQ 0003
SEQ 0002

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

TESTED

IN SDLC MODE

(BIT=-STUFFING),

THEN IN

DEC

MODE
USING
A
SIMJLATED 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 TURNAROUND CONNECTOR IS USED.
~THE
DETERMINATION
OF
WHAT
WILL BE
TESTED IS DONE BY ANSWERING A ‘PARAMETER DIALOG'' (LOAD ADDRESS

200,
IF

START

ERROR

FUNCTIONAL

OPTION,

ADDRESS

SHOULD

AREA

0 OR 1.) ALL QUESTIONS MUST BE ANSWERED.
OCCUR,

THE

TYPEOUT

WILL

DEVICE WHICH FAILED.

THE DIAGNOSTICS WILL HAVE TO BE RUN.

ADDITIONALLY THE MODEM DATA LEADS MAY NOW BE
DEM HAS THE ANALOG LOOPBACK FEATURE ENABLED.

EXPLAIN

TESTED IF A MO-

CURRENTLY THERE ARE THREE OFF<-LINE DIAGNOSTICS THAT ARE TO

RUN
WILL

IN
BE

gg&th(E)gIS

NOTE:
THE

THE

TO
ENSURE THAT IF AN ERROR SHOULD OCCUR IT
AT
AN
EARLY
STAGE
AND
ESTABLISH
THAT

ERROR WILL BE

IMMEDIATE

TO DISCOVERING THE

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THREE DIAGNOSTICS ARE:

1.1
1.2

1.3
1.4
NOTE:

1.5

SEQUENCE
DETECTED

THE

TO REPAIR THE

CZ0PB [REV] BASTC AND OFFLINE TRANSMITTER TESTS.
CZCPC [REV] OFFLINE
RECEIVER
TESTS,
MODEM
CONTROL

AND
INTERRUPT TESTS
CZDPD [REV] OFFLINE SDLC DATA AND FUNCTION OFFLINE DECMODE
DATA AND FUNCTION TESTS
CZDPO [REV] DP11

THE FOURTH TAPE

OVERLAY FOR INTERPROCESSOR TEST PROGRAM
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.

(ZDPE
MACY11 30A(1052)
19=JAN=79
(ZDPEB.P1
19-JAN=-79 16:07

16:09

2.0

REQUIREMENTS

2.1

EQUIPMENT

PAGE

SEQ 0004

SEQ (G003

g.&

b
b

4. H325 TEST CONNECTOR
.5. MODEM WITH ANALOG LOOPBACK FEATURE

rorornY

2.1.1. ANY PDP11 FAMILY CPU (WITH MINIMUM 4K MEMORY)
2.1.2. ASR 33 (OR EQUILIVALENT)
.3. DUP11

STORAGE
PROGRAM WILL USE.- ALL

MEMORY

EXCEPT

WHERE

ABS

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
ABSOLUTE
LOADER.
NOTE:
IF
THE DIAGNOSTICS ARE ON A MEDIA

SUCH
AS
DISK,
~MAGTAPE,
DECTAPE,
OR
CASSETTE
FOLLOW
INSTRUCTIONS
FOR
THE MONITOR WHICH HAS BEEN PROVIDED ON THAT
SPECIFIC MEDIA.

ABSOLUTE LOADER STARTING ADDRESS = *+500
MEMORY

8K
12X
16K

20K
24K
28K

3.1.7
3.1.2

3.1.3

SIZE

(%)=
17

37
57

117
137
157

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.
'HALT'

DEPRESS

SW UP)

(ALSO PLACE

'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

DEPRESS 'START KEY' ON CONSOLE AND RELEASE

BE LOADING INTO CPU)

(PROGRAM SHOULD NOW

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P1T
19=JAN=79 16:07

4.0

16:09

PAGE 6

SEQ 0005
SEQ 0004

STARTING PROCEEDURE
A.

SET SWITCH REGISTER TN 000200

DEPRESS

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.

'LOAD ADDRESS' KEY AND RELEASE

'"EXAMPLE*
'MAP OF DUP11

1500
1502

STATUS'

160050
000300

CSR OF DUP11
VECTOR OF DUP11

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

THE
THE

IT IS POSSIBLE FOR THE OPERATOR TO MANUALLY CHANGE

(TOGGLE IN)

THE

INFORMATION

IN THE MAP TO SUIT A SPECIFIC

BUT THE RESPONSIBILITY FOR VERIFYING
WITH THE OPERATOR.

THE PROGRAM WILL

TYPE

'R"'

THAT

STATUS
STATUS

CONFIGURATION,

INFORMATION

RESTS

AND PROCEED TO RUN THE MAINDEC

CONTROL SWITCH SETTINGS

SW 15
SW 14
SW 13
SW 12
SW 11
SW 10
SW 09
SW 08
SW 07
SW 06
SW 05
SW 04
SW 03
SW 02
SW 01
SWw 00

SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
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
RESERVED
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
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
S?ggkgsrx?f
SET
UP
PRIOR
TO
STARTING OR
RESTARTING
THE

C(ZDPE
MACY11 30A(1052)
1y=JAN=79
(ZDPEB.P11
19<JAN=-79 16:07
4.1.2

16:09

PAGE 7

SEQ 0006
SEQ 0005

SWITCH REGISTER RESTRICTIONS

SW 01

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

THAT

IS NOT

THE

ORDER

SEQUENCE.
THE REASON FOR THIS IS THAT THE PROGRAM HAS
TO CLEAR AREAS AND SET UP PARAMETERS
IN
THE
MONITOR

PORTION

THE PROGRAM.

RAISE SWO1,

IS POSSIBLE

TO LD200,

THEN START, PROVIDED PARAMETERS HAVE

AND

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.

4.1.3

SWITCH REGISTER PRIORITIES
A)

ERROR SWITCHES

A
.

VS WY —

.
.
.

12
13
15
08
10

DELETE PRINT OUT/BELL ON ERROR.
DELETE ERROR PRINTOUT.
HALT ON THE ERROR.
GOTO BEGINNING OF THE TEST(ON ERROR).
GOTO NEXT TEST(ON ERROR).

SCOPE SWITCHES
1.

2.
4.2

SW
SW
SW
SW
SW

SW 14

- LOOP ON TEST.

IS LOWERED.

WILL

LOOP ON TEST UNTIL

SW 11 = INHIBIT ITERATIONS (QUICK PASS).

SWITCH

ALLOWS

ONE PASS THROUGH A TEST.

ONLY

STARTING ADDRESS

STARTING ADDRESS IS AT 000200.

ADDRESSES FOR THE DUP11

NOTE:

THERE ARE

OTHER

DIAGNOSTICS OR THIS EXERCISER.

STARTING

IF ADDRESS 000042 1S NON-ZERO THE PROGRAM
ASSUMES
IT
IS
UNDER
ACT11
OR
XXDP_
CONTROL
AND
WILL
ACT
ACCORDINGLY.
AFTER DUP11 IS TESTED, THE PROGRAM
WILL
RETURN TO "XXDP' OR 'ACT-11'.
ALSO, UNDER

"ACT11''
OR "XXDP''

CONTROL THE FOLLOWING DEFAULT

PARAMETERS ARE ASSUMED:

4.2.1. ALL JUMPERS ARE ASSUMED TQ BE IN
THE

FOLLOWING CONFIGURATION:

IN
Wl
w2
w3
w4

=
=
=
=

WS =

wé =

w7 =

SEC REC ENABLE
SEC REC DISABLE
CLEAR OPTION
SEE TX ENABLE

X
X

A+8 DS CONTROL

DSC A CONTROL

BUS GRANT CONTROL

ouT

X
X

(ZDPE
MACY11 30A(1052)
19=JAN=79
(ZDPEB.P11
19=JAN-79 16:07

16:09

PAGE 8

SEQ 0007
SEQ 0006

4.2.2. H325 TEST CONNECTOR IS ASSUMED TO BE ON.
4.2.3.
4.2.4.

5.0

THE MANUFACTURING OPTION CSR 160050 AND

VECTOR OF 770 ARE USED.
THE BR LEVEL

OPERATING PROCEDURE
WHEN THE PROGRAM IS

SECTION

FOUR

THE DIAGNOSTIC.

5.1

IS ASSUMED TO BE

INITIALLY STARTED MESSAGES AS DESCRIBED

WILL

BE PRINTED AND PROGRAM WILL BEGIN RUNNING

PROGRAM AND/OR OPERATOR ACTION

THE

TYPICAL APPROACH SHOULD BE

HALT ON ERROR

THE

TEST NUMBER AND PC WILL BE

CLEAR Sw 15.

(VIA SW 15=1) WHENEVER AN ERROR OCCURS.
TYPED

OQUT

AND

POSSIBILY

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

NOTE
THE
PC
OF
THE
ERROR
REPORT.
IN THIS WAY THE EXACT
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR
PC

IS THE HLT+2 LOCATION.

AT THIS POINT IT IS RECOMMENDED THAT
RUN TO ISOLATE THE ERROR ZONDITICN.

6.0

THE NORMAL DIAGNOSTICS BE

ERRORS
AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW

12=0).

QSESQGE

6.1

ADDITIONAL
WHICH

INFORMATION WILL BE SUPPLIED TO
TO

THE

ERROR

GIVE THE OPERATOR AN INDICATION OF

THE

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
CONTROL
OF
CPU.
IF
THIS
SHOULD
HAPPEN
LOOK IN LOCATION
"TSTNO' FOR THE NUMBER OF THE TEST THAT
WAS
RUNNING
AT
THE
TIME

THE CATASTROPHIC ERROR.

THIS GIVES THE OPERATOR SOME

IDEA AS TO WHAT THE DUP11 WAS DOING AT THE

7.0

RESTRICTIONS

7.1

STARTING RESTRICTIONS

TIME OF

THE ERROR.

C(ZDPE

MACY11

(ZDPEB.P1

30A(1052)

19=JAN=-79

16:09

19=JAN=79 16:07

PAGE 9

SEG 0008

SEQ 0007

SEE SECTION &
(PLEASE).
STATUS
TABLE
SHOULD
REGARDLESS OF HOW THE PROGRAM WAS STARTED.

7.2

VERIFIED

OPERATING RESTRICTIONS

DUP11

PARA'CTER DIALOG MUST BE ANSWERED

RUNNING

THIS

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

THEN

PROGRAM.

BEFORE

ANSWER THE COMPLETE PARAMETER DIALOG AGAIN.
RESTART THFE PROGRAM WITH SW07=1.

8.0

MISCELLANEOUS

8.1

EXECUTION TIME
ALL DUP11 DEVICE DIAGNOSTICS WILL GIVE AN 'END
PASS'
(PROVIDING
NO
ERRORS
AND
SW12=0)
WITHIN
& MINS.
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE
POSSIBLE EXECUTION.
THE ACTUAL EXECUTION TIME DEPENDS

ON THE PDP11

8.2

MESSAGE
THIS IS
FASTEST
GREATLY

CPU CONFIGURATION.

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

STARTED--WILL BE A

UNTIL ALL DUP11'S IN SYSTEM ARE TESTED.
HAS

COMPLETED

égc%gzigé,
t

PASS

WITH

THE

WHEN

NORMAL

THE

'QUICK PASS'

DIAGNOSTIC

ITERATION

THE FOLLOWING IS AN EXAMPLE OF THE PRINT

COUNT

OUT

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

8.3

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

KEY LOCATIONS

RETURN

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN

WHEN
ITERATION COUNT IS REACHED OR IF
TEST IS ASSERTED.

CONTAINS THE ADDRESS OF
PERFORMED
.

TSTNO

CONTAINS THE NUMBER
PEFORMED.

*«NOTE
*#

THE NEXT
THE

TEST

TEST
NOW

LCOP ON

BEING

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P1?
19-JAN=-79 16:07

16:09

PAGE

IT SHOULD BE REMEMBERED THAT CZDPE IS NOT A DIAGNOSTIC , BUT
IT 1S A CONFIDENCE TEST DESIGNED TO EVALUATE ONLY THAT THE
DEVICE IS OPERATIONAL.
IF THERE IS A FAILURE, TH® DUP11 DAGNOSTICS

WILL HAVE

TO BE RUN FOR SPECIFiC

FAULT DETECTION.

SEQ 0009
SEQ 0008

(ZDPE
MACY11 30A(1052)
CZDPEB.P1
19-JAN-79
1

19=JAN=79

:07

16:09

PAGE 11

INTRODUCTION TO DUF11 DIAGNOSTIC

;*CZDPEBO /<377>/DUP11 CONF IDENCE TST
'COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
’

s STARTING PROCEDURE
:LOAD PROGRAM
:LOAD ADDRESS 000200

;PRESS START
;PROGRAM WILL TYPE ''CZDPEBO /<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 MCSSAGE

sAND THEN RESUME TESTING

sSWITCH REGISTER OPTIONS
100000

SW15=100000
SW14=40000
SW13=20000

;=1,HALT ON ERROR
;=1,LO0P ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT

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

SwW10=2000

Sw09=1000
SW08=400
SwW07=200
5wW06=100
SW05=40
SW04=20
Sw03=10

;=1,ESCAPE TO NEXT TEST ON ERROR

000004
000002
000001

SW02=4
Swh1=2
Sw J)=1

sSELECT DUP'S DESIRED ACTIVE
sNOTE:THIS MUST NOT EXCEED ORIGINAL COUNi
sLOCK ON TEST SELECT
;RESTART PROGRAM AT SELECTED TEST
;ENTER PARAMETERS

SwW12=10000
SW11=4000

;=1,DELETE TYPEOUT/BELL ON ERROR.
;=1,INHIBIT ITERATIONS

:=1,L00P WITH CURRENT DATA
:=1,L00P ON ERROR

SEQ 0010

SEQ 0009

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDFEB.P11
19=JAN=79 16:07
a3
414
415
416
417

K 1
16:09 PAGE 12
GENERAL DEFINITIONS AND EQUIVALENCIES

sREGISTER DEFINITIONS

000000
000001
000003
004
000005

0C0006

000007

RO=X0
R1=X1
R2=%2
R3=%3
R4=X4
R5=%5
SP=%6
PC=X7

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

;LOCATION EQUIVALENCIES
177776
001150

PS=177776

STACK=1150

sPROCESSOR STATUS WORD
sSTART OF PROCESSOR STACK

s INSTRUCTION DEFINITIONS
-

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046
POPRO=12600
PUSH2SP=24646
POP2SP=22626
.EQUIV EMT_HLT

T15 100000

sDECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
sSAVE RO ON STACK
sRESTORE RO FROM STACK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE
;BASIC DEFINITION OF ERROR CALL

SEQ 0011
SEQ 0010

CZDPE
MACY11 30A('|052)
19=JAN=79
15=JAN-79 16:07
CZDPEB.P11

16:09

463

PAGE 13

SEQ 0012

TRAPCATCHER FOR UNEXPECTED INTERUPTS
s

AR AR A

AR R

A A AR P R AR

SEQ 0011

AR AR AR AR AR AR AR AR AR AR AR

AR A AR AR

AN ARN RN

464

465
466

:TRAPCATCHER FOR ILLEGAL INTERRUPTS
s THE STANDARD ‘‘TRAP CATCHER'® IS_PLACED
;BETWEEN ADDRESS 0 TO ADDRESS 776.

467

468
469
470
471
472
473
474
475
476

;1T LOOKS LIKE 'PC+2 HALT''.

AR R

0000C0

PFAIL

.=40

.=52

000200

001510

001000

001000
005377

055103

0
0
0

:SAVE FOR ACT=11 OR DDP2
sRETURN ADDRESS I UNDER ACT-11 CR DDP2
:SAVE FOR ACT-11 OR DDP2

;ACT=11 PROGRAM CHARACTERISTICS

=174

DISPREG:
SWREG:
0

.=200

.=1000

MTITLE:

;FOR USE WITH ACT=11 OR DDP2

s SOFTWARE DISPLAY REGISTER
s SOF TWARE SWITCH REGISTER

JMP

.START

;GO TO START OF PROGRAM

LASCIZ

<377><12>/CZDPEBQ /<377>/DUP11

BRIRGR

050104

sSERVICE AT LEVEL 7

$ENDAD

NOWVS
NN —=O

:ERROR HANDLER

:GENERAL HANDLER DISPATCH SERVICE

177560
177562
177564

AR TR RS

. TRPSRV

DISPLAY:
177570
SWR:

e —d

RN AR

sSERVICE AT LEVEL 7

340

177570
177570

AR R AR AR

:SERVICE AT LEVEL 7

240

.=1200

— e

AR AR AR AR AR AR AR A AR

;POWER FAIL HANDLER

JHLT

001200

AR A A

340

000174
0000C0
000000
000200
000137

000176

AR A

s STANDARD INTERRUPT VECTORS

000024
004312
000340
003730
000340
003676
000340
000040
000000
000000
000000
002464
000052
000000
000174

A A

CONF IDENCE TST /<377>

;SWR AND LIGHTS
77570

211745 CONSOLE LIGHTS
s INDIRECT POINTER TO SWITCH REGISTER

s INDIRECT POINTERS TO TELETYPF VECTORS AND REGISTERS

177566

TKCSR:
(KDBR:
TPCSR:
TPDBR:

177560

sTELETYPE KEYBOARD CCNTROL REGISTER

177564
177566

sTELEPRINTER CONTROL REGISTER
sTELEPRINTER DATA BUFFER

177562

sTELETYPE KEYBOARD DATA BUFFER

;PROGRAM CONTROL PARAME TERS

(ZDPE

MACY11 30A(1052)

CZDPEB.P11

19=JAN-79
19=-JAN-79 16:07

16:09

PAGE 14

PROGRAM PARAMETERS,

VARIABLES, AND TRAP (ALLS.

RETURN: 0

NEXT:
LO%K:

. ADDRESS OF NEXT TEST TO BE EXECUTED
sADDRESS FOR LOCK ON CURRENT DATA

JNUMBER OF ITERATIONS THAT CURRENT TEST WILL BF EXECUTED
JNUMBER OF ITEREATIONS COMPLETED

TSTNO:
O
PASCNT: 0

JNUMBER OF TEST IN PROGRESS
JNUMBER OF PASSES COMPLETED

ERRCNT: 0
LSTERR: 0
;PROGRAM VARIABLES

;TOTAL NUMBER OF ERRORS
PC OF LAST ERROR CALL

TEMP1:
TEMP2:

; TEMPORARY
.rsmv
s TEMPORARY
s TEMPORARY
: TEMPORARY

SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVRG:
SAVRS:
SAVSP:
SAVPC:

O
0
0
O
0

0
0
0
0
0
0
0
0

STORAGE
STORAGE
STORAGE

PROGRM COUNTER STORAGE

;RO STORAGE
;R1 STORAGE
RZ STORAGE

SAVR3A: 0

R3 STORAGE

0
0
0
0

REPEAT: §
CTSDLY: -1
DELAY:
100000
DUPACTV: .BLKB
DUPNUM: .BLKB
SAVNUM: .BLKB
.EVEN

STORAGE
STORAGE

;RO STORAGE
;R1 STORAGE
;R2 STORAGE
:R3 STORAGE
;R4 STORAGE
;RS STORAGE
+STACK POINTER STORAGE

SAVROA: 0
SAVR1A: 0
SAVR2A: 0
SAVR4A:
SAVRSA:
SAVSPA:
SAVPCA:

SEQ 0012

+sSCOPE ADDRESS FOR LOOP ON TEST

0
0

ICOUNT: 1
LPCNT:
O

TEMP3:
TEMPS:
TEMPS:

SEQ 00i3

Rlo STORAGE
:RS STORAGE
;STACK POINTER STORAGE
sPROGRAM COUNTER STORAGE

1
1
1

JREPEAT CTSDLY
+CTS DELAY
sDELAY FOR DATA LEAD TESTS
;DUP11°'S SELECTED ACTIVE.
OCTAL NUMBER OF DUP11°'S.
WORKABLE NUMBER.

(ZDPE
MACYN 30A(1052)
19=JAN=79
19-JAN-79 16:07
CZDFEB.P11

16:09

PAGE 15

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

C(NTROL
;
REGISTER DEFINITIONS
.RXCSR BIT DEF INITIONS

DSCA=BITIS
RING=BIT14
CTS=BIT13
CARDET=BIT12
RECACT=BIT11
SRD=BIT10
DSR=BIT9
STPSYN=BIT8
RXDONE=8]T7
RINTEN=BIT6
DSINTE=BITS
RCVEN=BIT4
STD=BIT3
RTS=BIT2
DTR=BIT1
DSCB=BITO

:DATA SET CHANGE A
RING
cm TO SEND
*CARRIER DETECT
*REC ACTIVE
*SEC REC DATA
:DATA SET RDY
:STRIP SYNC
*REC DONE
*REC INTR ENABLE
:DSC INTR ENABLE
*REC ENABLE
:SEC XMIT DATA
:REQ TO SEND
:DATA TERM RDY

*DATA SET CHANGE B

:RXDBUF BIT DEFINITIONS

RXDERR=BIT15
OVRRUN=BIT14
CRCERR=BIT12
RABORT=BIT10
RECM=BIT9
RSOM=8]T8

:REC DATA ERROR
*OVERRUN ERROR
:CRC ERROR
*REC ABORT
:REC END OF MESSAGE
*REC STAPT OF MESSAGE
:PARCSR BIT DEFINITIONS
DECMOP=B]T15
:DEC MODE (DDCMP)
CRCEN=BIT9
:CRC ENABLE
PRISEC=BIT12
:PRI/SEC SELECT
;TXCSR BIT DEFINITIONS
TXDLAT=BIT15
:TX DATA LATE
MTDATA=BIT14
*MAINT DATA OUT
CLK=BIT13
:CLK
MMODEB=B]T12
*MAINT MODE B
MMODEA=BIT11
*MAINT MODE A
BITW=BIT10
:BIT WINDOW INPUT
TXACT=BIT9
STX ACTIVE
MRESET=BIT8

TXDONE=BIT7
TXINTE=BIT6
SEND=BI T4
HDXEN=BIT3

605

:TXCSR WRD DEFINITIONS

;USER MODE

MMODE=14000

*MAINT INT MODE

SYSTST=4000

*SYSTEM TEST MODE

MEXT=10000

W =O
WV

b
e o’

(e Yo Yo Yo o

Yo 3

e
b

3RSR

USER=0

*MASTER RESET

SXMIT DONE
:XMIT DONE INTR ENABLE
.ssw
HDX/F DX
*MAINT EXT MODE

;TXDBUF BIT DEFINITIONS

010000

RCRC7T=BIT1S
RCRCIN=BIT14
TCRC7T=BIT13
TCRCIN=BIT12

SEQ 0014

SEQ 0013

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P11
19=JAN=79 16:07
616
617
618

16:09

PAGE 16

PROGRAM PARAMETERS,

TIMER=BIT11
TABORT=BIT10
TEOM=BIT9
TSOM=BIT&

VARIABLES,

2
AND

SEQ 0015

TRAP C(ALLS.

SEQ 0014

sMAINTENANCE TIMER
s TRANSMIT ABORT
s TRANSMIT END OF MESSAGE
s TRANSMIT START OF MESSAGE

;MISC. PROGRAM DEF INITIONS

PRIRTY:.WORD 0

ALJMFL:
DSCFLG:

.BLKB 1

.BLKB 1
WORD
0
.WORD
O
.WORD
0
WA
0
.BLKW 1
.BLKW 1
.WORD
.WORD
.WORD

olele)

TCNFLG:

OPCLRJ:
DATA:
SHIFTS:
MIND:
FLAG:
STIJMFL:
SRJMFL:
MDMFLG:

sPROGRAM CONTROL FLAGS
001350
001351
001352
001353

000

INIFLG:
ERRFLG:
LOKFLG:

QV.FLG:

EVEN

.BYTE
.BYTE
.BYTE

.BYTE

0
0
0

sPROGRAM INITIALIZATION FLAG
;ERROR OCCURED FLAG
sLOCK ON_CURRENT TEST FLAG

;QUICK VERIFY FLAG.

:ON FIRST PASS OF EACH DUP11
;WILL BE SUPPRESSED

[TERATIONS

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P11
19=JAN=79 16:07

16:09

PAGE

PROGRAM PARAMETERS,

¢
VARIABLES,

AND

SEQ 0016

TRAP C(ALLS.

SEQ 0015

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
sIN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS
;:ttttttt'ttt'iitfi"tfi.tti"fii't.fi.t'.t...Qfit.'..tttt.'tttt.t."tt".t

001354

104400

001354

002540

001356

002672

001360

002716

001362

002772

001264

003076

001366

003116

001370

003316

001372

003356

001374

003410

001376

003414
104412
003622

001400

104401

104402

104403

104404

104405

" TRPTAB:

SCOPE=TRAP+)
.SCOPE
SCOP1=TRAP+1
.SCOP1
TYPE=TRAP+?2
. TYPE

s CALL T0 LOOP ON CURRENT DATA HANDLER

. INSTR
INSTER=TRAP+4
. INSTER

s CALL TO INPUT ERROR HANDLER

INSTR=TRAP+3

s CALL

T0 SCOPE

LOOP AND ITERATION HANDLER

s CALL TO TELETYPE OUTPUT ROUT INE
s CALL T0 ASCII STRING INPUT ROUTINE

PARAM=TRAP+5

s CALL TO NUMERICAL DATA INPUT ROUTINE

104406

SAVOS=TRAP*6OS

s CALL TO REGISTER SAVE ROUTINE

104407

RESO5=TRAP+7

s CALL TO REGISTER RESTORE ROUTINE

104410

CONVRT=TRAP+10
. CONVRT
CNVRT=TRAP+11
. CNVRT
SETFLG=TRAP+12
.SETFLG

s CALL TO DATA OUTPUT ROUTINE

104411

.PARAM

.RESO5

AL A

s CALL 10 DATA OUTPUT ROUNTINE WITHOUT CR/LF.

s CALL T0 TELETYPE INPUT ROUTINE

3222223222222

CZDPE
MACY11 30A(1052)
19=JAN-79
CZDPEB P11
19=-JAN=-79 16:07

16:09

PAGE 18

PROGRAM PARAMETERS,

679

VARIABLES,

2
AND TRAP (ALLS.

;DUP11 VECTOR AND REGISTER INDIRECT POINTERS
001402
001404
001406
001410
001412
001414
001416
001420
001422

000000

DUPRVC:
DUPRPS:
DUPTVC:
DUPTPS:

0
0
0
0

sPOINTER
sPOINTER
sPOINTER
sPOINTER

RXCSR: 0
RXDBUF: 0

DUP11 RECEIVER INTERRUPT VECTOR
DUP11 RECEIVER INTERRUPT SERVICE PS
DUP11 TRANSMITTER INTERRUPT VECTOR
DUP11 TRANSMITTER INTERRUPT SERVICE PS

sPOINTER TO DUP11 RECEIVER STATUS REGISTER
sPOINTER TO DUP11 RECEIVER DATA BUFFER

PARCSR: 0
TXCSR: 0
TXDBUF: 0

DUPSEC:
HUPPSR:
HUPRBF:
HUPRCR:

TO
TO
TO
TO

sPOINTER TO DUP11 PARAMETER STATUS REGISTER
sPOINTER TO DUP11 TRANSMITTER STATUS REGISTER
sPOINTER TO DUP11 TRANSMITTER DATA BUFFER

0
0
0
0

sPOINTER
sPOINTER
sPOINTER
sPOINTER

TO DUP11 SECONDARY REGISTER SELECT REGISTER
TO PARAMETER STATUS HIGH BYTE
TO RECEIVER BUFFER HIGH BYTE

TO RECEIVER CONTROL REG HIGH BYTE
sPOINTER TO TRANSMITTER BUFFER HIGH BYTE
JPOINTER TO TRANSMITTER CONTROL REG HIGH BYTE

HUPTBF: 0
HUPTCR: O

sDUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST
001440

000

MASK.A:

.BYTE 000

sLAST CHAR TO TEST AND PARITY MASK

001441

010

(LK.A:

.BYTE 8.

sNUMBER OF CLOCKS NEEDED FOR ONE CHAR

001442

000000

L00.00: 000000

s PARAMETERS

;DUP11 STATUS TABLE AND ADDRESS ASSIGNMENTS

001500
001500
001502
001504
001506

001500
000001

.=1500

DUP.MAP:

000001

DUPCRO:
DUPTRO:
DUPO.A:

000000

DUP.END:

.BLKW 1
.BLKW 1
.3LKW 1

;CONTROL STATUS REGISTER FOR DUP11 NUMBER 0
sVECTOR ""A"" FOR DUP11 NUMBER 0
;PARAMETER FOR DUP11 NUMBER 0
000000

SEQ 0017

SEQ 0016

CZDPE
MACYN 30A(1052)
19=JAN=79
19=JAN-79 16:07
CZDPEB.P11

16:09

PAGE 19

SEQ 0018

PROGRAM INITIALIZATION AND START UP.

SEQ 0017

sPROGRAM INITIALIZATION

sLOCK OUT INTERRUPTS
sSET UP PROCESSOR STACK

sSET UP POWER FAIL VECTOR

:CLEAR PROGRAM CONTROL FLAGS AND COUNTS

sTYPE TITLE MESSAGE

012737

MOV
MOV

000024

CLR

013746
013746
012737
005777
000407
012737
012737

000004

001202
001200

022626
012637
012637
005737

128:

13%:
118:

001000
177306

002246
001500
001506

6%:
108:

68%:

PASCNT

:CLEAR PASS COUNT

MOV

#1,TSTNO
#.START ,RETURN

MOV
MOV

a#6,-(SP)
a4 ,-(SP)

MOV
TST
BR

:SET UP STACK
sSET UP POWER FAIL VECTOR

sCLEAR ERROR FLAG

sZERO QUICK VERIFY FLAG

ERRCNT
LSTERR

;CLEAR ERROR COUNT
sCLEAR LAST ERROR POINTER

sSET UP FOR TEST 1
sSET UP FOR POWER FAIL BEFORE

sTESTING STARTS

:SAVE CURRENT VECTORS

#128, a4
aSWR
138

*SETUP FOR TIMEOUT
*REFERENCE HARDWARE SWITCH REG
BR IF IT EXISTS

MOV
CMP

#D1SPREG,DISPLAY
(SP)+,(SP)+

sPOINT TO SOFT DISPLAY REG
sADJUST STACK

MOV

(SP)+,a#6

MOV

MOV
TST

#SWREG, SWR

JRESTORE VECTORS

:IF ACT11 OUTO MODE

66%

TSTB

aSWR

MOV

#DUP .MAP , RO

TYPE

BPL
JMP
CLR

;DON'T TYPE ID

JMTITLE

sTYPE

108
.BEGIN

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

(RO)+

RO, #DUP
. END

68%

;HIGH LIMIT

'1“32?!
PARAM

:DONE WITH MAP?

“BR IF NO

+ME SSAGE

175500

1
1

:CLR MAP

MDMFLG
ALJMFL
;OUTPUT MESSAGE & GET
;CONVERT STRING

DUPCRO

TITLE MESSAGE

;USE SAME PARAMETERS?

PARAM

160000

sPOINT TO SOFT SWR

(SP)+, a#4

BNE

CLRB
(LRB
INSTR

BYTE
BYTE

sLOCK OUT INTERRUPTS

#STACK,SP
#.PFAIL ,a#24

ERRFLG
QV.FLG
DUPNUM
SAVNUM
DUPACTV

BNE

001342
001344

#340,PS

CLRB
CLRB
CLRB
CLRB
CLRB

CLR
CLR

E: ®

b
i
)

NINN NN

ccd cnd
b e

012737
012737

.START: MOV

838838888

177776

INPUT STRING

;LOW LIMIT

:g&f AT THIS LOCATION
sHOW MANY TIMES + 2

O\J;PUTEFESSAGE € GET

:ME SSAG

:(CONVERT

STRING

INPUT

STRING

(ZDPE

MACY11

(ZDPEB.P1
778
779
780

000300
000770
001502

001764

004741

001760
001761
001762

785
786
787

001766
001770
001772

789
790
791
792
793
794
795
796
797
758
799
800
801
802

002000
002004
002010
002012
002012
002014
002016
002020
002022
002026
002030
002032
002034
002036

807

002052

788

803
804
805
806

001776

001
001
104403

104412
001342
105737

001405

105037
105037
000436

104403
005112
104412
001324
105737
001427
104403
005321
104412
001344

002040
002044
002046
002050

105737
001020
104403
005037

808
809
810
811
812

002054
002056
002060
002062
002064

814
815
816
817
818
819

821
822
823
824
825
826

813

820

19=JAN=7%9

19=JAN=79 16:07

001752
001754
001756

781
782
783
784

30A(1052)

16:09

PAGE 20

PROGRAM INITIALIZATION AND START UP.

BYTE
BYTE

001342

300
770
DUPTRO

;LOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION
1
:MASK
1
sHOW MANY TIMES + 2
INSTR
;OUTPUT MESSAGE & GET INPUT STRING
MMODEM :ME SSAGE
SETFLG
;SET FLAG BASED UPON INPUT STRING
MDMFLG
;THIS FLAG
TSTB
MDMFLG
sMODEM FLAG SET?
BEQ

001324
001344
71%:

001324

001344

CLRB
CLRB
BR

71%

TCNFLG
ALJMF L
708

INSTR
;OUTPUT MESSAGE
MTCN
sMESSAGE
SETFLG
;SET FLAG BASED
TCNFLG
;THIS FLAG
TSTB
TCNFLG
BEQ
708
INSTR ~ ;OUTPUT MESSAGE
MALLJM ;MESSAGE
SETFLG
;SET FLAG BASED
ALJMFL
.THIS FLAG

:IF BR.

& GET INPUT STRING

UPON INPUT STRING

& GET INPUT STRING

UPON INPUT STRING

1STB
BNE
INSTR
MJMPR

ALJMFL
708
;OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE

001325
104403
005205
104412
001336

OPCLRJ
INSTR
MSTJM
SETFLG
STJMFL

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

002070
002072
002074
002076
002100
002102

005240
104412
001340
104403
005375
104412

MSRJM
SETFLG
SRIMFL
INSTR
MDSC
SETFLG

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

002106
002112
002116
002122
002126
002132

105237
105237
105237
012700
000137

002066

002104

104412

SETFLG

104403

1346

INSTR

001317
001320
001316
001500
002246

708 :

DSCFLG
INCB
INCB
INCB

MOV

66%:

JMP

;SET FLAG BASED UPON INPUT STRING

;OUTPUT MESSAGE & GET INPUT STRING

;THIS FLAG

DUPNUM
SAVNUM
DUPACTV
#DUPCRO,RO
.BEGIN

JLET'S GO.

SEQ 0019

SEQ 0018

CZDPE

MACY?1

CZDPEB.P11

30AC1052)

19=JAN=79

16:09

19=JAN=79 16:07

s*~

002132
002136
002142
002146

834
835
36
837
838
839
840
841
842
843
844

000162
00170
002176
002204
002210
002214
002222
002230
002232
002234
002236

833

gzg

002154

002244

012700
105237
012710
012760

007500
001316
160050
000770

112737
113737
113737
105037
104402
012737
017737
001406
104410
005442
062737

000005
00123
001236
001342
005273
001500
177010

9201236
001240

000002

001236

012760

000766

140026

000002

000004

SEQ 0020

5$:

PARAMETERS

ARE

LOADED

SEQ 0019

UNDER ACT11

XXDP

CONTROL.**

MOV
INCB
MCV
MOV

#DUP .MAP RO
DUPACTYV
#160050, (RO)
#770,2(R0)

;SET UP POINTER
sDEVICE ACTIVE FOR TESTING
*CSR
*VECTOR

MOVB
MOVB
MOVB
CLRB
TYPE
MOV
MOV
BEQ
CONVRT
XSTATQ
ADD

#5,PRIRTY
TEMP1,TCNFLG
TEMP1.OPCLRJ
MDMFLG
+XHEAD
#DUP .MAP, TEMP1
STEMP1, TEMP2
.BEGIN

*PRIORTY
+ TURN=AROUND=CONNECTER FLAG
:OPTIONAL CLEAR JUMPER
*MODEM FLAG
:TYPE HEADER
+SET POINTER
*SET DATA
*ALL DONE WITH DATA

#2,TEMP1

:UPDATE POINTER

B8R

140026, 4 (RO)

*STATUS AND SYNC

JTEST START AND RESTART

850
851
852
853
854
855
856
857
&58

002246
002254
002260
002264
002266
002274
002276
002302
002310

012737
012706
005737
001023
032777
001411
104402
012737
012737

000340
001150
000042

177776

000004

176706

004526
000240
000240

d
002554
002556

860
861
862
863
864

002320
002326
002334
002342
002346

013737
013737
012737
104402
000177

002666
002670
005624
004416
176642

002554
002556
001214

859

FOLLOWING

MOV

001322
001324
001325

847

PROGRAM INITIALIZATION AND START UP.

822;

829
830
831
832

PAGE 21

002316

000406

.BEGIN: MOV
MOV
ST
BNE
BIT
BEQ
TYPE
MOV
MOV
1%:
2%:

B8R

MOV
MOV
MOV
TYPE
JMP

#340,PS
#STACK, SP
G2
2%
#BIT2,aSWR
1%
+JMLOCK
#NOP,TTST
ANOP.TTST+2

BRW, TTST
BRX.TTST+2
#CYCLE ,RETURN
MR
aRE TURN

+LOCK OUT INTERRUPTS
*SET UP STACK
:1S PROGRAM UNDER MONITOR CONTROL
*BR IF YES
:CHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.
sTYPE LOCK SELECTED.
*ADJUST SCOPE ROUTINE.
SSET UP TO LOCK

*CONTINUE ALONG.

:PREPARE NORMAL SCOPE ROUTINE
*LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
JSTART AT “*CYCLE'' FIND WHICH DEVICE TO TEST
;TYPE R
;START TESTING

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P11
19=JAN=79 16:07

16:09 PAGE 22
END OF PASS ROUTINE

865

;END OF PASS

;TYPE NAME OF

SEQ 0021
SEQ 002C
TEST

CLR
(LRB

CNVRT
CNVRT

+XPASS

INC

176604

MOV

TYPE
TYPE
CNVRT
TYPE

TYPE

898

0002
012737
000137

005624
005624

002512

006

002

901

002520

00000
003

002

904

002526

006

002

002534

00000
006

002

907

—_—

001214

+MERRX

.XERR

RESTRT: MOV
XCSR:
XVEC:

XPASS:

XERR:

s TYPE PASSES
sSHOW IT
: TYPE ERRORS

sSHOW IT
;SET THE QUICK VERIFY FLAG.
sRESTORE THE COUNT
sCHECK FOR ACT=11 OR DDP
s1F NOT, CONTINUE TESTING
:STOP THE SHOW=-CLEAR THE WORLD

PC,(R1)

002476
002504

.MPASSX

#377 ,QV.FLG
DUPNUM, SAVNUM
W62 R1
RESTRT
$ENDAD:

895
896

LSTERR
ERRFLG

;CLEAR LAST ERROR PC
:CLEAR ERROR FLAG
PASCNT
sUPDATE PASS COUNT
PASCNT ,aDISPLAY ;DISPLAY PASS COUNT
.MEPASS
;TYPE END PASS
+MCSRX
sTYPE CSR
.XCSR
sSHOW IT
:TYPE VECTOR
JMVECX
XVEC
sSHOW IT

WLN

g8s

.EOP:

WO .nwoo—-f

=NWO NN =
rRONNN
N0

S
e
B

2%
%2

—OnN)
Www

—
—_—

3
—_
—

N
~
W
~N

NN
—
SO

g
¢
888

RRR

283 <
0o

v VI WNIWNO
N NN

8882 3388 8838

=
g

sUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT=11
sRESTART TEST

#CYCLE ,RETURN

CYCLE

.BYTE

6.2

.BYTE
DUPRVC
1
.BYTE

3.2

RXCSR
1

PASCNT

ERRCNT

6.2
6.2

:SCOPE LOOP AND INTERATION HANDLER
912

914

917

919

002540

002546

002560

002566

005037

001234

032777

040000

105777

017700

176420

176414

.SCOPE:

176426

TTST:

CLR
MOV
BIT

1?1714.35UR

BEQ

TSTB

BPL
MOV
BR

LSTERR

RO, (SP)

alK(SR

3%
aTKDBR,RO
2%

;CLEAR LAST ERROR PC

;SAVE RO ON STACK
;LOOP ON TEST?
JBR IF NO (IF LOCK SWO1 = 1:THIS LOCATION

;GC TO 3%

sKYBD DONE?

JBR IF NO (LOCK:

;CLR DONE BIT
2 CONT INUE

(DITTO)

= 240)

HIT A KEY UN TTY TO GO TO NEXT TEST)

19=JAN=79
CZDPE
MACY11 30A(1052)
(ZDPEB.P1
19=JAN=79 16:07
921

002574

032777

004000

16:09 PAGE 23
END OF PASS ROUTINE

176400

1%:

001353
001224
001224

933
934

002656
002660

936
937

002666
002670

941
942
943
944
945
946
947
948
949

950
951
952
953

002716
002720
002724
002732
002740
002742
002744
002746
002752

002756
002760
002764
002766

011600
022626
000177
001407
000437

010546
017605
062766
032777
001012
105715
100002
104402
105777

100375
112577
001362
012605
000002

001351
001224
001220
000050
001216

001222
001214

176326

000002
000002
010000

BIT

#SW11,aSWR

ggL?;E é;ERATION (QUICK PASS)?

7STB

QV.FLG

sHAS FIRST PASS BEEN COMPLETED?

INC
CMP
BNE
CLRB
CLR
CLR
MOV

LPCNT
LPCNT, ICOUNT
3%
ERRFLG
LPCNT
LOCK
#50, ICOUNT

MOV

(SP) ,RO

BNE

BEQ

001222

3%:
BRW:
BRX:

000002
176242

004352

176232

MOV

JMP

MOV
MOV

1%:

BIT
BNE

176226

3%:

2%
2%

NEXT ,RETURN
aRE TURN

:BR IF _QUICK VERIFY

*UPDATE ITERATION COUNTER

sALL

;PREPARE FOR NEW TEST
;START ICOUNT AT ZERO
SRESET ITERATIONS

cGET NEXT TEST

;POP RO OFF STACK
sFAKE AN RTI
;GO DO THE TEST

RS5.=(SP)
a2(SP) ,RS

sSAVE R5 ON THE STACK.
sGET ADDRESS OF MESSAGE.

ADD

#2,2(SP)

TSTB
BPL

(RS)

sBR IF NO PRINT OUT WANTED (SW12=1)
;1S NUMBER MINUS? (MSB=1(BIT7))

TYPE
TSTB

MCRLF
aTPCSR

sTYPE A CR/LF!
;TTY READY?

MOVB

§25)+.arpoea

MOV

;gmz.asua

:POP OVER ADPRESS.
sINHIBIT ALL PRINT 0OUT??
BR IF NUMBER IS PLUS

sBR IF NO.

(SP)+ RS

;IF NOT ZERO KEEP PRINTING!
JEND OF OUTPUT. RESTORE RS

JPRINT CURRENT CHAR.

000004
000002

003014
000004

005560
000007
176152

.INSTR: MOV
MOV
MOV

.INST1:
.MSG:
1%:

176146
000200
000015
176132
176122

2%:
176124

ITERATIONS DONE?

;BR IF NOT YET

sTELETYPE OUTPUT ROUTINE

.TYPE:

2%:

SEQ 0022
SEQ 0021

R3,-(SP)
R4 ,=(SP)

@4 (SP), .MSG

ADD

#2,4(SP)

MOV
MOV

# INBUF R4
#7 ,R3

i
TSTB

aTKCSR

BPL
MOVB
BI(B
(MPB

1$
aTKDBR, (R4)
#200, (R4)
(R4)+,415

TSTB

@TPCSR

BEQ

INSTR2

BPL
MOV

:;KDBR.GYPDBR

BNE
MOv

1%
(SP)+ R4

0 HOME

:SAVE R3 ON STACK
;SAVE R4 ON STACK

(ZDPE
MACY11 30A(1052)
19=JAN=79
19=JAN-79 16:07
CZDPER P11

977
978

012603
010346
010446
104402
000741
012604
012603
000002

004346

16:09 PAGE 24
END OF PASS ROUTINE

MOV
.INSTE: MOV
MOV

(SP)+,R3
R3,=(SP)
R4 ,=(SP)

8R
INSTR2: MOV
MOV

. INST1
(SP)+,R4
(SP)+,R3

TYPE

RTI

SEQ 0023
SEQ 0022

.MQOM

;RESTORE R4

JRESTORE R3

s CONVERT ASCiI STRING TO OCTAL
010546

.PARAM: MOV
MOV

MOV
MOV

PARAM1
:

R5,=(SP)

R4 ,=(SP)
4(SP) ,RS

MOV
MOV
MOVB
MOvB
MOV

(R5)+,LOLIM
(R5)+ HILIM
(R5)+,DEVADR
(R5)+,L0BITS
(R5)+ ,ADRCNT
gg,&(SP)

MOV
CMPB

# INBUF R4
#15, (R4)

CMPB

, 467
(R4)

18:

BGT
BICB
BISB
CMFB
BEQ
ASL
ASL
ASL

—g—-—-y

PARERR:

[

SWNN=OVONOIWVSWNN=O

[

—

——

8808§OOOOOOOOOO g

1008

1025

B8R
INSTER
BR

PARERR
#60, (R4)
(R4)+ RS
#15, (R4)
LIMITS
R5

RS
R5

PARAM1

sTEST TO SEE IF NUMBER IS WITHIN LIMITS
003310

LIMITS: cMP

RS,HILIM

003306

CMP
BLO

RS,LOLIM
PARERR

BNE

PARERR

BHI

003314

BITB

PARERR

LOBITS,.RS

:STORE NUMBER AT SPECIFIED ADDRESS
003312
000002
003315

1%:

MOV
MOV
ADD

DECB

ogvm 4
RS, (R4)+
#2.RS
ADRCNT

CZDPE
MACY11 30A(1052)
19=JAN=-79
CZDPEB.P1
19=JAN=79 16:07

16:09 PAGE 25
END OF PASS ROUTINE

1033
1034
1035

BNE

MoV
MOV

LOLiM:

HILIM:

s CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

004352

.CONVR: TYPE
-CNVRT: MOV

®
SIZEEIETR
%

ADRCNT=LOB]TS+1

\flf\l’\fl

wwHoN -

b
b
)
-

(SP)+ R4
(SP)+ RS

DEVADR: 0
LOBITS: O

1041

olelele]

RTI

18:

28:
177770
000060

3s:

MOV
MOV
MOV
MOV
MOV
ADD
MOV

R1.=(SP)
R3.=(SP)
R&.=(SP)
RS =(SP)
812(SP) ,R1
#2,12(SP)
(R1)+,WRDCNT

MOV
MOV
MOVB
MOV

8(R1)+,BINWRD
BINWRD
. R4

MOVB
cLC

R3,(R0)+

MOVB
MOVB

ROR

R4
R

cLC

ROR
DEC

BNE
MOV

MOVB

DECB

3s
#MDATA R3

=(RO),(R3)+

CHRCNT

BNE

BEQ
MOVB
DECB
BNE
CLRB
TYPE
DEC
SNE

63
#040, (R3)
+
SPACNT
5%
(R3)
MDATA
WRDCNT
18

TSTB

0$:

CHRCNT.RS

#TEMP RO

R4 R3
#177770.R3
#060,R3

ROR

5%:

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

MOV
BIC
ADD
cLC

48:

,MCRLF
RO, -(SP)

MOV
MOV
MOV
MOV

SPACNT

(SP)+ RS
(SP)
+ R4
(SP)+ _R3
(SP)+
R

SEQ 0024
SEQ 0023

C2UPE
MACY1Y 30AC1052)
19=JAN=79
CZOPEB.P11
19-JAN=-79 16:07

1089 003610

012600

MOV

1090
1091
1092

003612
003614
003616

000002
000070
000000

RTI
WRDCNT: 0
CHRCNT: 0

1094

003620

000000

BINWRD: 0

1093

003617

(SP)+,R0

1097
1098

JCOMPARE THE FIRST CMRACYER lN YHE TELEYVPE INPUT
M!ER TO THE CHARACYERS W' AND

”g‘)

:IF THE CHARACTER IS 'Y'' SET THE FLAG

*IF THE CHARACTER IS'N'* CLEAR THE mc

1102 003622 017605 000000
1103

003626

042737

1105

003642

100;

1107

003646

1104

SEQ 0025
SEQ 0024

SPACNT=CHRCNT
+1

1099

16:09 PAGE 26
END OF PASS ROUTINE

1106

1108

1109

1110

1111

1112
1113

003634

003644

003650

122737

001005

003664

062716

003670
003672

003674

000116

005560

.SETFLG:MOV
BIC

005560

CMPB

BNE

10501

003656
003660

000040

112715

CLRB

000131

005560

177777

000002

1%:

2s:

104404

3s:

000752

1116
117
1118
1119

003676

011646

1126

003704

017616

003700

162716

"52

003710

006316

1127
1128

003716
003722

062716
017616

003712

”% 003

RTI
INSTER

042716

000136

.TRPSR: MOV

000002

000000

TRPOK:

177001

001354
000000

(RS)

;000

&'V, INBUF

SIS IT 'Yyt
2

#-1,(RS)

:377

#2,(SP)
;RETRY

"SETFLG

(SP) ,~(SP)

SuB

#2,(5P)

ASL

(SP)

MOV

a(SP), (SP)

BIC

#177001,

JMP

3(SP)+

ADD
MOV

1131

(SP)

#.TRPTAB, (SP)
a(sP), (SP)

:GET PC OF RETURN

:=PC OF T

‘GET TRP

SMULTIPLY TRAP ARG BY 2
SCLEAR UNWANTED BITS

:POINTER TO SUBROUTINE ADDRESS
:SUBROUT INE ADDRESS

GO TO SUBROUT INE

;ERROR HANDLER

133

13% oos;g 032777 010000 175244
1135
003
0014
m? 003740

105

175244

1138 003746

000207

1137

003744

1139

1141

003764

114

003

wo%

032777

1140 003

0011

"‘i 003

1144

MOYB

ADD

SIS IT W'

:TO SELECTED SUBROUTINE

1122

1126

CMPB

BNE

#'N. INBUF

;TRAP DISPATCH SERVICE
JARGUMENT OF TRAP 1S EXTRACTED
SAND USED AS OFFSET TO OBTAIN POINTER

}}5?

1123

B8R

a(SP) RS

#40, INBUF

003776

02000C

021637

001234

11637

oo:g:.

105037

001351

wsgse
175220

.MLT:

BIT
BEQ

ISTB

QTPCSR

MOVB

#207.3TPDBR

8PL
xBx:

#SW12,aSWR

BIT

BNE

@SR

(SP) ,LSTERR

;BELL ON ERROR?
*BR IF NO BELL
STTY READY,

SDON'T WAIT IF TTY NOT READY.

:PUSH A BELL AT THE TTY,

:DELETE ERROR PRINT QUT?

*BR IF NO PRINT OUT WANTED.

:WAS THIS ERROR FOUND LAST TIME?

BEQ

*BR IF VES

CLRB

ERRFLG

:PREPARE MEADER

(SP) _.LSTERR

JRECORD BE ING HERE

CZDPE

MACY1T 30AC1052)

CZDPEB.P11

1145

11‘9

19=JAN=79

004002

004004

1147
004006
1148 004012
1149 004014
1150 004016

1151

"si

1153

19=UAN=-79

16:07

16:09

104406

011605

18:

162705
011504

000002

0462704

177001

006304
061504
006304

004026 0627064

PAGE 27

SAVOS

MOV

SUB
MOV

ADD

#.ERRTAB R4

MOV

1159

MOV

1157
1158

0040

0046042

012437

004172

005737

004172

004046
004052

105737
001403

1160
1161

204060
004062

001040
104402

1163

004072

005737

1159

104054

nsg 004066
1164

004076

1166

004106

1165 004100

004160

011%7

001402

004
004702
004§7

11273

177777

1171

0041

1173
1176

004142
004144

1176
1177
1178

004150
004150
004154

005737
001402

1180
1181
1182

004160
004162
004166

000000
005737
001402

1187 004204

001403

1175

004136

004146

1179 004156

1183
1184
1185
1186

1188

1189

004170
004172
004174
004176

004

00421

1190 004214
1191 004216
1192 004222
1193 004224
1196
1195

1196
1197
1198
1199

1200

004226
004232

004240
ooazgg
0042
004252

005737

001402
104402

004146

18:

000000

104402

104410
000000
104407
022737

100005

010046
016600
000000
012600

005237
032777

001007
032777
1407
013737

(P4&) ,DATABP

sGET DATA TABLE

(RG)+ DATAHD

ERRFLG
TYPMSG

DATABP
TYPDAT
MCRLF

002464

000042

.MTSIN

JSHOW IT
:TYPE PC.
JSHOW IT

MOv8

#-1,ERRFLG

sNO MORE HEADER UNLESS NO DATA TABLE.

BEQ
TYPE

WRKO. FM

*BR IF
STYPE

.MCRLF

DATAMD: O
TYPDAT: TST
BEQ

DATABP
RESREG

CONVRT
DATABP: 0
RESREG: RESOS
HALTS:
CMP

BEQ

001232
000400

174742

002000

174732

001216

001214

260 012706 001150

BPL

1$:

#SENDAD , an42

aSWR

EXITER

PUSHRO
MOV
2(SP) ,RO
HALT
POPRO

EXITER: INC
BIT

BNE
BIT
BEQ
MOV

MOV

*GIVE A CR/LF

:1S THERE AN ERROR MESSAGE?

DATAHD
TYPDAT

18:

*DOES DATA TABLE EXIST?

JBR IF YES.

_XTSTN
JMERRP(C
LERTABD

TST

000002

*TYPE
MEADREER
JBR IF YES

TST
BEQ

174770

JGET DATA HEADRER

CNVRT
TYPE
CNVRT

TYPE

004172

*GET POINTER

.MCRLF

ERRMSG: 0

004160

SMULT AGAIN

:GET ERROR MESSAGE

,MASTEK

WRKU.FM:

:GET ADDRESS OF TRAP CALL
*GET MLT INSTRUCTION
:MULT BY TWO
*DOUBLE IT

(R$)+ ERRMSG

TYPE

001351

;SAVE ALL PROC REGISTERS

sGET THE PC OF ERROR

SCLEAR JUNK

LOCK

TYPE

SEQ

#177001 ,Ré

BEQ

oo‘%

1170 oong 1ou.o; 00435
11;;

TYPE

0012

104411
104402
104411

004110
004114
004120

BNE
TYPMSG: TYPE

004352

004625

1167
1168
1169

TSTB
BEQ

00435

1
1

MOV

001351

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

BIC

011550

(SP) RS

ASL
ADD
ASL

1154 oof.og 012437 004146
1155

SEQ 0026

END OF PASS ROUTINE

ERRCNT
#SW08,aSWR

1%
#SW10,aSWR
2$

NEXT ,RE TURN

#STACK, SP

NO.

ERROR MESSAGE

:
;DATA HEADER?
;BR IF NO

STYPE

:
DATA HEADER
;DATA TABLE?
JBR IF NO.
2 SHOW
:
DATA TABLE
JRESTORE PROC REGISTERS
JIF ACT=11 AUTO MODE==HALT!'!

JHALT ON ERROR?
JBR IF NO HALT ON ERROR

*SAVE RO
:SHOW ERROR PC IN DATA LIGHTS
SHALT
*GET RO

JUPDATE ERROR COUNT
2GOTO TOP OF FEST?

‘BR IF YES
*GOTO NEXT TEST?
*BR IF NO
*SET FOR NEXT TEST

*RESET SP

19=JAN=79
CZDPE
MACY11 30A(1052)
19-JAN79 16:07
CZDPEB.P1

000177
000002
000001
006
001266
000001
003
001226

174724
002

002

SEQ 0027
SEQ 0026

16:09 PAGE 28
END OF PASS ROUTINE
JMP
2%:
RTI
ERTABO: 1
BYTE

XTSTN:

SAVP(
1

BYTE

TSTNO

aRETURN

6,2
3,2

GOTO SPECIFIED TEST
ETURN

CZDOPE
MACY11 30A(1052)
19=JAN=-79
(ZDPEB.PI
19=JAN=79 16:07
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219

1220
1221

004306
004310

;WAIT ROUTINE
:
SMALL
NOP

000240
000207

RTS

;POWER FAIL

004312
004320
004322

004326
004330

012737
000000
000005

012706
012737

004322

001150
004312

1222
1223
1226

004336
004340
004342

104402
004355
000177

1226
1227
1228

004346
004352
004355

051501
050104

000
051120
020115

1229
1230
1231

004362
004370
004373

004400
004406

020040
005015
377
040506
020056
015
050040
055103

1235
1236
1237

004416
004421
004426

051377
377
040522

12640

004450

1232
1233

1238
1239

1265

16:09
PAGE 29
END OF PASS ROUTINE

004434
004442

004634

00004 0

044504
020123
053105

053523

000024

046111
000
042777

040503
047516
041511

0521

JSTALL
s RE TURN

ROUTINE

PFAIL:

#Pw

PWRUP:

P24

:LOAD PFAIL

#STACK, SP
#.PFAIL,24

000024

174646

000077
000
(053520

SEQ 0028
SEQ 0027

VECTOR FOR POWER UP

SWAIT TTY TO COME UP

*REINIT STACK POINTER
:LOAD PFAIL VECTOR FOR POWER DOWN

ARE TURN
MQM:
MCRLF
:

<15><12>

020122
042105

MPOWER: .

<377>/PWR FAILED.

042116
020123
041105

MEPASS:

<15><377>/END PASS (ZDPER /

043517
047111
042524
042040
051505
042523

<377>/R/
<377>/PROGR/M INDICATES NO DEVICES PRESENT./

MR
:

MERRZ:

043125
047105
040524

MERR3:

LASCIZ

<377>/INSUFF ICIENT DATA!/

020124

MTSTPC:

LASCIZ

<377>/TEST PC=/

020113
046105
020104
000
020072

MLOCK:

LASCIZ

<377>/L0CK ON SELECTED

MCSRX:

LASCIZ

020072

MVECX:

LASCIZ

/VEC:

042523

MPASSX:

LASCIZ

/PASSES:

051522

MERRX
:

LASCIZ

/ERRORS:

020124
000

MTSTN:

LASCIZ

/TEST NO:

MASTEK:
MNEW:

LASCIZ
LASCI2Z

/*/

020124
044103

TEST/

/CSR:
/

<377>/SET

SWITCH REG TO DUP11°S DESIRED ACTIVE./

(ZDPE
MACY11 30A(1052)
19=JAN-79
(ZDPEB.P1
19-JAN-79 16:07

N
oo

&8
-\

oo
rnow
g

NNO

051&56

-— N -\
—d b b

—

0201
0425
0471
0375

O§ &
N
nNO

nN=O
oNro
wown

0521

R O?O
Vs

041501
041101
047503
042524
020131

—

0461
0475

ARORSOS 3
o

g
RESRSRR g
e d e = O
-

047101
046040

(53440

043505
052504
020123
042522
044524

005300
005306
005314

377
043117
030461
052524

SEQ 0029

SEG 0028

052040
030520
042504
020104
042526
000

MERRPC:
MCSR:

.ASCIZ
LASCIZ

/PC: /
<377>/REC

(SR ADRS /

MVEC:

LASCIZ

<377>/VEC

ADRS /

MMODEM:

.ASCIZ

<377>/1S A MODEM WITH ANALOG LOOPBACK ENABLED CONNECTED?

052040
052120
020114
046512
037516

MJMPR:

.ASCIZ

<377>/1S THE OPTIONAL

044124
032462

MTCN:

LASCIZ

<377>/1S

047511
024040
033440

MPAR:

LASCIZ

<377>/PRIORITY

020103
050115
020077
020122

MSTJUM:

_ASCIZ

<377>/SEC

051040

MSRJM:

ASCIZ

<377>/SEC RX JMPR

IN?

020120
050125
040524
000

XHEAD:

.ASCIZ

<377>/MAP OF

STATUS/<377>

020103

042101

040440
000
040440
046505
020110
043517
041120
047105
020104
041505
024040
047040

CLR JMPR IN?

042040
051440
177523

(Y ORN)

047440
020040

THE H325 CONNECTOR ON?

(Y OR N)

020051
(4

TO 7)

TX JMPR IN?

(Y OR N)

—

A%,

o
n

g
38888

e e e

=OVONOWVESAWN=O

— d
D
D D D
WW WWWWWWWWWW

D D d

D e

o
Y

D e

d ) D ced D —d d D -

ZRIRIRS SZELELSE I

NN
=

1287

004776
005004
005012
005020
005026

3 833383888
v

1283
1284
1285
1286

004754

-t

004762
004770

020072
042522
020122
000040
0415
0201
0515
0421

1281
1282

1280

051040
020117
023461
044523
041501
000056
041520
377
051503
051522
053377
051104
377
046440

004642
004650
004656
004664
004672
004700
004702
004707
004714
004722
004726
004734
004741
004746

1266
1267
1268
1269
1270
1271
1272
1273
12764
1275
1276
1277
1278
1279

16:09
PAGE 30
END OF PASS ROUTINE

DUP11

(Y OR N)

CZDPE

MACY11 30A(1052)

CZDPEB.P1

1322
1323
1324
1325
1326

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

1327

=0V
NO VNS WN = o

DA R RRRRRRRR ¥

1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339

19=JAN=-79
19-JAN=79 16:07

000002
006
001236
006
001240
005454
005516
005560

005622

000000
005516
000000
005560
000000
005622
000001

051101

16:09 PAGE 31
END OF PASS ROUTINE

020105
042504
020124

SEQ 0030
SEQ 0029

MALL JM:

LASCIZ

<377>/ARE

THE DEFAULT JUMPERS ALL

IN?

(Y OR N)

MDSC:

.ASCIZ

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

2
BYTE

6,3

051105

020114
054450
024516
020105

020051
.EVEN
XSTATQ:

TEMP1
BYTE
TEMP?2

BLKW 1

6.2

19=JAN=79
CZDPE
MACY11 30A(1052)
CZDPEB.P11
19-JAN=79 16:07

16:09 PAGE 32
END OF PASS ROUTINE

1353
1354
1355
1356

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

*THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
THIS ROUTINE #*MUST=
sAND RUNS THE SPECIFIED DUP11°'S.
;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
:SETUP NECESSARY.

105737

001316

CYCLE:

004421

o
&~

001414

001432

001436

D d e e

D e

001426
001420

013737
005237
013737
005237
013737

001422

001434

001402

001404

001406
001410

VIS

WA
=

SnE8Ra

d e
b e
D

TYPE
HALT
BR
MOV
MOV
MOV
MOV
MOV
MOV
INC
MOV

—

d e e

TSTB

BNE

001424
001416
001430

g
Py

ONOVNSWN—=OV

1%:

) d

D e

D e e

d e

D d e

d e o

D d o

HA S 3 JRGahaRR EEREREREE

R o ls ]

b g
WW
v

1357

WWWWWWW

SEQ 0031
SEQ 0030

000002

004352

DUPACTV
1%

.MERR2

.-2

#DUP.MAP
RO

(RO)+ ,RXCSR
(RO) +,DUPRV(
(RO)+,L00.00

#2,R0
RXCSR,HUPRCR

HUPRCR

HUPRCR ,RXDBUF
RXDBUF
RXD,BUF
DUPSEC
RXDBUF ,PARCSR
RXDB
, HUPRBF
UF
HUPRBF
HUPRBF ,HUPPSR
HUPPSR, TXCSR
TXCSR
TXCSR,HUPTCR
HUPTCR
HUPTCR, TXDBUF
TXDBUF
TXDBUF ,HUPTBF
HUPTBF

7%:

TYPE

INSTR

MTSTN

;sGOT
JGET
;GOT
JGET
;GOT
JBET
;GOT
sGET
JGOT

PAR STATUS REG HIGH BYTE
TX CONTROL REGISTER
IT
TX CONTROL REG HIGH BYTE
IT
TX BUFFER
IT
TX BUFFER HIGH BYTE
IT

DUPRVC ,DUPRPS
RO,DUPRPS
DUPRPS ,DUPTVC
RO,DUPTVC
DUPTVC ,DUPTPS
RO.DUPTPS

sTX PRIORITY LEVEL

#L00.00,RO
#MASK.A,R1

;LOAD STAUS 00-00
;PREPARE MASK.

JRX VECTOR
JRX PRIORITY LEVEL

;TX VECTCR

#CLK.A,R2
PC,FIX.C0

:PREPARE

#SW01,aSWR
43

;IF SWO1=1,GET STARTING TEST #

ané?
4%

173072

JARE ANY DUP11°'S TO BE TESTED?
;BR IF OK.
sNO DUP11°'S SELECTED!'!
;STOP THE SHOW.
:DISQUALIFY CONT. Sw.
JRESTORE POINTER.
;LOAD SYSTEM CTRL. REG
;LOAD VECTOR
:GET PARAMETERS
;SAVE CORE THIS WAY!
sGET CONTROL REG HIGH BYTE
;GOT IT
JGET RX CONTROL REG BUFFER
;GOT IT
;GOT SECONDARY REG SELECT REG
;GOT PARAMETER STATUS REGISTER
:gg} ?¥ BUFFER HIGH BYTE

+MCRLF

CLOCKS

:GO AND CALCULATE CONFIGURATION.

sOUTPUT MESSAGE & GET INPUT STRING
JME SSAGE

CZDPE
MACY11 30A(1052)
19-JAN=79
CZDPEB.P11
19=JAN=79 16:07
1409

1410
1411

1412
1413
1414
1415

1416

1417

006122

006124
006126

006130
006132
006133
006134

006140

006144

104405

PARAM

000001
001000

001226
000
001
012700

022710

001017

BYTE

012737

006i46
006154
006156
006164
006166

023760
001013
022760
001007
010037

1424
1425
1426

006176
006202
006204

104402
000412
005720

1428
1429

006212
006214

006220

001352
104402

000734

004346

1432

006222

012737

006364

1427

}2§?

}232

1435
1436

006172

006206

006230

00623
(006236

104402

020027

000177

011003
000207

BYTE

006364

1418
1419
1420
1421
1422

1423

16:09 PAGE 33
END OF FASS ROUTINE

5%:

001226

000002

001226

000004

001214
004352
004416
€$:

172760

SLOW LIMIT
:HIGH LIMIT

TSTNO
0

1
MOV

:STORE AT THIS LOCATION
*MASK
*HOW MANY TIMES + 2
#TST1,RO

BNE

CMP

4$:

8% :

#12737,(RO)

CMP
BNE
CMP
BNE
MOV

TSTNO,2(RO)
6$
#TSTNO,
4 (RO)
6$
RO, RE TURN

TYPE
BR
ST

‘MR
8s
(RO)
+

BNE
TYPE

5%
MM

cMP

001214

;CONVERT STRING

1
1000

TYPE

010040

SEQ 0032
SEQ 0031

MOV

JMP

FIX.00: MOV
58
RTS

LMCRLF

:SAVE PC

RO,#TLAST+10
7$

#TST1,RETURN

:PREPARE RETURN ADDRESS

aRE TURN

“GO START TESTING.

(RO) ,R3
PC

:GET PARAME TERS.
;

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P1T
19-JAN=79 16:07

16:09 PAGE 34
END OF PASS ROUTINE

1437

:THIS ROUTINE PICKS UP THE ADDRESS OF

1438

:THE JUMPER TABLE AND LOADS RS WITH

1439
1440

ibre.

:THE CORRECT DATA BASED ON THE STATE
:OF THE JUMPER AND CONNECTOR FLAGS.

1443
1444
1445

006240
006242
006246

012100
105737
001406

1447

1448

006254

006256

001403

1450
1451

006260
006264

000137
022020

1446

1449

1452
1453

006250

006266
006272

105737

105737
901403

006274
006276
006302
006304

011005
000137
012005
000201

1459

006306

012100

1462
1463
1464
1465

1466

1467

1468
1469
1470

1471

006310
006314

006316
006320
006324
006326

105737
001403

011005
000137
022020
011005

006330

000201

006332

012577

006336

001324
_
001325

JUMPER: MOV
TSTB
BEQ

012577

BEQ

(R1)+,R0
TCNFLG
2%
OPCLRJ
28

JMP
CMP

5%
(RO)+, (RD)+

TSTB

011005

1454
1455
1456
}gg
1460
1461

MOV

006304
001325

006304

001324

005330

2%:

3$:
5%

173044

MOV
JMP
MOV
RTS

OJUMPER :MOV

TSTB
BEQ

4$:
68:

173044

TSTB
BEO

MOV
JMP
CMP
MOV
RTS

(R0) ,RS

OPCLRJ
3

:MOVE THE INFO TO RS
1GO BACK
:POP POINTER
.LOAD DATA TO RS

:MOVE DATA=- JUMPER IN, CONNECTOR OFF

:CHECK FOR TURNAROUND CONNECTOR
*BR IF MISSING

*RETUN

;ROUTINE TO SET UP INTERRUPT VE(CTORS
SETVEC: MOV
(RS) +,3DUPRVC

MOV

(R5) +.aDUPTV(

RTI

HLT

1479
1480
1481

006360
006360
006362

104002
000002

NO.BTRAP:
HLT
RTI

1487

:POP POINTER

:TEST CLEAR JMPER FLAG
*BRANCH IF MISSING

(R0) ,RS
6%
(RO)+, (RO)+
(R0) RS

000002

104001

:AND CONNECTOR ARE THERE

;GET THE POINTER ADDRESS

006356

006354

:BRANCH IF JMPER IS MISSING

:MOVE THE DATA TO RS, BOTH JUMPER

(R1)+,R0

TCNFLG
4$

;2;;

173036
173036

:TEST CLEAR JMPER FLAG

.NO CONNECTOR OR JUMPER
*RETURN

006342
00636
006352
006354

112577
112577
000205

;GET THE TABLE ADDRESS
:TEST THE TURN AROUND CONNECTOR FLAG
:BRANCH IF CONNECTOR IS MISSING

(R0) ,RS
5%
{R0)+,RS
R1

1472
1473
1474
1475
1476

SEQ 0033
SEQ 0032

MOVB
MOVB
RTS
NO.ATRAP:

(R5)+.aDUPRPS
(R5)+.aDUPTPS
RS

(ZDPE
MACYT 30A(1052)
19=JAN=79
P
CZDPEB.P11
19-JAN=-79 16:07

16:09 PAGE 35
END OF PASS ROUTINE

SEQ 0034
SEQ 0033

1483
JHRRNARKARRANAAAARCRAARRRNAAR

TEST

]

wanmnnnnnvnnnennnnntensronnn

;*THIS TEST PROVES THE INTERACTION OF DTR!RTS!STD
:*WITH RING,DSR,CTS,CARDET,STD,
SRD

;*AND DATA SET CHANGE ONE AND DATA SET CHANGE TWwO.
s*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR

;*THE BIT AND VERIFY CLEAR.
AR

CaRRRA KRR

AR A

REPEAT FOR MRESET.

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

AR AR AR AR AR AR AR AR AR AR

.
.
.

JIRRRRRRAR KRN
LSRR

EIRARUK2EER NN
NOMn f‘\\,NNNN_._._o_._s_._a_n_a_o

D —d
D
D
D e
D
)

—

)

D e

)

D i

VAN
NN
AW Vi viviuviuviivuivaunia

D e

012737
012737
012746
012746

000001
006744
173017
173001
001016
0C0000
001324

001226
001216

ST1:

MoV
MOV
MOV
MOV
MOV
MOV

#1,a4TSTNO
#TST2 NEXT
#173017 ,-(SP)
#173001,-(SP)
#1016,-(SP)
#0,-(SP)

BEQ
TSTB
BNE
MOV

6%
AL JMFL
12%
#STD!SRD,R1

TSTB

001344

1008:

002C10
001336

TSTE

BNE

101$:

102%:

12%:

172654

172636

006616

1%:

172620

668%:

172610

67%:

TCNFLG

; SAVE

;H325 TEST CONNECTOR ON?

:IF NO, SKIP TEST.

1018

Ri.7$
R1.78+2
R1,78+4
102%
SRJMFL
102%
R1.7%
R1,7%+2
R1,78+4
DSCFLG
12%
7%
7$+2
R1,0JUMPER

CLR
BIS
JSR
MOV
BIS

aRX(CSk
#MRESET ,@TXCSR
PC,SMALL
RXCSR,R3
#MEXT ,aTXCSR

sTHIS CALL DETERMINES IF TURNAROUND CONNECTOR
JAND OPTIONAL JUMPER ARE USED

JAND LOADS R5 (EXPECTED) ACCORDINGLY.

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;LOAD THE RECEIVER CONTROL REGISTER TO R3.
;ENTER EXTERNAL MAINT. MODE

#DTR!RTS'STD, (R3)

MOV

#110,68%

BNE
BIT
BEQ
DEC

66%
#TIMER,QTXDBUF
67%
(PC)+

BIT

222223222222;

STJMFL

BIC
BIC
BIC
BR
1STB
BNE
BIC
BIC
BIC
TSTB
BNE
DEC
DEC
JSR
7%

BIS

1123232222222

#TIMER,QTXDBUF

sTURN ON DTR!RTS!STD

;LOAD THE NUMBER

;CHECK THE TIMER BIT

:BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P11
19=JAN=-79 16:07

1539
1540
15641
1542
1543
1544
1545

1546

1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560

1561

1562
1563
1564
1565
1566

1567
1568
1569

006616
006620
006622
006624
006626
006630
006632

000110
001365
011304
020504
001401
104003
012737

006644
006646
006654
006662
006664
006672
006674
006676
006700
006702
006704
006706
006710
006712

005013
012737
032777
001374
032777
001774
005327
000C0S
001365
011304
020504
001401
104003

006640

006712

006716
006722
006726
006732
006734

006736
006740
006742

042705

012637

012637
012637
012637
104400
173017

16:09 PAGE 36
END OF PASS ROUTINE

68%:

006644

073016

001220

110
BNF
MOV
CMP
BEQ
HLT
MOV

2%:

000005
004000

0056676
172540

71%:

004000

172530

72%:
73%:

6%:

006742

006740
006736
006734
7%:

173001
001016
000C00

MOV

(SP) +,7%+6

(SP)+,7%+4
(SP)+,7%+2
(SP)+,7%
173017

sRESTORE

;SCOPE THE WHOLE TEST

173001
1016
O
[EST

wvnanwnnnennntnnttnnenrntenn

s*TEST OF THE DUP RUNNING A BINARY COUNT
s*PATTERN WITH A CRC CALCULATION AS A SECONDARY STATION
IR

1576

1577

AR AR AR AR R

AR AR AR R A AR AR

AR AR AR R AR R AR

R AR R

R AR NN

JIRRRARARRANAS

1578

1579
1580

; TEST 2
:

1581

JINRRRARNRRNAR

1582

1594

71%
(R3) R4
R5,R4
6%
3

;CLEAR OUT UNWANTED BITS

;CLEAR OUT THE REGISTER
:LOAD THE NUMBER
JCHECK T.
TIMER BIT
BR IF Sk
;(CHECK THE BIT
BR IF CLEAR
:DECREFENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;READ BACK THE REGISTER
;R5=GO0D Ré4=?
sBRANCH IF ONLY THE DSC BITS ARE SET
sNO-GO TELL OPR

JRNRRRNRRRNRARRAARRRARRANNEY

1575

1584
1585
1586
1587
1588
1589
1590
1591
1592
1592

(R3)
#5,73%
nmen.arxoeur
718
#TIMER,®TXDBUF
72%
(PC)+

.WORD
.WORD
WORD

1573
1574

1583

#RING'CTS'CARDET'SRD'DSR'STD'RTS'DTR RS

CLR
MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE
MOV
CMP
BEQ
HLT

MOV
MOV
MOV
SCOPE
.WORD

1572

;sOF TIMES TO REPEAT
BR IF MORE TO GO
sGET THE BITS FROM THE RXCSR
*R5=GOOD Ré4=?
.'BRANCH IF THEY MATCH
sNO MATCH - SHOW OPR.
s SW09 SETUP

66%
(R3) R4
R5,R4
2%
3
#38,L

BIC

3%:

SEQ 0035
SEQ 0034

006744

006752
006760
006766
006772
006776
00700C
007
007014
007016
007024

007032

012737

012737
052777
004737
105737
001403
012737
012737
005001
012737
012737

013737

000002

010030
000400
004306
001324

001226

001216
172432

01000C
000005

)
007704
001244

102010
177777

010022
010026

010026

007054

TST2:

MOV

102%:

16%:

MOV
BIS
JSR

A A AR AR AR AR A AR AR AR A RAR RN AR AR AR AR AN AR AR R AR RN R

TSTB
BEQ
MOV
MOV
CLR
MOV
MOV

MOV

#2,34TSTNO

#TST3 NEXT
#MRESET ,@TXCSR
;RESET THE DEVICE
PC,SMALL
JWAIT FOR RESET TO FINISH
TCNFLG
sH325 TEST CONNECTOR ON?
102%
:IF NO, BR.
#MEXT ,1038+2
sIF YES, SET MAINT
#5,TEMPS
R1
;CLEAR OUT DATA
#CRC.CCITT, XPOLY SET UP THE POLYNOMIAL
#-1,CALBCC
sSETUP FOR THE FIRST TIME

CALBCC.ZOS

:ALLOU FOR THE NEXT CHARACTER

RN,

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P1T
19=JAN=-79 16:07

1595

1596

PAGE 37

SEQ 0036
SEQ 0035

END OF PASS ROUTINE

007052
007650

R1,17%

RS5,SIMBCC

17%:
20%:

D wd

25822522287

1597
1598

010137
004537

16:09

sPREVIOUS BCC

s INCREMENT DATA
:BR IF MORE TO GO
sLOAD DATA
C%EAR7EXPECTED

001236
177776
172310

103%:

#SYSTST ,@TXCSR

RS,SETVEC

D wd

000001
001240
000340
004000
006332

;DATA

b
s
b

VNV
W =O

D
i

)
D

340,340

:ENTER SYSTEM TEST MODE
sLOAD INTERRUPT VECTORS

:RECEIVER

: TRANSMITER

sLEVEL

Al itt
2222222332323
t
223232322222231225

;**FOLLOWING CODE FOR TESTING DUP11 CONNECTED TO MODEM WITH ANALOG LOOPBACK ENABLED**
Al

TSTB

BEQ

172256

007374
172234

172222

—

oooooorOrO
O MONMONOM

340
AR

sLOAD DATA
;GO CALCULATE SOF TWARE BCC
;BASED ON THESE PARAMETERS

106$:
105%:

000020
000100
172170

052777
012777

000020
000400

172160
172154

012737

000005
004000

007276
172140

66%:

004000

172130

67%:

100375

104%:
1%:

2%:
1018:

68%:
001244

BIS

3%:

172076

4%:

2222222222323

2322223222213125

;STEP COUNTER IF NO.

#RCVEN,3RXCSR
#RINTEN,aRXCSR

?IXCSR

#SEND ,aTXCSR
#TSOM,ATXDBUF

#5,68%

#TIMER,@TXDBUF

66%

#TIMER,aTXDBUF

67%

(PC)+

66%

:CLEAR TO SEND UP?
:IF _YES, BR.
:IF NO TRY AGAIN.

6
R3
106$
7
68

TEMPS

172102

sMODEM CONNECTED?
:IF NO, BR.
:REPEAT CTSDLY
#MEXT ,TXCSR
sSET EXTERNAL MAINTENANCE
DELAY.73$
:SET TIMER
#DTR!RTS,aRXCSR sENABLE MODEM.
CTSDLY,R2
:WAIT FOR CTS

104$
R2
105%

MDMF
LG
1048
REPEAT ,R3

#CTS,aRXCSR

1622

052777
052777
105777

sALLOW CTSDLY TO REPEAT
;BR IF NOT COMPLETE
sCTS STILL NOT ACTIVE
;DO NOT CONTINUE TEST
i

sTURN ON THE RECEIVER

2223232323222

sTURN ON REC INTERRUPT ENABLE
:TEST FOR TX DONE
:BR IF NOT SET
:TURN ON SEND
:TURN ON START OF MESSAGE

;LOAD THE NUMBER
sCHECK THE TIMER BIT
:BR IF SET

sCHECK THE BIT

:BR IF CLEAR
sDECREMENT THE NUMBER

;OF TIMES TO REPEAT
:BR IF MORE TO w0

;WAIT FOR DONE

:BR IF NOT SET
sPUSH OUT DATA

22222222311223111T S

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P11
19=JAN=79
116:07

052777
005037
105737
001003

AT&

012737

000100

177776

16:09

PAGE 38

SEQ 0037

END OF PASS ROUTINE

172066

BIS

CLR

SEG 0036

ATXINTE,@TXCSR

:TURN ON TRANSMITTEK INT ENABLE

:LOWER PROCESOR STATUS

::tt't'Ott.tt.t.'t.t.'.tltttt.'...'Ql....'tt'.t..t..t.t'tQtt'tt'.t't'l'QQ.QQQQ'QQ

001342

TSTB
BNE

000040 007374

MOV

MDMFLG
718
#32..738

:MODEM FLAG SET?
*IF YES, BR
LOAD THE NUMBER

BNE

718

*BR IF SET

..ttt't'tt.ttttttt.tt.t.tt't.t'tfit.*t".ttttt.....-t..ttt.tttttt..tt.'ttt.'t'.t't

004000

172042

718:

004000

172032

72%:
738:

68:

BIT

BIT
BEQ
DEC
32.

BNE
HLT
SCOPE

#TIMER,QTXDBUF

:CHECK me TIMER BIT

#TIMER,QTXDBUF
72%
(PC)+

:CHECK THE BIT
*BR IF CLEAR

718

*BR IF MORE TO GO
:SCOPE THIS TEST

*DECREMENT THE NUMBER
*OF TIMES TO REPEAT

;FAILED TO INTERRUPT IN TIME

; INTERRUPT SERVICE ROUTINES
017737
123737
001401

1720064

001240

001326

*RECEIVER:

11$:

HLT

INCB
TSTB
BNE
JSR

006332

14%

128

340
001236

171742

000377

001236

007504

171704

000377

171710

001236

007522

001000

000120

006360

007336

117737

012716

171666

171672

128:

21$:

22%:

001326

171616

001327

138:
14$:

ARXDBUF ,DATA

TEMP2,DATA
.+

TEMP2
TEMP2
78
RS,SETVEC

:GET THE REGISTER AND DATA

*CHECK IT

*BR IF OK

*COMPARISON ERROR

+COUNT UP EXPECTED
*CHECK TO SEE IF DONE
*BR IF NO
*YES=-RESET THE VECTORS

*RECEIVER

*TRANSMI TTER

.BYTE

340,340

MOVB

TEMP1,aTXDBUF

CMFB

#377.TEMPI

MOV

#377.3TXDBUF

:LOAD BUFFER

B8R

138

*LEAVE
:SET END OF MSG
*STALL
DITTO

78:
RTI
: TRANSMITTER:

171656

171636

171632
171622

007606

CMPB

BEQ

001240
001240

113777
105237
122737

MOv

INCB

BNE
MOV
BR
MOV

*LEVEL

*RETURN

:LOAD THE TRANSMITTER BUFFER

TEMPI

:UP_THE COUNT

138
#218,3DUPTVC
138

*BR IF NO
:SETUP FOR NEXT PART
*LEAVE

#228.3DUPTVC

ARE WE DONE

:SETUP NEXT PART

MOV

#TEOM,@TXDBUF

BIC

#SEND
' TXINTE,@TXCSR :TURN OFF TRANSMITTER

MOV

#58. (SP)

NOP
NOP
MOV
RTI

#NO.BTRAP,aDUPTVC :LOAD VECTOR

:CRC CATCH INT SVC
MOVB
@RXDBUF ,DATA
53{8
anzcsn
MOVB

MOV

QRXDBUF ,UATA+1

#15%, (SP)

;CRUNCH STACK

*RETURNS

:GET FIRST PART OF CRC
umoron SECOND PART
:GET THE REST OF THE CRC

*SETUP FOR RETURN

CZDPE

MACY11 30A(1052)

(ZDPEB.P11
1707
1708
1709
1710

007604
007606
007614

171%
1713

007630
007632

1711

1714

;l;} g

007640

007644

19=-JAN=-79 16:07
000002
012737
005137
023737
001401

104004
052777

004737

000137

1717
1718
1719

007650
007652

010046
010146

1721

007656

012537

1720

007626

007654

010246

000400

004306

16:09

001326

RTI
MOV
COM
CMP

#340,PS
CALBCC
CALBCC,DATA

171560

HLT
BIS

4
#MRESET ,@TXCER

JMP

177776

1726
1727
1728
1729

007702
007706
007710
007714

006037
005500
032700
001402

001240

1731
1732
1733
1734
1735
1736
1737
1738
1739
17640
1741
17642
1743
1744

007722
007726
007730
007734
007736
007742
007746
007752
007754
007756
007762
007764
007772
007776

013700
005100
040037
000241
006037
013700
013701
010102
040100
043702
050200
043737
050037
005337

010022

1747

1749
1750

010016
010020

012600
000205

010024
010026

000000
000000
120001

012602

1751

1752
1753
1754

1755

1756
1757

1758

01002¢

000000

102010

JSR

1%:

000001

1730 007716 005137 010024

001333
013737

BEQ

2$:

010024

001242
010024
001242
010024

010022
001242
001236

001242

010026

SEQ 0038

cWAIT FOR RESET TO FINISH

(R5)+,TEMP2
(R5)+,TEMP3
BCCFBK

ROR
ADC
BIT
BEQ

TEMP2
RO
#BI1T0,RO
2%

(OM

BCCFBK

XPOLY RO
RO
RO,BCCFBK

TEMP3
BCCFBK,RO
TEMP3,R1
R1.R2

MOV
RTS

(SP)+,R0
RS

s LEAVE

TEMP3.RO

MOV

:BCC _COMPARISON ERROR
;RESET THE DEVICE

(RS)+,TEMP]

R1,RO
BCCFBK,R2
R2.R0
XPOLY, TEMP3
RO, TEMP3
TEMP1
13
TEMP3, CALBCC
(SP)+,R2

BNE
MOV

XPOLY:

PC,SMALL

MOV
MOV
CLR

MOV
COM
BIC
cLC
ROR
MOV
MOV
MOV
BIC
8IC
BIS
BIC
BIS
DEC

;RETURN
;RAISE PS
s INVERT BCC
: COMPARE SOF TWARE AND HARDWARE BC(C

:BR IF OK

MOV

SEQ 0037

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

MOV

1725 007676 013700 001242

010002
010004
010012

15%:

001236

001240
001242
010024

END OF PASS ROUTINE

SIMBCC: MOV
MOV

012537
012537
005037

PAGE 39

007402

007662
007666
007672

| 178 010014 012601

000340
010026
010026

1722
1723
1724

1745
17646

19=JAN~-79

(3P)+.R]

BCCFBK: 0
CALBCC: 0
CRC16=120001

CRC.CCITT=102010
Jennnnnnnnnnnnnnnnennnnnnnts [EST T aencnnnannnnnnnneranannnnes

1759
1760

:*THIS TEST PROVES THE DEVICE WILL HANDLE THE
:*DDCMP PROTOCALL, SEND AND RECEIVE SYNCS,

1762

AR T
T Y S R L]

1761

:«FOLLOWED BY DATA,BCC,DATA AND F INAL BCC.

CZDPE
MACY11 30A(1052)
19-JAN=79
CZDPEB.P11
19 JAN=79 16:07

16:09 PAGE 40
END OF PASS ROUTINE

1763

1764

JINeNRRRRRRRNY

1765

;

1766

: TEST 3

1767

1768

JInRRRRERARRNR

1769

1770

1771

010030

012737

000003

105737

001324

010036

012737

1
1774

010050
010052

001403
012737

1776
1777
1778

010066
010072
010076

004537
010632
010454

006332

1780

010100

005037

001236

177;§
177S

010044

010060

1779 010076
1781
1782
1783
1784
1785

1786
}nm?

1789

010106
010110
010114
010120
010124

010132
8}8}432

010144

012737

340

(05037
005037
005037
005037
052777

004737
012777

052777

002352

010000

000340

001226

001216

010146
177776

001240
001242
001244
001246
000400

004306
100026

004000

171252
171246

010152

105737

001430
013703
012777
013737

001310
010000
001314

010206

013702

001312

1800

010212

032777

1802

010222

005302

1803

010220
010224

1804
1805

010226
010230

1807

010234

1806

1808

1809

1810

010232

010236

010240

052777

001007

000006

020000

171204

171172

T R

#3, #TSTNO

#.EOP,NEXT
TCNFLG

+IF NO, BRF
:IF YES, SET MAINTENANCE

JSR
108
2s

RS,SETVEC

:SET
UP VECTORS
*BASED
ON
*THESE

CLR

TEMP]

MOV

#340,PS

RAISE PROCESSM STATUS

.BYTE

340,340

*PARAME TERS

CLR
CLR
CLR
CLR
BIS

TEMP?
TEMP3
TEMPS
TEMPS
#MRESET,3TXCSR

:RESET THE DEVICE

BIS

#SYSTST.ATXCSR

JSR
MOV

;H325 TEST CONNECTOR ON?

1018
#MEXT,1028+2

PC, SMALL
:WAIT FOR RESET TO FINISH
ooecmo'ze @PARCSR
:LOAD THE MODE AND SYNC CHARACTER
;ENTER SYSTEM TEST MODE

."'t"tttttt"tt.'t...t"t.t.tltt..t..'.'..t.'..".t.tl.'t..Q...'.Qt.".t..t'.t.""'

DEC

HLT
DEC

[
R3

HLT

BNE

000426
000005

171140
010312

000020

032777

004000

032777
001774

004000

001374

CTSDLY,R2

*WAIT FOR CTS

*CLEAR TO SEND UP?

1038

*IF YES.BR.

1048

*TRY AGAIN.

:STEP COUNT IF NO.
;ALLOW CTSDLY TO REPEAT

105$

*BR IF NOT COMPLETE

:DO NOT CONTINUE TEST.

:CTS STILL NOT ACTIVE

ttttttttttttttttttttttt"ttttttttttttttltttttttttttitttttttttttttttt'tttttttttttttt

012777
012737

010300
010306

#CTS.aRXCSR

052777

:MODEM CONNECTED?

:IF NO, BR.
*REPEAT CTSDLY
:SET EXTERNAL MAINTENIANCE
*SET TIMER.

BIT

000476

104007

103$
REPEAT ,R3
MMEXT ,TXCSR
DELAY.74$

#DTR'RTS,BRXCSR :ENABLE MODEM.

MOV

BNE

010254
010262

010270

104$:

MDMFLG

BIS

001365

1813
1814

010276

1058:

104006
005303

171144

010246

BEOQ
MOV
MOV
MOV

BNE

000420

1817
1818

BEQ
MOV

001372

052777

1815

101%:

171226
010426

010240

1816

TSTB

1811

1812

MOV

:."ttt"t'....t...t......t'tt.t.t.'.t'....'..."..t..t.'..t..'ttt.".'t.t.'.".ttt'..

001342

010156
010160
010164
010172

010200

1801

MOV

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

1798

1799

T7ST3:

171266

1791

1793

AAAAL LA AL A

340

1”2

1796
1795
1796
1797

SEQ 0039
SEQ 0038

103s:

171144

BIS

171124

66%:

171114

67%:

#RCVEN!STPSYN,@RXCSR

#SEND ,@TXCSR

;LOAD RCVEN'STPSYN

*TURN ON TRANSMITTER

MOV
MOV

#TSOM' 26, aTXDBUF
SOUTPUT A SYNC CHAR
#5.68%
;LOAD THE NUMBER

BNE

66$

BIT

BIT
BEQ

#TIMER,®TXDBUF

#TIMER,RTXDBUF
67

:CHECK THE TIMER BIT

‘BR IF SET

:CHECK THE BIT
*BR IF CLEAR

19=JAN=-79
CZDPE
MACY11 30A(1052)
19-JAN- 79 16:07
CZDPEB.P11

010310

SRRRRRRRRR 2

1819

005327
000005

68%:

i
i
b
)

000426
171060

69%:

000426
000100
000100

D
) i
-

00 00 00 00 00
WWW WW
AR N —

00 00 00 00 00 00

gEC

(PC)+

BNE

66%

8MI]
HLT
MOov

5
.
sEXTERNAL CLOCKING STOPPED
#TSOM!
26 ,aTXDBUF

TSTB

171076

177776

010364
010370

SFQ 0040
SEQ 0039

16:09 PAGE 41
END OF PASS ROUTINE

100%:

TSTB

BPL
MOV
BIS
BIS
CLR

SRR A AR AR

010370
010374

105737
001003

001342

010376

012737

000144
004000

010426
171010

72%:

004000

171000

73%:

TSTB

BNE

aTXCSR

;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

aTXCSR
s CHECK DONE
69%
:BR IF NOT SET
#TSOM!26,aTXDBUF
;SEND SYNC
#RINTEN,aRXCSR
:TURN ON INTERRUPTS
#TXINTE ,@TXCSR
:DITTO
PS
;LOWER PROCESSOR STATUS
AR AR A A AR

AR AR A AR AR AR AR

MDMF LG

72%

74%:

000400

170756

1%:

BIT

BNE

BIT

BEQ
DEC
100.
BNE
HLT

BIS
JSR
MOV
SCOPE

#100.,74%

#TIMER,aTXDBUF

72%

#TIMER,@TXDBUF

73%
(PO)+
72%
5

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

AR AR

;IF YES, BR

A AR AR AR AR AR A AR

sRESET THE DEVICE
sWAIT FOR RESET TO FINISH
sRESET THE STACK
;SCOPE THIS TEST

: TRANSMITTER

838
HWN 33 SERRBER &

012777
000435
012777
012777
000426
013777

Co 0o

b) e
=
—

165237
122737
001041

0004
012777

170740
001236
170710

2%:

170714

3%:

MOV
MOV
MOV
BR
MOV
INCB

#252,TXDBUF
#26,TEMP1
#3%,aDUPTVC
7%
TEMP1,aTXDBUF
TEMP1

BNE
MOV
BR

#4$ ,aDUPTVC
7$

CMPB

001236
010532

170656

001000
010550

170662
170640

A H

001240
001240
000100

170644

5%:

001240

010602

170606

001000

170612

6%:

MOV

MOV
BR
MOV
INCB
CMPB
BNE
MOV
BR
MOV

#32,TEMP1
7$

#TEOM,aTXDBUF

#5% ,aDUPTVC
7%
TEMP2 ,@TXDBUF
TEMP2
#100, TEMP2
7$
#6%,aDUPTVC
7$
#TEOM,TXDBUF

;LOAD THE NUMBER
sCHECK THE TIMER BIT
;BR _IF SET
sCHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
sFAILED TO FINISH TEST

s INTERRUPT SERVICE ROUTINES
012777
012737
012777
000452
013777

AR AR

;MODEM FLAG SET?

SRR AR A AR A AN AR AR A AR AR AR AR AR A AR R

MOV

AARRA AR AR AR AR AR

:LOAD FIRST DATA CHAR
;LOAD DATA
sRELOAD VECTOR
sLEAVE
;MOV DATA TO BUFFER
JUPDATE DATA
:CHECK FOR DONE
;BR IF MORE TO SEND
sRELOAD VECTOR

:RETURN

sPUT OUT BCC
JRELOAD VECTOR
JRETURN
;LOAD DATA
;UPDATE DATA
sCHECK FOR FINISH
;BR IF MORE TO GO
;RELOAD VECTOR
:RETURN
:PUSH OUT DATA BCC

AR AR

AR ARk

(Z0PE
MACY11 30A(1052)
19=JAN=79
(ZDPEB.PI
19-JAN-79 16:07
1875

1876
1877
1878
1879

010610

010616
010624
910630

042777

012777
C12715
000002

000120

006360
010370

16:09 PAGE 42
END OF PASS ROUTINE

170602
170562

7%:

1880

1881

1882

1883
1884
1885
1886
1887
1888
1889
1890

BIC
MOV
MOV
RTI

SEQ 0041

SEQ 0040

#SEND ' TXINTE ,aTXCSR
;SHUT DOWN TRANSMITTER
#NO.BTRAP,aDUPTVC
JRESET VECTOR
#100%, (SP)
;SETUP RETURN
JRETURN

JRECEIVER
010632

010640
010646
010652
010654

017737

017737
105737
100401
104005

170554

170550
001242

001242
001244

10%:

010656
010662
010664
010666

005737
100001
104005
122737

000252

001244

12%:

1893
1894

010700
010706

012737
012777

000026
010716

001246

13%:

1896
1897

010716
010724

017737
005737

170472
001244

001244

14%:

001244

11%:

170466

1900

010734

123737

001246

001244

1903
1906

010746
010752

105237
122737

001246
000032

001246

1906

010762

012777

010772

170412

1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930

010772
011000
011004
011006
011010
011016
011020
011026
011034
011036
011040
011046
011052
011054
011062
011066
011070
011072
0711100
011102
011104
011110
011116

017737
005737
100001
104005
012777
000470
017737
032737
001001
104005
012777
005037
000452
017737
005737
100001
104005
123737
001401
104005
105237
122737
001030

170416
001244

001244

011020

170364

170370
010000

001326
001326

18%:

011054
001332

170334

16%:

170334
001244

001244

20%:

15%:
16%:

17%:

MOV

aRXCSR, TEMP3

BPL
HLT
CMPR
BEQ
HLT

MOV

12%
5
#252,TEMP4
13%
5
#26,TEMPS
#14%,aDUPRVC
26%
aRXDBUF , TEMP4

BPL

15%

MOV
TSTB
BM]
HLT
TST

MOV

MOV
BR
TST

HLT
CMPB
BEQ
HLT

001332
000100

001244

001332

21%:

22%:

;SAVE BUFFER
sCHECK FOR DONE
JBR IF SET
JFALSE INTERRUPT
;CHECK FOR ERROR

BR IF NO ERROR
JRECEIVER ERROR
;CHECK DATA
;RR IF A MATCH
;DATA COMPARE ERROR
;LOAD NEXT EXPECTED
JRELOAD VECTOR
. LEAVE
;GET DATA
.CHECK FOR ERROR

5
TEMPS, TEMP4
16%
5

;DATA ERROR
;CHECK DATA
;BR IF A MATCH
;DATA COMPARE ERROR

TEMPS
#32,TEMPS
26%
#17% ,aDUPRVC
26%

MOV
BR

#18% ,aDUPRV(
26%

MOV
TST
BPL
HLT

;SAVE CSR

TEMP4

INCB
CMPR
BNE
MOV
BR

;BR IF NO ERROR

JUPDATE DATA
:CHECK FOR FIRST PART FINISH
;BR IF MORE TO GO
JSET UP NEXT VECTOR
;JLEAVE

aRXDBUF , TEMP4
TEMP4
. +4
5

;GET THE BUFFER
;TEST FOR ERROR
BR IF 0K
JRECEIVER ERROR

MOV
BIT
BNE
HLT
MOV
(LR
BR

aRXDBUF ,DATA
#CRCERR,DATA
19%
5
#20% ,aDUPRVC
MIND
26%

JGET DATA
sCHECK FOR CRC ERROR
BR IF OK
.
JCRC ERROR!'!'!'!
!

TST

TEMP4

;CHECK FOR ERROR

MOV
BPL

001332

ARXDBUF , TEMP4
TEMP3
11%
5
TEMP4

aRXDBUF , TEMP4
2%

sRELOAD THE VECTOR
:LFAVE

JSET UP VECTOR
:SETUP FOR NEXT DATA
;LEAVE

JGET DATA

BR IF NO ERROR

HLT
(MPR

5
MIND, TEMP4

;RECEIVER ERROR
;CHECK DATA

HLT

;DATA ERROR

BEQ

INCB
(MPB
BNE

22%

MIND
#100 ,MIND
26%

;BR IF A MATCH
UPDATE

SOF TWARE DATA
JCHECK FOR FINISH
;BR IF MORE TO GO

1931
1932
1933
1934
1935

011120
011126
011130

1938
1939

slalelelelelele]

(ZDPE
MACY11 30A(1052)
19=JAN=79
(ZDPEB.PIN
19=JAN=79 16:07

1946
1947

8\‘\‘\‘0‘\}"\}\4\
sSroornsSsrN

b
)

p—

b
i

)
P

[
R
——

1944

1945

1943

1940
1941
1942

100001

011130

170254

170260

001244

23%:

104005

1936
1937

012777
000424
017737
005737

16:09
PAGE 43
END OF PASS ROUTINE

105777
100375

017737
032737
001001
104005

012716
000002

170240
170234
010000

010434

24%:

001326
001326

MOV
BR
MOV
TST
BPL
HLT

TS18
BPL
MOV
17

BNE

25%:
26%:

HLT
MOV
RT]

SEQ (042
SEQ 0041

#23% ,aDUPRV(

26%

, TEMP4
aRXDBUF
TEMP4

24$%
5

aRX(SR

24%

aRXDBUF

,DATA

#CRCERR,DATA

25%
5

#1%,(SP)

JRELOAD FINAL

sLEAVE

VECTOR

JGET DATA

sCHECK FOR ERROR
JBR [F OK
JRECEIVER ERROR ON FIRST OCTET
sOF SECOND BC(C
:TEST DONE
;BR IF NOT SET
JGET SECOND BCC OCTET
;CHECK FOR B(CC ERROR

JBR IF

;BCC ERROR ON SECOND PART OF MSG

JSETUP TO FINISH
sRETURN

TEST

33 PR RETRAIY

ERRTARB:

0
0
0
EM1

<377>/UNEXPECTED INTERRUPT ON VECTOR ‘A’
/
<377>/UNEXPECTED INTERRUPT ON VECTOR 'B'’
/
<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/

EM6

JHALT 1

EM2
EM6
0

JHALT 2

011576

011314
011416
000000

EM6

JHALT 3

011600
011602
011604

011353
011416
000000

EM4
EM6
0

JHALT 4

011606
011610
12
011614
011616

011373
011416
000000
011440
000000
000000

011622
011624
011626

011472
000000
000000

—d d e

d )

)

) d -

)

) -

OO0
—_
—_——

OO0
_
nd b

EOP AV, (W LW [TV Te 3

LASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

) D

OO0O0O0O0O0O
— )
- D e —d
—_ 0

EM1:
EM2:
EM3:
EM4:
EMS:
EM6:
EM7:
E?SEN

) e

000000
000000
000000
011202
011416
000000

VWV = bl
N

i
sl
ol
il
b e

011550

050130
054105
051117
047522
047522
042040
051101
051101

011247
011416

—

)

052777
377

16:09 PAGE 44
END OF PASS ROUTINE

)

) D

)

) D D oD ol d D

) e

0vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

d d

FNANANIN NN INININININIONANONINIONININONSNIONIONONINPNNONONNINNPN
NN AN PPN P~ P~

—==NOOMNN)
=

CZDPE
MACY11 30A(1052)
19-JAN-79
CZDPEB.P11
19=JAN-79 16:07

000001

EM3
0

EMS

(E)M6

JHALT 5

EM7
0
0

JHALT 6

EM8

8
CORMAX:
.END

JHALT 7

SEQ 0043
SEQ 0042

CZDPE
MACY11 30A(1052)
19=JAN=-79
CZDPEB.P1
19=JAN=-79 16:07

E 4
16:09 PAGE 46
CROSS REFERENCE TABLE == USER SYMBOLS

ADRCNT= 003315
ALJMFL
001344
BCCFBK 010024
BINWRD 003620
BITWw = 002000
BITO = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010

996+
6334
1724«
1056+
5974
460%
4594
4504
4494
L4884
W78
4464
L4454
4584
L4574

1032+«
766%
1730
1057

10414
790~
1733«
10944

579
578
569
568
567
566
565
564
577
576

1728

BITS

= 000040

L4554

574

= 000200
= 000400
= 001000

4534
4524
4514

BIT4

BIT6

BIT7
BIT8
BIT9

BRW
BRX
CALBCC

= 000020
= 000100

597
616
590
614
593
588

617

595

615

613
592

914
612

600
586
585

599
589

619
598

618
1753#

584
596
583
594
582
581
854
603

575

602

573

601

572
571
570

1506
17524

860
861
1593«

9364
9374
1594

1709«

1710

1746%

003616
020000
001441
104411
104410

1054~
5944
7034
6724
6704

1058

1074~

1092#

1063

1400
877
842

879
1183

881

883

1167

1169

13624
1702«
11844

1705+«

1710

1914«

1618
830

1798
136¢

885
1392

1472+

CORMAX 011630
CRCEN = 001000
CRCERR= 010000
CRC.CC= 102010
CRC16 = 120001
(TS
= 020000
CTSDLY 001312
CYCLE
005624
DATA
001326
DATABP 004172
DATAHD 004160
DECMOD= 100000
DELAY
001314
DEVADR 003312
DISPLA 001200
DISPRE
000174
DSCA = 100000
DSCB = 000001
DSCFLG 001346

DSINTE=
DSR
=
DTR
=
DUPACT
DUPCRO

4544

803
1740

002666
002670
010026

CARDET= 010000

CHRCNT
CLk
=
CLK.A
CNVRT =
CONVRT=

564

802
1736

000040
001000
000002
001316
001500
001317
001404

S67#

19484
5894
5834
1592
17544
S566#
554#
862
6264
1156«
1155«
588#
5554
994+
5044
4924
5644
5794
634
5744
5704
5784
5564
7134
5574
682#

1546

1949

1915
17554

1941

1546
1619
895
1672«
1159
1177
1787
1617
1029
750+
750

1620
1799
896
1673
1181
11804

1800

1797
10394
874

820

1520

1546
1532
738+
772
736+
1390+«

1546
823+
824
821+
1391~

SEQ 0044
SEQ 0043

1915

1940

1941

CZDPE
MACY11 30A(1052)
19=JAN=79
19=JAN=79 16:07
CZDPEB.PT

w
W

W
n

EM?7
EM8

0
0
0
0

EM6

)

EMS

NMD IS o

EM4

001402

001424
0C1410
001502
001406
001506
001500
001504
011202
7
0
0

DUPRVC

DUPSEC
DUPTPS
DUPTRO
DUPTVC
DUP.EN
DUP.MA
DUPO.A
EM1
EM2
EM3

N =

S?E

—

e D

ERRCNT
ERRFLG
46
ERRMSG
ERTABO
=
EXIT
EXITER
FIX.00
006234
FLAG
001334
HALTS
004176
HDXEN = 000010
HILIM
003310

HUPPSR
HUPRBF
HUPRCR
HUPTBF
HUPTCR

ICOUNT
INBUF
INIFLG
INSTER=
INSTR =
INSTR2
JUMPER
LIMITS
LOBITS

(001426
001430
001432
001434
001436

001222
005560
G01350
104404
104403
003110
(06240
003236
920324

16:09
PAGE 47
CROSS REFERENCE

6814
6904
6844

902
1376+
1394+

1369+

1390

1395+

1473»

6834

1392+

1393«

7144

7174
7124
715#
1948#
19484
19484
19484
1948#
19484
1948#
1948#

5254
6414

780

763
761

739
734

1154«
1169
4614
1189
1401

1194#
14354

1140

11864

993~

1020

6294

603#

1172
1203#

6914
6924
6934
6944
695#
5214
963

1380«
1378«
1372«
1387+
1383«
926
999

662#
6604
970

1014
767
9824

6404

14434
1009
295«

1906+

1912+

1918+

1931«

1396

1471

1689«

1692+

1698+

1857+

1863«

1856+

829

1367

908
872+
11754

1194
%
928%

1144x

157

1171«

805

809

813

817

1407

10384
1381
1379
1373«
1388«

1385

1103+

1106

1108

1349

1113
775

783

793

799

1041
1163

1545

929+
912+

1141

1143+

931«

7054

10374
926
871«
1398

7014
1165

1399
12634

948
768
876
1072

6324
818

1380
1374

1384«

1022
925+
740+
1370+

1322#

SEQ 0045
SEQ 0044

TABLE == USER SYMBOLS

1894*

10404

800

1470«

10204
1024
930«

5204
6424
992«
5224
5264

938

1045
12734

1161

1162

1170

12274

1406

1423

1082

13474
786

787

837+

1613

1655

1793

12534

765+
13304

1834

1872+

1876+

CZDPE
MACY1 30A(1052)
19=JAN=79
CZDPEB.P1T
19=JAN-79 16:07

MEPASS
MERRPC
MERRX
MERRZ
MERR3
MEXT
=
MIND

004373
004702
004602
004421
004470
010000
001332

MLOCK

004526

MJMPR

MMODE =
MMODEA=
MMODEB=
MMODEM
MNEW
MPAR
MPASSX
MPOWER
MQM
MR
MRESET=

005037

014000
010000
004741
004627
005161
004571
004355
004346
004416
000400

875

1168

8§82

12364
12434

607#
6284
806
856
6064
S96#
595#

784
12644
13044

880
1223
980

863

4614

814
810
794

5934

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

PUSH1S= 005746
PUSH2S= 024646

PWRUP
004322
QV.FLG 0013253
RABORT= 002000

CRCIN= 040000
CRC7T= 100000

1259#

1364

153N
1919+
128%#
1245#

1774
1929

1796

1585

1713

1785

1499+

1584+

1771

1452

1278#

12574
1228#
12264

12354
5994

13134
13084

12764

12554
932

1698
1524

6254
582#
664K
9984

808

1446

769
1015

1409

6874
1001
524K

1377«
1003
733«

4614

4614
4394
4374
L4 1H
6234
5904
4304

4384
4364

4404
1217

6434
5844
6134

1847

12974

776

14754
14794
1459%

000000
001416
003232
001230

12314

756
12614

878
519#

SEQ 0046
SEQ 0045

1272#

L9
1166

12474

PARSIT=
PARCSR
PARERR
PASCNT

G ¢4
16:09 PAGE 48
CROSS REFERENCE TABLE == USER SYMBOLS

10144
874

1021

1023

1025

850+

1604«

1652+

1708~

1775«

884+

923

905

1193
934

834+
730*

1190

12194

735+

1831«

CZDPE
MACY11 30A(1052)
19=JAN=79
CZDPEB.P11
19-JAN=-79 16:07
RCVEN
= 000020

RECACT= 004000

REOM

= 001000

RESREG

004174

REPEAT

RESTRT

001310

002476

RESO5 = 104407
RETURN 001214
RING = 040000

RINTEN=
RSOM
=
RTS
=
RXCSR

(00100
000400
000004
001412

RXDBUF

001414

RXDERR= 100000
RXDONE= 000200
SAVNUM 001320

SAVPC
SAVPCA

SAVRO
SAVROA
SAVR1
SAVRTIA
SAVR2

001266
001306

001250
001270
001252
001272
001254

SAVR2A 001274
SAVR3
001256
SAVR3A 001276
SAVR4
001260
SAVR4A 001300
SAVRS
001262
SAVR5A 001302
SAVSP
001264
SAVSPA 001304
SAVO5 = 104406
SCOPE = 104400
SCOPT1 = 104401
SEND = 000020
SETFLG= 104412
SETVEC
006332
SHIFTS 001330
SIMBCC
007650
SMALL
004306
SPACNT= 003617
SRD
= 002000
SRJMFL 001340
STACK = 001150
STD
= 000010
STJMFL 001336
STPSYN= 000400
SV05
003324
SWR
001202

SWREG
000176
SW00 = 000001

575#

5684

5854

5534

1182

887

668%
S18#
5654

5738
S86#
5778
6854
1811«
686#

1921

5814
5724
558#

5428
5514

5354
5444
5364
5454
S37#

5464
5384
S474
539#
5484
5404
5494
5414
5504
6664
€544
6564
602#
6744
14704
6274
1596
12114
1055«
569#
6314
4314
5764
6304
5714
10424
5054
1197
L4934
L124

16:09 PAGE 49
CROSS REFERENCE

1630

1811

1615

1795

1185#

SEC 0047
SEQ 0046

TABLE == JSER SYMBOLS

835#

1185
742+
1546

862+

864

895+

932+

935

1199«

1201

1224

1422+

1432+

1433

1798
1527«

1530

16718+

1620

1630+

1631+

1703

1798+

1800

1377

1378

1672

1702

1705

1883

1896

1908

1914

815

819

921

938

944

1134

1139

1188

1195

1631

1829

1532
899
1829«
1374+

1546
1368~
1882
1375«

1618
1372
1938
1376

822+

885+

1933

737«

1042«

1940

1205

1042+

1042+
1042+
1042+
1042+

1042+

1145
1565

1667

1850

1634
785
1606

1697
795
1679

1812
8C1
1776

1875
807

811

17184
1529
1076
1508
816
731
1508
812
1811

1586
1079«
1546
1515
851
1532
1509

1714
10934

1786

1848

1200
1546

1220

1849

757

854

914

747
1404

749

749+

CZDPE
MACY1 30A(1052)
19=JAN=79
CZDPEB.P1T
19=JAN=79 16:07

TEMP2
TEMP3
TEMPS

0017240
001242
001244

TEMPS

001246

TEMP

6174
624
615#
614
1059
5304
1780«
5314

5324

TEOM
= 001000
TIMER = 004000
TKCSR
001204
TKDBR
001206
TLAST = 010030

533#
1922
5344
6184
Cl16#
5104
5114
1427

TPDBR
TRPOK
TRP.PC
TSOM =

5134
11254
13514
6194

TPCSR

TSTNO
TST1
TST2
TST3
TST4
=

TTST
TWOSYN=
TXACT =
TXCSR

TXDBUF

001210

001212
003710
005622
000400

001226
006364
006744
010030
wwxwsan |J

002554
000000
001000
001420

001422

TXDLAT= 100000

TXDONE=
TXINTE=
TYPDAT
TYPE
=

000200
0007100
004162
104402

512#

5234
1415
1499
1584
1771

1195
938
1197
921
944

1134

1605

1789

789

796

797

835«

1444

1460

1504

1587

1772

835
1856+
840+
1723+
1590
1925
1784~
1694
1534
917
919
19484

836
1859
1342
1725
1645«
1933«
1893+
1865
1536
965
967

839«
1860*
1603~
1735«
1783+
1934
1900
1874
1549

840
1861
1673
1737
1883~

844*

1340

1602+

1685

1686+

1687

1721+

1744+

1676
1742+«
1887

1677
1743+
1890

1722+
1746
1896+

1726%
1782+
1897

1781+
1882+
1900

1868
1884
1908+

1869+

1870

1909

1921+

1903~

1904

1551

1638

1640

1659

1661

1815

187

1838

1840

951+

973«

971

1136

1635
7641+
1432
15834
17704

1813
1208
14984

1825
1412

1828
1418

1420

1498«

1583+

1770~

1948

1634+

1648

1651+

1840

1855+~

1650+

1659

948

961

%80

1139

13454

949

973
1138+

857+
4614
5984
6834
1697+

858+

860+

861+

9154

1381+
1713«

1382«
1785«

1383
1789«

1528+
1796+

1531+
1812+

1585+
1822

1661

1685+

1868+

1691+

1874+

169+

1813+«

1815

1817

1651
1178
756

1697
11814
838

1830

1875

856

863

875

876

6894

1865+

5924

6004
601#
1160
6584

1385+«

1386+

1387

1534

1536

1549

TEMP1

004000
002000
001324
010000
020000
005454
001236

1404

SYSTST=
TABORT=
TCNFLG
TCRCIN=
TCRC7T=

3974
3964
608#

SEQ 0048
SEQ 0047

TABLE == USER SYMBOLS

= 040000
= 100000

4118
4104
4084
LO74
4064
4054
404w
4034
4024
4014
4004
3994
3984

SW14
SW15

= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
=
00
= 001000
= 002000
= 004000
= 010000
= 020000

cowvioo
O
nWNIVOo
(R«
AV ]

SW01
Sw02
SW03
Sw04
SWC5
Sw0é6
Sw07
Sw08
Sw09
SWi0
SW11l
swi2
Sw13

16:09 PAGE 50
CROSS REFERENCE

878

1875+
1640

1859+

CZDPE
MACY11 30A(1052)
19=JAN-79
CZDPEB.P11
19=JAN-79 16:07

TYPMSG
USER
=
WRDCNT
WRKO.F
XBX
XCSR
XERR
XHEAD

003614
004150
003754
002510
002532
005273

XTSTN

004

XPASS
XPOLY
XSTATQ

1045
1423

004062

002524
010022
005442

011550
00373C
003076
002772
003012
003014
003116
004312
003356
003316

. ABS.

011630

TRPSR
TRPTA
TYPE

1083«
11764
1137
8974
9064
13184

1091#

1167

12064

L7omn
624#

1598#
759

002246
003414
003410
002352

673
671
8714
1153
479
663
661
2614
959+
665
477
669
667
655
657
675
495

002540
002672
003622
001510
003676
001354
002716

ERRORS DETECTED:

1161
1429

879
1
487
14
1#
6478

= 011630

.BEGIN
.CNVRT
.CONVR
.EOP
.ERRTA
LHLT
.INSTE
INSTR
.INST1
-MSG
.PARAM
.PFAIL
.RESO5
.SAV05
.SCOPE
.SCOPT1
.SETFL
START

1158
605#
1053«
1173
1135
877
883
838

1082
1424

881
1592«
843

XVEC
002516
$E
= 000005
SENDAD 002464
= 000003
$RAYO = 177777
Y
= 000013

481
6534
659

11614

1162

1165

1166

1168

15854

1771

17724

1572
1572#
6604

1577
1573

15854
15754

SEQ 0049
SEQ 0048
1170

1174

1179

1222

1758
17584
6664
4984
7154
19484

1764

172724
17624

19484

13484

13504

1406

1139

9034
1731
13384

9004
1499
8854
1484
1484
654

473
6254

7114
171

1599
825

10464
10454
1771
19484
11344
9784
o574
981
9624
9894
732
10424
10424
9124
9384
11024
7304

12174

1¢21

11224
1127
%14

000
O

DSKZ:CZDPEB,DSKZ: CZDPEB. SEQ=DSKZ: CZDPEB.MA( ,DSKZ: CZDPEB.P11

RUN-TIME: 5 7 .6
SECONDS
RUN-TIME RATIO: 29/13=2.2
(33 PAGES<)
CORE USED:
17K

16:09 PAGE 51
CROSS REFERENCE TABLE == USER SYMBOLS

6624
4914
7134
1823

654N

494
7144
1910

1759
6684

5004

13464

6704

6724
5574

6744
5584

13514

6764
5594
1366

CZDPE

MACY11

CZOPEB.P1T

30A(1052)

19=JAN=79

19=JAN=79 16:07

DOCUMENT PAGES:

16:09

PAGE 52

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0050

SEQ 0049