Digital PDFs

AH-8581C-MC

May 1978

89 pages

Original

47MB

view download

OCR Version

66MB

view download

Document:	CZDPCC0 DUP11 OFF LINE SDLC RECEIVER DEC 1978 bw
Order Number:	AH-8581C-MC
Revision:	000
Pages:	89
Original Filename:	CZDPCC0__DUP11__OFF_LINE_SDLC_RECEIVER__AH-8581C-MC__DEC_1978_gray.pdf

OCR Text

~ OFF LINE SDLC RECEIVER

CZDPCCO

AH-8581C-MC

DEC 1978

copvricnt 7578
FICHE 1 OF 1

EOEO0A0

MADE IN USA

CZDPCC

MACY11 30A(1052)
02-MAY-78
cZoPCC.P
02-MAY-78 13:47

13:54

SEQ 0001

PAGE
2

IDENTIFICATION

THE

PRODUCT CODE:

A(C-8580C-MC

PRODUCT NAME:

CZDPCCO DUP11 OFLNE SDLC RCVR

DATE:

APRIL 1978

MAINTAINER:

DIAGNOSTICS

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.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE
N;‘C)EN'S?V
ONLY
BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
figg{?fik”v OF
ITS SOFTWARE ON EQUIPMENT
THAT IS NOT SUPPLIED BY
0

1975,1978 BY DIGITAL EQUIPMENT CORPORATION

CZOPCC

02-MAY-78
02-MAY-78 13:47

MACY11 30A(1052)

cZoPCC.PN

1.0

13:54

SEQ 0002

PAGE 3

ABSTRACT

THE FUNCTION OF THE DUP11 DIAGNOST!CS IS TO

VERIFY

THAT

THE

OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS
VERF1Y THAT THERE ARE NO MALFUNCTIONS AND THAT ALL OPERATIONS
OF THE DUP11 ARE CORRECT IN ITS ENVIROMENT. PARAMETERS MAY BE
SET TO ALERT DIAGNOSTICS AS TO THE DUP11 CONFIGURATION BY
THE PARAMETER DIALOG (LOAD ADDRESS=200, START
ANSWERING
ADDRESS=1). ALL QUESTIONS SHOULD BE ANSWERED AND THEN EACH
DIAGNOSTIC WILL ‘OVERLAY'' THESE PARAMETERS WHICH ARE STORED IN
THE '‘STATUS TABLE'' (SEE SECTION 8.4).
THE ALTERNATIVE TO THE
PARAMETER DIALOG IS DEFAULT PARAMETERS (SEE SECTION 8.5).

THE DIAGNOSTICS WILL RUN UP TO EIGHT CONSECUTIVELY ADDRESSED
AND CONSECUTIVELY VECTORED DUP11°'S
IN A CHAIN MODE, I.E.,
RUNNING THE DIAGNOSTIC
COMPLETELY FOR ONE DEVICE BEFOR
STARTING THE NEXT.

CZDPC TESTS ALL RECEIVER SDLC FUNCTIONS IN
MAINTENANCE
INTERNAL MODE, THAT IS, CLOCKING OF THE DEVICE IS DONE BY THE

PROGRAM.

NUMBER

IN CHECKING DATA, THE SOF TWARE EMULATES THE HARDWARE AND

USES

?clE:l;CLOCKS

THE

ARE

DEVICE

DONE,

AND

SET

UP,

SPECIFIC

A TEST IS MADE FOR A SIGNIFICANT

THE PROCESSOR CARRY BIT AFTER A ROTATE TO PROVIDE AN INPUT TO
THE RECEIVER VIA THE MAINTENANCE INPUT DATA BIT.
THE PROGRAM

CAN
THE

THEN LOAD THE RECEIVER DATA BUFFER SERIALLY,WITHOUT USING

TRANSMITTER.

THE RECEIVER BCC IS CHECKED USING THE CRC.CCITT POLYNOMIAL
THE
SAME
WAY AS
DATA,
WITH ONE
EXCEPTION--THE BCC

CALCULATED FIRST BY THE

RECEIVER OUTPUT.

PROGRAM

AND

THEN

COMPARED

IN
IS

THE

CZDPCC MACY11 30A(1052)
02-MAY-78
CZDPCC.PNM
02-MAY-78 13:47

13:54

SEQ 0003

PAGE 4

CZDPC CHECKS ALL MODEM CONTROL AND INTERRUPT LOGIC DEPENDING
ON THE PARAMETER INFORMATION SUPPLIED THROUGH THE OVERLAY MAP.
IN ADDITION, ALL EIA GATES, WITH THE EXCEPTION OF THE DATA
GATES, ARE CHECKED.

CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS THAT ARE TO BE
RUN IN SEQUENCE TO ENSURE THAT IF AN ERROR SHOULD OCCUR IT
WILL BE DETECTED AT AN EARLY STAGE AND ESTABLISH THAT
%&G&?fils OF THE ERROR WILL BE IMMEDIATE TO DISCOVERING THE
LEM.

NOTE:

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE THREE DIAGNOSTICS ARE:

1.
2.

(CZDPB [REV] BASIC AND OFFLINE TRANSMITTER TESTS
CZDPC [REV] OFFLINE RECEIVER AND MODEM CONTROL AND

CZoPD [REV] ?EglféNE SDLC AND DECMODE DATA AND FUNCTION

NOTE:

INTERRUPT TESTS

THERE IS A FOURTH PROGRAM, TAPE CZDPE [REV] WHICH IS

QUICK-VERIFY

TAPE

THAT

REQUIRES

ANSWERING A DIALOG.

THE OPERATOR TO QUICKLY
ITS FUNCTION IS TO ENABLE
DETERMINE
IF
THERE IS A PROBLEM WITH THE DEVICE.
SEE
THE DOCUMENTATION IN THAT LISTING FOR MORE INFORMATION.

02-MAY-78
CZDPCC MACY11 30A(1052)
13:47
CZOPCC.PM
02-MAY-78
2.0

REQUIREMENTS

2.1

EQUIPMENT

SEQ 0004

PAGE 5

13:54

ANY PDP11 FAMILY CPU (WITH MINIMUM 8K MEMORY)
&S’B”}S (OR EQUILIVALENT)

2.2

STORAGE

PROGRAM WILL USE

BOOTSTRAP

LOADER

ALL

RESIDE.

MEMORY

LOCATION

EXCEPT

1500

WHERE

THRU

ABS

1560

AND

ARE

ESPECIALLY TO BE NOTED AND LEFT UNTOUCHED BY THE OPERATOR
PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER
AFTER THE DUP11
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.
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

SIZE

20K
24K
28K

117
137

12K
16K

(%)=

57
77

157

3.1.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.
'HALT' SW UP)

3.1.2

DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

3.1.3

(ALSO PLACE

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

BE LOADING INTO CPU)

13:54

CZDPCC MACY11 30A(1052) 02-MAY-78
02-MAY-78 13:47
CZoPCC.PIT
4.0

SEQ 0005

PAGE 6

STARTING PROCEEDURE

SET SWITCH REGISTER TO 000200

DEPRESS 'LOAD ADDRESS®' KEY AND RELEASE

SET SWR TO ZERO FOR DEFAULT PARAMETERS ESTABLISHED IN

THE

(SEE SECTION 8.5.3 FOR FULL EXPLANATION OF DEFAULT
TAPE
PARAMETERS)
OR LEAVE
SWR BIT 7=1
TO
USE
_EXISTING
PARAMETERS PREVIOUSLY SET UP BY THE DUP11 PARAMETER DIALOG
TO GO
SET SWR=1
OR A PREVICUSLY RUN DUP11 DIAGNOSTIC.
(IT IS NOT NECESSARY TO
THROUGH THE PARAMETER DIALOG.

INPUT NEW PARAMETERS FOR EACH TAPE.) (SECTION 7.2, 8.4 AND

8.5 MAY BE HELPFUL?

THE PROGRAM WILL TYPE
DEPRESS °'START KEY' AND RELEASE.
MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START
UP OF THE PROGRAM) AND ALSO THE FOLLOWING:
"EXAMPLE’

"MAP OF DUP11

1500
1502
1504
1506
1510
1512

STATUS'

CSR OF FIRST DUP11
VECTOR OF FIRST DUP11
STATUS AND SYNC FOR FIRST DUP11
CSR OF SECOND DUP11
VECTOR OF SECOND DUP11
STATUS AND SYNC FOR SECOND DUP11

160050
000300
140026
160060
000310
140026

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.
FOR
INFORMATION ON THE
STATUS TABLE SEE SECTION 8.4 FOR HELP.

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

THE INFORMATION IN THE MAP TO SUIT A SPECIFIC CONFIGURATION OF

DEVICES, BUT THE RESPONSIBILITY FOR VERIFYING THAT INFORMATION
RESTS WITH THE OPERATOR.

THE PROGRAM WILL TYPE
4.1

'R' AND PROCEED TO RUN THE DIAGNOSTIC

CONTROL SWITCH SETTINGS

SW
SW
SW
SW

15
14
13
12

SET:
SET:
SET:
SET:

HALT ON
LOOP ON
INHIBIT
INHIBIT

SW 10
SW 09
SW 08

SET:
SET:
SET:

ESCAPE TO NEXT TEST ON ERROR
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT

SET:
SET:

RESERVED
RESERVED

SWw 17

SW 07
SW 06
SW 05

SET:

ERROR
CURRENT TEST
ERROR PRINT OUT
TYPE OUT/BELL ON ERROR.

INHIBIT ITERATIONS.

(QUICK PASS)

USE PREVIOUS STATUS TABLE.

CZDPCC

MACY11 30A(1052)

CZoPCC.P1T

_02-MAY-78

02-MAY-78 13:47
SWw 04

SWw 03
SWw 02
SWw Q01
SW 00

SET:

SET:
SET:
SET:
SET:

13:54

SEQ 0006

PAGE 7

RESERVED

SELECT DUP11°'S DESIRED ACTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
ENTER PARAMETERS USING MANUAL DIALOG

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

SWITCH REGISTER RESTRICTIONS

SW 03

RESELECT DUP11'S DESIRED ACTIVE. PLEASE NOTE THAT A
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER
EQUAL TO DUP11'S ACTIVE.
THIS MEANS IF THE SYSTEM HAS
THREE

DUP11S BITS 00,
01,
02 WILL BE SET IN _LOC
'DUPACTV'
FROM THE SWITCH REGISTER.
USING
THIS
IF
THEREFORE,
SWITCH(SW03) ALTERS THAT LOCATION.
THREE DUP11S ARE
IN THE
SYSTEM «xxDQ NOT*x*
SET
SWITCHES GREATER THAN SW 02 IN THE UP POSITION.
THIS
WOULD BE A FATAL ERROR.
DO NOT SELECT MORE ACTIVE
DUP11S THAN HAS BEEN GIVEN INFORMATION ABQUT IN THE
PARAMETER PROGRAM.

AS EXPLAINED
IN SECTION 1.0,
DEVICES SHOULD
CONSECUTIVELY
ADDRESSED, AND CAN BE
SELECTED
DESELECTED USING THIS SWITCH.

METHOD: A.
B.
C.
D.

E.
F.

SW 01

BE
OR

LOAD ADDRESS 200
START WITH SW 03=1
PROGRAM WILL TYPE MESSAGE
SET THE BINARY NUMBER OF
DUP11S DESIRED
ACTIVE.
EXAMPLE:
1=1 DUP11;
3=2 DUP11;
7=3 DUP11;
17=4 DUP11
37=5 DUP11
ETC.
PRESS CONTINUE.

NUMBER (IF VALID) WILL BE IN

DAFA

(EXCLUDING 11/05)
SET
WITH ANY
OTHER
SWITCH
DESIRED.
PRESS CONTINUE.

LIGHTS
SETTINGS

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

SW 09

LOOP ON CURRENT DATA.
THIS SWITCH WILL ONLY WORK
IF
THE REASON IS THAT MOST
CALL °*SCOP1' IS IN THAT TEST.

_02-MAY-78

CZDPCC MACY11 30A(1052)

02-MAY-78 13:47

SEQ 0007

PAGE 8

TESTS DEAL WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR
RECEIVED ALL AT ONCE, THUS KNOWN AS BLOCK DATA--ONE
4.1.3

PATTERN CAN'T BE SINGLED OUT.

SWITCH REGISTER PRIORITIES
A)

.
.

(SEE SECTION 4.1.3.B.1)

ERROR SWITCHES
VIS WM —

CZOPCC.P1

13:54

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

SCOPE SWITCHES

SW 09 - (IF ENABLED BY
'SCOP1')
ON AN ERROR.IF
AN
IS PRINTED IN FRONT OF THE TEST NUMBER
'«'
ASTERISK
IN THAT
INCORPORATED
10), SWO9 IS
=TEST NO.
(EX.
TEST AND THEREFORE SW09 IS USUALLY THE BEST SWITCH FOR
THE SCOPE LOOP (SW14=0, SW10=0, SW09=1, Sw08=0).

IF SWO9 IS NOT ENABELED AND THERE IS A *HARD* ERROR
(CONSTANT ERROR)
SWO8 IS BEST.
(SW14=0,
Sw10=0,

SwW09=0, SW08=1).

FOR INTERMITTENT ERRORS,

REGARDLESS

ERROR

SwW09=0, Sw08=1,0)

4.2

SW14=1

WILL

NO ERROR.

LOOP

SW 14 - LOOP ON TEST.

SW 11 = INHIBIT ITERATIONS (QUICK PASS).

ONE PASS THROUGH A TEST.

TEST

SWITCH

WILL LOOP ON TEST UNTIL

IS LOWERED.

