Digital PDFs

AH-E263B-MC

September 1978

107 pages

Original

52MB

view download

OCR Version

72MB

view download

Document:	CZPLBB0 PCL11-A,B STAND ALONE V020 DEC 1978 bw
Order Number:	AH-E263B-MC
Revision:	000
Pages:	107
Original Filename:	CZPLBB0__PCL11-A,B__STAND_ALONE_V020__AH-E263B-MC__DEC_1978_gray.pdf

OCR Text

PCL11-A.B

CzPLBBO

cormnt 1ws
FICHE1 OF
1

EEHNED

MADE
IN USA

B
e R
T
e
e

12-SEP-78 15:13

14:35

1
PAGE

ONOVNSWN=OV
NN WN 2

PCLTST.PN

18-0CT-78

MACY11 30A(1052)

IDENTIFICATION
PROGRAM CODE

AC-E262B-MC

PPROGRAM NAME

CZPLBBO PCL11 STAND ALONE TEST

DATE CREATED

22-0CT=75

UPDATED

13-MAR-78

MODIFIED

8-SEP-78

MAINTAINER

SPECIAL SYSTEMS KANATA

AUTHOR

DAVID G. WIENS

;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT COR;PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
;ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
;DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
;OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
DIGITAL.

SEQ 0001

ICZPLm PCL11 STND ALN VO2A

PCLTST.P11

12-SEP-78 15:13

000000

MACY11 30A(1052) 18-0CT-78 14:3% PAGE2

SEQ 0002

HEADER AND INSTRUCTIONS

.SBTTL HEADER AND INSTRUCTIONS
.REPT O
GENERAL
THE PARALLEL COMMUNICATIONS LINK (PCL11) TEST WILL VIGOROUSLY
TEST THE HARDWARE INVOLYVED IN ANY ONE °"- 11 PROCESSOR CONTAINING

PCL11 HARDWARE.
THERE ARE THREE SEPARATE SEC1i1ONS

.4 THIS TEST.

TO COMPLETELY

CHECK BOTH TRANSMITTER AND RECEIVER PORTIONS OF THE PCL11, ALL

THREE SECTIONS MUST BE RUN SUCCESSFULLY.
THE FIRST TEST IS THE BASIC TRANSMITTER TEST WHICH IS
DESIGNED TO BE RUN AS A STAND ALONE DEVICE TEST
ON THE TRANSMITTER. IT WILL RUN WITH NO MANUAL INTERVENTION
(AFTER INITIAL SETUP) ASSUMING THAT THE TRANSMITTER ADDRESS
SWITCHES IN THE MASTER SECTION ARE SET TO BE AT LEAST EQUAL TO
THE TRANSMITTERS OWN ADDRESS SWITCHES. THIS ASSURES THAT TIMING

SLICES WILL SELECT THE TRANSMITTER BEING TESTED.

THE SECOND TEST IS THE BASIC RECEIVER TEST WHICH IS DESIGNED TO

RUN AS A STAND ALONE DEVICE TEST FOR THE RECEIVER MODULE.

AFTER INITIAL SETUP, THIS TEST RUNS WITH NO MANUAL INTERVENTION.
THE THIRD TEST IS THE TRANSMITTER-RECEIVER LOOP TEST.
THE OBJECTIVE OF THE THIRD TEST IS TO TEST ANY FUNCTIONS THAT

WERE NEGLECTED IN THE FIRST AND SECOND TESTS DUE TO THE NEED FOR
TRANSMITTER TO RECEIVER COMMUNICATIONS. IT WILL ALSO TEST THE
T.D.M. BUS DRIVERS AND RECEIVERS BY SENDING DATA PATTERNS AND

CHECKING THE DATA RECEIVED. FURTHER, IT WILL EXERCISE THE ABILITY
TO REJECT OR TRUNCATE COMMUNICATIONS.

THE TESTS ARE SELECTED, IN THE START-UP PROCEDURE, SO THAT ANY
ONE OF THE TESTS MAY BE LOOPED INDIVIDUALLY, OR ALL THREE MAY BE
LOOPED AS AN OVERALL TEST.

CZPLBBO PCL11 STND ALN VOZ2A

(ZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT-78 14:35
HEADER AND INSTRUCTIONS

PAGE 3

REQUIREMENTS

2.1

GENERAL :

211

PDP=11 PROCESSOR WITH 8K OF MEMORY

2.12

PCL11 HARDWARE ON THE UNIBUS

.13

ALL PROCESSOR MAINDECS MUST HAVE BEEN RUN

g‘)

95
96
97

2.14

AND A CONSOLE DEVICE ON-LINE.

SUCCESSFULLY PRIOR TO RUNNING PCL11 TEST.
ONE PCL11 CONNECTED TO UNIBUS
(SEE PCL11 OPTION DESCRIPTION SEC 2.1)

SEQ 0003

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.P1

3.
3.1
3.3

WITH

SINCE THERE ARE TIMING LOOPS IN THIS TEST,
IT MAY NOT RUN SUCCESSFULLY IN SOLID=-STATE MEMORY
&LwE‘,DELAY CONSTANT
(CNTRL=D)
IS LOWERED TO

D
o
D
D
d

ENSURE PCL11 HAS BEEN INSTALLED CORRECTLY

AS PER THE INSTALLATION PROCEDURE IN SEC 2.1
PCL11 OPTION DESCRIPTION (YC=-A20TC-00)

i
D ad
b cd

THIS TEST CANNOT BE LOADED INTO A PDP=11

LESS THAN 8K OF MEMORY.

TEST SET-UP

4.2

ENSURE ALL CABLES CONNECTING THE PCL11 UNDER
TEST TO OTHER PCL11 UNITS OR DISPLAY PANELS
ARE DISCONNECTED (OR DISABLED).

4.3

DETERMINE OR SET UP PROPER TDM ADDRESSES FOR

b
-l
wld
e
ol
-

RESTRICTIONS

xx+ THIS ALSO APPLIES TO USING FASTER PDP=11'S (45, 70, ETC.)##*

D i

LS
LN NI,V NN St amaa—daaa
(e AV I PN N} = OVONOWVSWN-=O

127

%
SEQ OCu

HEADER AND INSTRUCTIONS

3233

100
101
102
103
104
105

MACY11 30A(1052) 18-0CT-78 14:3§ PAGE &

THE RECEIVER AND TRANSMITTER.

THE

TRANSMITTER'S

ADDRESS IS IN S1 ON THE M7991 MODULE; THE
RECEIVER'S IS IN S1 ON THE M7997 MODULE.
4.4

ENSURE S1 ON THE M7994 MODULE IS SET TO A NUMBER
GREATER THAN OR EQUAL TO THE

TRANSMITTER'S ADDRESS.

CZPLBBO PCL11 STND ALN VOZ2A

SEEHENARRUK
2SS 3

PCLTST.P11

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

14:35

HEADER AND INSTRUCTIONS
5.

PAGE 5

SEQ 0005

LOAD ING

THE PCL11 TEST IS ON PAPER. TAPE IN PDP-11 .ABS

FORMAT. THE TAPE IS LOADED BY MEANS OF THE PDP-11
ABSOLUTE LOADER.
6.

STARTING AND RESTARTING ADDRESSES
START ADDR

RESTART ADDR

200

204

224

SWITCH REGISTER OPTIONS

7.1

ALL

=0
=1
=0
=1
=0
=1
=0
=1
=0
=1

Sw 10 = 1

Swo09=0
Sw 09 =1

START AT 1ST SUBTEST AND RUN

START AT SUBTEST # IN SW'S <3:0>

STAY IN MASTER SECTION SCOPE LOOP
EXIT MASTER SECTION SCOPE LOOP

RECEIVER TEST

SWw10 =0
SwWw 10 =1
7.4

HALT AFTER ERRORS
DON'T HALT AFTER ERRORS
ALLOW PRINTING
INHIBIT PRINTING
SEE SW 15
AFTER ERROR, RE=TRY CURRENT ROUTINE
CARRY ON TO NEXT SUBTEST
DON'T EXIT THIS SUBTEST
10 TIMES THRU ALL SUBTESTS PER PASS
ONCE THRU ALL SUBTESTS PER PASS

TRANSMITTER TEST

Sw 10 =0

7.3

(FOR TEST SELECT)

TESTS

SWwi15
Sw 15
SW 14
SW 14
SWw13
Sw 13
Sw12
Sw12
SW11
SW 11
7.2

(FOR DIFFERENT T.D.M. BUS ADDRESSES)

START AT 1ST SUBTEST AND RUN
START AT SUBTEST # IN SW'S <2:0>

TRANSMITTER-RECEIVER LOOP

Sw10

SWw 10

START AT 1ST SUBTEST AND RUN

START AT SUBTEST # IN SW'S <2:0>

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13
180
181
182
183
184
185
186
187

MACY11 30A(1052) 18-0CT-78 14:3% PAGE6
HEADER AND INSTRUCTIONS

7.5

SWITCH REGISTER OPTION USE ON NON-SWITCH-REGISTER PDP=11'S
AT START UP TIME
THE PROGRAM WILL DECIDE WHETHER A HARDWARE SWITCH REGISTER

EXSISTS ON THE PDP-11. IF NONE EXSISTS, A SOF TWARE

FLAG WILL BE SET INDICATING TO THE REST OF THE PROGRAM THAT
THE '‘SWITCH MONITOR'' IS TO BE USED TO ACHIEVE CHANGING OF
SWITCH OPTIONS.
THE MONITOR IS ENTERED AT THE START OF THE TEST PROGRAM
AUTOMATICALLY. IT IS ALSO ENTERED AUTOMATICALLY ON AN ERROR
HALT IF SW 15 = 0. AT OTHER TIMES IT MUST BE CALLED BY THE
OPERATER BY TYPING CNTRL=S