(SW14=1, sw10=0,

ALLOWS

ONLY

STARTING ADDRESS

STARTING ADDRESS IS AT 000200.

THERE ARE

ADDRESSES FOR THE DUP11 DIAGNOSTICS.

NOTE:

OTHER

STARTING

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES
IT
ACT
WILL
AND
CONTROL
XXDP
OR
ACT11
UNDER
IS
ACCORDINGLY.
AFTER *ALL* AVAILABLE DUP11'S ARE TESTED
THE PROGRAM WILL RETURN TO °'XXDP' OR ‘ACT-11'.

CZDPCC MACY11 30A(1052) 02-MAY-78
CZOPCC.PN
02-MAY-78 13:47
5.0

13:54

PAGE 9

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.
3.
&.

HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS.
CLEAR SW 15.
(LOOP ON THIS TEST)
SET SW 14:
(INHIBIT ERROR PRINT 0OUT)
SET SW 13:

THE TEST NUMBER AND PC WILL BE
TYPED OUT AND POSSIBILY AN
ERROR MESSAGE (THIS DEPENDS ON THE TFST), 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.

IN SOME TESTS, THERE IS A SUBROUTINE CALL THROUGH A REGISTER
(E.G., JSR R1,FLAG).
THE SUBROUTINE DOES THE DATA CHECKING

FOR THE TEST AND WILL REPORT AN ERROR
IF ONE OCCURS.
THIS
MEANS THAT THE FAILING TEST (OULD BE IN ONE PART OF THE
LISTING WHILE THE SUBROUTINE
THAT FOUND THE ERROR IS IN
ANOTHER PART.
TO DETERMINE THE PC OF THE FAILING TEST, CHECK
THE REGISTER USED BY THE
SUBROUTINE.
IT WILL
CONTAIN THE
RETURN ADDRESS OF THE FAILING TEST.

6.0

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).
IN MOST CASES ADDITIONAL INFORMATION WILL BE
SUPPLIED
TO THE ERROR MESSAGE WHICH
IS
TO GIVE
THE
OPERATOR AN
INDICATION OF THE ERROR.

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
CONTROL OF
CPU.
IF
THIS SHOULD HAPPEN LOOK IN LOCATION
"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.

SEQ 0008

_02-MAY-78

CZDPCC MACY11 30A(1052)

CZDPCC.P1

02-MAY-78 13:47

13:54

7.0

RESTRICTIONS

7.1

STARTING RESTRICTIONS

SEE SECTION&

SEQ 0009

PAGE 10

(PLEASE).

STATUS

TABLE

SHOULD

REGARDLESS OF HOW THE PROGRAM WAS STARTED.
IMPORTANT TO USE THE LISTING ALONG WITH THE
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS.
7.8

VERIFI ED

ALSO, I; IS
INFORMATI ON

OPERATING RESTRICTIONS

DUP11 "PARAMETER DIALOG'' MUST BE RUN ONLY ONCE PRIOR TO THE
FIRST RUNNING OF ANY DUP11 DIAGNOSTIC IF "DEFAULT PARAMETERS''
IF ONLY DUP11 DIAGNOSTICS WERE LOADED AFTER
ARE NOT USED.
DUP11 PARAMETER SETUP, AND IF CORE_MEMORY HAS NOT BEEN
CHANGED, I.E.,USE OF DIAGNOSTICS OTHER THAN DUP11 DIAGNOSTICS,
AND IF THERE WERE NO DUP11 CONFIGURATION CHANGES, THE DUP11
PARAMETER SETUP NEED NEVER BE RUN AGAIN. HOWEVER, IF ANY OF
THE ABOVE HAVE BEEN VIOLATED THE DUP11 PARAMETER SETUP MUST BE
RUN

AGAIN BEFORE RUNNING THE DIAGNOSTICS.
UNDER NORMAL
OPERATING CONDITIONS IT SHOULD NOT BE NECESSARY TO INPUT NEW
S%ESRS TO SUBSEQUENT DIAGNOSTICS, UNLESS A CHANGE
IS
U

NOTE:

Vol

AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING THE DEFAULT
EWTERS WHEN THE PROGRAM IS INITIALLY STARTED WITH

HARDWARE CONF IGURATION RESTRICTIONS FOR THE PURPOSE OF RUNNING
MULTIPLE DUP11'S IN CHAIN MODE.
1.

(SR ADDRESSES MUST BE CONSECUTIVE.

2.
. 9

VECTORS ARE CONSECUTIVE IF PARAMETER PROGRAM IS USED.
S%kLég'PERS ARE ASSUMED TO BE AS SETUP IN PARAMETER

PRIORITY LEVEL MUST BE THE SAME FOR ALL DEVICES.

CZDPCC MACY11 30A(1052)

CZoPCC.PN

SEQ Ov10

13:54 PAGE 11

_02-MAY-78

02-MAY-78 13:47
8.0

MISCELLANEOUS

8.1

EXECUTION TIME

ALL DUP11 DEVICE DIAGNOSTICS WILL GIVE AN "END
(PROVIDING

ERRORS

AND

SW12=0)

WITHIN

PASS'

& MINS.

MESSAGE

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
THEREFORE THE FIRST
NO *HARD* ERRORS AS SOON AS POSSIBLE.
PASS--EACH TIME PROGRAM IS STARTED--WILL BE A "QUICK PASS'
UNTIL ALL DUP11'S IN SYSTEM ARE TESTED. WHEN THE DIAGNOSTIC
HAS
CNMPLETED
A PASS WITH THE NORMAL
ITERATION COUNT
éé(g]g;z?gé THE FOLLOWING IS AN EXAMPLE OF THE PRINT OUT TO
x

END PASS CZDPCC CSR:160050 VEC:300 PASSES:000007 ERRORS:000000
NOTE:

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

VALUES

EXAMPLE.
8.3

KEY LOCATIONS

RETURN

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

NEXT
TSTNO
RUN

CONTAINS THE ADDRESS OF THE NEXT

PERFORMED.

CONTAINS THE NUMBER

PEFORMED.

THE

TEST

TEST
NOW

BEING

THE BIT IN 'RUN' ALWAYS POINTS ONE PAST
THE
(RUN)
EXAMPLE:
DUP11 CURRENTLY BEING TESTED.
/0000000001000000 MEANS THAT DUP11 NO.05 IS
THE DUP11 NOW RUNNING.

DUPCROO0-DUPCRO7
(1500)-(1560)
THESE LOCATIONS CONTAIN THE INFORMATION NEEDED
TO TEST UP TO 8 (DECIMAL) DUP11S SEQUENTIALY.
THEY
CONTAIN THE
(SR,
VECTOR AND
STATUS

CONCERNING THE CONFIGURATION OF EACH DUP11.

DUPACTV

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

DUP11

WILL BE

INDICATES

THAT

TESTED IN TURN.

EXAMPLE:

(DUPACTV)

/0000000000011111

MEANS

EXAMPLE:

(DUPACTV)

/0000000000010001

MEANS

THAT DUP11 NO.

00,01,02,03,04 WILL BE TESTED.

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZoPCC.PN

CZDPCC

13:54

SEQ 0011

PAGE 12

THAT DUP11 NO.

CONTAINS THE RECEIVER CSR OF THE CURRENT DUP11

RXCSR
8.4

00,04 WILL BE TESTED.

UNDER TEST.

MORE ON THAT 'STATUS TABLE' (1500-1560)
'MAP OF DUP11 STATUS'
1500
1502
1504

160050
000300
140000

THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 8
DUP11'S IN THE SYSTEM (THESE WILL FOLLOW UNDER THIS TABLE).
EXPLANATION:

1500

160050

1502

000300

1504

140026

THIS IS THE SYSTEM CONTROL

FOR

THE

THIS IS VECTOR 'A' FOR THE FIRST DUP11 IN

THE

THIS REPRESENTS SYNC AND SOFTWARE

FOR

1ST DUP11

IN THE SYSTEM.

SYSTEM.

THE FIRST DUP.

STATUS

b
b
b
b

BIT
BIT
BIT
BIT

BIT
BIT

O=NwsHrwn

THE BITS ARE AS FOLLOWS:

SET:
SET:

SET:
SET:
SET:
SET:

BIT 09 SET:
BIT 08 SET:
BIT 07-00

OPTIONAL CLEAR JUMPER IN
TURNAROUND CONNECTOR ON

SYNC CHARACTER FOR DECMODE TESTS.

THE ABOVE IS REPEATED FOR EACH DUP11

IN THE SYSTEM.

THE TABLE

IS FILLED BY DEFAULT PARAMETERS OR BY THE MANUAL PARAMETER
INPUT AS DESCRIBED PREVIOUSLY.
ALSO,
IF DESIRED BY THE
USER = THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO
SUIT THE SPECIFIC CONFIGURATION, THUS MAKING EACH DEVICE MAP
IT IS THE RESPONSIBILITY OF THE OPERATOR TO VERIFY
DIFFERENT.
THE DATA IN THE MAP.

8.5

METHOD OF DEVELOPING DEFAULT PARAMETERS

8.5.1

DEFAULT PARAMETER ASSUMPTIONS

TOO MUCH HARDWARE WOULD HAVE TO BE ANALYZED TO SIZE
THE
THE
PARAMETERS.
THE PROGRAM MUST ASSUME
THE VARIATIONS.
THE
RESULT, IF NOT TO YOUR SPECIFIC CONFIGURATION, MAY BE ALTERED

HAND

(TOGGLE

IN)

DESIRED.

THIS WAY 95% OF THE

02-MAY-78 13:47

ALL

JUMPERS

CONF IGURATION.

ARE

DONE

THE

PROGRAM

ASSUMED

W1=SECONDARY REC ENABLE
W2=SEC REC DISABLE
wW3=CLEAR OPTION
w4&=SEC TX ENABLE
W5=DSC A CONTROL
W6=A+B DS CONTROL
W7=BUS GRANT CONTROL

3)
&)

ORE :
THEREF

AND

THE

YOU.

FOLLOWING

ouT
X

PARAMETER SETUP WAS

CZOPCC.PI

SEQ 0012

_02-MAY-78 13:54 PAGE 13

CZDPCC MACY11 30A(1052)

THE H325 TURN AROUND CONNECTOR IS ASSUMED TO BE ON.

THE MANUFACTURING OPTION CSR OF 160050 AND VECTOR

ARE USED.

770

THE BR LEVEL IS ASSUMED TO BE 5.

[I)lélrzliL ADJUSTMENTS PLEASE REFER TO
L.

SECTION

8.4

FOR

GREATER

{

CZDPCC MACY11 30A(1052)
CZoPCC.PN

02-MAY-78

02-MAY-78 13:47

INTRODUCTION TO DUP11 DIAGNOSTIC

;STARTING PROCEDURE
;LOAD PROGRAM

540

:PRESS START

544

;AND THEN RESUME TESTING

541
542
543
546

550
551
552
553
554

955
556
557
558
9559

%560
561
562,
563
564
565

566

e e o

—— =

:PROGRAM WILL TYPE '‘CZDPCCO /<377>/DUP11 OFLNE SDLC RCVR '’
;PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE

545

548
549

:LOAD ADDRESS 000200

547

537
538

539

TR --—-—-

536

v
g
;*CZDPCCO /<377>/DUP11 OFLNE SDLC RCVR
01754
MASS.
MAYNARD,
CORP.,
EQUIPMENT
;*COPYRIGHT(C) 1975,1978, DIGITAL

533
g%

13:54 PAGE 14

;SWITCH REGISTER OPTIONS
S

———————————

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

SW15=100000
SW14=40000
Sw13=20000
SW12=10000
SW11=4000

000004
000002

SW02=4
SWw01=2

000001

SW10=2000
Sw09=1000
Sw08=400
Sw07=200
Sw06=100

Sw05=40
SW04=20
Sw03=10

SW00=1

;=1,HALT ON ERROR
;=1,LO0P ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT
:=1,DELETE TYPEOUT/BELL ON ERROR.
;=1,INHIBIT ITERATIONS
:=1,ESCAPE TO NEXT TEST ON ERROR
;=1,L00P WITH CURRENT DATA
:=1,L00P ON ERROR

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

SEQ 0013

CZDPCC

MACY11 30A(1052)

CZOPCC.P11

02-MAY=78 13:47

567
568

569

572
573
574
575
576
577
578
ggg

584
585

000000
000001
000002
000003
000004
000005
000006
000007

177776
001150

PS=177776
STACK=1150

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

81715100000
B1T14=40000
B81713=20000
BIT12=10000
BIT11=4000
B1710=2000

613

000002

BIT1=2

614

;PROCESSOR STATUS WORD
*START OF PROCESSOR STACK

; INSTRUCTION DEF INITIONS

599
600
€01
602
603
604

605
606
607
608
609
610
611
612

SEQ 0014

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

RO=X0
R1=X1
R2=%2
R3=%3
R&=X4
RS=XS
SP=%6
PC=%7

PUSH1SP=5746
POP1SP=5726

598

GENERAL DEF INITIONS AND EQUIVALENCIES

005746
005726

592
593
594
595
2%

PAGE 15

:LOCATION EQUIVALENCIES

587

590
591

13:54

:REGISTER DEF INITIONS

581

283

02-MAY-78

010046
012600
024646
022626

000001

PUSHRO=10046
POPR0=12600
PUSH2SP=24646
POP2SP=22626
LEQUIV EMT,HLT

:;DECREMENT PROCESSOR STACK 1 WORD
* INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK
*RESTORE RO FROM STACK
:DECREMENT STACK TWICE
:INCREMENT STACK TWICE
BASIC DEFINITION OF ERROR CALL

B1T9=1000
BIT8=400
BIT7=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BIT2=4
BITO=1

CZDPCC MACY11 30A(1052
02-MAY-78
02-MAY-78 13:47
CZDPCC.PN

13:54

PAGE 16

TRAPCATCHER FOR UNEXPECTED INTERUPTS
::ttttt"*ttttfi.'ttit.*"t'..**ttttfifiiQtt"tttt.ttttfitttt'tt.tt*tt.ttt

s TRAPCATCHER FOR ILLEGAL INTERRUPTS

:THE STANDARD ‘‘TRAP CATCHER'' IS_PLACED
JBETWEEN ADDRESS O TO ADDRESS 776.
;1T LOOKS LIKE "PC+2 HALT''.
L

;:tttfittttittitifitttt't'i't"titttttttifit**iQttQitttt*t'itttt.ttttittt

.=0

.=24

;STANDARD INTERRUPT VECTORS

.PFAIL

;POWER FAIL HANDLER

LHLT

;ERROR HANDLER

0
0
0
$ENDAD

;SAVE FOR ACT-11 OR DDP2
JRETURN ADDRESS IF UNDER ACT-11 OR DDP2
;SAVE FOR ACT=11 OR DDP2
;FOR USE WITH ACT-11 OR DDP2

;ACT=11 PROGRAM CHARACTERISTICS

340

.=40

.=52

000200

001000

001200
001202

;SERVICE AT LEVEL 7

340
. TRPSRV
340

sSERVICE AT LEVEL 7
;GENERAL HANDLER DISPATCH SERVICE
;SERVICE AT LEVEL 7

=174
DISPREG: 0
SWREG:
0

000137

001562

001000
005377

055103

.=200

050104

.=1000

MTITLE:

;SOF TWARE DISPLAY REGISTER
;SOFTWARE SWITCH REGISTER

JMP

.START

LASCIZ

<377><12>/CZDPCCO /<377>/DUP11 OFLNE SDLC RCVR /<377>

001200

.=1200

177570
177570

DISPLAY:
177570
SWR:

;GO TO START OF PROGRAM

;SWR AND LIGHTS

177570

211/45 CONSOLE LIGHTS
sINDIRECT POINTER TO SWITCH REGISTER

sINDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
001204
001206
001210
001212

177560
177562
177564
177566

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

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

SEQ 0015

02-MAY-78
MACY11 30A(1052)
CZOPCC.P1T
02-MAY-78 13:47
CZDPCC

672

673
674
675
676
677

001214
001216
001220
001222
001224

13:54

PAGE 17

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

RETURN: 0
NEXT:
O
0
Lock:

;SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA

LPCNT:
TSTNO:

sNUMBER OF ITEREATIONS COMPLETED
sNUMBER OF TEST IN PROGRESS

ICOUNT: 1

sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED

0
O

PASCNT: 0
ERRCNT: 0

;NUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS

LSTERR: 0

;PC OF LAST ERROR CALL

;PROGRAM VARIABLES

TEMP1:
TEMP2:

O
0

: TEMPORARY STORAGE
; TEMPORARY STORAGE

TEMPS:
TEMPS:

0
O

: TEMPORARY STORAGE
; TEMPORARY STORAGF

TEMP3:

SAVRO:
SAVR1:
SAVRZ2:
SAVR3:
SAVRS4:
SAVRS:

SAVSP:
SAVPC:

; TEMPORARY STORAGE

0
0
0
0
0
0

;RO
;R1
;R2
;R3
;R4
;R5

0
0

sSTACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

;RO STORAGE
;R1 STORAGE
;R2 STORAGE

SAVSPA: 0
SAVPCA: 0

;STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

SAVR3A: 0
SAVR4A: 0
SAVR5A: 0

714

STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE

SAVROA: 0
SAVR1A: 0
SAVR2A: 0

DUPACTV: .BLKB
DUPNUM: .BLKB
SAVACT: .BLKB
SAVNUM: .BLKB
RtENVéN
.BLkB
CREAM:

DUP.MAP

SEQ 0016

;R3 STORAGE
;R4 STORAGE
;RS STORAGE

1
1
1
1
1

;DUP11°'S SELECTED ACTIVE.
;OCTAL NUMBER OF DUP11°'S.
sORIGINAL ACTV.
DEVICES.
;WORKABLE NUMBER.
sPOINTER ONE PAST RUNNING DEVICE.
;TABLE POINTER.

CZDPCC

MACY11 30A(1052)

CZoPCC.PN

_02-MAY-78

02-MAY-78 13:47

E 2
13:54 PAGE 18
PROGRAM PARAMETERS, VARIABLES, AND TRAP C(ALLS.

715
716
717

:CONTROL REGISTER DEF INITIONS

:RXCSR BIT DEFINITIONS

DSCA=BIT15

;DATA SET CHANGE A

STPSYN=BITS8

sSTRIP SYNC

RING=BIT14
CTS=BIT13
CARDET=BIT1?2
RECACT=BIT11
SRD=BIT10
DSR=BIT9

RXDONE=BIT7
RINTEN=BIT6
DSINTE=BITS
RCVEN=BIT4
STD=BIT3
RTS=8IT2
DTR=BIT1
DSCB=BITO

;RING
;CLR TO SEND
;CARRIER DETECT
sREC ACTIVE
:SEC REC DATA
;DATA SET RDY

sREC DONE
sJREC INTR ENABLE
;DSC INTR ENABLE
;REC ENABLE
;SEC XMIT DATA
sREQ TO SEND
;DATA TERM RDY
;DATA SET CHANGE B

sRXDBUF BIT DEFINITIONS

RXDERR=BIT15
sREC DATA ERROR
;OVERRUN ERROR
OVRRUN=BIT14
:CRC ERROR
CRCERR=BIT12
RABORT=8BIT10
;REC ABORT
REOM=BIT9
sREC END OF MESSAGE
RSOM=BIT8
;REC START OF MESSAGE
sPARCSR BIT DEFINITIONS
;DEC MODE (DDCMP)
DECMOD=BIT15
CRCEN=BIT9
;CRC ENABLE
PRISEC=BIT12
sPRI/SEC SELECT
sTXCSR BIT DEFINITIONS

TXDLAT=BIT15
MTDATA=BIT14
CLK=BIT13
MMODEB=BIT12
MMODEA=BIT11
BITW=BIT10
TXACT=BIT9

;TX DATA LATE
;MAINT DATA OUT
; CLK
sMAINT MODE B
sMAINT MODE A
;BIT WINDOW INPUT
:TX ACTIVE

TXDONE=BIT7
TXINTE=BIT6
SEND=BIT4

;XMIT DONE
;XMIT DONE INTR ENABLE
: SEND

MRESET=BIT8

HDXEN=BIT3

USER=0

;MASTER RESET

s HDX/FDX

sTXCSR WRD DEFINITIONS

MMODE=14000

MEXT=10000
SYSTST=4000

;USER MODE

sMAINT INT MODE

sMAINT EXT MODE
;SYSTEM TEST MODE

;TXDBUF BIT DEFINITIONS
RCRC7T=BIT15
RCRCIN=BIT14
TCRC7T=BIT13
TCRCIN=BIT12

SEQ 0017

CZDPCC

MACY11 30A(1052)

CZDPCC.P11

02-MAY=78 13:47
004000
002000
001000
000400

77
772
773
;;g

780
781
782
783
784
785
;gg
788

13:54

PAGE 19

001320
001322

001323
001324
(001226
001330
001332
001334
001336

000000
000001

000001
000000
000000
000000
000000
000001
000001

PROGRAM PARAMETERS, VAR!ABLES, AND TRAP CALLS.
:MAINTENANCE TIMER
: TRANSMIT ABORT
:TRANSMIT END OF MESSAGE
:TRANSMIT START OF MESSAGE

TIMER=BIT11
TABORT=BIT10
TEOM=BIT9
TSOM=BIT8

:MISC. PROGRAM DEF INITIONS

;;g
778
779

02-MAY-78

PRIRTY:.WORD 0
TCNFLG: .BLKB 1

OPCLRJ:
DATA:
SHIFTS:
MIND:
FLAG:
STUMFL:
SRJMFL:

.BLKB 1
.WORD
.WORD
.WORD
.WORD
.BLKW 1
1
.BLKW

O
O
O
O

SEQ 0018

CZDPCC

MACY11 30A(1052)

CZDPCC.P11

02-MAY-78

02-MAY=78 13:47

13: 54

790

793
794
795
796
797
798
799
800
802
803
804
808

809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831

832
833

834

835

SEQ 0019

;PROGRAM CONTROL FLAGS
001340
001341
001342
001343

000
000
000
000

000000

‘

INIFLG: .BYTE
ERRFLG: .BYTE
LOKFLG: .BYTE
QV.FLG: .BYTE

0
0
0
0

:PROGRAM INITIALIZATION FLAG
*ERROR OCCURED FLAG
*LOCK ON CURRENT TEST FLAG
*QUICK VERIFY FLAG.
*ON FIRST PASS OF EACH DUP11 ITERATIONS
‘WILL BE SUPPRESSED

_EVEN
$v=0

:DEFINITIONS FOR TRAP SUBROUTINE CALLS
*POINTERS TO SUBROUTINES CAN BE FOUND
“IN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS
::"tfifi.tt*fittlfi.tttttt*i"i'.fifit*fltt'tfit'i*itttfi't'it't*.'ttt'."tt.i

806

807

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

789

fop

PAGE 20

001344

001346
001350
001352
001354

001356

001360
001362
001364

001366
001370
001372

104400
003160
104401
003312
104402
003336
104403
003412
104404
003516
104405
003536
104406
003736
104407
003776
104410
004030
104411
004034
104412
005006
104413

004242

" TRPTAB:

SCOPE=TRAP+0
.SCOPE
SCOP1=TRAP+1
.SCOP1
TYPE=TRAP+2
.TYPE
INSTR=TRAP+3
.INSTR
INSTER=TRAP+4
. INSTER
PARAM=TRAP+5
.PARAM
SAVOS=TRAP+6
. SAVOS
RESOS=TRAP+7
.RESO5
CONVRT=TRAP+10
.CONVRT
CNVRT=TRAP+11
.CNVRT
PKCLK=TRAP+12
.PKCLK
SETFLG=TRAP+13

.SETFLG

M L

A M M

;CALL TO SCOPE LOOP AND ITERATION HANDLER
;CALL TO LOOP ON CURRENT DATA HANDLER
;CALL TO TELETYPE OUTPUT ROUTINE
;CALL TO ASCII STRING INPUT ROUTINE
;CALL TO INPUT ERROR HANDLER
;CALL TO NUMERICAL DATA INPUT ROUTINE
:CALL TO REGISTER SAVE ROUTINE
:CALL TO REGISTER RESTORE ROUTINE
:CALL TO DATA OUTPUT ROUTINE
;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.
:CALL TO CLOCK ROUTINE
;CALL TO TELETYPE INPUT ROUTINE
——

———

;:ttttttttttttttttt.tt'ttt"ttt'*t.it'tttt'tttl!t.l.t'tl..'ttt"tttt'.

CZDPCC MACY11 30A(1052)
CZDPCC.P11

02-MAY-78

02-MAY=78 13:47

13:54

PAGE 21

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

:DUP11 VECTOR AND REGISTER INDIRECT POINTERS

g%g
838 001374
839 001376
840 001400
841 001402
842 001404
843 001406
844 001410
845 001412
846 001414
847 001416
848 001420
849 001422
850 001424
851 001426
ggg 001430

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

DUPRVC: 0
DUPRPS: 0
DUPTVC: 0
DUPTPS: 0
RXCSR: 0
RXDBUF: 0
PARCSR: 0
TXCSR: 0
TXDBUF: 0
DUPSEC: 0
HUPPSR: 0
HUPRBF: 0
HUPRCR: 0
HUPTBF: 0
HUPTCR: 0

854

:POINTER TO DUP11 RECEIVER INTERKUPT VECTOR
:POINTER TO DUP11 RECEIVER INTERRUPT SERVICE PS
*POINTER TO DUP11 TRANSMITTER INTERRUPT VECTOR
*POINTER TO DJP11 TRANSMITTER INTERRUPT SERVICE PS
:POINTER TO DUP11 RECEIVER STATUS REGISTER
:POINTER TO DUP11 RECEIVER DATA BUFFER
:POINTER TO DUP11 PARAMETER STATUS REGISTER
SPOINTER TO DUP11 TRANSMITTER STATUS REGISTER
:POINTER TO DUP11 TRANSMITTER DATA BUFFER
*POINTER TO DUP11 SECONDARY REGISTER SELECT REGISTER
*POINTER TO PARAMETER STATUS HIGH BYTE
:POINTER TO RECEIVER BUFFER HIGH BYTE
:POINTER TO RECEIVER CONTROL REG HIGH BYTE
*POINTER TO TRANSMITTER BUFFER HIGH BYTE
*POINTER TO TRANSMITTER CONTROL REG HIGH BYTE

:DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST

ggg

857

ggg

001432

000

MASK.A: .BYTE 000

32?

001433

010

CLK.A:

862

001434

000000

.BYTE 8.

L00.00: 000000

:LAST CHAR TO TEST AND PARITY MASK
:NUMBER OF CLOCKS NEEDED FOR ONE CHAR
: PARAME TERS

SEQ 0020

MACY11 30A(1052) 02-MAY-78
02-MAY-78 13:47
CZDPCC.P11
CZDPCC

;

SEQ 0021

13:54 PAGE 22
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

:DUP11 STATUS TABLE AND ADDRESS ASSIGNMENTS
001500

.=1500

DUP.MAP:

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

;CONTROL STATUS REGISTER FOR DUP11 NUMBER
;VECTOR "A"" FOR DUP11 NUMBER
:PARAMETER FOR DUPT1 NUMBER

000001

DUPCR1:
DUPTR1:
DUP1.A:

.BLKW 1
.BLKW 1
.BLKW
1

;CONTROL STATUS REGISTER FOR DUP11 NUMBER
:VECTOR 'A"' FOR DUP11 NUMBER 1
;PARAMETER FOR DUP11 NUMBER

000001

DUPCR2:

.BLKW 1

000001

DUP2.A:

1
.BLKW

000001

DUPCR3:

.BLKW 1

;CONTROL STATUS REGISTER FOR DUP11 NUMBER

000001

DUP3.A:

.BLKW
1

:PARAMETER

000001
000001
000001

;CONTROL STATUS REGISTER FOR DUPT1 NUMBER

;VECTOR ‘A"’ FOR DUP11 NUMBER

DUPTRZ2: .BLKW 1

:PARAMETER

FOR DUP11 NUMBER

;VECTOR "A"' FOR DUP11 NUMBER

DUPTR3: .BLKW 1

FOR DUP11 NUMBER

;CONTROL STATUS REGISTER IR DUP11
:VECTOR ‘A"' FOR DUP11 NUMBER 4

NUMBER

000001

DUPCR4: .BLKW 1
DUPTR4: .BLKW 1
1
DUP4.A: .BLKW

000001

DUPCRS:

.BLKW 1

000001

DUPTRS: .BLKW 1
DUPS.A: .BLKW
1

;CONTROL STATUS REGISTER FOR DUP11 NUMBER

000001

DUPCR6:

.BLKW 1

;CONTROL STATUS REGISTER FOR DUP11 NUMBER

000001

DUP6.A:

.BLKW
1

:PARAMETER

000001

000001
000001

000000

DUPTR6:

:PARAMETER

FOR DUP11 NUMBER

:VECTOR 'A"' FOR DUP11 NUMBER
:PARAMETER FOR DUP11 NUMBER

:VECTOR '"A"' FOR DUP11 NUMBER

.BLKW 1

FOR DUP11 NUMBER

DUPCR7:

.BLKW 1

;CONTROL STATUS REGISTER FOR DUP11 NUMBER

DUP7.A:

.BLKW
1

:PARAMETER

:VECTOR '"A'"' FOR DUP11 NUMBER

DUPTR7: .BLKW 1
DUP.END:

000000

FOR DUP11 NUMBER

13:54

AN S

SEQ 0022

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

oy W) TS S

CER B

04
T

NG T

BAE

KR PR IR

01
R

SR
R

—

RE S

8.9

PAGE 23

—

———

—

——
—
e

o b oo ]

——
—

_02-MAY-78

02-MAY-78 13:47

——

CZDPCC.P11

——

CZDPCC

MACY11 30A(1052)

I
I
I
I
|
I
I
1
I
{A}BiC{D}E}F}G{H}'

AER SRC A

I
*{

A- OPTIONAL CLEAR JUMPER
?-TURNAROWDCO'\NECTOR

IN=
ON=

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-78 13:47
CZDPCC.P1T

13:54

PAGE 24

SEQ 0023

PROGRAM INITIALIZATION AND START UP.
;PROGRAM INITIALIZATION

sLOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS
;TYPE TITLE MESSAGE

012737
012706
012737
113737
005037
105037
105037

012737
112737
005037
005037
012737
012737
013746
013746
012737
005777
000407
012737
012737
022626
012637
012637
105737
001401

000340
001150
005050
001311
001230
001341
001343
001500
000001

177776

.START: MOV

000024
001313

000176
000174

000004
000006
001340

003104

001560

12%:

11%:

6%:

002520

002260
001332
000001
001500

MOV

a#6,~-(SP)

:SAVE CURRENT VECTORS

MOV

#128, 344

“SETUP FOR TIMEOUT

BR
MOV
MOV
CMP
MOV
MOV
TSTB
BEQ
BR
CMP
BEQ
TYPE

001000
001340
177210

000001

ERRFLG
QV.FLG
#DUP .MAP, CREAM
#1,RUN
ERRCNT
LSTERR
#1,TSTNO
#.START ,RETURN

TST

13%:

000042

CLRB
CLRB
MOV
MovB
CLR
CLR
MOV
MOV

;SAVE NUMBER OF DEVICES IN SYSTEM
;CLEAR PASS COUNT
;CLEAR ERROR FLAG
;ZERO QUICK VERIFY FLAG
;GET MAP POINTER.
;POINT POINTER TO FIRST DEVICE.
;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
sSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE

MOV

000004

001202
001200

#340,PS
#STACK ,SP
#.PFAIL ,a#24

mMovB
CLR

001232
001234
000001
001562

000006
000004
001710
177274

MOV
MOV

177174

10%:

68%:

a#4,-(SP)
aSWR

;TESTING STARTS

’

;REFERENCE HARDWARE SWITCH REG

13%
;BR IF IT EXISTS
#SWREG, SWR
;POINT TO SOFT SWR
#DISPREG,DISPLAY
;POINT TO SOFT DISPLAY REG
(SP)+,(SP)+
;ADJUST STACK
(SP) + ,a#4
;RESTORE VECTORS
(SP) +,a#6
H
INIFLG
;HAS INITIALIZATION BEEN PERFORMED
11%
6%
#SENDAD ,a#42
:IF ACT=11 AUTO MODE,
6%
:DON'T TYPE ID
JMTITLE

;TYPE TITLE MESSAGE

coMB
TSTB
BPL

INIFLG
aSWR
108

BIT
BNE
JMP

#SW00,aSwR
.46
21%

;ENTER PARAMETERS
JYES
;NO

MOVB
MOV
CLR
CMP
BNE

#1,INIFLG
#DUP .MAP RO
+
(RO)
RO, #DUP .END
68%

;SET TO MANUAL ENTRY
;CLR MAP

MCSR
PARAM
160000

MESSAGE
:CONVERT STRING
:LOW LIMIT

JMP

coms

001340

DUPNUM, SAVNUM
PASCNT

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

INSTR

;IF NOT SET FLAG AND DO
:BIT7=12?

FLAG

;DONE WITH MAP?
' BR IF NO

;OUTPUT MESSAGE & GET INPUT STRING

CZDPCC MACY11 30A(1052) 02-MAY-78
02-MAY-78 13:47
CZDPCC.PN
002052
002054
002056
002057
002060
002062
002064
002066
002070
002072
002074
002075
002076

13:54 PAGE 25
PROGRAM INITIALIZATION AND START UP.

175500

001500

.BYTE
.BYTE

175500
?UPCRO
1
INSTR
MVEC

PARAM

300
770

.BYTE
.BYTE

?UPTRO
]

INSTR

MPAR
PARAM

002100
002102
002104
002106
002110
002112
002113
002114

001240

001320

.BYTE
.BYTE

7
TEMP2

0
1

MOV

INSTR

MTOTAL

.BYTE
.BYTE

JHIGH LIMIT
;STORE AT THIS LOCATION
sMASK
;HOW MANY TIMES + 2
:OUTPUT MESSAGE & GET INPUT STRING
;sMESSAGE
;CONYERT STRING
sLOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION
sMASK

:HOW MANY TIMES + 2

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
;CONVERT STRING
JLOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION

sMASK
:HOW MANY TIMES + 2
;SAVE PRIORITY
TEMP2 ,PRIRTY

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
:CONVERT STRING
JLOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION
;MASK

:HOW MANY TIMES + 2
;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
;SET FLAG BASED UPON INPUT STRING
;THIS FLAG

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
;SET FLAG BASED UPON INPUT STRING

;THIS FLAG
TCNFLG

001322

001323
100000

001322

103

002244
002252

113737
113737

040000
000001
001236
001236

71%

71%:

69%:
:
708

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

OPCLRJ

69%
#81T15,DUPO.A
TCNFLG

708

#81T14,DUPO.A
#1,SAVACT
TEMP1 ,DUPNUM
TEMP1, SAVNUM

SEQ 0024

MACY11 30A(1052) 02-MAY-78
CZOPCC.PN
02-MAY-78 13:47
CZDPCC

1038

M2
13: 54 PAGE 26
PROGRAM INITIALIZATION AND START UP.

65%:

001236

ROLB

001312

001312
001312

001240
001310

001240
001500
001506

64%:

67%:

001240

000010
000010
21%:

001500
001560

000002

000005
000001
001310
001311
001312
001313
001322
001323

001320

000004

66%:

006014
001500
176536

001236
001240

000002

001236

000001

176454

16%:

5%:

1%:

001332

005413

:# OF

TIMES

TEMP2
#DUPCRO,RO
#DUPCR1,R1

TEMP2
66$
(RO)+, (R1)
#10,(R1)+
(RO)+, (R1)
#10,(R1)+
(RO)+,(R1)+
67%
#DUP .MAP RO
+
(RO)
RO,#DUP.END

RO, TCNFLG
RO,OPCLRJ

. XHEAD

;CSR

;VECTOR

;PARAME TERS

;SETUP TO CLEAR MAP
:CLEAR
sCHECK FOR FINISH
;BR _IF MORE TO GO
sSETUP TO DEFAULT
:LOAD CSR
;LOAD VECTOR
;LOAD PARAMETERS AND SYNC
;LOAD PRIORITY
;SAVE CORE THIS WAY
sPRESET PROGRAM CONTROLS
;DITTO
;DITTO
;DITTO
;DITTO
;DITTO
.+ TYPE HEADER

?;EHP1.TEHP2

;SET POINTER
;SET DATA
;ALL DONE WITH DATA

gZ.IEMP1

*UPDATE POINTER

#DUP
.MAP , TEMP1

$
#SW00,aSWR
7$
FLAG

002000
001332
000042

000010

RORB
MOV
MOV
CLC
RORB
BCC
MOV
ADD

SAVACT
65%
SAVACT, TEMP2
SAVACT ,DUPACTV

208

000770
140026

BR
MOVB
MovB
CLC

TEMP1

648

#DUP .MAP ,RO
#160050, (RO)
#770,2(R0O)
#140026,4 (RO)
#5 ,PRIRTY
#1.RO
RO,DUPACTV

00150C

160050

DEC
BEQ
SEC

SEQ 0025

7%:
176420

7%
108

FLAG

aHs?
3%
#SW03,aSWR
38
MNEW

;1S PROGRAM RUNNING UNDER MONITOR
:BR IF YES
:SELEETNSPECIFIC DEVICES??
BR |

“TYPE THE MESSAGE.

MACY11 30A(1052)
02-MAY-78
CZOPCC.PI
02-MAY-78 13:47
CZDPCC

- i
b s i i i D i i i
- o i e cnd
i i e i o cnd nd i

D i i
D i b

=D D DL D D

D cd i
b i i

D D

e i b
D b i

) D i s
) D
b i

OCQOO0O000

) i

323

1094
1095
1096

002570
002572
002574
002602
002604

002610
002612
002614
002622
002626
002632
002634
002640
002644
002646
002650
002652
002656

005000
000000
127737
101404
104402

000000
000776
117737
113700
042700
000000
012700
012701
010120
005021
022021
022700
001372

N 2
13:54 PAGE 27
PROGRAM INITIALIZATION AND START UP.
CLR

176402

001312

005254
176362

001310
177400

001310

2%:

3%:

000300
000302

(%:

HALT
CMPB
BLOS
TYPE
HALT
BR
MOvB
MovB
BIC
HALT
MOV
MOV
MOV

CLR

cMP
CMP
BNE

001000

SEQ 0026
;ZERO DATA LIGHTS

“;WAIT FOR USER TO TELL WHAT DEVICES TO RUN
;1S THE NUMBER VALID?

aSWR, SAVACT

;BR IF NUMBER IS OK.
;TELL USER OF INVALID NUMBER.
;STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.
sGET NEW DEVICE PATTERN
;SHOW THE USER WHAT HE SELECTED.
sUSE ONLY LOW BYTE.

.MERR3
.2

aSWR,DUPACTV

DUPACTV,RO
#*C<377>
R0

sCONTINUE DYNAMIC SWITCHES.
;PREPARE TO CLEAR THE FLOATING
JVECTOR AREA. 300-776
;START PUTTING ‘PC+2 - HALT"

#300,R0

#302.R1
R1,(RO)+

;IN VECTOR AREA.
;POP POINTERS
;ALL DONE??
:BR IF NO.

(R1)+
(RO)+,(R1)+
#1000,R0O
A3

;TEST START AND RESTART
012737
012706
005737
001023
032777
001411
104402

012737
012737
000406
013737
013737
012737
104402

000177

000340
001150
000042

177776

000004

176274

005312
000240
000240
003306
003310
006224
005202
176230

.BEGIN: MOV

MOV
TST
BNE

BIT
BEQ

003174
003176

003174
003176
001214

1%:

2%:

TYPE
MOV
MOV
BR
MOV
MOV
MOV
TYPE
JMP

BRX,TTST+2

;LOCK OUT INTERRUPTS
;SET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL
;BR IF YES
;CHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.
;TYPE LOCK SELECTED.
;ADJUST SCOPE ROUTINE.
;SET UP TO LOCK
s CONTINUE ALONG.
;PREPARE NORMAL SCOPE ROUTINE
;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

aRE TURN

;START TESTING

#340,PS

#STACK,SP

Y%
2%
#B1T2,aSWR
1%

MLOCK

#NOP,TTST

#NOP,TTST+2

BRW,TTST

#CYCLE ,RETURN
MR

:§$32TRAT "'CYCLE'' FIND WHICH DEVICE TO TEST

02-MAY-78
CZDPCC MACY11 30A(1052)
CZDPCC.P1
02-MAY-78 13:47

13:54

END OF PASS ROUTINE

;END OF PASS

1131

sRESTART TEST

005037
105037

LEOP:

013777

176172

CLRB
INC

MOV
TYPE
TYPE

CNVRT
TYPE
CNVRT
TYPE

CNVRT

TYPE

CNVRT

;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG
PASCNT
:UPDATE PASS COUNT
PASCNT ,aDISPLAY :DISPLAY PASS COUNT
;TYPE END PASS
+MEPASS
;TYPE CSR
MCSRX
JSHOW IT
.XCSR
;TYPE VECTOR
+MVECX
JSHOW IT
XVEC
:TYPE PASSES
+JMPASSX
JSHOW IT
.XPASS
;TYPE ERRORS
+MERRX
R
JSHOW IT
.XER
SAVNUM
;ARE ALL DEVICES TESTED?
LSTERR
ERRFLG

RESTRT

#377 ,QV.FLG
DUPNUM, SAVNUM
a#62,R1

001343
001313

RESTRT

$ENDAD:

006224
006224

b i

001214

XVEC:
APASS:

002

XERR:

002

;:BR IF NO

sSET THE QUICK VERIFY FLAG.
sRESTORE THE COUNT
;CHECK FOR ACT-11 OR DDP

sIF NOT, CONTINUE TESTING
;STOP THE SHOW=-CLEAR THE WORLD

PC.(R1)

RESTRT: MOV
XCSR:

002

NNNNNNNNYN
00 Qo 0o
0o Co

CLR

JMP
1
.BYTE
RXCSR
1
.BYTE
DUPRVC
1
.BYTE

PASCNT

#CYCLE ,RETURN

CYCLE

6.2

3.2
6.2

W N=0OVONOVNSWN=0OVONOWVNIWN—=0OO

sCHECK FOR EXIT TO ACT=11

b i
b e i
i
i
i
i

TEST

sUPDATE PASS COUNT

RN
P
R
NN

N
Y
QO Y
Y
T T U N (R Y

— ——————
R
Y
R
R g g
. 8
b
YU Y
Y
Y
Yp— yp—————_—————_
P P

JEGR W

;TYPE NAME OF

002

ol
i
id s
i
b i

SEQ 0027

PAGE 28

.BYTE
ERRCNT

6.2

: SCOPE LOOP AND INTERATION HANDLER
005037
010016
032777
001407
0004
105777
100034

001234

040000
176000

176006

.SCOPE: CLR
MOV
BIT
TTST:
BEQ
BR

TSTB

BPL

LSTERR
RO, (SP)

#BI1T14,3SWR
1%

3%
aTK(CSR

;CLEAR LAST ERROR PC
sSAVE RO ON STACK

;LOOP ON TEST?
;BR IF NO (IF LOCK SWO1 = 1;THIS LOCATION

;GO TO 3%

;KYBD DONE?

;BR IF NO (LOCK:

(DITTO)

= 240)

HIT A KEY ON TTY TO GO TO NEXT TEST)

003206
003212

017700
0004

-J—.—.—l-‘—‘—‘-‘—‘_‘—l-fl:

R BRIRLRRAE 28BS

MACY11 30A(1052)
02-MAY-78
CZDPCC
CZOPCC.P1T
02-MAY-78 13:47
175774

004000

175760

1%:

001343

WNN=O

3 VNN

d e

175706

BNE
TSTB

QV.FLG

BIT

cMe
BNE
CLRB

3%:

#SW11,aSWR

2%
LPCNT

%:CNT.ICOUNT

ERRFLG
LPCNT
LOCK
#50, ICOUNT
NEXT ,RETURN
(SP) ,RO
aRETURN

BRW:
BRX:

;CLR DONE BIT
: CONT INUE
:DELETE ITERATION (QUICK PASS)?
;BR IF YES
:HAS FIRST PASS BEEN COMPLETED?
:BR IF QUICK VERIFY
:UPDATE ITERATION COUNTER
;ALL ITERATIONS DONE?
:BR IF NOT YET
;PREPARE FOR NEW TEST

;START ICOUNT AT ZERO

JRESET ITERATIONS
sGET NEXT TEST
;POP RO OFF STACK
;FAKE AN RTI

;GO DO THE TEST

;CHECK FOR FREEZE ON CURRENT DATA
032777
001405
005737
001402
013716
000002

001000

175662

001220

.SCOP1: BIT
BEQ
TST
BEQ

001220

1%:

MOV
RTI

#SW09,aSWR
1%
LOCK
1%
LOCK, (SP)

;1S SWO09=1(SET)?
;BR IF NOT SET.

;GOTO THE ADDRESS IN 10CK.

;GO BACK.

sTELETYPE OUTPUT ROUTINE

2$:
001222
001214

@TKDBR,RO
2%

—

001222

—

———

[NSLSTSHISTSTNTASTNTS
TN, 8)

001341
001224
001220
000050
001216

MOV
BR

BEQ
INC

e
e T

001224
001224

SEQ 0028

13:54 PAGE 29
END OF PASS ROUTINE

010546
017605
062766
032777
001012

105715
100002
104402
105777
100375

000002
000002
010000

.TYPE:

000002
175622

005136

1%:

2%:

175612

175606

3%:

MOV
MOV

R5,=(SP)
@2(SP) ,RS

BIT

#SW12,aSWR

ADD

006160

003434
000004

sINHIBIT ALL PRINT OUT??

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

TSTB

aTPCSR

;TTY READY?

BNE
MOV

1%
(SP)+,R5

BPL
TYPE

BPL
mMovB
RTI

2%
.MCRLF

2%
(R5)+,aTPDBR

MOV
MOV
ADD

R3,-(SP)
R4 ,=(SP)
@4 (SP), .MSG
#2,4(SP)

MOV

# INBUF ,R4

LINST1: 5YPE

.MSG:

;POP OVER ADDRESS.

3%
(RS)

BNE
TSTB

.INSTR: MOV

000004
000002

#2,2(SP)

;SAVE R5 ON THE STACK.
;GET ADDRESS OF MESSAGE.

;BR IF NUMBER IS PLUS
;TYPE A CR/LF!
:BR IF NO.
sPRINT CURRENT CHAR.

;IF NOT ZERO KEEP PRINTING!
;END OF OUTPUT. RESTORE RS
;GO HOME

;SAVE R3 ON STACK
;SAVE R4 ON STACK

CZDPCC MACY11 30A(1052) _02-MAY-78
02-MAY-78 13:47
CZDPCC.PI
1243
1244
1245
12646
1247
1248
1249

1250
1251
1252
1253

1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

1265
1266
1267
1268

1269
1270
1271
1272

1273
1274
1275
1276

1277
1278
1279
1280
1281
1282
1283

003442
003446
003452
003454
003460
003464
003470

003472
003476
003500
003506

003510
003512
003514
003516
003520
003522
003526
003530
003532
003534

012703
105777
100375
117714
142714
122427
001417

105777
100375
017777
005303

001356
012604
012603
010346
010446
104402
000741
012604
012603
000002

000007
175532

1%:

175526
000200
000015
2%:

175512
175502

SEQ 0029

13:54 PAGE 30
END OF PASS ROUTINE

175504

MOV
TSTB
BPL
MOVB
BICB
CMPB
BEQ
TSTB
BPL
MOV

DEC
BNE
MOV
MOV
.INSTE: MOV

MOV

005132

TYPE

INSTR2: MOV
:?Y

#7 ,R3
aTKCSR
18
aTkDBR, (R4)
#200, (R4)
(R4)+, 415
INSTR2
aTPCSR
2%

@TKDBR,aTPDBR

R3
1%
(SP) +,R4
(SP)+ ,R3
R3,-(SP)
R4 ,-(SP)
.MQM

.INST1

(SP)+ R4
(SP)+,R3

sRESTORE R4
sRESTORE R3

;CONVERT ASCII STRING TO OCTAL
003536
003540
003542
003546

003552
003556
003562
003566
003572
003576
003600
003604
003610
003612
003616
003620

010546
010446
016605
012537

012537
012537
112537
112537
010566
005005
012704
122714
001420
121427
002415
121427

000004
003726
003730

003732
003734
003735
000004

006160
000015
000060

.PARAM: MOV
MOV
MOV
MOV
MOV
MOV
MOvB
MovB
MOV

PARAM1:

1%:

CLR

MOV
CMPB
BEQ
CMPB
BLT

CMPB

000067

BGT

8ICB
BISB
CMPB

PARERR:

BEQ
ASL
ASL
ASL
BR

INSTER

R5,=(SP)
R4 ,-(SP)
4(SP) ,RS
(R5)+,LOLIM
(R5)+,HILIM
(R5) +,DEVADR
(R5)+,LOBITS
)
+ ,ADRCNT
(R5
R5,4(SP)
RS

# INBUF ,R4
#15, (R4)
PARERR
(R4) ,#60
PARERR

(R4) 467

PARERR

#60, (R4)
(R4)+,R5
#15, (R4)
LIMITS
RS
RS
R5
1%

PARAM1

;TEST TO SEE IF NUMBER IS WITHIN LIMITS

—

CZDPCC

MACY11 30A(1052)

CZDPCC.PI
1299
1300
1301
1302
1303

02-MAY-78

02-MAY=-78 13:47

003456
003662
003664
003670
003672

020537
101373
020537

003730

133705

003734

103770

}% 003676 001365

13:54

END OF PASS ROUTINE
LIMITS: CMP
BHI
CMP

003726

BLO

BITB

BNE

1309
1310
1311
1312
1313
1314
1315
1316

1317
1318
1319
}ggg

003700

003704
003706
003712
003716
003720
003722

003724
003726

003730
003732
003734

013704

010524
062705
105337
001372
012604
012605

003732

1%:

000002
003735

000002
000000

LoLIM:
HILIM:
DEVADR:
LOBITS:

000000
000000
000000
003735

};52

MOV

MOV
ADD
DECB
BNE
MOV
MOV
RTI
0

DEVADR ,R4

RS, (R4)+
#2,RS
ADRCNT
1%
(SP)+ ,R4
(SP)+,RS

:SAVE PC OF TEST THAT FAILED AND RO-RS

003736

016637

000004

001266

.SAVOS: MOV

4(SP) ,SAVPC

:SAVE R7 (PC)

:SAVE RO-R5

}ggg
1329
1330
1331
1332
1333
1334
}ggz

PARERR

0
0
0
ADRCNT=LOBITS+1

1322

RS,HILIM
PARERR
RS,LOLIM
PARERR
LOBITS,RS

:STORE NUMBER AT SPECIFIED ADDRESS

}%gg

1308

SEQ 0030

PAGE 31

003744
003750
003754
003760
003764
003770
003774

010537
010437
010337
010237
010137
010037
000002

001262
001260
001256
001254
001252
001250

SvV05:

MoV
MOV
MoV
MOV
MOV
MOV
RTI

RS,SAVRS
R4, SAVR4
R3,SAVR3
R2,SAVR2
R1,SAVR1
RO, SAVRO

:SAVE RS
:SAVE R4
:SAVE R3
:SAVE R2
:SAVE R1
:SAVE RO
:LEAVE.

:RESTORE RO-RS

}ggg
1339
1340

003776
004002

013700
013701

001250
001252

.RES05: MOV
MOV

SAVRO,RO
SAVR1,R1

:RESTORE RO
:RESTORE R1

1342
1343
1344
1345

004012
004016
004022
004026

013703
013704
013705
000002

001256
001260
001262

MOV
MOV
MOV
RTI

SAVR3,R3
SAVR4 ,R4
SAVRS RS

:RESTORE R3
:RESTORE R4
:RESTORE RS
:LEAVE

1341

004006

013702

001254

1350
1351

004030

1353

004036

1354

SAVR2,R?2

:RESTORE R2

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

;gzg
1352

MOV

004034

104402
010046

004040

010346

010146

005136

.CONVR: TYPE

.CNVRT: MOV

JMCRLF
RO,=-(SP)

MOV

R3,-(SP)

MOV

R1,-(SP)

MACY11 30A(1052) 02-MAY-78
02-MAY-78 13:47
CZOPCC.PN
CZDPCC

1355
1356
1357
1358
1359

1360
1361
1362
1363
1364
1365

BQ\JOVN\
238 BEELERELLE i $9955%

004064
004070
004074
004100
004104
004110

004114
004116
004122
004126
004130
004132
004134
004136
004140
004142
004144
004146
004150
004154
004156
004162
004164
004170
004172

004176
004206
004212

010446
010546
017601
062766
012137

112137
112137
013137
013704
113705
012700

010403
042703
062703
110320
000241
006004
000241
006004
000241
006004
005305
001362
012703

000012
000002
004234
004236
004237
004240
004240
004236
006054

MOV

R4 ,=(SP)

MOV

812(SP) ,R1

MOV
mMov8
MOVB
MOV
MOV
MOVB
MOV

(R1)+,WRDCNT
(R1)+,CHRCNT
(R1)+.SPACNT
a(R1)+,BINWRD
. R4
BINWRD
CHRCNT,RS
#TEMP,RO

ADD

000012
1$:
28:

38:

MOV

BIC

ADD
MOVB
CLC
ROR
CLC
ROR
CLC
ROR

006116

105337

004236

105737

004237

112723
105337

000040
004237

104402
005337

END OF PASS ROUTINE

MOV

177770
000060

RS .=(SP)

#2,12(SP)

R4 ,R3

#177770.R3

#060,R3
R3,(RO)+
R&
R4
R4

DEC
BNE
MOV
MOVB

RS
3%
#MDATA ,R3
-(R0O), (R3)+

BEQ
MOVB

6%
#040, (R3)+

6%:

BNE
CLRB

5%
(R3)

4%:

006116
004234

SEQ 0031

PAGE 32

1366
1367
1368
1369
1370
1371
1372
1373

004042
004044
004046
004052
004060

13:54

DECB
BNE
TSTB

DECB
TYPE

SPACNT

.MDATA

DEC
BNE
MOV
MOV

WRDCNT
1%
(SP)+,R5
(SP)+,R4

MOV
MOV

(SP) +,R1
(SP)+,RO

MOV

WRDCNT:

CHRCNT
43

RTI

(SP)+,R3

CHRCNT: 0
+1
SPACNT=CHRCNT
BINWRD: 0

;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
:BUFFER TO THE CHARACTERS 'N'' AND s &
THE CHARACTER IS "N'' CLEAR THE FLAG
:IF THE CHARACTER IS "'' SET THE FLAG
;IF

004242
004246
004254

017605
042737
122737

000000
000040
000116

006160
006160

.SETFLG:MOV
BIC
(MPB

a(SP) RS

#40, INBUF
#'N, INBUF

2
SIS IT 'N'

02-MAY-78
CZDPCC MACY11 30A(1052)
CZOPCC.PI
02-MAY-78 13:47
004262
004264

001002
105015
06

000131

SEQ 0032

13:54 PAGE 33
END OF PASS ROUTINE

006160

177777
000002

(RS)
2%

;000

1%:

#'Y, INBUF
3%

2%:

#2,(SP)

3%:

#-1,(RS)

RTI

INSTER

?
;1% 37 "V
;377

;RETRY

.SETFLG

sTRAP DISPATCH SERVICE

;JARGUMENT OF TRAP IS EXTRACTED
;AND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE
011646
162716

.TRPSR: MOV
SuB
MOV

000002
000000

TRPOK:

177001
001344
000000

(SP) ,=(SP)
#2,(SP)

a(SP),(SP)

BIC

(SP)
#177001, (SP)

MOV
JMP

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

ASL

ADD

#.TRPTAB, (SP)

;GET PC OF RETURN
;=PC OF TRAP
;GET TRP

;MULTIPLY TRAP ARG BY 2

;CLEAR UNWANTED BITS

;POINTER TO SUBROUTINE ADDRESS

;SUBROUTINE ADDRESS

;GO TO SUBROUTINE

;ERROR HANDLER

032777
001406

105777
100003
112777

032777
001105
021637
001404
011637
105037
104406
011605
162705

011504
006304
061504

010000

174624

.HLT:

BIT

#SW12,aSWR

174616
174600

XBX:

#207,aTPDBR

#5W13, aSWR

001234

HALTS
gip).asrenn

001234
001341

(SP) ,LSTERR
ERRFLG

000002

1%:

(SP) ,RS

#2 RS

(R5) R4
R4

#177001
R4

004612

;BR IF NO BELL

;TTY READY.

174624

000207
020000

;BELL ON ERROR?

# .ERRTAB,R4
(R4)
+ ,ERRMSG
(R4)+,DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG
DATABP
TYPDAT

:DON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT THE TTY.
;DELETE ERROR PRINT 0UT?
:BR IF NO PRINT OUT WANTED.
:WAS THIS ERROR FOUND LAST TIME?
;BR IF YES
;RECORD BEING HERE
;PREPARE HEADER
;SAVE ALL PROC REGISTERS
;GET THE PC OF ERROR
:GET ADDRESS OF TRAP CALL
JGET HLT INSTRUCTION
JMULT BY TWO
;DOUBLE IT
:MULT AGAIN
;CLEAR JUNK
JGET POINTER
;GET ERROR MESSAGE
:GET DATA HEADRER
;GET DATA TABLE
:TYPE HEADREER
:BR IF YES
:DOES DATA TABLE EXIST?
;BR IF YES.

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-7 8 13:47
CZOPCC.PI
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485

004502
004506
004512
004516
004520
004524
004530
004534
004540
004544
004550
004556
004562
004564
004566
004570
004570
004574
004576

104402
104402
005737
001402
104402
104402
104411
104402
104411
104402
112737
005737
001402
104402
000000

005136
005136
001220

005737

004600

1487
1488
1489

004602
004606
004610

005737
001402
104410
000000

001402
104402

000000

005411
005377
005000
005466
004772
005136
177777
004566

13:54

TYPMSG:

1%:

—

N R AN OB
NES BN

—d
)
e
e
e
D
e

viviuoun
o onaunununaunonuiaunnaig v

—

JXTSTN

JSHOW IT

CNVRT

LERTABO

JSHOW IT

MOVB

#-1_,ERRFLG

;NO MORE HEADER UNLESS NO DATA TABLE.

001216
001150

001214

:
;DATA HEADER?

aSwWR
EXITER

JHALT ON ERROR?
;BR IF NO HALT ON ERROR

MOV

2(SP) ,RO

;SHOW ERROR PC IN DATA LIGHTS

PUSHRO

4,-(SP)
6,-(SP)

MOV

#340,6

MOV

(SP)+.,6

MOV
BIC
HALT

#22%.,4

(SP)+.,4

33%

MOV

(SP)+.,6

CMP

BIT

BNE

BIT
BEQ
MOV
MOV

JMP
2%:
RTI
ERTABO: 1
BYTE

;BR IF NO
;TYPE
3
DATA HEADER
;DATA TABLE?

;BR IF NO.
+ SHOW
:
DATA TABLE
JRESTORE PROC REGISTERS

;IF ACT=11 AUTO MODE=--HALT!!

;SAVE RO

;SAVE OLD TRAP

;FORCE HALT IF TIME-OUT

JWHEN REFERENCING TXCSR

#SYSTST!MEXT ,aTXCSR
JHALT

BR
HALT

33%:
POPRO
EXITER: INC

1%:

DATABP

RESREG

MOV
MOV

MOV

174232

;1S THERE AN ERROR MESSAGE?
;BR IF NO.
;TYPE
2
ERROR MESSAGE

TST
BPL

MOV

002000

ERRMSG
WRKO.FM

;GIVE A CR/LF

:szDAD.al42

174516

174242

+MCRLF

;TYPE PC.

000006

001232
000400

.MERRP(

HALTS:

DATABP: 0
RESREG: RESOS

22%:

002

CNVRT

DATAHD
TYPDAT

000004

000006
000004

TST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ
CONVRT

1%:

004710

174224

JMASTEK
LMTSTN

TST
BEQ
TYPE
ERRMSG: 0

000006
000004
07

TYPE
TYPE

TYPE

174350

000002
000004
000006
004710
000340
014000

JMCRLF
LOCK

WRKO.FM:

000042

+MCRLF

TYPE
TST

TYPE

004612

003104

TYPE

BEQ

001341

SEQ 0033

PAGE 34

END OF PASS ROUTINE

(SP)+,(SP)+
(SP)+.,4

;RESTORE TRAP

JHALT
;POP STACK

;RESTORE TRAP

ERRCNT

;GET RO
:UPDATE ERROR COUNT

;BR IF YES

#SW08,aSwR

#SW10,aSwR
2%
NEXT ,RETURN
#STACK,SP

aRE TURN

6,2

;GOTO TOP OF

TEST?

:GOTO NCXT TEST?
;BR IF NO
JSET FOR NEXT TEST
JRESET SP

:GOTO SPECIFIED TEST
;RETURN

02-MAY-78
CZDPCC MACY11 30A(1052)
13:47
02-MAY-78
CZOPCC.PN
001266

XTSTN:

002

—

1R
NV S

)

1532

005300
001366
000002

020000
020000

?AVPC

.BYTE

TSTNO
PKCLK: MOV
ADD

000000
000002

052777
005300
001405
042777

SEQ 0034

13: 54 PAGE 35
END OF PASS ROUTINE

174366

1%:

174354

2%:

BIS
DEC
BEQ
BIC
DEC
BNE
RTI

;WAIT ROUTINE
:
NOP
SMALL
RTS

000240
000207

a(SP) RO

<GET THE # OF TICKS TO POKE

#CLK,@TXCSR

:POKE CLOCK UP

*YES-GO TO 2%

#2, (SP)

#CLK,@TXCSR
RO

‘POP OVER THE #

*ARE WE DONE?

:POKE CLOCK DOWN
:ARE WE DONE?
*NO-REPEAT
RE TURN

:STALL

“RETURN

;POWER FAIL ROUTINE
012737
000000
000005
012706
012737

005060

000177

174110

012702
012701

000300
000302

104402
005141

001150
005050

000024

PWRUP:

000024

120

051105

RESET
MOV
MOV
TYPE
MPOWER
JMP

#PWRUP , 24
#STACK, SP
#.PFAIL .24

:LOAD PFAIL VECTOR FOR POWER UP
“WAIT TTY TO COME UP

"REINIT STACK POINTER
“LOAD PFAIL VECTOR FOR POWER DOWN

ARETURN

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

000776

000077
000
053520
042777
000
051120
051516
051505
041517
051123
041505
051501
047522

.PFAIL: MOV
HALT

020122
042116

043517

CLRVEC: MoV
MOV
1%:
MOV
CLR
CMP
CMP
BNE
RTS

#300,R2
#302.R1
R1, (R2)+
(R2)+
(R1)+, (R1)+

MQM:
MCRLF:
MPOWER:

.ASCIZ
.ASCIZ
.ASCIZ

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

MERR2:
MERR3:

.ASCIZ
.ASCIZ

MEPASS:
MR:

MTSTPC:

MLOCK:
MCSRX:

051522

MVECX:
MPASSX:
MERRX:

.ASCIZ
LASCIZ

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

:R2 COMM VECTOR AREA ADRS
YINIT R1 WITH ADRS OF HALT
MOV .+2 TO PC
MOV HALT TO PC
“INC TO NEXT VECTOR AREA

#776.R1
1%
PC

‘END OF VECTOR AREA
:NO
*RETURN

<15><377>/END PASS CZDPCC /
<377>/R/
<377>/PROGRAM INDICATES NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC=~/

<377>/L0OCK ON SELECTED TEST/
/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.P
(2)
(2)
(2)
(2)
(2)
(2)
(2)
2)
(2)
(2)
(2)
(2)
2)
2)
(2)

1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580

005377
005411
005413
005466
005473
005512
005525
005600
005647
005702
005726

006116

006160

006222

020124

042523

020124
000
020103
040440
052040
044124
043117
051117
052040
020103
047440

050101

006042
006044
006046
006050
006052

006054

051505

000

005761
006014

13: S4&

003

PAGE 36

END OF PASS ROUTINE

MTSTN:
MASTEK:

.ASCIZ
.ASCIZ

/TEST NO: /
/»/

MSTJM:
MSRJM:

_ASCIZ
_ASCIZ

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

MNEW:
MERRPC:
MCSR:
MVEC:
MJMPR:
MTCN:
MTOTAL:
MPAR :
nggg:
.EV

<377>/MAP COF DUP11 STATUS/<377>

6.3

.BYTE

6.2

TEMP1

EVEN

006160
000000
006222
000001

ASCIZ

<377>/SET SWITCH REG TO DUP11'S DESIRED ACTIVE./
/PC: /
<377>/REC CSR ADRS /
<377>/VEC ADRS /
/
<377>/1S THE OPTIONAL CLR JMPR IN? (Y OR N)
/
<377>/1S THE H325 CONNECTOR ON? (Y OR N)
/
<377>/# OF DUP'S (IN OCTAL)
<377>/PRIORITY (4 TO 7) /

XSTATQ: 2
.BYTE

002

000000
006116

JASCIZ
.ASCIZ
.ASCIZ
JASCIZ
.ASCIZ
LASCIZ
.ASCIZ
ASCIZ

TEMP?2

TEMP:

.=.+40

MDATA:

.=.+40
:
INBUF

.=.+40

TRP.PC:

.BLKW 1

SEQ 0035

MACY11 30A(1052)
02-MAY-78
CZDPCC
13:47
8
.P1
CZDPCC
02-MAY-7

SEQ 0036

13:54 PAGE 37
END OF PASS ROUTINE

1581

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
001004
104402

000000
000776
133737

CYCLE:

001310
005205

001310

1$:

001316

2%:

ADD
CMP
BNE
MOV

#6,CREAM
, CREAM
#DUP.END
1%
#DUP.MAP,CREAM

CLC
ROLB
ADCB

MOV
ADD
MP

062737
022737

3$:

001424

001406
001416
001410
001422

001420
001412

001430
001414

001426

013737

DUPACTV
1%
.MERR2

AD(CB

001316
001316

001003
012737
012037
012037
012037
012700
013737
005237
013737
005237
013737
013737

TSTB
BNE
TYPE
HALT
BR
BITB
BNE
CLC
ROLB

001376

R
RUN,DUPACTV
2%
RUN
RUN

RUN
RUN

CREAM,RO
#6, CREAM
#DUP.END, CREAM

sARE ANY DUP11'S TO BE TESTED?
:BR IF OK.
sNO DUP11'S SELECTED!!
;STOP THE SHOW.
:DISQUALIFY CONT. SW.
;1S THIS ONE ‘‘ACTIVE''
:BR IF GOOD ONE FOUND.
:CLEAR PROC. CARRY BIT.
;UPDATE POINTER
;CATCH CARRY FROM RUN

;UPDATE ADDRESS POINTER.

;KEEP GOING; NOT ALL TESTED FOR.
;RESET ADDRESS POINTER.
;KEEP LOOKING FOR ACTIVE DUP11
;CLEAR PROC. CARRY.
;UPDATE POINTER.
sCATCH CARRY.

;GET ADDRESS POINTER.
;UPDATE.
;ALL DONE?

BNE
MOV
MOV
MOV
MOV
MOV
MOV
INC
MOV
INC
MOV
MOV
MOV
INC
MOV
MOV
INC
MOV
INC
MOV
INC
MOV
INC

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

:BR IF NO.
;RESTORE POINTER.
;LOAD SYSTEM CTRL. REG
:LOAD VECTOR
;GET PARAMETERS
:SAVE CORE THIS WAY!
:GET CONTROL REG HIGH BYTE
;GOT IT
;GET RX CONTROL REG BUFFER
;GOT IT
;GOT SECONDARY REG SELECT REG
;GOT PARAMETER STATUS REGISTER
;GET RX BUFFER HIGH BYTE
;GOT IT
;GOT PAR STATUS REG HIGH BYTE
*GET TX CONTROL REGISTER
:GOT IT
sGET TX CONTROL REG HIGH BYTE
;GOT IT
:BET TX BUFFER
;GOT IT
;GET TX BUFFER HIGH BYTE
:GOT IT

MOV

DUPRVC,DUPRPS

;RX VECTOR

#DUP.MAP,CREAM
(RO) + ,RXCSR

MACY11 30A(1052)
02-MAY-78
13:47
8
.P1
02-MAY-7
CZDPCC
CZDPCC

1637
1638
1639
1640
1641
1642

1643

1644

1645

1646

1647
1648
1649
1650
1651
1652

1653
1654
1655
1656

1657
1658
1659
1660
1661
1662

006532

060037
013737
060037
013737
060037

001376
001376
001400
001400
001402

012700
012701
012702
004737
005737
001050
032777
001444

001434
001432
001433
006742

104402
104403

001400
001402

172364

005136

7%:

000001
001000
001226
000

.BYTE
.BYTE

5%:

1664

001226

000002

1666

001226

000004

001214
005136
005202

1672
1673
1674
1675
1676

000734

104402

005132

1679

012737
000177

007356

1677
1678

1680
1681
1682

PC,FIX.00
a6l
4%
#SW01,aSWR
4%

;GO AND CALCULATE CONFIGURATION.

;PREPARE MASK.
;PREPARE CLOCKS

;IF SWO1=1,GET STARTING TEST #

+MCRLF

;OUTPUT MESSAGE & GET INPUT STRING

172252

;STORE AT THIS LOCATION
sMASK
;HOW MANY TIMES + 2

#1ST1,RO

#12737,(R0O)
6%
TSTNO,2(RO)
6%
#TSTNO,4 (RO)
6%
RO,RETURN

+MCRLF

;SAVE PC

6%:

022606

011003
000207

:LOAD STAUS 00-00

sTX PRIORITY LEVEL

SHIGH LIMIT

007356
012737

1667
1668
1669
1670
1671

#.00.00,R0

;TX VECTOR

s CONVERT STRING
;LOW LIMIT

104405

1665

JRX PRIORITY LEVEL

sMESSAGE

005377

1663

RO,DUPRPS
DUPRPS ,DUPTVC
RO,DUPTVC
DUPTVC ,DUPTPS
RO,DUPTPS

#MASK
. A ,R1
#CLK.A
R2

000042
000002

SEQ 0037

13:54 PAGE 38
END OF PASS ROUTINE

8%
+
(RO)
RO,A#TLAST+10
5%
.MQM

001214

4%:

8%:
FIX.00:

5%:

#TST1,RETURN

;PREPARE RETURN ADDRESS

aRE TURN

;GO START TESTING.

(RO) ,R3

;GET PARAMETERS.

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.PN

SEQ 0038

13:54 PAGE 39
END OF PASS ROUTINE

1683

1684
1685

012737
013700
012701
006000
005537
022737
003004
005037
005237
006001

000010
001324
000200
001330
000005

001326

#8. ,SHIFTS

STUFCK:

DATA,RO

#200,R1
RO
MIND
#5 ,MIND
2%

1%:

001330

001330
001326

MIND

2%:

103363
000207

SHIFTS

BCC
RTS

R1
1$

VONOWVISWN=O

D
D
)
D
d
d e
)

NS W=
W)
=

VuV
&R VIS

172364

002000

172350

012137
005037
042777
104412
052777

e
e o
e e e e

d e

SNNNNSNNNNNNNNNN

h D
—
—

002000
001324

:
RPOKE

BIC

1%:

B8CC
BIS
NOP

001326

D e e e

—

b e

NNNNNNNNNNY

d e e e

32S

;THIS ROUTINE POKES THE RECEIVER BIT WINDOW
;BASED ON THE INFORMATION IN DATA AND SHIFTS

172314

172302

001246
172254

000201

007152
007156
007162
007170

012137
005037
052777
104412

2%:

#BITW,aTXCSR

.2
SHIFTS

RTS

RPOKE

(R1)+,TEMP4
TEMP5
#BITW,aTXCSR
.2
#BITW,aTXCSR
2
TEMPS

;GET THE # OF FLAGS

2%
#BITW,aTXCSR

sNO-GO BACK
;SET THE LAST BIT

#6,TEMPS

off

TEMPS
1%

007142

007150

1%:

#BITW,aTXCSR
DATA

PKCLK

DEC
BNE

RFLG:

007114
007120
007126

ROR

001244
001246
002000
000002

172222

(R1)+,TEMP4
TEMPS5
#B1TW,TXCSR
.2

;CLEAR ONES COUNT
sSET FIRST BIT
;PUSH OUT THE BIT
;LOAD THE BIT
sPUSH OUT THE BIT
s INCREMENT 1°'S COUNTER

;DID WE PUSH OUT 6 ONES

sPUSH OUT THE BIT

;ARE WE DONE WITH FLAGS?
;BR IF NO

;GET THE # OF FLAGS

;CLEAR ONES COUNT

;LOAD THE BIT

sPUSH OUT THE BIT

02-MAY-78
CZDPCC MACY11 30A(1052)
CZOPCC.PN
02-MAY-78 13:47
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752

1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763

007174
007200
007206
007210
007216
007222
007226
007230

005237

001246
000006

1768

INC
CMP
BNE
BIC

001246

PKCLK

DEC

BNE
RTS

000201

SETVEC: MOV
MOV
MOVB
MOVB

012577
012577
112577
112577
000205

;INCREMENT 1'S COUNTER
:DID WE PUSH OUT 6 ONES
sNO-GO BACK
sSET THE LAST BIT
;PUSH OUT THE BIT

;ARE WE DONE WITH FLAGS?
sBR IF NO

(RS) +,aDUPRV(

HLT

NO.BTRAP:
HLT

RTI

000002

.2
TEMPS
1%

RTS
RTI

104026

TEMPS
#6,TEMPS
2%
#BITW,aTXCSR

(RS)+,aDUPTVC
(RS) +,aDUPRPS
(RS) +,aDUPTPS
RS

NO.ATRAP:

104025
000002

SEQ 0039

PAGE 40

END OF PASS ROUTINE

172174

;THIS 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.

1764
1765
1766

1767

13:54

001322

JUMPER: MOV

TSTB

BEQ

001323

007330
001323

007330

001322

007354

;BRANCH IF CONNECTOR IS MISSING

OPCLRJ

JMP

2%:

CMP
TSTB
BEQ
FK’J'\;

3%:
5%:

MOV
RTS

OJUMPER :MOV

2%
(RO) RS

;BRANCH IF JMPER IS MISSING
;MOVE THE DATA TO RS, BOTH JUMPER
;AND CONNECTOR ARE THERE

(RO)+,R5

:NO CONNECTOR OR JUMPER
;RETURN

(R1)+,R0O

:GET THE POINTER ADDRESS

(RO) ,RS

:MOVE THE INFO TO RS

JMP

MOV

(RO) ,RS

RTS

;TEST CLEAR JMPER FLAG

;POP POINTER
;TEST CLEAR JMPER FLAG
;BRANCH IF MISSING
:MOVE DATA- JUMPER IN, CONNECTOR OFF

TCNFLG
4%

CMP

:TEST THE TURN AROUND CONNECTOR FLAG

(RO)+, (RO)+
OPCLRv
3%
§§0) RS

TSTB
BEQ

MOV

6%:

:GET THE TABLE ADDRESS

TSTB

BEQ
MOV

4%:

(R1)+,R0O

TCNFLG

(RO)+, (RO)+

:CHECK FOR TURNAROUND CONNECTOR
:BR IF MISSING
;G0 BACK

;POP POINTER

:LOAD DATA TO RS
JRETUN

shnanmaRRnnRRRnntrnnnnennnt

TEST

]

annnnsnnenanaenttannennasnns

s*TEST TO PROVE THE INTERACTION OF RECEIVER ENABLE
s*WITH REC“TVER ACTIVE AND RECEIVE START

CZDPCC MACY11 30A(1052) 02-MAY-78
02-MAY-78 13:47
CZOPCC.PI

;*OF MESSAGE IN PRIMARY MCDE.

IR
EEE R
) cnld

RWN—‘S
R AR RONOWVSWN—=0OY
R R R RRR S

CONOWVSWN=O

Y ——————_—P PP
P

)
sl
o

O S

b RN

::fi'.t'.l'.*.t

tRAk

SEQ 0040

2222322322332 2223222322333 23222232220ttt il

]

AR AR AR AR
*

;

TEST 1

;:.Qtt.'tlt'tfi
:'i'ttttttttlt.tfittt.Qt""'.QQt'..lt.tfitttQ'*Q.t".Q.t.'t'.t."'t..Q

012737

001226
001216

TST1:

172012

MOV
MOV
BIS
JSR

#1,3a4TSTNO
#TST2 NEXT
#MRESET ,aTXCSR
PC,SMALL

BIS

#CRCEN,aPARCSR

MOV

171772

RXCSR,R3

JRESET THE DEVICE
;WAIT FOR RESET TO FINISH
JGET THE RECEIVER CONTROL REGISTER
:TURN OFF

CRC

BIS
BIS

#RCVEN, (R3)
#MMODE ,@TXCSR

000001
032713

R1.RFLG

sTURN ON THE RECEIVER
;ENTER M/MODE
;PUSH OUT A FLAG

BIT

#RECACT, (R3)

JRXACT SHOULD BE CLEAR WHEN READING FLAG CHAR.

001401

BEQ

;BRANCH IF BIT IS OFF
;BIT WAS SET - SHOULD BE CLEAK
;SETUP FOR CHAR

171762

104006

005037

001324
000011
007020
00000

001326

%SR

1%:

d i e

000200
000400

171676

2%:

000400
001406

104014

001404
004000

001324
000011
007020
000200

000400
001406

MOV
JSR

#9. ,SHIFTS
R1,RPOKE

BNE
MOV
MOV
HLT
BIT

DATA

E
, (R3)
#RXDON
2%
#RXDONE ,R5
(R3) ,R4

3
#RSOM, aRXDBUF

HLT

3%
H#RSOM,R5
RXDBUF ,R3
(R3) ,R&
3

MOV
BIT

RXCSR,R3
#RECACT, (R3)

HLT
CLR

14
DATA

BNE
MOV
MOV
MOV

BNE

001326

48:

000200
000400

CLR

;POKE CLOCK SETUP

;PUSH DATA INTO RECEIVER
s TEST DONE

:BR IF SET
;ERROR MSG SETUP
:SET UP FOUND

;RXDONE FAILED TO SET
;RSOM SHOULD BE SET

;BR IF SET
;SET EXPECTED
;SET UP ERROR MSG

sSET FOUND
:RSOM FAILED TO SET

3;//////////////////////////////////////////////////////////////////////////., +C

013703
032713
001001

MLT

BIT

i o

¢4

TEST OF REC ENABLE ,RXACT,AND RSOM IN PRIMARY MODE

1795

PAGE 41

13:54

171602

5%:

MOV
JSR

#9. ,SHIFTS
R1.RPOKE

BIT
BNE
MOV
MOV

#RXDONE, (R3)
5%
#RXDONE ,R5
(R3) R4

BEQ
MOV
MOV
MOV

10$
#RSOM,R5
RXDBUF ,R3
(R3) ,R4

HLT
BIT

3
#RSOM, aRXDBUF

;SHOULD BE SET FOR START OF FRAME
:BR IF SET
SFAILED TO SET
;SETUP FOR CHAR

:POKE CLOCK SETUP
sPUSH DATA INTO RECEIVER
sRXDONE SHOULD BE SET
:BR IF SET

;ERROR MSG SETUP
sSET UP FOUND

:RXDONE FAILED TO SET

sRSOM SHOULD BE CLEAR

sTHIS IS SECOND DATA CHAR OF FRAME
;SET EXPECTED
;SET UP ERROR MSG
sSET FOUND

02-MAY-78
CZDPCC MACY11 30A(1052)
CZDPCC.P11
02-MAY-78 13:47

007620

104032

013703
032713
001001

PAGE 42

13:54

TEST OF REC ENABLE ,RXACT,AND RSOM IN PRIMARY MODE

HLT

;RSOM FAILED TO CLEAR

MOV
BIT

RXCSR,R3
#RECACT, (R3)

;SHOULD BE SET FOR START OF FRAME
:BR IF SET

SEQ 0041

IIIIIITII117177777777. SIIIIIIIIT17177077777017177707171177171771171171117117177
108:

001404
004000

104014
104400

11%:

BNE
HLT
SCOPE

11%
14

sFAILED TO SET

IRRRRRRRRRRARAERARRRAAARAAN TEST 2 wuannansanadrnnawdesanhenen

;*TEST TO PROVE THE INTERACTION OF RECEIVER ENABLE
:*WITH RECEIVER ACTIVE AND RECEIVE

:*START OF MESSAGE IN SECONDARY MODE.

IRk AR AR AR R

AN
*

::Qttitfi't*tttt"'Q'thiltt'ttttfitt.fil'tttt.t'fiit"t.'tt..'t'ttQ

TEST 2

q. L

IRARRRRARRAAR

B T
e
e e T T

001226
001216

012737
012737

ST2:

171530

171510

23R 888 338SRIRTS22EE &&

171476
171472

BIS

MOV

#2 ,a4TSTNO

BIS
JSR
MOV
BIS

#MRESET ,@TXCSR
PC,SMALL
RXCSR,R3
#CRCEN,@PARCSR

MOV

BIS

#TST3 NEXT

#RCVEN, (R3)

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;GET THE RECEIVER CONTROL REGISTER
;TURN OFF CRC

:TURN ON THE RECEIVER

#PRISEC ,aPARCSR ;ENTER SECONDARY MODE
BIS
#MMODE ,@TXCSR
;ENTER M/MODE

000001
032713

#SR

R1.RFLG

;PUSH OUT A FLAG

BIT

#RECACT, (R3)

JRXACT SHOULD BE CLEAR WHEN READING FLAG CHAR.

001403
005005
011304

BEQ
CLR
MOV
HLT

3%
RS
(R3) ,R4
3

BIT
BEQ
HLT

#RXDONE , (R3)
4%
3

;BR _IF OFF
;SET EXPECTED
:SET FOUND
;BIT WAS SET AND SHOULD BE CLEARED
;WE ARE IN SECONDARY MODE
;SHOULD BE CLEAR
:BR IF CLEAR
sDONE IS SET = SHOULD NOT BE BECAUSE