WHEN rgemnm’x(;g;x;s ENTERED THE FOLLOWING IS PRINTED:

SHOWING THE OPERATER THE PRESENT CONTENTS OF THE SOF TWARE
SWITCH REGISTER LOCATION. HE MAY CHANGE THE LOCATION BY TYPING:
YYYYYY <CR>

&LF;ES??USE: OR HE MAY LEAVE THE LOCATION UNCHANGED BY TYPING
<CR>.

REFERENCE PAGE 9 OF THIS LISTING FOR "'SWITCH'' BIT POSITIONS.
UPON DETECTING A <CR> THE MONITOR WILL TYPE:
CNTRL-P TO CONTINUE
THE OPERATER NOW HAS THE OPTION OF TYPING “P TO CONTINUE
THE PROGRAM WHERE IT LEFT OFF, OR “S TO RE-ENTER THE
SWITCH MONITOR.

TEST DESCRIPTION
TEST 1 = TRANSMITTER TEST:

SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
8.2

00
01
02
03
04
05
06
07
10

TEST 2 - RECEIVER TEST:

SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST

00
01
02
03
04
05
06

SUBTEST 07

8.3

TEST INITIAL CONDITIONS AFTER RESET
COMMAND REGISTER TEST
BYTE COUNT REGISTER TEST
BUS ADDRESS REGISTER TEST
MASTER SECTION TEST
DATA SILO TEST
STATUS REGISTER AND ERRORS TEST
INTERRUPT TEST
C.R.C GENERATION TEST

TEST INITIAL CONDITIONS AFTER RESET
COMMAND REGISTER TEST
BYTE COUNT REGISTER TEST
BUS ADDRESS REGISTER TEST
DATA SILO TEST
STATUS REGISTER AND ERRORS TEST
INTERRUPT TEST

C.R.C GENERATION TEST

TEST 3 - XMTR-RCVR LOOP TEST:

SUBTEST 00

CHK NPR FROM RCVR SILO TO XMTR SILO

SEQ 0006

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P1

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

14:35

HEADER AND INSTRUCTIONS

PAGE 6~1

SUBTEST 01
SUBTEST 02
SUBTEST 03
8.4

TEST & = COMBINATION RUN
RUN
RUN
RUN
RUN

8.5

DATA LOOPS TEST
TRANSMISSION ERRORS TEST
REJECT AND TRUNCATE TEST

1
2
3
1

TEST
TEST
TEST
TEST

THEN
THEN
THEN

ETC

THE TESTS WILL IDENTIFY THEMSELVES UPON SELECTION, IN THE

FOLLOWING WAY:

TEST 1

"PCL11 TRANSMITTER TEST''

TEST 2

°'PCL11 RECEIVER TEST"

TEST 3 "’TRANSHITTER - RECEIVER LOOP TESTS''
TEST 4
8.6

'PCL11 TESTS 1 - 3 SEQUENCE''

THE TESTS WILL SIGNIFY COMPLETION BY PRINTING THE FOLLOWING
END PASS MESSAGES ALONG WITH THE PASS COUNT IN DECIMAL:
TEST |

== END PASS # N

TEST 2

END PASS # NA

TEST 3

END PASS # NB

TEST 4

END PASS # NC

SEQ 0007

€2

I
18-0CT-78 14:35
MACY11 30A(1052)
HEADER AND INSTRUCTIONS
9.

1
PAGE 7

SEQ 0008

STARTING AND OPERATING PROCEDURE

LOAD THE PROGRAM TAPE USING THE PDP-11 ABSOLUTE LOADER
9.1

START UP:

START PROGRAM AT 200

PROGRAM WILL ASK THE FOLLOWING (ONE AT A TIME)

(DEFAULT

PRIORITY (4=7)..
(DEFAULT
PRIORITY (4=7).. _ (DEFAULT
TDM BUS ADDR (1-37)..
(DEFAULT
TDM BUS ADDR (1-37)..
(DEFAULT

XMTR
RCVR
XMTR
RCVR

RCVR VECTOR..

(DEFAULT
64200)
(DEFAULT = 164220)
(DEFAULT = 170)

—_

XMTR 1ST UNIBUS ADDR..
RCVR 1ST UNIBUS ADDR...
XMTR VECTOR..

RESPOND TO EACH PROMPT WiTH:
<CR>

DEFAULT

IS DESIRED

XXXXX <CR> IF XXXXX IS DESIRED FOR NEW ENTRY

9.1

SELECT TEST:
THE PROGRAM THEN TYPES:

SELECT TEST (<CR> FOR HELP)..

N0N0nn

ABWN—=

THE OPERATOR HAS THE FOLLOWING CHOICES:

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PT
12-SEP-78 15:13

C >

9.12
9.121

SELECT TEST 1
SELECT TEST 2
SELECT TEST 3
SEQUENCE TEST

TO RUN ONLY (TRANSMITTER LOGIC TEST)
TO RUN ONLY (RECEIVER LOGIC TEST)
TO RUN ONLY (XMTR -TO- RCVR LOOP TEST)
1, TEST 2, TEST 3 REPETEDLY.

PRINT THIS HELP MESSAGE.

POSSIBLE INTERVENTION:

IF SW 12 IS UP AT START TIME, THE FIRST SUBTEST

WILL RUN CONTINUOUSLY AND THE TEST WILL NEVER

ACHIEVE A SUCCESSFUL PASS COMPLETE. SWITCH 12
MUST BE LEFT DOWN UNLESS AN INTERMITTENT ERROR
OCCURS IN A SUBTEST AND IT IS DESIRED TO SCOPE
THE MODULE WITH THE SAME SUBTEST RUNNING CONTINUOUSLY.
AT ANY TIME, SW 12 MAY BE LOWERED AND THE TEST
SEQUENCE WILL RESUME.
9.122

9.123

ANY PARTICULAR SUBTEST MAY BE STARTED BY

STARTING WITH OPTION SWITCH 10 = 1 AND THE
NUMBER OF THE DESIRED SUBTEST IN SW'S <3:0>.
IF IT IS DESIRED, HOWEVER, TO CONTINUOUSLY
RUN ONLY THE SELECTED SUBTEST, SW 12 MUST BE RAISED
AS WELL AS SW 10 AT START UP TIME.
WHEN THE MASTER SECTION TEST HAS IT'S TURN TO RUN

THE FOLLOWING MESSAGE WILL APPEAR ON THE CONSOLE

MACY11 30A(1052)

18-0CT-78

14:35

HEADER AND INSTRUCTIONS

PAGE 7-1

SEQ 0009

PRINTER

SCOPE SECTION FOR SLICE TIMING

RAISE SW 09 TO EXIT THIS LOOP

THIS IS A "HANG-UP'' PROVIDED FOR MAINTENANCE

PURPOSES OF CHECKING AND ADJUSTING SLICE
TIMING IN THE MASTER SECTION. NEITHER THE

PRINTOUT NOR THE 'HANG-UP'' WILL OCCUR IF
SWw 09 IS uP.

NORMALLY, 10 (OCTAL) PASSES ARE MADE OF THE
COMPLETE TEST BEFORE A PASS COMPLETE IS

9.124

ACHIEVED AND

END PASS XX
IS PRINTED ON THE CONSOLE PRINTER.
HOWEVER, RAISING SW 11 WILL CAUSE EVERY SINGLE
PASS TO BE CONSIDERED AS COMPLETE.

RESTARTING:

THE TEST MAY BE RE-STARTED AT LOC. 204

(DEFAULT

OR --THE TEST MAY BE RE-STARTED AT LOC. 224
THIS WILL OMIT ALL OF

THE OPENING DIALOGUE

AND BEGIN RIGHT AT THE TEST SELECTOR.
9.14

(CONTROL CHARACTERS)

CNTRL=C RESTART TO SELECT NEW TDM BUS ADDRESSES
CNTRL=T RESTART AT TEST SELECTOR
CNTRL=D MODIFY DELAY CONSTANT
(NORMALLY SET FOR FASTEST PDP-11)
CNTRL=S MODIFY SWITCH OPTIONS ON NONSWITCH REGISTER PDP-11'S
CNTRL=P CONTINUE AFTER CONTROL FUNCTION

TRANSMITTER TDM BUS ADDRESS IS (1-37).. (DEFAULT

RECEIVER TDM BUS ADDRESS IS (1=37)..

THIS WILL OMIT MOST OPENING DIALOGUE.
THE FOLLOWING WILL STILL BE REQUESTED, HOWEVER:
nn

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PI
12-SEP-78 15:13

'.3'»;9

K
MACY11 30A(1052)
18-0CT-78 14:35
HEADER AND INSTRUCTIONS

1
PAGE 8

SEQ 0010

ERRORS

%;g

BASICALLY, THE ERRORS IN THIS TEST ARE IN THE FORM:

**ERROR X AT LOCATION YYYYYY

332%

WHERE X IS THE ERROR NUMBER:

384
385
3339
388

%gg
§812
393

TRANSM:TTER TEST ERROR #'S 1 TO 121
RECEIVER TEST ERROR #'S 200-262
LOOP TEST ERROR #'S 300-355

(TEST # 1)
(TEST # 2)
(TEST # 3)

AND YYYYYY IS THE ADDRESS IN THE LISTING WHERE THE
ERROR OCCURRED.

REFER TO THE LISTING ABOVE THE COMMENT:
sxnkhtk FRROR X

*hhnwnnn

394
:3"32

TO DETERMINE THE CAUSE OF THE ERROR PRINTOUT.

397
ggg

DATA ERRORS WILL CAUSE A FURTHER PRINTOUT INDICATING
THE ERRONEOUS DATA:

400

403

28’50

SHOULD BE AAAAAA, WAS BBBBBB
OTHER ERRORS WILL CAUSE THE FOLLOWING FURTHER
PRINTOUTS:

2867

TRANSMITTER STATUS REGISTER = CCCCCC

283

RECEIVER STATUS REGISTER = DDDDDD

2}(1)

NO. OF WORDS RECEIVED = EEEEEE

412

SILO OUTPUT WORD WAS FFFFFF

414

SILO INPUT WORD WAS HHHHHH

416
417

MACY11 30A(1052)

18-0CT-78

L
14:35

HEADER AND INSTRUCTIONS

LTITLE

1
PAGE 9

SEQ 0011

CZPLBBO PCL11 STND ALN VO2A
.SBTTL SYMBOLIC DEFINITIONS

s INTERNAL DEFINITIONS:
177776
177570
031746

PS
HWSWR
SSWR

=
=
=

177776
177570
SWREG

;REGISTER DEF INITIONS
RO
R1
R2
R3
R4
RS
SP
PC

=
=
=
=
=
z
=

X1
)¥4
%3
y4
%5
%6
X7

;BUS REQUEST DEFINITIONS:
P7
P6
PS
P4
P3
P2
=

=
=
=
z
=
=
=

340
300
240
200
140
100
40

;BIT DEFINITIONS:

B1S
B14
B13
B12
B11
810
B09
808
807
B06

z
=
=
=
z
=
=
=
=
=

803
802
801
800

=
=
=
=

B80S
B804

=
=

100000
40000
20000
10000
4000

2000
1000
400
200
100

40
20
10
4
2
1

;OTHER DEF INITIONS:
ISP

BEGIN

sINITIAL STACK POINTER

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P
12-SEP-78 15:13

MACY11 30A(1052)
18-0CT-78
MACRO DEF INITIONS

14:35

PAGE 10

SEQ 0012

.SBTTL MACRO DEFINITIONS

;BOARD INITIALIZE MACRO

IF
.IF

.ENDC
.ENDC

000001

.MACRO
.NLIST
IDN
BIS

BDINIT

DEV

IDN
BIS

#801,aTCR
#801,aRCR

;BAD ARGUMENT FOR BDINIT

.ERROR

.LIST
.ENDM

sINITIAL ERROR NUMBER

;ERROR MACROS
.MACRO

ERROR

;exnnxnk

ERROR

wannnnwn

sexnnxtx

ERROR

wtnnnsn

#314 ,aSR
#P ,ERRNUM
PC,ERR

N+1

DATERR

#814 3SR
414

#P ,ERRNUM
PC,DERR

N+1

PC,SWHLT

;PRINT MACRO (MSG ADDR IN RO)
.MACRO
MoV
JSR
.ENDM

PNTM

#A RO

PC,TYPOUT

—

d bl

VNV
WN =

vivvwvwnwvaiwnawaiunawng

HLT

:SCOPE LOOP MACRO
.MACRO
JSR
X

.ENDM

SCOPE
X
R5,SCPRTN

sPRINT MESSAGE

;POINTED TO BY A

CZl

PCI

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13
527

MACY11 30A(1052)

18-0CT-78

MACRO DEFINITIONS

14:35

PAGE 10-1

; INTER-PDP=11 COMPATABLE MOVE TO PS

sTO RUN ON LSI=11: CHANGE THIS MACRO TO:
SRC,-(SP)
MOV
:
3
3

sLil:

MOV

#LLL,-(SP)

.MACRO
MOV
.ENDM

MTPS
SRC,2LLL
SRC ,a#PS

RTI

SEQ 0013

CZl
rCl

18-0CT-78

TRAP CATCHERS

8
14:35

2
PAGE 11

SEQ 0014

.SBTTL TRAP CATCHERS
.ENABLE ABS

004262

000176

WORD
WORD

,+2
O

.WORD
.REPT

340
126.

. WOKD
.WORD

.WORD

ERRTRP
« Y&

:TRAP BAD DEVICE ADDRESSES

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P11

MACY11 30A(1052)

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 12

SEQ 0015

TEST SUPERVISOR

549

.SBTTL TEST SUPERVISOR

200

000200

000167
012706

001574
002000

000005
000167
012706

002472
002000

000167

002670

BEGIN
MTPS
RESET

;TEST STARTS AT 200

#P7

RESTRT
#1SP,SP

#P7
BCONT

;GO TO TEST SELECT

2000

002000
000005

#1SP,SP

012706

002000

005067
012737
012737
012767
005777

033276
003774
000340

177570
027702

BEGIN:

#P7 ,aN6

027706
PROMT:

016767
004767
016767
026727
103006

033346
030142
030410
033326

000167
012737
005777

177714
004242

016767

033252
030044
030312
033232

033274

000167
005777
012737

177714
033206
004262

016767

033146
027746
030214
030206
177714

030420

033332

#HWSWR,
SR
aSR
TSTHDR
TMTR
FRAD
TXMADR
, KBBUF
PC,INPKB

, TXMADR
KBBUF

164000

000004

#1SP,SP
#P7
SWRFLG
#SRTST ,a#4

TXMADR
, #164000

PRMT1
PRMT1:
PRMTZ:

030322

033236

TOOLOW
PROMT

#DVATST ,a#4

aTXMADR
RECVR
FRAD
RCVADR ,KBBUF
PC, INPKB
KBBUF ,RCVADR

RCVADR,#164000
PRMT3

164000

TOOLOW

000004

030224

033132
000776

PRMT3:
PRMT4:

PRMT?

aRCVADR
#ERRTRP ,a#4
TMTR
VCTR
TXMVE
C ,KBBUF
PC, INPKB

KBBUF
, TXMVEC
KBBUF ,#776
PRMTS

AGAIN

PRMT4

;CLEAR ALL
;SET UP STACK
;DISABLE C.P. INTERRUPT
:CLEAR SWR FLAG
;SET UP TO TRAP IF NO HSWR

;SET SR TO HDWARE SW REG

;SEE IF IT'S THERE

;PRINT TEST HEADER

;PRINT '‘TRANSMITTER''

sPRINT '"IST BUS ADDR'’
;LOAD DEFAULT ADDR

;GET KBD INPUT
;REPLACE XMTR ADDR
;IS IT WITHIN LIMITS?
;YES, CARRY ON
sNO ERROR, ASK AGAIN

;1S IT A GOOD ADDRESS?

;PRINT 'RECEIVER''
;PRINT 1ST UNIBUS ADDR''
;LOAD DEFAULT ADDRESS
;GET KBD INPUT
:LOAD NEW ADDRESS
;IS IT WITHIN LIMITS?
;YES,

CARRY ON

;IS IT A GOOD ADDRESS?
;SET UP FOR FURTHER TRAPS
sPRINT '‘TRANSMITTER''

:PRINT 'VECTOR IS"

:LOAD DEFAULT VECTOR
:GET KBD INPUT
:REPLACE XMTR VECTOR
IS IT WITHIN LIMITS?

sNO, TELL HIM

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13

605

002336
002346
002356

MACY11 30A(1052)

TEST SUPERVISOR

PRMTS:

016767
004767
016767
026727

033064
027662
030130
030122

000167

177714

016767
004767
026727

032714
027576
030044

030140

033050
000776

177676
027774
027770
027764
027760
027754
027750

016767
004767
026727
003406

032560
027442
027710

000007

000167
026727
002006

177722
027664

000004

000167
006367
006367
006367
006367
006367
016767
004767

177676
027640
027634
027630

000001
027302

004767
005767

027550

000167
026727

177724
027526

PRMTS

TMTR
PRIOTY

FKPRIO,KBBUF
PC, INPKB

KBBUF ,#7
PRMT7

000007

000167
006367
006367
006367
006367
006367
016767

RECVR
VCTR
RCVVEC ,KBBUF
PC, INPKB
KBBUF ,RCVVEC

KBBUF ,#776

030054

177722
030020

PNTM
PNTM

D
14:35

PRMT6
AGAIN
PRMT6:

000167
026727
002006

027624
027620
027614
001132

18-0CT-78

PRMT7:

AGAIN
PRMT6

KBBUF ,#4
PRMT8

2
PAGE 12-1

SEQ 0016
;PRINT 'RECEIVER''

;PRINT 'VECTOR IS’

;LOAD DEFAULT VECTOR
;GET KEYBOARD INPUT
;LOAD NEW VECTOR
;IS IT WITHIN LIMITS?

sPRINT '‘TRANSMITTER''

;PRINT "PRIORITY LEVEL IS"'
;LOAD DEFAULT PRIORITY
;GET KBD INPUT
;IS IT WITHIN LIMITS?
;LOW ENOUGH, 0.K.
sHIGH ENOUGH?

AGAIN

PRMTS8:

032612

PRMT6

sSHIFT INTO PLACE
;LOAD NEW PRIORITY.
;PRINT 'RECEIVER

PRMT9:

;PRINT 'PRIORITY LEVEL IS "'

;LOAD DEFAULT PRIORITY
;GET KBD INPUT
;LOW ENOUGH, 0.K.

027720

3s:

sHIGH ENOUGH?

4%:

032460

KBBUF ,RPRI0
RESTRT:

027560

PC ,DEVGEN
TMTR
TDMAD
#1 ,KBBUF
PC, INPKB

KBBUF
ADOK
AGAIN

000040

ADOK:

RESTRT

KBBUF ,#40
ADGD

sSHIFT INTO PLACE

;LOAD NEW PRIORITY
;GENERATE PCL-11 ADDRESSES
sPRINT ‘'‘TRANSMITTER''
;PRINT *‘TDM BUS ADDRESS''
;LOAD DEFAULT OF ‘1"
;GET KBD INPUT.

;DON'T ALLOW O

;CAN'T BE 40 OR HIGHER

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PN
12-SEP-78 15:13

003002
003012
003016
003024
003044

000167

177700

MACY11 30A(1052)

TEST SUPERVISOR

116767

027502

032327

012767

000001
027174
027442

027452

177724

027420

000040

116767

177700
027374

032217

012767
004767
026727

000077
027076
027344

005767
001402
000167

027334

000167

177720

016767
005767
001402
004767

027306
032072

000167

103005

027354
000005

000014

032124

026154
032074
032072
032070
000001

000220
177770
032032

PNTM
JMP
ADGD:
MOvB
PRMT10: PNTM
PNTM
MOV
JSR
TST
BNE
PNTM
JMP
:
ADROK
CMP
BLO
PNTM
JMP
ADRGD :
MovB
PNTM
BCONT:
MOV
JSR
CMP
BHIS
TST
BEQ
JMP
BHLPMG: PNTM
JMP
TESTGO: MOV
TST
BEQ
JSR
1%:
CLR
CLR
CLR
CLR
CMP

BNE
CLR

118:

000002

2$:

032024
21%:

011304

177770

031776

000003

3s:

031770
31%:

017144

177770

716

012767

18-0CT-78

031742

000004

177777

031732

4%:

PNTM

JSR
JMP
CMP
BNE
CLR
PNTM

14:35

PAGE 12-2

AGAIN
RESTRT

SEQ 0017

, TRAD+1
KBBUF

;SAVE ADDR IN UPPER BYTE
;PRINT 'RECIEVER''
sPRINT '‘TDM BUS ADDRESS'’
;LOAD DEFAULT OF 1
;GET KBD INPUT
sDON'T ALLOW O

KBBUF ,#40

;CAN'T BE 40 OR HIGHER

KBBUF ,RCAD+1

;SAVE ADDR IN UPPER BYTE

RECVR
TDMAD
#1 ,KBBUF
PC, INPKB
KBBUF
ADROK
AGAIN
PRMT10
ADRGD

TSTSEL
#77 ,KBBUF
PC,INPKB

KBBUF ,#5

BHLPMG
KBBUF
BHLPMG
TESTGO
HLPMSG
BCONT

KBBUF
, TESTNO
SWRFLG
1$
PC, SWDMP

PSNO1
PSNO2
PSNO3

sPRINT ''SELECT TEST <CR> = HELP"'

;DEFAULT TO HELP
;GET KEYBOARD INPUT
;DID HE TYPE 5 OR HIGHER?
sYES, GIVE ASSISTANCE.
JHOPE IT WASN'T ‘0"’
; 'CAUSE THAT'S NO GOOD EITHER
sEVERYTHING OK. GO TO TESTS
:NO GOOD, PRINT HELP MESSAGE.
;SAVE TEST NUMBER
;GOT ANY SWITCHES?

;YES, YOU'RE ON YOUR OWN
;OTHERWISE, SHOW SW OPTIONS.
;CLEAR END PASS COUNTER
sCLEAR END PASS A COUNTER
;CLEAR END PASS B COUNTER
;CLEAR END PASS C COUNTER

PSNO4
TESTNO,#1

:aSLECT TEST 1?

$4FLAG

;CLEAR END PASS INHIBIT FLAG

PC,TEST1
11$
TESTNO
42

:YES, GO DO IT (LOOP)

sSELECT TEST 2?

$4FLAG

;CLEAR END PASS INHIBIT FLAG

TXHDR

RCHDR

PC,TEST?

218
TESTNO,#3

48
$4FLAG
XRHDR
PC,TEST3
318
TESTNO,#4
5%

sPRINT XMTR TEST HEADER

'm.

sPRINT RCVR TEST HEADER
;YES, GO DO IT (LOOP)

;SELECT TEST 3?
:NO

*CLEAR END PASS INHIBIT FLAG
*PRINT LOOP TEST HEADER
*YES, GO DO IT.
sSELECT TEST 4?
*NO?227?
.....

v
|

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.PN

n7
718
719
720
721
722

723
724

725

003414
003424
003430
003434
003440
003444
003454
00346C
003464
003470
003474

12-SEP-78 15:13

00007°2
011206
017076
031674

MACY11 30A(1052)

TEST SUPERVISOR

41%:

177702

PNTM

JSR
JSR
JSR
INC

PNTM
MOV
JSR
MOV

031660
027116
000040
027276
000103
027266
027260
027254

18-0CT-78

JSR

MOV
JSR

5%:

CLR
JSR
JSR
JMP

ALTHDR
PC,TEST]
PC,TEST?

PC,TEST3

PSNO4
PEND
PSNO4 ,RO
PC,DECPNT

#40,R0

PC,TTO
#'C,RO
PC,TTO

14:35

PC,TTO
PC,TTO
418

PAGE 12-3

SEQ 0018

;PRINT TRIPLE TEST HEADER
;DO ALL TESTS (LOOP)
;UPDATE PASS COUNTER
;PRINT END PASS #

;GET PASS # TO RO
sPRINT

IN DECIMAL

JALSO, PRINT ‘"'

;TO IDENTIFY END PASS OF
;TEST &

sNULLS TO ALLOW PASS #

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13

MACY11 30A(1052)

TRANSMITTER TESTS

734
735

.SBTTL

736

737
738
739

746

750
751
752
753
754
755
756
757
758
759

012767

#P7
#10,ITER
PC,MONIT
#810,aSR

#-20,SWI
SWI 410

031564
026200

026172
177760
031532

031544
031536
000010

BIC
CMP

BEQ
MOV
BGT
CLC
ROL

031520

ROL

031506
LOOP:

026054

BiT

031420

031436

ADD
JMP
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR

:
XEND

031414
031400
026644

BNE
DEC
BNE
TST
BNE
INC
PNTM

MOV

LOOP
aSR, SWI

;CHECK SW 10

PC,TCRTST
PC.BCTST
PC,BATST
PC,MSRTST
PC,SILTST
PC,TSRTST
PC,INTST
PC,CRCTST

#811,aSR
XEND
ITER
LOOP
$4FLAG
REPEAT
PSNO1
PEND

PSNO1,RO

027026

027020

JSR

PC,TTO

;IF 0, RUN SEQUENTIALLY

;IF SET, GET TEST # FROM SWR

SwWI
SWI
#LOOP,SWI
asSwl
PC.XINIT

PC,DECPNT
RO
PC,TTO

REPEAT
: RTS

;INITIAL ITERATION OF 10 PER PASS
;CHECK FOR K8D INPUT

LOOP

JSR
CLR
JSR

CLR

SEQ 0019

TRANSMITTER TESTS

TEST1:

000010
025612
002000

763
764
765
766

2
PAGE 13

TRANSMITTER LOGIC TESTS
RESET TEST
TCR REG. TEST
TSBC REG TEST
TSBA REG TEST
MASTER SECT. TEST
DATA SILO TEST
TSR REG. & ERRORS TEST
INTERRUPT TEST
C.R.C. TEST

(00)
(01)
(02)
(03)
(04)
(05)
(06)
(07)
(10)

MTPS
MOV
JSR
BIT

760
761
762

14:35

STEST 1+

740
741
742
743
Ll
745

747
748
749

18-0CT7-78

RO
PC

JMASK LOW DIGIT
;DON'T ALLOW SW = >10
:IF GREATER, START 1°'ST TEST
:CLEAR ''C'' BIT BEFORE ROTATE

sMULTIPLY BY 4
;GENERATE OFFSET
;GO TO SELECTED TEST
;DO INITIAL CLR TEST
;DO TCR REG TEST
;DO BYTE COUNT REG TST
;DO BYTE ADDR REG TEST
;DO MASTER SECTION TEST
;DO DATA SILO TEST
;DO TSR REG & ERRORS TEST
;DO INTERRUPT TEST
;DO CRC GENERATION TEST
;CHECK SWITCH 11
;PRINT END IF SET
;OTHERWISE, REITERATE
;SHOULD WE PRINT END PASS?
JNO, LEAVE
;UPDATE PASS NUMBER
sPRINT "END PASS # '’
;PRINT PASSNO.

sPRINT NULLS TO ALLOW TIME
;FOR PASS # TO BE PRINTED

;RETURN TO SUPERVISOR

;NON-SWR PROCESSOR HALT SUBROUTINE
031336

SWHLT:

TST

SWRFLG

;ANY HARDWARE

SWR?

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13
001403
004767
000207
000000
000207

012767
012767
000002

MACY11 30A(1052)

TRANSMITTER TESTS

BEQ
JSR

025420
1%:

031746

177777

18-0CT-78

025746
031306

SRTST:

RTS
HALT
RTS

MOV
MOV
RTI

14:35

PAGE 13-1

SEQ 0020

;IF YES GO HALT

JRETURN IF

#SSWR,
SR

sNO HDWARE SWR, USE MEM LOC
;SET SOFT SWR FLAG

PC,SWDNP
PC

#-1,SWRFLG

;IF NOT GO GET Sw LOC
CONT KEY HIT

sRETURN

;THIS ROUTINE ENTERED FOR SCOPE ROUTINES

004767
005777
100402

012500
032777
001402
012605
000110
000205

025336
025726

020000

025710

SCPRTN: JSR
TST
BMI
HLT

PC,MONIT

SBAK :

MOV

SCONT:

RTS

(RS)+,R0
#813,aSR
SCONT
(SP)+ RS
(RO)
RS

aSR
SBAK

;SEE IF *S WAS TYPED
;BIT 15 SET?
;YES, DON'T HALT

;COMMON ERROR HALT. EXAMINE
:R5 FOR PC OF ERROR

;GET DIRECTION FOR SCOPE LOOP
;SW 13 SET?
;NO, DON'T LOOP
;YES, RESTORE RS
;AND LOOP
;JUST RETURN

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P11

814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 14

SEQ 0021

UTILITY ROUTINES

.SBTTL UTILITY ROUTINES

;DEVICE ADDRESS GENERATION
031374
031314
000002
031306
000002
031300
000002
031272
000002
031264
000002
031256

004050
004054
004
004

004070
004074
004100
004104
004110
004114
004120
004124
004130
004132
004136
004140
004144
004152
004156
004162
004166
004172
004176
004202
004206
004212
004216
004222
004226
004232
004240

DEVGEN: MOV
MOV

TXMADR,
RO
RO,TCR

;GENERATE TSR

;GENERATE TSDB
;GENERATE TSBC

;GENERATE TSBA
;GENERATE TMMR

;GEN. TMMR HIGH BYTE

021252
031246
031274
031274
031232
000002
031224
000002
031216
000002
031210
000002
031202
000004
031174
031210

;GET BASIC XMTR ADDRESS
;GENERATE TCR

RO, TSCRC

031212

TXMVEC, TXVEC

RCVADR,RO
RO.RCR
#2.RO
RO,RSR
#2.R0O
RO,RDDB

RO,RDBC
#2.RO
RO,RDBA
#4 RO
RO,RDCRC
gEVVEC -RCVEC

031126

rowess
IR IC
ELIN
:GENERATE RSR

;GENERATE RDDB
;GENERATE RDBC

;GENERATE RDBA
s GENERATE RDCRC
s GENERATE RCVEC
sRETURN.

;DEVICE TEST TRAP HANDLER

004242
004246
004256

002000

DVATST: MOV
PNTM
JMP

175574

#1SP,SP

INVLAD

PROMT

;PRINT NON-EXST ADDR MSG
sRETURN TO ASK ALL AGAIN

;ROUTINE TO CATCH TRAPS TO 4

004262
004266
004274
004
004310
004316
004322
004326

011667
012737
012706

031054
000340
002000

162767
016700
004767
000167

000002
031020
026200
176600

177776

031024

ERRTRP: MOV
MOV

(SP) ,TEMP
#P7 ,aNPS

;SAVE STACK FOR ADDRESS OF TRAP
;RAISE PRIORITY

;PRINT “‘TRAPPED TO 4 "' MSG

JSR
JMP

TRAP4
#2,TEMP
TEMP RO
PC,OCTPNT
BCONT

MOV
PNTM
SuB
MOV

#1SP,SP

sFIX THE STACK

;PRINT WHERE FROM.

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13

MACY11 30A(1052)
18-0CT-78
UTILITY ROUTINES

J
14:35

2
PAGE 14-1

SEQ@ 0022

; STANDARD DELAY SUBROUT INE

;MODIFY LOCATION ‘DLCON'' TO CHANGE

;DELAY PERIOD.
876
877

004332
004336

012567
005767

030754
025410
000001

025374
030730
030720

025400
030734

DELAY:

MOV

DLWT:
DLWT1:

MOV
MOV
DEC
BNE

TST
BNE

DEC
BNE
RTS

(R5)+,DILLY

DLCON
DLWT

#1,DLCON
DLCON,DLY
DLY
DLWT1
DILLY
DLWT
RS

;GET DELAY PARAMETER
;1S DLCON = 0?
:IF NOT, CARRY ON

;IF SO, MAKE IT =1
;GET DELAY CONSTANT

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

INITIALIZE TEST

K
14:35

2
PAGE 15

SEQ 0023

INITIALIZE TEST

sCHECK INITIAL CONDITIONS AFTER A RESET
030776
025574
025566

025576

017767
005067
005767
001414

030730
025524
025516

017767

030662
000377
050000
025440

025456
025450
025444
025434

050400

025424

WNV=O

8823333§§§§
-

18-0CT-78

.SBTTL

889
890
891
892
893
894
895
897
898
899
900
901
902
903
904
905

MACY11 30A(1052)

025526

XINIT:

XA1l:

RESET
MoV
CLR
TST
BEQ
DATERR
SCOPE
MOV
CLR

aTSB(C,BAD
GOOD
BAD
XA1
\N
XINIT
gTSBA.SAD

;CLEAR ALL
;GET BYTE COUNT REGISTER

;WAS TSBC = 0?
;ERROR:TSBC NOT CLEARED BY RESET
;GET BYTE ADDRESS REGISTER

;WAS TSBA = 0?
;ERROR:TSBA NOT CLEARED BY RESET

OFF ANY ADDR SILO DATA
IMASK

XAZ2:

;SET UP GOOD FOR COMPARE
:I%E BIT 8 WHEN DETERMINING

;ERROR:TMMR NOT INITIATED BY RESET
017767
012767
026767
001414

030560
000400

025354

919

025364
025360
025350

025310

;GET TSR REGISTER
;SET UP GOOD FOR COMPARE

XA4:

:
XAS

XINIT

aTCR,BAD
GOOD
BAD

XA6

030450
025236
025230

024342
010000
177350

\N
XINIT
aTSCRC ,BAD
GOOD
BAD

025240

XA7

024730

XA7:

:
XART

\N
XINIT
PC _MONIT

#812,aSR
XART
XINIT

;ERROR:TSR NOT INITIALIZED BY RESET

;GET TCR REGISTER

;WAS TCR = 0?

;ERROR:TCR NOT CLR'D BY RESET
sCHECK CRC REGISTER
;WAS IT 0?
: YES, CONT INUE
;ERROR:TSCRC NOT CLEARED BY RESET

sCHECK EXIT SW (SW 12)
;IF SET, STAY IN THIS TEST

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052)

TCR TEST

18-0CT-78
.SBTTL

k£
14:35 PAGE 16

SEQ 0024

TCR TEST

;TRANSMITTER COMMAND REGISTER TEST

030340
017400
025140
030320
025124

025064
030246
030242

160377
025040

030166
030164
120365
024762
030142
024746

137765
177777
177777
037240
000002
030036
024642
024636

017767
026767
001414

017767
026767
001414
017767
012767
026767
001414

027772
024570

CLR

aTCR

MOV
MOV

ggz

GOOD,aTCR
aTCR,BAD
gggo.er

025050

DATERR
SCOPE
CLR
CLR
MOV

XD1
600D
aTCR
aTCR,BAD

025034

ggg

gggo.aAo

025144

030324
025126

TCRTST:

XD1:

025120

XpD2:

025042

BIC

xp3:

024766
030146

XD4:

030052

024572
024564

aTCR,BAD
GOOD
, BAD
XDé
\N
XD3
#137765,aTCR
#-1,aTSBC
#-1.aTSBA

CLR

P
BEQ
DATERR
XDS5:

SCOPE

MOV
cMP
BEQ

DATERR

027726
024522

027652
000400
024446

024524
024516

024456
024452
024442

XD6:

XD7:

XD8:

#160377 ,BAD

MOV
cTMP
BEQ
DATERR
SCOPE
MOV
MOV
MOV
BIS
MOV

024632

\N
XD2
aTCR
aTSR

MOV

030042
024644

#17400,GOOD

DATERR
SCOPE
CLR
CLR

MOV
MOV

024750
024742

030072
030072
030066

MOV

SCOPE

MOV
cTMP
BEQ
DATERR
SCOPE
MOV
MOV

#120365 , GOOD
GOOD,aTCR

#37240,3TSR

;CLEAR TCR REG
“SET ALL DEST. CODE BITS
:AND READ THEM BACK
*ALL DEST CODE BITS SET?
:ERROR: CANNOT SET SOME DEST. CODE BITS
:NOW CLR DEST. CODE BITS AFTER
*SETTING THEM
*READ THEM BACK

“IGNORE ALL BUT DEST. CODE BITS
*ALL CLEAR?

;ERROR:CANNOT CLR SOME DEST.CODE BITS
:CLEAR POSSIBLE TIMEOUT

“SET ST TXM,INH ADR INC.EA 16817,
*1E,RD SILO,SND WD,RRIB
“SEE IF THEY ALL SET

;ERROR:BAD BITS IN TCR

:SET ALL SETTABLE BITS IN TCR
SAND IN TSBC
:AND IN TSBA

SAND IN TSR

#2.3TCR
aTCR,BAD

‘BOARD
“CHK TCR

GOOD ,BAD
XDS
\N

:TCR = 0?

GOOD

XDé

aTSBC ,BAD
GOOD , BAD
XDé

XDé

aTSBA,BAD
GOOD ,BAD
XD7
\N

XDé
aTSR,BAD
#400,GOOD

(MP
GOOD ,BAD
XD9
BEQ
DATERR \N
SCOPE XD4

INIT

:ERROR:TCR NOT CLR'D BY BOARD INIT
:CHECK TSBC
:TSBC = 0?

:ERROR:TSBC NOT CLR'D BY BD INIT
;TSBA = 0?
:ERROR:TSBA NOT CLR'D BY BD INIT
;TSR OK?

:ERROR: TSR BAD AFTER BD INIT

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13
994
995
996
997
998

004767
032777
001402
000167
000207

023554
010000
177214

MACY11 30A(10 Sg)

TCR TEST

18-0CT-78
JSR

024142
XDRT:

m
14:35

SEQ 0025

PC ,MONIT

BIT

#812,3SR

RTS

BEQ
JMP

2
PAGE 16=1

XDRT
TCRTST

sLEAVE IF SW 12 = 0
;OTHERWISE, MUST STAY

PCl

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13

MACY11 30A(1052)

TSBC TEST

18-0CT-78

LSBTTL

1000
1001
1002
1003

TSBC

N
14:35

2
PAGE 17

SEQ 0026

TEST

;BYTE COUNT REG. DATA TEST
012767
012767
016767
016777
017767

026767

001414

032767
001407
046767

177777

000001
027462
024334
027522
024320

027474
027470
024340
027526
024322
024314

100000

027376

027372

027366

023766
177626

BCTST:

XxB1:

XB?:

BDINIT
MOV
MOV
MOV
MOV
MOV
cMP

BEQ
DATERR
SCOPE

BIT

BEQ

BIC
ASL

XB3:

JMP
JSR

BIT

BEQ

XBRT :

JMP
RTS

XMTR
#-1,PAT
#800, MASK
PAT , GOOD
GOOD , 3T SBC
aTSBC ,BAD
, BAD
GOOD

XB2
)\(31

#B15,PAT
XB3
MASK ,PAT
MASK
XB1
PC ,MONI
T
#Ri2,asR
XBRT
EE'S'

SINIT XMTR MODULE
“SET PATTERN
*SET BIT MASK
*LOAD ''GOOD'* WITH PATTERN
*LOAD PATTERN INTO TSBC
*READ TSBC
;ERROR:BAD DATA IN TSBC

:DONE WHOLE REGISTER?
*IF YES, DONE
*NO, PREPARE FOR NEXT BIT
*ROTATE MASK
TAND CONT INUE
:1F SO, CONSIDER LEAVING
CEXIT IF SW 12 = 0
“STAY HERE

SW 12 =

PC|

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.PN

MACY11 30A(1052)

TSBA TEST

.SBTTL

1025

1926
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039

RRRRER

coONONWNS
W

1040
1041
1042

18-0CT-78

B
14:35

3
PAGE 18

SEQ 0027

TSBA TEST

;BYTE ADDRESS REGISTER TEST
012767
012767
016767
016777
017767
026767
001414
032767
001407
046767
367

177777

000001
027306
024160
027350
024144

027320
027314
024164
027354
024146
024140

100000

027222

027216
027210

027212

177670

023224
010000

177626

023612

BATST:

XC1:

XC2:

BDINIT

MOV
MoV
MOV
MOV
MOV

cMP
BEQ
DATERR
SCOPE
BIT
BEQ
BIC
ASL

XC3:

XCRT:

JMP
JSR
BIT
BEQ
JMP
RTS

XMTR
#-1,PAT

sINIT XMTR MODULE
;SET PATTERN

aTSBA BAD
GOOD ,BAD

sREAD IT BACK

#800 ,MASK
PAT ,GOOD
GOOD,aTSBA
XC2
\?1

#815,PAT
XC3
MASK ,PAT
MASK
XC1

PC,MONIT

#812,aSR
XCRT
E?TST

;SET BIT MASK
;LOAD ''GOOD‘’ WITH PATTERN
;LOAD PATTERN INTO TSBA

;ERROR:BAD DATA IN TSBA

;DONE WHOLE REGICTER?
;IF YES, DONE
;NO,PREPARE FOR NEXT BIT
sROTATE MASK
sAND CONT INUE

;IF SO, CONSIDER LEAVING
SEXIT IF SW 12 = 0
;STAY HERE IF Sw 12 =1

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P1
12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

MASTER SECTION TEST

.SBTTL

C
14:35

3
PAGE 19

SEQ 0028

MASTER SECTION TEST

;TEST MASTER CONTROL AND ADDRESS SILO

112777
132777
001014

000001
000001

004767
032777
001024
012767

023126
001000

005067
005767

027040
027032

177777

000001
000001

028 3BIR3%

MOVB
g'x‘ga

023514
027054

XE1:

nomn

d
D

b
—

— e

SCOPE
JSR

027074

027066
027026
027020

152777
132777
001014

000004
000004

142777
132777
001414

000004
000004

112777
132777
001017
142777

000002
000001

026712

000002

026674

132777
001417
142777

000002

026636

000002

026626

132777
001017
142777

000004

026570

000002

026560

026760
026752

XE2:

XE3:

PNTFLG
SWRFLG

*CLEAR PRINT ALLOW FLAG
*REAL SW REG?

JSR
JSR

PC, SWDMP
PC.MONIT

026704

XE6:

XE6A:

SCSEC

*OTHERWISE PRINT ‘‘SCOPE SECTION..

XE2

:YES, SKIP

BIT

#809,asR

:KEEP AN EYE ON SW 09

BITB

#1.aTMMRH

*IS MASTER CLEAR?

BEQ
BICB
ERROR
SCOPE

XE2
#1,3TMMRH

XE 3A
\N
XE3

BISB
BITB

#4,aTMMRH
#4.aTMMRH

ERROR

SCOPE

XE 38

XE3A

BICB

#4,aTMMRH

BEQ

XE SA

BITB

ERROR

XESA:

:ERROR: COULD NOT SET MASTER FLOP

CLR
TST

BNE
XE3B:

“SET MASTER FLOP
*1IS MASTER SET?

;CHECK SW 09
“IF ON, SKIP SCOPE LOOP
“SET PRINT ALLOW FLAG

BEQ
XE3A:

MSRTST
PC ,MONIT

:INIT BOADR

#809,asR
XE3
#-1.PNTFLG

BEQ

023444

XMTR

#1,3TMMRH
:g iamwm

BIT
BNE
MOV

PNTM

)

006544

MSRTST: BDINIT

ERROR

023114
023056
001000

1093

027226
027220

#4.aTMMRH

SCOPE
MOVB

XE38
#2,aTMMRH

BICB

#2,aTMMRH

BEQ

XE A

S,flEB

ERROR
SCOPE
BITB

:;éarmm

\N
XESA
#2,aTMMRH

BICB

#2,aTMMRH

BNE

XE7

ERROR
SCOPE
BITB
BICB

ERROR
SCOPE

\N
XESA
#4,aTMMRH
#2,3TMMRH

\N
XESA

“STAY HERE °‘TILL IT GETS SET
*CLR MASTER FLOP
:ERROR: COULD NOT CLR MASTER FLOP

:SET "NOW MASTER'' FLOP
SIS IT SET?

*YES, GO TO CLEAR IT

:ERROR: COULD NOT SET 'NOW MASTER FLOP

;OKAY, NOW CLEAR ‘NOW MASTER''
*1S IT CLEAR?

:YES, OKAY.

:ERROR: COULD NOT CLEAR ‘NOW MASTER''
:SET SECONDARY FLOP

*1S MASTER SET?

:CLR SEC FOR RE-TRY

:ERROR:SETTING SEC DID NOT SET MASTER
;1S SEC CLR?

:CLR SEC FOR RETRY

:ERROR:SEC NOT CLR'D BY THE SETTING OF MASTER

;1S "NOW MASTER ‘' SET?

*YES, OKAY

“CLR SEC FOR RETRY.

:ERROR:'NOW MASTERTM' NOT SET VIA SECONDARY

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PN
12-SEP-78 15:13

MACY11 30A(1052)
18-0CT-78
MASTER SECTION TEST

Hgg

1106
1107

1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118

006660
006666

001014

006734
006736
006760

001414

006772

005003

006726

1131
1132

1133
1134

1135
1136
1137
1138

1139
1140
1141

1142

1143
1144
1145
1146
1147
1148
1149
1150
1151

1152
1153
1154
1155
1156
1157
1158
1159

000200

012704

177700

006774
007002

132777
001014

000100

110377

026346

132777

000100

007040
007042
007044

1129
1130

132777

000060
000020

006766

1122
1123
1126

1127
1128

152777
132777

006674
006676
006720

007004
007026

1125
1126

3
PAGE 20

SEQ 0029

;ADDRESS SILO TEST

1119
1120

1121

0D
14:35

007034

007046
007054

007056
007100

007106
007114

007116
007140

007146
007154

005203
005204
001420

001367

132777

001414

132777

001014

000100

000200

007156
007200
007206
007210

005003
012704

007222
007230

117767
005077

026160
026140

010367
026767
001414

022740
022734

007214
007234

007242
007246
007254
007256
007300
007306
007310
007314
007316

007320
007326
007330
007352
007360
007366
007370
007412

052777
042767

005203
042703
005204
001420

177700

026454

XE9:

026334

026274

026234

022742

022754

022730

XE11:

XE12:

XE14:

XE15:

XE16:

177740

000200

XxE10:

XE13:

177400

132777

XE7A:

026406

026152

000200

XE7:

XES8:

000200

132777
001332

001414

026522
026514

026062

026022

XE17:

XE18:

BISB
BITB

BNE
ERROR
SCOPE

BITB

BEQ
ERROR
SCOPE

#60,3TMMRH
#20,3TMMRH

;SET AUT ADR TO LD SILO ECLR SILO
;IS AUT ADR SET?

XE7A
N
XE7

;ERROR:COULD NOT SET TMMR BIT 12

XE8
N
XE7

;ERROR:TMMR BIT 13 DOES NOT CLR ADDR SILO

#200,aTMMRH

;CHECK FOR OUTPUT RDY

MOV

#-64. R4

;R4 IS COUNTER

BITB
BNE

#100,aTMMRH
XE9

;ADR SILO INPUT RDY?

CLR

ERROR
SCOPE

mMovB
INC
INC
BEQ

BITB

BNE

ERROR
SCOPE

BITB

BEQ
ERROR
SCOPE

BITB

BNE
ERROR
SCOPE
CLR
MOV

N
XE8

;LOAD ADDR SILO

#100, 3TMMRH
XE9

; INPUT READY?

N
XE7

;ERROR: INPUT NOT RDY-PREMATURLY FULL?

N
XE7

;ERROR:SILO FULL-BUT STILL RDY FOR INPUT

N
XE7
R3
#-64. R4

;ERROR:FULL SILC NOT RDY FOR OUTPUT

#100,3TMMRH
XE12
#200,3TMMRH
XE13

#807,aTCR

BIC

#177400,BAD

MOV
(MP
BEQ
DATERR
SCOPE
INC
BIC
INC
BEQ

BITB
BNE
ERROR
SCOPE
BITB
BEQ
ERROR
SCOPE

;ERROR:ADR SILO INPUT NOT RDY

R3,3TMMR

R3
Ré4
XE11

BIS

MovB
CLR

;R3 IS DATA

aTMMR,BAD
aTCR

R3,GO0D
GOOD ,BAD
XE16
N
XE7
R3
#177740,R3
Ré
XE18

#200,aTMMRH
XE14
N
XE7
#200,3TMMRH
XE19
\N
XE7

;SILO _SHOULD BE FULL NOW
: INPUT READY?
:SILO OUTPUT RDY?

;R3 IS FOR DATA COMPARE
;R4 IS COUNTER

;SET RD SILO

;READ WORD FROM ADDRESS SILO
;CLEAR RD SILO BIT

sONLY INTERRESTED IN LOW BYTE
:SILO OUTPUT OK?
;ERROR:BAD DATA READ FROM ADDR SILO

;KEEP R3 DOWN TO 5 BITS
;AFTER 64 WDS, EXIT
:SILO OUTPUT READY?
;ERROR:SILO OUT NOT RDY-SILO NOT EMPTY

;SILO OUT RDY AFTER 64 READS?
;ERROR:EMPTY SILO READY FOR OUTPUT

D -y
=
)

VIS WN=O

n
o
~N
_—

—

)

rororoNONON

D ed

D e
IR

D
) D d
T N (T Y O

D d
N
W

D ol
Y
Y

D
Y

D D D ed D D D
—— — — e — Y

D e D D D rd
— g
-

D D D D
e

D D
e

D D DD
T
T

PR SRR RN 28 BB IR RRAR 2B IIIFANANIITEIEARRER 3

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13
007420
007424
007432
007436
007440
007446
007450
007472
007500

MACY11 30A(1052)

MASTER SECTION TEST

025750
000000
174674

025754

000200

025742

000200
025702

025674
022476

152777
132777
001414

000041
000200

025666
025660

112777
132777

000037
000200

025616
025612

XE21:
XE22:

000020
022140
177000
000200

025602

XE22A:

025564

XE22B:
XE23:

005077
112777
004567
000010
132777
001022

052777
117767

001774
142777
016704
012703
132777
001420
005203
001372
005304
001366
142777

000001
174432

025514

132777
001014

000200

025500

004567
000010

004567
000010
152777
052777

174364

aTCR
#0,aTMVR
RS.DELAY
10
#200,aTMMRH
XE20

BIS

#807,aTCR

SCOPE
BISB
BITB
8EQ
ERROR
SCOPE
MOVB
BITB
BEQ
BICB
MOV
MOV
BITB
BEQ
INC
BNE

XE19
#41,aTMMRH
#200,3TMMRH
XE21
N
XE20
#37,aTMMR
#200,3TMMRH
XE22
#20,3TMMRH
DLCON,R4
#177000,R3
#200,3TMMRH
XE24
R3

BNE

XE228

MOVB

XE20:

XE24:

042777

000200

025326

004567
000010
132777
001417

174252

000200

025320

042777

000200

025252

152777

000060

025252

XE27:

alMMR,BAD

XE23

ERROR
SCOPE
BICB
JSR

_WORD
BITB
BNE

\N
XE22A
#1,aTMMRH
RS.DELAY
10
#200,3TMMRH
XE2S

SCOPE
JSR
LWORD
BISB

XE20
RS ,DELAY
10
#21,3TMMRH

BIS

#807,aTCR

BIC

#177400 ,BAD

MOV
CMP

XE26:

DEC

MOVB

022170

E
14:35

CLR
MOVB
JSR
_WORD
BITB
BNE

ERROR

XE2S5:

025432
025410
022212

117767

XE19:

ERROR

000021
000200
025416
177400
000037
022174

042767
012767
026767
001417

18-0CT-78

BEQ
DATERR
BIC
SCOPE
JSR
.WORD
BITB
BEQ
ERROR
BIC
SCOPE
BISB

@aTMMR,BAD

#37,GOOD
GOOD ,BAD

XE26
\N
#807,3TCR
XE20
RS,DELAY
10
#200,3TMMRH
XE27
\N
#807,3TCR
XE20
#60,aTMMRH

PAGE 20-1

SEQ 0030

;CLR RD SILO
;LOAD A WORD INTO SILO
sWAIT FOR MIGRATION

;CHECK OUT RDY AFTER DELAY

;ERROR:SILO SETTLING TIME TOO LONG
;SET RD SILO BIT
;GET RID OF THE WORD IN SILO

;SET "CLR SILO'" BIT & SET MASTER

;SILO RDY?

;ERROR:BIT 13 OF TMMR DID NOT CLR ADR SILO
;LOAD SILO WITH TEST WORD
:SILO OUT RDY?

sWAIT FOR IT
:CLR AUT ADR

;SET UP FOR ABOUT 5MS DELAY
;OUTPUT RDY?

:IF NO = CARRY ON

;WAITED 5MS?
sNOT YET

;ERROR:ADDRESS SILO IS NOT CYCLING
;CLEAR MASTER FOR SYNC.

;OUTPUT READY

;ERROR:CYCLED WORD WAS LOST-OUT NOT RDY

;SET AUTO ADDR & MASTER
;SET RD SILO
sCHECK VALIDITY OF OUTPUT
sONLY INTERRESTED IN LOW BYTE

;OUTPUT SHOULD BE 37
;ERROR:CYCLED WORD IS BAD DATA
;CLR RD SILO BIT FOR SCOPE

;WAIT ANOTHER SETTLING TIME

;1S SILO OUT RDY (SHOULDN'T BE)?
;NO, LEAVE

;ERROR:EXTRA WORD FOUND IN SILO
;CLR RD SILO

;SET AUTO ADDRESS & CLR ADDR SILO

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PN
12-SEP-78 15:13
1216
1217

1218

1219
1220
1221

010136
010142

005077
004767

010154
010156
010162

001402
000167
000207

010146

032777

025232
021206

010000
175764

MACY11 30A(1052) 18-0CT-78
MASTER SECTION TEST

021574
XERT:

14:35

CLR
/SR

aT(R
PC,MONIT

BEQ
JMP
RTS

XERT
MSRTST
PC

BIT

#812,aSR

PAGE 20-2

SEQ 0031
;CLEAR RD SILO

;OK TO EXIT IF SW 12 =0
;OTHERWISE, STAY HERE

CZPLBBO PCI.11 STND ALN VOZ2A

PCLTST.P1

12-SEP-78 15:13

MACY11 30A(1052)

DATA SILO TEST

ggz

.SBTTL

}Sgg

010164
010172
010176

1231
1232

010206
010210

1233

010200

010232

004567
000010

032777
001414

174134

000010

025166

1234
1235

010240
010246

032777
001014

000400

1238

010300

012777

177777

025072

010314

032777

000010

025052

1236
1237
1239
1240

1241

1242
1243
1244
1245

1246
1247
1248
1249
1250
1251

010250
010272

010306
010312

010322
010324
010346
010354

004567
000010

001017

174020

010362
010370
010376
010404
010406
010430

017767
012767
026767
001417

025012
177777
021604

1253
1254
1255

010444
010452
010456

052777
017703
032777

000200
024722
000010

1257
1258

010466
010510

1261
1262

010526
010550

1252

1256

1259
1260

1263

1264

1265
1266

1267
1268

1269
1270
1271
1272
1273
1274
1275
1276
1277
1278

G
14:35

3
PAGE 21

SEQ 0032

DATA SILO TEST

;TRANSMITTER DATA SILO TEST

1227
1228
1229

1230

18-0CT-78

010436

010464

001414

025130

021614
021610
021600

024722

SILTST: BDINIT
JSR
.WORD

XF2:

XF3:

XF3A:

024710

#303,aTCR

SCOPE

SILTST

#-1,aTSDB

;LOAD 177777 INTO DATA SILO

BIT

#803,aT(CR

;SILO OUTPUT READY?

JSR
.WORD

BNE
ERROR
BDINIT
SCOPE

#807,aT(CR
aTSDB,R3
#803,aTCR

;SET RD SILO BIT IN TCR
;POP WORD FROM SILO
;SILO OUTPUT READY?

ERROR
SCOPE

;ERROR:WORD DID NOT GET POPPED FROM SILO

ERROR
SCOPE

N
XF3
#808,3TSR
XFé
N
XF5

CLR

aTSDB

SCOPE

024610

XFé6:

BIC

010570
010576

032777
001774

000010

024576

XF6A:

021376

026767
001417

024574
021374

BIT
BEQ

021370

012777
012777
052777
032777

177600
033026
040000
040000

024506
024502
024464
024456

BIT
BNE

MoV
CLR

021364

XF7:

;ERROR:NO SILO OUTPUT 37 US. AFTER LOAD
;CLEAR SILO

BIS
MoV
BIT

000200

010612
010620
010622
010644
010652
010660
010666
010674
010702
010710

XF3
N
XMTR
XF2

;ERROR:DROPPED BITS IN DATA SILO
;CLEAR SILO

042777

017767
005067

R5,DELAY
10

;ERROR:BD INIT DID NOT SET INPUT READY

aTSDB,BAD
#-1,G00D
GOOD ,BAD
XF 3A
N
XMTR

010556

010600
010606

N
SILTST

;SILO INPUT READY?

MOV
MOV
CMP
BEQ
DATERR
BDINIT

000400

024610

;ERROR:BD INIT DID NOT CLEAR DATA SILO

MoV

ERROR
SCOPE

032777
001014

005077

;SILO OUTPUT READY?

#808,aTSR
XF2

BEQ
XF5:

XF1
N

: CLEAR BOARD

BIT
BNE

010516
010524

010564

024652

BIT

BEO
ERROR

XF1:

XMTR
R5,DELAY
10

XF2

XF5

;SILO OUTPUT = 177777

;1S INPUT READY?
;ERROR:DATA SILO INPUT NOT READY

#807,aTCR

;CLEAR RD SILO BIT

#803,aT(R
XF 6A

;OUTPUT RDY?
sWAIT FOR IT

aTSDB,BAD
GOOD

cMP
GOOD ,BAD
BEQ
XF7
DATERR
\N
BDINIT XMTR
SCOPE _ XFé
BDINIT XMTR

MOV
MOV
BIS
BIT

;READ WORD FROM SILO

#-128. ,aTSBC
#SILDAT ,aTSBA
#8314 ,3TCR
#B814 ,3TCR

;LOAD 0'S INTO SILO
sREAD OUTPUT OF SILO

;OUTPUT = 0?
;ERROR:BITS PICKED UP IN DATA SILO
;CLR SILO
;CLR XMITTER BOARD

;SET BYTE COUNT TO -128
;POINT DEVICE AT CORE BUFFER
sSET _TX NPR
;IS TX NPR SET?

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.PN

010716
010720
010742
010750
010754
010760
010764
010766

18-0CT-78
MACY11 30A(1052)
DATA SILO TEST

001014
016704

XF8:
XF8A:
XF9:

020776
177500
024416

010770
010772
010774
011026
011034

011036

011060
011066

e
b e
b

N ==
wviw
NN& NNN-A-;-..A-A:

3 99999999
—_—d e

- —
—

o
o 4

RIS
S W=

elele)

NVONOWNSWN=O

b
b
b
b
b cuh

d TN

T QT YO

T YO W

— e J—————

PSSR ERST YR SRR ER SRR 3

1292

010776
011020

1325

011350

BNE
ERROR
SCOPE
MOV

000400

032777
001014

000010

052777
012704
012703
017767
012467
026767
001422

000200
033026
177700
024230
021030
021024

024240

XF12:

021032

XF13:

042777

000200

024156

052777
005203
001343

000200

024142

012777
012777
012767
052777
005777
001375
017767
026767
001417

177774
033026
033026
040004
024102

024130
024124
020720
024100

024076
020672

020674
020666

024342

024300

XF10:

XF11:

021020

XF14:

XF17:

PAGE 21-1

XF8
\N
XF7

DLCON, R4

SEQ 0033

:ERROR: CANNOT SET TX NPR

#177500,R3

;SET UP 2 MS DELAY

INC
BNE

R3
XF9

;WAITED 2 MS?
‘NO, KEEP LOOKING

ST
BEQ

aTSBC
XF10

DEC

ERROR
SCOPE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
BIS
MOV

\N
XF7
#808,aTSR
XF11
N
XF10
#803,aTCR
XF12
\N
XF11
#807,aTCR
#SILDAT .Ré

MOV

aTSDB.BAD

BIT
BEQ

MOV

MOV
CMP
BEQ
DATERR
BIC
SCOPE
BIS
INC

BNE
BDINIT
MOV
MOV
MOV

XF18:

MOV

BNE
032777
001414

14:35

BIS
ST

XF 8A

#-64. ,R3

(R&)+.GOOD
GOOD ,BAD
XF14
\N
#807,aTCR
XF7
#807,aTCR
R3

XF13
XMTR
#-4,aTSBC
#SILDAT,aTSBA
#SILDAT
. GOOD

#40004 ,aTCR
aTSBC

BNE
XF18
MOV
aTSBA,BAD
CMP GOOD ,BAD
BEQ
XF19
DATERR \N
BDINIT

SCOPE

XMTR

XF17

:1S BYTE COUNT 0?

:ERROR: NPR NOT COMPLETE AFTER 2 MS
s INPUT READY?

;ERROR:SILO FULL BUT INPUT RDY SET
:OUTPUT READY?

:ERROR:FULL SILO NOT RDY FOR OUTPUT
;SET RD SILO BIT
*R4 IS DATA POINTER

*R3 IS COUNTER

*POP WORD FROM SILO TO ‘BAD'’
*AND POP A WORD FROM BUFFER
*DATA OK?

;ERROR:DATA FROM SILO IS WRONG
:CLR RD SILO BIT
:GO TO RE-FILL SILO FOR RE=-TRY
*RE-SET RD SILO BIT
*ALL DONE?

*IF NOT, POP ANOTHER WORD
“CLEAR THE BOARD
*SET BYTE COUNT TO =4
*POINT NPR TO DATA BUFFER

:SET TX NPR AND INH ADR INC

“WAIT FOR NPR TO FINISH

:READ BYTE ADDRESS
“HAS IT CHANGED?

:ERROR:TSBA SHD NOT CHANGE WITH INH ADR INC SET

CZPLBBO PCL11 STND ALN VO2A

PCLTST.PN

12-SEP-78 15:13

MACY11

30A(1052) 18-0CT-78
14:3& PAGE 22
COUNTER TEST
.SBTTL

—

000136

W
~
N

000001

D D e

Voo~

EEREERRES

011436
011444
011446
011470
011476
011504
011512
011516
011524
011526
011532

000010

000020
017636
010000

BDINIT

BICB
JSR

XMTR
#800,aTMMRH
PC,XF SR

:CLEAR THE BOARD

JSR
JSR

PC,XFEMT
PC . XFSR

:POP ALL 64 WORDS OUT
SFILL SILO AGAIN

PC, XFEMT

:POP 20 (OCTAL) WORDS OUT

MOV
MOV
JSR

JSR

000106
000060
000146

011432

MOV
JSR

023730

023676

XF19A:
XF20:

020224

176432

#20,R2

PC . XF SR

PC, XFEMT

ERROR

SCOPE
BDINIT
BISB
JSR

*FILL SILO AGAIN

#60,R2

#803,aTCR
XF 19A

XF19
XMTR
#20,aTMMRH
PC,MONIT

:POP 60 (OCTAL) WORDS OUT
* LEAVING 20 (OCTAL) IN SILO
* AND HAVING PULLED OUT 200 TOTAL (OCTAL)

*NOW CHECK OUTPUT READY

*IF IT'S CLEAR, OKAY
:ERROR:OUTPUT RDY AFTER 200 WORD BLOCK
:CLEAN UP
*SET AUT ADR

BIT

#B12,asR

:CAN WE EXIT NOW?

JMP

SILTST

NO IF SW 12 = 1

BEQ
XFRT:

#64
. ,R2

BIT

BEQ

*CLEAR MASTER FOR THIS TEST

*FILL THE DATA SILO

RTS

XFRT

‘OK IF SW 12 =0

:ROUTINE TO FILL DATA SILO VIA NPR

011566

p—y

&
W\d
o0

XF19:

000162

D D e e
e e
D e

e d D e D D e e e D D e D e
WWWWWWWWWW
d D d

024016

000176
000122

D e

d D e e e

011356

e
d
—

DATA SILO BLOCK COUNTER TEST

;THIS TESTS THAT, AFTER PULLING 200 (OCTAL) WORDS THRU THE SILO
;THE BLOCK COUNTER COUNTS THE 200 WORDS AND HOLDS SILO OUTPUT READY
;IN A FALSE STATE.

d b

uwu
WSO
VR IFKRUKZS 3%
PURAARAL
LRggf%%%%

1327

SEQ 0034

DATA SILO BLOCK

012777
012777
052777
016704
012703
005203
001376
005304
001372
005077
000207

XFSR:

177600
033026
040000
020170

MOV

MOV
BIS
MOV
XFSR1: MOV
XFSRW:
INC
BNE
DEC
BNE

175000

023572

CLR
RTS

#-128. ,aTSBC

#SILDAT,aTSBA
#B14,aTCR
DLCON,R4
#175000,R3
R3
XF SRW
R4
XF SR1
aTCR
PC

:SET BYTE COUNT FOR FILL-UP

*POINT DEVICE AT CORE BUFFER
*START NPR
:SET UP TO WAIT FOR CMPL
:WAIT FOR NPR COMPLETION
:CLEAR TXNPR
*RETURN WITH SILO FULL

:ROUTINE TO POP (R2) NUMBER OF WORDS FROM DATA SILO
052777
010203
017767
005303
001373
042777
000207

000200

023562

023560

020362

000200

023540

XFEMT:

BIS

MOV
XFMTW: MOV
DEC

BNE
g%g

#807,aTCR

R2.R3
aTSDB,BAD
R3

XFMTW

g%w.arcn

:SET RD SILO

:POP A WORD OUT

‘KEEP TRACK OF # OF WORDS
:LEAVE WITH RD SILO CLEAR

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13
PCLTST.P11

MACY11 30A(1052)
TSRTST

D
D
D

=3
& RS S
~N -~

-t

—

(o]=]

D
D
D e

WWW
0

d
e

vWW

011774

— e

14:35

PAGE 23

SEQ 0035

TSRTST

:STATUS REGISTER AND ERRORS TEST

29 &R £85% T

.SBTTL

1399

18-0CT-78

052777
032777
001014

000200
000200

042777
032777
001414

000200
000200

012777

023524
023516

023456
023450

177777
000010

023404
023372

000001
120000
017726
177763
000020

023376
023354

023340

TSRTST: BDINIT

XH1:

XH2:

000100

023270

100000

023226

020000

023216

000100

023160

BIT
BEQ
ERROR

#807.3TSR
XH2
N

SCOPE
BDINIT
MOV

XH2B:
XH2A:

MOV

#120000,aTCR

MOV
BIT
BNE
INC
BNE

#177763,R3
, TSR
#B804
XH3
R3
XH2A

XH3:

XH4:

XHS:

DEC
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE

BIC

NOP

023122

120000
001000
001000

032777
001014

100000

023112
023106
023100

023040

XH6:

XH7:

ERROR

SCOPE

sWAIT 100 US.

;ERROR:TDM BUS BSY NOT SET
;1S BUSY SET?

;ERROR:BUSY NOT SET WITH SND WD & RIB
:CLEAR RIB
sWAIT FOR TIME SLICE
;1S SND WD CLR?

#815,aTCR

XH2

BNE

;SET UP FOR 100 U.S. ALARM
:TDM BUS BSY SET?

R4
XH2B
N
XH2
#806,aTSR
XHé&
\N
XH2

SCOPE
CLR

;CLEAR BOARD
;LOAD WORD INTO SILO
sOUTPUT READY?
;WAIT FOR WORD TO HIT BOTTOM
;SET MASTER FOR TIME SLICES
;SET RIB AND SND WD

R4
DL CON,

#813,aTCR
XHS
\N
XH2
#806,3TSR
XH6

BIS
BIS
BIT
BNE
ERROR
SCOPE
BIT

CANNOT CLR SUCC XFR
;ER:ROR

=6
#1,3TMMRH

BIT
BEQ
ERROR
SCOPE
BIT
BEQ
ERROR

sCLR SUCC XFER
;1S IT CLR?

XH1
XMTR
#-1,3TSDB

#803,aTCR

MOV

;ERROR: CANNOT SET TSR BIT 07

\N
TSRTST
#807,aTSR

BIT

BEQ
BISB

001366
032777
001014

#807,3TSR
#807.3TSR
XH1

ERROR
SCOPE
BIC

;CLR BOARD
;SET SUCC XFER
;IS IT SET?

XMTR

BIS
BIT
BNE

;ERROR:INTR REQ DID NOT CLR SND WD
;1S BUSY CLR?

;ERROR:SND WD-0 DID NOT CLR BUSY

aTSR

#120000,3TCR
#809,aTSR
#809.3TSR
XH7
\N
XH6
#815,3TSR

XH8
N

XH6

‘

;CLEAR TSR
;SET RIB & SND WD

;SET OVERRUN ERR BIT
;IS IT SET?

;ERROR: CANNOT SET TSR BIT 09

;1S ERROR BIT SET (BIT 15)

;ERROR:OVERRUN DID NOT SET ERROR BIT 15 IN TSR

€2

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13
PCLTST.P11
1438
1433
1440

012370

032777
001414

012777
032777
001414
005077
052777
032777
001014

1475
1476

000000
001000

022666
002000
002000

032777
001014

100000

005077
052777
032777
001014

022554
004000
004000

032777
001014

100000

005077
052777
032777
001014

022442
010000
010000

032777
001014

100000

1478

022330
020000
020000

1480

1481

1483
1484
1485
1486
1487

020000

013124
013146

032777
001014

100000

MACY11 30A(1052)
TSRTST

022776

022734
022724

022660
022652

022612

022546
022540

022500

022434
022426

022366

022322
022314

022254

XH8:

XHBA:

XH9:

XH10:

XH11:

XH12:

XH13:

XH14:

XH15:

18-0CT-78
BIT
BEQ
ERROR
SCOPE
BDINIT

#813,aTCR
XH8A

BIT
BEQ
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR

#809,3TSR

MOV

SCOPE
BIT
BNE
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
CLR
BIS

BIT
BNE

XH16:

ERROR
SCOPE
BIT
BNE
ERROR
SCOPE

XH6

,"'37275(,9
XHO
\N

XH8A

aTSR

#810,aTSR
#810,3TSR
XH10
\N

XH9
#B815,aTSR
XH11

14:35

PAGE 23-1

SEQ 0036

;1S SND WD CLR?

JERROR:TSR BIT 15 DID NOT CAUSE INTR REQ
JCLEAR ALL IN XMTR
;LOAD A WORD INTO SILO
;1S OVERRUN SET??
JERROR:LOADING EMPTY SILO GIVES OVERRUN ERROR!
sSET TIMEOUT BIT IN TSR
;IS IT SET?

R SET TSR BIT 10
: CANNOT
;ERRO
;1S ERROR BIT SET?

;ERROR:TIMEOUT DID NOT SET TSR BIT 15
;CLR TSR
;SET MST DWN
:IS IT SET?

;ERROR: CANNOT SET TSR BIT 11
;1S ERROR BIT SET?

;ERROR:MST DWN DIDN'T SET TSR BIT 15
;SET TXM ERR
;IS IT SET?

;ERROR: CANNOT SET TSR BIT 12
;1S ERROR BIT SET?

JERROR:TXM ZRR DIDN'T SET TSR BIT 15
JSET MEM OFL
;IS IT SET?

: CANNOT SET TSR BIT 13
:ERROR
;1S ERROR BIT SET?

;ERROR:MEM OFL DIDN'T SET TSR BIT 15

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13
PCLTST.P11
1489
1490
1491

WN=O

e )

3RS

d =D
d —d

D e

NNNNB
SN
=
VNV

D d

o vianuaunaavaian

S WO

RRERY e

—

D
D
e
D
S
0

SEQ 0037

TSRTST

;ERROR GENERATION TESTS
013154
013162
013170
013176
013204
013206
013210
013214
013216

012777

177774
164176
040060

022212
022206
022170

XH17:

022166

032777
001014

—_

MACY11 30A(1052) 18-0(CT-78 14:3% PAGE 24

032777
001014

016777
000240
000240
032777
001367
016777
032777
001014

052777
016702
005003
012704
032777

040000

100000

022122

022062

177774

022016

000400

022002

177752
001000

021774
01764

120000
016266
177773

002000

021714

XH18:

XH19:

XH20:

:
XH20L

XH21:
XH21A:

021676

XH22:

BDINIT
MOV
MOV
BIS
NOP
NOP
TST
BNE
ERROR
SCOPE

BIT
BNE
ERROR
SCOPE

BIT
BNE

ERROR
SCOPE
BDINIT
MOV
NOP
NOP
BIT
BNE
MOV
BIT
BNE
ERROR
SCOPE
BDINIT
BIS
MOV
CLR
MOV
BIT
BNE
INC

XMTR
#-4 ,a7SBC

#164176,aTSBA
#40060,aTCR
aTSB(C

XH18
\N

XH17
#B14,3TSR
XH19
\N

XH17
#815,3TSR
XH20
\N

XH17

;CLEAR BOARD
;SET UP TO GENERATE NXM ERR
;LOAD NON-EXST ADDR INTO TSBA

;START NPR AND SET EXT ADD BITS

;DID BYTE COUNT GO TO 0 ?
;ERROR:REPLACE #764176 WITH NON EXST ADDR
;NOW CHECK NXL ERR BIT

;ERROR:NPR TO NON-EXST ADDR DIDN'T SET NXL ERR

;1S ERROR BIT (15) SET?

;ERROR:NXL ERR DIDN'T SET TSR BIT 15

XMTR
XH20L ,aTSDB

;CLEAR BOARD
sFILL THE SILO WITH GARBAGE

#808,3TSR
XH20L
XH20L ,aTSDB
#809,aTSR
XH21

;SILO INPUT READY?
;IF YES, KEEP LOADING

XH20L

XMTR
#120000,aTCR

g%CON.RZ
#-5,R4

#810,aTSR
XH22A
R3
XH22

sNO,SILO FULL;LOAD 1 MORE WORD
;1S TSR BIT 9 SET?

;ERROR:LOADING FULL SILO DIDN'T SET TSR-09
:CLEAR BOARD
;SET SND WD & RIB

;R3 AND R4 ARE COUNTERS
;IS TIMEOUT SET?
sWATCH IT FOR A SEC

105077

012777
004567
000010
052777
004567
000010
032777
001014

021630
177777
170540

XH22A:

021612

120000
170524

021572

004000

021560

XH22
R2
XH21A
\N
XH21
XMTR
aTMMRH
#-1,aTSDB
R5 ,DELAY
10
#120000,aTCR

?3.DELAY

#811,aTSR
XH23

;ERROR:NO TIMEOUT IN A SECOND

;CLR XMTR
;CLEAR MASTER
;LOAD A WORD INTO XMTR DATA SILO
;WAIT FOR MIGRATION
;SET RIB AND SND WORD

;CHECK FOR MASTER DOWN
;ERROR:ATTEMPT TO SEND WORD WITH MASTER CLEAR

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052)
TSRTST

WA
E KR

=00V~

1545
1546

004767
032777
001402
000167
000207

015472
010000
175740

XH23:
016060
XHRT:

18-0CT-78
ERROR
SCOPE
BDINIT
JSR
BIT
BEQ
JMP
RTS

XH22A

XMTR
PC,MONIT

#812,aSR
XHRT
TSRTST

14:35

PAGE 24-1

SEQ 0038

;DID NOT SET MASTER DOWN

;IS Sw 12 =1?
;IF SO, TRY THIS TEST OVER

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P1

12-SEP-78 15:13

MACY11 30A(1052)
18-0CT-78
INTERRUPT TEST

33 TRy

.SBTTL

d
D
)
D e
i e
d e
D
i
d
— o

052777

021444
000340
013756
000100

000240
000167

000046

022626
042777

000100

005067
012777

021330
014304

021326

052777
052777

000100
000200

021322
021316

016700
012760
012777

000240
000240
005767
001014

014244
014246
014250
014254
014262
014266
014,74
014276
014302

014304
014312
014320
014322

MOV
MOV
MOV
BIS
MTPS
NOP
JMP

000002
021430
021432

ERRINT: MTPS

XJO:

M
B8IC
ERROR
SCOPE
CLR

XJ1:

MTPS

021400

021262

026767
001414

021234

022767
001426

000340

021162

062767
012777
052777
052777

000040
014326
000100
000200

021144
021142
021144
021140

021222

177714

015066
010000

177510

XJ2:

XJ3:

XJ3S:

XJé:

015454

177376

000040

MTPS
BDINIT

XJRT:

021040

INTA:

MOV

BIS
BIS
MTPS
NOP
NOP
TST
BNE

ERROR
SCOPE
cMP

BEQ
ERROR
SCOPE

cMP

BEQ
BDINIT
ADD

MoV

BIS
BIS
MTPS
NOP
NOP
JMP
BDINIT
JSR
BIT
BEQ
JMP
RTS

BDINIT

ADD
CMP
JMP

PAGE 25

SEQ 0039

INTERRUPT TEST

;TRANSMITTER INTERRUPT

INTST:

14:35

TEST

P77

XMTR

TXVEC ,RO

;DIS-ALLOW INTERRUPT
;CLR THE BOARD

#340,2(RO)

;SET NEW PS = P7

#306,aTCR

;SET INTERRUPT ENABLE

#ERRINT ,aTXVEC

XJO
P7
(SP)+,(SP)+

#806,aTCR
}NYST
N

;SET=UP FOR ERROR INTERRUPT

JALLOW INTERRUPT

;SKIP ERROR IF NO INTERRUPT
;s INTERRUPT OFF
;CORRECT STACK
:CLR INTERRUPT ENABLE
;ERROR :ERRONEOUS INTERRUPT;NO FLAGS SET

TMPRIO

:START WITH C.P. AT PRIORITY O

#B06,aTCR
#807,aTSR

JENABLE XMTR INTERRUPT
JFORCE INTR WITH SUCC XFER

;MSRIO

JWAIT FOR IT
1S PSW = 0?

#INTA ,@TXVEC
7
TMPRIO

}NTSY
N

XP§IO,THPRIO
XJ

}zTST

JSET VECTOR FOR GOOD INTERRUPT
;INTERRUPT OFF
JALLOW INTERRUPT

;ERROR:NO INTERRUPT FROM TRANSMITTER
JHAVE WE REACHED EXPECTED PRIORITY?
:ERROR:DEVICE NOT JUMPERED 7O EXPECTED PRIORITY

#340,TMPRIO
XJé&
XMTR
#640,TMPRIO

;1S PSW = 7?

#806,aTCR
#807,aTSR

;ENABLE XMTR INTERRUPT
;FORCE INTERRUPT REQUEST

#INTB,aTXVEC

;SET VECTOR FOR ERROR INTR.

TMPRIO

JSET CP TO NEXT PRIORITY

JWAIT FOR POSSIBLE INTERRUPT

XMTR

;CLEAR BOARD

#812,aSR

;W12 = 1?

INTST
PC

;YES, DO TEST OVER
;sNO, LEAVE THIS TEST

XMTR

:CLR INTERRUPT ETC

PC,MONIT
XJRT

#40,TMPRIO
(SP)+,(SP)+
XJ1

;INCR TEMP PRIORITY
:CORRECT STACK POINTER
:TRY AGAIN

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13
1610
1611
1612
1613
1614

014326
014330
014352
014360

INTERRUPT
INTB:

022626
000167

MACY11 30A(1052) TEST
18-0CT-78 14:3g PAGE 25-1

177604

CMP
ERROR
SCOPE
JMP

(SP)+,(SP)+
\N

XJ3S
XJ3

;CORRECT STACK
;ERROR:GOT INTR WHEN C.P. AT HIGHER PRIORITY

SEQ 0040

18-0CT-78
MACY11 30A(1052)
C.R.C. CHECK

.SBTTL

14:35

PAGE 26

SEQ 0041

C.R.C. CHECK

;CYCLIC REDUNDANCY CHECK CHARACTER TEST
012777
012777
052777
005777
001375
032777
001414

177600
033026
040000

021002
020776
020760

040000

020744

052777
012767

000200
177700
033226

020704
020656

020702
020662
015464
015460

015472

020762

CRCTST: BDINIT
MOV
MOV

XK1:

XK2 :
XK3:

BIS
TST
BNE
BIT
BEQ
ERROR
SCOPE

BIS

MOV

NOP

#814,3TCR
alSBa(C
XK1
#8164 ,aT(R
XK2
\N
CRCTST

;START NPR

#SILDAT ,aTSBA

#807,aTCR

#-64. ,COUNT
#SILCRC,R4

a@TSCRC,BAD
(R4) ,GOOD
GOOD ,BAD
XK&
SLOWD

015454

R3.RO

000002
020544

177532

:CLEAR BOARD
;SET UP BYTE COUNT TO FILL SILO

aTSDB,R3

015756

014536
010000

XMTR
#-128. ,aTSBC

XKé& :

ADD

PC,OCTPNT
\N
CRCTST
#2,Ré4
COUNT

XK3

PC,MONIT

#812,aSR

015124
XKRT:

XKRT
CRCTST
XMTR

;1S BYTE COUNT 0?
;WAIT FOR NPR TO FINISH

sNOW CHECK

TX NPR BIT

sERROR:TX NPR NOT CLR'D BY TSBC OFL
;SET RD SILO BIT
s COUNT READS

;R4 POINTS TO GOOD CRC'S

;GET CRC CHAR FOR LAST SILO WORD
;R3 HOLDS SILO DATA WORD
:GET GOOD CRC FROM BUFFER
;1S CRC OK?
sPRINT "SILO OUTPUT WORD WAS ‘'

sPRINT SILO DATA WORD
;ERROR:BAD CRC FOR ABOVE WORD

;UPDATE CRC POINTER
;HAVE WE CHECKED 64 WORDS?
;NO, CONTINUE

;CHECK SW 12
;IF CLR, EXIT
:IF SET STAY

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT-78
RECEIVER TESTS

1657
1658
1659
1660
1661
1662
1663
1664
1665
1667

}ggg

000200

1670

014642

1672

014656

1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696

1697

1698
1699
1700
1701

1702

1703

1704
1705
1706
1707
1708

PAGE 27

SEQ 0042

;TEST 2: RECEIVER TESTS
*
(00) RESET TEST
:
(01) RCR REG TEST
:
(02) RDBC REG TEST
:
(03) RDBA REG TEST
:
(04) DATA SILO TESTS
.
(05) RSR & ERRORS TESTS
:
(06) INTERRUPT TEST
:
(07) C.R.C. TEST

1666

1673
1674
1675
1676
1677

.SBTTL RECEIVER TESTS

}ggg

1671

14:35

014650

012767

000010

020444

014662
014670
014672
014700
014706

032777
001420
017767
042767
000241

002000

015060

015052
177770

020424
020416

014710
014714
014720
014726
014732
014736
014742
014746
014752
014756
014762
014766
014772
015000
015002
015006
015010
015014
015016

004767

014472

TEST2:

200

MTPS

#P7

JSR

PC,MONIT

MOV

BIT
BEQ
MOV
BIC
cLC

006167
006167
062767
000177
004767
004767
004767
004767
004767
004767
004767
004767
032777
001003
005367
001351
005767
001030
005267

020410
020404
014732
020372
000142
000476
001176
001346
001516

015032
015036
015042
015046

016700
004767
012700
004767

020276
015540
000040
015720

MOV
JSR
MOV
JSR

015056

004767

015710

JSR

015022

015052

015062
015064
015070
015072
015076

012700

005000
004767
005000
004767
000207

003042
004632
005344
004000

020376
LOOPR:

020314

020332

020312

000101

015702
015674

REND:

#810,aSR
LOOPR
asR, SWI
#-10, SWI

ROL
ROL
ADD
JMP
JSR
JSR
JSR
JSR
JSR

SWI
SWI
#LOOPR, SWI
aswl
PC.RINIT
PC_RCRTST
PC.RBCTST
PC.RBATST
PC.SLOTST

BNE
DEC
BNE
TST
BNE

REND
ITER
LOOPR
$4F LAG
REPEET

JSR
JSR
JSR
BIT

014750

#10,ITER

INC
PNTM

MOV
CLR
JSR
CLR
JSR
REPEET: RTS

PC_RSRTST
PC.RINTST
PC.RCRCTS
#811,aSR

PSNO2
PEND

PSNO2,RO
PC,DECPNT
#40,R0
PC,TTO

#101 R0
PC,TTO

RO
PC,TTO
RO
PC,TTO
PC

:RECEIVER ERRORS START AT 200
;INITIAL ITERATION OF 10 PER PASS
;CHECK SW 10
2IF 0, RUN SEQUENTIALLY
:IF SET, GET TEST # FROM SWR
;MASK LOW DIGIT
“CLR C BIT BEFORE ROTATE
:MULTIPLY BY &
*GENERATE OFFSET
*GO TO SELECTED TEST
:DO INITIAL CLEAR TEST
:DO RCR REG TEST
DO BYTE COUNT REG TEST
:DO BYTE ADDR REG TEST
DO RECVR DATA SILO TEST
:DO RSR REG & ERRORS TEST
DO INTERRUPT TEST
:DO RCVR CRC GENERATION TEST
*CHECK SW 11
*PRINT END IF SET
*OTHERWISE, REITERATE
:CAN WE PRINT END PASS?
*NO, LEAVE
“UPDATE PASS NO.

*PRINT "END PASS # '
:PRINT PASS NO.
:PRINT A SPACE

:PRINT "'A"* (TO INDICATE RCVR TST)

:NULLS IN CASE RESET FOLLOWS
;RETURN

D
D

18-0CT-78
MACY11 30A(1052)
INITIALIZE TEST
.SBTTL

020314
015072
015064

015074

RINIT:

W
WD SEVBNRN
R W=

NIV

D
D

D D ol

NNNINIVN

D o

WN=OV

Ce
NOWVES

D
D
d
D
Dl
d
e
d

020246
015022
015014

017767
012767
026767
001414

020166
000010
014744

017767
005067
005767
001414

020124

017767
005067
005767
001414

014676
014670

020044
014626
014620

015024

014754
014750
014740

014700

014630

RA1:

RAZ:

RA3:

:
RA4

—

E
14:35

¢
PAGE 28

SEQ 0043

INITIALIZE TEST

;CHECK INITIAL CONDITIONS AFTER RESET

NN N o uggwmwwmmamg S

VO NOWN
W =o

b
d
D
D

D -

YYIYIIYINY ~

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13

004767
032777
001402
000167
000207

013732
010000
177442

014320

RAS:

:
RART

RESET
MOV

CLR
TST
BEQ
DATERR
SCOPE
MOV
CLR

TST
BEQ
DATERR
SCOPE
MOV
MOV
CMP
BEQ
DATERR
SCOPE
MOV
CLR
TST
BEQ
DATERR
SCOPE
MOV
CLR
TST
BEQ
DATERR
SCOPE
JSR
BIT
BEQ
JMP
RTS

aRDB( ,BAD
GOOD
SAA?

;TNIT
aRDBA ,BAD
GOOD

;CLEAR THE WORLD

;GET BYTE COUNT REG

;WAS RDBC 0?

;ERROR:RDBC NOT CLR'D BY RESET
;GET BYTE ADDRESS REG

g:g

;WAS RDBA 07?

;TNIT

;ERROR:RDBA NOT CLR'D BY RESET

aRCR,BAD
#10,G00D
GOOD ,BAD
RA3
;?NIT

aRDCRC,BAD
GOOD

222

;? IT
N

;GET RCR REGISTER
;SET UP GOOD FOR COMPARE
;ERROR:RCR NOT INITIALIZED BY RESET

;GET CRC REG

;1S CRC REG 0?

;ERROR:RCVR CRC NOT CLR'D BY RESET

aRSR ,BAD

;GET RSR REG

g:g

;1S RSR REG 07?

GOOD

RINIT
PC,MONIT

;ERROR:RSR REG NOT CLR'D BY RESET

;2;$,GSR

sJCHK SW 12 FOR EXIT VISA

RINIT
PC

;IF SET,STAY IN THIS TEST
;OTHERWISE, EXIT

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13
1751
1752
1753
1754
1755
1756
1757
1758
1759

1760
1761
1762
1763
1764
1765
1766
1767

RCR TEST

18-0CT-78
.SBTTL

14:35

PAGE 29

SEQ 0044

RCR TEST

;RECEIVER COMMAND REGISTER TEST
015440
015444
015452
015460
015466
015474
015476
015520
015526
015532

1773

R R ¥ P IR IIIIIFIIHN

MACY11 30A(105g)

005077
012767
016777
017767
026767
001414

017750
160375

014530
017730
014554

014534
017734
014516
014510

RCRTST:

RD1:

CLR

aR(R

MOV
MOV
CMP

GOOD,aRCR
aR(R,BAD
GOOD ,BAD

MOV

BEQ

DATERR

005067
005077
017767
042767
026767
001414

014454
017656
017652
017412
014430

012777

160375
177777
177777

RD2:

014440
014432

SCOPE

CLR
CLR
MOV

BIC

014424

CWP

BEQ

DATERR

037200
000002
017540
000010
014316

017466
014250
014244

017574
017574
017570
017554
017544
014326
014322
014312

014252

RD3:

MOV

MOV
MOV
MOV
BIS

MOV
MOV

P
BEQ
DATERR

RD4 :

014240

SCOPE

MOV
CLR

cMP

014200

RDS:

014166

014126

RD6:

014114
016072
016114
016122
016126
016134
016136
016142

177276

RD7:

RDRT:

RD1

GOOD
aR(R
aR(R,BAD

#17412 ,BAD
GOOD ,BAD

RD3

N
RD2

#160375,3RCR

#-1,aRDBC
#-1.aRDBA
#37200, aRSR
#801,3RCR

aRCR.BAD
#10,GOCD

GOOD ,BAD
RD4
N

RD3

aRSR ,BAD
GOOD

GOOD ,BAD

RD5

SCOPE

RD3

MOV
CLR
cMP
BEQ
DATERR

SCOPE

MoV
CLR
CMP

@aRDBC,BAD
GOOD
GOOD ,BAD
RD6
N

RD3

aRDBA ,BAD
GOOD
GOOD ,BAD

BEQ

RD7

SCOPE

RD3

BIT

#812,aSR

DATERR

013614

RD2

BEQ

DATERR

017420
014176
014172

#160375,GO0D

JSR

BEQ
JMP
RTS

PC,MONIT

RDRT
RCRTST
PC

;CLEAR RCR REGISTER
JSET ALL S./(TABLE BITS IN RCR
;AND READ THEM BACK
sALL BITS SET?

:ERROR:CANNOT SET ALL SETTABLE RCR BITS
;NOW CLR BITS AFTER SETTING THEM
;READ THEM BACK

; IGNORE R/0 BITS
;JALL CLR?

R CLR ALL RCR BITS
: CANNOT
;ERRO

;SET ALL SETTABLE BITS IN RCR
JAND IN RDBC
sAND IN RDBA
;AND IN RSR
INIT
JBOARD
;CHECK RCR
;SEE IF RCR = 10

;ERROR:RCR NOT INIT'D BY BD INIT
;CHECK RSR

:RSR = 0?

;ERROR:RSR NOT CLR'D BY BD INIT
:CHECK RDBC

;JRDBC = 0?
:ERROR:RDBC NOT CLR'D BY BD INIT
;CHECK RDBA
;RDBA = 0?

;ERROR:RDBA NOT CLR'D BY BD INIT

;CHECK SW 12
;STAY IN THIS LOOP IF SW 12 =1

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT-78 14:32 PAGE 30
.SBTTL

d od o

RDBC TEST

;BYTE COUNT REG DATA TEST
016144
016152
016160

—

WN=O

D
- —

d
d
D

D e

00 0o 00 00 0o 0o 00 0O

SEQ 0045

RDBC TEST

) e

338 3%

PCLTST.P11

1819

016302
016310
016312
016316

012767
012767
016767
016777
017767
026767
001414

032767
001407
046767
0056367
000167
004767
032777

001402
000167
000207

177777
000001

017134
014006
017214
013772

017146
017142
014012
017220
013774
013766

100000

017050

017044
017036
177670
013052
010000

017040

177626

013440

RBCTST: BDINIT
MOV
RB1:

RB2:

RB3:

RBRT:

MOV
MOV
MOV
MOV
CMP

BEQ
DATERR
SCOPE
BIT
BEQ
BIC
ASL
JMP
JSR
J

RTS

RCVR
#-1,PAT

#8200 ,MASK

FAT ,GOOD
GOOD ,aRDBC
aRDB( ,BAD
GOOD ,BAD

RB2
N
RB1
#B15,PAT
RB3
MASK ,PAT
MASK
RB1
PC,MONIT

sINIT RCVR MODULE
sSET PATTERN
;SET BIT MASK
;LOAD ''GOOD’’ WIIH PATTERN
;LOAD PATTERN (NTO RDBC
;READ RDBC
;DATA 0K?

;ERROR:BAD DATA IN RDBC(

;DONE WHOLE REGISTER?
:IF YES, DONE
;NO, PREPARE FOR NEXT BIT
;ROTATE MASK
sAND CONTINUE

;IF SO, CONSIDER LEAVING
SEXIT IF SW 12 = 0
;STAY HERE IF SW 12 = 1

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847

MACY11 30A(1052)

RDBA TE ST

18-0CT-78

.SBTTL

14:35

PAGE 31

SEQ 0046

RDBA TEST

;BYTE ADDRESS REG DATA TEST
012767
012767
016767
016777
017767
026767
001414

177777
000001

032767
001407
046767
006367
000167
004767
032777

100000

016760
013632
017042
013616

016670
016662
177670
012676
010000
177626

016772

RBATST: BDINIT
RC1:

RC2:

MOV
MOV
MOV
MOV
MOV
cMP
BEQ
DATERR
SCOPE
BIT
BEQ
BIC
ASL

RC3:

RCRT:

JMP

JSR
BIT
BEQ
JMP
RTS

RCVR
#-1,PAT

#800,MASK
PAT , GOOD
GOOD , BRDBA
aRDBA ,BAD
GOOD ,RAD

RC2
;?1

:INIT RECEIVER MODULE
“SET PATTERN

*SET BIT MASK
*LOAD ''GOOD'* WITH PATTERN
*LOAD PATTERN INTO RDBA
*READ RDBA

:ERROR:BAD DATA IN RDBA REG

#815,PAT
RC3
MASK ,PAT
MASK

:DONE WHOLE REGISTER?
*IF YES, DONE
'NO, PREPARE FOR NEXT BIT
*ROTATE MASK

#812,aSR

SEXIT IF SW 12 = 0

E?ATST

:STAY HERE IF SW 12 = 1

RC1
PC ,MONIT

RCRT

“AND CONTINUE

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P11

12-SEP-78 15:13

MACYT1

30A(1052) TEST
18-0CT-78 14:3% PAGE 32

SEQ 0047

DATA SILO

.SBTTL

1856

DATA SILO TEST

1872
1873
1874
1875

1876
1877

&
3

016506
016510
016516

001414

000400

JSR

016700

016636

032777
001014

000010

016610
016616
016624
016632
016636

052777
012777
042777
004567
000010

000200
177777
000200
165474

016576
016574
016562

016640
016646

032777
001017

000400

016550

1881
1882
1883
1884

016706
016714
016722
016730

017767
012767
026767
001417

016506
177777
013260

1888
1889

016770
016776

032777
001414

000400

1892
1893

SLOTST: BDINIT

165624

RE1:

016550
016556

004567
000010
032777

soa

338 EZEERER &

sRECEIVER DATA SILO TEST

017030
017036

032777
001014

000010

013270
013264
013254

016420

016356

RE2:

RES:

017070
017076
017102

052777
005077
042777

000200
016316
000200
000400

016316

RE6:

016304
016300

RE7:

1901
1902
1903

017120
017126
017132

017767
005067
026767

016274
013054
013050

013056

910
911

;ERROR:BD INIT DID NOT CLR SILO

BIT

#803,aRCR

;SILO INPUT RDY?

ERROR
SCOPE
BIS

N
SLOTST
#807,3RCR

SCOPE

BNE

MOV

017200

004767

000476

017212
017220

052777
012704

000200
033026

016174

RE7A:
RE8:

RE2

#-1,3RDDB

#807,aRCR

RS,DELAY
10
#B808, aRSR

ERROR
8DINIT

\N
RCVR

SCOPE

RE3

RE2

MOV

@RDDB, BAD

BEQ
DATERR
BDINIT
SCOPE
BIT
BEQ
ERROR

RE4
\N
RCVR
RE2
#808,aRSR
RES
\N

MOV
CMP

SCOPE

BIT

BNE

SCOPE

BIS
CLR

BIC
BIT
BEQ

MOV
CLR
CMP
BEQ

013044

SLOTST

JSR
LWORD
BIT

ERROR

1896
1897
1898

;CLEAR RCVR MODULE

10
#B08, aRSR
RE1
\N

BNE

RE4:

RS,DELAY

LWORD
BIT
BEQ
ERROR

BIC

RE3:

RCVR

DATERR
BDINIT
SCOPE
JSR
BLINIT

BIS
MOV

#-1,G00D
GOOD ,BAD

RE3

#803,3RCR

RE6
\N

RES

#807,3RCR
aRDDB

#807 ,3RCR
#808
. aRSR
RE7

aRDDB, BAD
GOOD
GOOD ,BAD
RE7A
\N
RCVR
RE6
PC, CLRCBF
RCVR

#807 ,aRCR

R4
#SILDAT

;SILO OUTPUT READY?

;ERROR:BD INIT DID NOT SET SILO INPUT RDY
;SET LD_SILO BIT
;LOAD 177777 INTO DATA SILO
;CLR LD SILO BIT
;SILO OUTPUT RDY NOW?

;ERROR:NO SILC OUTPUT
;CLR SILC

AFTER LOAD

;POP WORD FROM SJLO

;SILO OUTPUT = 177777
;ERROR:DROPPED BITS IN DATA SILO
;SILO OUTPUT RDY?

;ERROR:WORD DID NOT GET POPPED FROM SILO
;SILO INPUT RDY?

;ERROR:SILO INPUT NOT READY
;SET LD SILO BIT
;LOAD 0'S INTO SILO
;CLR LD SILO BIT
;SILO OUTPUT RDY?
sWAIT FOR IT

;READ SILO OQUTPUT

;SILO OUTPUT = 0?
;ERROR:PICKED UP BITS IN DATA SILO

;CLR SILO

sMAKE SURE BUFF IS CLR
;CLR RCVR BOARD
;SET LD SILO BIT
;R4 POINTS TO DATA FOR SILO

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13
PCLTST.P11

1920

012703
012477
005203
001374
032777
001414

177700
016164

042777
012777
012777
052777
016704
012703
005777

000200
177600

000010

033426
040000
012416

RE9:

016146

016106
016106
016102
016064

177500
016056

040000
033026
033426
177700
012552
012544
012542

RE10:

0 0

1916
1917
1918
1919

017224
017230

DATA SILO TEST

1912
1913
1914
1915

MACY11 30A(1052)

016000

RE12:

RE13:

012536

RE14:

000400

18-0CT-78

015704

MOV
MOV
INC
BNE

BIT
BEQ
ERROR
SCOPE
BIC
MOV
MOV
BIS
MOV
MOV
TST
BEQ

INC
BNE
DEC
BNE
ERROR
SCOPE
BIC
MOV
MOV
MOV
MOV
MOV

CMP
BEQ
DATERR
SCOPE
INC
BNE

BIT
BEQ

ERROR
SCOPE

14:35

PAGE 32-1

SEQ 0048

#-64. ,R3

:R3 COUNTS WORDS

RE9

:KEEP LOADING FOR 64 WORDS

égan,anooa

*LOAD DATA INTO SILO

:FULL...IS SILO INPUT RDY?

zg?g.ancn
;28

:ERROR:FULL SILO STILL RDY FOR INPUT

#807,3RCR

;CLR LD SILO BIT

#-128. ,aRDBC
#CMPBUF , 3RDBA
#B814,3RCR

“SET UP BYTE COUNT FOR 64 WORDS
‘POINT INTERF AT 64 WD BUFFER
*SET RC NPR

DLCON, R4

#177500,R3

:SET UP FOR 2 MS DELAY

@RDBC

*1S BYTE COUNT 0?

RE12

:WAITED 2 MS ?

2511

RE 10A
u\z'e‘s

‘NO, KEEP LOOKING

:ERROR:NPR NOT COMPLETE AFTER 2 MS

#814,3RCR

:CLEAR RC NPR

#CMPBUF _R3
#=64 . R
(R2) +.GOOD
(R3)+.BAD

*R2 & R3 ARE DATA POINTERS
*Ré IS COUNTER
*GET GOOD DATA
:GET SILO DATA

#SILDAT ,R2

gggg.w

“SET UP TO CHECK SILO OUTPUT

:COMPARE MEM BUFFERS

;rgs

:ERROR:DATA FROM SILO IS WRONG

2213

:DONE COMPARE?

;??g.ansn

;YES,SEE IF SILO WAS EMPTIED

u\a?s

:ERROR:SILO OUT RDY, BUT SILO SHD BE EMPTY

PCl

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P11

MACY11 30A(1052)

18-0CT-78

14:35

DATA SILO BLOCK COUNTER TEST
.SBTTL

PAGE 33

SEQ 0049

DATA SILO BLOCK COUNTER TEST

;THIS TESTS THAT, AFTER PUTTING 200 (OCTAL) WORDS INTO THE DATA SILO

;THE BLOCK COUNTER COUNTS THE 200 WORDS AND HOLDS SILO INPUT READY

;IN THE FALSE STATE.

3% FEREXRL2E

1959

017544
017552
017556

RE15:

012702

BDINIT

RCVR

;CLEAR THE BOARD

JSR

PC,RESR

:PUT 100 (OCTAL) WORDS INTO SILO

MOV

#20,R2

JSR

JSR
JSR

MOV
JSR

015574

032777
001414

017672
017674
017700
017702
017706
017712
017714
017716
017720

004767
032777

011470
010000

BIT
BEQ
RE16:

BDINIT
JSR

BIT

012056

176574

ERROR
SCOPE

BEQ
RERT:

JMP

RECB:

001375
000207

PC.RESR

:PUT 60 (OCTAL) WORDS INTO SILO

*
*

#803,aRCR
RE16

RE1S

MAKING A TOTAL OF 200 IN WHILE
THERE IS ROOM FOR 20 MORE.

*1S SILO INPUT READY?
*IF NOT, OKAY

:ERROR: INPUT READY AFTER A 200 WORD BLOCK

RCWR
PC ,MONIT

#B12,asR

:CHECK SW 12

SLOTST

;STAY IN THIS TEST IF SW 12 = 1

#-64. ,R3

:ROUTINE TO CLR BUFFER AREA

RERT

MOV

F
R4
#CMPBU

INC

RTS

BNE

:PUT 20 (OCTAL) WORDS INTO SILO
“EMPTY IT AGAIN

#60,R2

CLR

“EMPTY IT VIA NPR

PC,RESR
PC _REEMT

RTS

CLRCBF: MOV

177700

033426

PC .REEMT

(R4)+

RECB

017722
017730
017732
017740
017742
017744
017752

052777

000200

015464

RESR:

012345

015460

RESRW:

000200

015442

D
o
—

BIS

#807,3RCR

;SET LOAD SILO

MOV

#12345,3RDDB

:LOAD A WORD

BNE

RE SRW

MOV
DEC

BIC

RTS

R2,R
R3

#807,3RCR
PC

*KEEP TRACK OF # OF WORDS

:LEAVE WITH LD SILO CLR

:ROUTINE TO EMPTY DATA SILO VIA RC NPR

d —

e —d

TR
RN RN E T

:ROUTINE TO FILL DATA SILO WITH (R2) NUMBER OF WORDS

177600
033426
040000

011750
175000
015376

015440
015434
015416

REEMT:

MOV
MOV

#-128. ,aRDBC
#CMPBUF , aRDBA

MOV

DL CON, R4

BIS

REEMT1: MOV
REMTW:

INC

BNE
CLR
DEC

BNE

#B814,aRCR

:SET BYTE COUNT TO EMPTY SILO
*POINT SILO AT DAT BUFFER

*START NPR

#175000,R3

:SET UP TO WAIT FOR COMPL

REMTW
aRCR

:WAIT FOR NPR COMPLETION
*CLEAR RC NPR

R3
R4

REEMT1

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P1

2007

020022

000207

MACY11 30A(1052) 18-0CT-78 14:3%
PAGE 33-1
TEST

SEQ 0050

DATA SILO BLOCK COUNTER
RTS

JRETURN WITH SILO EMPTY

PCl

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.P11

2010
20N
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045

2047
2048
2049
2050
2051
2052
2053
2055
2056
2057
2058
2059

2061
2062
2063
2064

MACY11 30A(1052)

RSR TEST

18-0CT-78
.SBTTL

14:35

PAGE 34

SEQ 0051

RSR TEST

;RCVR STATUS REG & ERRORS TEST

052777
032777
001014

020000
000100

052777
032777
001014

000200
000200

032777
001414

020000

042777
032777
001414

000200
000200

052777
012703
012777

020200
177774
177777

177776
000004

033426
001375
032777
001014

012767
017767
026767
001414

040000
015054
000400

033426
015002
011556

015354
015350

015310
015302

015240

015202
015174

015124
015116

015102
015066
015079
015052

RSRTST: BDINIT

RF1:

RF2:

RF3:

RF&:

RF5:

RF6:

RF7:

015040

011570
011560
011552

RF8:

#813,aRCR
#B806,aRSR
RF1

BIS
BIT
BNE

#807 ,3RSR
#807 ,3RSR
RF2

BIT
BEQ

#813,aR(R
RF3

BIC
BIT

#807 ,aRSR
#807,3RSR

ERROR
SCOPE

ERROR
SCOPE
ERROR
SCOPE

BEQ
ERROR
SCOPE

BDINIT

001000

032777
001014

100000

014724

014664

RF9:

RF9A:

;ERROR:RCV WD DID NOT SET BUSY

N
RF1

CANNOT SET RSR BIT 07
;ER:ROR

N
RSRTST

;ERROR:SUC XFR DID NOT CLR RCV WD

RF4
N
RF3

RCVR

#20200,aRCR
#-4 ,R3
#-1,3RDDB

INC
BNE
MOV
BIS
MOV
BIS

R3
RF5
#-2 ,3RDB(

NOP
NOP

TST

BNE
BIT
BNE

ERROR
SCOPE

MoV
MOV
cMP
BEQ

SCOPE
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR

;CLEAR THE BOARD
;SET RCV WD
;1S BUSY SET?

N
RSRTST

BIS
MOV
MOV

DATERR

032777
001014

RCVR

BIS
BIT
BNE

#802,aR(R
#CMPBUF ,aRDBA
#814,3RCR

aRDB(

RF7
#B808,aRSR
RF8
\N
RFé&

#CMPBUF
, GOOD
aRDBA ,BAD
GOOD ,BAD
RF9
N

RF4
#809,aRSR
RF 9A
\N
RFé
#8315 ,3RSR
RF10
\N

;SET SUC XFR
;IS SUC XFR SET?

;1S RCV WD CLR?

;CLR SUC XFR
sSEE IF IT CLR'D

CANNOT CLR SUC XFR
;ER:ROR
;CLEAR THE BOARD

sSET LD SILO & RCV WD

;MOVE 4 -1'S INTO SILO

;SET BYTE COUNT FOR 1 WORD
;SET INH ADDR INC
:POINT NPR TO MEM BUFF.
:START NPR

;BYTE COUNT = 0?

;SILO OUTPUT RDY?

;ERROR:SILO SHOULD NOT BE EMPTY

;BYTE ADDRESS SHD NOT INCREMENT
;READ BYTE ADDRESS

;SAME AS BEFORE?

;ERROR:RCR BIT 2 DID NOT INH ADR INCREMENT
;1S BYTE COUNT OFL SET?

;ERROR:RDBC =0, SILO NOT EMPTY, BUT BC OFL = 0
;1S RSR BIT 15 SET?
;IF YES, CHECK FOR INTR REQ
;ERROR:BYTE COUNT OFL DID NOT SET RSR BIT 15

cZ
PCl

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13
PCLTST.P11
032777
001414

020000

052777
052777
032777
001014

020000

032777
001014

100000

032777

020000

001414

005077
052777
032777

-l

h =

LSLAS
LS N1, V1,8

001014

002000

014404
004000
004000

032777
001014

100000

005077
052777
032777
001014

014272

032777
‘001014

100000

005077
052777
032777
001014

014160
020000
020000

032777
001014

100000

010000
010000

MACY11 30A(1052)

RSR TEST

014622

014554
014550
014542

014502

014440

014376
014370

014330

014264
014256

014216

014152
014144

014104

RF10:

RF11:

RF12:

RF13:

RF14:

18-0CT-78
BIT
BEQ

ERROR
SCOPE _

BDINIT

RF16:

RF17:

RF18:

RF19:

#813,aR(R
RF11

N
RF11

JERROR: TIMEOUT DIDN'T SET RSR BIT

N
RF11

JERROR: RSR BIT 15 DIDN'T REQUEST

BIT
BEG

#813,3R(R
RF14

(LR

;IS RCV WD = 0?

;ERROR: CANNOT SET RSR BIT 10

#8315 ,3RSR
RF13

ERROR
SCOPE

SEQ 0052

N
RF11

BIT
BNE

ERROR
SCOPE

PAGE 34-1

;ERROR :BC OFL DID NOT REQUEST

#8313 ,3R(R
#810,aRSR
#810,aRSR
RF12

ERROR
SCOPE

N
RF4
RCVR

BIS
BIS
BIT
BNE

aRSR

INTERRUPT

JSET RCV WD
;SET TIMEOUT
;1S TIMEOUT SET?

;1S ERROR BIT SET?
15

;1S RCV WD CLR?
INTERRUPT

sCLEAR RSR
;SET PAR (PARITY ERROR) BIT
JIS IT SET?

BIS
BIT

#811,3RSR
#811,aRSR

ERROR
SCOPE

N
RF14

JERROR: CANNOT SET RSR BIT

N
RF14
aRSR

;ERROR: PAR ERR DIDN'T SET RSR BIT 15

N
RF16
#815,3RSR

;ERROR: CANNOT SET RSR BIT

N
RF16

;ERROR: TXM ERR DIDN'T SET RSR BIT 15

BNE
RF15:

14:35

RF15

BIT
BNE

#815,3RSR
RF16

BIS
BIT
BNE

#B12,3RSR
#812,3RSR
RF17

BIT
BNE

RF18

ERROR
SCOPE
(LR

ERROR
SCOPE
ERROR
SCOPE
(LR

BIS
BIT
BNE

aRSR

#513,3RSR
#813,a3RSR
RF19

;1S ERROR BIT SET?

;CLEAR RSR

JSET TXM ERR
:18 17 SEV?
12

;1S ERROR BIT SET?

;CLEAR RSR

;SET MEM OFL
;IS IT SET?

;ERROR: CANNOT SET RSR BIT 13

BIT

\N
RF18
#815,3RSR

ERROR
SCOPE

\N
RF18

;ERROR: MEM OFL DIDN'T SET RSR BIT 15

ERROR
SCOPE

BNE

RF20

;IS ERROR BIT SET?

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13

MACY11 30A(1052)
18-0(T-78 14:3% PAGE 35
TEST

SEQ 0053

RSR

;ERROR GENERATION TESTS
052777
012777
032777
001774
042777
012777
012777

N52777

000240
000240
005777
001014

021616

000200
177777
000400

014034
014032
014022

000200
177774

014010
014010
014004
013766

164176

040060

RF20:
RF21:

040000

032777
001014

100000

004767
032777
001402
000167
000207

007552
010000
176206

013720

013660

BIS
MOV
BIT
BEQ

RCVR

#807,3RCR

#-1,3RDDB

#808, 3RSR
21
RF
#807,aRCR

#-4 ,3RDBC

#164176 ,3RDBA
#40060,aRCR

013764

032777
001014

BDINIT

RF22:

RF23:

RF24:

aRDB(
RF 22
\N
RF20
#8314 ,3RSR
RF23
\N
RF20
#815,aRSR
RF 24
\N
RF 20
RCVR
PC,MONIT

#812,aSR

010140
RFRT:

RFRT
RSRTST
PC

;CLEAR THE BOARD

;SET LD SILO BIT
;LOAD A WORD INTO SILO
:SILO OUTPUT RDY?
sWAIT FOR IT

;CLEAR LD SILO BIT
sSET BYTE COUNT FOR 1 WD XFER
sPUT NON-EXST LOC IN RDBA

;START NPR AND SET EXT ADD BITS

;1S BYTE COUNT 0?
;ERROR:REPLACE #764176 (ABOVE) WITH NON-EXST LOC
;IS NON EXST LOC SET?

;ERROR:NPR TO NXM DIDN'T SET NON-EXST LOC
;1S ERROR BIT SET?

;ERROR:NON-EXST LOC DIDN'T SET RSR BIT 15
;CLR BOARD BEFORE LEAVING

;1S SW 12 SET?
;YES ,REPEAT THIS TEST

CZPLBBO PCL11 STND
ALN VO2A
MACY11 30A(1052)
18-0CT-78 14:3% PAGE 36
12-SEP-78 15:13
INTERRUPT TEST

PCLTST.P11
g‘}zg

.SBTTL

g}gg

JRECEIVER INTERRUPT TEST

2151

2152
2153

021620

021626
021634

RINTST: MTPS
016700

013526

2154
2155
2156
2157

021640
021646
021654
021662

012760
012777
052777

2159
2160
2161
2162

021672
021676
021704
021706

000167

000046

022626
042777

000100

2158

2163
2164
2165
2166

2167
2168
2169
2170

2171

2172
2173

021670

021714
021736
021744
021750

021756
021764
021772
022000

022014
022022

022024
022032
022034

2180

022066

2181

2182
2183
2184

2185

2186
2187

2188
2189
2190

2191

022036
022042
022044

022074

022102
022104
022126

NOP

JMP
EROINT: MTPS

013410
022250

013410

052777
052777
012777

000100
000200
177777

013422
013414
013412

032777
001774

000400

013374

005767
001014

026767
001414

cMP
BIC

013500

005067
012777

000240
000240

MOV
MOV
BIS
MTPS

RHO:

RH1:

RH1A:

013316

013272

013256

RH2:

022767

000340

013216

RH3:

022152
022160
022166

062767
012777
052777

000040
022272
000100

013200
013200
013220

RH3S:

022142
022144

022174

022202
022210
022212
022214
022220
022226

2199
2200
2201

022240
022242
022246

022232

001426

052777

000240
000240

000200

000167

177714

004767

007122

032777

001402
000167
000207

010000

177352

ERROR
SCOPE
CLR
Mov

013214

007510

;DIS=ALLOW INTERRUPT

#340,2(RO)
#EROINT ,aRCVEC
#806,aRCR
#0

;SET NEW PS = P7
;SET=UP FOR ERROR INTERRUPT
;SET INTERRUPT ENABLE
;ALLOW INTERRUPT

RHO
#P7

;SKIP FRROR IF NO INTERRUPT
; INTERK' '®T OFF
;CORREC] STACK
:CLR_INTERRUPT ENABLE

RCVR
RCVEC,RO

(SP)+,(SP)+
#806,aRCR
WN

RINTST

;CLEAR THE BOARD

;ERROR:ERRONEOUS INTERRUPT:;NO FLAGS SET

MTPS
BIS
BIS
MOV
BIT
BEQ

#B08,aRSR
RH1A

:SILO OUTPUT READY?
;WAIT FOR IT

TST
BNE
ERROR

TMPRIO
RH2
N

cMP

RPRIO,TMPRIO

BIC

SCOPE

BEQ
ERROR
SCOPE

cMP

#807,aRCR
TMPRIO

RINTST

RH3
N
RINTST

;CLR LD SILO BIT

;ALLOW INTERRUPT

;NO INTERRUPT;IS PSW = 0?
;ERROR:NO INTERRUPT FROM RECEIVER

;HAVE WE REACHED EXPECTED PRIORITY?
;ERROR:DEVICE NOT JUMPERED TO EXPECTED PRIORITY

#340,TMPRIO

;1S PSW = 7?

ADD
MOV
BIS

#40,TMPRIO
#INTRB,aRCVEC
#306,aRCR

;SET VECTOR FOR ERROR INTERRUPT
;ENABLE RCVR INTERRUPT

MTPS
NOP
NOP
JMP
BDINIT
JSR

TMPRIO

;S3ET CP TO NEXT PRIORITY

BEQ
BDINIT

BIT

RHRT:

#P7

;START WITH CP AT PRIORITY 0
;SET VECTOR FOR GOOD INTERRUPT
; INTERRUPT OFF
;ENABLE RCVR INTERRUPT
;SET LD SILO BIT
;PUT A WORD INTO RCVR SILO

BIS

RH4 :

INTERRUPT TEST

TMPRIO
#INTRA,aRCVEC
#P7
#806.,aRCR
#807 ,aR(CR
#-1,aRDDB

MTPS
NOP
NOP

022134

2192
2193
2194
2195
2196
2197

2198

000002
013512
013532

022006 042777 000200 013400

2174
2175
2176

2177
2178
2179

000240

000340
021676
000100

BDINIT
MOV

SEQ 0054

BEQ
JMP
RTS

RH4
RCVR

#807 ,3RSR

RH3
RCVR
PC,MONIT

#812,aSR
RHRT
RINTST
PC

;FORCE INTERRUPT REQUEST

;:CLEAR THE BOARD

:SW 12 =12
;YES,DO THIS TEST OVER
:NOEXIT

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

2203

022250
022256
022264
022266

022272
022274
022302
022324
022332

062767
022626
000167

000040

013074

INTRA

INTRB:

177576

BDINIT
ADD

CMP
JMP

177464

022626

000167

18-0CT-78
MACY11 30A(1052)
INTERRUPT TEST

CMP
BDINIT
ERROR
SCOPE
JMP

14:35

RCVR
#40,TMFRIO
(SP)+,(SP)+
RH1
(SP)+,(SP)+
RCVR
\N

gngs
H

5
PAGE 36~1

SEQ 0055
sCLR INTERRUPT ETC.
sINCR TEMP PRIORITY
;CORRECT STACK POINTER
; TRY AGAIN

;PCP THE STACK
:CLR EVRYTHING
JERROR:GOT INTR WHITH CP AT HIGHER PRIORITY

18-0CT-78 14:3§ PAGE 37
MACY11 3?A(1052)CHECK
5

SEQ 0056

.R.C.

.SBTTL

C.R.C. CHECK

;CYCLIC REDUNDANCY CHECK CHARACTER TEST
052777
012702

013042

RCRCTS: BDINIT

RCVR

#807 ,aRCR

#SILCRC,R2

#SILDAT ,R3

016777
011267
017767
026767
001424

013020

RJ1:

007572
007564

016700
004767

012720
010064

062702

000002
000002
006642
010000
177610

DATWD ,aRDDB
(R2) ,GOOD
aRDCRC,BAD
GOOD ,BAD

SLIWD

;PRINT "'SILO INPUT WORD WAS '’

PC,OCTPNT

sPRINT SILO INPUT WORD

DATWD ,RO

\N
RCRCTS
#2 ,R2

#2,R3

R4
RJ1
PC,MONIT

#B12,aSR

007230
RJRT:

sR3 POINTS TO MEM DATA

;R4 IS WORD COUNTER
;SAVE INPUT WORD
;LOAD SILO
;GET GOOD CRC FOR COMPARISON
;GET GENERATED CRC
;IS CRC OK?

(R3) ,DATWD

RJ2

RJZ:

;CLR THE BOARD
;SET LD SILO BIT
;R2 POINTS TO GOOD CRC'S

RJRT
RCRCTS
RCVR

;ERROR:BAD CRC FOR ABOVE WORD

sUPDATE CRC POINTER
;UPDATE DATA POINTER
JHAVE WE CHECKED 64 WDS?

:CHECK SwW 12
JIF O, EXIT

:IF

1, STAY

;CLR BOARD BEFORE EXIT

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13

18-0CT-78
14:35 PAGE 38
MACYT1 30A(1052)
XMTR-RCVR LOOP TESTS

SEQ 0057

.SBTTL XMTR-RCVR LOOP TESTS
TEST
(00)
(01)
(02)

B XHTR = RCVR LOOP TESTS
NPR TESTS SILO TO SILO
DATA LOOPS TESTS
TXM ERRORS TESTS

2245
2246

;
000300
012767

(03) REJECT & TRUNCATE TESTS

MTPS

;LOOP TEST ERRORS START AT 300

#10,1TER

sINITIAL ITERATION OF 10 PER PASS
;CHECK SW 10
;IF CLR, RUN ALL TESTS

000010
006576
002000

012550

MOV

007164

BIT

#810,asR

007156

012530
012522
000003

MOV

asR, SWI

IV SET, START AT TEST # IN SW'S <1:0>

SWI 43

;DON'T ALLOW SWI > 3

177770

012516

012504
012500
022636
012466
000120

JSR

BEQ

BIC

cMP

012472
LOOPL:

012446

TREND:

012430

#LOOPL ,SWI

JSR
JSR

PC.DATLPS
PC,TXMERS

JMP
JSPR

BNE
DEC
BNE
TST
BNE
INC

SWI
SwWi

asSwi
PC,NPRTST
PC,XRC20
#811,35R
TREND
ITER
LOOPL
$4FLAG
REPETL
PSNO3

;CLR C-BIT BEFORE ROTATE
;GENERATE CORRECT OFFSET
;GO TO SELECTED TEST
; CHECK NPR ..SILO TO SILO
;DO DATA LOGPS TEST
;CHECK TXM ERRORS
;DO REJECT AND TRUNCATE TEST
;CHECK SW 11
;PRINT END IF SET
;OTHERWISE, RE-ITERATE

PEND

;TEST END PASS INHIBIT FLAG
sCAN'T PRINT, EXIT.
;UPDATE PASS NO.
;PRINT "END PASS # "'

JSR

PC,DECPNT

;PRINT PASS NO.

JSR

PC,TTO

;PRINT A SPACE

PC,TTO

;PRINT "B'" (TO INDICATE "LOOP TEST)

sPRINT NULLS TO ALLOW PRINT
;OF PASS NO. IN CASE RESET FOLLOWS
sRETURN

MOV
MOV
MOV
JSR

REPETL:

#-10, sw1

ADD

PNTM

012414
007654

LOOPL

JSR
BIT

012430

T
PC,MONI

BGT
CLC
ROL
ROL

007064

000207

300

CLR
JSR
JSR

RTS

PSNO3,RO
#40,R0
#'B,R0
RO
PC.TTO
PC,TTO

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13

MACY11 30A(1052)

NPR TESTS

18-0CT-78

.SBTTL

012777

010400
000424
177600
012356
040064
006714
177777

000200

012402
012404
012400
012362

012330

007016
012226

MOV
JSR
MOV
MOV
MOV
MOV
NPTST1: CLR
MOV
XRA1:

:
XRAZ2A

012240

007006

177777

012074

{
g
4
o

177600

012140
040064
006456

?NN
o

000166

b
b
b

XRA3:
elele]

005777
001421
005067
017767

NPRTST: BDINIT
BDINIT

XRAZ :

000352

noronY

022762
022770
022776
3004

XRA3A:
:
XRA4

BEQ
INC

XRAS:

XRA6:

PC,FILRCV

#-128. ,3RDBC
TSDB, aRDBA
#40064
, aRCR
DLCON,R2
R3
#-1.R4
#128. ,aTSBC
XRA2
R3

XRAA

\N
NPRTST
PC, CHXDAT
\N
NPRTST

BEQ
CLR
MOV

XRA3
GOOD
aRDBC ,BAD

DATERR
SCOPE
BDINIT
BDINIT
JSR

ARDBC

\N
NPRTST
XMTR
RCVR
PC,FILRCV

MOV
MOV
MOV
MOV
CLR
MOV

#-128. ,3TSBC
RDDB,
a7 SBA
#460064 ,aTCR
DLCON,R2
R3
#-1,R4

BEQ
INC

XRAS
R3

ERROR
SCOPE
JSR

SCOPE

JSR

PAGE 39

SEQ 0058

;CLEAR RECEIVER
;CLEAR XMTR
;SET MASTER AND AUTO ADDR
JFILL RCVR SILO
;SET UP RCVR TO INITIATE

;NPR TO XMTR SILO
;START NPR, INHIB ADDR INCR

;SET UP FOR

DELAY

; TRANSFERRED 64 WORDS?

sNO, KEEP LOOKING FOR A SECOND

DATERR
SCOPE

DATERR

005736

#10400,aTMMR

B8R

BNE
INC
BNE
DEC
BNE
000116

RCVR
XMTR

XRA1
XRA1
R2
NPTST1

NPR TESTS

BNE
INC
BNE
DEC
BNE

ERROR
SCOPE
JSR

14:35

aTSBC

XRA%
XRA%
R2
XRA3A

;ERROR:RCVR NPR NOT COMPLETE IN TIME
;CHECK DATA IN XMTR SILO
;DATA 0.K. , CONTINUE
;ERROR:BAD DATA NPR'D TO XMTR SILO

;CHECK THAT RDBC = 0

;ERROR:RCV BYTE COUNT SHD BE O AT END OF NPR
XMTR
;CLR RCVR
sFILL RECEIVER SILO
sSET UP FOR XMTR TO INITIATE

:CLR

;NPR FROM RCVR SILO

;SET TX NPR, INHIB ADR INC

;SET UP FOR 1 SEC DELAY
: TRANSFERRED 64 WORDS?

;IF NOT, WATCH FOR A SECOND

\N
XRA3

PC,CHXDAT

XRAG
\N

XRA3

PC,MONIT

;ERROR:XMTR NPR NOT COMPLETE IN 1 SEC
;CHK DATA IN XMTR SILO

;ERROR:BAD DATA NPR'D TO XMTR SILO

CZPLBBO PCL11 STND ALN VO%A
12-SEP-78 15:13
PCLTST.P11
032777
001402

000167
000207
012700
012777
012701
012077
004567
000005
005301
001371
005077
000207

2375

023554

010000

MACY11 30A(1052)

NPR TESTS

006324

177330
033026
000200
000100
011742
160650

XRART:

011746

18-0CT-78

BIT
BEQ
JMP
RTS

FILRCV: MOV
MOV

LDLP:

MOV
MOV
JSR

011720

14:35

#812,aSR
XRART

NPRTST

000100
033026
000200
011660
006460
006454

005077

011626

XRLV:

CLR

062716

000002

XRERXT:

ADD
BR

CHXDAT: MOV

011660
006462

XRCNT:

MOV

006450

SEQ 0059
:SW 12 =17

JNO, EXIT
;YES, STAY HERE

#64. ,R1
(RO) +,3RDDB

;RO IS DATA POINTER
;SET RCVR 1D SILO'
;R1 IS WORD COUNTER
;MOVE WORDS INTO SILO

R1
LDLP
aR(R

;LOADED AlL 64 WORDS?
sIF NOT, CONTINUE LOADING
sCLR RCR AND EXIT

#SILDAT
RO

#807 ,aRCR
FSRS.DELAY

012702
012701
052777
017767
012167
026767

PAGE 39-1

#SILDAT ,R1

#807,aTCR

aTSDB,BAD
(R1)+,GO0D
GOOD ,BAD
XRERXT
R2
XRCNT
alCR
PC
#2,(SP)
XRLV

;WAIT FOR INPUT RDY

;R2 IS WORD COUNTER
;R1 POINTS TO GOOD DATA
;SET "RD SILO'" IN XMTR
;POP SILO WORD INTO BAD
;POP LIST WORD INTO GOCD
;IF DATA BAD, ERROR EXIT
;DONE CHECKING SILO?

JNO, CONTINUE
;CLR COMMAND REG
JEXIT
;FIX PC FOR ERROR RETURN

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

2377
2378
2379
2380
2381

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 40
.SBTTL

023556

012777
012777
012777
016777
052777
012777
052777

177777
010400
177776

011600
011600
011606
011552
011564
011544

DATLPS: BDINIT
8DINIT

MOV
MOV
MOV
MOV
BIS
MOV

011530

BIS

MOV

DTLPST: MOV

DATA LOOPS TESTS
XMTR
RCVR
#-1,aTSDB

:CLR XMTR
*CLR RCVR

#813%,3TCR

:SET SEND WORD

#10400, aTMMR
#-2,3RDBC
RCAD,aTCR
#813.aRCR
#-2,3TSBC
DL CON, R4

“LOAD A WORD INTO TXM SILO
:SET MASTER FLOP & SET AUTO ADDR
:SET BYTE COUNT FOR 1 WORD
“LOAD DESTINATION CODE
*SET RCV WD
“SET XMTR BYTE CNT FOR 1 WORD

#177500,R3

;SET UP 2 MS DELAY

gég

qgoa.ansa

*IS DAT OUTP RDY SET IN RCVR?

R3
XRB1

;WAIT A COUPLE OF MS FOR IT

001363

INC
BNE
DEC
BNE

011460

DATLPS
aRSR

:ERROR:DAT OUTP RDY IN RCVR NOT SET IN 2 MS.

005777

SCOPE
ST

032777
001013

040000

017700
004767

011410
006514

ERROP
BIT
BNE
PNTM
MOV
JSR

N
#814,aSR
XRB2
RCSTAT
aRSR,RO
PC,OCTPNT

105777

011352

TSTB

@TSR

;IS SUC TXF SET IN XMTR?

005777

011322

:ERROR:SUC TXF IN XMTR NOT SET IN 2 MS.

032777
001010

040000

017700
004767

011274
006420

012767
017767
026767
001414

177777
011272
006052

XRB1:

011526

100030

100433
100014

016767

TST
BM]

ERROR

1$:

005760

28:

XRB2:

B8PL

SCOPE

BMI

ERROR

006064
006054

006046

006010
006000
005764

XRB4:

R4
DTLPS1

XRB2

DATLPS

XRB3

aTSR

BIT

#814,aSR

BNE
XRBS2:
XRB3:

aRSR
$

BPL

005664

005772
024244

SEQ 0060

DATA LOOPS TESTS

XRBS2
XRBS2

PNTM
TXSTAT
MOV
aTSR,RO
JSR
PC,OCTPNT
SCOPE
DATLPS
MOV
#-1,GOOD
MOV
aRDDB, BAD
TMP
GOOD ,BAD
BEQ
XRB4
DATERR
\N
SCOPE DATLPS
MOV
TRAD , GOOD
MOV
aRCR .BAD

BIC

#160377 ,BAD

SCOPE

DATLPS

TM
BEQ
DATERR

GOOD ,BAD
XRB4C
\N

*ANY ERRORS?
*YES

:ANY HARD ERRORS?

;:ERROR; HARD ERROR ON 1 WD XFER
:CHECK FOR PRINT INHIBIT
*SKIP EXT PRINTOUT IF SW 14=1
*ELSE PRINT 'RECEIVER STATUS = '
:PRINT CONTENTS OF RSR

;ANY HARD ERRORS?

:CHECK IF PRINT ALLOWED

*IF NOT, SKIP IT.

*IF SO, PRINT '‘TRANSMITTER STATUS = **
:PRINT CONTENTS OF TSR
:CHECK DATA RECEIVED

YIS IT 0.K. ?

:ERROR:DATA RECEIVED IS WRONG (DROPPED BITS)

;GET TRANSMITTER TDM BUS ADDRESS
*READ IDENT BITS IN RCR

*IGNORE ALL OTHER BITS
:D.C. RECEIVED OK?

:ERROR:XMTR IDENT BITS NOT REC'D BY RCVR

DATA LOOPS TESTS
XRB4C:

005777

010772

032777
001013

040000

017700
004767

010722
006026

105777
100433

010664

005777

010634

032777
001010

040000

017700
004767

010606
005732

005067
017767
026767
001414

005400
010606
005366

004767

173022

0nW777
012777
012777
012777
016777
052777
052777

033026
033426

100030

100014

024740

S
R
[

R
S

[

R OCO=——
[N
=
RO 8R

011040

)

000400

)

032777
001020
005203
001367
005304
001363

000000
177776
177776
011034
020000
020000
005414
177570
011050

S G

012777
012777
012777
016777
052777
052777
016704
012703
005777

coo0o000

024252

100427

18-0CT-78

XRB4D:
XRBS :

MOV
MOV

#0,37SD8
#-2,3TSBC

MOV

RCAD,aTCR

;POINT XMTR AT RCVR
;SET RCV WD
;SET SND WD

BIS
8IS

#813.3RCR
#813,3TCR

TST

ARSR

M0V
MOV

8%i

BNE
INC
BNE

177600
177600

010420
060001
060001
'

28:

XRBS

N
XRB4(C

XK4D

aRSR

ERROR
BIT

N
#814,aSR

8PL

XRB6

XRB6
aRSR,RO

RCSTAT

JSR
SCOPE

PC,OCTPNT
XRB4(

BMI

XRB7

TSTB

XRB6S

XRB6S
TXSTAT
aTSR,RO

JSR
SCOPE
CLR

PC,OCTPNT
XRB4C
GOOD

GOOD,

MOV
MOV
MOV
MOV
MOV
BIS

BIS

;YES, ERROR

;DATA OUTPUT READY YET?

;WAIT A COUPLE OF MS FOR IT

;ERROR:DAT OUTP RDY IN RCVR NOT SET IN 2 MS.
;ANY HARD ERRORS IN RCVR?

;ERROR:HARD ERROR ON 1 WD XFER
sCHECK IF PRINT ALLOWED
:IF NOT, SKIP IT.
;IF SO, PRINT "RECEIVER STATUS = "'
sPRINT CONTENTS OF RSR

JERROR:SUC TXF IN XMTR NOT SET IN 2 MS.

#814,aSR

DATERR
SCOPE
JSR
BDINIT
BDINIT

;ANY ERRORS?

BIT

BEQ

;SET UP 2 MS DELAY

;1S SUC TXF SET IN XMTR?

aTSR

MOV

:LOAD A WORD OF 0'S INTO SILO
;SET BYTE CNT FOR 1 WORD

aTSR

TST

BNE
PNTM
MOV

XRB8:

ERROR
SCOPE

BPL

XRB6S:
XRB7:

25
#F308, 3RSR
18
R

ERROR

005176

DLCON, R4
#177570,R3

DEC

BNE
PNTM
MOV
XRB6:

SEQ 0061

;CLR XMTR
;CLR RCVR

BNE

005272

5
PAGE 40-1

XMTR
RCVR

BDINIT
BDINIT

BIT

1$:

d
14:35

aRDDB,BAD
XRB8

\N
XRB4(
PC,CLRCBF
XMTR
RCVR

#SILDAT,aTSBA
#CMPBUF
., 3RDBA
#-128. ,aTSBC
#-128.
. aRDBC
RCAD,aTCR
#60001,aRCR

#60001.aTCR

;ANY HARD ERRORS IN XMTR?

sCHECK IF PRINT ALLOWED
:IF NOT, SKIP IT

;IF SO, PRINT "‘TRANSMITTER STATUS = ''
;PRINT CONTENTS OF TSR

;CHECK DATA RECEIVED
318 17 O.K.?

;ERROR:DATA RECEIVED IS WRONG (PICKED UP BITS)
;MAKE SURE CMPBUF IS CLEAR
;CLR XMTR
;CLR RCVR
;GET XMTR DATA FROM SILDAT
;PUT RCV'D DATA IN CMPBUF
;SET UP TO SEND 64 WORDS

sSET UP TO RECEIVE 64 WORDS
;POINT XMTR AT RCVR

;SET RC NPR, RCV WD, & ST TXF IN RCVR

;AND IN XMTR

piw

MACY11 30A(1052)

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13
PCLTST.P11

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13
PCLTST.P11
2489

2490

2491

024746
024752
024754
024760

016702

MACY11 30A(1052)

DATA LOOPS TESTS

005000

XRB8A:

177777
010412

K
14:35

5
PAGE 40-2

SEQ 0062

DLCON,R2

#-1,R4
a@TSR

;SET UP 1 SEC DELAY

010404

@ISR

;1S SUC TXF SET IN XMTR?
;YES, GO CHECK RECEIVER
;ERROR BIT SET?

010416

aRSR

sRCVR ERROR BIT SET?

XRB9:

040000

$38
R3
XRB9

$2%:
004674

010306

005777
100014
032777
001010

010256

017700
004767

010230
005334

012703
012701
012702
012167

000100
033026
033426
004766
004760
004756

040000

@TSR,RO

:
XRB9S
XRB10:

$3%:

PC,OCTPNT
XRB8
aRSR

XRB11

\N
aRSR

XRB10S
#814 ,aSR

004600

XRB11L:

004752

sANY HARD ERRORS IN XMTR?

sCHECK IF PRINT ALLOWED

sIF NOT, SKIP IT

;IF SO, PRINT "‘TRANSMITTER STATUS = '’
;PRINT CONTENTS OF TSR

;1S SUC TXF SET IN RCVR?
;YES, GO CHECK DATA

;ERROR:NO SUC TXF IN RCVR IN 1 SEC
;ANY HARD ERRORS IN RCVR?

PC,OCTPNT

;PRINT CONTENTS OF RSR

#64. ,R3

;R3 IS WORD COUNTER
;R1 IS GOOD DATA POINTER
;R2 IS 'BAD'DATA POINTER

X RB8

#SILDAT,R1
#CMPBUF _R2
(R1)+,GO0OD

(R2) +.BAD

GOOD ,BAD

XRB12:

;ERROR:NO SUC TXF IN XMTR IN 1 SEC

RCSTAT

@RSR RO
XRB10S:
XRB11:

;NO, WATCH FOR A SECOND

sCHECX IF PRINT ALLOWED
:IF NOT, SKIP IT
;IF SO, PRINT "RECEIVER STATUS = "'

XRB10S

XRB11C:

035442
177200
010014
020001
060005

R4
XRB9
R2
XRB8A
\N
aTSR
XRB9S
#B14,aSR
XRB9S
TXSTAT

010304
005430
105777
100433

XRB10

$2%

010332

052777

18-0CT-78

XRB11C
\N
R3
XRB11L
XRB8
XRB12
R3
XRB11L

;DATA WORD OK?
:IF SO, CONTINUE
;ERROR:BAD DATA RECEIVED FROM XMTR
s CHECKED ALL WORDS?
;RE-TRY BECAUSE OF ERROR

;CHECKED ALL WORDS?

XMTR
RCVR
ATSTWRD ,aTSBA

;CLR XMTR
:CLR RCVR
sPOINT XMTR AT LOC WITH TEST WORD

#20001,3RCR

;POINT XMTR AT RCVR
sSET RCV WD, RCV DAT, IN RCVR
;SET TX NPR, INH ADR INC, ST TXM,ESND WD

A STCR

#60005,aTCR

;SET UP FOR 300 WORD XFR

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13
PCLTST.P11

2545

025352

000300
004370
177700
000400

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 40-3
MOV

010022

XRB12L: MOV
XRB12K: MOV
XRB12M: BIT
INC

#300.R1
DLCON,Ré4

XRB12M

;IF NOT, WAIT 10 Ms.

\N
aTSR

XRB12R

004304

#814,aSR

XRB12S

TXSTAT

007714
005040
007724

aTSR,RO
XRB12R:

00501
000300
004770

016767
017767
026767
001431

007672
007642
004422

004434
004424
004416

032777
001011

040000

004130

;IF SO, PRINT "‘TRANSMITTER STATUS = *'

RCSTAT

;IF SO, PRINT "RECEIVER STATUS = "'

PC,OCTPNT
RCBTCN

;PRINT CONTENTS OF RSR

XRB12T

;ANY HARD ERRORS IN RCVR?

;PRINT "NO. OF WORDS RECEIVED = '’

;CALCULATE WORDS RECV'D
sPRINT RESULT
;START ALL OVER

XRB12S:

XRB13:

;GET WORD FROM SILO
;WAS IT = TEST WORD?

;ERROR:DATA WORD IN RCVR SILO WRONG
;CHECK IF PRINT ALLOWED
:1F NOT, SKIP IT.

“NO. OF WORDS RECEIVED = '

;CALCULATE WORDS RECV'D
:
XRB13L
XRB13C:

004070
177000

XRB13E:
XRB13D:

007500

DLCON R4
0}77000.R3
R

XRB13D

aTSR
XRB14

sPRINT RESULT
;START ALL OVER
sUPDATE RCVR WORD COUNT
;GET ANOTHER WORD

;SET UP TO WAIT FOR TXFR
;WAIT FOR LATEST POSSIBLE

;XMTR SUC TXF SET?
;YES,GO CHECK RCVR

TIMSL

;ERROR:XMTR SUC TXF NOT SET

007444

007416

;CHECK IF PRINT ALLOWED

;IF NOT, SKIP IT

;PRINT

004662

025744
025754

;ANY HARD ERRORS IN XMTR?

;PRINT CONTENTS OF TSR

000301

040000

;ERROR:NO DATA WORD IN RCVR SILO IN 10 Ms.

PC,OCTPNT
aRSR

aRSR,RO

XRB12T:

COUNTS WORDS RECEIVED

XRB13

XRB12K

007742

;R1

;SET UP 10 MS COUNTER
sRCVR SILO RDY FOR OUTPUT?
;YES, LOOK AT WORD

#808 ,aRSR

040000

SEQ 0063

DATA LOOPS TESTS

;ANY HARD ERRORS IN XMTR?

004006

;CHECK IF PRINT ALLOWED
:IF NOT, SKIP IT.

;1F SO, PRINT “‘TRANSMITTER STATUS = *'

CZPLBBO PCL11 STND ALN VO2A

PCLTST.P11

12-SEP-78 15:13

2601

025760

004767

004542

2603

025772

105777

007420

2605

026000

026022

005777

007370

2608 026030
2609 026036
2610 026040

032777
001010

040000

2612

017700

004767

007342

2602

2604

2606

2607

2611

2613
2614

2615

2616
2617
2618

025764

025776

026026

026050

026054

026060
026066

026072

026100
026102
026106

100433
100014

004767

032777

001402
000167

000207

MACY11 30A(1052)

DATA LOOPS TESTS
XRB14:

010000

175450

PC,OCTPNT

TSTB

aRSR

BM]

ERROR

:PRINT CONTENTS OF TSR
:START OVER

;RCVR SUC TXF SET?

:YES, ALL DONE

;ERROR:RCVR SUC TXF NOT SET

BIT
BNE
PNTM

#814,3SR
XRB14S
RCSTAT

:CHECK IF PRINT ALLOWED
:I1F NOT, SKIP IT.
:IF SO, PRINT 'RECEIVER STATUS = *'

JSR

PC,OCTPNT

:PRINT CONTENTS OF RSR

BIT

#812,aSR

:SW 12 = 1?

RTS

XRB14S: SCOPE
XRB15:
JSR

XRBRT:

XRB15

SEQ 0064

aRSR

MOV

003650

XRB12

PAGE 40-4

TST

BPL

003712

14:35

JSR

XRB13S: SCOPE

004446
003262

18-0CT-78

BEQ
JMP

XRB14S

aRSR,RO

XRB1?2
PC,MONIT

XRBRT
DATLPS

:ANY HARD ERRORS IN RCVR?

:START OVER

;NO, EXIT
:YES, DON'T EXIT

c2!

{PCi

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

MACYTT

30A(1052)

N
14:35

18-0CT-78

TRANSMISSION ERRORS TESTS

.SBTTL

5
PAGE 41

SEQ 0065

TRANSMISSION ERRORS TESTS

;TEST TO CHECK FOR RCVR TIMEOUT.
;OPEN CHANNEL, THEN DON'T SEND ANY DATA FOR
; 3 SECONDS.
026110
026116
026124
026132
026140
026146
026154
026162
026170

TXMERS: BDINIT

052777
012777
012777
016777
052777
052777
016702
005003
012704
032777
001022

BDINIT

007254
007242
007232
007220
007232
007204
177775
002000

TXMR1:

007206

XRC1:

JTEST

BIS
MOV
MOV
MOV
BIS
BIS
MOV
CLR
MOV
BIT
BNE
INC
BNE
INC
BNE
DEC
BNE
ERROR
SCOPE

XMTR

;CLR ¥MTR

#10400,aTMMR

;SET MASTER & AUTO ADDR

RCVR

#-4,375BC
#-1,37SDB
RCAD ,aT(R

#3813 ,aRCR
#813,aTCR
DLCON,RZ
R3
#-3,R4

‘gzg.iRSR
X

R3
XRC1

;CLR RCVR

;INDICATE 2 WD XFR
sPUT 1 WD IN XMTR SILO
;POINT XMTR AT RCVR

;SET RCV WD

;SET SND WD
;SET UP 1

SEC DELAY

;1S RCVR TIMEOUT SET?
;IF NOT, WAIT 3 SEC FOR IT

XR(C1
R2
TXMR1
\N

TXMERS

TO DETERMINE

;ERROR:NO TIMEOUT IN 3 SEC WITH NULL ON INPUT

THAT ADDRESSING RCVR AND GENERATING A NULL

;CYCLE FIRST PROPERLY GENERATES CORRECT RESPONSE CODES
JAND THAT THE RECEIVER DOES NOT RESPOND.
;CHANNEL IS OPENED BY POPPING A WORD FROM XMTR SILO.

XRC2:

012777
016777
012777
052777
052777
004567
000010
005777
042777
016704

177774

XMTR
RCVR
#-4,aTSBC
RCAD,aTCR
#-1,3TSDB

BIS

#813+800,aRCR

BIS

020001
155776

JSR
.WORD

ST
BIC

007036
000200
003376

XRC2D:

177757

000000
007014
177760
003570

BDINIT
BDINIT
MOV
MOV
MOV

XRC2A:

003610
003600

003572
003564

MOV

MOV
INC

BNE

#807,aTCR

“SET RD SILO

RS,DELAY
10

*WAIT FOR WORD TO HIT BOTTOM

:POP WORD OUT
*CLR RD SILO

#177757 .R3

:SET UP TO STALL 100 US.

XRC2A

:STALL (WAIT FOR TIME SLICE

DLCON,R4

R3
Ré

MOV

#0, GOOD

BIC

#177760,BAD

MOV

CMP
BEQ

“SET RCV WD AND RCV DATA

aTsSpB
#807.,aTCR

DEC

BNE

:CLR XMTR
*CLR RCVR
SSET UP FOR 1 WD XFR
*POINT XMTR AT RCVR
SPUT 1 WD INTO TXM SILO

XRC2D

aRSR ,BAD

;CHK RESPONSE CODES IN RCVR

GOOD ,BAD
XRC3

;RSP CODES = 00 & 00 ?

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

012767
017767
042767
026767
001414

000001
006712

032777
001414

010000

MACY11 30A(1052)

18-0CT-78

B
14:35

TRANSMISSION ERRORS TESTS

XRC3:

003506

SEQ 0066

N
XRC2
#1,G00D
aTSR,BAD

;ERROR :RESPONSE CODES AT RECEIVER WRONG

cMP

GOOD ,BAD

;RSP CODES = 00 & 01 ?

\N
XRC2
#812,aRSR
XRCS
§2c2

:ERROR:RSP CODES AT XMTR WRONG

BEQ

XRC4:

PAGE 41-1

DATERR
SCOPE
MOV
MOV

BIC

177760

DATERR
SCOPE
BIT
BEQ
ggggg

#177760,BAD
XRC4

:CHECK RESPONSE CODES IN XMTR

;1S RSR BIT 12 (TXM ERR) SET?
:ERROR:RCVR SHOULD NOT BE ADDRESSED
“UPON OPENING A CHANNEL WITH INVALID WORD

;TEST TO DETERMINE THAT CHANNEL OPEN CAN BE ACHEIVED LEGALLY

sAND THAT, ONCE ACHIEVED, KNOCKING DOWN THE TRANSMITTER BY
;FAKING A XMTR TXM ERROR CAUSES THE CORRECT RESPONSES AND
;CAUSES A RECVR TXM ERROR.
026574
0260602
026610

XRCS5:
012777
012777
016777
012777
052777
052777
016704
012703
132777
001020
005203
001372
005304
001366
132777

001014

027052
027054
027076

052777
016704
012703
005203
001376
005304
001372
012767
017767
042767
026767
001414

BDINIT
BDINIT

XMTR
RCVR

:CLR XMTR
*CLR RCVR

BIS

#813,3RCR

*SET RCV WORD

MOV
MOV
MOV
MOV

177774

BIS

XRC5A:
XRC6:

MOV
MOV
BITB
BNE
INC
BNE
DEC

BNE

ERROR

000020

006454

XRC6A:

SCOPE
g&EB

ERROR
010000
002744

006374

XRC7D:

177757

000004
006362
177760
003136

XRC7:
XRC7A:

003156
003146
003140
003132

#-4 ,aTSBC
#-1.aTSDB
RCAD,aTCR
#-1,3TSDB
#813.aTCR

DLCON R4
#177500,R3
#803,aTMMRH
XRC6A
R3
XRC6
R4

XRC5A

XRC5
:gg;.aRSR

SCOPE

XRC5

BIS
MOV

#812,3TSR
DLCON, R4

INC

MOV
BNE

;WAIT A BIT

;ERROR:CANNOT GET ''CHAN OPEN'' IN XMTR
;CHECK FOR CHANNEL OPEN IN RCVR

;ERROR: CANNOT GET ''CHANNEL OPEN'' IN RCVR
;KNOCK DOWN THE XMTR

XRC7A

sSTALL (WAIT FOR TIME SLICE)

MOV

#4
, GOOD

BIC

#177760,BAD

BEQ
DATERR
SCOPE

XRC8
\N
XRCS

cMP

;SET UP FOR DELAY
;CHECK FOR CHANNEL OPEN

;SET UP TO STALL 100 us,

MOV

*SET SND WORD

#177757 ,R3

DEC

BNE

*SET UP FOR 2 WD XFR
*LOAD A WORD INTO XMTR SILO
*POINT XMTR AT RCVR
*LOAD 2ND WORD

XRC7D

aRSR,BAD

GOOD ,BAD

;ARE RESPONSE CODES = 01 & 00 ?
:ERROR:RCVR RSP CODES WRONG

CZPLBBO PCL11 STND
ALN VOZ2A
MACY11 30A(1052)
18-0CT-78 14:3§ PAGE 41-2
PCLTST.P11
12-SEP-78 15:13
TRANSMISSION ERRORS TESTS
2732 027104 032777 010000 006304 XRC8:
2733 027112 001014
273% 027114
3;22 027136
2737
2738
g;zg
2741
2742

2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764

027144
027152

XRC9:

012777
012777
012777
012777
012777
016777
052777
052777
105777
100375
052777
005777
042777
052777
012777
042777
042777
042777
052777
052777
016704
012703

2766

027352

001376

2768
2769
2770
2771
2772
2773

027356
027360
027366
027374
027402
027410

001372
012767
017767
042767
026767
001414

000013
006024
177760
002600

017767

005730

2767

2774
2775
2776

#812,3RSR
XRC9
\N
XRCS

;1S RSR BIT 12 (TXM ERR) SET?
;ERROR:XMTR OFF LINE WHILE CHAN OPEN
:DIDN'T SET RCVR TXM ERR

:TEST TO DETERMINE IF INCORRECT CRC WILL CAUSE A CHECK=FAIL
:AND GENERATE CORRECT RESPONSES IN RCVR AND XMTR THEREBY CAUSING
*TRANSMISSION ERRORS IN BOTH.

027160
027166
027174
027202
027210
027216
027224
027232
027240
027244
027246
027254
027260
027266
027274
027302
027310
027316
027324
027332
027340
027344

2765

BIT
BNE
ERROR
SCOPE

SEQ 0067

027350

027354

027412
027434
027442

005203

177772
177777
000002
177772
177775
006126
020000
020000

006214
006204
006176
006212
006162
006150
006162
006134

000200
006120
000200
000200
000014
000200
000200
000200
000001
000001
002406
177000

006120
006106
006120
006116
006104
006060
006072
006062
006034

006132

027466
027510
027516

2784
2785

027526
027550

2787

027564

MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS
XRC10:
TSTB
8PL
BIS
TST
BIC
BIS
MOV
BIC
BIC
BIC
BIS
BIS
MOV
XRC108: MOV
XRC10A: INC

005304

002620
002610
002602
002574
002534

032777

2783 027524 001014

010000

005652

XRC11:

XRC12:

2786 027556 032777 010000 005632 XRC13:
001014

XMTR
RCVR

#-6,3TSBC
#-1.aTSDB
#2.3TSDB
#-6,aRDBC
#-3.3TSDB
RCAD,aTCR
#813.3RCR
#813.aTCR
@TSR
XRC10
#807,aTCR
aTSDB
#807,aTCR
#807.3RCR
#14 ,3RDDB
#807,3RCR
#807.aTSR
#807.3RSR
#800.aRCR
#800.aTCR
DLCON,R4
#177000,R3
R3

:CLR XMTR
;CLR RCVR

*SET UP FOR 3 WD XFR
*LOAD A WORD INTO XMTR SILO
*LOAD 2ND WORD INTO XMTR SILO
;LOAD 3RD WORD INTO XMTR SILO
“POINT XMTR AT RCVR
*SET RCV WD
“SET SND WD
*WAIT FOR SUC TXF

:SET XMTR RD SILO
;POP A WORD FROM SILO
*CLR RD SILO
*SET RCVR LD SILO
:LOAD DIFFERENT 2ND WORD
:CLR LD SILO
*CLR SUC TXF
;SET RCV DATA
*SET ST TXM
;SET UP TO STALL

BNE

XRC10A

;STALL (WAIT FOR LAST 2 WORDS)

BNE
MOV
MOV
BIC
CMP
BEQ

XRC108
#13,G00D
aRSR,BAD
#177760 ,BAD
GOOD ,BAD
XRC11

:CHECK RCVR RSP CODES
:ARE RSP CODES = 10 & 11 ?

BIC
CMP
BEQ

#177760 ,BAD
GOOD ,BAD
XRC12

DEC

2777 027450 042767 177760 002526
2778 027456 026767 002524 002520
2779 027464 001414
2780
2781
2782

BDINIT
BDINIT

DATERR
SCOPE
MOV

DATERR
SCOPE
BIT

BNE

ERROR
SCOPE

BIT

BNE

R&4

\N
XRC9
aTSR,BAD

:ERROR:RCVR RSP CODES WRONG

\N
XRC9
#812,aTSR

;ERROR:XMTR RSP CODES WRONG

\N
XRC9

:ERROR:XMTR TXM ERR NOT SET WITH INVALID DATA

XRC13

#812,aRSR
XRC14

:CHK XMTR RSP CODES
“ARE THEY 10 & 11 2
;IS TXM ERR SET IN THE XMTR ?

;IS TXM ERR SET IN THE RCVR?

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P11

2788
2789
2790
2791
2792
2793
2794
2795
2796
2797

MACY11 30A(1052)
18-0CT-78 14:35
TRANSMISSION ERRORS TESTS

ERROR

027566
027610

SCOPE

6
PAGE 41-3

N
XRC9

SEQ 0068

;ERROR:RCVR TXM ERR NOT SET WITH INVALID DATA

;TEST THAT [F THE CHANNEL IS OPENED AND THE RECEIVER RESPONDS
:TO THE FIRST VALID WORD WITH A NULL, A XMTR TXM ERR RESULTS
;
NULL ON FIRST WORD IS ACHEIVED BY MANUALLY FILLING UP THE
:RECVR SILO, THEN TRYING TO SEND A WORD FROM XMTR TO RCVR.

027616
027624

027632

XRC14:

052777

005554
XRC15:

012777
012777
052777
052777
016704
012703
005203
001376
005304
001372
012767
017767
042767
026767
001414

032777
001014

005506
005520
005476
005472
005462
005470
005442

BDINIT
BDINIT
BIS

005334

RCAD,aTCR

;POINT XMTR AT RCVR
;CLR LD SILO IN RCVR
;LOAD A WORD INTO XMTR SILO

R3
XRC15

BIC
MOV
MOV
MOV

BIS
BIS

MOV
XRC158: MOV
XRC15A: INC

#807.aRCR
#-1,3TSDB
#-4.ATSBC
#-1.aTSDB

;SET UP TO STALL

XRC15A

#6. GOOD

BIC

#177760,BAD

BEQ

XRC16

XRC158

aTSR,BAD

GOOD ,BAD

;SET SND WD & ST TXM

;STALL (WAIT FOR TIME SLICE)
;CHK TXM RSP CODES

JARE THEY 01 & 10 ?

;ERROR:XMTR RSP CODES WRONG

XRC17

;IS XMTR TXM ERR SET?
;ERROR:XMISSION TO FULL RCVR SILO
;DID NOT SET TXM ERR IN XMTR

SCOPE
BIT

XRC14
#812,3TSR

ERROR
SCOPE

\N
XRC14

BNE

sSET UP TO XFR 2 WDS

DLCON,R4
#177000,R3
R3

#813+800.aTCR

MOV

cMP

sFULL?

#813+800, aRCR

MOV

;R3 IS WORD COUNTER

;LOAD 2ND WORD INTO XMTR SILO
;SET RCV WD & RCV DATA

DEC

BNE

XRC16:

:R4 IS CURRENT ADDRESS
:FILL UP RCVR SILO

DEC
BNE

MOV
MOV

DATERR

010000

R4
#SILDAT
(R4)+,aRDDB

. .R3
#64

MOV

002226
002216
002210
002202

SET LD SILO IN RCVR

MOV

BNE

000006
005412
177760
002206

XMTR
RCVR
#807,3RCR

;TEST TO DETERMINE IF , WITH CHANNEL OPEN, THE RECVR IS KNOCKED DOWN
;THE CORRECT RESPONSE CODES ARE GENERATED AND THE XMTR
‘GETS A TXM E RROR.

THE RECVR IS KNOCKED DOWN VIA FORCING A TIMEOUT IN THE RCVR.

XRC17:

012777
012777
012777
016777
052777
052777
132777
001774

177777
177774
177777

005212
020000
020000
000010

XRC18:

BDINIT
BDINIT
MOV
MOV
MOV
MOV

PCAD,aTCR

BEQ

XRC18

BIS
BIS
BITB

XMTR
RCVR
#-1,aTSDB
#-4
. ATSBC

#-1.3TSDB

#813.3RCR
#813.3TCR
#B03.aTMMRH

;LOAD A WORD INTO XMTR SILO
;SETUP FOR 2 WD XFR
;LOAD 2ND WD INTO XMTR SILO
;POINT XMTR AT RCVR
;SET RCV WD
sSET SND WD
;1S CHANNEL OPEN SET?
SWAIT FOR IT

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13
030164

016704

MACY11

001726

010000

004767
032777
001402

000774
010000

000167
000207

175514

001362

;DELAY FOR SYNC

R3
XRC18L
R4
XRC 18X
#810,aRSR

XRC18Y: MOV
XRC18A: INC
BNE

#177000,R3
R3
XRC18A

;SET UP FOR STALL

aTSR,BAD

;CHECK TXM RESP CODES

GOOD ,BAD

JARE THEY 00 & 01 ?

MOV

DEC
BNE
MOV

001746
001736
001730
001722

005054

DLCON,R4

#17700C
,R3

XRC18L: INC
BNE
DEC
BNE
BIS

MOV
BIC

BEQ

DATERR

032777
001014

SEQ 0069

TRANSMISSION ERRORS TESTS

XRC18X: MOV

005204

177760

MOV

001562
177000

000001
005132

30A(1052) 18-0CT-78 14:3% PAGE 41-4

XRC19:

R4
DL CON,

R4
XRC18Y
#1,GOOD

#177760,BAD
XRC19

SCOPE
BIT
BNE
ERROR
SCOPE

\N
XRC17
#812,aTSR
XRC19A
N
XRC17

BIT

#812,3SR

XRC19A: JSR

BEQ
JMP
XRCRET: RTS

PC,MONIT
XRCRET
TXMERS
PC

;KNOCK DOWN RCVR WITH TIMEOUT

;STALL (WAIT FOR T'ME SLICE)

:ERROR:XMTR RSP CODES WRONG

;IS TX ERR SET IN XMTR
SERROR:XMIT TO OFFLINE RCVR DIDN'T
;CAUSE TXM ERR IN XMTR

;IS SW 12 SET?
;NO, EXIT
;YES, STAY HERE

CZPLBBO PCL11 STND ALN VO2A

PCLTST.P1

2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887

12-SEP-78 15:13

18-0(T-78
MACY11 30A(1052)
REJECT TEST
.SBTTL

14:35

PAGE 42

SEQ 0070

REJECT TEST

;TEST OF THE REJECT-RELATED HARDWARE

; CAUSE A REJECT IN THE RECVR AND CHECK ALL RELATED
sRESPONSES IN RCVR AND XMTR

030376
030404
030412
030420
030426
030434
030442

XRC20:
012777
012777
012777
012777
016777
052777
052777
032777
001774
052777
016704
012703
032777
001020
005203
001372
005304
001366

032777
001414

177777
177774
177777
177774
004702
020000
020001
000400

XRC21:

100000
001244

032777
001414

100000

032777
001014

000040

020000

MOV
MOV
MOV
MOV
MOV
BIS
BIS

BIT
BEG
3IS

XRC21A: MOV
XRC22:
BIT

004604

004564

004506

XRC23:

XRC24:

XRC25:

XRC26:

052777
052777
032777
001414

BDINIT

MoV

177500
000040

000001

BDINIT

004450
004444
004434

BNE
INC
BNE
DEC
BNE
ERROR
SCOPE
BIT
BEQ
ERROR
SCOPE
BIT
BEQ
ERROR
SCOPE

BIT
BNE

ERROR
SCOPE
BDINIT
BDINIT
BIS
BIS

BIT

BEQ
ERROR
SCOPE

XMTR
RCVR
#-1,aTSDB

#=4.aTSBC
#-1.aTSDB

:CLR XMTR
*CLR RCVR
*LOAD A WORD INTO SILO
*BYTE COUNT FOR 2 WD XFR
*LOAD 2ND WD INTO SILO

RCAD,aTCR

:POINT XMTR AT RCVR

'2231°R5R

*DAT OUTP RDY IN XMTR?

#813.3RCR
#813+800,aTCR
X

#815,aRCR
DLCON, R4

#177500,R3

“SET RCV WD
“SET SND WD & ST TXM
SETREJECT

#3805, aRSR

:CHECK FOR RECOM IN RCVR

gzczz

;WAIT A COUPLE OF MS FOR IT

;gczi

XRC21A

\z -

XRC

agggzarcn
X

\gczo

agzgganca
X

chzo

ugggéarsn
X

N
XRC20

RCVR
XMTR

#813,3RCR
#805 . 3RSR
:E}§7°RCR
\N
XRC26

:ERROR:REJECT DID NOT RESULT IN SETTING RSR=05
:IS ST TXM CLR (CLR'D BY INTR REQ)?
:ERROR: SORE DID NOT INTERRUPT XMTR

:CHECK IF REJECT GOT CLR'D

:ERROR:RECOM DID NOT CLR REJECT
:CHECK IF REJECT SET SORE IN XMTR
:ERROR:REJECT DID NOT SET SORE IN XMTR

:SET RCV WD IN RCWR
*SET RECOM
*CHECK IF RCV WD GOT CLR'D
:ERROR:RECOM DID NOT INTERRUPT RCVR

MACY1T

18-0CT-78
TRUNCATION TEST

30A(1052)

.SBTTL

14:35

PAGE 43

SEQ 0071

TRUNCATION TEST

sTEST OF THE TRUNCATE-RELATED HARDWARE
; CAUSE A TRUNCATE IN THE RECVR AND CHECK ALL RELATED
;RESPONSES IN RCVR AND XMTR.
XRC27:

012777
012777
012777
012777
016777

177754
177770

033026
033426

BDINIT
BDINIT

XR(C29:

#£,14+813+B00,aR(R
#314+813+800,aT(R

BIS

#815,3RCR

BIT
BEQ

DEC

031352

105777
100414

004156

032777
001014

000040

004767
032777
001402
000167
000207

000016
010000
177024

004174

XRC31:

XRC32:

004116

000404

XR(C33:

XRC34:

XRCRT:

sPOINT XMTR AT RCVR

BIS
BIS

BMI
INC
BNE

000040

RCAD,aTCR

#-20.,a7SBC
#-8. ,aRDEC
#SILDAT ,aTSEA
#CMFBUF ,aRDBA

MOV
XRC29A: MoV
TSTB
XRC30:

032777
001014

;CLR XMTR
;CLR RCVR

MOV
MOV
MOV
MOV
MOV

004266

XMTR
RCVR

BNE
ERROR
SCOPE
BIT
BNE
ERRCR
SCOPE
TSTB
B8MI
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE

#309,aRSR
XRC29

DLCON,R4
#175000,R3
aTSR

XRC31
R3
XRC30
R4

XRC29A
N
XRC27
#805,aTSR
XRC32
XRC27
aRSR
XRC33
N
XRC27
#805,aRSR
XRC34
N
XRC27

JSR

PC_MONIT

BEQ
JMP

XRCRT
XRC20

BIT

RTS

#812,aSR
PC

sSET TXMTM BYTE CNT FOR 10 WORD XFR
;SET RCVR BYTE CNT FOR 4 WORDS
;PCINT XMTR SILO AT DATA BUFFER
;POINT RCVR SILO TO DATA BUFFER

sSET RCV WD & RCV DATA ESTART NPR
;SET SND WD & ST TXM & START NPR
sWAIT FOR BYTE COUNT OVERFLOW
sSET REJECT (TRUNCATE MESSAGE)
;LOOK FOR XMTR SUC TXF

SWAIT ABOUT 20 MS
;ERROR:NO SUC TXF AFTER TRUNCATION

;1S SORE SET?
;ERROR:SORE NOT SET BY TRUNCATION
;IS RCVR SUC TXF SET?

;ERROR:NO RCVR SUC TXF AFTER TRUNCATION
;IS RECOM SET?
;ERROR:RECOM NOT SET BY TRUNCATION

;1S SW 12 SET?

;NO, EXIT
;YES, STAY HERE

»o
|

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P
12-SEP-78 15:13

CZPLBBO PCL11 STND ALN VO2A
PCLTST P11
12-SEP-78 15:13

H
18-0CT-78 14:35
MACY11 30A(1052)
"'SWITCH'' MONITOR ROUTINE
.SBTTL

6
PAGE 44

SEQ 0072

"'SWITCH'' MONITOR ROUTINE

;ENTER AT MONIT FROM EVERY SUB-TEST TO SEE IF CNTRL-S OR CNTRL-C WAS TYPED
;ENTER AT SWDMP FROM ERROR HALTS IF SW 15
= 0
ALSO MONITORS THE FOLLOWING CONTROL FUNCTIONS:

CNTRL=T RESTART TEST SELECTOR
CNTRL=D ALLOW CHANGING OF DELAY
CNTRL=P CONTINUE (PROCEED)

031354

MONIT:

004046

000270
004036

MONIC:
MONCH:

177600
000023

SWDMP:

000326
001100

017767
004767
016777

000306
000602
001050

105777
100375
017700

003736

042700
020027
001736
020027
001363
012700
004767

001060

000272

CCRTN:

CONTW1:

003732
177600
000023

EX1:

002000
151352
000004

000422
000670

020027
001004

000003

177614

Exi

;TRIM OFF PARITY BIT
;WAS IT ~§?
sNO, EXIT

akBD, RO
#177600,R0
RO,#23

SWRMSG

asR,RO

PC,OCTPNT
TWOSP
@SR, KBBUF
PC, INPKB
, aSR
KBBUF
TYPCTP
aKBS

CONTW1
aKkBD ,RO

PC.TTO

001234
001230
000024

004767
016767
000167

EX5

;CHECK KEYBOARD FLAG
sIF SET, CHECK WHAT CHAR.
;OTHERWISE, EXIT

aKBS
MONIC

RO,#23
SWDMP
RO, #20
CONTW1
#15,R0

000015
001242

000150
000142
000712

#177600,R0

000020

016767
016700
004767

CLR

TSTB

000720

000114

EX2A:

sPRINT "'CNTRL=-P TO CONTINUE''

'TgIM OFF PARITY BIT
YES

GET SWR AGAIN

NO KEEP LOOKING
:RETURN LINE

;FILL CHARACTERS

RO, 424

;WAS A “T TYPED?
sNO, EXIT
;YES, RENEW STACK
;BACK TO DISPATCHER
;CNTRL=D TYPED?
:NO, KEEP LOOKING

PC,TTO
PC.TTO

EX2

#1SP,SP

EX2:

;PRINT ''SWR = *'
;GET CONTENTS OF SR
sPRINT IT
;SPACE AND PROMPT (:)
:LOAD OLD SWITCHES
;GET KBD INPUT
;LOAD NEW SWITCHES

BCONT
RO, #4

Ex3

DEL YMG
DL CON, KBBUF

;PRINT 'DELAY CONSTANT =
;DEFAULT OLD VALUE

EX2B:

PC,OCTPNT
TWOSP
PC, INPKB
KBBUF
, DL CON

CCRTN

sGET CONSTANT
sPRINT IT
;SPACE_AND PROMPT
;GET KBD INPUT
;LOAD NEW CONSTANT
;NOW WAIT FOR CNTRL-P

EX3:

RO #3

;WAS CNTRL=C TYPED?

DLCON.RO

ExS5

NO, EXIT

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P11

12-SEP-78 15:13

3027
gggg

031650
031654

012706
000167

3030

031660

000207

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 44-1

SEQ 0073

"'SWiTCH'' MONITOR ROUTINE

002000
151036
EXS:

MOV
JMP

#1SP,SP
RESTRT

RTS

;YES, REFRESH STACK

;AND RESTART

:
;ASSOCIATED ASCII FOR THIS MODULE
3036

3037

3038

3039

031662
031670
031672
031700
031706
031714
031715
031722
031730
031736
031742

051446
040040
042046
041440
047101
100
046
026514
041440
052516
020040

051127

036440

SWRMSG:

.ASCII

/ESWR = a/

046105
047117
020124

054501
052123
020075

DELYMG:

.ASCI!

/BDELAY CONSTANT = o/

047103
020120
047117
040105
040072

051124
047524
044524

TYPCTP:

.ASCII

/&CNTRL=P TO CONTINUEQ/

TWOSP:

.ASCII

:o/

.EVEN

;OTHER VARIABLES:
3045

031746

000000

SWREG:

.WORD

; SOFTWARE SWITCH REGISTER

3047

031750

000000

SR:

.WORD

: SWITCH REGISTER POINTER

3049

031752

000006

DLCON:

.WORD

;DELAY CONSTANT

€2

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

MACY11 3?A(1052) 18-0CT7-78 14:3% PAGE 45
.SBTTL COMMON SUBROUTINES

3052

;ERROR ROUTINE
031754
031760

011667

162767

000220
000022

016700
004767

000200
000520

016700
004767
004767
004767
000207

200156
000500

000212

ERR:
ERR1:

MOV
sSuB
PNTM

(SP) ,ERRAD
#22 ,ERRAD
ERRM

;GET ADDRESS OF ERROR CALL
sOFFSET IT

JSR

PC,OCTPNT
WDAT

;PRINT ERROR NUMBER (P)
JPRINT “AT LOCATION *'

PC,OCTPNT
PC,MONIT
PC,.NULLS
PC

;PRINT ADDRESS OF ERROR

MOV

PNTM
MOV
JSR

JSR
JSR

177322
000602

RTS

ERRNUM RO
ERRAD ,RO

JPRINT

sPRINT NULLS IN CASE OF "RESET''
sRETURN

;DATA ERROR ROUTINE
011667

162767

000134
000022

016700
004767

000114
000430

016700
004767
004767
000207

000072
000410
000516

004767

177710

000126

DERR:

MOY
SuB
JSR

PNTM
MOV
JSR
PNTM
MOV
JSR
JSR
RTS

(SP) ,ERRAD

#22 ,ERRAD
PC,ERR1
wDSDB

GOOD RO

PC,OCTPNT
PC,NULLS
PC

JPRINT BAD DATA
sPRINT NULLS IN CASE OF "RESET''

BAD,RO

023046
047522
040
041517
020116
046
042114

025052
020122
052101
052101

051105

ERRM:

LASCII

/88**ERROP @/

046040
047511

WDAT :

LASCII

/ AT LOCATION a/

044123

041040

052517
020105

wbSDB:

.ASCII

/8SHOULD BE @/

054
040040

053440

051501

WDWAS:

L.ASCII

/. WAS @/

100

.EVEN

;OTHER VARIABLES:
032200
032202
032204
032206

ERRAD:
ERRNUM:
BAD:

GOOD :

.WORD
.WORD
.WORD

.WORD

JPRINT "'SHOULD BE '’

;PRINT
;PRINT

:
;ASSOCIOATED ASCII FOR THIS MODULE
100

;GET ADDRESS OF ERROR CALL
;OFFSET IT
sPRINT "'**ERROR (P) AT LOCATION XXX

PC,OCTPNT
WDWAS

elelele)

3053
54

SEQ 0074

OMMON SUBROUTINES

€2

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PN
12-SEP-78 15:13

K
MACY11 30A(1052)
18-0CT-78 14:35
MESSAGE PRINT ROUTINE

3099

.SBTTL

3100

PAGE 46

SEQ 0075

MESSAGE PRINT ROUTINE

JMESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A)
sMESSAGES ARE IN THE FORMAT:

MESG:

LASCII

/8MESSAGERa/

‘WHERE: & IS TRANSLATED INTO CR. AND LF.
*USES THE SUBROUTINE ''TTO"

;WHICH PRINTS CR. & LF. UPON SEEING A CR. CODE.
@ IS MESSAGE TERMINATOR
CAND

NTo AV, P8

e
e

b
b

—

o lo

WWWWWWWL_".

*ENTER WITH ADDRESS OF MESSAGE IN RO

3122

032210
032212
032216
032222
032224
032230
032232
032236
032242
032244
032246
032250

022700

000000
000100

022700

000046

012700
004767

000015
000530

TYPOUT: MOV
TPOFCH: MOVB

cvP

#100,R0

CMP
BNE
MOV

#46,R0
TPCONT
#15,R0

INC

(SP)

BEQ

TPCONT:

TPOUTX:

RO,=(SP)
a(SP) RO

JSR

TST
RTS

TPOUTX

PC,TTO

TPOF CH

(SP)+
PC

:STACK ADDRESS OF MESSAGE
sFETCH ASCII BYTE
;1S IT @ (TERMINATOR)?
JYES=EXIT
;1S IT CRLF FLAG?
sNO-TYPE CHARACTER
;YES, CHANGE DATA TO CR

STYPE

sMOVE POINTER TO NEXT BYTE
sFETCH NEXT CHARACTER
;POP STACK TO REACH RETURN VECTOR

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 47

SEQ 0076

KEYBOARD INPUT ROUTINE

3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141

.SBTTL

KEYBOARD INPUT ROUTINE

;KEYBOARD INPUT ROUTINE CALLED BY JSR
sENTERED WITH OLD CONTENTS IN KBBUF

PC. INPKB

sIF JUST <CR> TYPED, EXIT WITH SAME CONTENTS IN KBBUF

sIF NEW NUMBER TYPED, EXIT WITH NEW CONTENTS IN KBBUF
INPKB:

NOKEF
L
R1,=(SP)

;CLEAR NO NUMBER FLAG
;STACK OLD R1

KBBUF

;CLEAR INPUT BUFFER

RO, #12

;WAS IT A <CR> OR <LF>?

RO,R1

;SET UP TO CHECK FOR A NUMBER
;MASK ALL BUT # CODE
;IS IT A # FROM 0-7?

KBBUF ,~(SP)
GETCHR:

1%:

177407
000060

PC.KBRD
PC.TTO

1%
NRTRN

#177407
,R1

R1,4#60
33
RO,.#177

sECHO IT

:NO
;YES, RETURN WITH PROPER KBBUF

sYES, PACK IT

000057
000426

#57 ,RO

000152

KBBUF

;CLEAR THE (C-BIT
;DELETE LAST DIGIT

000144

KBBUF

;

000136
000132

KBBUF
KBBUF
118
NOKEFL
GETCHR
#77.RO

INTO KBBUF
:
;HAVE WE DELETED EVERYTHING?

GE TCHR

;JAND GET ANOTHER CHARACTER

PC.TTO

000122
177664

000077
000356
177650

177777
177770

PC,TTO

000074

#-1 ,NOKEFL

#177770.R0

000066
000062
000056
000052

KBBUF

KBBUF
KBBUF
RO, KBBUF
GETCHR

177612

000040

NRTRN:

000034
:
NEK

NOKEFL
NEK
(SP)
+ ,KBBUF
+ ,R1
(SP)

PC
(SP)+

(SP)+,R1

105777
100375

JFETCH A CHARACTER IN RO

;WAS IT A DELETE/RUBOUT?
;NO, MUST BE GARBAGE
;YES, BUT PRINT ‘\"'

000177

032502
032506

;STACK "OLD CONTENTS''

002722

KBRD :

akBS
KBRD

THAT WAS STUFFED

:NO

;YES, BACK TO NO NUMBER INPUT
;GO FOR MORE INPUT
;ECHO """ FOR ERRONEOUS INPUT

;GOT A DIGIT. SET FLAG
;GET THE DIGIT PART OF THE CHARACTER
;SHIFT KBBUF BUFFER
TO ACCEPT THE
:
; NEW DIGIT.
;ADD THE NEW DIGIT
;GO FOR MORE INPUT

;WAS THERE NEW DATA?
;YES, GO BACK WITH IT
sNO, RETRIEVE OLD DATA
sRESTORE R1
;AND RETURN
;DUMP OLD DATA
;RESTORE R1
sAND RETURN

;JWAIT FOR INPUT FROM CONSOLE

CZPLBBO PCL11 STND ALN VO2A

PCLTST.P

3183
3184
3185

032510
032514
032520

12-SEP-78 15:13

017700
042700
000207

002716
177600

MACYT1 30A(1052)
18-0CT-78 14:35
KEYBOARD INPUT ROUTINE
KBRET:

MOV
BIC
RTS

akBD RO
#17760C
RO
PC

PAGE 47-1

SEQ 0077
;PUT THE CHAR INTO RO
;TRIM PARITY

|
CZPLBBO PCL11 STND ALN VO2A
[PCLTST.PIT
12-SEP-78 15:13

3189 032522 000000
3190

]

PAGE 48

:ASSOCIATED VARIABLE STORAGE:

g}gg

MACYT1 30A(1052)
18-0CT=-78 14:35
KEYBOARD INPUT ROUT INE

032524

000000

NOKEFL: .WORD
KBBUF:

.WORD

C
0

SEQ 0078

.SBTTL BINARY TO ASCII CONVERSION ROUTINES

3192
3193
3194
3195
3196
3197

;CONVERTS BINARY TO BINARY, BINARY TO

;OCTAL, AND BINARY TO DECIMAL; EITHER
JUNJUSTIFIED WITH LEADING ZERO'S SUPPRESSED
;OR RIGHT JUSTIFIED WITH LEADING 0'S
; SUPPRESSED

SEQ 0079

BINARY TO ASCII CONVERSION ROUTINES

O>2>2>2>»

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.P

MACY11 30A(1052) 18-0CT-78 14:32 PAGE 49

;REGILAR BIN-OCTAL UNJUSTIFIED:

3207

OCTPNT: CLR

000122

JSR

MOV
RTS

#10,R1

;CLEAR RIGHT JUSTIFY FLAG
;SET RADIX FOR OCTAL

sRETURN

RJFLG

PC ,NUMPNT

;CONVERT & PRINT

L
EEE

;BIN-OCTAL JUSTIFIED:
032544
032552
032556
032562

032564
032570
032574
032600

KIS

000270

012767
012701
004767
000207

177777
000010
000102

000250

OCTJSP: MOV
MOV
JSR
RTS

#-1,RJFLG
#10,R1
PC ,NUMPNT

;SET RIGHT JUSTIFY FLAG
sSET RADIX FOR OCTAL
s CONVERT & PRINT

RJFLG
#2,R1
PC . NUMPNT

;CLEAR RIGHT JUSTIFY FLAG

005067
012701
004767
000207

BINPNT:

;BIN-BIN
CLR
MOV

JSR

RTS

;SET RADIX FOR BINARY

;CONVERY & PRINT

;BIN-DECIMAL UNJUSTIFIED:
005067
012701
004767
000207

DECPNT:

CLR

MOV
JSR
RTS

RJFLG
#12.R1
PC ,NUMPNT
PC

;CLEAR RIGHT JUSTIFY FLAG
;SET RADIX FOR DECIMAL

;CONVERT & PRINT

;BIN-DECIMAL JUSTIFIED (6 PLACES)
012767
012701
004767
000207

000174

032777
001005

177102

004767
004767
000207

DECJSP: MOV
MOV
JSR

#-1,RJFLG
#12,R1
PC ,NUMPNT
PC

;SET RIGHT JUSTIFY FLAG
;SET RADIX FOR DECIMAL
;CONVERT & PRINT

BIT
BNE
NULLT:
CLR
JSR
JSR
NULOUT: RTS

#8164 ,aSR
NULOUT
RO

;0.K. TO PRINT?
:NO, FORGET IT

RTS

NULLS:

DOODO@DD®@D

005067
012701
004767
000207

PC.TTO
PC,TTO
PC

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.P11

MACY11 30A(1052) 18-0CT-78 14:3& PAGE 50

SEQ 0080

BINARY TO ASCII CONVERSION ROUTINES

sUNSIGNED CONVERT=PRINT ROUTINE (BIN = ASCII)
3246

032664

010167

000134

000124

NUMPNT: MOV
CLR
DIVSET: CLR

DIVID:

000116

000040
000016

000036
000060

DIVID
RO,=(SP)
R1,RO
PNTEXT

PNT:

R2
PC.DIVSET
#6,R3
R2,R3

BLE

PNT

BEQ
MOV
JSR
DEC
BNE
CLR
MOV
BIS

PNT
#40,R0
PC.TTO
R3
JUST
RJFLG
(SP)+,RO
#'0,RO

TST

JUST:

;IF YES, STORE DIGIT

BR
MOV
MOV
BEQ

PNTEXT: MOV
SuB

000060

GETDG

RO,RADIX
RADIX,RO

INC
JSR

177744

;SAVE RADIX
;CLEAR TAB COUNTER
;CLEAR WORK REGISTER

suB
INC

GETDG:

000006

CMP

BLO

R1,RADIX
R2
R1

RJFLG

:TYPE OUT ROUTINE

;1S NUMBER BELOW RADIX?
;ELSE, KEEP SUBTRACTING
;AND KEEP COUNT

s STACK REMAINDER

sPRINT IF HIGHEST ORDER STACKED
;ELSE COUNT DIGITS FOR R. JUSTIFY
sGET DIGIT COUNT CONSTANT
;HAVE WE PRODUCED 6 DIGITS?
;YES, JUSTIFICATION UNNECESSARY
;1S THE JUSTIFY FLAG SET?

sNO-DON'T JUSTIFY

;YES, PRINT LEADING SPACES

;CLEAR JUSTIFY FLG WHEN DONE

;GET REST OF DIGITS OFF STACK
sMAKE THEM ASCII

;PRINTS A CHARACTER WHICH IS IN RO
;IF THE CHARACTER IS ''CR.'', ALSO PRINT A 'LF.'".

002440

002432

TT0:
TTOLP:

000015
000012

TTOLF:

MOV
TSTB

BPL
CMP
BEQ
RTS
MOV

RO,aTTB
alrTs

TTOLP
#15,R0
TTOLF

PC
#12,RO

TT0

;ASSOCIATED VARJABLE STORAGE :
RJFLG:
RADIX:

.WORD
.WORD

0
O

;PRINT CONTENTS OF RO
;WAIT TILL PRINT DONE

;WAS IT A <CR>?
;YES, ECHO A LF AS WELL
sNO, JUST RETURN

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

TEST BUFFERS

D
14:35

.SBTTL TEST BUFFERS

;DATA SILO
125252
052525
125252
052525
125252
052525
125252
052525
125252
052525

SILDAT: 125252
052525
125252
052525

177400
000377

000377

177400
020377
177400
000377

000377

000377
177400
000377

177400
177400

177400

177400
000377

033124

033144

033146
033150
033152
033154
033156
033160
033162
033164

DATA-BUFFER

Ef
EF
EF

125252
052525
125252
052525

177400

010421

114631
125252

125252

177774
000004
177773

125252

000000

000003

SEQ 0081

052525

000000
177777
000000
177777
000000
177777
000000
177777
000000
177777

000001
177776
000002
177775

7
PAGE 51

177777
00
177777

177777

000001
177776
000002
177775
000003
177774
000004
177773

Ef
EF
E)
E)
E)
E)
E)
E)
Fl
F)
Fi

18-0CT-78

TEST BUFFERS

3351
3352
3353
3356
3357
3358
3359
3360

033172
033174
033176
033200
033202
033204
033206
033210
033212
033214

000000
000000
000000
000000
000000

3362
3363
3364
3365

033216
033220
033222
033224

wvinn

aa
=

T
[ SY

1
1
1
1

SEQ 0082

OOE&EcEcEc=ZzZzez

5
2
177777
000000

O—

052525
177777

111

winD
rnown

bbb

b ed e

i
b

dadadadad

b
-

3355

PAGE 51-1

[
—Y

000005
177772

b cd cad b

000005
177772

033166
033170

3348
3349

14:35

VPOVDVVVVVVIOVIVIVIOD

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P1

MACY11 30A(1052)

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.PN

MACY11 30A(1052)

18-0CT-78

TEST BUFFERS

;CRC TEST BUFFER

033226

125252
050521
12420?
00066
141436

033246
033250
033252
033254

135105

SILCRC: 125252
050521

124200
000665
141436
164003
075106
027371
002562
135105

002640
045405
060152
013403
153756

072577
164176

033272
033274

033276
033300
033302
033304
033306
033310
033312
033314
033316
033320

025435

111272

052673

157140
102461

157140

066234
016141

175726
121477

102461

066234
016141

175726
121477
036420
122203

045272
016435

033322

010703
103142
177121
016654

033047
042734
046205
014300
024677
103302

3409

106245
124160
132304

061203

033370

140621

054620

015025
017305
044754
244406

054620

F
14:35

PAGE 52

SEQ 0083

033372
033374
033376
033400
033402
033404
033406
033410
033412
033414

110312
130174
116116
120462
021446
114411
133325
050737
106501
007625

3435
3436
3437
3438

033416
033420
033422
033424

117626
041245
031477
014726

' la)

oOoN

3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
gz%z

SEQ 0084

CZPLBBO PCL11 STND
ALN VOZ2A
MACY11 30A(1052)
18-0(T-78 14:32 PAGE 52-1
12-SEP-78 15:13
TEST BUFFERS

PCLTST.P1

nmxnnmnmxnanmgnm
TTTT T T T T T T T T
TTTMmMmmm RARRRRARRARARRRRRARARAR m Rmmm 38333333

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P1

3440
3441
3442

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

TEST BUFFERS

14:35

PAGE 53

:RECEIVERE%LA COMPARE BUFFER
033426

000100

CMPBUF: .BLKW

64.

SEQ 0085

(Zl

PCl

RF,
RF,
RF,
RF,
RF.
RF
RF'
RF(
RF
RFi
RF'
RF'
RHI
RHI
RH
RH
RH,

RH
RH
RII
RI
RJ
RJ
RJ
RJ
RP
RS

SC
SC

SC
SI

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT-78
ASCII STORAGE

;222
3446

3447

3448

3449

3450

3453

3454

3455

SEQ 0086

gt(
SL(
SR

044523
052125

047514
052520

SLOWD:

.ASCII

/B&SILO OUTPUT WORD WAS @/

033656
033664
033672
033700
033705
033712

023046
044440
053440
040527
046
040?88

044523
050116
051117
020123
047105
051523

047514
052125
020104
100
020104
021440

SLIWD:

.ASCII

/RRSILO INPUT WORD WAS @/

PEND:

.ASCII

/RBEND PASS #a/

SCSEC:

.ASCII

/BSCOPE SECTION FOR SLICE TIMINGRSET SW 09 TO EXIT THIS LOOP.a/

033642
033650

033721

020124
053440

047527
051501

042122
040040

033726

020105

046

041523

050117

034000
034006
034014
034016
034024

052111
020123
040056
052046
044515

052040
047514

044510
050117

040522
052126

051516
051105

034040
034046
034051
034056

020123
020075
046
053111

042522
100
042522
051105

020107

034101
034106
034114
034122
034130
034133

046
043117
051504
044505
020075

020061
046523
020122
023040
046
020061
053111
051505
040040
052046

051126
052111
042524
020040
041520
042522
051105
023124

034140
034146
034154
034162
034167
034174
034202
034210
034216
034220

034226

051440

040524
042522

046

044515

042523

040524

052103

TXSTAT: .ASCII

052524

RCSTAT: .ASCII

/BRECEIVER STATUS REG = @/

047516
053440
051040
042?88

020056
051117
041505
020104

RCBTCN:

.ASCII

/8NO. OF WORDS RECEIVED = @/

041520

030514

040522
0521264

SR
SS|
Swi
Swi
Sw

/BTRANSMITTER STATUS REG = @/

042503
051440

052524
020107

SW
Swi
Sw!
TCl

020123
020075

047101
042524
052123
100
030514
042503
052040
020040

TXHDR:

.ASCII

/8PCL11 TRANSMITTER TEST &

RCHDR:

.ASCII

/8PCL11 RECEIVER TESTE

051516

XRHDR:

.ASCII

/RTRANSMITTER - RECEIVER LOOP TESTSE

051105

CZl
PCl

.SBTTL ASCII STORAGE
023046
047440

034064
034072
3452

PAGE 54

033626
033634

034032

3451

14:35

1C
DI
TEl
TE
TE
TE
TE
TE
TM
TM

3456

034267

MACY11 30A(1052)

18-0CT-78

ASCII STORAGE

046
020061
020123
020063
047105
020040

041520
042526
G200€1
042523
042503

052123
020055
052521
020046

030514

ALTHDR: .ASCII

046530

051124

TMTR:

.ASCII

/&XMTR @/

100

7
PAGE 54=1

J
14:35

/8PCL11 TESTS 1 - 3 SEQUENCEE

3457

034327

3458

034336

051088

053103

020122

RECVR:

.ASCII

/8RCVR @/

3459

034345

061
044516
042101

052123
052502
051104

052440
020123
027056

FRAD:

.ASCII

/1ST UNIBUS ADDR...a/

052046
040527
020117

040510
020123
047514

829}%2

TOOLOW:

.ASCII

/&THAT WAS TOO LOW!

SEQ 0087

TSI

I'LL GIVE YOU ANOTHER CHANCE...ga/

020527
020114
054440
047516
041440
027105

3461

034454

020124

AGAIN:

.ASCII

/BTHAT WON'T DO. TRY AGAIN!Ra/

3462

034510

051117

VCTR:

.ASCII

/VECTOR...a/

044522
032050

PRIOTY:

.ASCII

/PRIORITY

052502

TDMAD:

.ASCII

/TDM BUS ADDR (1-37)..3/

046101

INVLAD:

.ASCII

/BINVALID DEVICE ADDRESS...(IT'S NOT THERE)a/

TRAP4:

_ASCII

/BTRAPPED TO LOCATION 4 FROM LOCATION @/

TSTHDR:

.ASCII

/RR8PCL11 STANDALONE TESTS VO2A

020124
051124
044501

0400

044124
100

051105

024505

051124

829;81

(4=7)..3/

052101
020064
046040
047511

3467

828;32

034713
020105

042524

047117
052123

(ZPLBBO

8-SEP-78Ra/

33111

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

XA
XA
XA

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1N
12-SEP-78 15:13

020123

MACY11 30A(1052)

ASCII STORAGE

K
14:35

7
PAGE 54-2

SEQ 0088

060462
050132
020040
026520
041505
3

3468

18-0CT-78

3470

LASCII

/RSELECT TEST (<CR> = HELP)..a/

LASCII

/B8RESPOND WITH ONE OF THE FOLLOWING:/

LASCII

= RUN TRANSMITTER TEST/

052124
051505

34N

020040
051040
041505
020122

.ASCII

2 = RUN RECEIVER TEST/

3472

020040
052522
051124
020122
052040

LASCII

3 = RUN XMTR-RCVR LOOP TEST/

3473

020040

LASCII

4 = RUN TEST 1,

035310

THEN TEST 2,

THEN TEST 38a/

CZl

PCI

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

SEQ 0089

CONSTANTS AND VARIABLE STORAGE

.SBTTL CONSTANTS AND VARIABLE STORAGE
.EVEN

035312

CZF

PCL

XFN

XFR

XFS

035312
035314
035316
035320
035322
035324
035326
035330
035332
035334
035336
035340
035342

DILLY:
DLY:
SWRFLG:

.WORD
.WORD
.WORD

ITER:
SWI:

.WORD
.WORD

MASK :

.WORD

PNTFLG:
PAT:

PSNO1:
PSNO2:
PSNO3:
PSNO4:

TEMP:

TESTNO:
$4FLAG:

RCAD:
TRAD :

COUNT:
DATWD:

TMPRIO:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD

[elelelelelelolelelelolelelelolelels
el

;VARIABLES

XF1
XF1

sRECEIVER ADDRESS
;TRANSMITTER ADDRESS

;CONSTANTS:

035442

177777

TTS:
TTB:

.WCRD
.WORD

TSTWRD:

.WORD

MEM:

.WORD

b
b
b
i
b
i

WWMNONONIN)
= = - =
goo
nNO SO/ NOSH~WNO &

.WORD
.WORD

FRIXRRRRXRX

.WORD

v ACIANIASLAS
LS LS LS LS LN 1N 1,8}

RDCRC:

KBS :
KBD :

.WORD
.WORD
.WORD

RDDB:
RDBC:
RDBA:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

b e

TSR:
TSDB:
TSBC:
TSBA:
TMMR:

TMMRH:
TSCRC:
RCR:
RSR:

035440

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

NNN
NNN

FKPRIO:
TXVEC:
RCVEC:
XPRIO:
RPRIO:
TCR:

b —d

3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485

MACY11 30A(1052) 18-0(T-78 14:3% PAGE 55

177566
MEM
177777

CZPLBBO PCL11 STND ALN VO2A

PCLTST.P1

3531

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

M7
14:35 PAGE 55-1

CONSTANTS AND VARIABLE STORAGE

SEQ 0090

000170
000174
164200
164220
000001

TXMVEC: .WORD
RCVVEC: .WORD
TXMADR: .WORD
RCVADR: .WORD
.END

170
174
164200
164220

SEQ 0091
;170 IS XMTR DEFAULT VECTOR
;174 IS
RCVR DEFAULT VECTOR
3
XMTR DEFAULT BASIC ADDR
3
RCVR DEFAULT BASIC ADDR

ana

035444
035446
035450
035452

3533
3534
3535
3536
3537

MACY11 30A(1052) 18-0CT-78 14:35 PAGE 56
CONSTANTS AND VARIABLE STORAGE

(ZPLBBO PCL11 STND ALN VOZA
PCLTST.P1
12-SEP-78 15:13

czZP
PCL
XRB
XRB
XRB
XRB
XRC

XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XR(
XRC
XRC
XR(
XR(
XR(
XRC
XR(
XR(
XR(
XR(
XR(
XR(
XR(C
XR(
XR(
XR(
XR(
XR(
XR(
XR(
XR(
XR(
XR(
XR(
XR(

BATST
BCONT
BCTST
BEGIN
BHLPMG
BINPNT
B0OO
=

005772
003132
005616
002000
003176
032564
000001

BAD

B01

032204

= 000002

660
656
673
669
603
717

6634
6594
6764
6724
612
34564

764
468
681
32174
nggl

1004#
554
683

620

624

638

642

657

661

670

674

34614

895
945+
988«
12646
1721
1776
1883
2422
2679+
2819«
1029#
6774

899
946
990
1248
1723
1778
1901+
2627*
2680%
2820
1047
686

901
952+
1009+
1267+
1727«
1782«
1903
2428%
2681
2858+

905+
953«
1010
1269
1729
1784
1939«
2429
2726*
2859«

906+
954
1034+
1303«
1733«
1788+
1940
2474*
2727«
2860

908
962+
1035
1305
1735
1790
2052+
2475
2728
3076

910
963
1140*
1320
1739«
1794«
2053
2528+
2770%
30964

914+
972%
1142+
1321
1741
1796
2226%
2529
2771«

916
974
1144
1376
1758«
1815«
2227
2573
2772

920+
978+
1168+«
1634
1759
1816
2321«
2574
2776%

922
979
1200+
1637
1765«
1840+
2366%
2672%
2777«

926+
983+
1201+
1715+
1766*
1841
2368
2673+
2778

869

3013

;8%8

1031

1334

1812

1837

2660

2761

2762

2809

2810

2889

2903

1004
1397

1029
1442

1054
1491

1227
1509

1244
1520

1251
1535

1272
1547

1274
1559

1313
1590

1324
1599

2325
Sggg

2140
2380
2741

2152
2433
2742

2187
2434
2796

2196
2480
2797

2203
2481
2834

2209
2538
2835

2218
2539
2881

2242
2627
2882

2294
2628
2915

2013

1350
1620

2117
2379
2696

1972

1333
1606

2295
2654
2916

2324
2655
2931

1255

1265

1296

1346

1399

1867

1892

1916

1968

2705

2918
1563
1199
1393
2020

2953
1569
1206
1576
2028

2961
1575
1213
1594
2029

1593
1253
1630
2118

2015
1263
1871
2122

2156
1300
1873
2169

2162
1308
1896
2171

2168
1310
1898
219

2190
1374
1910
2219

1379
1920
2353

2120

2172

893«
928
984
1203
1717
1767
1881+
2421
2674
2818+«
765
561

4634
1386
1651
2069

1810

B02
B03

= 000004
= 000010

4628
232}#

2042
1230

1241

B04
BOS
B0O6
B07

=
=
=
=

4604
4594
4584
4574

1405
2895
1413
1139

2713
2911
1423
1167

1987

1992

2019

000020
000040
000100
000200

B08

= 000400

B09
B10
B11
812

= 001000
= 002000
= 004000
= 010000

B13

= 020000

B14

= 040000

1387

1388

1392

2732
4514
2385
2840
4504
992

2782
808
2387
2841
897
1012

2786
1419
2439
2888
903
1037

2824
1438
2440
2889
912
1058

2864
1479
2633
2917
918
1075

1236

1243

1250

1257

1261

1826

1131

1851

1135

2753
1292
2890
1429
1450
1460
1020

1860

2659
1234
2445
1061
751
771
933

1801

2664
1259
2548
1070
1449
1459
995

1835

2365
4564
2392
4554
454M
4534
4524

1127

1775

1022
5654
6854

1974

1146

2755
1513

1430
1525
1543
1045
2095

1154

1879

2756
1863

1444
1673
1690
1218
2096

2869
1480
2634
2919
924
1080
1158

1271

1886

2758
1876

1516
2071
2085
1353
2142

2966
2014
2660
2938
930
1085
1166

1277

1906

2759
1888

1909

2760
1899

2057
2072
2086
1469
2198

2940
2258
2273
1470
2239

2024

2701
2939
948
1091
1173
1278

1957

2798
1946
2638

1549

2805
2047

2033

2850

1601

1648

1746

2348

2615

2685

2718

5
2702

2070

2080

2105

2106

956
1096
1187
1280

965
1101
1194
1290

976
1109
1205
1296

981
1113
1212
1298

986
1119
1232
1307

2749

2750

2809

2810

003016
002772
003124
003100
034454
034267

SEQ 0092

AAAXXX>»x

ADGD
ADOK
ADRGD
ADROK
AGAIN
ALTHDR

8 8
MACY11 30A(1052)
18-0CT-78 14:35 PAGE 57
CROSS REFERENCE TABLE == USER SYMBOLS

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PI
12-SEP-78 15:13

1323
1452
1533
1737

1348
1456
1545
1743

1362
1462
1570
1761

1390
1466
1582
1769

1905

1395
1472
1586
1780
1918

1411
1476
1612
1786

1415
1482
1623
1792

1421
1486
1626
1798

1425
1499
1628
1818

1942

1432
1501
1642
1843
1948

1436
1503
1719
1865

1440
1507
1725
1869

1999

1446
1578
1731
1878
2017

445
2076
29964
2314
1908
1922

1014
2090
3023
2343
19784
1936

1039
2100

1417
2110

14634
2136

1454
2892

1464
2907

1474
2942

1484

1505

1820

1845

2061

2936

34424

770
2270
2223«

16204
23794
2224

= 100000

CCRTN
CHXDAT
CLRCBF
CMPBUF
CONTW1
COUNT
CRCTST
DATLPS
DATWD
DECJSP
DECPNT
DELAY
DELYMG
DERR

031456
023476
017702
033426
031466
035354
014364
023556
035356
032620
032602
004332
031672
032040

DEVGEN
DILLY

DIVID
DIVSET

004050
035312
032674
032672

DLWT
DLWT1
DLY
DTLPS1
DVATST
EROINT

004352
004360
035314
023650
004242
021676

DLCON

ERR

ERRAD

031752

031754

032200

29974
1631«

32314

1890

2998
1645+

724
8764
3016
897
1012
1743
2232
2780

780
1162
30374
903
1037
1761
2316
2822

32494
32484

3253
3258

2943
878
881#
880+
23894
583
2155
1058
1154
1
1446
1533
1932

3017
8804
882
881«
2397
8544
21604
1075
1158
1294
1452
1545
1948
2088

650
876+

877
2441

2210
2605
2913

3055«

8194
883«

879+
2489

2312
2646
2921

3056+

1894

1923

1932

1934

1970

23634
2479
1979
3004
34984
1629
2399
2230

1998

2043

2051

2483

2526

1643
2408
34994

1650
2419

2425

2432

,
2617

1699
1190

2282
1196

32244
1208

1228

1239

1538

1541

1861

1874

2356

2661

912
1146
1769
2322
2862

918
1205
1780
2345
306°#

924
1250
1786
2424

930
1271
1792
2431

948
1307
1798
2477

956
1323
1818
2531

965
1642
1843
2576

976
1719
1885
2676

981
1725
1905
2683

986
1731
1942
2730

992
1737
2055
2774

1179
2586

1282
2635

1363
2665

1403
2703

1522
2719

1924
2763

2000
2811

2301
2844

2330
2851

2388
2893

1085

1091

1096

110

1109

1113

1119

1127

1135

34814

880
2546

3018
884

3022«

30494

34824

1080

1166
1298
1456
1570
1970

2092
2341
2687
2951
3061

1173
1348
1462
1582
2017

2098
2398
2711
2955
3069«

1187
1390
1466
1586
2022

2102
2402
2715
2959
3070+

1194
1395
1472
1612
2026

2108
2411
2734
2963
30944

1212
1411
1476
1628
2031

2112
2451
2784
30554

1232
1415
1482
1865
2049

2130
2455
2788

Vo
=T

1885

Bi5

SEQ 0093

CZPLBBO PCL11 STND
ALN VOZ2A
MACY11 30A(1052)
18-0CT-78 14:3% PAGE 57-1
PCLTST.P11
12-SEP-78 15:13
CROSS REFERENCE TABLE == USER SYMBOLS

1236
1421
1486
1869
2059

2134
2464
2826

1243
1425
1499
1878
2063

2138
2504
2866

1257
1432
1503
1890
2067

2163
2515
2901

1261
1436
1507
1894
2074

2179
2554
2905

1280
1440
1518
1918
2078

2183
2594
2909

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PN
12-SEP-78 15:13
ERRINT
ERRM
ERRNUM

013756
032124
032202

1562

3057
897+

1012+
1131»
1243*

1395«

1472+
1612%
1798«
1948+

2082+«

2210w

ERRTRP
ERR1
EX1
Ex2
EX2A
EX28
EX3
EXS

004262
031766
031542
031560
031566
031630
031642
031660

GETDG
GOOD

032712
032206

FILRCV
FKPRIO
FRAD
GETCHR

c455%
2687+
2901+
542
30574

8
PAGE 57-2
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)
15674
30854
903«
1037«
1135«
1250%

D
14:35

924+

1080+
1158«
1271*
1425%
1499*
1725
1869+

1411
1476%
1628+
1818«
1970«

2026*
2102%
2322*
2515+
2734%
2921%

2088+
2232*
2464

930+
1085+
1166*

948
1091*
1173~
1290+
1436%
1507
1737
1885+

SEQ 0094

1280*
1432+
1503+
1731«
1878«
2031~
2108*
2341*
2531+
2774
2951

2049«
2112+
2345«
2554*
2780+
2955+

2055+
2130«
2398+
2576+
2784+
2959+

916

921+

1203
1728+«
1789*

1247+
1729

927
989
1248
1734
1795+

986+
1119«
1232+
1348+
1462+
1582+
1786+
1932+

976>
1109*
1205+
1307%
1452+%
1545%
1769%
1905+

956+
1096+
1187«
1294%
1440%
1518+
1743%
1890*

2063+
2138«
2411
2605+
2822+
3058

2826+
30954

992+
1127+
1236+
1390+

1466+

1586+
1792+
1942+

2074*
2179%
2431%
2676*
2862+

2078+
2183+
2451+
2683+
2866*

950«
1010

954
1032+
1316+
1763+
1838«
2320+
2671+
3073

023434
035362
034345
032270

915«
974
1202+
1722+
1784
1902«

HLPMSG 035033
HWSWR = 177570
INPKB
032252
INTA
014304
INTB
014326

INVLAD 034572
ISP
= 002000
ITER
035322
032744
JUST
032524
KBBUF

KBD

18-0CT-78

035432

1268+
1740+

1759
1816

2426%
2728

2429
2769

1938+
2473
2772

2475
2778

2051
2527*
2817%

2227
2574
2860

617

635

654

667

679

31344

1571

1587

559

854
2256+

3012
34854

3027

587+
628+
653+
2995
3174+
3183

598«
630

601
634
666+

607+
636
668
3152+

1671+

943+

3022

3137+

609
640
672
3154+

610
676
3156+

616+

645+
678~
3157

618
646+
680
3166+

622
647+
682
3167+

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13
PCLTST.P11
KBRD
KBRET
KBS
LDLP
LOOP
LOOPL
LOOPR
MASK
MEM
MONCH
MONIC
MONIT

032502
032514
035430
023452
003622
022636
014732
035330
035440
031374
031370
031354

3138

E 8
18-0CT-78 14:35 PAGE 57-3
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
31814

3182

2997

3181
760

2267

16824
1017=

NULLS
NULLT
NULOUT
NUMPNT
OCTJSP
OCTPNT
PAT

PEND

PNT
PNTEXT
PNTFLG
PRIOTY

PRMT1
PRMT10
PRMT2
PRMT3
PRMT4
PRMTS
PRMTé
PRMT7

35244
7624

2265#
1693
1031«

994
1825

1220
9124
10584
11464
12574
164154

MSRTST
006146
N
= 000356

NEK
NOKEFL
NPRTST
NPTST1
NRTRN

9244
10804
11584

12714
14254
164994
17194
18654
20224
20984
23124
24LT77H
27154
29054

032474
032522
022762
023036
032456

032640
032650
032662
032664
032544
032526

035326

033705

032764
032726
035320
034522

002142
003024
002154
002240
002252
002336
002422
002500

SEQ 0095

2350

3219

3226

3233

32464

2231
2991

2407
3019

2418
3059

2460

34874
2280

34484

1014
1847+
1697

32704

1016*

34844

34634

675

625

1030+

1032

2471
3074
1039

2511
3077

1041+

2561

2566

2570

2582

1813

1820

1822+

1836+

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13
PRMT8
PRMT9
PROMT
PS
=

002524
002556
002056
177776

PSNO1
PSNO2
PSNO3
PSNO4
P1
=

035332
035334
035336
035340
000040

= 000100

P3
P4
P5

= 000140
= 000200
= 000240

= 000340

= 000300

RADIX
RART
RA1
RA2
RA3
RA4
RAS

RBATST

RBCTST

033024
01543%
015152
015222
015276
015346
015416

016320
016144

RBRT
RB1
RB2
RB3
RCAD

016316
016166
016250
016276
035350

RCBTCN
RCHDR
RCR

034101
034167
035414

623
6328
574

2151*
692+
693+
694+
695+

4458
bl

MACY11 30A(1052)

18-0CT-78

022336
016472
015440
034051
035452
035366
035446
016342
016424
016452
035424

RDBC

035422

PAGE 57-4

SEQ 0096

CROSS REFERENCE TABLE == USER SYMBOLS

6264
6

643
856
560+
2160+
779

748%

2174+

863+
2192«

1558+

2255+

1564+

1567«

1574

1577+

1595+

1670+

570

748

863

1558

1567

1574

1670

2151

2160

2486

2542

2632

2657

2699

2748

2804

2839

2887

2937

1757«
1879+

1758
1886+
1972%

1764%

1765
1896+
1992+

1771
1898«
1999+

1775+
1906+
2004«
2118+

1776
1909+

1810+
1910*

1835+
1916

1860+
1920+

1698
2281
723

567«
2167
34894
34904
34914
34924

560

567

3251

32904

4438
42N
PPAY

4408

4394
2167
3246%

1747
1718
1724
1730
1736
1742
1685
1684
1827
18134

1817
1821
676+

34,964

2065
2169+
2353«
2655+
2835+
RCRCTS
RCRT
RCRTST
RCSTAT
RCVADR
RCVEC
RCVWEC
RC1
RC2
RC3
RDBA

14:35

2069+
2171
2360~
2660*
2840+

1892
1987«
2070+

2187+
2380
2696+
2882+

2080
2190
2385+
%
2701
2888+

2427
2742+
2892+

2203+
2434
2749%
2907

2013+
2122+
2209+
2439+
2756+
2915+

2117+

2196+

2014+
2125+
2218+
2481+
2758+
2917«

2024

%
2761
2919

2033+
2152+
2242+
2539+
2797+
2932+

2140*
2219%
2487+

2241
2564

2610

34514

2166+
35344

2189+

3507#

1794

1839+

1840

1922+

1998«

2043

2052

2124+

2299+

2483+

1788

1814+

1815

1921+

1926

1997+

2041~

2045

2123+

2128

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P11

RDCRC
RDDB

035426
035420

RDRT
RD1
RD2
RD3
RD4
RDS
RD6
RD7
RECB

016142
015444
015526
015612
015724
015776
016050
016122
017712

RECVR
REEMT

REEMT1

REMTW
REND
REPEAT
REPEET
REPETL
RERT
RESR
RESRW
RESTRT
RE1
RE10
RE10A
RE11
RE12
RE13
RE14
RE1S
RE16
RE2
RE3
RE4
RES
RE6
RE7
RE7A
RE8
RE9
RFRT
RF1
RF10
RF11
RF12
RF13
RF14
RF15
RF16
RF17
RF18
RF19
RF2

12-SEP-78 15:13

034336
017754

2298+
847+
841+

G 8
18-0CT=-78
14:35 PAGE 57-5
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
2318

1733
1872+
2474
18044
1762
17634
17714
17824
1788#
17944
18004
1982

2321

664

2637%

2485«

2746%

28bo~

2934

35214

1901
2801+

1913«
35204

1989+

2036+

2119+

2170+

1793

1799

34584

020002

020006
015010
003752
015076
022760
017700
017722
017732
002716
016550
017300
017334
017340
017406
017430
017500
017544
017652
016610
01670%
10770
017030
017070
017110
017200
017204
617230
021616
020100
020564
020624
020706
020746
021006
021060
021120
021172
021232
021304
020146

1965

19874

658

662

3028

1971
1880
1891

1887

1895
1907
1933

SEQ 0097

1943

1949

2075

2079

2083

2089

2093

2099

2103

2109

2113

2023

2224+

2328

2355+

(ZPLBBO PCL11 STND ALN VOZ2A

PCLYST.P11

213

2135

2139

20284
20334

2032
2050

2056

2060

2064

2068

21854

2195

2212

022220

17144

1720

1726

1732

1738

1744

1748

3269*

32894

020024

004030
004046
004012

21514
3210

2164
3217«

2180
3224

2184
3231

2200
3263

1899

2084*
2132
2513
2726

8074
8124
898
1013
1132
1245
1396
1473
1613
}799

904
1038
1136
1252
1412
1477
1629
1819

913
1059
1147
1258
1416
1483
1643
1844

919
1076
1155
1262
142
1487
1720
1866

925
1081
1159
1273
1426
1500
1726
1870

931
1086
1169
1281
1433
1504
1732
1880

1946

2085+
2136
2516
2732

2135

SCSEC
SILCRC
SILDAT

033721
033226
033026

SILTST

010164

2019+

2020

2191«
2548
2770

2390
2562
2786

NN
S WA =0
=00 ~\WVN)
= — 00
O = = NN
SN

015100
021620
033022
022526
022366
022472
035372
035416

SBAK
SCONT
SCPRTN

21178

SRRV

RINIT
RINTST
RJFLG
RJRT
RJ1
RJ2
RPRIO
RSR

RSRTST

SEQ 0098

ownrn

RH3S

RH&4

PAGE 57-6

CROSS REFERENCE TABLE == USER SYMBOLS

021530

021570
020206
020254
020274
020312
020342
020410
020464
020524
022246
021744
021756
022014
022074
022134
022160

RFS
RF6
RF7
RF8
RF9
RF9A
RHRT
RHO
RH1
RH1A
RH2
RH3

& ngmb'\)—ad

RF 24
RF3
RF4

14:35

2 —2 2 3 3

RF23

021344
021366
021470

18-0CT-78

RF20
RF21
RF22

12-SEP-78 15:13

MACY11 30A(1052)

2068

2028+
2095+
2392
2565
2850+

1731
1843
1970
2082
2183

2348
2477
2608
2788
003774
SRTST
SSWR
= 031746
SWDMP
031406
003754
SWHLT
035324
Swi
SWREG

SWRFLG

SWRMSG
TCR

031746

035316

031662
035374

TCRTST
TDMAD
TEMP
TESTGO
TESTNO
TEST1
TEST2
TEST3S

005030
034544
035342
003212
035344
003522
014642
022536

TMMRH

035410

TMMR

035406

TMPRIO

035360

TMTR

034327

751
948
1061

753
956

771
965

1135
1243
1390

1466
1582

1737
1851
1974
2088

1070
1146
1250
1395
1472
1586
1743
1865

803
981
1085

1075
1154
1257
1411
1476
1601
1746
1869

1166
1271

1421
1486

2615
2822
2963

2017
2092
2210
2402
2507
2646
2826
2966

2022
2098
2232
2403
2515
2676
2862
2990

1068

29894

3002

755

2262

758«
2265%

759%
2266*

2267

789

797

1066

34834

942+
1054
*
1251=
1313«
1402+
1547«
1651*
2486+

944 »
1139%
1253«
1317«
1417%
1559«

945
1141+
1255
1324»
1419
1563«

951«
1160*
1263
1333+
1428+
1569+

2198
2398
2504

2699«
2841
99

2295«
2488+
2702%
2881+

2324»
2538«
2741«
2887*

760%

2329+
2542*
2748«
2889+

998+
1272*
1350+
1442*
1590+

2372+
2627+
2753
2916+

WONNOWO

1976
wHs gN—'OO
_ Ny
—

1870

—

1866

18604
34464
572
933
1058
1131
1236
1353
1462
1570

_Ag WO
=2 ON=DBPVOO——
V00O oWV ONIN

1127
1232
1348
1456
1549
1725
1826

34474

2229
1686
1639
571%
930
1045

u-ng»owow»mm—noo

033656
016474
033626
031750

b b b = —d b =

SLIWD
SLOTST
SLOWD
SR

SEQ 0099

NONOND) = =

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13

PCLTST.P11

I 8
14:35 PAGE 57-7
18-0CT-78
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

1676+

1678+

1679~

1680+

1681

961+
1206*
1274+

1213»
1277«

962

967*
1216*
1278
1374%
1509*
1606+

971+
1227+

972

1362+

1491+
1593«

2379~
2632+
2755*
2931+

1369+
1494
1599+

2384*
2634%
2762%
2937*

1379+
1520+
1620+

2387+
2654+

2433+
2657+

2939+

35104

2629+

35154

2796+

1300+
1386+
1521+
1623+
2438+

2659+
2810+

34934
708

714

1140
1072«
1106
1178+«

1161*
1073
1107
1181

2382+

1584
35004

1588

2174

35164

651

34574

1087+
1133
1215+

1088
1152
1334+

2177

1156
1351«

1093
1164
1401+

2181

2185

CZPLBBO PCL11 STND ALN VO2A
12-SEP-78 15:13

PCLTST.P11

TOOLOW
TPCONT
TPOFCH
TPOUTX
TRAD
TRAPG
TREND
TSBA

034370
032236
032212
032246
035352
034645
022674
035404

TSBC

035402

TSCRC
TSDB

035412
035400

TSR

035376

581

8
PAGE 57-8
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)
592

18-0CT-78

J
14:35

34604

1034
1009

011636
034713
034776
035442
035436
032772

TTOLF
TTOLP
TTS
TWOSP
TXHDR
TXMADR
TXMERS
TXMR1
TXMVEC
TXSTAT
TXVEC
TYPCTP
TYPOUT

033014
032776
035434
031742
034133
035450
026110
026174
035444
034016
035364
031715
032210

VCTR

WDAT
wDSDB
WDWAS
XART
XA1
XA2
XA3
B AL

032137
032155
032171
005026
004450
004520
004612
004626

9144

1320

1361+«

1493«

1622+

2328+
1497

2484x

2541~

1314+

1318
2630+

2656+

2697+

1376

1398«
2698+

1443
2700*

1510+
2744

2745%

2747+

1292
1448+
1479

1387+
1449«
1480

2462
2718«

1388
1450
1484
2465
2751

1392+
1454
1501

2470
2759+

1393
1458+
1505

2492
2776

1405
1459
1513

3782

1705
3240

1707
3241

2284
3266

2286
32774

2288
3284

1284

1360+

1492+

2743

1267
2631
2883«
1234
1434

1303
2658«
2885+
1259
1444

2409
2595
2945

2412
2600
2953

2417
2679
35114

782

3120

784
3139

1701
3150

1703

819

35354

2599

34504
35064
592
638
705
2416
2996

596
642

612

2458

2564
3075

586
633
699
2405
2992

1275%

1315+

2436+

1592«

034510

1276%

2386*

1474

TSRTST
TSTHDR
TSTSEL
TSTWRD
1B
170

SEQ 0100

1478%

2663
35124

3162

3016

1515+

1537+«

K 8
MACY11 30A(1052)
18-0CT-78 14:35 PAGE 57-9
CROSS REFERENCE TABLE == USER SYMBOLS

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P
12-SEP-78 15:13

005750
006144
006014
006076

993

1195

1207

1214

1092

1097

1102

1114

1128

HSVINO

-t O NN

— e
—d —d
wviwnwnes SN

—_

Run

—_—

=
©O

flm_._.g

NN
»H=0

REENIITEY &
33
XR
RuR NNeRs
\g L 3
O =\

b abulh
b ab e
b wbd wbd ab ad ad ab e

OOOONIN
R LD LD DL

b wd wb wb
@b wd
i
b i

1076
1081

—l—l—.—.o

e e
e
e
e R
S

006726
006766
007034
011604

oW N
ISRIRER2EIINELS SoEgRE

010130
006
006354
006422
006470
006544
006612

OOgNN-A—b—a—A—A—A..._n
NV\IOg
2@
O

010054

WO
~NoonLCo

007742

e I

007612
007616
007666

XE27
XE3
XE3A
XE38
XESA
XE6
XEGA
XE7
XE7A
XE8
XE9
XFEMT

007570
007600

e Y

XE26

007514
007562

XE25

007420
72

XE22B
XE23
XE24

987

005534

XE22
XE22A

982

g—.-fi
o

005574
003704
010162
006222
007046
007106
007146
007206
007214
007246
007306
007320
007360

957
966
977

XD9
XEND
XERT
XE1
XE10
XE11
XE12
XE13
XE14
XE15
XE16
XE17
XE18

XE20
XE21

1043

005614
005034
005116
005202
005274
005404
005452
005520

XE19
XE2

1018

006124

XDRT
XD1
XD2
XD3
XD4
XD5
XDé
XD7

XD8

1038

XC3

1013
10144
10194
10484

XCRT
xC1
XC2

10234

X8B3

005006
005770
005640
005722

XA7
XBRT
XB1
XB2

9204
9264
9324

004666

004736

N =

XAS

XA6

SEQ 0101

13744

1132

1136

1147

1155

1159

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.P11
XFMTW
XFRY
XF SR
XFSRW
XFSR1
XF1

XF10
XF11
XF12
XF13
XF14
XF17
XF18
XF19
XF19A

—

XF2
XF20
XF3
XF 3A
XF5
XF6
XF6A
XF7
XF8
XF 8A
XF9
XHRT
XH1
XH10
XH11
XH12
XH13
XH14
XH15
XH16
XH17
XH18
XH19
XH2
XH2A
XH2B

XH20
XH20L
XH21
XH21A
XH22
XH22A
XH23
XH3
XH4
XH5
XH6
XH7
XH8
XH8A
XH9

011614
011532
011534
011566

011562
010240
011026
011066
011126
011144
011232
011236
011274
011356
011476
010300
011504
010362
010444
010516
010556
010570
010660
010750
010754
010760
013676
011712
012556
012616
012670

012730
013002
013042

013114
013154

013246
013306

011760
012030
012024
013346
013354
013444
013464
013472
013546
013650
012100
012140
012210
012250
012330
012370
012430
012504

12-SEP-78 15:13
13764
1354
1335
13654

13644
1231
1285
1293
1297
13034
1306
13134
13184
1322
1347
1235
13514
1242
1249
1256
1260
12654
1270
1279
12834
12844
1550
1389
1451
1455
1461

1465
1471
1475

1481
1485

1498
1502

1394
14054
164044
1506
15104
1517
15234
15254
1526
1544
1406
1414
1420
1424
1431
1435
1439
1445

MACY11 30A(1052) 18-0CT-78 14:3% PAGE 57-10
CROSS REFERENCE TABLE == USER SYMBOLS

1378
13564
1338
1366
1368
12344
12924
12964
13004
1312
13114
1325
1319
13334
13504
12384
12464
12534
1259%
12634
1266
12744
12824

1341

1295
1299

1349
1245

1262
1273
1281

1396

14784

14844
14914

15014
15054

13974
1408
1410
15094
1514
15204
1532
1528
15354
15474
14134
164174
14234
142784
14344
14384
14428
14484

1252

1258

1289
1287
15524
13924
14544
14584
14644

14684
14744

13604

1291

1309

1463

1467

1473

1477

1483

1487

1500

1504

1508

1412

1416

1422

1515
1534

1519

1530
1546

1433

1437

1447
1453

;
1457

1441
’

1426

SEQ 0102

XRB6
XRB6S
XRB7

014414

014462
014502
014600
035370
023432
023044
023120
023156
023226
023274
023302
023354
023412
026106
024106
023654
025104
025172
025200
025274
025214
025300
025362
025356
025366
025466
025536
025514
025544
025652
025666
025662
025644
025764
025772
026060
026066
024020
024114
024170
024252
024336
024342

024506
024574
024602

D ——d —

LogUS 8L

XK2
Xk3
XKé
XPRIO
XRART
XRAT
XRA2
XRAZA
XRA3
XRA3A
XRAG
XRAS
XRA6
XRBRT
XRBS2
XRB1
XRB10
XRB10S
XRB11
XRB11C
XRB11L
XRB12
XRB12K
XRB12L
XRB12M
XRB12R
XRB12S
XRB12T
XRB13
XRB13C
XRB13D
XRB13E
XRB13L
XRB13S
XRB14
XRB14S
XRB15
XRB2
XRB3
XRB4
XRB4C
XRB4D
XRBS

1609
844

22eFT
AR A

XK1

004376
014302
01402
014036
014130
014170
014214
014254
014632

18-0CT-78

14:35

PAGE 57-11

SEQ 0103

CROSS REFERENCE TABLE == USER SYMBOLS

D ——d —d

XINIT
XJRT
XJ0
xJ1
xJ2
XJ3
xJ35
XJ4
XKRT

MACY11 30A(1052)

—

CZPLBBO PCL11 STND ALN VOZ2A
12-SEP-78 15:13
PCLTST.P11

898

904

913

919

1598

1614

2583

2602

2613

2461

2472

2478

35084
2309

2342

2346

2338

24194

25234
2537
2571

26024

26134
24094

2452
24624
24724

925

931

935

CZPLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT-78 14:35 PAGE 57-12
CROSS REFERENCE TABLE == USER SYMBOLS

XRB8

24794

024654

2476

XRBBA
XRB9
XRB9S
XRCNT
XRCRET
XRCRT
XRC1
XRC10
XRC10A
XRC10B
XRC11
XRC12
XRC13
XRC1&
XRC15
XRC15A
XRC158

024752
024760
025076
023514
030374
031352
026202
027240
027350
027344
027442
027516
027556
027616
027650
027742
027736

264904
264928
2506
2366
2870
2967
26384
27514
27654
27648
2773
2779
2783
2787
28014
28134
28124

2503
2499
2508
2371
28724
29694
2641
2752
2766
2768
27764
27824
27864
27964
2803
2814
2816

XRC17
XRC18
XRC18A
XRC18L

030074
030154
030222
030174

2825
2842N
28534
2846N

2834w
2843
2854
2847

XRC16

XRC18x
XRC18y
XRC19
XRC19A
XRC2
XRC2A
XRC2D

XRC20
XRC21
XRC21A
XRC22

XRC23
XRC24
XRC25
XRC26
XRC27
XRC29
XRC29A
XRC3
XRC30
XRC31

XRC32
XRC33
XRC34
XRC4
XRC5
XRC5A
XRC6
XRC6A
XRC7
XRC7A
XRC7D
XRC8

030034

030170
030216
030314
030354
026256
026360
026354

030376
030464
030506
030512

030562
030622
030662
030722
031012
031100
031122
026452
031126
031174

031234
031272
031332
026534
026574
026660
026664
026734
026774
027012
027006
027104

2821

28454
28524
2861
2865
2639
26678
26664

2272
28904
28944
28954

2896
2904
2908
2912
2920
29404
2944k
2675
29454

2954
2958
2962
2682
2686
27044
27054
2706
2714
27214
27204
2729

2824

2849
2856
28644
28684
26544
2668
2670

28814
2891
900
2898

29034
29074
29114
29154
29314
2941
2950
26784
2948
29534

29574
29614
29654
26854
26954
2710
2708
27134
27184
2722
2724
27324

2512

2523

2534

2501
25124

2643

2823

2827

2863

2867

2677

2684

2688

2902

2906

2910

2914

2922
2952

2956

2960

2964

2712

2716

2731

2735

2968

SEQ 0104

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13

MACY11 30A(1052) 18-0CT=78 14:35 PAGE 57-13
CROSS REFERENCE TABLE == USER SYMBOLS

XR(C9

2733

27414

2775

2781

2785

2789

2372»
2495
2497
698+

2375
25044
25154
704+

710«

716%

775

1694

XRERXT
XRHDR

XRLV
$2%
$3%
$4FLAG

027144

023550
034220

023542
025016
025112
035346

= 035454

2369
n

5394
965
1101
1194
1298
1440
1518
1743
1890
2055
2398
2576
2784

2374M
34554

540
976
1109
1205
1307
1446
1533
1761
1894
2059

547
981
1113
1212
1323
1452
1545
1769
1905
2063

5524
986
1119
1232
1348
1456
1570
1780
1918
2067

5634
992
1127
1236
1390
1462
1582
1786
1932
2074

2402
2594
2788

2411
2605
2822

2424
2646
2826

2431
2676
2862

897
1012
1131
1243
1395
1466
1586
1792
1942
2078
2451
2683
2866

2277

903
1037
1135
1250
1400
1472
1612
1798
1948
2082
2455
2687
2901

SEQ 0105

34954

912
1058
1146
1257
1411
1476
1628
1818
1970
2088

918
1075
1154
1261
1415
1482
1642
1843
2017
2092

924
1080
1158
1271
1421
1486
1719
1865
2022
2098

2464
2711
2905

2477
2715
2909

2504
2730
2913

9 2
10

948

956

1166
1280
1425
1499
1725
1869
2026
2102

1091
1173
1290
1432
1503
1731
1878
2031
2108

1187
1294
1436
1507
1737
1885
2049
2112

2515
2734
2921

2531
2774
2951

2554
2780
2955

CZPLBBO PCL11 STND ALN VO2A
PCLTST.P11
12-SEP-78 15:13

c 9
MACY11 30A(1052)
18-0CT-78 14:35 PAGE 58
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0106

BDINIT

47644
1442

1004
132;

1029
1382

1054
1520

1227
1535

1244
1547

1251
1559

1272
1550

1274
1599

1313
;??9

1324
1620

1333
1651

1350
1810

1386
1835

139
1850

DATERR

1SOO'

29
897

903

912

918

924

930

948

956

965

976

981

986

992

1012

ERROR

4914
1158
1348
1472
1865
2063
2179
2605
2951
5094

1058
1166
1390
1476
1869
2067
2183
2646
2955
805

1075
1173
1395
1482
1878
2074
2210
2687
2959

1080
1187
1411
1486
1890
2078
2312
2711
2963

1085
1194
1415
1499
1894
2082
2341
2715

1091
1212
1421
1503
1918
2088
2398
2734

1096
1232
1425
1507
1932
2092
2402
2784

1101
1236
1432
1518
1948
2098
2411
2788

1109
1243
1436
1533
1970
2102
2451
2826

1113
1257
1440
1545
2017
2108
2455
2866

1119
1261
1446
1570
2022
2112
2464
2901

1127
1280
1452
1582
2026
2130
2504
2905

1131
1290
1456
1586
2031
2134
2515

1135
1294
1462
1612
2049
2138
2554
2913

1154
1298
1466
1628
2059
2163
2594
2921

2167

2174

2192

2255

567

748

1558

1564

1567

1574

1577

1595

1670

2151

2157

2160

615
677
2405
3016
5224
1038

620
685
2616
3020
898
1059

624
699
2458
3057
904
1076

632
705
2469
3060
913
1081

633
4}
5
3072
919
1086

638
717
2520
3075
925
1092

597

603

605

606

612

614

2093
2323
2571
2789

2099
2342
2583
2823

2103
2346
2602
2827

2109
2399
2613
2863

2113
2408
2647
2867

2131
2419
2677
2902

035454

000

HLT
MTPS
PNTM

SCOPE

5334
5154

1155
1281
1441
1546
1787
1949

. ABS.

ERRORS DETECTED:

556
573

1159
1291
1447
1571
1793
1971

560
574

1169
1295
1453
1583
1799
2018

575

1174
1299
1457
1587
1819
2023

PCLTST ,PCLTST/CR/NL:TTM:ME<PCLTST
RUN-TIME: 6 11 2_SECONDS

RUN-TIME RATIO: 75/19=3.8
CORE USED:
12K
(23 PAGES)

581

1188
1309
1463
1613
1844
2027

585

1195
1325
1467
1629
1866
2032

586

592

596

642
722
2559

651
778
2564

652
855
2567

657
865
2579

661
1064
2599

664
1639
2610

665
1697
2989

670
2229
2992

674
2280
2996

931
1097
1207
1349
1473
1643
1870
2050
2135
2425
2684

949
1102
1214
1391
1477
1720
1880
2056
2139
2432
2 688

957
1110
1233
1396
1483
1726
1887
2060
2164
2452
2712

966
1114
1237
1412
1487
1732
1891
2
2180
2461
2716

977
1120
1245
1416
1500
1738
1895
2068
2184
2472
2731

982
1128
1252
1422
1504
1744
1907
075
2211
2478
2735

987
1132
1258
1426
1508
1762
1919
79
2233
2512
2775

993
1136
1262
1433
1519
1770
1933
2083
2313
2523
2781

1013
1147
1273
1437
1534
1781
1943

2906

2910

2914

2922

2952

2956

2317
2534
2785