104003

032713
001401

3$:

000200

104003

001324

007020
004000

000200

012705
011304

000200

001326

4$:

5%:

CLR

DATA

MOV
JSR
BIT
BNE
MOV
MOV
HLT

#9.,SHIFTS
R1,RPOKE
#RECACT, (R3)
5%
#RECACT RS
(R3) R4
3

MOV

#RXDONE ,RS

BIT
BEQ
MOV

#RXDONE , (R3)
6%
(R3) ,R4

sWE ARE IN SECONDARY MODE AND HAVE NOT PUSHED DATA
;CLEAR DATA (CHAR

:LOAD THE # OF BITS TO PUSH
;PUSH DATA TO RECEIVER
RXACT SHOULD BE SET
BR IF SET
:SET EXPECTED
:SET FOUND
:ACTIVE FAILED TO SET

;RXDONE SHOULD BE CLEAR
;BR IF CLEAR - THE CHAR WAS
s THE SECONDARY ADRS
sSET EXPECTED
;SET FOUND

CZDPCC

MACY11 30A(1052)

CZDPCC.P11

1907
1908
1909

02-MAY-78 13:47

010022
010024

1910
1911
1912
1913

010032
010034
010036
010044

1915

010056

1914

1916

1917
1918
1919
1920
1921
1922
1923
1924

010052

010062

010066
010070
010074
01007¢

000400

171354

6%:

001324
001326

7%:

004137

000252
000010
007020
00062
000200

104412

032713

001004
012705
011304
104003

1928
1929

1931
1932
1933
1934
1935
1936
1937

010142
010144
010150
010152
010154
010162
010164

001004
012705
011304
104003
032777
001401
104032

1930

1938

1939

1940
1941
1942

}&2

010136

032713

010166

013703

010202

104400

010172
010176
010200

032713
001001
104014

BIT

#RSOM, aRXDBUF

BEQ
HLT
MOVB
MOV

7%
20
#252 ,DATA
#8. ,SHIFTS
R1,RPOKE
&

JSR

#RXDONE , (R3)

000252
000010

001324
001326

148%:

HLT

:DONE WAS SET AND SHOULDN'T BE = THE FIRST
:DATA WAS SECONDARY ADRS, NOT DATA TO THE BUFFER
;CHECK START OF MSG
:BR IF CLEAR
;START OF MSG SHOULD BE CLEAR
;LOAD DATA (CHAR
;LOAD CLOCK COUNT

;PUSH OUT DATA

;POKE ANOTHER FULL CLOCK

;TEST DONE

000200
15%:

:RSG'I CLEAR

R1,RPOKE
ok

;PUSH OUT DATA
;POKE ANOTHER FULL CLOCK

MOVB
MOV

#252 ,DATA
#8. ,SHIFTS

BIT

#RXDONE , (R3)

JSR
PKCLK

000200

171224

SEQ 0042

BR IF SET
sSET EXPECTED
SET FOUND
:DONE FAILED TO SET AFTER PUSHING
OUT A CHAR IN SEC. MODE
/////////////////////////////////////// 111777777 7777777777777777/77777777777;;++C
125
BIT
#RSOM, aRXDBUF
;RSOM SHOULD BE SET
BNE
14%
BR IF SET
12%
#RXDONE ,RS
(R3) R4
3

BNE
MOV
MOV
HLT

171300

000400

PKCLK

000400

HLT

BIT

000200

007020
000002

PAGE 43

TEST OF REC ENABLE,RXACT,AND RSOM IN SECONDARY MODE

032777

001401
104020
112737
012737

032777
001001
104021
112737
012737
004137
104412

1926
1927

13:54

104003

010100
010106
010110
010112
010120
010126
010132

1925

02-MAY-78

BNE
MOV
MOV
HLT
BIT
BEQ
HLT

;LOAD DATA CHAR
;LOAD CLOCK COUNT

sTEST DONE

15%
#RXDONE ,RS
(R3) R4
3
#RSOM, aRXDBUF
108
32

BR IF SET
SET EXPECTED
SET FOUND
:D(NE FAILED TO SET
;RSOM SHOULD BE CLEAR
;BR IF CLEAR
;FAILED TO CLEAR

RXCSR,R3

:SHOULD BE SET FOR START OF FRAME

////////////////////////////////////////////////////////////////////////////////

001404

004000

108 :

MOV

11%:

SCOPE

BIT
BNE
HLT

#RECACT (R3)
11%
14

BR IF
:FAILED TO SET

1945

AR
IRRRRRRAAARRRRRARRAANNAANAn TEST T AR ARARARRRRARRAARARA

}&g

;*WITH DONE IN PRIMARY MODE

1946

;*TEST TO PROVE THE INTERACTION OF REOM

1949

AR AR

1950

: ttttttttrttt

1951

1953

1952

; TEST 3

1954

1955

1956

1957
1958
1959
1960
1961
1962

AR AR AR

RA AR AR RAANANR AR ARARANRRRRARRA AR AR R

JIRRRRNRRRRNAR

010204

010212
010220
010226
010232

010240
010246

012737

012737
052777
004737
052777

052777
005037

000003

010472
000400
005044
000020

001000
001236

001226

001216
171164
171144
171142

TST3:

R AR AR AR AR R AR R AR

Mov

MOV
BIS
JSR
BIS

BIS
CLR

AR AR KRR RRA R AR

#3,a4#TSTNO

#TST4 NEXT
#MRESET ,@TXCSR
PC,SMALL
#RCVEN,aRXCSR
#CRCEN,PARCSR
TEMP1

RARRAN AR

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;TURN ON RECEIVER
;TURN OFF CRC
;BIT COUNTER

AR AR

CZDPCC MACY11 30A(1052)
CZDPCC.P11

1963

1964
1965
1966
1967

1968
1969

1970
1971
1972
1973
1974
1975
1976

1977
1978
1979
1980
1981

1982

1983
1984
1985
1986
1987
1988

02-MAY-78

02-MAY-78 13:47

010252

010260
010264
010266
010274

010302
010306

010314
010320
010326
010330
010332
010336
010344

010350
010354
010362
010364
010372

010376

010404
010412
010414
010416
010424
010426

052777

004137
000001
012737
012737

004137
042777

104412
032777
001001
104000
105777
052777
104412

005237
022737

001365
042777
104412

017737

032777
001001
104001
032737
001001
104002

13:54

014000

171132

000125
000010

0013246
001326

007060

007020
002000
000002
000200

171050
002000
000002

001236
000006

171046

1991

010434

000001

010436

017737

1996

010456

032737

1993
1994
1995

1997
1998

1999

010444
010452
010454

010464
010466

2288? 010470

032777
001401
104030

001240

000200

001240

001001
104002

5%:
648:

#MMODE ,@TXCSR

JENTER MAINT MODE

JSR
BIC

R1,RPOKE
#BITW,aTXCSR

;PUSH OUT THE DATA
:CLEAR THE DATA WINDOW

JSR
R1,RFLG
:PUSH OUT A FLAG
1
;ONE FLAG
#125,DATA
;CLEAR OUT (CHAR
MOV
#8. ,SHIFTS
;LOAD THE # OF CLOCKS

PKCLK
BIT
5%
HLT
TSTB
BIS
PKCLK

ol
#RXDONE ,aRXCSR
;BR IF SET

aRXDBUF
#BITW,aTXCSR
ol

BNE
BIC
PKCLK,

MOV

1%:

BIT
BNE
HLT
BIT
BNE
HLT

TEMPT
#6,TEMPT

648
#BITW,aTXCSR
&
aRXCSR, TEMP2
#REOM, aRXDBUF
1%
1
#RXDONE ,TEMP2
108
2

;PUSH OUT THE BIT
;CHECK FOR DONE
;DONE BIT ERROR
JREAD THE BUFFER

JPUT A 1 IN THE WINDOW
sPUSH IT OUT

JINC THE # TO DO
;CHECK FOR FINISH

;BR IF MORE TO GO
;CLEAR THE WINDOW
;PUSH OUT 2 BINTS

;GET THE CSR

TEST FOR END OF MSG
BR IF SET
BIT FAILED TO SET
,;TEST DONE
BR IF SET
;DONE FAILED TO SET

//////////////////////////////////////////////////////////////////////////////,. +C
108 :
JSR
R1,RFLG
;OUTPUT A FLAG CHAR
001240

000200

001240

MOV

170734

11%:

aRXCSR, TEMP2

;GET CSR

#RXDONE , TEMP2

;RXDONE SHOULD BE SET

BIT
BEQ
HLT

#REOM, aRXDBUF
11%
30

BNE
HLT

4
2

BIT

;REOM SHOULD BE CLEAR
:BR IF CLEAR
JREOM FAILED TO CLEAR
;BR IF SET
JFAILED TO SET

///////////////////////////////////////////////////////////////////////////////////

104400

4$:

2002

2003
2004
2005

SCOPE

;SCOPE THIS TEST

JRRRRRAAARARARN AR

A RAARARA L TEST 4 Axaataata
kAR kAR AR RRRRAAN

R RRARRRRRR R

;*TEST TO PROVE THE INTERACTION OF REOM
;*WITH DONE IN PRIMARY MODE
:*USING A COMMON ZERO BIT IN FLAGS.

2007

2008
2009
2010

JINKRRRARRAARR
:
*
; TEST 4

2012

JIRRRRRRRRNARR

2014

010472

012737

000004

001226

2016
2017
2018

010506
010514
010520

052777
004737
052777

000400
005044
000020

170676

2015 010500 012737 011002 001216

170656

TST4:

AR AR AR

RARRRRAA AR RRRRARRRRR AR

2011

2013

SEQ 0043

BIS

INC
CMP

170774

170742

001000

BNE

171020

1989
1990 010430 004137 007060

1992

MOV

001236

002000
000004
171002
001000

TEST OF REOM AND DONE IN PRIMARY MODE

171076
171056

PAGE 44

AR R AR

MOV

BIS
JSR
BIS

AR AR R AR AR

#4 ,a#TSTNO

#TSTS NEXT

#MRESET ,@TXCSR
PC,SMALL
#RCVEN,@RXCSR

RR AR RR AR AR RN RN R RR AR

;RESET THE DEVICE
:WAIT FOR RESET TO FINISH
;TURN
ON RECEIVER

R R AR RO AR

02-MAY-78
MACY11 30A(1052)
CZDPCC.PN
02-MAY-78 13:47
CZDPCC

010526
010534
010540

052777

001000

13: 54 PAGE 45
SPECIAL FLAG SEQUENCE TEST

170654
170644

MOV

170602
170562

#CRCEN,aPARCSR
TEMP1
#MMODE ,aTXCSR
R1,RFLG

;TURN OFF CRC
;BIT COUNTER
JENTER MAINT MODE
;PUSH OUT A FLAG

JSR

R1,SFLG

;PUSH OUT SPECIAL FLAGS

170554

006054
006054

5%:

002000
000002
001236
000006

170536

64%:

000125

010740
010744
010746
010754
010762
010764
010766
010774

001236
170510

002000
000004
170472
001000

001240
170464

000200

001240

104002

011000

104400

BIT
5%

;THE # TO DO
;CLEAR OUT CHAR
CLOCKS
;LOAD THE # OF
#8.,SHIFTS
;PUSH OUT THE DATA
R1,RPOKE
;CLEAR THE DATA WINDOW
#BITW,aTXCSR
:PUSH OUT THE BIT
.2
#RXDONE ,aRXCSR ;CHECK FOR DONE
;BR IF SET

MOVB
CMPB
BEQ
HLT

aRXDBUF , TEMP
#125,TEMP
64%
10

PKCLK

MOV
JSR
BIC

HLT

BIS

#BITW,aTXCSR

;DONE BIT ERROR

;GET DATA
JCHECK IT
;BR IF A MATCH
;DATA COMPARE ERROR

;PUT A1 IN THE WINDOW
;PUSH IT OUT

INC
CMP
BNE
BIC
PKCLK,

TEMP1
#6,TEMP
649
#BITW,aTXCSR
&

BIT
BNE
HLT
BIT
BNE
HLT

#REOM, aRXDBUF
1%
1
#RXDONE , TEMP2
108
2

;TEST FOR END OF MSG
BR IF SET
:BIT FAILED TO SET
TEST DONE
BR IF SET

#SR

R1,RFLG

;OUTPUT A FLAG CHAR

MOV
BIT

aRXCSR, TEMP2
#REOM, aRXDBUF

;GET CSR
;REOM SHOULD BE CLEAR

MOV

1%:

;ONE FLAG

aRXCSR, TEMP2

JINC THE # TO DO
;CHECK FOR FINISH
:BR IF MORE TO GO
;CLEAR THE WINDOW
PUSH OUT 2 BINTS

:GET THE CSR

DONE FAILED TO SET

//////////////////////////////////////////////////////////////////////////////.. +C
1OS

007060

010776

4
#125 ,DATA

PKCLK

BNE

SEQ 0044

BIS
CLR
BIS
JSR
1

001324
001326

170432
001000

001240
170424

000200

001240

11%:

11%
30
#RXDONE , TEMP2
A3
2

BEQ
HLT
BIT
BNE
HLT

;BR IF CLEAR
;REOM FAILED TO CLEAR
;RXDONE SHOULD BE SET
BR IF SET
;FAILED TO SET

////////////////////////////////////////////////////////////////////////////‘1117177

i$:

SCOPE

:SCOPE THIS TEST

IRRRRAARRARRANRRRRRRARARARn TEST 5 wunnnnansnnnennnannnnnnnnnnn

:*TEST TO PROVE THE INTERACTION OF REOM
:«WITH DONE IN SECONDARY MODE. TEST FOR REOM

:*AT THE WRONG ADDRESS, THEN AT THE CORRECT
; *SECONDARY ADDRESS.

;:tt't'i.ttttt!t'tttttififittfit'tttttt'ttlt..tfi'i'ttt.i".t"'t.tt
;:tt'ttttittt o

: TEST §

MACY11 30A(1052)
02-MAY-78
02-MAY-78 13:47
CZOPCC.P11

CZDPCC

2075
2076
2077
2078

13:54
PAGE 46
TEST OF REOM AND DONE

w
Ak
AR
AR

2222222222222 2dddd B8 1223223223333 3333 3333333332323 2322222222R 2R R0 RRdl

011002
011010
011016

012737
012737

001226
001216

TSTS

170366

SfiBUMflJ\Sflflhflhflv-flsz
sHOn
NSO

d ed b

170332
170326

BIS

001324
001326

MOV

PONOND) =
e ed d e e e ed ed d
==0NN
RNNONVONO

170272

000200

NN
NN=
o

—

—
—

)
e

d d
d e

d
d

D e

D
D b D

D
D D e

)

b
b

[eleleolololelelalelolelelololelele]

170346
170344

007060

170244
002000
000002

001236
000006
002000
000004
001000

001324
000010
007020
000252
0000

170252

170242

BEQ

5%:
64%:

170214

2%:
001326

— e

170124

Ssornvonons~o

WNIN)
= =
v

b
b
b
b
b
b
b e

b culd and asd
i
b

b asd

slelelelelelalelels]

001240

sPUSH OUT A FLAG
;ONE FLAG

#1,DATA
:LOAD A CHAR
CLOCKS
#8. ,SHIFTS
MOV
;LOAD THE # OF
R1,RPOKE
JSR
sPUSH OUT THE DATA
#BITW,TXCSR
BIC
;CLEAR THE DATA WINDOW

HLT
TSTB
BIS

#RXDONE ,aRXCSR

;BR IF CLEAR

sPUSH OUT THE BIT
;CHECK FOR DONE
;DONE BIT ERROR

INC
CMP
BNE
BIC

TEMP1
#6,TEMP

;READ THE BUFFER
;PUT A 1 IN THE WINDOW
sPUSH IT OUT
sINC THE # TO DO
;CHECK FOR FINISH

BIT
BEQ
HLT

#REOM, aRXDBUF

;TEST REC END OF MSG

:BR IF NOT SET

JSR

R1,RFLG

:OUTPUT A FLAG

CLR

DATA
#8. SHIFTS
R1.RPOKE

;CLEAR DATA
CLOCKS
:LOAD THE # OF
ADRS
SEC.
T
;PUSHOU
;LOAD DATA
:LOAD # OF CLOCKS
;PUSHOUT DATA
;CLEAR OUT DATA WINDOW
;PUSH OUT A BIT
;CHECK DONE
;BR IF SET
;DONE FAILED TO SET
:CLEAR TO KEEP TRACK OF THE BITS
JREAD THE BUFFER
;SET THE WINDOW BIT

PKCLK

PKCLK,

aRXDBUF

#gxrw.arxcsn

648
:BITU.GTXCSR

#252.DATA

#8. . SHIFTS
R1.RPOKE
#81TW,aTXCSR

#RXDONE ,aRXCSR

6%:

BIT
BNE
HLT
CLR

65%:

BIS

5BITU.3TXCSR

INC

TEMP1

170104

104412
017737

R1,RFLG

MOV
JSR
MOV
MCY
JSR
BIC

001324
001326

170042

#SR

JRESET THE DEVICE
BIS
sWAIT FOR RESET TO FINISH
PC,SMALL
JSR
#RCVEN,aRXCSR
BIS
;sTURN ON RECEIVER
#CRCEN,aPARCSR
BIS
:TURN OFF CRC
TEMP1
CLR
;BIT COUNTER
#PRISEC,aPARCSR ;ENTER SECONDARY MODE
#MMODE ,@TXCSR
BIS
sENTER MAINT MODE

PKCLK,

170176

001236

#5,a#TSTNO
#TST6 NEXT
#MRESET ,@TXCSR

PKCLK

001236

170070

MOV
MOV

BIT
5%

TSTB

PKCLK,

CMP
BNE
BIC

PKCLK,
MOV

SEQ 0045

IN SECONDARY MODE

6%
2
TEMP1

ARXDBUF

#6, TEMP1

65%

zexru.arxcsn
ARXCSR, TEMP2

:BR IF MORE TO GO
;CLEAR THE WINDOW
:PUSH OUT 2 BINTS

;BIT IS SET AND SHOULDN'T
;BE = THIS IS SECONDARY MODE

JPUSH IT OUT

;CHECK TO SEE IF
;6 ARE DONE YET
BR IF NO
;CLEAR THE WINDOW
PUSH 2 BITS
;READ THE CSR

)

02-MAY-78
(ZDPCC MACY11 30A(1052)
CZOPCC.PN
02-MAY-78 13:47
213

2132
2133
2134

2135
2136
2137

2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154

011362
011370
011372
011374
011402
011404

032777

001000

17001¢€

000200

001240

SEQ 0046

3%:

BIT
BNE
HLT

#REOM,aRXDBUF
3%
1

#RXDONE ,TEMP2
108
2

BIT
BNE
HLT

;TEST END OF MSG
:BR IF SET
;EOM FAILED TO SET IN SEC. MODE

;TEST DONE

:BR IF SET
;BIT FAILED TO SET

//////////////////////////////////////////////////////////////////////////////////////

108:

007060

011406
011412
011414
011422
011430
011432
011434
011442
011444

13: 54 PAGE 47
TEST OF REOM AND DONE IN SECONDARY MODE

001000

167764

001240
167756

000200

001240

#SR

R1,.RFLG

sPUTPUT A FLAG

MOV

dRXCSR, TEMP2

;GET CSR

;FAILED TO CLEAR

#REOM,aRXDBUF
11%

BIT
BEQ

11%:

HLT

BIT
BEQ
HLT

#RXDONE ,TEMP2
48
31

;REOM SHOULD BE CLEAR
:BR IF CLEAR
;DONE SHOULD BE CLEAR
:BR IF CLEAR
;BIT FAILED TO CLEAR

///////////////////////////////////////////////////////////////////////////////////////
4%:

011446

SCOPE

;SCOPE THIS TEST

IREARRRRRNRRRRRRRARRRRRAANN

TEST

Aumaaaaanananntnanennennanns

;*TEST TO PROVE THE INTERACTION OF ABORT

;*WITH A DONE AND RX ERROR IN PRIMARY MODE
IR

R AR AR AR R AR AR AR AR RR R AR AR R R R R AR

AR AR AR RN AR AR

RN RARR NS

DIRKKRRRRRRARR
®

;

TEST 6
*

:' :'**'.fi."."
'"fiflt"i.t'*..‘fi.'.i.'.""'*tfit.fifi.fi".".fifi.fifi.."...'fi.'.i""'.'.

011450
011456
011464
011472
011476
011504
011512
011520
011524
011526

011532
011540
011544
011552
011556
011562
011570
011576
011602
011610

012737
012737
052777
004737

052777
052777
052777
004137
000001
005037
012737

001226
001216

TST6

167720

CLR

001324
001326

001236

1
DATA
MOV

;CLEAR DATA
#8. ,SHIFTS

1%:

PC,SMALL
#CRCEN,aPARCSR
#RCVEN,aRXCSR
#MMODE ,a@TXCSR
R1.RFLG

;RESET THE DEVICE
:WAIT FOR RESET TO FINISH
;TURN OFF CRC
;TURN ON RECEIVER
;ENTER MAINT MODE
:PUSH OUT A FLAG
sONE FLAG

R1,RPOKE
#BITW,aTXCSR

;LOAD CLOCKS
;PUSH OUT DATA CHAR
;SET THE WINDOW

TSTB

aRXDBUF

sREAD A CHAR

BIT

#RECACT,TEMPT

PKCLK,

011614

011620
011622
011624
011632

#TST7.NEXT
#MRESET ,@TXCSR

JSR
BIS

167640

#6,a4#TSTNO

MOV
BIS

JSR
BIS
BIS
BIS
JSR

167704
167672
167672

001326

MOV

MOVB
MOV
JSR
MOV
MOV
BIT
BNE
HLT

BEQ

;PUSH OUT A BIT

#177 ,DATA
#8. ,SHIFTS
R1,RPOKE
aRXCSR, TEMP1
aRXDBUF ,RO
#RABORT ,RO
1%
5

;LOAD A SECOND CHAR
;LOAD CLOCKS
;PUSH OUT THE DATA
:READ THE CSR
:SAVE THE BUFFER
sTEST ABORT BIT
:BR IF SET
:ABORT BIT FAILED TO SET

:BR IF CLEAR

:TEST REC ACT

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZDPCC.PIN

CZDPCC

011634
011636
011644

011646
011650
011654
011656
011660

104006

032737
001001

104002
032700
001001

000200

001236

2%:

3%:

100000

104007
104400

6
#RXDONL
, TEMP1
3%
2

HLT
BIT

BNE

HLT

#RXDERR,RO

BIT
BNE

12%:

;23

HLT

sREC ACT. FAILED TO CLEAR
sTEST DONE

:BR IF SET
;DONE FAILED TO SET
sTEST ERROR BIT
:BR IF SET

sJERROR BIT FAILED TO SET AFTER ABORT

;SCOPE THIS TEST

SCOPE

itt.tttt.ttttt"t'ttttttt. TEST 7 XAaaasaaahaArhhkthkArhrehens

“#TEST TO PROVE THE INTERACTION OF ABORT IN SECONDARY MODE
:#TEST FOR ABORT AT THE WRONG SECONDARY ADDRESS, THEN TEST
'AT THE CORRECT SECONDARY ADDRESS

2196

2197
2198
2199
2200

011662
011670
011676
011704
011710
011716
011724
011732
011740
011744
011746
011754
011762

011774

012737
012737

001226
001216
167506
167472
167460
167456
167452

_‘-. Sev. NN,

't.tttttfittti"'tfitttit..tltfit.'t.l.ttfitttt.i'ittt.fi'.ttt"ttt

ttttt'!ttttt
*

TEST 7
*

S 2322222222
]

tttt*fifi't.itfit.'tifi'tt'ittttttt'Qit.!'..fittttt'.'tt."'tttl!'ittttt'

ST?:

BIS

MOV
MOV
BIS

#7 ,a#TSTNO
#TST10 NEXT
#MRESET ,@TXCSR

JRESET THE DEVICE
PC,SMALL
sWAIT FOR RESET TO FINISH
JSR
#CRTEN,aPARCSR
BIS
:TURN OFF CRC
#RCVEN ,aRXCSR
BIS
:TURN ON RECEIVER
#PRISEC,aPARCSR ;ENTER SECONDARY MODE
#MMODE ,@TXCSR
BIS
;ENTER MAINT MODE
R1.RFLG
JSR
;PUSH OUT A FLAG

;ONE FLAG

001324
001326

MOV

167416

BIS

PKCLK,
TSTB

001324
001326

MOvB
MOV
JSR
BIT
BEQ
HLT

167354

5%:

001326
001324
001326
167302

001324
001326

#1,DATA :LOAD WRONG ADRS
#8. ,SHIFTS
MOV
;LOAD CLOCKS
R1,RPOKE
JSR
;PUSH OUT DATA

JSR

5BITU.GTXCSR

(CHAR
;SET THE WINDOW
;PUSH OUT A BIT
;READ A CHAR
;LOAD A SECOND CHAR
;LOAD CLOCKS
;PUSH OUT THE DATA

aRXDBUF
#177 ,DATA
#8. ,SHIFTS
R1,RPOKE
ggABORT.aRXDBUF;TEST FOR ABORT
1"
R1.RFLG

DATA
#8. . SHIFTS
R1.RPOKE

#252 ,DATA

#8. . SHIFTS
R1.RPOKE

#B1TW,aTXCSR
n

2187
2188
2189
2190
2191
2192
2193
2194
2195

4
I
13:54
PAGE 48
TEST OF ABORT,DONE ,AND RXERR IN PRIMARY MODE

aRXDBUF
#177 ,DATA
#8. ,SHIFTS
R1,RPOKE

;BR IF NOT SET

JABORT IS SET AND SHOULDN'T
:BE = THIS IS A SECONDARY STATION
:PUSH OUT A FLAG
;ONE FLAG
;LOAD ADRS
;LOAD CLOCKS
;PUSH OUT THE ADRS
;LOAD A CHAR
;LOAD CLOCKS
;PUSH OUT THE CHAR
;SET THE WINDOW
;PUSH OUT A BIT
;READ THE CHAR
;LOAD THE ABORT
;LOAD CLOCKS
;PUSH OUT THE ABORT

SEQ 0047

02-MAY-78
MACY11 30A(1052)
CZDPCC.P1T
02-MAY-78 13:47

CZOPCC

2243
2244
2245

4
J
PAGE 49
13:54
. AND RXERR IN SEC MODE
TEST OF ABORT,DONE

012140
012146
012152
012156
012160
012162
012170
012172
012174
012202
012204
012206
012212
012214

017737
017700
032700
001001

167240
167234
002000

001240

032737
001401

004000

001240

6%:

032737
001001

000200

001240

7%:

032700
001001

100000

012216

104400

104005

104006
104002

10%:

MOV
MOV
BIT

aRXCSR, TEMP?2
@aRXDBUI ,RO
#RABORT ,RO

BIT
BEQ
HLT

#RECACT,TEMP2
7%
6

BNE
HLT

BIT

BNE
HLT

BIT

BNE

12%:

;READ THE CSR
;SAVE THE BUFFER
sTEST THE ABORT BIT

6%
5

;BR _IF SET
;BIT IS CLEAR = SHOULD BE SET

#RXDONE
, TEMP2

108
2

;TEST DONE
;BR IF SET
;DONE FAILED TO SET

12%

;BR IF SET

#RXDERR ,RO

HLT

104007

SEQ 0048

TEST ACTIVE
;BR IF CLEAR
;BIT FAILED TO CLEAR AFTER ABORT

;TEST FOR ERROR

JERROR WASN'T SET AFTER ABORT
;SCOPE THIS TEST

SCOPE

enrRRRRRRRARRRnnnnnnnnnnnn

TEST

wrnnnnnannnanntnrtennnnnnnn

s*TEST EFFECT OF REC ENABLE ON ABORT
s*RXACTIVE, RXDONE, RXERROR.

so++(

sokkn 1223232323 22232333333333332333333 3333332222223t RRR R R Rl
> IRRA AR A ARk Rk
*

; TEST 10
»

E:ttfittttttttt
012220

012737
012737

001226
001216
167150

R AR AR R AR R AR AR AR R AR AR

TST10:

MOV
MOV

#10,a#TSTNO
#TST11 NEXT

RER AR

AR R AR AR RO

#MRESET ,@TXCSR
PC,SMALL
#CRCEN,aPARCSR
#RCVEN,aRXCSR
#MMODE ,@TXCSR
R1,RFLG

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;TURN OFF CRC
;TURN ON RECEIVER
;ENTER MAINT MODE
;PUSH OUT A FLAG

CLR
MOV
JSR
BIS
PKCLK,

DATA
#8. ,SHIFTS
R1,RPOKE
#BITW,aTXCSR
2

;CLEAR DATA
sLOAD CLOCKS
;PUSH OUT DATA (CHAR
sSET THE WINDOW
;PUSH OUT A BIT

001324

MOVB
MOV

#177 ,DATA
#8. ,SHIFTS

001236

MOV
MOV

BIS
JSR
BIS
BIS
BIS
JSR

167134
167122
167122

001326
167070

TSTB

001326

012374
012402
012410
012414
012420
012422

167002

001236

JSR

20%:

BIT
BNE
HLT
BIC
MOV
MOV
BIT
BEQ
HLT

aRXDBUF

R1,RPOKE
aRXCSR, TEMP1
aRXDBUF ,RO
#RABORT ,RO
208
5
#RCVEN,aRXCSR
aRXCSR, TEMP1
aRXDBUF ,RO
#RABORT ,RO
1%
30

;ONE FLAG

sREAD A CHAR

;LOAD A SECOND CHAR
;LOAD CLOCKS

;PUSH OUT THE DATA
sREAD THE CSR
;SAVE THE BUFFER
;TEST ABORT BIT
;BR IF SET
;ABORT BIT FAILED TO SET
;CLEAR REC ENABLE
:SAVE STATUS
;SAVE REC BUFFER
sABORT CLEAR?
;IF YES,BR
;ABORT FAILED TO CLEAR

02-MAY-78
MACY11 30A(1052)
CZOPCC.PI
02-MAY-78 13:47

CZDPCC

13:54

PAGE 50

SEQ 0049

TEST OF RCVEN, ABORT, RXACTIVE, RXDONE, RXERROR

012424
012432
012434
012436
012444
012446
012450
012454
012456

032737
001401

004000

001236

1%:

BIT

#RECACT,TEMP1

TEST REC ACT

032737
001401

000200

001236

2%:

BIT
BEQ

#RXDONE ,TEMP1
33

;TEST DONE
;BR IF CLEAR
;DONE FAILED TO CLEAR
sTEST ERROR BIT
;BR IF CLEAR
JERROR BIT FAILED TO CLEAR AFTER RCVEN
s CLEARED.

012460

104400

104006

104031
032700
001401
104032

BEQ
HLT

HLT
BIT
BEQ
HLT

3%:

100000

2%
6

12%:

31
#RXDERR ,RO
12%
32

;BR IF CLEAR
JREC ACT. FAILED TO CLEAR

SCOPE

CRRRRRRRRRRRRARARRRRAARRAAR

TEST

a e

“«TEST THE EFFECTS OF READING THE RXDBUF

ke kAR AR AR AN RN

‘*ON THE RXDONE., RXERROR, AND ABORT

;:t.'Qfit'ttfitttt"'tt.ttt'ttfitt'..tt'tt'tt.'t'tittt'ttt'ti.'t"'
::t'itfi.ttt.tt
*

TEST N

E:tttttttttttt
IR

012462
012470
012476
012504
012510
012516
012524

012737
012737

001226
001216
166706

TST11:

AR A AR AR AR R

MOV
MOV
BIS

166626

CLR
MOV
JSR
BIS
PKCLK,

DATA
#8. ,SHIFTS
R1,RPOKE
#B1TW,aTXCSR
2

;CLEAR DATA
;LOAD CLOCKS
;sPUSH OUT DATA CHAR
;SET THE WINDOW
;PUSH OUT A BIT

MOVB
MOV
JSR

#177 ,DATA
#8. ,SHIFTS
R1,RPOKE

;LOAD A SECOND CHAR
;LOAD CLOCKS
;PUSH OUT THE DATA

MOV

aRXDBUF ,RO

;SAVE THE BUFFER

TSTB

001324
001326

MOV

001236

012676

208 :

aRXCSR, TEMP1

JREAD A CHAR

JREAD THE (SR

sTEST ABORT BIT
;BR IF SET

BEQ
HLT

aRXDBUF
aRXCSR, TEMP1
aRXDBUF ,RO
#RXDONE , TEMP1
2%
31

;READ RXDBUF
;SAVE STATUS
;SAVE REC BUFFER
sTEST DONE
;BR IF CLEAR
;DONE FAILED TO CLEAR

BEQ
HLT
BIT

3%
30
#RXDERR,RO

HLT

TST

1$:

MOV
MOV
BIT

2%:

BIT

3$:

aRXDBUF

sONE FLAG

#RABORT ,RO
208

BIT
BNE

001236

AR RRAARRRARRRRERRARRRRRR
AR
RR

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;TURN OFF CRC
;TURN ON RECEIVER
;ENTER MAINT MODE
;PUSH OUT A FLAG

001326

PC,SMALL
#CRCEN,aPARCSR
#RCVEN,aRXCSR
#MMODE ,@TXCSR
R1,RFLG

JSR
BIS
BIS
BIS
JSR

166672
166660
166660

RRR R

#11,a#TSTNO
#TST12 ,NEXT
#MRESET ,@TXCSR

#RABORT ,RO

;ABORT BIT FAILED TO SET

sABORT CLEAR?

;IF YES,BR
;ABORT FAILED TO CLEAR
sTEST ERROR BIT

s ieeC

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.PN
012702
012704

001401
104032

012706

104400

PAGE 51

13:54

SEQ 0050

READ RXDBUF, AND TEST RXDONE, RXERROR, ABORT

12%:

;BR IF CLEAR
'sgggR BIT FAILED TO CLEAR AFTER RXDBUF

12%
32

BEQ
HLT
SCOPE

;SCOPE THIS TEST

tt-ttt.-tntttttt'tnttttttt

TEST

12 Axannatantnkahhhhhhhhehhndn

-DATA OVERRUN TEST IN PRIMARY MODE. TEST TO
tPROVE OVERRUN ERROR AND RX ERROR WILL OCCUR
AR

AR R AR

R R AR AR A AR

AN A AR

AR AR

RAR AR RAAA R

AARRRARAAAN

JIRRRRARRRRARR
.

; TEST 12

22222222222

AR AR AR R AR AR

012737
012737
052777
004737
013703
052777
052713
052777
004137
000001
012737

000012
013062
000400
005044
001404
001000
000020
014000
007060

000252
000010
007020
000070
000011
007020

001226
001216
166460

MOV
MOV
JSR
MOV
MOV
JSR

#252 ,DATA
#8. ,SHIFTS
R1,RPOKE
#70,DATA
#9. ,SHIFTS
R1,RPOKE

;LOAD CHAR TO BE OUTPUT
;CLOCK SETUP
;PUSH DATA INTO RECEIVER
;LOAD A SECOND CHARACTER
;SETUP #OF CLOCKS
;PUSH THE SECOND CHARACTER INTO RX

BIC
CMP

l‘C<RXDERR'0VRRUN> RO ;CLEAR JUNK
#RXDERR
! OVRRUN,RO CHECK TO SEE IF BOTH ARE SET
P
13

BR IF OK
;THEY DIDN'T MATCH

2%:

BIT
BNE
HLT

#RECACT, (R3)
33
14

JTEST REC. ACT
BR IF STILL SET
JREC. ACTIVE CLEARED AND SHOULD BE SET

3%:

SCOPE

166440

166430

001324
001326
001324
001326

MOV

@RXDBUF ,RO

BEQ
HLT

104014

104400

AR AR RN RN

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;LOAD THE CONTROL REGISTER
;TURN OFF CRC
sTURN ON THE RECEIVER
JENTER MAINTENANCE MODE
;PUSH OUT A FLAG

166352

004000

AN AR R RN RAR AR AR

#12,a#TSTNO
075T13,NEXT
#MRESET ,@TXCSR
PC,SMALL
RXCSR,R3
#CRCEN,aPARCSR
#RCVEN, (R3)
#MMODE ,aTXCSR
R1.RFLG

037777
140000

032713
001001

AR AR N AR AR AR AR AR AR

MOV
MOV
BIS
JSR
MOV
BIS
BIS
BIS
JSR

TST12

;ONE FLAG

;SAVE BUFFER

;SCOPE THIS TEST

IRRRARARRRRARANR N

NARARN TEST 13

AAaaa stttk thak kA kAR AARRAN

tDATA OVERRUN TEST IN SECONDARY MODE. TEST TO PROVE

:*THAT OVERRUN DOES NOT OCCUR IF THIS STATION IS NOT

-SELECTED

THEN SELECT THIS SECONDARY STATION AND

tPROVE OVERRUN ERROR AND RX ERROR WILL OCCUR
AR

AR AR A AR AR A AR R AR AR

AR AR RA AR AR

RR AR RARRRRRRA AR

AR AR

L 3208222222

LR
R I
T

012710
012716
012724
012732
012736
012742
012750
012754
012762
012766
012770
012776
013004
013010
013016
013024
013030

AR AR

TEST 13
*
MALE
RS EE S S

AR AR AR AR A AR AR AR AR R AR AR A AAR AR R RAARRR AR AR AR AR AR AR AR

AR AR AR

02-MAY-78
MACY11 30A(1052)
CZDPCC.PN
02-MAY-78 13:47

CZDPCC

2411
2412

2413
2414
2415

2416

2417
2418
2419
2420
2421
2422
2423
2424

2425

24,26
2427

013062
013070
013076
013104
013110
013114
013122
013126
013134
013142
013146
013150
013156
013164
013170
013176

012737

000013
013320
0004

001226
001216
166306

TST13:

MOV

BIS
JSR
MOV
BIS
BIS

166266
166254
166250

BIS

001324
001326
166210

013200

013306

013312
013314
013316

4%:

#CRCEN,aPARCSR

;TURN OFF

RXCSR,R3

;LOAD THE CONTROL REGISTER
CRC

#MMODE ,@TXCSR
R1.RFLG

MOV
MOV
JSR

#252,DATA

BIT
BEQ

R1,RPOKE
;THRU THE RECEIVER
#OVRRUN,@RXDBUF :TEST FOR OVERRUN
48
;BR IF NOT SET

HLT

JSR

#25. ,SHIFTS

R1.RFLG

DATA

#8. SHIFTS
R1.RPOKE

#252 .DATA

001324
001326

#8. ,SHIFTS

R1,RPOKE

#70,DATA
#9. SHIFTS
R1.RPOKE

001324
001326

BEQ
HLT
BIT
BNE
HLT
SCOPE

6%:

3%:

104400

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH

BIS
JSR

001326

032713
001001
104005

#13,a#TSTNO
#TST14 NEXT
#MRESET ,@TXCSR
PC,SMALL

#RCVEN, (R3)
:TURN ON THE RECEIVER
#PRISEC,aPARCSR ;ENTER SECONDARY MODE
]

013202
013206
013210
013214
013222
013226
013234
013242
013246
013254
013262
013266
013272
013276
013302
013304

SEQ 0051

13:54 PAGE S2
DATA OVERRUN TEST IN SECONDARY MODE

;ENTER MAINTENANCE MODE
sPUSH OUT A FLAG
;ONE FLAG
;LOAD AN INCORRECT SEC. STA ADRS

:PUSH OUT 3 CHARS

;OVERRUN IS SET AND SHOULDN'T BE

sTHIS IS A SECONDARY STATION WHICH

;DID NOT GET ITS ADDRESS
*PUSH OUT A FLAG
*ONE FLAG

*GET CORRECT SEC. STATION ADRS
"MOVE THE #OF CLOCKS TO PUSH
“PUSH OUT THE SEC. ADRS

“PUSH OUT
STWO

*DATA

* CHARACTERS
*TO FORCE
*AN OVERRUN ERROR

*SAVE
aRXDBUF ,RO
#~C<RXDERR
! OVRRUN> RO ; CLEAR JUNK
#RXDERR
| OVRRUN,RO :ARE THE ERROR BITS THERE
6%
BR IF YES
13
;ERROR BITS MISSING
#RECACT, (R3)
3$
5

;TEST ACTIVE
;BR IF SET
;ACTIVE DROPPED OUT

;SCOPE THIS TEST

IRARRRARRARRAARRRRRRRRAAAAN

TEST

wnnnnnannnnaanannannnnnnnns

s*TEST OF SPECIFIC DATA PATTERNS THRU
;*THE RECEIVER IN PRIMARY MODE

;:tttttttttt.tttii"tfit*tttt'tt'fit.ttttfifitt"itttttt'tt'tttttt't

TATRRRRRRRARR

L OTEST 14
;:Qttfittttt"fi
S

013320
013326
013334
013342

012737
012737
052777
004737

000014
013570
000400
005044

AR R AR R AR AR AR R AR AR AR A AARAAARAARAAR A AR AR AR AR AR A AR AR AR

T$T14:

MOV

MOV
BIS
JSR

#14 ,a4TSTNO

#TST15 NEXT
#MRESET ,@TXCSR

PC,SMALL

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH

ARk

0;‘""’78
CZDPCC MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.P1
2468
2469
2470
2471

013346

012703
012704
012702
052777
005077
052777

013556
013556
000004
001000
166020
014000
000020
000020
000400
000010

#TBLA, RS
#4 ,R2
#CRCEN,3PARCSR
@ TXDBUF
#MMODE ,@TXCSR
#RCVEN,aRXCSR

166020
166010
165774
165774
165770

#SEND ,@TXCSR
#TSOM,aTXDBUF

‘8.
(R3) +,aTXDBUF

165760

000020

013510
013514
013520
013522
013524
013532
013536
013540
013542
013542
013550
013554

013556
013560
013562
013564
013566

105777
100401
104000

017737

165656

001324

052777
004737

000400
005044

104400

000125
000252
000000
000377
000000

:TURN ON THE RECEIVER

;TURN ON THE TRANSMITTER
:START A FLAG

:START A FLAG
:LOAD FIRST DATA (CHAR
;LOWER THE # TO DO
;PUSH 0UT
;LOAD DATA
:LOWER THE # TO DO
;PUSH OUT DATA

001324

;CHECK FOR RX DONE
;B8R IF DONE SET

2%:

aRXDBUF ,DATA
(R4) ,DATA
3s

;GET THE BUFFER
JCHECK IT
:BR IF OK

3%:

(R4)+
R2
1%
» Tl
aRACSR
4%

000020
165664

121437
001401
104000

;RESET TXDONE
:ENTER M/MODE

.16.
aRXCSR

013502
013504

013506

;LOAD THE TABLE POINTER
;DITTO
;LOAD THE # OF CHARS TO DO

(R3)+,aTXDBUF

000020
165724

001324

SEQ 0052

R2
.16.

1%:

165746

165716

#TBLA,R3

PKCLK

001324

165642

4%:

5%:

TSTB
BMI
HLT
MOV
CMPB
BEQ
HLT

;RX DONE FAILED TO SET

;DATA COMPARE EROR

;CHECK FOR FINISH
;BR IF MORE TO GO
;PUSH OUT LAST CHAR
;CHECK FOR DONE
;BR IF DONE SET
;DONE FAILED TO SET
;GET THE BUFFER
;JCHECK IT
:BR IF A MATCH

aRXDBUF ,DATA
égk).DATA

;DATA COMPARE ERROR

#MRESET ,@TXCSR

BIS
JSR
SCOPE

PC,SMALL

:DATA TABLE
.WORD

sJRESET THE DEVICE
JWAIT FOR RESET TO FINISH

125

TBLA:

252

000
377
000
IRRRARRRRARARARRRRRRRannann TEST

;*TEST TO PROVE THAT THE DEVICE WILL
;*WORK WITH ALL POSSIBLE SECONDARY
;*STATION ADDRESSES.

anxnnnnnnnnanntnrnnannannnns

::tttflt.'fittfitfit'ttttfi.ttifitttit.tttttitt'tttttfifi'itttttiit'.'tt

L
I

2467

13:54 PAGE 53
RECEIVER DATA TEST WITHOUT CRC

22233222223
.

TEST 15
®

02-MAY-78
CZDPCC MACY11 30A(1052)
13:47
02-MAY-78
CZDPCC.PN

B 5
13: 54 PAGE 54
SECONDARY STATION ADDRESS TEST

SEQ 0053

::.ttfi.."fi't'

';.t'lttt'lt.’*'t""..Qt".tti...tt".t...Qfi.'t..Q.".'Q'...Qt."'tt'

013570
013576
013604
013612

012737
012737

012737

052777

000015
014064
013632
001236
001240
011000
000400
005044
001236
004020
165520

001226
001216
001220

001236

208

165552
165536
165524
165524

000400
165504

165512

001240

165476

165470

TST15:

18:

2%:
38:
4%:

000252
004000

165462
165454

648:

004000

165444

65%:

5%:

165426

165420
165412

6$:

000252

7$:

000400

165366

108:

MOV

MOV
CLR

#15,a4TSTNO
#TST16 NEXT
#208,L0CK
R5

BIS
JSR
MOV
BIS
BIS
TSTB
BPL
MOV
TSTB
BPL
MOV

#MRESET ,@TXCSR ;RESET THE DEVICE
;WAIT FOR RESET TO FINISH
PC,SMALL
TEMP1,aPARCSR ;LOAD MODE AND NO CRC AND SEC STATION
#RCVEN,3RXCSR _ ;TURN ON RECEIVER
#SYSTST!SEND,@TXCSR ;TURN ON TRANSMITTER AND CLOCK
sWAIT FOR
aTXCSR
2%
: DONE
#TSOM,aTXDBUF
;LOAD START OF MSG
aTXCSR
sWAIT FOR
3%
;DONE AGAIN
;LOAD SEC STATION ADRS AND
TEMP2 ,@TXDBUF

BPL

MOV

CLR
CLR
MOV

TSTB

MOV
BIT

BNE
BIT
BEQ
TSTB
BPL
TST
BPL
HLT
MOV
BIT
BNE
HLT

CMPB
BEQ

165330

118:

;CLEAR TEMP STORAGE
TEMP1
;DITTO
TEMP2
#CRCEN!PRISEC,TEMP1
;LOAD MODE AND NO CRC

aTXCSR

;WAIT FOR

#252 ,3TXDBUF
#TIMER,@TXDBUF

sNOW LOAD DATA
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE TIMER BIT
;BR IF CLEAR
sTEST FOR
;RX DONE

648
#TIMER,@TXDBUF
65%
aRXCSR
5%
aRXCSR
6%
14
aRXDBUF ,R4

#RSOM, R4
7%
#252 R4
108

;DONE AGAIN

;TEST FOR ERROR
;BR IF NO ERROR
;ERROR FOUND!
;GET THE BUFFER
;CHECK FOR START OF MSG
;BR IF SET
sSTART OF MSG FAILED TO SET
;CHECK FOR DATA
sBR IF A MATCH

HLT
SCOP1
BIS
JSR
INCB
BEQ

AMRESET ,@TXCSR
PC,SMALL
R5
11%
:

BIS
MOV
BR
SCOPE

#CRCEN!PRISEC,TEMP1 ;LOAD FOR PAR (SR
TEMP1,aPARCSR
;DO IT
:BR TO DO OVER
1%
;SCOPE THIS TEST

MOvVB
MovB

001236

;SW09 SETUP
;CLEAR SEC ADRS HOLD

RS,TEMP1
RS, TEMP2

sFAILED TO RECEIVE DATA AS A SEC STATION
.
SW09=1?
;RESET THE DEVICE
;WAIT FOR RESET TO FINISH
sGET NEXT SEC ADRS
;BR IF ALL DONE

;LOAD THE ADRS FOR PAR (SR
;DITTO FOR TXD BUF

IRNRRRARRNARANRRARRAARAARAN

TEST

16 Anaaaaaaa
e aaaaanaantannnns

;*TEST OF SPECIFIC CHARACTER DATA PATTERNS
;*USING BCC CHECK IN PRIMARY MODE.

::.t'ttfittttt.l.'t"ttttQQit'tllfi"ttt'.i.!'t.'itfi!!t"t'ttt'..i

MACY11 30A(1052)
02-MAY-78
CZDPCC.P11
02-MAY-78 13:47
CZDPCC

£ 9
PAGE 55
RECEIVER DATA TEST WITH CRC

SEQ 0054

13: 54

2579
2580
2581
2582

R
AR RN
cohRARAAR
*

; TEST 16
'

;;QQ.Q.Q.Q'.'!

;:t..'..Q'Qt.fit.'.fi*t"""'..i'fi.l.fi't.Q!QQt.fii..‘tfi.'t.i.'fi..t'fl'..'

012737

TST16:

000016
014602

014410

000004
014410
014410
001324
102010
177777
014600
014160
014422

052777
004737
052777
052777
052777
052777

000400

104412
105777
100401
104000

000012
165154

011177

165146

104412

100401

104000
017737
104412
105777
100401
104000
117737
005137

023737

165220

118:
12%:

165206
165172
165172
165166

165114

165106
001324

#TST17 NEXT
;GET THE TABLE POINTER
#TBLB,R4
#4 ,R3
;GET THE # TO DO
;GET THE POINTER
#TBLB,R1
#TBLB ,R2
:DITTO
DATA
;CLR DATA HOLD
#CRC.CCITT XPOLY
;LOAD THE POLYNOMIAL FOR CRC
#-1,CALBCC
sPRESET BCC FOR SDLC
CALBCC,12%
sMOVE BCC

JSR
8.

R5,SIMBCC

BIS
JSR
BIS
BIS
BIS
BIS

#MRESET ,@TXCSR
PC, SMALL
AMMODE ,@TXCSR
#RCVEN,ARXCSR
#SEND ,@TXCSR
#TSOM,@TXDBUF

MOV
PKCLK

(R1) ,aTXDBUF
,16.
#TEOM,@TXDBUF
,16.

001324

2%:

3$:

000020
165062
165054

001324

4$:

165032
014600
014600

001325

5%:

001324

BLKW
.BLKW

PKCLK
TSTB
B8MI
HLT

BIS
PKCLK

165134

#16 ,a#TSTNO

MOV
MOV
MOV
MOV
MOV
CLR
MOV
MOV
MOV
MOV

052777

104412
105777
100401
104000
017737
121237
001401
104000
104412
105777

108:

MOV

TSTB
BMI
HLT
MOV
CMPB
BEQ
HLT

PKCLK
TSTB

BMI
HLT
MOV
PKCLK
TSTB
BM]
HLT
MOVB
COM
(MP

(R6),11%

;MOVE DATA

1
1

;ON THESE
sPARMETERS

,10.
aTXCSR
18

aRXCSP
2%

aRXDBUF ,DATA
(R2) ,DATA
3$

,16.

aRXCSR

;GO CALCULATE BCC
;BASED
;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;ENTER MAINT MODE
;TURN ON THE RECEIVER
;sTURN ON TRANSMITTER
;TURN ON START OF MSG
;PUSH OUT 4 BITS
;CHECK FOR DONE
;BR IF SET
;DONE FAILED TO SET

;LOAD DATA
;PUSH OUT 8 BITS

;SET END OF MSG
;PUSH OUT 8 MORE BITS

;CHECK FOR DONE
;BR IF SET
;DONE FAILED TO SET
;READ THE BUFFER
;CHECK THE DATA
;BR IF A MATCH
;DATA COMPARE ERROR

sPUSH OUT 8 MORE BITS
;CHECK FOR DONE

;BR IF SET
;DONE FAILED TO SET ON FIRST OCTET OF BCC
aRXDBUF ,DATA
sREAD THE BUFFER
,26.
;FINISH POKING BITS
aRXCSR
;CHECK FOR DONE
;BR IF SET
5%
sDONE FAILED TO SET ON SECOND OCTET OF BCC
aRXDBUF ,DATA +1 ;GET IT
CALBCC
s INVERT SOF TWARE
CALBCC,DATA
; COMPARE

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-73 13:47
CZDPCC.PN
2635
2636
2637
2638
2639
2640

D 5
13:54 PAGE 56
RECEIVER DATA TEST WITH CRC

001401

BEQ
HLT

014374
014376
014400
014402
014404
014406

005721
005722
005724
005303
001247

TST

(R1)+
+
(R2)
(R4)+
R3
108

014410
014412
014414
014416
014420

000252
000000
000125
000377
000000

014422
014424
014426
014430
014434
014440
014444
014450
014454
014460
014462
014466
014470
014474
014500
014502
014506
014510
014514
014520
014524
014526
014530
014534
014536
014544
014550
014554
014556
014564
014566
014570

010046
010146
010246

014370
014372

014572
014574
014576
014600

104000

6%:

104400

012537
012537
012537
005037
013700
006037
005500
032700
001402
005137

013700
005100
040037

TST
TST
DEC
BNE
SCOPE

;DATA TABLE
TBLB:

.WORD

252
0
125
377
0
RO,=(SP)
R1,=(SP)
R2,=(SP)
(R3)+,TEMP]

001236

001240
001242
014576
001242
001240

1$:

CLR

000001

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

BCCFBK
TEMP3 RO
TEMP2
RO
#8170,RO

014576
014574

014576

BCCFBK
XPOLY ,RO
RO
RO,BCCFBK

001242
014576
001242

TEMP3
BCCFBK,RO
TEMP3 ,R1

2%:

MOV

014576
014574
001242
001236

001242

014600

R2,RO

XPOLY, TEMP3

RO, TEMP3
TEMP1
1%
TEMP3, CALBCC
(SP)+,R2
(SP)+,R1
(SP)+,R0O
XPOLY:
0
BCCFBK: 0
CALBCC: 0
CRC16=120001

SEQ 0055
:BR IF A MATCH
;BCC COMPARE FAILURE
sUSE CRC DEBUGGING ROUTINE TO

JREPAIR CRC.SEE FRONT OF LISTING

;POP POINTER
;DITTO
;DITTO
;DECREMENT THE # TO DO
;BR IF MORE TOGO
;SCOPE THIS TEST

MACY11 30A(1052)
02-MAY-78
CZDPCC
13:47
-78
.PI
CZOPCC
02-MAY
2691
2692
2693
2694
2695
2696
2697
2698
2699

5
E
13:54 PAGE 57
RECEIVER DATA TEST WITH CRC

SEQ 0056

CRC.CCITT=102010

102010

RRRRRARRARRRRRRRRRRnnennnn

TEST

17 wanatanananannnentrnentannssn

;THIS TEST PROVES THAT THE DEVICE WILL
;OUTPUT SIXTEEN SPACES IN FRONT OF A
;FLAG iF STARTING FROM THE IDLE STATE.

3 :Q'.tttfiQ.itttt'tttQifittfilttfi*ittt.it'.ittQ'tt'tti'ti'fitiit't'.

2700

CoRRRAR
AR R AR

2701

TEST 17
*

IRRRRRRRRRAAR

IRARRRRRRARRERARRRR
AR
A RRRARRRRARNRRRRRRRRRS AR
RRRRRRRRRARRRRRAA R

001226
001216

012737
012737
052777
004737
005037
005037
005037
005077
052777
052777
052777
052777
052777

164534
164524
164520
164504
164506

005237
022737
001407

001236

104412

032777
001764
104000
104412
032777
001401
104000

104412

032777
001001
104000

005237
022737
001363
104412

032777
001401

015056

104000
104412
052777
104412
105777

1$:

164452

164434

000125
000002
040000

164424
164410

001240
000006

001240

000002
040000

164356

000006
001000

164340

164322

MOV
MOV

BIS
JSR

164566

104412

012777

TST17:

2%:

3$:

48:

5%:

;RESET THE DEVICE
;WAIT FOR RESET TO FINISH

CLR
CLR
CLR
CLR
BIS
BIS
BIS
BIS
BIS

PC,SMALL
;CLEAR FOR SOF TWARE STORAGE
TEMP1
TEMP2
TEMP3
aTXDBUF
JRESET TXDONE
;ENTER MAINT MODE
#MMODE ,@TXCSR
#CRCEN,aPARCSR ;TURN OFF CRC
sTURN ON TRANSMITTER
#SEND ,aTXCSR
;TURN ON RECEIVER
#RCVEN,aRXCSR
;START SPECIAL SEQUENCE
BUF
#TEOM!TSOM,aTXD

INC
CMP
BEQ

TEMP1
#17. ,TEMP1
2%

PKCLK

PKCLK
BIT
BEQ
HLT
PKCLK
BIT
BEQ
HLT
MOV
PKCLK
BIT
BNE

HLT
INC
CMP
BNE

PKCLK

6$%:

#17 ,a#TSTNO
#T1ST20 NEXT
#MRESET ,@TXCSR

BIT
BEQ
HLT

:SYNC UP DUP

.2
H#MTDATA ,@TXCSR
1%

;POKE CLOCK

2
H#MTDATA ,@TXCSR
3s

#125 ,aTXDBUF
2

#MTDATA ,@TXCSR
5%

TEMP2
#6,TEMP2
4%
.2

A#MTDATA ,@TXCSR
6%

PKCLK
BIS

6
#TEOM,QTXCSR

TSTB

@RXCSR

PKCLK

sUPDATE COUNT
;CHECK FOR FINISH
;BR IF YES
;CHECK THE DATA
;BR _IF OK
;DATA SHOULD BE A 0, WAS A 1
;POKE CLOCK
;CHECK THE DATA
;BR _IF OK
;DATA SHOULD BE 0, WAS A ONE
;LOAD DATA CHAR
;POKE CLOCK
;CHECK THE BIT
;BR_IF OK

;DATA SHOULD BE 1, WAS 0
;UPDATE FOR FINISH
;CHECK FOR DONE
;BR IF MORE TO GO
;POKE CLOCK

;CHECK THE DATA
;BR _IF OK
;DATA SHOULD BE 0, WAS A 1

sSTART OUT DATA CHAR
sTURN OFF TRANSMITTER
;FINISH

*CHECK RECEIVER

02-MAY-78
MACY1T 30A(1052)
CZDPCC
CZDPCC.PI
02-MAY-78 13:47

2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758

2771
2772
2773

117737
122737
001401

PAGE 58

164314
000125

001242
001242

7%:

104000

10%:

104400

SEQ 0057

SPECIAL ZEROES SEQUENCE TEST
BM]

HLT
MOVB
CMPB
BEQ
HLT

aRXDBUF , TEMPZ

#125,TEMP3
108

;BR IF OK
:RECEIVER FAILED TO ACCEPT SPECIAL CHAR
;GET THE CHAR
sCHECK IT

;DATA FAILED TO MATCH AFTER

;SPECIAL SPACES CHARACTER

;SCOPE THIS TEST

SCOPE

JRRRRRAAARARR AN AN RN AR AR

TEST

waaaaarbnhrhkhhhhhhrhrhhthds

:*THIS TEST PROVES THE INTERACTION OF DTR
;*WITH RING,DSR

:*AND DATA SET CHANGE ONE AND DATA SET CHANGE TWwO.
:*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR
:«THE BIT AND VERIFY CLEAR. REPEAT FOR MRESET.

DIREAARRRA AR

AR AR

AR R AN

AR ARAARRRAARRRRARRR

AR AR

R AN A RN

R
RN
JIRRARARRN
.

; TEST 20
.

;;ttittttttttt
IR

015110
015116
015124
015132
015136
015140
015144
015150
015154

012737
012737
012737

015156

052777

015164

015170
015174

105737
001002

015546

000020
015556
015204
001322

001226
001216
001220

015544
164234
007332

TST20:

000400
005044
001404

164226

010000
000002
000110
004000

164206

015240
164170

66%:

004000

164160

67%:

1%:

5306

4122

71%:

RRARRAAA AR,

#20,a#TSTNO
#TST21 NEXT
#18,L0CK

BNE
JMP

.+6
6%

BIS

JSR

#MRESET ,@TXCSR
PC,SMALL

CLR
BIS
BIS
MOV
BIT
BNE
BIT
BEQ
DEC

(R3)
#MEXT ,@TXCSR
#DTR, (R3)
#110,68%
#TIMER,3TXDBUF
66%
#TIMER,aTXDBUF
67%
(PC)+

BNE
MOV

66%
(R3) ,R4

HLT
SCOP1
MOV
BIT
BNE

;CLEAR OUT EXTRA BITS
JENTER EXTERNAL MAINT. MODE
sTURN ON DTR
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;GET THE BITS FROM THE RXCSR
;R5=G0O0OD R&=?
JBRANCH IF THEY MAT(CH
;NO MATCH - SHOW OPR.

#5,73%
#TIMER,QTXDBUF
71%

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET

CLR
JSR
7%

110

CMP
BEQ
000005
004000

RRRRR AR AR R AR AR AR AR RN

MOV
MOV
MOV

MOV

68$%:
015244
015246
015250
015252
015254
015256
015264
015272

AR AR R AR

TSTB

108:

-0
O\ —

2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770

100401
104000

13:54

TCNFLG

aRXCSR
R1,0JUMPER

RXCSR,R3

RS R4
2%

;CLEAR THE REGISTER
;THIS CALL DETERMINES IF TURNAROUND CONNECTOR
;AND OPTIONAL JUMPER ARE USED
:AND LOADS RS (EXPECTED) ACCORDINGLY.
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

:LOAD THE RECEIVER CONTROL REGISTER TO R3.

015370
015372
015374
015376
015400
015402
015410
015414
015422
015430
015432
015440
015442
015444
015446
015450
015452
015454
015462
015466
015474
015502
015510

015512
015520
015522
015524
015526
015530
015532
015534
015536
015540
015542
015544
015546
015550

72%:
73%:

040000
2%:

015332
041002

001220

000005
004000

015364
164044

76%:

004000

164034

77%:

3%:

78%:

BIT
BEQ
DEC
5
BNE
BIT
BNE

MOV
BIC
CLR
MOV

BIT

BNE
BIT
BEQ
DEC
5
BNE

MOV

CMP
BEQ
HLT

015410
000002
000005
004000

001220
163764

81%:

004000

163754

82%:

015444

(%:

5%:

83%:

000400
005044

163730

000005
004000

163716
015524
163704

86%:

004000

163674

87%:
88%:

SCOP1

MOV
BIS
MOV
BIT
BNE

BIT
BEQ

DEC
5
BNE
CLR
CLR
BIS
JSR
BIS
MOV

BIT

BNE
BIT
BEQ
DEC

BNE
TST
MOV
CMP
BLQ
HLY

SCoP1

6%:
7$:

SCOPE
.WORD
.WORD

#TIMER,aTXDBUF

72%
(PC)+

71%
#RING, (R3)

;CHECK THE BIT

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

#3$ ,L0CK
;SW09 SETUP
#RING!DSR!DTR,RS
;CLEAR OUT UNWANTED BITS
(R3)
;CLEAR OUT THE REGISTER
#5,78%
;LOAD THE NUMBER
#TIMER,aTXDBUF
;CHECK THE TIMER BIT
76%
;BR IF SET
#TIMER,aTXDBUF
77%
(PC)+

76%
(R3) ,R4
RS.R4
48

#5%,L0CK
#DTR, (R3)

#5,838

#TIMER, 8T XDBUF

81$

#TIMER ,@TXDBUF

82%

(PC)+

81%
RS
(R3)
#MRESET ,aTXCSR
PC,SMALL
#MEXT ,@TXCSR
#5,88%
#TIMER,TXDBUF

86%

#TIMER,aTXDBUF

87%

(PC)+

86%

(R3)
(R3) ,R4

;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;READ BACK THE REGISTER
;R5=GO0D Ré4=?

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

;SW09 SETUP
;TURN ON DTR
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
:OF TIMES TO REPEAT
;BR IF MORE TO GO
;CLEAR OUT EXPECTED
;CLEAR OUT THE REGISTER
;RESET THE DEVICE

WAIT FOR RESET TO FINISH
;sTURN ON EXTERNAL MODE

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO
;STRIP DSCA EDSCB FROM (SR
;GET THE REGISTER
:R5=G0OD ,R4=?
:BR IF OK
JREPORT THE ERROR

; SW09=1?

015364
015366

164112

015350
015352
015360
015362

004000

015342

032777
001774
005327
000005
001365
032713
001000
012737
042705
005013
012737
032777
001374
032777
001774
005327
000005
001365
011304

2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815

015274

MODEM CONTROL BITS DTR,RING,AND DSR INTERACTION TEST

&He

2803

PAGE 59

02-MAY-78
MACY11 30A(1052)
02-MAY=78 13:47
CZDPCC.PI

CZDPCC

13:54

;SCOPE THE WHOLE TEST

SEQ 0058

MACY11 30A(1052)
02-MAY-78
CZDPCC
02-MAY-78 13:47
CZDPCC. P

015552
015554

13:54

PAGE 60

MODEM CONTROL BITS DTR,RING,AND DSR INTERACTION TEST
.WORD
.WORD

001002
000000

1002
0

IRERRRANRANNAAN RN

AR ARA AR

TEST 21

n
aaa
st tkdthdtaherdtnn
Aaaaa

'THIS TEST PROVES THE INTERACTION OF RTS

;*WITH CTS,CARDET

'AND DATA SET CHANGE ONE AND DATA SET CHANGE TwWO.
:*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR
:*THE BIT AND VERIFY CLEAR. REPEAT FOR MRESET.

::ttQlt'fittt.."""t..'.t...'t.tfiQ.Q.tl'tttttt.tt.t'ttQ.Qtt'i.'

IRRAR
AR A AR AR

;

TEST 21
ALLRSS
SRS S S

'..fi.ifitfititt't"'fi.'"""t.t.ttt't.it."'ttttt't't't..t't.t"..*t..

015556
015564
015572
015600
015604
015606
015612
015616
015622

012737
012737
012737
105737
001002
000137
005077
004137
016214

000021
016224
015652
001322

015624

052777

000400
005044
001404

163560

010000
000004
000110
004000

163540

015632

015636

015642
015644
015652

001226
001216
001220

10%:

016212
163566
007332

004000

TsT21:

JMP
CLR
JSR
7%

MOV

015706

1%:

163522

66%:

163512

67%:

000005
004000

015754

163454

71%:

004000

163444

72%:

73%:

040000

BNE

BIS
JSR

68%:

032713

MOV
MOV
MOV
TSTB

CLR
BIS
BIS
MOV
BIT
BNE
BIT
BEQ

#21,a4TSTNO
#TST22 NEXT
#1$,L0CK
TCNFLG
.+6

6%
aRXCSR

R1,0JUMPER

#MRESET ,aTXCSR
PC,SMALL

RXCSR,R3
(R3)

;CLEAR THE REGISTER

;THIS CALL DETERMINES IF TURNAROUND CONNECTOR
;AND OPTIONAL JUMPER ARE USED
JAND LOADS RS (EXPECTED) ACCORDINGLY.
JRESET THE DEVICE

;WAIT FOR RESET TO FINISH

;LOAD THE RECEIVER CONTROL REGISTER TO R3.
;CLEAR OUT EXTRA BITS

66%
(R3) ,R4

:ENTER EXTERNAL MAINT. MODE
:TURN ON RTS
;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
BR IF MORE TO GO
;GET THE BITS FROM THE RXCSR

2%
3

:BRANCH IF THEY MATCH
sNO MATCH - SHOW OPR.

AMEXT ,@TXCSR

#RTS, (R3)
#110,68%
#TIMER ,aTXDBUF

66%

#TIMER,3TXDBUF

67%

(PC)+

#5,73%
#TIMER ,aTXDBUF
71%

#TIMER,aTXDBUF

72%

(PC)+

71%
#RING, (R3)

:R5=GOOD Ré4=?

;LOAD THE NUMBER

;CHECK THE TIMER BIT
BR IF SET

*CHECK THE BIT

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

:BR IF MORE TO GO

SEQ 0059

MACY11 30A(1052) 02-MAY-78
02-MAY-78 13:47
CZOPCC.PNI
CZDPCC

2915
2916

015764
015766
015774
016000
016002
016010
016016

001000
012737
042705
005013

012737
032777
001374
032777
001774
005327
000005
001365

011304
020504
001402
104003
105401

012737
052713
012737
032777
001374

032777
001774
005327

12:54

2%:

001220

000005
004000

016032

163376

76%:

004000

163366

77%:

3%:

78%:

BNE

MOV
BIC
CLR
MOV

BIT
BNE
BIT
BEQ
DEC
5
BNE
MOV

CMP
BEQ
001220

000005
004000

016112
163316

004000

163306

000004

4%:
5%:

81%:
82%:

83%:

052777
004737
052777

000400
005044
010000

032777
032777

163262

004000

163250
016172
163236

86%:

004000

163226

87%:
88%:

HLT
SCOP1
MOV

BIS
MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE
CLR
CLR
BIS
JSR
BIS
MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE
TST

MOV
CMP
BEQ
HLT

SCOP1

016210
016212
016214
016216
016220
016222

MODEM CONTROL BITS RTS,CTS,AND CARDET INTERACTION TEST

016000
030004

016056

PAGE 61

6%:

7%:

SCOPE

#3%,L0CK
; SW09 SETUP
;CLEAR OUT UNWANTED BITS
#CTS!CARDET!RTS,R5
REGISTER
THE
;CLEAR OUT
(R3)
#5,78%
;LOAD THE NUMBER
#TIMER ,@TXDBUF
76$
#TIMER,@TXDBUF
77%
(PC)+

76$
(R3) ,R4

;CHECK THE TIMER BIT
sBR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;B8R IF MORE TO GO
JREAD BACK THE REGISTER

;NO-GO TELL OPR

#5%,L0CK
#RTS, (R3)
#5,83$
#TIMER,@TXDBUF
81%
#TIMER,QTXDBUF
82%
(PC)+

86%

:SW09 SETUP
:TURN ON RTS
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;CLEAR OUT EXPECTED
;CLEAR OUT THE REGISTER
;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
sTURN ON EXTERNAL MODE
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

(R3) ,R4
R5.R4
6%

;GET THE REGISTER
sR5=G00D ,R4=?
;BR IF OK

R5.R4
4%

81%
R5
(R3)
#MRESET ,@TXCSR
PC,SMALL
#MEXT ,@TXCSR
#5,88%
#TIMER ,@TXDBUF
86%
#TIMER,QTXDBUF
87%
(PC)+
(R3)

.WORD

130005

.WORD
.WORD

4
0

.WORD

;R5=G00D R4=?
;BRANCH IF ONLY THE DSC BITS ARE SET

;STRIP DSCA &DSCB FROM (SR

;REPORT THE ERROR

;SW09=1?

;SCOPE THE WHOLE TEST

130001

ek RRRRRRRRRRernnnnnnnnnn

TEST

sanansnnntnnnnntennntnnnnns

s*THIS TEST PROVES THE INTERACTION OF STD

SEQ 0060

MACY11 30A(1052)
02-MAY-78
02-MAY-78 13:47
CZOPCC.PN

CZDPCC

2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988

J 5
13: 54 PAGE 62
MODEM CONTROL BITS STD AND SRD INTERACTION TEST
;*WITH STD,SRD

:«AND DATA SET CHANGE ONE AND DATA SET CHANGE TwO.
;*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR
'THE BIT AND VERIFY CLEAR. REPEAT FOR MRESET.

fitt'tit'.tt.t'tittttt.tt.tfitt'.'.fitt....Qtt.'t't'ttt'...."'t.

JINRARRKRRARRR
®

; TEST 22
.

» ttt'itt!t...

ttt'.tttttt.ttt.t.ti"'ttttttttttttt..tttt't'tfitt!tttt'.ttt'tt'tt..t

016224
016232
016240
016246
016252
016254
016260

012737
012737
012737

105737
001002
000137
105737
001773
105737
001770
005077
004137
016676

052777

000022
016706
016334
001322

001226
001216
001220

104401

#22,a#TSTNO
tTSTZ3.NEXT
#1%,L0CK

BNE
JMP

.+6
6%

TSTB

BEQ

1STB

001336

163076

010000
000010
000110
004000

163056

016370
163040

BIS
JSR

#MRESET,aTXCSR
PC,SMALL

CLR
BIS

(R3)
AMEXT ,@TXCSR

;CLEAR OUT EXTRA BITS
:ENTER EXTERNAL MAINT. MODE

MOV
BIT

#110,68%
#TIMER,®TXDBUF

66%:

;LOAD THE NUMBER
;CHECK THE TIMER BIT

004000

163030

67%:

BIT
BEQ
DEC
110
BNE
MOV
CMP
BEQ
g%6p1

#TIMER ,aTXDBUF
67%
(PC)+

MOV

1%:

68%:

000005
004000

016436

162772

71%:

004000

162762

72%:
73%:

040000

001220

2%:

108

SRUMF
L

;AND OPTIONAL JUMPER ARE USED
:AND LOADS RS (EXPECTED) ACCORDINGLY.
;RESET THE DEVICE
;WAIT FOR RESET TO FINISH

000400
005044
001404

STIJMFL

;CLEAR THE REGISTER

JSR

007332

TCNFLG

108
aRXCSR

BEQ
CLR

163104

016462

MOV
MOV
MOV

TSTB

10%:

016674
001334

000110
001365
011304
020504
001423
104003
012737
032777
001374
032777
001774
005327
000005
001365
032713
001000
012737

TSTZZ

BIS

BNE

MOV

BIT
BNE
BIT
BEQ
DEC

R1,0JUMPER

RXCSR,.R3

#5TD, (R3)

66$%

:THIS CALL DETERMINES IF TURNAROUND CONNECTOR

:LOAD THE RECEIVER CONTROL REGISTER TO R3.
;TURN ON STD

:BR IF SET

66%

(R3) R4
RS ,R4
2%
3

CHECK THE BIT
BR IF CLEAR
DECRE!‘ENT THE NUMBER
;OF TIMES TO REPEAT
*BR IF MORE TO GO
:GET THE BITS FROM THE RXCSR
RS GOOD R4=?
:BRANCH IF THEY MATCH
:NO MATCH - SHOW OPR.

#5,73%

:LOAD THE NUMBER

#TIMER,QTXDBUF
71%
#TIMER,QTXDBUF
72%
(PC)+

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

BNE
BIT

71%
#RING, (R3)

*BR IF MORE TO GO

MOV

#3%,L0CK

BNE

:0F TIMES TO REPEAT

:SW09 SETUP

SEQ 0061

MACY11 30A(1052)
02-MAY-78
CZDPCC
02-MAY-78 13:47
CZDPCC P11

3027
3028
3029
3030
3031
3032
3033
34

016456
016462
016464
016472
016500
016502
016510
016512
016514
016516
016520
016522
016524
016526
016530
016532
016540
016544
016552
016560
016562
016570
016572
016574

042705
005013
012737
032777
001374
032777
001774
005327
000005
001365
011304
020504
001402

002010

012737
052713
012737
032777
001374
032777
001774
005327
000005
001365
005005
005013
052777
004737
052777
012737
032777
001374
032777
001774
005327
000005

016540
000010
000005

104003
104401

13: 54 PAGE 63
MODEM CONTROL BITS STD AND SRD INTERACTION TEST

000005
004000

016514
162714

004000

162704

:CLEAR OUT UNWANTED BITS
:CLEAR OUT THE REGISTER
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
:READ BACK THE REGISTER
;R5=GO0OD Ré4=?
:BRANCH IF ONLY THE DSC BITS ARE SET
;NO-GO TELL OPR

(%:
58:

#58,L0CK
#STD, (R3)

sTURN ON STD

81%:

#TIMER, @TXDBUF

3%:
76%:
77%:
78%:

BIC
CLR
MOV

BIT
BNE
BIT
BEQ
DEC

#STD!SRD
RS
(R3)
#5,78%

#TIMER ,aTXDBUF

76%

#TIMER,aTXDBUF

77%
(PC)+
76%

(R3) ,R4
R5.R4

004000

001220

016574
162634
162624

82%:

83%:

000400
005044
010000

#5,83$
818

#TIMER
, @TXDBUF

82$

(PC)+

81%
RS
(R3)

AMRESET ,aTXCSR
PC,SMALL
#MEXT ,aTXCSR

162600

004000

162566
016654
162554

86%:

#TIMER ,aTXDBUF

004000

162544

87%:

#TIMER,aTXDBUF

88%:

#5,88%

86%
87%

(PC)+

86%
(R3)
(R3) ,R4

R5.R4

6%
3

6%:
e ¥

2011
2001

:SW09 SETUP

;LOAD THE NUMBER
sCHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
;BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO
;CLEAR OUT EXPECTED
:CLEAR OUT THE REGISTER
;RESET THE DEVICE

JWAIT FOR RESET TO FINISH
;TURN ON EXTERNAL MODE

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

:STRIP DSCA 8DSCB FROM (SR
;GET THE REGISTER
;R5=G00D ,R4=?

;BR IF 0K

:REPORT THE ERROR

:SW09=1?

;SCOPE THE WHOLE TEST

annnnannannnnnennnennnnnnn

TEST 23 wnnannnnnnnnnnnnnannnennnnn

;*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.

SEQ 0062

CZDPCC

MACY11 30A(1052)

CZoPCC.PM

_02-MAY-78

02-MAY-78 13:47

13:54

3086

3093
3094
3095

016706
016714
016722

012737
012737
012737

3097
3098

016734
016736

001002
000137

016746

001773

016756
016762
016766

3100
3101
3102

3103
3104
3105
3106
3107
3108

3109

3110

3111
3112
3113

3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134

3135
3136

3137

3138

AR AR R

R AR R AR AR AN RN R

RR AR

R RAN R AR RA R AR

R RS

SIRRRRRRRANRAR
:
.
; TEST 23
:
.

3087
3088
3089
3090

3099

SEQ 0063

;*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR
;*THE BIT AND VERIFY CLEAR. REPEAT FOR MRESET.

3085

3096

ALL MODEM CONTROL BITS INTERACTION TEST

3083
3084

3091
3092

PAGE 64

016730
016742

016750
016754

105737

001322

017356
001336

005077
004137
017360

162422
007332

016770
016776

052777
004737

000400
005044

017006

005013

017010
017016
017022

017030
017036
017040
017046
017050
017052
017054
017056
017060
017062
017064
017066
017070
017076
017104
017106
017114
017116
017120
017122
017124

017130
017132

017140
017144

013703

052777
052713
012737

032777
001374
032777
001774
005327
000110
001365
011304
020504
001423
104003
104401
012737
032777
001374
032777
001774
005327
000005
001365
032713

001000
012737

042705

005013

T1ST23:

. +6
63

TSTB

162374

1$:

004000

017052
162356

668%:

004000

162346

67%:

71%:

004000

162300

72%:
73%:

040000

001220

STJUMFL

108

SRUMFL
108

A#MRESET ,@TXCSR
PC,SMALL

CLR

(R3)

;CLEAR OUT EXTRA BITS

BIS
BIS
MOV

CLR

017120
162310

TCNFLG

BIS
JSR

38:

000005
004000

;CLEAR THE REGISTER
sTHIS CALL DETERMINES IF TURNAROUND CONNECTOR
;AND OPTIONAL JUMPER ARE USED
;AND LOADS RS (EXPECTED) ACCORDINGLY.
;RESET THE DEVICE
sWAIT FOR RESET TO FINISH

2%:

AR AR AR AR RN RR AR R R

aRXCSR
R1,0JUMPER

BIT
BNE
BIT
BEQ
DEC
110
BNE
MOV
cMP
BEQ
HLT
SCOP1
MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE
BIT
BNE
MoV

688%:

R AR AR AR AR

(LR
JSR
7%

MOV

010000
000016
000110

073016

BNE
JMP

TSTB
BEQ

001404

017144

#23 ,a#TSTNO
HTST24 NEXT
#18,L0CK

BEQ

162414

MOV
MOV
MoV

TSTB

108:

001334

105737
001770

017002

001226
001216
001220

000023
017370
017016

JINRRRRRRRN
KRR
IR
AR
AR AR R AR AR

BIC

RXCSR,.R3

;LOAD THE RECEIVER CONTROL REGISTER TO R3.

#MEXT ,@TXCSR
;ENTER EXTERNAL MAINT. MODE
#DTR!RTS!STD, (R3)
;TURN ON DTR!RTS!STD
#110,68%
:LOAD THE NUMBER
#TIMER,@TXDBUF
66%
#TIMER,QTXDBUF
67%
(PC)+
66$
(R3) ,R4
R5.Ré
2%
3
#5,73%
#TIMER,@TXDBUF
71%
#TIMER,QTXDBUF
72%
(PC)+

71%
#RING, (R3)
2%
#3%,L0CK

;CHECK THE TIMER BIT
:BR_IF SET
;CHECK THE BIT
;BR IF CLEAR
sDECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR_IF MORE TO GO
;GET THE BITS FROM THE RXCSR
;R5=G00D Ré4=?
;BRANCH IF THEY MATCH
;NO MATCH = SHOW OPR.
;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR_IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

: SW09 SETUP

#RING!CTS!CARDET!SRD!DSR!STD!RTS!DTR,RS
(R3)

;CLEAR OUT THE REGISTER

;CLEAR OUT UNWANTED BITS

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.PI
CZDPCC

3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158

017146
017154
017162
017164
017172
017174
017176
017200
017202
017204
017206
017210
017212
017214
017222
017226
017234
017242
017244
017252
017254

017256
017260
017262
017264
017266
017274
017300
017306
017314

017322
017324
017332
017334
017336

017340
017342
017344
017346
017350

012737
032777
001374
032777
001774
005327
000005
001365
011304
020504

mS
13:54 PAGE 65
ALL MODEM CONTROL BITS INTERACTION TEST

000005
004000

017176
162232

76%:

004000

162222

77%:
78%:

48:
5%:

017222
000016
000005
004000

001220
162152

81%:

004000

162142

82%:

017256

83s%:

000400
005044

010000
004000
004000

162116

162104

017336
162072

86%:

162062

87%:

88$%:

017356

MOV
BIT
BNE
BIT

#5,78%
#TIMER ,@TXDBUF
76$
#TIMER,QTXDBUF

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT

DEC
5
BNE
MOV
CMP
BEQ

(PC)+

RS5.R4
4%

;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;READ BACK THE REGISTER
;R5=G00D R4=?
JBRANCH IF ONLY THE DSC BITS ARE SET

MOV
BIS
MOV
BIT
BNE
BIT
BEQ
DEC

#5%,L0CK
:SW09 SETUP
#DTR!RTS!STD, (R3)
;TURN ON DTR!RTS!STD
;LOAD THE NUMBER
#5,83%
;CHECK THE TIMER BIT
#TIMER,@TXDBUF
IF SET
;BR
81%
THE BIT
;CHECK
UF
#TIMER,QTXDB
CLEAR
IF
:BR
82%
THE NUMBER
;DECREMENT
(PC)+

BEQ

HLT
SCOP1

5
BNE
CLR
CLR
BIS

JSR
BIS
MOV
BIT
BNE
BIT

BEQ

DEC
5
BNE
TST
MOV
CMP
BEQ
HLT

017352
017354

SCOP1

6%:
7$:

SEQ 0064

SCOPE

.WORD

.WORD
.WORD
.WORD

77%

76$
(R3) ,R4

81%
RS
(R3)
A#MRESET ,@TXCSR
PC,SMALL
#MEXT ,@TXCSR
#5,88%
A#TIMER ,QTXDBUF
86%
#TIMER,@TXDBUF
87%
(PC)+
86%
(R3)
(R3) R4
R5.R4
6%
3

173017

:BR IF CLEAR

;NO-GO TELL OPR

;OF TIMES TO REPEAT
;BR IF MORE TO GO
;CLEAR OUT EXPECTED
;CLEAR OUT THE REGISTER
;RESET THE DEVICE

;WAIT FOR RESET TO FINISH
;TURN ON EXTERNAL MODE
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT

:BR IF CLEAR

;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;STRIP DSCA EDSCB FROM (SR
;GET THE REGISTER
sR5=G00D ,R4=?
;BR IF OK
sREPORT THE ERROR

;SW09=1?

.SCOPE THE WHOLE TEST

173001
1016

cARRRRRRRRnnRrannnnnnnnnnn

TEST

snnnnnnnnnnnnnnnnnnnnnnnnes

s*TEST THAT SETTING TRANSMIT INTERRUPT

s*ENABLE AND TRANSMITTER DONE PRODUCE
;*AN INTERRUPT ON THE TRANSMITTER VECTOR.

2 IARAARARAAARAAANAAARNANAAARRAAARAAAARAAAARARRRRARARRRAARRRRRRRRES

":.t"."t'til

MACY11 30A(1052>
02-MAY-78
P11
02-MAY-78 13:47

PAGE 66
13:54
TRANSMITTER DONE BIT

SEQ 0065

INTERRUPT TEST

; TEST 24
hd

E;t.ttifittttt.
IR

012737
012706
000005
012737
052777
004737
004537
007254
017474

340
052777
005037
052777
000240
000240
000240
104027
012706
005077

104400

000024
017506
001150

001226
001216

000340

177776
161764

005044

TST24:

340
177776
000100

RN AR AR R AR AR AR

RN R AR

#STACK,SP

MOV
BIS
JSR
JSR

#340,PS
#MRESET ,@TXCSR
PC,SMALL
RS,SETVEC

;LOCK OUT INTERRUPTS
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;SET UP THE VECTORS

340,340

;PRIORITY

H#TXINTE,@TXCSR

;ZERO CPU PRIORITY
;TURN ON TXINT ENABLE

;DITTO
;DUP FAILED TO INTERRUPT

HTST2S NEXT

.BYTE

#SYSTST ,aTXCSR
PS

BIS
CLR

BIS

NOP
NOP

1%:

001150
161706

MOV

161726

A RN AR R AR

#24 ,aNTSTNO

NO.ATRAP

161740

R AR RN

MOV

RESET

007232

NOP
HLT

MOV

#STACK ,SP

aTXCSR

CLR
SCOPE

JVECTOR "A"'
;VECTOR B

;STALL
;DITTO

JRESET THE STACK

;DISABLE DUP11
;SCOPE THIS TEST

JRRRARARRRRRRRN AN R RN RANAAN AN

;«TEST

TEST 25

sasntannanntntnnantantatnns

TO VERIFY THAT A TRANSMITTER DONE

s*INTERRUPT WiLL ONLY OCCUR ONCE
:*TXCSR AND TXDBUF ARE

IF THE

*NOT* READ OR WRITTEN.

IINNRRRRNARRR R R AR AR AR R AR AR

RAA AR AR AR AR R RR

AR AR RN RN R RO ARt Rt e

JINRRRRRRRARR
.
.

; TEST 25

JIRRRRRRRRRRRR

052777
005037
000240
000240
000240
104027
000411

000025
017700
000340
000400
005044
007232
340
004000
000100
177776

001226
001216
177776
161654

TST25:

RN R AR AR AR AR AR R AR AR AR AR

MOV
MOV
MOV

BIS
JSR
JSR

#25,a4TSTNO
#TST26 NEXT
#340,PS

1630
1622

.BYTE
BIS
BIS
CLR
NOP

NOP
NOP
HLT
BR

A R AR RO R RO

;LOCK OUT INTERRUPTS
;RESET THE DEVICE

#MRESET ,@TXCSR
PC,SMALL
RS,SETVEC

JWAIT FOR RESET TO FINISH
;SETUP FOR INTERRUPTS

340,340
#SYSTST,aTXCSR
#TXINTE ,@TXCSR
PS

sLEVEL
;TURN ON CLOCK
;TURN ON INT. ENABLE
;LOWER PROCESSOR STATUS

NO.ATRAP
1%

——

012737
012737
012737
052777
004737
004537
007254
017650
340
052777

017370
017376
017404
017410
017412
017420
017426
017432
017436
017440
017442
017444
017452
017456
017464
017466
017470
017472
017474
017500
017504

012737

27
5%

JRECEIVER
s TRANSMITTER

;STALL

;DITTO
;DITTO
:DUP FAILED TO INTERRUPT
;LEAVE TEST

R R AR

02-MAY-78
CZDPCC MACYN 30A(1052)
02-MAY=-78 13:47
CZOPCC.PN

177776

28:

161566

48:

017606
017612
017614
017616
017620
017624
017626
017630
017636
017642
017646

005037

017650
017654

012716 017606

017660
017662
017664
017666
017670
017670
017672
017676

000240
000240
000240
105777
100401

104024
012737
005077
012706
104400
004537

007254
017670
340
000002

104026
012716
000002

000340
161550
001150

SEQ 0066

13:54 PAGE 67
ONLY ONE INTERRUPT PER TXDONE TEST

177776

007232

340

CLR

NOP
NOP
NOP
TSTB
BMI

@TXCSR
5%

58:

HLT
MOV

24
#340,PS

1$:

MOV

NO.ATRAP
23
BYTE
340,340
RTI

CLR
MOV
SCOPE

aTXCSR
#STACK , SP

#28, (SP)

RS, SETVEC

JSR

HLT
MOV
RTI

017620

26
#4S, (SP)

:LOWER PROCESSOR STATUS
*STALL
DITTO
DITTO
*CHECK THE DONE BIT
‘BR IF SET

“DONE IS CLEARED AND SHOULDN'T BE
*RAISE PROCESSOR STATUS
*CLEAR OUT DUP
‘RESET STACK
*SCOPE THIS TEST

;SET UP SECOND PART OF TEST

“SETUP FOR SECOND INTERRUPT TRY
*RECEIVER
;TRANSMITTER
*LEVEL
*RETURN

:REPORT THE FACT YOU GOT HERE
;SETUP FOR END OF TEST
*RETURN

"Qtttttitttilttti't'l.t.'*t

TEST 26

1223233333233 33323333333323 33 3]

“«TEST THAT SETTING DATA SET INTERRUPT
:*ENASBLE AND RECEIVING A DATA SET
*«CHANGE 1 OR DATA SET CHANGE 2
*«PRODUCES AN INTERRUPT TO THE
*«RECEIVER VECTOR

: :ttttttttttttti"t'tfi'tfilttttttfittttQlt'fitfi'ttt'.t'tttttttii'.t

::t.tt'tt*tttt
.

* TEST 26
.

:':tttfi‘ttttttt
.' :tfitttttfittttttttttttttttttttififittttitfi!'tttttttittttttifi'*.t"ttlt't

012737
012737
105737

001002

000137
012737
012737
052777

004737
052777
004537
020054
007260
34
005037
052777
052777

000026
020216
001322

020204
017774
000340
000400

005044
010000
007232

004000

TST26:

MOV
MOV

TSTB

BNE
001220
177776
161442
161430

340

177776
000040
000004

012737 000005
032777

001226
001216

161376
161370

020044

161364

1$:

66%:

#26,a4TSTNO
#TST27 NEXT
TCNFLG

.46

JMP
MOV
MOV
BIS

5s
#1$,L0CK
#340,PS
#MRESET ,@TXCSR

MOV

#5688

PC, SMALL
JSR
BIS
MMEXT.@TXCSR
JSR
RS, SETVEC
2%
NO.BTRAP
.BYTE
340,340
CLR
PS
BIS
#DSINTE ,@RXCSR
BIS
#RTS ,aRXCSR

;SW09 SETUP
*LOCK OUT INTERRUPTS
:RESET THE DEVICE
*WAIT FOR RESET TO FINISH
:ENTER MAINT EXTERNAL MODE
*SET UP VECTORS
*RECEIVER
*TRANSMITTER
*PRORITY AT 7
*LOWER PS
:TURN ON INT. ENABLE
*TURN ON INT. BIT

BIT

:CHECK THE TIMER BIT

#TIMER,3TXDBUF

*LOAD THE NUMBER

02-MAY-78
CZDPCC MACY11 30A(1052)
13:47
-78
.PN
02-MAY
CZOPCC
001374
032777
001774
005327
000005
001365

161354

67%:

1046022

2%:
001220

161264

3$:

161252

020162

161246

71%:

161236

72%:
73%:

104022
104401
161204

VI~

5%:

w=bd

-b

8—.
o

020204
020210
020214

005077
012706

a-d

001001
104023

SEQ 0067

718
22

;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO
;FAILED TO INTERRUPT
:SW09=1
:RESET THE STACK
;CLEAR OUT RECEIVER CONTRL REGISTER.
:SW09 SETUP
:SET THE VECTORS
sRECEIVER
; TRANSMITTERS
;PRIOR @7
:LOAD TEMP1
;TURN ON INT. ENABLE
;LOWER CPU STATUS
;PUSH OUT INT. BITS
;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
OF TIMES TO REPEAT
BR IF MORE TO GO
FAILED TO INTERRUPT

BIT
BNE
HLT

#BIT15,aRXCSR
5%
23

;CHECK FOR INTERRUPT FROM DSC1
;1T CAME FROM DSC1
;BIT15 IS CLEARED = INTERRUPTED

CLR
MOV
SCOPE

aRXCSR
#STACK,SP

sCLEAR OUT RECEIVER CONTROL REG
JRESET THE STACK
:SCOPE THIS TEST

66$
HTIMER,@TXDBUF

BNE
BIT

BEQ
DEC
5
BNE
HLT

67%
(PC)+

66%
22

SCOP1
MOV
CLR
MOV
JSR

#STACK,SP
aRXCSR
#3%,L0CK
R5,SETVEC

MOV
BIS
CLR
BIS

#5.,TEMP1
#DSINTE ,@RXCSR
PS
#DTR,3RXCSR

4%
NO.BTRAP
340,340
.BYTE

#110.,73%
#TIMER,@TXDBUF
718
#TIMER,3TXDBUF
72%
(PC)+

MOV
BIT
BNE
BIT
BEQ
DEC
110.
BNE
HLT

SCOP1

032777

RECEIVER DATA SET CHANGE BITS INTERRUPT TEST

68%:

001236

PAGE 68

13: 54

104400

:BIT09=1?

;FROM THE WRONG DSC BIT.

ttttttt'ttttt'ttttttttttfit TEST 27 AXARRAXARRARARARRRARR
KA AR AR

;*TEST THAT SETTING RECEIVER INTERRUPT

AN
:*ENABLE AND RECEIVER DONE CAUSES
;*INTERRUPT TO THE RECEIVER VECTOR

020216
020224
020232
020240
020246
020252
020260

012737
012737
012737

000027
020476
000340
000400
005044
004000
007232

—.-. Ses.s.nan,

2 AR

161132

A AR AR AR AR AR AR AR

AN AR AR AR R AR

AR AR AR AR AR

AR AR AR

AR A AR AR A AR AR
*

TEST 27
*
AR
A AR AR AR AN

AR AR AR AR AR AR AR RN AR

STZ?:

161144

AR AR AR AR AR AR AR AR AR AR

#27 ,a#TSTNO
#TST30 NEXT
#340,PS

#MRESET ,aTXCSR
PC,SMALL
#SYSTST ,aTXCSR

R5,SETVEC

AR AR AR AR AR

;LOCK OUT INTERRUPTS
;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
sENTER SYSTEM TEST MODE
:SET UP VECTORS

CZDPCC

MACY11 30A(1052)

CZDPCC.P11

02-MAY-78

02-MAY-78 13:47

3s
NO.BTRAP

020264
020266

020460
007260

3366
3367
3368
gggg

020270
020276
020304
8%8%}8

005037
052777
052777
052777

177776
000020
000100
000020

161100
161072
161072

020320
020326
020334
020336
020344
020346
020350
020352
020354

012737
032777
001374
032777
001774
005327
000005
001365
032777

000005
004000

020350
161060

66%:

004000

161050

67%:

000200

161030

012777

000400

161020

3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381

3382

3383

3384
3385
3386
3387
3388
3389
3390

3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
%28%

020270

020362
020364

020366

020374
020400
020402
020406
020412
020414
020422

020430
020436
(020440
020446
020450
020452
020454
020456
020460
020464
020470
020474

340

001001
104024

105777
100375
005077
105777
100375
012777
012737
032777
001374
032777
001774
005327
000050
001365
104022
012706
005077
005077
104400

.BYTE

340

68%:

161012

2%:

001000
000050
004000

160772
020452
160756

71%:

004000

160746

72%:
73%:
3%:

3404

340,340

*PRIORITY AT 7

PS
#RCVEN,aRXCSR
#RINTEN,3RXCSR
#SEND ,aTXCSR

LOUER PS
;TURN ON RECEIVER
;TURN ON INT. ENABLE
:TURN ON TRANSMITTER

MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE
BIT

#5,68%
#TIMER,QTXDBUF
66%
#TIMER,3TXDBUF
67%
(PC)+

BNE
HLT

66%
#TXDONE ,@TXCSR
2%
24

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
BR IF MORE TO GO
;TEST TXDONE

MOV

#4600, aTXDBUF

aTXCSR
.~4
@ TXDBUF
@TXCSR
=4
#1000, aTXDBUF
#40.,73%

ATIMER,QTXDBUF
71%
#TIMER,aTXDBUF
72%
(PC)+
71%
22
#STACK,SP
aRXCSR
aTXCSR

BR IF SET
;TXDONE FAILED TO SET

;LOAD TX BUFFER

;CHECK FOR
s DONE
;CLEAR TX BUFFER
;AND CHECK
;FOR DONE
;LOAD END OF MSG
;LOAD THE NUMBER

;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
BR IF MORE TO GO
JRECEIVER FAILED TO INTERRUPT
RESET STACK
;CLEAR OUT REGISTER
DITTO
;SCOPE THIS TEST

:«TEST TO VERIFY THATA RECEIVER DONE
'INTERRUPT WILL ONLY OCCUR ONCE IF THE
*RXCSR AND RXDBUF ARE NOT READ OR WRITTEN

3408

_4. Ses.nan.n,

3409

O NOWVESHWN—=O

JRECEIVER
;TRANSMITTER

IRRRRRRARRRRRRRR
R nnnnnnn TEST TO AAAARARARRRARARRRRRRA
KRR RS

3405
3406
3407

SEQ 0068

CLR
BIS
BIS
BIS

TSTB
BPL
CLR
TSTB
BPL
MOV
MOV
BIT
BNE
BIT
BEQ
DEC
40.
BNE
HLT
MoV
CLR
CLR
SCOPE

161006
161000

001150
160714
160716

RECEIVER DONE BIT INTERRUPT TEST

3363
3364

3365

PAGE 69

13:54

AR AR AR AR AR AR AR

RN AR

RN AN AR AR AR AR AR

AR AR

R AR AR

kAR
AR ARk
-

TEST 30
«

; soasessncenee

020476

012737

000030

001226

020512

012737

000340

177776

020504

012737 021056 001216

AR AR AR AR

ST30

MOV

AR AR AR R AR AR

AR R AR AR R AR

AR RRRANRRRRRNRRRRRRRRRRN

#30,a#TSTNO

#TST31 NEXT
#340,PS

;LOCK OUT INTERRUPTS

02-MAY-78
CZOPCC MACY11 3UA(1052)
CZOPCC.P1
02-MAY-78 13:47
052777

052777
052777
052777
012737
032777
001374
032777
001774
005327
00000

000400
005044
004000
007232
340
000020
000100
000020

E 6
13: 54 PAGE 70
ONLY ONE INTERRUPT PER RXDONE TEST

160664

BIS

#MRESET ,aTXCSR

160652

BIS
JSR
6%

#SYSTST ,aTXCSR
R5,SETVEC

.BYTE
BIS
BIS

340,340
#RCVEN,3RXCSR
#RINTEN,aRXCSR

MOV
BIT
BNE

#5,68%
#TIMER,aTXDBUF
66$

BEQ
gEC

67%
(PC)+

JSR

NO.BTRAP

160624
160616
160616

BIS

000005
004000

020624
160604

66%:

004000

160574

67%:
68%:

000200

160554

000400
160536

160544

2%:

160532
160524

#TIMER,aTXDBUF

BNE
BIT
BNE
HLT
MOV

66%
#TXDONE ,a@TXCSR
2%
24
#TSOM,aTXDBUF

BPL
CLR

.~4
aTXDBUF

TSTB
TSTB

aTXCSR
aTXCSR

BPL
MOV
CLR

.~4
#TEOM,aTXDBUF
PS

160516

012737
032777
001374
032777
001774
005327
000050
001365
104022
000420

000050
004000

020732

160476

71%:

BIT

#TIMER,aTXDBUF

004000

160466

72%:

BIT

#TIMER,aTXDBUF

DEC
40.

(PC)+

032777

004000

160444

032777
001774
012737
033777
001001

004000

160434

000340
000200

177776
160406

001374

104024

021026

#SEND ,@TXCSR

001000
177776

021024

BIT

PC,SMALL

012737
005077
005077
012706
104400

10%:

73%:

000340
160370
160366
001150

177776

3%:

74%:

75%:

5%:

6%:

BNE

BEQ

BNE

718
72%

718

HLT

BIT
BNE

#TIMER,aTXDBUF
74%

BIT
BEQ
MOV
BIT
BNE
HLT

MOV

CLR
CLR
MOV
SCOPE

#TIMER,aTXDBUF
75%
#340,PS
RXDONE ,aRXCSR
5%
24

#340,PS

aRXCSR
aRXDBUF
#STACK,SP

SEQ 0069

JRESET THE DEVICE
sWAIT FOR RESET TO FINISH

sENTER SYSTST MODE

;SETUP VECTORS
;RECEIVER VECTOR

s TRANSMITTER VECTOR

sLEVEL

sTURN ON RECEIVER
;TURN ON INT. ENABLE
sTURN ON TRANSMITTER

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
:CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO
;TEST TXDONE

JWAIT

:TXDONE FAILED TO SET

;LOAD TX BUFFER
;CHECK DONE
;AND THEN
;LOAD BUFFER
;AND CHECK
;DONE AGAIN, THEN
;SET END OF MSG
;LOWER PS

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
:DECREMENT THE NUMBER
:0F TIMES TO REPEAT
;BR IF MORE TO GO
:RECEIVER FAILED TO INTERRUPT
;LEAVE

;CHECK
;BR IF
;CHECK
:BR IF
;JRAISE

THE TIMER BIT
SET

THE TIMER BIT
CLEAR
PS

;TEST RXDONE

;BR IF SET

:RXDONE IS NOY SET AND SHOULD BE

;LOCKOUT INTERRUPTS
:CLEAR OUT DEVICE
;DITTO
:RESET THE STACK
;SCOPE THIS TEST

MACY1T 30A(1052)
_02-MAY-78
CZDPCC
02-MAY-78 13:47
CZDPCC P11

3475
3476
3477

021026
021032
021036
021040
021042
021044
021046
021046
021050
021054

012716
004537

020742
007232

340

012716
000002

PAGE 71

13:54

SEQ 0070

ONLY ONE INTERRUPT PER RXDONE TEST
MOV

#3%,(SP)

;2ND PART SETUP

JSETUP FOR SECOND INTERRUPT TRY

RS5,SETVEC

JSR

7%
NO.BTRAP
.BYTE
340,340

JRECEIVER VECTOR
;TRANSMITTER VECTOR
sLEVEL

RTI

021002

JRETURN

HLT

JREPORT THE FACT YOU GOT HERE

MOV

#5%,(SP)

;SETUP TO LEAVE TEST

RTI

:YOU TOOK A SECOND INTERRUPT AND SHOULDN'T H*AVE
sLEAVE

IRRRRRARRARAAR AR RNRARRARR

TEST 31

Axsaaaranthtakhhkhrrhhktens

:*TEST TO VERIFY THAT INTERRUPT VECTOR 'A'’

:*0CCURS BEFORE INTERRUPT VECTOR 'B'' EVEN
:*WHEN VECTOR 'B'' IS ENABLED BEFORE

;*«VECTOR "A"'

IR AR AR AR AR R

R R R

AR AR AR RN

AR R

R AR R AR AR AR AR AR

coRRAR
AR AR AR
*

TEST 31
®

IRRRRA
AR RAAR

012737
012737
012737
052777

000031
021416
000340
000400

001226
001216
177776
160304

P IRRRAR

AR AR AR AR AR R AR AR

TST31:

MoV

MOV

MOV
BIS
JSR
JSR
4%

160260
160244
160236
160234
160230

052777

000020

012737
032777
001374
032777
001774
005327
00000

000005
004000

021212

160216

66%:

004000

160206

67%:

032777

000200

1%:

68%:
160166

021242
021244

012777

000400

005077

160144

105777
100375

160150

160156

RRARRRA RN RRA

AR AR RO

#31,a#TSTNO

#TST32 NEXT
#340,PS
#MRESET ,@TXCSR
PC,SMALL
R5,SETVEC

NO.BTRAP
.BYTE
340,340
#SYSTST ,@TXCSR
BIS
#RCVEN,aRXCSR
BIS
BIS
#RINTEN,3RXCSR
BIS
#CRCEN,aPARCSR
#SEND ,@TXCSR
BIS

;SET PRIORITY TO 7
;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;SET UP THE VECTORS
sRECEIVER VECTOR

s TRANSMITTER VECTOR
sLEVEL
;ENTER SYSTEM TEST MODE
;TURN ON RECEIVER
;TURN ON REC. DONE INT. ENABLE
;TURN OFF CRC
sTURN ON TRANSMITTER

MOV
BIT
BNE
BIi
BEQ
DEC
5
BNE
BIT
BNE
HLT

#5,68%
#TIMER,3TXDBUF
66%
#TIMER,QTXDBUF
67%
(PC)+

66%
#TXDONE ,@TXCSR
2%
24

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;TEST TXDONE
;BR IF SET
;TXDONE FAILED TO SET

MOV
égIB

#400,aTXDBUF
iTzCSR

;LOAD TX BUFFER
sCHECK FOR

CLR

aTXDBUF

;LOAD THE BUFFER

s DONE

R RN

CZDPCC

MACY11 30A(1052)

CZDPCC.PIN
3531
3532

3533
3534
3535
3536

3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
%ggg

02-MAY-78

02-MAY-78 13:47

021250
021254

021256
021264
021272
021300
021302
021310
021312
021314
021316
021320
021324

021326
021330
021336
021340
021342
021350
021354
021362
021364
021372
021374
021376
021402
021410
021414

105777
100375

012777
012737
032777
001374
032777
001774
005327
000144
001365
105777
100401

104024
032777
001001
104024
052777
005037
032777
001374
032777
001774
104027
012706
052777
004737
104400

13:54

PAGE 72

SEQ 0071

DUAL VECTORING=--RECEIVER BEFORE TRANSMITTER===TEST

160136

001000
000144
004000

160130
021314
160114

71%:

004000

160104

72%:

73%:

160060
000200

160054

5%:

000100
177776
004000

160042

3$:

160032

74$:

004000

160022

75%:

001150
000400
005044

160002

4%:

aTXCSR
.~4

TSTB
BPL
MOV
MOV
BIT
BNE
BIT
BEQ
DEC
100.
BNE
TSTB
BMI]
HLT
BIT
BNE
HLT
BIS
CLR
BIT
BNE
BIT

#1000,aTXDBUF
#100.,73%
#TIMER,aTXDBUF
718
#TIMER,@TXDBUF
72%
(PC)+
71%
aRXCSR
5%

24
#TXDONE ,aTXCSR
3%
24
#TXINTE ,@TXCSR
PS
#TIMER,QTXDBUF
74%
#TIMER,aTXDBUF
75%
27
#STACK,SP
#MRESET ,@TXCSR
PC,SMALL

BEQ
HLT
MOV
BIS
JSR
SCOPE

sAND CHECK
;DONE AGAIN
;LOAD TEOM
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
s CHECK DONE
;BR IF SET
;DONE FAILED TO SET
;TEST TXDONE
sBR IF SET
;TXDONE NOT SET SHOULD BE
;TURN ON TRANSMITTER INT. ENABLE
;LOWER PROCESSOR STATUS
;CHECK THE TIMER BIT
;sBR IF SET
;CHECK THE TIMER BIT
;BR IF CLEAR
;DUP FAILED TO INTERRUPT
JRESET THE STACK
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;SCOPE THIS TEST

3560

annnnnnnnnnnnnnnnnnnnnnnns TEST 32 snnnwnnnnnnnnnnnnnnnnnnnnns

3564

3561
3562
3563

;*TEST TO VERIFY THAT SERVICING THE
;*TXDONE BIT RE-ARMS THE INTERRUPT
;*LOGIC IF INTERRUPT ENABLE IS SET.

3565

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

3566

IIRRRRRRARARAR

3568
3569

; TEST 32
:

3571

3567
3570

3572

3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586

RN AR AR AR

R RN,

JIRRRRRRRRRANR

021416

021424
021432
021440
021446
021452
021456
021460
021462
021464
021472
021500
021504
021512

012737

000032

001226

340
004120

157720

012737
012737
052777
004737
004537
007254
021636
340
052777

021724
000340
000400
005044
007232

052777
005037
012737
032777

000400
177776
000005
004000

001216
177776
157744

T1ST32:

157714

021534
157674

66%:

MOV

AR AR R AR AR

#32,a#TSTNO

R R AR AR AR AR AR R AR AR AR AR

AR AR R

MOV
#TST33 NEXT
MOV
#340,PS
;LOCK OUT INTERRUPTS
BIS
#MRESET ,@TXCSR ;RESET THE DEVICE
JSR
PC,SMALL
sWAIT FOR RESET TO FINISH
JSR
R5,SETVEC
s INTERRUPT VECTOR SETUP
NO.ATRAP
JRECEIVER VECTOR
49
sTRANSMITTER VECTOR
.BYTE
340,340
sLEVEL
BIS
#SYSTST!SEND
! TXINTE ,@TXCSR ;TURN ON TRANSMITTER, CLOCK
JAND INTERRUPTS
BIS
#TSOM,aTXDBUF
;LOAD START OF MSG
CLR
PS
;LOWER PROCESSOR STATUS
MOV
#5,68%
;LOAD THE NUMBER
BIT
#TIMER,@TXDBUF ;CHECK THE TIMER BIT

02-MAY-78
MACY11 30A(1052)
CZDPCC
02-MAY-78 13:47
CZDPCC P11

001374
032777
001774
005327
000005
001365

106027
000427
005037

012737
032777
001374
032777
001774
005327

004000

13:54

157664

021600
157630

71%:

004000

157620

72%:

000340
001150

177776

032777
005077
012737
032777
001374
032777
001774
005327
000005
001365
012716
004537
007254
021610
340
000002

000200
157544
000005
004000

157546

(%:

021700
157530

76%:

004000

157520

77%:

021722

SEQ 0072

;giflER.aTXDBUF
#TIMER,aTXDBUF

72%

(PC)+

71%

27
3%

MOV

BIT
BNE
BIT
BEQ
DEC
5
BNE

76%

77%
(PC)+
76%

#1%8,(SP)

NO.ATRAP

340

R5,SETVEC

340,340

.BYTE

RTI

#TXDONE ,@TXCSR
aT XDBUF
#5,78%
#TIMER ,aTXDBUF

Eg: EAILED TO INTERRUPT AFTER SERVICING DONE

:SCOPE THIS TEST
;CLEAR DONE AND RE-ARM INTERRUPT
;LOAD BUFFER
;LOAD THE NUMBER

#TIMER,aTXDBUF

MOV
JSR

;OF TIMES TO REPEAT
:BR IF MORE TO GO

#340,PS

#STACK,SP

SCOPE
BIT
CLR

:LOWER PROCESSOR STATUS
;LOAD THE NUMBER
sCHECK THE TIMER BIT
;BR IF SET
sCHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER

;SHUT DOWN THE DUP
;SETUP TO END TEST
JRETURN
;RAISE PROCESSOR STATUS

aTXCSR
#3%,(SP)

CLR

MOV
RTI
MOV
MOV

021544
007232

;OF TIMES TO REPEAT
:BR IF MORE TO GO

;DUP FAILED TO INTERRUPT THE FIRST TIME

BIT

78%:

;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
sDECREMENT THE NUMBER

sLEAVE THE TEST

BNE
BIT
BEQ
DEC
5
BNE
HLT

3%:

JRESET STACK

;CHECK THE TIMER BIT

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

;OF TIMES TO REPEAT
:BR IF MORE TO GO
sSETUP TO FINISH TEST

;SETUP VECTORS FOR NEXT PART OF TEST
*RECEIVER VECTOR
s TRANSMITTER VECTOR

sLEVEL

JRETURN

sennnnnnnnnnnnnnnnnnnnnnnnt

TEST

s*TEST TO VERIFY THAT SERVICING THE
;*RXDONE BIT RE-ARMS THE INTERRUPT
;*LOGIC IF INTERRUPT ENABLE IS SET.

annnnnnnnnnnnnnnnnnnnnnnnns

::.!t.tttttt!ttt't'.itttt.filt..'fi.'tt'...'t‘.tt'tttll.tt'.t'.tlt
AL E
IR I

104400

(PC)+

(LR

2%:

157576
021622

67%

MOV

73%:

005077
012716
000002
012737
012706

#TIMER,aTXDBUF

1%:

177776
000005
004000

66%

BNE
BIT
BEQ
DEC
5
BNE
HLT

67%:
68%:

000005
001365
104027
000405

TXDONE BIT RE-ARM INTERRUPT TEST

SRS

S
“

TEST 33
.

021520

PAGE 73

IANRRARARRARR

AR AR AR AR

R AR AR AR AR AR RN R AR AR AN AN AN AR AR AR R N AR R AR R AR R R R R AR R AR

R AR

CZDPCC MACY11 30A(1052) 02-MAY-78
CZOPCC.PN
02-MAY-78 13:47
021724
021732
021740
021746
021754
021760
021766
021772
021774
021776

012737
012737
012737
052777

000033
022316
340

6
I
13:54 PAGE 74
RXDONE BIT RE-ARM INTERRUPT TEST

001226
001216
177776
157436

TST33:

157424

157376

052777
052777
052777

157370

012737
032777
001374
032777
001774
005327

1%:

022052
157356

66%:

157346

67%:
68%:

000200
177776
000400
157304

157326

157312

2%:

340,340

BIS
BIS
BIS

#RCVEN,aRXCSR
#RINTEN,aRXCSR
#SEND ,@TXCSR

MOV

#5,68%

BIT

#TIMER,aTXDBUF

BNE
BIT
BNE

66%
#TXDONE ,@TXCSR
2%

MOV

#400,aTXDBUF

BPL
CLR

.~
aTXDBUF

BPL
MOV

.~4
#1000, aTXDBUF

MOV
BIT

#40.,73%
#TIMER,aTXDBUF

BNE
BIT
BEQ
gec

HLT
CLR

T1STB

012777

001000

157264

012737
032777
001374
032777
001774
005327
000050
001365
104022
000445
005037
012737
032777
001374
032777
001774
005327
000005
001365

000050
004000

022160
157250

004000

157240

000423

.BYTE

TSTB

157300
157272

022232

#33,a#TSTNO
#TST34 NEXT
#340,PS
#MRESET ,aTXCSR
PC,SMALL
#SYSTST,aTXCSR
RS,SETVEC

4%
NO.BTRAP

104022

MOV
MOV
MOV
BIS
JSR
BIS
JSR

7%:
71%:

72%:

73%:

BNE
BIT
BEQ
DEC
40.

BNE

HLT

177776

3%:

000005
004000

022224
157204

76%:

004000

157174

77%:
78%:

66$%
#TIMER,aTXDBUF
67%
(PC)+

24
PS

@TXCSR

71%
#TIMER,aTXDBUF
72%
(PC)+
71%

MOV
BIT
BNE
BIT
BEQ
gEc

#5,78%
#TIMER,TXDBUF
76%
#TIMER,aTXDBUF
77%
(PC)+

BNE

HLT
8R

;LOCK OUT INTERRUPTS
;RESET THE DEVICE

;WAIT FOR RESET TO FINISH
JENTER SYSTST MODE
;SETUP VECTORS

;RECEIVER VECTOR

;TRANSMITTER VECTOR

sLEVEL
:TURN ON RECEIVER
;TURN ON INT.

ENABLE

:TURN ON TRANSMITTER

;LOAD THE NUMBER
sCHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
sDECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
s TEST TXDONE

;BR IF SET
;TXDONE FAILED TO SET
;LOWER PROCESSOR STATUS
;LOAD TX BUFFER

aTXCSR

CLR

SEQ 0073

76%

22
6%

;LOAD THE NUMBER

;CHECK THE TIMER BIT

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

:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;RECEIVER FAILED TO INTERRUPT
:GET OUT OF TEST
;LOWER STATUS
;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

:Eg:VEA{%ED TO INTERRUPT AFTER SERVICING DONE

MACY11 30A(1052)
02-MAY-~78
CZDPCC
02-MAY-78 13:47
CZDPCC P11

3699

3700
3701

3702
3703

022234
022242
022246

032777

157142

340

3704

3705
3706
3707
3708

3709

3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726

000200
022170
007232

J
6
75
PAGE
13:54
RXDONE BIT RE-ARM INTERRUPT TEST

022314

052777
004737
012716
000002
012737
012706
104400

000400
005044
022302

157122

000340
001150

177776

#RXDONE ,aRXCSR
#3%,(SP)
MOV
RS,SETVEC
JSR
5%
NO.BTRAP
BYTE
340,340

($:

BIT

RTI

6%:

SEQ 0074

;SERVICE THE DONE BIT

;SETUP FOR 2ND PART OF TEST
;SETUP NEW VECTORS
sRECEIVER VECTOR
;TRANSMITTER VECTOR
sLEVEL
;GO FINISH TEST

BIS
JSR
MOV

AMRESET ,@TXCSR
PC,SMALL
#6$, (SP)

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;SETUP TO FINISH TEST

MOV
MOV

#340,PS
#STACK,SP

sRAISE PROCESSOR STATUS
JRESET THE STACK

RTI

SCOPE

;LEAVE

;SCOPE THIS TEST

ennnannnnnnnnnnnnnnnnanenn

TEST

snnnnnnnnnnnnnnntennnnnnnnn

s*TEST TO PROVE AN INTERRUPT REQUEST
;*]1S GENERATED WHEN AN ABORT IS RECEIVED.

;:fi.'t!.t..fi.t'"t'..itit't..t'..tt...tttt.tfifitttt.tt'l't'.tt"t
JIRRRRRRRRRRAR
*

: TEST 34
.

E;tfit.tt'ttttt
;:ttttttttttt.tttttttt.'tttttfitttt.t.titttttttttlttlttt"'ttt'ttt'ttt'

022316
022324
022332

012737
012737
012737

000034
022576
000340
005044
004000
007232
340
177776
000120

000020
004000

001226
001216
177776
157044

TST34:

BIS
BIS

157000
157000
156766

66$:

156756

67%:

68%:

022470
022472
022476
022502

156716
156710

156730

#34 ,a#TSTNO

HTST35 NEXT
#340,PS
#MRESET ,@TXCSR

1$:

;LOCK OUT INTERRUPTS
;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;ENTER SYS TST MODE
;SET UP VECTORS
;RECEIVER
s TRANSMITTER
sLEVEL
;LOWER PROCESSOR STATUS

MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE

#RCVEN'RINTEN,@RXCSR ;TURN ON RECEIVER AND INTERRUPT ENABLE
sTURN ON TRANSMITTER
#SEND ,@TXCSR
;LOAD THE NUMBER
#5,68%
#TIMER,@TXDBUF
;CHECK THE TIMER BIT
:BR IF SET
66%
;CHECK THE BIT
#TIMER,QTXDBUF
67%
:BR IF CLEAR
;DECREMENT THE NUMBER
(PC)+
;OF TIMES TO REPEAT
;BR IF MORE TO GO
66%

BMI
HLT

1%
4

sBR IF SET
;DONE FAILED TO SET

.~4
aTXDBUF

;BR IF NOT SET
;PUSH OUT A CHARACTER

;BR IF NOT SET

TSTB

156740

000400
156722

MOV
MOV
BIS

PC,SMALL
JSR
BIS
#SYSTST,@TXCSR
R5,SETVEC
JSR
2%
NO.BTRAP
.BYTE
340,340
PS
CLR

157032

022442

MOV

aTXCSR

MOV
TSTB

#TSOM,aTXDBUF
aTXCSR

TSTB

aTXCSR

BPL
CLR
BPL

s TEST DONE

;LOAD TX BUFFER
;CHECK FOR DONE
;WAIT FOR DONE

CZDPCC

MACY11 30A(1052)

CZDPCC.PN

3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
g;;?

02-MAY-78

02-MAY-78 13:47

022504
022512
022520
022526
022530
022536
022540
022542
022544
022546

022550

022556
022562
022570
022574

052777
012737
032777
001374
032777
001774
005327
000113
001365
104022

012737

012706
052777
004737
104400

13:54

ABORT INTERRUPT TEST

002000
000113
004000

156702
022542
156666

71%:

004000

156656

72%:

73%:

000340

001150
000400
005044

177776

SEQ 0075

PAGE 76

2%:

156622

BIS
MOV
BIT
BNE
BIT
BEQ
DEC
79,
BNE
HLT

#TABORT ,@TXDBUF
#75.,75%
#TIMER,TXDBUF
71%
#TIMER,aTXDBUF
72%
(PC)+

MOV

#340,PS

71%
22

#STACK,SP
#MRESET,aTXCSR
PC,SMALL

MOV
BIS
JSR

SCOPE

;SET ABORT
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;JBR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
JRECEIVER FAILED TO INTERRUPT
JON AN ABORTED MESSAGE
;SET STATUS T0 7
JRESET THE STACK
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

3772

IRRRRARRRA AR

3779
3780
3781

:«ANY KEY ON THE TTY. AFTER 16 TIMES PUT DOWN SWO9 TO LEAVE
:NOTE: REMEMBER=--=IN SDLC A ONE IS A LOGIC LOW IN THE

3773
3774
3775
3776
3777
3778

R RRR R RANNAR TEST 35 Aanaaaaanasrkaanhhhhtanhhhns

:«THIS TEST IS AN AID FOR DEBUGGING CRC
:*ERRORS. A CHARACTER IS LOADED INTO THE
;*DUP AND PUSHED OUT BIT BY BIT WHILE
:*ALLOWING THE OPERATOR TO MONITOR THE CRC
:*CHARACTER AS IT IS GENERATED. THE DATA CHARACTER
:*CAN ALSO BE CHANGED BY THE OPERATOR.
;*PUT SW09=1 TO LOCK ON BITS. TO CONTINUE HIT

3782

;CRC GENERATOR.

3783
3784 .

AR
JIRRRRRANRRARAR

3785

AR AR AR AR AR AR R

R R AR AR AR AR R AR

3787

3789

IR AR AR AR AR AR AR AR R AR R AR AR R AR AR

; TEST 35

3786

3788

022576
022604
022612

012737
012737
052777

000035
002764
000400

3795

022632

012737

000125

3796
3797
3798
3799
3800
3801
3802

3803
3804
3805

3806

R AR AN

IIRNRRRRRRAARK

3790
3791
3792

3793
3794

R AR AN AR R AR R R AR R

022620
022624

022640
022646
022654
022662
022666
022672
022676

022702
022710
022716
022724

3807

022732

3809
3810

022744
022750

004737
012737

013737
012737
013737
005037
005037
005037
005077

052777
052777
052777
012777

005044
102010

001226
001216
156572

014574

023000

023000
177777
014600
001242
001244
001246
156512

001252
014600
023002

000400

156462

014000
000020
000020

104412

000044

104412

000020
000002

TST35:

104412

MOV
MOV
MOV
CLR
CLR
CLR
CLR

3%, SAVR1
#-1,CALBCC
CALBCC,4%
TEMP3
TEMPS
TEMPS
aTXDBUF

MOV

PKCLK

MOV
1$:

AR AR R AR R R AR RS

#35,a#TSTNO
#.EOP NEXT
#MRESET ,@aTXCSR ;RESET THE DEVICE
PC,SMALL
JWAIT FOR RESET TO FINISH
#CRC.CCITT XPOLY
;LOAD THE POLYNOMIAL

BIS
BIS
BIS

3808 022736 013777 023000 156450

R AN AR R AR AR

MOV
MOV
BIS
JSR
MOV

MOV

156502
156466
156466

AR R R

PKCLK
PKCLK

#125,3%

:LOAD DATA TO SOF TWARE BCC-CHANGE CHARACTER HERE
;CLEAR FOR SOF TWARE BCC
;CLEAR BIT COUNTER

36.

JRESET TXDONE
JENTER MAINT MODE-PROGRAM CLOCKING
;TURN ON RECEIVER
:TURN ON TRANSMITTER
;
:PUSH OUT 2

,16.
2

:PUSH OUT ANOTHER
sPUSH OUT A BIT

#MMODE ,@TXCSR
#RCVEN,aRXCSR
#SEND ,aTXCSR
#TSOM, aTXDBUF

$$, aTXDBUF

:LOAD DATA

MACY11 30A(1052)
02-MAY-78
CZDPCC
CZDPCC PN
02-MAY-78 13:47

022754

013737
005237
005237
004537
000001
000000
000000
004737
000241
106037

013737

023056

012777
022737

023064
023066
023074
023100

001331
052777
004737

023102
023110
023112
023116
023124
023126
023130
023134
023136
023142
023144
023150
023154
023160
023162
023164

032777
001432
013704
012737

023170

023172
023176

104400

000241
006004
006137
103374
105737
001006
104402
104402
105137
104410
024536
105777
100375

017701
000207

001244
001242
001244
014422

13:54

023000
014600

023002
001244

156354
000014

001242

001000
000020

156336
001244

000400
005044

156316

001000

156072

001256

MOV

#SR

3%:

.WORD 0
.WORD 0

BNE
CLR
CMP
BNE
12%:

5%:

001256
11%:

BIT
BEQ
MOV
MOV
cLc
ROR
ROL

BCC

TSTB

023670

156010

MOV

BNE
BIS
JSR
SCOPE

023641

156014

JSR
CLC
RORB

MOV
CMP

001246

INC
INC

2%:
4%:

000006

014600
000001

CRC DEBUGGING AID TEST

001254

023102

SEQ 0076

PAGE 77

10%:

7%:

6%:

TEMP4
, SAVR?
TEMP3
TEMP4
RS,SIMBCC

;SET UP TO TYPE

PC.5%

:CHECK TO SEE IF WE SHOULD WAIT FOR SCOPING

3s
CALBCC,4%

#6, TEMPS

;UPDATE BIT COUNTER

:CALCULATE SOFTWARE BCC BASED ON THESE PARAMETERS
JSHIFTS
;DATA
JPREVIOUS BCC

;CLEAR FOR NEXT ROTATE
:SET UP THE NEXT BIT
;FOR THE SOF TWARE BC(CC

.+6
aTXDBUF
#12. ,TEMP3
12%

#TEOM,aTXDBUF
#16.,TEMPS

#MRESET ,@TXCSR
PC,SMALL

#SW09,aSwR

6%
CALBCC,R4
#1,SAVR3
R4

SAVR3
11%
TEMPS
108

;ALL DONE WITH THE CHARACTER?

; INCREASE THE COMPARE NUMBER TO OUTPUT
;CRC TO THE RECEIVER

;BR IF MORE TO GO
JRESET THE DEVICE
JWAIT FOR RESET TO FINISH
;SCOPE THIS TEST

;SW09=1?
;BR IF NO

;THE DATA CHARACTER IS ALWAYS

;FOLLOWED BY A ZERO CHARACTER.TTHE
:DATA BIT IN CRC SHOWS WHICH BIT OF
:THE

TWO CHARACTERS

IS BEING GENERATED.

BNE
TYPE
TYPE
coms
CONVRT
DT1
TSTB

LEM17

;TYPE MSG
;s TYPE HEADER

aTK(SR

BPL
MOV

sCHECK TTY DONE--GO SCOPE THE (RC GENERATOR
JNOTE: THE LSB IS RIGHT JUSTIFIED ON THE TTY OQUTPUT!!

aTKDBR,R1

RTS

JMH1
TEMPS

;BR IF NOT YET

JREAD THE BUFFER

JRETURN

N N N N
N N N N
N N NP N
N N
N N
N N
N

051377
377
051377
051377

377
051377
377

047505
054122
040530
040530
054122
043505
054122
053117

040504
052101
051103
051522
046111
044501
042516
054105
051103
052101
052012
051012
042516
044501
042516
047125
051522
044501
042524
042523

023461
023511
023524
023545
023564
023601
023641

023670
023763

024003
024020
024033
024052
024113
024157

024173

024220
024251

N N

023200

024274
024274
024276
024300
024302
024304

020115
047504
047502
052103
042504
05151
042504
051105
040524
020101
020103
046517
042105
042514
050130
042520
020103
020101
040522
041505
041040
042514
050130
054105
046517
042514
052522
020124

<377>/REOM BIT /
<377>/RXDONE BIT /
<377>/RXABORT BIT /
<377>/RXACTIVE BIT /
<377>/RXDERR BIT /
<377>/REGISTER ERROR /
<377>/RXDERR OR OVERRUN /
<377>/0VERRUN BIT /
<377>/DATA (OMPARE ERROR /
<377>/DATA COMPARE ERROR IN SECONDARY MODE /
<377>/CRC CALCULATION ERROR /
<377>/RSOM BIT /

EM1:
EM2:
EM3:
EM4 :
EMS:
EM6:
EM7:
EM10:
EM11:
EM12:
EM13:
EM14:

JASCIZ
JASCIZ
JASCIZ
JASCIZ
JASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
JASCIZ

DH3:
DH6:
EM17:
MH1:
EM1S:
EM16:

JASCIZ <377>/UNEXPECTED /
REGISTER /
F OUND
ASCIZ <377>/EXPECTED
LASCIZ <377>/CRC GENERATOR STATUS /
JASCIZ <377>/DATA (CHAR
DATA BIT IN CRC GEN.
LASCIZ <15><12>/TRANSMITTER /
JASCIZ <15><12>/RECEIVER /

DH1:
DH2:

EM23:
EM22:

EM20:
EM21:
EM24 :
DH4 :
DHS:
DH7:

.EVEN

LASCIZ
LASCIZ

/FAILED TO CLEAR /
/FAILED TO SET /

.ASCIZ
.ASCIZ

/
/DONE BIT
/FAILED TO SET /
<377>/UNEXPECTED RECEIVER INTERRUPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/
/ RSOM BIT
/
INTERUPT.
TO
/FAILED
/INTERUPTED UNEXPECTEDLY./
/ SET PREMATURELY /

LASCIZ
JASCIZ

/
INTERRUPT
TRANSMITTER
CTED
<377>/UNEXPE

.ERRTARB:

0
0
0

024306

000000
000000
000000
023200
023545
000000

024310
024312
024314

023213
023545
000000

EM2

024316
024320
024322

023302
023601
024554

EM6
DT6

DH6

JHALT 3

024324
024326
024330

023200
023524
000000

EM1
DH1
0

JHALT 4

024332
024334
024336

023230
023545

EM3
8H2

000000

SEQ 0077

13:54 PAGE 78
CRC DEBUGGING AID TEST

N
N N N
N N
N N
N N
N N N
N N N N N N N
N N
N N
N
N N

.~~~ o~~~ A~~~ A~~~ A~~~ A~~~

—n—.—.—.—.—‘—.—.—._.-.—i—.—.—n-a—l—a-n—.—l—.-‘—ld-‘-‘-‘—‘-‘-fid-—l—.—.—l—od—l_Q—O—A—I-J.-l_l-l.d-‘—l-._‘_l_l_l

CNNN AN AN NN AN AN NN AN NN PNNPNINPNSNNPNPNINNININININN
NS

N N N N N N oo

MACY11 30A(1052)
02-MAY-78
CZDPCC
02-MAY-78 13:47
CZDPCC PN

EM1
DH2
0

DHZ2
0

JHALT 1

JHALT 2

JHALT S

CRC FOR THIS BIT

e
B
R
e
—.—A-‘-—.d-—‘dd-‘d—‘—.—‘dd—‘dd-‘—‘ddd—‘—‘d—‘dd_‘—‘—‘-‘dd—‘—‘dd—“‘dd B
vvvvvvvvvvvv\f\.’vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv R

02-MAY-78
(ZDPCC
MACY11 30A(1052)
02-MAY-78 13:47
CZ0PCC PN

13:54

SEQ 0078

PAGE

(RC DEBUGGING AID TEST

024340
024342
024344

023246
023524
000000

EMé
DH1
0

JHALT

024346

023265
023545
000000

EMS
DH?
0

JHALT 7

024354
024356
024360

023365

EM11
0
0

JHALT 10

024362
024 364
024366

023230
023524
000000

Em3
DH1

024370
024372
024374

023412
V00000
000000

EM12

024376
024400
024402

023323
023545

000000

EM7
DHZ
0

JHALT

024404
024406
024410

023246
023545
000000

EM4
DH2
0

JHALT

024412
024414
024416

023347
023524

EMI10

000000

DH1
0

024420
024422
024424

023564
023302
000000

DH3
EM6
0

024426

024430
024432

023461
000000
000000

EM13

024434
024436
024440

023511
023524
000000

EM14
DH1

JHALT 20

024442
024444
024446

023511
023545
000000

EM14
DH2

JHALT 21

024450
024452
024454

024003
024173
000000

EM16
DH4

JHALT 22

024456
024460
024462

024003
024220
000000

EM16
DHS

JHALT 23

024350

024352

000000
000000

0
0

JHALT n

JHALT

JHALT 15

JHALT 16

JHALT 17

CZDPCC

MACY11 3CA(1052)

CZDPCC.PN

_02-MAY-78

02-MAY-78 13:47

13:54

PAGE 80

CRC DEBUGGING AID TEST

(1)
(1)
E};

024464
024466
024470

024020
024033
000000

EM23
EM22
0

JHALT 26

(1)
(1)
2};

024472
024474
024476

024052
000000
000000

EM20
0
0

JHALT 25

(1)
(1)
E};

024500
024502
024504

024113
000000
000000

EM21
0
0

JHALT 26

(1)
(1)
E};

024506
024510
024512

023763
024173
000000

EM15
DH4
0

JHALT 27

(1)
(1)

024514
024516

023200
023524

EM1
DH1

(1)
(1)

024522
024524

023213
023524

EM2
DH1

(1)
(1)

024530
024532

024157
023524

EM24
DH1

(1)
(1)
(1)
(1)
(1)
(1)
g};

024536
024540
024542
024544
024546
024550
024552

000003
006
001252
006
001254
006
001256

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

024554
024556
024560
024562
024564
024566
024570

000003
006
001262
006
001260
006
001256

g};

2};

(1)

024520

024526

024534

024572

000000

000001

0
021

DT1:

017
002

004

DT6:

002
002

.BYTE
CORMAX:
.END

3
BYTE
SAVR1
.BYTE
SAVR2
.BYTE
SAVR3
3
.BYTE
SAVR5
.BYTE
SAVRé
6,2
SAVR3

JHALT 3C

JHALT 31

JHALT 32
6,17,
6,15,
6,2

6,4
6,2

SEQ 0079

CZDPCC

MACY11 30A(1052)

CZDPCC.PN

_02-MAY-78

02-MAY-78 13:47

13:54

PAGE 82

CROSS REFERENCE TABIE == USER SYMBOLS

ADRCNT= 003735
BCCFBK 014576

1275«
2660%

1311~
2666+

13204
2669+

2672

2676

26884

BITw

7524
2043

1708
2091

1711
097

1721
2102

1723
2116

1728
2123

739
751
738
749
737
736

752
771
745
769
748
743

772

6024

724
723
722
721
720
719

BINWRD

004240

= 002000

BITO = 000001
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000

BIT12 = 010000

BIT13 = 020000
BIT14 = 040000

BIT15 = 100000

1362

6144
6134
6044
6034

6014
6004

5994

BITZ2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8

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

6124
6114
6104
6094
6084
6074
6064

BRW
BRX

003306
003310

1126
1127

BIT9

CALBCC

= 001000

014600

CARDET= 010000
CHRCNT 004236
CLKk
= 020000
CLK.A
001433
CLRVEC 005104

CNVRT = 104411

CONVRT= 104410
CORMAX 024572

CRCEN = 001000

605#

2594+

7228
1360
7494
8604
15554

8274

825#
38584

7444

2531
7384

1363
734
733

732
73
730
729
728
727
726

725

12044
12054

2595

2917
1364
1530
1646

1143

1079

1810

14004

2664

740

754
744

774
753

773

2633«

2634

2682«

26894

3797«

13984

1399

1120
758
757
756
755
741

3137
1380«
1533

1145

3838

1473

1475

1877

1961

2019

2082

2166

2210

2274

1601

1603«

1608

1609

1610

1613+

1838+
2231+
24B86*

18%+«
2234*
2487

1912«
2240%
2497+

1926+
2279+
2498

1966*
2285+
2592%

3794

3512

3137
1164

2634
1462%
1461+
7434

1709«
2216%
2436%

1819+
2222«
2439+

1465
1483

1487
14864

14904

1273«
38584
38584
38584
38584
38584
38584

1308

13184

6584

954*

1140+

DATABP 004612
DATAHD 004600
DECMOD= 100000
DEVADR 003732
023524
DH1
023545
DH2
DH3
023564
DH4
024173
DH5
024220
DH6
023601
DH7
DISPLA 001200

3821

1149

2715

1691
2177%
2433%

3798

1147

2917
1163

7814
2171%
2422%

1975
2237

3849

7214
1128

001324

1969
2219

1489

= 020000
CTs
CYCLE
006224

DATA

3337

1034
767

2570

941+

1182
1031

768
747

26914

7144

1742
2174

770

2593
26904

001316

1737
2128

750

CRCERR= 010000
CRC.CC= 102010
CRC16 = 120001

CREAM

SEQ 0080

1600

15904

1980
2282

2029
2334

2038

2326

2375

2416

2470

2026+
2331«
2619+

2088+
2337«
2620

2110+
2380+
2627%

2113«
2383+
2632+

CZDPCC

MACY11 30A(1052)

_02-MAY-78

DISPRE

000174

6464

954

DSINTE= 000040
= 001000
DSR
DTR
= 000002
DT1
024536

729%
7254

7334
3850

3303
2811

001310

7084

CZOPCC.P1

02-MAY-78 13:47

DSCA = 100000
DSCB__= 000001

D16

DUPACT

DUPCRO
DUPCR1
DUPCR2
DUPCR3

DUPCR4
DUPCRS
DUPCR6
DUPCR7

DUPNUM
DUPRPS
DUPRVC

DUPSEC
DUPTPS
DUPTRO

024554

7154
7344

38584

001500
001506
001514

8654
8734
8774

001530
001536
001544
001552

885#
8854
8934
8974

001522

001311
001376
001374

13:54

2786
38584

3323
3137

2811

2827

3112

3137

3153

983
1048

1047

1068+

1101+«

1102

1590

1595

937
1636
1170

1036
1637+
1615«

1069+
1638
1636

1153
1750+
1748+

1641+

1751+

1640
1601

1062

1076

1044

7094
839#
8384

8404
901#

1638+
976

1639+
1060

DUPO.A
DUP1.A
DUP2.A
DUP3.A

001504
001512
001520
001526

8714
8754
8794
8834

1031

1034+

023200
023347
023365

38584
38584
38584

EM13
EM14

023461
023511

38584
38584

EM16
EM7
EM2
EM20
EM21
EM22
EM23
EM24

024003
023641
023213
024052
024113
024033
024020
024157

DUP4.A
DUPS.A
DUP6.A

DUP7.A

EM1
EM10
EM11

EM12
EM15

001500

001534
001542
001550
001556

023412
023763

SEQ 0081

3325

8814

DUPTVC
DUP.EN

DUP.MA

CROSS REFERENCE TABLE == USER SYMBOLS

001416
001402
001502
001510
001516
001524
001532
001540
001546
001554
001400
001560

DUPTR1
DUPTR2
DUPTR3
DUPTR4
DUPTRS
DUPTR6
DUPTR7

PAGE 83

8478
8414
8704
874M
8784
8824
8864
89504
894
8984

714

1622%
1640%
991

8684

8874
8914
8954
8994

38584

3858#
3846
38584
38584
38584
38584
38584
38584

3858#

941

974

1749
1610

1058

1603

1613

13:54

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY=78 13:47
CZOPCC.PN
EM3
EM4
EMS
EM6

EM7
ERRCNT

ERRFLG
ERRMSG

ERTABO

EXIT
EXITER
FIX.00

PAGE 84

CROSS REFERENCE TABLE == USER SYMBOLS

023230
023246
023265
023302
023323
001232
001341

1463

004566
004772
= 000000

FLAG
HALTS
HDXEN =
HILIM
HUPPSR
HUPRBF
HUPRCR
HUPTBF
HUPTCR
ICOUNT

15774

INBUF
INIFLG
INSTER=
INSTR =

1011

INSTR2

LOKFLG
LOLIM
LPCNT
LSTERR

001342
003726

MASK .A
MASTEK
MCRLF
MCSR
MCSRX
MDATA

001432
005411

n
Co
TUREESER"

b
b
i
b
i
D
b
b
i

MEPASS
MERRPC

1449+
wvionuonrononibeonnaiewn

L00.00

2527
3293«

001220

—d

JUMPER
LIMITS
LOBITS
LOCK

15664

2785

2946

1695
1880

3803

2085

SEQ 0082

02-MAY-78
MACY11 30A(1052)
CZOPCC.PN
02-MAY-78 13:47

CZDPCC

MMODEB= 010000
MNEW
005413

005702
005355
005141
MQM
005132
MR
005202
MRESET= 000400

MPAR

MPASSX
MPOWER

MSRJM
MSTJM
MTCN
MTDATA=
MTITLE
MTOTAL
MTSTN
MTSTPC
MVEC
MVECX

005761
005726
005600

040000
001000

005647
005377
005300
005512
005347
001216

NO.ATR
NO.BTR
OJUMPE
OPCLRJ
OVRRUN=
PARAM =
PARAM1

PARBIT= 000000

PARCSR

PARERR
PASCNT

PERFOR= 000000

PKCLK =

POPRO = 012600
POP1SP= 005726

POP2SP= 022626
PRIRTY
001320
PRISEC= 010000
PS
= 177776
PUSHRO= 010046
PUSH1S= 005746
PUSH2S= 024646
PWRUP
005060

QV.FLG
001343
RABORT= 002000
RCRCIN= 040000

7504
1093
995
1146

13:54

15664

615#
2465
3164
3792

7544
2502
3205
3832

15664
15664

1026
1022
1016
7488

15664
15664
15664
2724

1004
1472
15664
987
1144

15664
15664

6534

6734
2612%
3417«
1753#
1757#

17834
780#
7374
819#
1277#
6154

963

15664
15664

1200
2464+
3501+
3208
3300
2778
1014
2387
980
1294

844
2326

1623+
2375+

6784
6154
8294
2039
2476
2739
5934

938+

1280

5914
595#
7784
7454
5844

3366
3687«
5924
5904

5944
1545
7964
739
7684

SEQ 0083

CROSS REFERENCE TABLE == USER SYMBOLS

15664
15664
15664

1551

1259
1129

PAGE 85

1282

1713
2044
2479
2743
1511

1675
1670
1807

2533
3237

1874

1958

2564
3295

2601
3359

2733

2740

2016
2708
3419

1806+

2587«
3644+
3265
3364
2994

2164

2838
3556

2208
2887
3575

2272
2944
3646

2324
2997
3707

2372

2015+
2878«

2078«
2984

2163
3094~

2207+
3201+

2271
3235+

2323«
3289+

2371+
3357«

3507

3651

3703

3733

2019+
2571«

2082+
2715«

2084~
3512~

2166+

2210+

2212+

2274+

1743
2124
2615

2129
2623

2175
2628

1929

1970
2220
2719

2238
2723

2283
2727

3245+
3549«

3251«
3574

3258+
3584+

3294«
3595+

3302+
3610+

3324+
3645+

2342

2351

3054
3728

3768

1073+

2425

996

1877+

2418+
12934
1140

1304

1724

3807

1202
1002+
1879
934»
3418+
3711«
1496
15474
940«
2182

2413
3107

2079
2781
3503

2570

2290

2296

1915

197¢€

1981

3358+
3668+

MACY11 30A(1052)
02-MAY-78
CZDPCC.P11
02-MAY=78 13:47

CZDPCC

RCRC7T= 100000

RCVEN = 000020

RECACT= 004000
REOM = 001000
RESREG
004614
RESTRT
003116
RESOS = 104407
RE TURN
001214
RFLG
007060
RING
= 040000
RINTEN= 000100
RPOKE
007020

000400
000004
001314
001404

RXDBUF

001406

RXDERR= 100000
RXDONE
= 000200

SAVACT
SAVNUM
SAVP(
SAVPCA

001312
001313
001266

76748

7304

1811

2473
7234

2536
1815

8234

1491

76404
1488
1151

6728

1719#

2277

7204

728#
1708%
2179

2435

76414
7324
712#

8424
2018«
2275«
2551
2999
3426

8434
1974

2221
2442

7364
727#
1986
3466
710#
7114

6974
7064

13:54

1983
1491#
1155

946

1813

2329

2808

3368
1715
2218
2438

1827
2892
942*

1167
2031
2288
2553
3103«
3427«

PAGE 86

SEQ 0084

CROSS REFERENCE TABLE == USER SYMBOLS
1878
2604
1835
1993

1960

2717
1855
2046

2018
3367
1883
2056

2081
3426

1897
2104

2167
3510

2211
3653

2131

2141

1203

1517+
2086

1899

1128+
1881

2378
2811
3427
1821

1130
1964

2420
2914
3511
1840

1163~
1990

2431
3024
3654

1896

1200+
2022

3134
3736

3137
2281

2287

1923

1935

1914

2224

2233

2236

2242

1829

1846

2933

1848
3112
1599+

1909

2055
2294
2616
3303«
3470+

2081+
2327%
2624
*
3304
3510%

2441

2917
1595

1614

2045
2293+
2604+
3109
3466
1621+
1993

1598+
1618

1809

2053

3137

1606+
1834

1928

3153

1607+
1854

2118
2346
2717«
3323+
3542
1827

2239
2497
2254

1623
2046
2284
2619
2354

2031

2049

2059

2118

1043

1071«

1044
1150«

1096

1325+

1041+
1037+
1523

2225
2486

2191
1822
1996
3699
1035+
937«

2327

2376

2¢17

2248

2299

2392

2448

11634

2034
2244
2556
2305

1620+
1983

1940

2293

1824

1622

1841

2096
2295
2632
2388
1902

1843

2169

2214

1678+

1679
2229

2112
2382

2115
2385

2173

1668+

1968

2624

3304
1971
2180
2483

1876

2130
2374
2746
3325+
3653«

2883+
3367+
3736+

1830
2104
2336
2749

2443
1905

2141

2347
1930

1916

2134

2144

1982

1992

2211«
2494
2889
3368+
3804+

2243
2536+

2176
2386

2181
2425

1923

1932

2993+
3400+
1935

1971

2251

2302

2348

SAVRO
SAVROA
SAVR1
SAVR1A
SAVR2
SAVR2A
SAVR3
SAVR3A
SAVR4
SAVR4A
SAVRS
SAVR5A
SAVSP

001250
001270
001252
001272
001254
001274
001256
001276
001260

6904

1334+

1339

6914

1333«

1340

3796«

3858

6924

1332«

1341

3811«

3858

6934

1331«

1342

3839+«

3842+

3858

6944

1330«

1343

3858

001262
001302
001264

6954

1329«

1344

3858

SAVO5

104406
104400

8214
8094
2573
3612
8114

1451
1858
2644
3713
2563

1943
2754
3770
2799

2063
2962

2149
3072

2194
3182

2258
3220

2310
3261

2358
3343

2396
3402

2451
3473

2504

2854

2905

2931

2960

3015

3041

3070

3125

31N

SAVSPA

SCOPE

SCoP1 = 104401

6994
7004
7014

702#

7034

7044
6964
7054

3558

3314

2605

3207

1023
3264

SFLG
SHIFTS

007152
001326

17354
7828

2024
1690+

1714>

SIMBCC
SMALL

014422
005044

15404

1808

SPACNT=
SRD
=
SRJMFL
STACK =

004237
002000
001336
001150

=
STD
STJMFL
STPSYN=
STUFCK
SVO5
SWR

000010
001334
000400
006746
003744
001202

SWREG
Sw00
Sw01
Sw02
Sw03
Sw04
Sw05
Swoé6
Sw07
Sw08

000176
000001
000002
000004
000010
000020
000040
000100
000200
000400

=
=
=
=
=
=
=
=
=

Sw09 =
Sw10 =
Sw11
=
Swi12 =
sSw13 =
SW14 =
SWw15
=
SYSTST=

001000
002000
004000
010000
020000
040000
100000
004000

TABORT= 002000
TBLA
013556
TBLB

TCNFLG
TCRCIN=
TCRC7T=
TEMP
TEMP1

TEMP2

014410

001322
010000
020000
006054
001236

001240

8314

3701

2114+
2384r
2597
2503
3206
3833
1361«

1013

3731

2172«
2423+
26544

6474
5664
565#
5644
562#

5614
5604
5594
5584

557#

951

1440

953
969
1650

3624

3649

1820+

1839+

1895+

1913«

22641+

2280+

2286+

1967+

2027+
2332+

2089+
2338+

2111+
2381+

2273
2945

2373
3055
3729

2414
3108
3769

2466

3647

2325
2998
3708

3315

3342

3399

3472

3555

1189

1210

1927+

3043

3112

3137

3153

965
1494

1513

1091
1650

3836

1096

101

1120

1182

3361

3421

3509

3581

3648

3730

1768

1784

2774

2880

2986

3096

1076+

1077
2125+

3420

3504

83
55

3165
3793

1083

1091

1513

2537

3211

2468
2590
1018

25074
259N
1019

26474

15734

2034+

2035

6854
2040+
2299
2710«
6864

3577

3260

1502
3755

1365

3505

3218

7634
7728

7704
7694

3476

3202

1440

7794

3422

1548

1189
1223

2467
2588

3362

3101
1518

5544
5534

5528
5514
5504

3318

1027

2209
2888
3576

3836

5554

3298

2080
2782

1210

5564

3805

2017
2709

3099

953«
1445

3737

1959

13994

3002
1024

3655

2235+

3360

935
3712

3581

2232+

1382

7314
7854
7264
16904
13294
6594
1223

5854
3611

3513

2223+
2440

2602

7244
7864

3428

2217
2437+

2534
3238
3027
1028

3369

NOWn

17484

2716

WNO N

2474

= 000020

SEQ 0085

SETFLG= 104413
SETVEC 007232

7578

SEND

—

3180

H 7
13:54 PAGE 87
CROSS REFERENCE TABLE == USER SYMBOLS

—

02-MAY-78
CZDPCC MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.PI

1515

1445

1008
2041
2302
2720+
999

1036

2083+
2340+
2721
1002

1032

1037

2099+
2346+
3322+
1043+

2121+
2529+
1050+

1977«

3290

1978

2531

2126
2535

2180«
2568+

2185
2570

2188
2571

2288+

2657+

2020+
2294+
2680+

1077«

1570

1982+

1986

1992+

1996

2045+

1081+

1568

1962+

02-MAY-78
MACY11 30A(1052)
CZDPCC.P11
02-MAY-78 13:47

CZDPCC

TEMP3

001242

TEMP4

001244

TEMPS
001246
TEOM
= 001000
TIMER = 004000

TKCSR
001204
TKDBR
001206
TLAST = 022576
TPCSR
001210

TPDBR
TRPOK

001212
004330

TSoMm

= 000400

TRP.PC
TSTNO

006222

001226

ST
TST1I0
TST11
1ST12
TST13
TST14
TST1S
TST16
TSTi7
TST2
TST20
TST21
TST22
TST23
TST24
1ST25
T1ST26
TST27
TST3
TST30
TST31
TST32
TST33
TST34
TST3S

007356
012220
012462
012710
013062
013320
013570
014064
014602
007640
015110
015556
016224
016706
017370
017506
017700
020216
010204
020476
021056
021416
021724
022316
022576

TST4
TSTS
TSTé
1817
TTST

010472
011002
011450
011662
003174

TST36 =

wxnwnnn

13:54

PAGE 88

SEQ 0086

CROSS REFERENCE TABLE == USER SYMBOLS

2049
2658
AB78
3825
6884
6894

2055+«
2662+
2659+

2059
2711+
2661

2130+
2736+
2671+

2134
2737
2673

2140+

2144

2243+

2248

2251

2530+

2543

2569+

2678+

2679+

2682

2712+

2749+

2750

3799+

3812+

1719«
1720+

1730+
1725+

1735+
1726

%
1744
1736+

3811

3813«
3801+

3822
3844

3828
3848+

7718
2894
3019

2547
2896
3030

3800+
1739+
3827
2801
2922
3058
3308
3516
3660

2814
2937
3114
3329
3535
3680

2816
2948
3116
3372
3537
3689

2829
2950
3127
3374
3550

2831

2842
3140

3691

3129
3391
3552
3739

2844
3017
3142
3431
3588
3757

3583
1805+
2586+
3643~

3749

3806
1956+
2771
3790+«

2014+
2877«

2077«
2983+

2162+
3093+

7738

315§
3433
3597
3759
6644
6654
1673

6664
6678

14314
1579#
7748

6774
2270x
3234+
1661

3157
3451
3599

2744
2788
2909
3045
3170
3461
3618

3447
2790
2920
3047
3306
3463
3658

1185
1187

3851
1252

3854

1228
1230«

1444~

2475

2606

2718

3441

2411
3416+

2463
3500+

2525+
3572«

1127+

11834

2614

38584

2707
2772
2878
2984
3094
3201
3235
3289

27714
2877#
29834
30934
32004
32344
32884
33564

3357
3417
3501
3573
3644
3726
3791

34164
35004
35724
36434
37254
37904

1806

1873

1957

2015
2078
2163

1123«

1658

1678

22704
23224
23704
24114
24634
2525#
25864
27064

1664

18724

19564

3858

20144

20774
21624
22064
1124+

3393

3586
3741

1442

945
2322«
3288+

2207
2271
2323
2371
2412
2464
2526
2587

1740

1126+

1666

1872+

2706+
3725+

2206+
3200+

02-MAY=7¢
MACY11 30A(1052)
CZOPCC.PI
02-MAY=78 13:47
CZDPCC

TWOSYN= 000000
TXACT = 001000
TXCSR
001412

TXDBUF

TXDLAT=
TXDONE=
TXINTE=
TYPDAT
TYPE
=
TYPMSG

USER
=
WRDCNT
WRKO.F
XBX
XCSR
XERR
XHEAD
XPASS
XPOLY
XSTATQ
XTSTN
XVEC
=
$E

001414

100000
000200
000100
004602
104402
004502

000000
004234
004570
004374
003130
003152
006014
003144
014574
006042
005000
003136
000037

SENDAD 003104
= 000035
N

6154
753#
8454
1742+
2038+
2208+
2419+
2605+
2840+
3205+
3369+
3513+
3655+
3803+
8464
2606+
2831
3004
3129
3383+
3463
3597
3691

7478
7554
7564
1466

8134
1240
1592

1464
7604
1359«
1479
1441

1143

1149
1075
1147

2593+
1080
1473
1145

13:54

1502+
1807+

2043+
2213+
2465
2608
2887+
3211+
3379
3523

3805+
1631«
2612+

PAGE 89

SEQ 0087

CROSS REFERENCE TABLE == USER SYMBOLS

1530«
1812+

2079«
2219+
2472%
2708+
2891«
3213+
3384
3528
3670
3832«

3739

1632+
2614+
2844
3017
3142
3389«
3518
3614+
3741

3379

3438

3244
14874
1075
1351
1669

1533«
1874

2085+
2237«
2474
2714
2944+
3219+
3387
3531

3673
1633

2713«

2894
3019
3155
3391
3527+
3616
3749

1627+
1880+

1628+
1958+

2097+«
2276%
2533+
2724
2997«
3243
3419+
3548+

2471~
2718+
2896
3030
3157
3393

2475+
2731
2907
3032
3168
3431
3533«
3658
3755+«

2477«
2788
2909
3045
3170
3433
3535
3660
3757

3530+
3618
3752+

3728+

2016+
2164+
2372+
2564+
2781+
3111«
3297«
3445
3613
3753

1963+
2102+
2282+
2537+
2728
3001«
3244+
3421+

2091«
2272*
2502+
2716+
294 6%
3237+
3401+
3545
3707«

3556+

3730+

3523
3548

3545
3581

3613

3665

1093
1388
1670

1098
1467
1675

1122
1468
3846

1129
1471

1737+
2029+
2174+
2413+
2603+
2838+
3166+
3361«

1723+

1629

3509+
3648+

3792+

2549
2829
2950
3127
3374
3461
3588
3689
3827+

2546+
2814

2937
3114
3329
3451
3583«
3678

3808+

1227
1550

1146

1480

3847

13974
14454

2678

1807#

19584

2271
25884
3235
36454
11574

2371
27744
3357
37924

20794
2359
2580
29864
3344
3637

2195
2405
27084
3188
3410
37274

18744

2078
24134

2163
24654

21644
2526

34184

35024

3573

19584

2008
22724
2513
2871

20164

3560

3566

2259
2457
27744
3222
3494
37924

231
2519
3274

02-MAY-78
CZDPCC MACY11 30A(1052)
CZDPCC.PN
02-MAY-78 13:47
1%

$RAYQ = 177777

1792%

1793

= 000014

2066
23154
25754
2970
32804
36314
809

20704
23594
2576
29754
33444
3632
8114

21514
2360
25784
3079
3345
36354
8134

37144
8154

= 024572

6264

627

6304

6374

6428

3823

8824
8994
3097
38584

8334

7124
8774
8944
26004

3674

828
826

1260
12414

80+
84

7794
8794
8974
2881

7804
8814
8984
2987

15454

1549

3754

21554
23984

7854

1352#
13514

12404
1238«
820

649
63¢

ERRORS DETECTED:

3751

3791
38584
16404
12574

631
830
824
822
810
812
832

024572

7134
878#
8954
2775

11378
1459
633
818

816

12364

12684
936
1527#
1339#
1325#
11804
12104
14084
9344
14284

1420

946

1433

12204

000
O

DSKZ :CZDPCC,DSKZ:CZDPCC.SEQ=DSKZ:DUP11.MAC,DSKZ:CZDPCC.P11
RUN-TIME: 13 18 1 SECONDS
RUN-TIME RATIO: 206/33=6.1
(53 PAGES)
27k
CORE USED:
DOCUMENT PAGES:

1861

17964

20654
2312
25174
2969%
3275
35644
800#

11164

. ABS.

SEQ 0088

13:54 PAGE 90
CROSS REFERENCE TABLE == USER SYMBOLS
18644

19454

1946

19494

819#

2196
24034
27574
3189
34084
37724
8214

21994
24534
2758
3192#
34874
3773
8234

22594
2454
27634
32224
3488
37834
8254

6484
8674
8854

6524
8694
8864

6544
8704
8874

7084
8714
8894

21954
2399
26984
31884
3405
37174

1100

3385

15744

3388

15764

3443

15784
3446

2007#
2211»
2514

2002#
2260
24564

2003
22634
25134

3223
34924

32264
35604

28694
32744
3561

8274

8294

8314

7094

8734
8904

15794

3529

7104

8744
8914

1594

3532

7114

8754
8934

25994
3671