Digital PDFs

AH-E263B-MC

September 1978

107 pages

Original

5.1MB

view download

OCR Version

4.1MB

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

OCR Text

PCL11-A.B

CzPLBBO

cormnt 1ws
FICHE1 OF
1

EEHNED

MADE
IN USA

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

MACY11 30A(1052)

18-0CT-78

14:35

PAGE 1

SEQ 0001

)

l
3

S
6
7

9
10
1

12
13

14
15
16
17
18
19

20
21

PROGRAM (ODE

AC-E2628-M(C

PPROGRAM NAME

CZPLBBO PCL11

;

DATE CREATED

22-0CT-75

;

UPDATED

13-MAR-78

§§

MODIFIED

8-SEP-78

;

MAINTAINER

SPECIAL SYSTEMS KANATA

;

AUTHOR

DAVID G. WIENS

:THE INFORMATION IN

:ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

40
41

IDENTIFICATION

STAND ALONE TEST

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

:DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

:DIGITAL.

;COPYRIGHT

:OR RELIABILITY OF
(()

ITS

SOFTWARE ON EQUIPMENT

1978, BY DIGITAL EQUIPMENT OF

THAT

CANADA,

FOR THE

USE

IS NOT SUPPLIED BY
LIMITED.

STND ALN VO2A
12~SEP-78 15:13

000000

MACY11

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

PAGE 2

.SBTTL HEADER AND [NSTRUCTIONS
.REPT O
GENERAL
THE PARALLEL COMMUNICATIONS LINK (PCL11) TEST WILL VIGOROUSLY
TEST THE HARDWARE INVOLVED IN ANY ONE "> 11 PROCESSOR CONTAINING
PCL11 HARDWARE.
THERE ARE THREE SEPARATE SECi1ONS
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 TRAMSMITTER. 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 INITJAL 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
(HECKING 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.

SEQ 0002

(ZPLBBO PCL11

PCLTST.P11

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

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

PAGE 3

SEQ 0003

REQUIREMENTS

2.1

GENERAL :

2.1

PDP-11 PROCESSOR WITH 8K OF MEMORY

2.12

PCL11 HARDWARE ON THE UNIBUS

2.13

ALL PROCESSOR MAINDECS MUST HAVE BEEN RUN

2.14

ONE PCL11 CONNECTED TO UNIBUS

AND A (ONSOLE DEVICE ON-LINE.

SUCCESSFULLY PRIOR TO RUNNING PCL11

TEST.

(SEE PCL11 OPTION DESCRIPTION SEC 2.1)

CZPLBBO PCL11

PCLYST.PIN

12-SEP-78 15:13

MACY11

127

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

PAGE 4

SEQ OC¢%

RESTRICTIONS

THIS

TEST

CANNOT BE

LOADED

LESS THAN 8K OF MEMORY.

INTO A PDP-11

WITH

SINCE THERE ARE TIMING LOOPS IN THIS TEST,
IT MAY NOT RUN SUCCESSFULLY IN SOLID-STATE MEMORY
é; BUE6DELAY CONSTANT
(CNTRL-D)
IS LOWERED TO

3= 513

b
d
b eed
d
ad e
d e
d
b
—d
b
b
—

ed e e b
NN PONIA) = ot =D
[« JV_ INN N=OVONOWVHAWNN-O

-—

99
100
10
102
103
104
105

STIND ALN VO2A

w#ax

TEST

THIS ALSO APPLIES

TO USING FASTER PDP-11'S

(45,

SET=-UP

ENSURE PCL11

HAS BEEN INSTALLED CORRECTLY

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

ENSURE ALL
TEST

CABLES CONNECTING THE PCL11

TO OTHER PCL11

ARE DISCONNECTED

UNDER

UNITS OR DISPLAY PANELS

(OR DISABLED).

DETERMINE OR SET UP PROPER TDM ADDRESSES FOR
THE

RECEIVER AND

ADDRESS IS
RECEIVER'S

ENSURE S1

TRANSMITTER.

THE

TRANSMITTER'S

IN S1 ON THE M/7991 MODULE; THE
IS IN S1 ON THE M7997 MODULE.

ON THE M7994 MODULE

GREATER THAN OR EQUAL

TO THE

IS SET TO A NUMBER

TRANSMITTER'S ADDRESS.

70,

ETC.)#w~

BEIRGRIKZET

b rd
D

CZPLBBO PCL11
PCLTST.P1I

STND ALN VOZ2A
12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

14:35

HEADER AND INSTRUCTIONS
5.

PAGE 5

LOAD ING
THE PCL11

TEST

IS ON PAPER.TAPE

FOPMAT, THE TAPE
ABSOLUTE LOADER.

204
224

SWITCH REGISTER OPTIONS

7.1

ALL

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

TESTS

SW15
Sw 15
SW 14
SW 14
W13
Sw 13
SW1
SwWw 12
SW11
Sw 11

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

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

SWw10 =0

SWw 10 =1

SW09 =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
SWw 10 =1
7.4

_ABS

THE PDP-11

RESTART ADDR

200

7.3

IN PDP-11

IS LOADED BY MEANS OF

STARTING AND RESTARTING ADDRESSES
START ADDR

7.2

SEQ 0005

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

TRANSMITTER~RECEIVER LOOP

Sw 10 =0

Sw 10 =1

START AT 1ST SUBTEST AND RUN

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

PCLYST.P11

180
181
182
183
184
185
186
187

STND ALN VO2A

12-SEP-78 15:13

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

1
PAGE
6

SEQ 0006

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.
FLAG WILL BE SET

IF NONE EXSISTS, A SOF TWARE

INDICATING TO THE REST OF

THE PROGRAM THAT

THE '‘SWITCH MONITOR'' IS TO BE USED TO ACHIEVE CHANGING OF
SWITCH OPTIONS.

188

THE MONITOR IS ENTERED AT THE START OF THE TEST PROGRAM
AUTOMATICALLY. IT IS ALSO ENTERED AUTOMATICALLY ON AN ERROR

189

HALT IF SW 15 = 0. AT OTHER TIMES IT MUST BE CALLED BY THE
OPERATER BY TYPING CNTRL-S

190
191
192
193
194
195
196
197
198
199

WHEN THE MONITOR IS ENTERED THE FOLLOWING IS PRINTED:
:
SWR = XXXXXX
SHOWING THE OPERATER THE PRESENT CONTENTS OF THE SOF TWARE
SWITCH REGISTER LOCATION. HE MAY CHANGE THE LOCATION BY TYPING:
YYYYYY <CR>

éx RES?SNSE:
LY <CR>.

OR HE MAY LEAVE THE LOCATION UNCHANGED BY

TYPING

REFERENCE PAGE 9 OF THIS LISTING FOR '‘SWITCH'' BIT POSITIONS.
UPON DETECTING A <CR> THE MONITOR WILL TYPE:
CNTRL=-P TO CONTINUE

200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220

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

-~ 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 00
SUBTEST 01

SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
SUBTEST
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

02
03
04
05
06
07

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

CZPLBBO PCL11

CZPLBBO PCL11 STND ALN VO2A

PCLTST.PI

12~-SEP~78 15:13

MACY11 30A(1052)

18-0CT-78

HEADER AND INSTRUCTIONS

PAGE 6-1

SUBTEST 01
SUBTEST 02
SUBTEST 03

236
237
238
239

240
241
242
243
264
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
26%
265
266
267
268
269
270
271
272
273

14:35

8.4

8.5

8.6

SEQ 0007

DATA LOOPS TEST
TRANSMISSION ERRORS TEST
REJECT AND TRUNCATE TEST

TEST 4 - COMBINATION RUN
RUN
RUN
RUN
RUN

TEST
TEST
TEST
TEST

1 THEN
2 THEN
3 THEN

THE

TESTS WILL

ETC

FOLLOWING WAY:

IDENTIFY THEMSELVES UPON SELECTION,

TEST 1

"PCL11

TRANSMITTER TEST''

TEST 2

'PCL11

RECEIVER TEST''

TEST 3

'TRANSMITTER - RECEIVER LOOP TESTS"'

TEST &

'PCL1Y

THE

TESTS WILL

IN THE

TESTS 1 - 3 SEQUENCE"'
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 # N8

TEST 4

-- END PASS # NC

€2

CZPLBBO PCL11 STND ALN VO2A

PCLYST.PT

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

1
PAGE 7

[
14:35

HEADER AND INSTRUCTIONS

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

XMTR 1ST UNIBUS ADDR..
RCVR 1ST UNIBUS ADDR...
XMTR VECTOR..
RCVR VECTOR..
XMTR PRIORITY (4-7)..

(ONE AT A TIME)

(DEFAULT = 164200)
(DEFAULT = 164220)
(DEFAULT = 170)

(DEFAULT = 174)

(DEFAULT = 5)
(4-7)..
(DEFAULT = 5)
(DEFAULT = 1)
XMTR TDM BUS ADDR (1-37)..
(DEFAULT = 1)
RCVR TDM BUS ADDR (1-37)..
RCVR PRIORITY

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
THE

OPERATOR HAS THE FOLLOWING CHOICES:

SELECT TEST 1
SELECT TEST 2
SELECT TEST 3
SEQUENCE TEST

2
3

<CR>

9.12
9.121

(<CR> FOR HELP)..

TO RUN ONLY

(TRANSMITTER LOGIC

TO RUN ONLY

(XMTR -TO- RCVR LOOP TEST)

TO RUN ONLY (RECEIVER LOGIC TEST)
1, TEST 2, TEST 3

PRINT THIS HELP MESSAGE.

POSSIBLE

TEST)

REPETEDLY.

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

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.

9.123

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

1
PAGE 7-1

J
14:35

HEADER AND INSTRUCTIONS

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
SW 09 IS uP.

9.124

NORMALLY, 10 (OCTAL) PASSES ARE MADE OF THE

COMPLETE TEST BEFORE A PASS COMPLETE
ACHIEVED AND

END PASS XX

IS PRINTED ON THE CONSOLE PRINTER.
HOWEVER, RAISING SW 11 WILL CAUSE EVERY SINGLE
PASS TO BE

RESTARTING:

THE TEST MAY BE RE~STARTED AT LOC. 204

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

(DEFAULT
(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 NEwW 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 NON-

SWITCH REGISTER PDP-11'S

CNTRL=-P CONTINUE AFTER CONTROL FUNCTION

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

non

9.13

CONSIDERED AS COMPLETE.

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

¥4

12-SEP-78 15:13

MACY11

30A(1052)

18-0CT-78

14:35

HEADER AND INSTRUCTIONS
10

PAGE 8

SEQ 0010

ERRORS

BASICALLY,

THE ERRORS IN THIS TEST ARE

IN THE FORM:

**ERROR X AT LOCATION YYYYYY
WHERE X

IS THE ERROR NUMBER:

TRANSM_TTER TEST ERROR #'S 1 TO 121
RECEIVER TEST ERROR #'S 200-262

LOOP TEST ERROR #'S 300-355
AND YYYYYY

(TEST # 1
(TEST # 2

(TEST # 3

IS THE ADDRESS IN THE LISTING WHERE

ERROR OCCURRED.

REFER TO THE LISTING ABOVE
sxtttrt

FRROR

TO DETERMINE

THE

Nt
s

376
377

STND ALN VOZ2A

CZPLBBO PCL11

PCLTST.P11

THE

COMMENT:

taxnnnxn

THE CAUSE OF

THE ERROR PRINTOUT.

DATA ERRORS WILL CAUSE A FURTHER PRINTOUT INDICATING

THE ERRONEOUS DATA:

SHOULD BE AAAAAA, WAS BBBBAS
OTHER ERRORS WILL CAUSE THE FOLLOWING FURTHER

PRINTOUTS:

TRANSMITTER STATUS REGISTER = CCCCCC
RECEIVER STATUS REGISTER = DDDDDD

NO.

OF WORDS RECEIVED = EEEEEE

SILO OUTPUT WORD WAS FFFFFF
SILO INPUT WORD WAS HHHHHH

440

031746

TN
TA
T

RO
R1
R2
R3
Ré
RS
SP

000000
000001
000002
000003
000004
000005
000006
000007

;BUS REQUEST DEFINITIONS:
000340
000300
000240
000200
000140
000100
000040

P7
P6

PS
P4

P3
P2
P1

;BIT DEFINITIONS:

B15
B14
B13
B12
B11
B10
B09
BO8
BO7
B06
BOS
B04
BO3
B02
BO1
B0O

462
463

464

465
466

468

SWREG

SSWR

JREGISTER DEF INITIONS

447
448
449
450
451
452
453
454
455
456
457
458
459
460
461

467

177776
177570

PS
HWSWR

445

177776
177570

T A

444

J INTERNAL DEFINITIONS:

443

SEQ 0011

.SBTTL SYMBOLIC DEFINITIONS

T I

441
442

PAGE 9

.ENDR

434
435
436
437
438
439
440

14:35

(CZPLBBO PCL11 STND ALN VOZ2A

429
430
(31
432
433

LTITLE

425
426
427
428

18-0CT-78

HEADER AND INSTRUCTIONS

100000
40000
20000
10000
4000
2000
1000

200

423
424

MACY11 30A(1052)

616
417
418
419
420
621
422

STND ALN VOZ2A
12-SEP-78 15:13

CZPLBBO PCL11

PCLYST.P11

;OTHER DEF INIT]IONS:
002000

ISP

BEGIN

SINITIAL STACK POINTER

(ZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PI
12-SEP-78 15:13
470
47
472
473
474
475
476
4«77
478
479
480
481
482
483
484
485
486
487
488
489
490
9N
492
493
494
495
496
497
498
499
500

N VIV WA WMWIWAVIVAILA

n — o b —h b ) —d e
o VOO NOWVNESB WO

501
502
503
504
505
506
507
508
509

521

MACY11 30A(1052)

18-0CT-78

MACRO DEFINITIONS

14:35

PAGE 10

SEQ 0012

.SBTTL MACRO DEFINITIONS

;BOARD INIT!ALIZE MACRO

JF
JIFF

.IF

.MACRO
.NLIST
IDN

BDINIT

BIS

<DEV>,<XMTR>
#801,aTCR

IDN

#301,aRCR

IFF BIS

.ENDC
.ENDC

000001

:BAD ARGUMENT FOR BDINIT

.ERROR
LLIST
.ENDM

N
=
S
MA(CRO
;ERROR

DEV

JINITIAL ERROR NUMBER
P

.MACRO

ERROR

BIT
BNE

#B14 ,3SR
414

N+1

MOV
JSR

.MACRO

DATERR

BIT
BNE

#8164 ,aSR
414

[0}
JSR

#P , ERRNUM
PC,DERR

MACRO
JSR
.ENDM

HLT
PC,SWHLT

=
.ENDM

(MSG ADDR

\ERDH
.EN

xantnnx

;anxnntx

FRROR

aannnxr

PNTM
#A RO

IN RO)

PC,TYPOUT

;SCOPE LOOP MACRO
.MACRO
JSR
. ENDM

N+1

.MACRO
MOV

FRROR

#P ,ERRNUM
PC,ERR

.ENDM

JPRINT MACRO

;xnaxnnr

X
SCOPE
R5,SCPRTN

;PRINT MESSAGE

;POINTED TO BY A

PCI

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

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

14:35

PAGE 10-1

; INTER-PDP-11 COMPATABLE MOVE TO PS

;TO RUN ON LSI-11: CHAAGE THIS MACRO TO:
SRC,=(SP)
MOV
:
MOV
#LLL,-(SP)
N

sLLL:

RTI

.MACRO

MOV
.ENDM

MTPS

SR(C ,a#PS

SRC,2LLL

SEQ 0013

€2

537
538
539
540

541
542
543
544
545
546
547

00000V
000002

12-SEP-78 15:13

000000
000002
000000
004262
000340
000176

18-0CT-78

TRAP CATCHERS

B
14:35

PAGE TM1

SEQ 0014

.SBTTL TRAP CATCHERS
.
.ENABLE ABS

JWORD

.WORD
.WOKD
.WORD
REPT

0
ERRTRP
340
126.

.WORD

JWORD

.ENDR

. +2

;TRAP BAD DEVICE ADDRESSES

m—

CZPLBBO PCL11 STND ALN VO2A

PCLTST.PT

MACY11 30A(1052)

PCLTST.P11

12-SEP-78 15:13

MACY11

30A(1052)

18-0CT-78

TEST SUPERVISOR

c
14:35

2
PAGE 12

SEQ 0015

.SBTTL TEST SUPERVISOR

200

000200

000167
012706

001574
002000

000005
000167
012706

002472
002000

000167

002670

JMP
MOV
MTPS
RESET
JMP
MOV
MTPS
JMP

002000
000005
012706

005067
012737
012737
012767
005777

004767

016767
026727
103006

BEGIN:

002000

033276
003774
000340

177570
027702

033346
030142
030410
033326

000167
012737
005777

177714
004242

016767
004767
016767
026727
103006

033252
030044
030312
033232

000167
005777
012737

177714

016767

#1SP,SP

;TEST STARTS AT 200

HP7

RESTRT
#15P,SP

#P7
BCONT

;GO TO TEST SELECT

2000

033274

033206
004262

033146
027746
030214
030206
177714

RESET
MTPS

CLR
MOV
MOV
MOV

000004
000006
027706
PROMT:

016767

BEGIN

0504cv

JSR

033332
164000

000004

TST
PNTM
PNTM
PNTM
MOV

PRMT1:
PRMTZ:

030322

MOV
cMP
BHIS
PNTM
JMP
TST
PNTM
PNTM
MOV

JSR
MOV

033236
164000

BHIS

PNTM

000004

030224
033132
000776

PRMT3:
PRMT4:

JMP
TST
MOV

PNTM
PNTM
MOV
JSR
MOV
(Mp
BLOS
PNTM
JMP

#I1SP,SP

#P7
SWRFLG
#SRTST ,a#é
#P7 ,an6
#HWSWR,
SR

aSR
TSTHDR
TMTR
FRAD
TXMADR
, KBBUF
PC,INPKB
, TXMADR
KBBUF

TXMADR
, #164000
PRMT1

TOOLOW
PROMT
N#DVATST ,a#4
aTXMADR
RECVR
FRAD
RCVADR ,KBBUF
PC,INPKB
KBBUF ,RCVADR

RCVADR, #164000
PRMT3
TOOLOW

PRMT?2

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

;CLEAR ALL
;SET UP STACK
;DISABLE C.P. INTERRUPT
;CLEAR SWR FLAG

;JSET UP TO TRAP [F NO HSWR

;SET SR TO HDWARE SW REG

;SEE IF IT'S THERE

SPRINT TEST HEADER

;PRINT ‘‘TRANSMITTER''
;PRINT ‘"1ST BUS ADDR''
;LOAD DEFAULT ADDR

sGET KBD INPUT
;REPLACE XMTR ADDR
IS IT WITHIN LIMITS?
;YES, CARRY ON
;NO 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"'
JPRINT 'VECTOR IS

KBBUF ,#776

sLOAD DEFAULT VECTOR
;GET KBD INPUT
;REPLACE XMTR VECTOR
IS IT WITHIN LIMITS?

AGAIN

;NO, TELL HIM

PRMTS

PRMT4

CZPLBBO PCL11 STND ALN VO2A

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

MACY11 30A(1052)

TEST SUPERVISOR

PRMTS:

607

016767
004767
016767
026727

033064
027662
030130
030122

000167

177714

016767
004767
026727
003406

032714
027576
030044

101406

000167
026727
002006

000167
006367

016767

177722

030020

016767
004767
026727
003406

032560
027442
027710

000167
026727
002006

177722

027664

177676
027640
027634
027630
027624
027620
027614
001132

012767
004767
005767
001006

000001
027302

000167
026727

177724
027526

103406

030140

033050
000776

030054
000007

000004

PRMTS8:

032612

RECVR
VCTR
RCVVEC ,KBBUF
PC, INPKB
KBBUF ,RCVVEC

PNTM

AGAIN

PNTM
PNTM
MOV

TMTR
PRIOTY
FKPRIO,KBBUF

JMP

PRMT9:

027720
000007

ASL
ASL
ASL
ASL
MoV

KBBUF
KBBUF
KBBUF
KBBUF
KBBUF ,XPRIO

PNTM
MOV
JSR

PRIOTY
FKPRIO,KBBUF
PC,INPKB

4%:

032460
RESTRT:

027560

027550

JMP
cMp
BGE

PNTM
PNTM

PRMT9
KBBUF ,#4
48

KBBUF ,RPRIO0
PC,DEVGEN
TMTR
TDMAD

#1,KBBUF
PC, INPKB

BNE

ADOK

JMP

RESTRT

BLO

;LOAD NEW VECTOR
SIS IT WITHIN LIMITS?

;PRINT '‘TRANSMITTER"'
JPRINT "PRIORITY LEVEL

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

;PRINT ‘PRIORITY LEVEL IS "'

;LOAD DEFAULT PRIORITY
;GET KBD .NPUT
;LOW ENOUGH, O.K.

;HIGH ENOUGH?

PRMT9

MOV
JSR

(MP

;GET KEYBOARD INPUT

AGAIN

KBBUF
KBBUF
KBBUF
KBBUF
KBBUF

PNTM

:
ADOK

KBBUF ,#7
3%

ASL
ASL
ASL
ASL
ASL

TST

000040

RECVR

AGAIN

MOV
JSR

JPRINT "VECTOR IS''

;LOAD DEFAULT VECTOR

PRMT6
KBBUF

PNTM

JMP

JPRINT 'RECEIVER''

;HIGH ENOUGH?

PRMT8

AGAIN

PNTM

SEQ 0016

PRMT6
, 44
KBBUF

PNTM

JMP
ASL

PAGE 12-1

PRMT7

AGAIN

JWP
(MP
BGE

;LOAD DEFAULT PRIORITY
;GET KBD INPUT
IS IT WITHIN LIMITS?
;LOW ENOUGH, O.K.

PNTM

cMP
BLE

3s:

PRMTS

PC.,INPKB
KBBUF ,#7

PNTM

000004

KBBUF ,#776
PRMT6

JSR
(MP

BLE
PRMT7:

14:35

PNTM
PNTM
MOV
JSR
MOV

P
B8LOS
PRMT6:

177676

027774
027770
027764
027760
027754
027750

18-0CT-78

KBBUF

JSHIFT INTO PLACE
;LOAD NEW PRIORITY

;GENERATE PCL-11 ADDRESSES
sPRINT '‘TRANSMITTER''

sPRINT *‘TDM BUS ADDRESS'’
;LOAD DEFAULT OF ‘1"’
;GET KBD INPUT.
JDON'T ALLOW O

AGAIN

KBBUF
, #40
ADGD

;CAN'T BE 40 OR HIGHER

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.PT

003002
003012
003016

12-SEP-78 15:13

000167
116767

177700
027502

012767
004767
005767
001006

000001
027174
027442

000167
026727

177724

027420

000167
116767

177700
027374

012767
004767
026727

000077
027076
027344

005767
001402
000167

027334

000167

177720

016767

027306

103406

103005

005767
001402

MACY11

032327
027452

000040

026154
032074
032072
032070
032066
032066

TEST SUPERVISOR

PNTM
JMP
ADGD:
MOVB
PRMT10: PNTM
PNTM
MOV
JSR
TST
BNE
PNTM
JMP
:
ADROK
MP
BLO

032217

027354

ADRGD:

BCONT:

000005

BHLPMG:

032124

TESTGO:

1%:

000001

032060
000220
177770
032032

11%:

000002

2%:

032024
011304
177770
031776

21%:

000003

3s:

031770

001044
012767

18-0(T-78

PNTM

000014

032072

30A(1052)

31¢:

017144
177770
031742

000004

177777

031732

4%:

JMP
MOVB

PNTM
MOV
JSR
CMP

BHIS
ST
BEQ
JMP

PNTM
JMP

MoV
TST

BEQ
JSR
CLR
CLR

CLR
CLR
cMP
BNE
CLR
PNTM
JSR
JMP
CMP
BNE
CLR
PNTM
JSR
JMP

14:35

AGAIN
RESTRT

, TRAD+1
KBBUF

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

PAGE 12-2

SEQ 0017

;SAVE ADDR IN UPPER BYTE

:PRINT 'RECIEVER''
:PRINT '"TDM BUS ADDRESS'’

;LOAD DEFAULT OF 1
.GET KBD INPUT
:DON'T ALLOW O

PRMT10
KBBUF ,#40

;CAN'T BE 40 OR HIGHER

KBBUF ,RCAD+1

;SAVE ADDR IN UPPER BYTE

ADRGD
AGAIN
PRMT10

TSTSEL
#77 ,KBBUF
PC, INPKB

KBBUF ,#5

BHLPMG
KBBUF
BHLPMG

;PRINT ''SELECT TEST <(CR> = HELP''

;DEFAULT TO HELP
;GET KEYBOARD INPUT

;:DID HE TYPE S5 OR HIGHER?
JYES,

GIVE ASSISTANCE.

JHOPE IT WASN'T ‘0"
;'CAUSE THAT'S NO GOOD EITHER

TESTGO
HLPMSG

;EVERYTHING OK. GO TO TESTS
;NO GOOD, PRINT HELP MESSAGE.

KBBUF
, TESTNO
SWRFLG
1%

;SAVE TEST NUMBER
;GOT ANY SWITCHES?

BCONT

PC,SWDMP

PSNO1
PSNO2
PSNO3
PSNO4

TESTNO
%1

JYES,

YOU'RE ON YOLUR OWN

;OTHERWISE, SHOW SW OPTIONS.
;CLEAR END PASS COUNTER
;CLEAR END PASS A COUNTER
;CLEAR END PASS B COUNTER
;CLEAR END PASS C COUNTER
:SSLECT TEST 1?

SNQ.

TXHDR

JPRINT XMTR TEST HEADER

$4FLAG

PC,TEST
1%
TESTNO
42

$4FLAG
RCHDR

PC,TESTZ2
21%
TESTNO.#3

$4FLAG
XRHDR
PC,TEST3

318
gESTNO,lA
$

#-1,84FLAG

JCLEAR END PASS INHIBIT FLAG
;YES, GO DO IT (LOOP)

:zSLECT TEST 22

*CLEAR END PASS INHIBIT FLAG

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

;SELECT TEST 3?
sNO.

;CLEAR END PASS INHIBIT FLAG
JPRINT LOOP TEST HEADER
;YES, GO DO IT.

JSELECT TEST 42

"SET FLAG TO INHIBIT END PASS

(ZPLBBO PCL11 STND ALN VOZ2A

PCLTST PN

n7
718
719
720
721
722
723
724
725
726
727
728
729
730
73
732

003414
003424
003430
003434
003440
003444
003454
00346C
003464
003470
003474
003500
003504
003506
003512
003516

12-SEP-78 15:13

004767
004767
004767
005267

000072
011206
017076
031674

016700
004767
012700
004767
012700
004767
005000
004767
004767
000167

031660
027116
000040
027276
000103
027266
027260
027254
177702

MACY11 30A(1052)

18-0CT-78

TEST SUPERVISOR

41%:

PNTM

JSR
JSR
JSR
INC

PNTM
MoV

JSR

MoV

JSR

MOV

5%:

JSR
CLR
JSR
JSR
JMP

ALTHDR
PC,TEST]

PC,TESTZ2
PC,TESTS
PSNO4

PEND

PSNO4 ,RO

PC,DECPNT
#40,R0
PC,TTO
#'C,RO
PC,TTO

PC,TTO
PC,TTO

413

14:35

PAGE 12-3

SEQ 0018
JPRINT

TRIPLE

TEST HEADER

;DO ALL TESTS (LOOP)
JUPDATE PASS COUNTER
JPRINT END PASS #

;GET PASS # TO RO

JPRINT

IN DECIMAL

JALSO, PRINT '°C*'

;TO IDENTIFY END PASS OF
JTEST 4
JNULLS TO ALLOW PASS #

CZPLBBO PCL11

PCLTST.PN

STND ALN VOZ2A
12-SEP-78 15:13

MACY11 30A(1052)

TRANSMITTER TESTS

734
735
736
737
738
739
740

.SBTTL
JTEST 1:

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

741
742
743
744
745

746

747
748
749

750
731

752
753
754
755
756

757
758
759
760
761
762
763
764
765

18-0CT-78

012767
004767
032777
001424
017767
042767
026727
003012
000241
006167
006167
062767
000177
004767
004767
004767
004767
004767
004767
004767
004767
004767
032777
001003
005367
001347
005767
001020
005267

000010
025612
002000

031564

026172
177760
031532

031544
031536
000010

031520
031514
003622
031502
000550
001176
001760
002130
002300
004312
005760
010016
010476
004000

TEST1:

026200

026054

031420
031436

XEND:

031414

027026
027020

TRANSMITTER TESTS

INTERRUPT TEST
C.R.C. TEST

MTPS
MOV
JSR
BIT
BEQ

#P7
#10,1TER
PC,MONIT
#810,3SR
LOOP

BIC

#-20,SWl1

aSR,SWI

SwWi
SWI
#LO0P, SWI

JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
8iT
BNE
DEC

PC,XINIT
PC,TCRTST
PC.BCTST
PC,BATST
PC,MSRTST
PC,SILTST
PC,TSRTST
PC,INTST
PC,CRCTST
#311,3SR
XEND
ITER

JMP

BNE
TST
BNE
INC

JSR
REPEAT: RTS

;IF

Sw1 410
LOOP

ROL
ROL
ADD

PNTM
MOV
JSR
CLR
JSR
CLR

031400
026644

SEQ 0019

TCR REG. TEST
TSBC REG TEST
TSBA REG TEST
MASTER SECT. TEST
DATA SILO TEST
TSR REG. & ERRORS TEST

CMP
BGT
CLC

LOOP:

2
PAGE 13

TRANSMITTER LOGIC TESTS
RESET TEST

MOV

031506

G
14:35

asSw]

LOOP
$4FLAG
REPEAT
PSNO1

PEND
PSNO1,RO
PC,DECPNT
RO
PC,TTO
RO
PC,TTO
PC

SET,

JINITIAL ITERATION OF 10 PER PASS
;CHECK FOR KSD INPUT
;CHECK SW 10
;IF 0, RUN SEQUENTIALLY
GET TEST # FROM SWR

JMASK LOW DIGIT

JDON'T ALLOW SW = >10
;IF GREATER, START 1°'ST TEST
;CLEAR "‘C’° BIT BEFORE ROTATE
JMULTIPLY BY 4
;GENERATE OFFSET

;GO TO SELECTED TEST

;DO
;DO
;DO
;DO
;DO

;DO INITIAL CLR TEST
TCR REG TEST
BYTE COUNT REG TST
BYTE ADDR REG TEST
MASTER SECTION TEST
DATA SILO TEST

;DO TSR REG & ERRORS TEST
;DO INTERRUPT TEST
;DO CRC GENERATION TEST
sCHECK SWITCH 11
;JPRINT END IF SET
;OTHERWISE, REITERATE

;SHOULD WE PRINT END PASS?
sNO, LEAVE

;UPDATE PASS NUMBER
;PRINT “END PASS # *'

JPRINT PASSNO.
JPRINT NULLS TO ALLOW TIME

;FOR PASS # TO BE PRINTED
JRETURN TO SUPERVISOR

;NON-SWR PROCESSOR HALT SUBROUTINE
031336

SWHLT:

TST

SWRFLG

JANY HARDWARE

SWR?

C(ZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1T
12-SEP-78 15:13
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812

003760
003762
003766
003770
003772

001403
004767
000207
000000
000207

003774
004002
004010

012767
012767
000002

MACY11 30A(1052)

TRANSMITTER TESTS
BEQ
JSR

025420
1%:

031746

177777

18-0CT-78

025746
031306

SRTST:

RTS
HAL
T
RTS

MOV
:?Y

;THIS ROUTINE

004012
004016
004022
004024

004767
005777
100402

012500
032777
001402
012605
000110
000205

025336
025726

020000

SCPRTN:

JSR
TST

BMI
HLT

025710

SBAK :

MOV
BIT

BEQ

SCONT:

MOV
JMP
RIS

14:35

PAGE 13-1

SEQ 0020

1%
EE.SUDVP

;IF YES GO HALT
JIF NOT GO GET SW LOC

JRETURN IF

#SSWR, SR
#-1,SWRFLC

:NO HDWARE SWR, USE MEM LOC
JSET SOFT SWR FLAG
JRETURN

ENTERED FOR SCOPE
PC,MONIT

aSR
SBAK

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

CONT KEY HIT

ROUTINES
;SEE

“S WAS

TYPED

;BIT 15 SET?
;YES, DON'T HALT
;COMMON ERROR HALT.

EXAMINE

JR5 FOR PC OF ERROR
;GET DIRECTION FOR SCOPE LOOP

;SW 13 SET?
;NO, DON'T LOOP
;YES, RESTORE R5
;AND LOOP
s JUST RETURN

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

MACY11

814
815
816

30A(1052)

18-0CT-78

UTILITY ROUTINES

I
14:35

2
PAGE 14

SEQ 0021

.SBTTL UTILITY ROUTINES

pV)

nN
N

RRRERRRRRRR 2882838

RN rRROINEIR XRSFRERBRSR 3337858

;DEVICE ADDRESS GENERATION

004240

016700
010067
062700
010067
062700
010067
062700
010067
062700
010067
062700
010067
005200
010067
005200
010067
016767
016700
010067
062700
010067
062700
010067
062700
010067
062700
010067
062700
010067
016767
000207

031374
031314

DEVGEN: MOV

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

031212

031126

MOV
ADD
MOV
ADD
Mov
ADD
MOV
ADD
MOV
ADD
MOV
INC
MOV
INC
MOV
MOV
MOV
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
MOV
RTS

TXMADR,RO
RO,TCR
#2.R0
RO, TSR
#2.RO
RO,TSDB
#2.,RO
RO, TSBC
RO, TSBA

#2 RO
RO, TMMR

RO
RO, TMMRH
RO
RO, TSCRC

TXMVEC, TXVEC

RCVADR,RO
RO,RCR
#2.RO
RO,RSR
#2.R0O
RO,RDDB
#2,R0O
RO,RDBC(
#2.RO
RO,RDBA
#4 RO
RO,RDCRC
gEVVEC.RCVEC

;GET BASIC XMTR ADDRESS
; GENERATE T(R
;GENERATE TSR
;GENERATE TSDB

;GENERATE TSBC
;GENERATE TSBA

;GENERATE TMMR

;GEN.

TMMR HIGH BYTE

;GET BASIC RCVR ADDRESS
;GENERATE R(R
;GENERATE RSR

s GENERATE RDDB
;GENERATE ROBC

sGENERATE RDBA
;GENERATE RDCRC
;GENERATE RCVEC
JRETURN.

;DEVICE TEST TRAP HANDLER

004242
004246
004256

012706

002000

000167

175574

DVATST: MOV

PNTM
JMP

#1SP,SP

INVLAD

PROMT

;PRINT NON-EXST ADDR MSG

JRETURN TO ASK ALL AGAIN

JROUTINE TO CATCH TRAPS TO 4
011667
012737
012706

031054
000340
002000

162767
016700
004767

000002
031020
026200
176600

000167

177776

031024

ERRTRP: MOV
MOV
MOV
PNTM
su8
MOV

JSR
JMP

(SP),TEMP
#P7 ,34PS

;SAVE STACK FOR ADDRESS OF TRAP
JRAISE PRIORITY

TRAP4
#2,TEMP
TEMP,RO

;PRINT "‘TRAPPED TO & '* MSG

#1SP,SP

PC,OCTPNT

BCONT

JFIX THE

STACK

JPRINT WHERE

FROM.

CZPLBBO PCL11
PILTIST.PN

STND ALN VOZ2A
12-SEP-78 15:13

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

J
14:35

2
PAGE 14-1

SEQ 0022

;STANDARD DELAY SUBROUTINE

;MODIFY LOCATION 'DLCON'' TO CHANGE

;DELAY PERIOD.
876
877
878
879
880
881
882
883
884
885

004332
004336
004342
004344
004352
004360
004364
004366
004372
004374

012567
005767
001003
012767
016767
005367
001375
005367
001367
000205

DELAY:

030754
025410
000001
025374
030730

030720

025400
030734

MOV
TST

BNE

OLWT:
DLWT1:

MOV
MOV
DEC
BNE
DEC
BNE
RTS

(R5)+,DILLY

DLCON

OLWT

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

JGET DELAY PARAMETER
;1S DLCON = 0?
.IF NOT, CARRY ON

JIF SO, MAKE IT =1

;GET DELAY CONSTANT

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

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

888
889
890
893
894
895

899
900
901
902
905
906
907
908
909
910
911

K
14:35

2
PAGE 15

SEQ 0023

INITIALIZE TEST

;CHECK INITIAL CONDITIONS AFTER A RESET
004400
004406
004412

004450
004456
004462
004466
004520
004526
004534
004542
004550
004552
004560

017767
005067
005767

017767
005067
005767
001414

030776
025574
025566

030730
025524
025516

025576

025526

025456
025450
025444
025434

022767
001414

050400

025424

914
915
916
917

004612
004620
004626
004634

017767
012767
026767
001414

030560
000400
025354

920
921
922
923

004666
004674
004700
004704

017767
005067
005767
001414

030502
025306
025300

926
927
928
929

004736
004744
004750
004754

017767
005067
005767
001414

030450
025236
025230

932
933
934
935
936

005006
005012
005020
005022
005026

004767
032777
001402
000167
000207

024342
010000
177350

XA1l:

RESET

MOV

025364
025360
025350

025310

XAZ2:

XA3:
XxA4:

XxAS5:

GOOD
BAD
XA1
\N
XINIT

CLR
TST

600D
BAD

SCOPE

XINIT

MOV

XA6:

XA7:

XART:

XA2
\N

aTMMR BAD
#377 ,BAD
#50000,GOOD
GOOD ,BAD
XA3
#50400,8AD
XA3

MOV
MOV
wp
BEQ

aTSR_,BAD
#400,GO0D
GOOD ,BAD
XAS

MOV

aTCR,BAD

DATERR
SCOPE

JWAS TSBC = 0?
JERROR:TSBC NOT CLEARED BY RESET

;GET BYTE ADDRESS REGISTER
;WAS TSBA = 0?

JERROR:TSBA NOT CLEARED BY RESET

;GET TMMR REGISTER
;JMASK OFF ANY ADDR SILO DATA
;SET UP GOOD FOR COMPARE
;IGNORE BIT 8 WHEN DETERMINING
;ERROR

\N
XINIT

JERROR:TSR NOT INITIALIZED BY RESET

SCOPE

XINIT

XA6
\N

aTSCRC,BAD

CLR
TST

GOOD
BAD

DATERR
SCOPE
JSR

\N
XINIT
PC,MONIT

BEQ
JMP
RTS

XART
XINIT
PC

BIT

;GET BYTE COUNT REGISTER

JERROR:TMMR NOT INITIATED BY RESET

GOOD
BAD

MoV

JCLEAR ALL

\N
XINIT

CLR
TST

8EQ

024730

aTSBA,8AD

MoV
8IC
MoV
P
8EQ
cMP
BEQ

8EQ
DATERR

025240

aTSB(C,BAD

CLR
TST
BEQ
DATERR
SCOPE

BEQ
DATERR

030662
000377
050000
025440

017767
042767
012767
026767
001420

XINIT:

XA7

#812,aSR

;GET TSR REGISTER
:SET UP GOOD FOR COMPARE

:GET TCR REGISTER
;WAS TCR = 0?

JERROR:TCR NOT CLR'D BY RESET
sCHECK CRC REGISTER
JWAS IT 0?

: YES,CONTINUE

JERROR:TSCRC NOT CLEARED BY RESET

JCHECK EXIT SW (SW 12)
JIF

SET,

STAY IN THIS TEST

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

MACY11 30A(1052)

TCR TEST

18-0CT-78
.SBTTL

L
14:35

2
PAGE 16

SEQ 0024

TCR TEST

;TRANSMITTER COMMAND REGISTER TEST

005077
012767
016777
017767
026767
001414
005067
005077
017767
042767
026767
001414
005077
005077
012767
016777
017767
026767
001414

012777
012777
012777
012777
052777
017767
005067
026767
0014614

017767

026767
001414

030340
017400
025140
030320
025124

025144

030324
025126
025120

TCRTST:

XD1:

CLR

MOV

MOV
MOV
tMP
BEQ

DATERR

025064
030246
030242

160377
025040

xD2:

025050

025042
025034

SCOPE

CLR
CLR
MOV

BIC
cw
BEQ

DATERR

030166
030164
120365
024762
030142
024746

xD3:

024766
030146

SCOPE

037240
000002
030036
024642
024636

030072
030072

030066
030052
030042
024644

SCOPE
MOV
MOV

CLR

tmP
BEQ

DATERR

027772
024570

017767
026767
001414

027726
024522

017767
012767
026767
001414

027652
000400
024446

024572
024564

024524
024516

024456
024452
024442

XDS:

XD6:

XD7:
XD8:

600D
aTCR
aTCR,BAD

#160377 ,BAD
GOOD ,BAD
XD3
\N

XD2

aT(R,BAD
GOOD ,BAD

MOV
MOV
8IS
MOV

024632

XD1

MOV
0y 4

B8EQ
XxD4:

GOOD ,aT(R
aT(CR,BAD
GOOD ,BAD
XD2

aT(CR
aTSR

DATERR

137765
177777
177777

#17400,G00D

CLR
CLR

MOV
MOV

024750
024742

aTCR

#120365,GO0D
GOOD ,aT(CR
XDé
\N

xD3
#137765,3TCR
#-1,a87S8C
#-1,3TSBA
#37240,3TSR
#2,aTCR
aT(R,BAD
GOOD

GOOD ,BAD
XD5
\N

XD4
SCOPE
MOV
aTSB( ,BAD
CMP
GO0D ,BAD
BEQ
XD6
\N
DATERR
SCOPE
XD4
MOV
aTSBA,BAD
(MP
GOOD ,BAD
xD7
8tQ
\N
DATERR
SCOPE
XD4
MoV
aTSR,BAD
MOV
#400, GOOD
M
GOOD ,BAD
BEQ
XD9
\N
DATERR
SCOPE XD4&

;CLEAR TCR REG

;SET ALL DEST. CODE BITS
;AND READ THEM BACK

;ALL DEST CODE BITS SET?
CODE BITS

;ERROR: CANNOT SET SOME DEST.

;NOW CLR DEST. CODE BITS AFTER
JSETTING THEM

;READ THEM BACK
;IGNORE ALL BUT DEST. CODE BITS
;ALL CLEAR?
;ERROR: CANNOT CLR SOME DEST.CODE BITS

;CLEAR POSSIBLE TIMEOUT

JSET ST TXM,INH ADR INC,EA 16817,
;1E,RD SILO,SND WD,ERIB
;SEE IF THEY ALL SET

<ERROR: BAD BITS IN TCR

;SET ALL SETTABLE BITS IN TCR
;AND IN T158C
;AND

IN TSBA

;AND IN TSR
;.BOARD

:CHK TCR

INTT

;TCR = 0?
JERROR: TCR NOT CLR'D BY BOARD

INIT

s CHECK TSBC

;1S8C = 07?

;ERROR: TSBC NOT CLR'D BY BD

INIT

;TSBA = 07
JERROR: TSBA NOT CLR'D BY BD INIT
;TSR OK?

;JERROR: TSR BAD AFTER BD

INIT

(ZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P
12~SEP-78 15:13
994
995
996
997
998

004767
032777
001402
000167
000207

023554
010000
177214

MACY11 30A(1052)

TCR TEST

024142

XD9:

XDRT:

18-0CT-78
JSR
BIT
BEQ

JMP

RTS

14:35

PAGE 16-1

SEQ 0025

PC,MONIT

#312,3SR

XDRT
TCRTST
PC

JLEAVE [F Sw 12 = 0
;OTHERWISE, MUST STAY

(ZPLBBO PCL11 SIND ALN VO2A
PCLYIST.PY
12-SEP-78 15:13
1000
1001
1002
1003

MACY11 30A(1052)
TSBC

TEST

18-0CT-78

.SBTTL

TSBC

14:35

PAGE 17

SEQ 0026

TEST

;BYTE COUNT REG. DATA TEST
005616
005624
005632
005640
005646
005654
005662
005670
005672
005714
005722
005730
005732
005740
005744
005750
005754
005762
005764
005770

12767
012767
016767
6777
017767

026767
001414

032767
001407
0466767
006367
000167
004767
032777
001402
000167
000207

177777

000001
027462
024334
027522
026320

027474
027470
024340
027526
024322
024314

100000

027376

027372
027364

027366

177670

023400
010000
177626

023766

BCTST:

XB1:

XB2:

BDINIT
MOV
MOV
MOV
MOV
MOV
(mp

BEQ
DATERR
SCOPE
BIT
B8EQ
BIC
ASL

XB3:

:
XBRT

JMP
JSR
BIT
B8EQ
JMP
RTS

XMTR

JINIT XMTR MODULE

#800 ,MASK
PAT ,GOOD

JSET B8IT MASK
;LOAD ''GOOD'‘ WITH PATTERN

#-1,PAT

GO0D ,a8TSB(

aTSB( ,BAD
600D ,BAD
XR?2
\N1
XB

:SET PATTERN

;LOAD PATTERN INTO TSBC(
JREAD TSB(
;ERROR:BAD DATA

[N TSB(

M15,PAT

;DONE WHOLE REGISTER”

MASK ,PAT
MASK

;NO, PREPARE FOR NEXT BIT
;ROTATE MASK

XRB3

XB1

PC,MONIT

.IF YES, DONE

JAND CONT INUE

#12,aSR

;IF

B8CTST

JSTAY HERE IF Sw 12

XBRT

SO,

CONSIDER LEAVING

JEXIT IF SW 12 - 0

€l
PC

C2PLBBO PL_11 STND ALN VOZ2A
PCLIST.PN
12-SEP-78 15:13

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

1025

.SBTTL

1926

1029
1030
1031

005772
006000
006006

1033
1034
1035
1036
1037
1038
1039

006022
006030
006036
006044
006046
006070
006076

1040
1041

006014

006104
006106

012767

012767
016767

000001
027306

027320

027314
024164

024160
027350
024144

032767

100000

027222

027216
027210
177670
023224
010000

027212

001407
046767

006114
006120
006124
006130

006367
000167
004767
032777

1048

006144

000207

006136
006140

177777

016777
017767
026767
001414

1042
1043
1044
1045

1046
1047

14:35

PAGE 18

SEQ 0027

TSBA TEST

;BYTE ADDRESS REGISTER TEST

}85;

1032

001402
000167

177626

027354
024146
024140

023612

BATST:

XxC1:

X(2:

XC3:

XCRT:

BDINIT
MOV
MOV

XMIR
#-1,PAT

MOV
MOV
cMP
BEQ
DATERR
SCOPE
8IT

GOOD ,aTSBA
aTSBA ,BAD
GOOD ,BAD
XC2
\N
X(1
#815,PAT

ASL
JMP
JSR
8IT

MASK
XC1
PC,MONIT
#312,35R

MOV

BEQ
BIC

BEQ
JMP
RTS

#800 ,MASK
PAT ,GOOD

XC3
MASK ,PAT

XCRT
BATST
PC

JINIT XMTR MODULE
;SET PATTERN
JSET BIT MASK

;LOAD ''GOOD’’ WITH PATTERN

;LOAD PATTERN INTO TSBA
JREAD IT BACK
JERROR:BAD DATA IN TSBA

;DONE WHOLE REGICTER?

;IF YES, DONE
;NO,PREPARE FOR NEXT BIT
JROTATE MASK
JAND CONTINUE

;IF SO, CONSIDER LEAVING
JEXIT IF SW 12 - 0

;STAY HERE IF SW 12 =1

(ZPLBBO PCL11

PCLTST.PN

1050
1051
1052
1053
1054
1055
1056
1057
1058

1059

1060
1061
1062

1063

1064

1065

1066

1067
1068
1069

1070
1071
1072
1073
1074
1075

STND ALN VOZ2A
12-SEP-78 15:13

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

14:35

‘
SEQ 0028

PAGE 19

MASTER SECTION TEST

;TEST MASTER CONTROL AND ADDRESS SILO
112777
132777
001014

000001
000001

027226
027220

023126
001000

023514

177777

027056

005067
005767
001402
004767
004767
032777
001772

027040
027032
023114
023056
001000

023444

142777
132777
001414

000001
000001

027074
027066

152777
132777

000004
000004

027026

142777
132777
001414

000004
000004

026760

112777
132777
001017
142777

027020

026752

000002
000001

026712
026704

000002

026674

132777
001417
142777

000002

026636

000002

026626

132777

0000C4

026570

000002

026560

001017
142777

MOVB
gfige

ERROR

004767
032777
001024
012767

001014

MSRTST: BDINIT

XE1:

SCOPE
JSR

XE3:

XE38:

XESA:

XE6:

XEGA:

“SET MASTER FLOP
©1S MASTER SET?
:ERROR: COULD NOT SET MASTER FLOP

#809.asR
XE3

:CHECK SW 09
“IF ON, SKIP SCOPE LOOP

TST
BEQ
JSR
JSR

SWRFLG
XE2
PC, SWDMP
PC.MONIT

*REAL SW REG?
SYES, SKIP

BIT
BEQ

BICB
BITB

BEQ
XE3A:

" 3RTST
PC,MONIT

:INIT BOADR

BIT
BNE

MOV
PNTM
CLR

XE2:

XMTR

#1.3TMMRH
:giaTMMRH

ERROR
SCOPE

#-1,PNTFLG
SCSEC
PNTFLG

#809,asR
XE2

#1.3TMMRH
#1.3TMMRH

XE 3A
N
XE3

BISB

#4,3TMMRH

BNE
ERROR

XE 38
\N

BITB

SCOPE

BICB

BITB
BEQ

ERROR
SCOPE

MOVB
BITB
BNE
BICB
ERROR
SCOPE
BITB
BEQ
BICB

ERROR
SCOPE
BITB

BNE

BICB

ERROR
SCOPE

#4.3TMMRH

XE3A

#4,3TMMRH

#4.3TMMRH
XE SA

XE3B
#2.3TMMRH

#1.aTMMRH
XE6
#2.3TMMRH

\N
XESA
#2.3TMMRH
XE 6A

#2,3TMMRH

\N
XESA
#4,3TMMRH

XE?

#2,3TMMRH

N
XESA

“SET PRINT ALLOW FLAG
“OTHERWISE PRINT ‘‘SCOPE SECTION..ETC'
“CLEAR PRINT ALLOW FLAG

:KEEP AN EYE ON SW 09
*STAY HERE ‘TILL IT GETS SET
*CLR MASTER FLOP
:IS MASTER CLEAR?

: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''
SIS 1T CLEAR?
SYES. 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
;IS SEC CLR?
:CLR SEC FOR RETRY

<ERROR:SEC NOT CLR'D BY THE SETTING OF MASTER
;IS 'NOW MASTER ' SET?

SYES. OKAY

“CLR SEC FOR RETRY.

:ERROR:'NOW MASTER'* NOT SET VIA SECONDARY

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

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

1118
1119
1120
1121
1122
1123
1126
1125
1126
1127
1128
1129

1130

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

PAGE 20

SEQ 0029

;ADDRESS SILO TEST

;}8?
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117

14:35

006660
006666
006674
006676
006720
006726
006734
006736
006760
006766
006772
006774

007002
007004
007026
007034
007040
007042
007044
007046
007054
007056
007100
007106

007114

007116
007140

007146

007154
007156
007200
007206
007210
007214
007222
007230
007234
007242
007246
007254
007256
007300
007306
007310
007314
007316
007320
007326

007330
007352
007360
007366
007370
007412

152777
132777
001014

000060
000020

132777
001414

000200

012704
005003
132777
001014

177700

110377
005203
005204
001420
132777
001367
132777

001414

132777

001014

005003
012704
052777
117767
005077
042767
010367
026767
001414
095203
042703
005204
001420
132777
001332

132777
001414

000100

026522
026514

026454

000100

000200

177700
000200
026160
026140
177400
022740
022734

026406

XED:

026334

026274

026234

000200

xeE10:

Xg11:

XxE12:

XE13:
026152
022754

XxE14:

022742
022730

XE15:

XE16:

177740
000200

XEZA:

XE8:

026346

000100

XE7:

026062

026022

XE17:

XE18:

BISB
BITB
BNE
ERROR
SCOPE
BITB
BEQ
ERROR
SCOPE
MOV
CLR
BITB

BNE
ERROR
SCOPE
MovB
INC
INC
BEQ
BITB
BNE
ERROR
SCOPE
BITB

BEQ

ERROR
SCOPE

BIIB

BNE
ERROR
SCOPE
(LR
MOV
BIS
Move
CLR
8IC
MOV
(MP
BEQ
DATERR
SCOPE
iNC
81C
INC
BEQ
BITB
BNE

ERROR
SCOPE
BITB
BEQ
ERROR
SCOPE

#60, 3 TMMRH
#20,3TMMRH
XE7A
\N
XE7
#200,3TMMRH
XE8
\N
XE7
#-64. R4
R3
#100,3TMMRH
XE9
N
XE8
R3.aTMMR
R3
Ré
XE1
#100,3TMMRH
XE9
\N
XE7
#100,3TMMRH

XE12
\N
XE7

#200,3TMMRH

XE13
\N
XE7
R3
#-64. R4
#807,aTCR
aTM'R BAD
alCR
#177400,BAD
R3,GOOD
GOOD ,BAD
XE16
\N
XE7
R3
#177740,R3
R&
XE18
#200,aTMMRH
XE14

\N
XE7
#200,3TMMRH
XET19
\N
XE7

;SET AUT ADR TO LD SILO &CLR SILO
;IS AUT ADR SET?
COULD NOT SET TMMR BIT 12
;CHECK FOR OUTPUT RDY

TMMR BIT 13 DOES NOT CLR ADDR SILO
JR4 IS COUNTER
;R3 IS DATA
;ADR SILO INPUT RDY?
ADR SILO INPUT NOT RDY
;LOAD ADDR SILO

s INPUT READY?
INPUT NOT RDY-PREMATURLY FULL?
;SILO SHOULD BE FULL NOW

2 INPUT READY?

SILO FULL-BUT STILL RDY FOR INPUT

:SILO OUTPUT RDY?
FULL SILC NOT RDY FOR OUTPUT

;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 0OK?
BAD DATA READ FROM ADDR SILO

;KEEP R3 DOWN TO 5 BITS
JAFTER 64 WDS, EXIT
:SILO OUTPUT READY?

SILO OUT NOT RDY-SILO NOT EMPTY
;SILO OUT RDY AFTER 64 READS?
EMPTY SILO READY FOR OUTPUT

CZPLBBG PCL11 STND ALN VO2A

S8YRIURRIRIC 28T SR RRAR LB IFVFINANIITEIERERAR ER

007420
007424
007432
007436
007440

007446
007450
007472
007500
007506
007514
007522
007530
007532
007554

D
D

D ed

d e
e

D oD oD

d e
d o

) e

005077

025750
000000

025754

000200

025742

052777

000200
025702

025674
022476

152777
132777
001414

000041
000200

025666
025660

112777

004567
000010
132777
001022
117767

174674

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

XE20:

000037
000200

025616
025612

XE21:
XE22:

162777
016704
012703
132777
001420
005203
001372
005304
001366

000020
022140
177000
000200

025602

XE22A:

025564

XE22B:
XE23:

142777
004567
000010

000001

025514

000200

025500

)

d ) e

Db —d

e
e
d e
—

NNV

004567
000010
152777
052777

010072
010114
010122
010130

1.4364

XE2S:

022174

042777

000200

025326

004567
000010
132777
001417

174252

117767

#807,aTCR
aTMMR BAD
XE19
#41,3TMMRH
#200,3TMMRH
XE21

SCOPE
mMovB
BIT8B
BEQ
BI(CB

XEZ20
#37 ,3TMMR
#200,3TMMRH
XE22
#20,3TMMRH

MOV
MOV
BITB
BEQ

000021
000200
025416
177400
000037

000200

025320

042777

000200

025252

152777

000060

025252

DLCON, R4
#177000,R3
#200,3TMMRH
XE24

R3
XE23

ERROR
SCOPE

8I(B
JSR
.WORD
BITB
BNE

\N
XEZ22A
#1,3TMMRH
RS ,DELAY
10
#200,aTMMRH
XE25

SCOPE

XEZ20

JSR

XE22B

10
#21,aTMMRH
#807,aTCR
aTMMR BAD
#177400,BAD
#37,600D

BEQ

XE26

BIC
SCOPE
JSR
.WORD

BIT8B
BEQ

ERROR

BIC
SCOPE
BISB

PAGE 20-1

SEQ 0030

sCLR RD SILO
;LOAD A WORD INTO SILO
;WAIT FOR MIGRATION

;CHECK OUT RDY AFTER DELAY
JERROR:SILO SETTLING TIME TOO LONG
;SET RD SILO BIT
;GET RID OF THE WORD IN SILO

;SET 'CLR SILO' BIT & SET MASTER
;SILO RDY?

JERROR:BIT 13 OF TMMR DID NOT CLR ADR SILO
sLOAD SILO WITH TEST WORD
;SILO OUT RDY?
JWAIT FOR IT

;CLR AUT ADR

;SET UP FOR ABOUT 5MS DELAY
;OUTPUT RDY?
:IF NO - CARRY ON

JWAITED 5MS?
JNOT YET

;ERROR:ADDRESS SILO IS NOT CYCLING

;CLEAR MASTER FOR SYNC.
sOUTPUT READY

JERROR:CYCLED WORD WAS LOST-OUT NOT RDY

R5,DELAY

.WORD
B1SB
BIS
MOVB
BIC
MOV
DATERR

XE27:

XE26:

DEC

ERROR

025432
025410
022212
022204
022200
022170

042767
012767
026767
001417

BIS
MOvVB
SCOPE
BIS8
8178
8EQ

BNE
XE24:

aTCR

movs
JSR
WORD
81718
BNE

INC
BNE

174432

£
14:35

#0,3TMVR
RS ,DELAY
10
#200,aTMMRH
XE20

ERROR

112777
132777

132777
001014

CLR

ERROR

) e e

12-SEP-78 15:13

001774

D o

D e

)

D evd nd wd

)

D -

PCLTST.PN

MACY11

GOOD ,BAD

#807,aTCR
XEZ20
R5,DEL
AY
10

#200,3TMMRH
XE27
\N

#807,aTCR
XEZ20
#60, 3TMMRH

;SET AUTO ADDR & MASTER

;SET RD SILO
;CHECK VALIDITY OF OUTPUT

JONLY INTERRESTED IN LOW BYTE

;OUTPUT SHOULD BE 37
JERROR:CYCLED WORD IS BAD DATA
.CLR RD SILO BIT FOR SCOPE
JWAIT ANOTHER SETTLING TIME

;IS SILO OUT RDY (SHOULDN'T BE)?
;NO, LEAVE
;ERROR:EXTRA WORD FOUND IN SILO
sCLR RD SILO
;SET AUTO ADDRESS & CLR ADDR SILO

(ZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PNM
12~SEP-78 15:13
1216

010136

005077

025232

1218

010146

032777

010000

1220

010156

000167

175764

1217

1219
1221

010142
01015

010162

004767
001402
000207

021204

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

PAGE 20-2

SEQ 0031

aTCR

;CLEAR RD SILO

BIT

#312,3SR

;OK TO EXIT IF Sw 12 - 0

MSRTST

;OTHERWISE, STAY HERE

BEQ

XERT:

14:35

CLR

. SR

021574

JMP
RTS

PC,MONIT
XERT

CZPLBBO PC1
11 STND ALN VOC2A
PCLTST P11
12-SEP-78 15:13
1223
1224
1225
1226
1227
1228
1229
1230
1231

MACY1T

30A(105”)

18-0CT-78

DATA SILO TEST
.SBTTL

G
14:35

3
PAGE 21

SEQ 0032

DATA SILO TEST

:TRANSMITTER DATA SILO TEST

004567
000010
032777
001414

176134

000010

025166

032777
001014

000400

012777
004567

177777
174020

025072

032777

000010

025052

000010

001017

025130

SILTST: BDINIT
JSR
.WORD
BIT
8to

XF1:

XF2:

ERROR
SCOPE
BIT
BNE
ERROR
SCOPE

010702
010710

025012

177777

021604

052777
017703
032777
001414

000200
024722
000010

032777
001014

000400

021614
021610
021600

024722

XF3:

XF3A:

024710

024652

XFS:

042777
005077
032777
001774
017767
005067
026767
001417

000200
024610
000010

024610

XFé6:

024576

XFOA:

024574
021374
021370

021376

012777
012777
052777
032777

177600
033026
040000
040000

021364

024506
024502
024464
024456

XF7:

#303,aT(R
XF1

\N
SILTST

#808,3TSR
XF
2
\N
SILTST

. CLEAR BOARD
;SILO OUTPUT READY?

JERROR:BD INIT DID NOT CLEAR DATA SILO
2SILO INPUT READY?

JERROR:BD INIT DID NOT SET INPUT READY

MoV
JSR
.WORD
BIT
BNE
ERROR

#-1,aTSDB

;LOAD 177777 INTO DATA SILO

#B03,aTCR
XF3

;SILO OUTPUT READY?

SCOPE
MOV
MOV
cMP
BEQ
DATERR
BDINIT

XF2

BDINIT

017767
012767
026767
001417

XMTR
R5,DELAY
10

SCOPE

B1S
MOV

BIT
BEQ
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
8IC
CLR
BIT
BEQ
MoV
CLR
cMP
BEQ
DATERR
BDINIT
SCOPE
BDINIT
MoV
MOV
BIS
BIT

R5,DELAY
10
\N
XMTR

aTSDB,BAD
#-1,G00D

GOOD ,BAD

XF 3A

\N
XMTR

XF2
#807,aTCR
@TSDB,R3
#803,aTCR
XF5
\N
XF3
#808,3TSR
XF6
\N

XF5
#807 ,aTCR
alSDB

#803,aT(R

XF6A
aTSD8 ,BAD
GOOD
GOOD ,BAD

XF7

\N
XMTR
XF6
XMTR

#-128.,aTSBC

#SILDAT ,aTSBA

#814 ,aTCR
#8164 ,aT(R

JERROR:NO SILO QUTPUT 37 US. AFTER LOAD
;CLEAR SILO

JREAD WORD FROM SILO

;SILO OUTPUT = 177777
.ERROR:DROPPED BITS IN DATA SIL

;CLEAR SILO

;sSET RD SILO BIT IN TCR
;POP WORD FROM SILO

;SILO OUTPUT READY?

JERROR:WORD DID NOT GET POPPED FROM SILO
;1S INPUT READY?
JERROR:DATA SILO INPUT NOT READY

;CLEAR RD SILO BIT

;LOAD 0'S INTO SILO

;OUTPUT RDY?
;WAIT FOR I7

JREAD OUTPUT OF SILO
;OUTPUT = 0?

JERROR:BITS PICKED UP IN DATA SILO
;CLR SILO

;CLR XMITTER BOARD
JSET BYTE COUNT TO -128
;POINT DEVICE AT CORE BUFFER
sSET TX NPR
;IS TX NPR SET?

CZPLBBO PCL11 STND ALN VOZ2A

12-SEP~78 15:13

PCLTST PN

S
T
e
R
P
—h

NN N
W L¥) N ISLSLY

[
SR

010716
010720
010742
010750
010754
010760
010764
010766
010770
010772
010774
010776
011020
011026
011034
011036
011060

011302
011310
011316
011320
011342
011350

18-0CT-78

DATA SILO TEST

001C14

BNE

XF8

SCOPE

XF7

ERROR

XF8:
XF8A:
XF9:

MOV

016704
012703
005777
001420
005203
001373
005304
001367

020776

032777
001414

000400

032777
001014

000010

052777
012704
012703
017767
012467
026767

000200
033026
177700
024230
021030
021024

024240

XF12:

021032

XF13:

021020

MOV
cMP

042777

000200

024156

BIC

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

001422

HOO

POPON)
= = b —d b

(L W N=200VONOWNEWN=0O

e R

Ao oS oIt

1279
1280
1281

MACY11 30A(1052)

177500
024416

BEQ
INC
BNE

XF10
R3
XF9
R4
XF 8A
\N
XF7
#808,aTSR
XF11
\N
XF10
#803,aT(R
XF12

DEC

024300

XF10:

XF11:

ERROR
SCOPE
BIT

BEQ

ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
BIS
MOV
MOV
MOV

8EQ

DATERR

XF14:

XF17:

XF18:

DLCON, RS

#177500,R3

TST

PAGE 21-1

MOV

BNE
024342

14:35

aTSB(

\N
XF11

;ERROR: NPR NOT COMPLETE AFTER 2 MS
s INPUT READY?
JERROR:SILO FULL BUT INPUT RDY SET

;OUTPUT READY?

JERROR:FULL SILO NOT RDY FOR OUTPUT

;R3 IS COUNTER

XF14
\N

#807 ,aTCR

XMTR
#-4,a758C
#SILDAT ,aTSBA
#SILDAT,GOOD

XF13

BIS

#40004,aTCR

BNE

XF18

aTS8(

a@TSBA,BAD
MOV
CMP GOOD ,BAD
DATERR
BDINIT
SCOPE

JWAITED 2 MS?
sNO, KEEP LOOKING

#-64. ,R3

aTSDB,BAD
(R4)+,GOOD
GOOD ,BAD

BDINIT
MOV
MOV
MOV

8EQ

JSET UP 2 MS DELAY
;1S BYTE COUNT 0?

;SET RD SILO BIT

R4
#SILDAT

XF7
#807,aTCR
R3

TST

;ERROR: CANNOT SET TX NPR

#8307 ,aTCR

SCOPE
BIS
INC

BNE

SEQ 0033

XF19

\N
XMTR
XF17

;R4

IS DATA POINTER

;POP WORD FROM SILO TO ‘BAD"’
JAND POP A WORD FROM BUFFER

;DATA 0K?

;ERROR:DATA FROM SILO IS WRONG

;CLR RD SILO BIT
;GO TO RE-FILL SILO FOR RE-TRY
JRE-SET RD SILO BIT

;ALL DONE?
;IF NOT, POP ANOTHER WORD
;CLEAR THE BOARD

;SET BYTE COUNT TO -4

;POINT NPR TO DATA BUFFER

JSET TX NPR AND INH ADR INC

;JWAIT FOR NPR TO FINISH
;READ BYTE ADDRESS

JHAS IT CHANGED?

JERROR:TSBA SHD NOT CHANGE WITH INH ADR INC SET

(ZPLBBO PCL11

PCLTST PN

1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
343

STND ALN VOZ2A
12~-SEP-78 15:13

MACY11

.SBTTL

SEQ 0034

DATA SILO BLOCK COUNTER TEST

;THE BLOCK COUNTER COUNTS THE 200 WORDS AND HOLDS SILO OUTPUT READY
;IN A FALSE STATE.

011356
011364
011372
011376

011402
011406
011412
011416
011422
011426
011432

011446

011470
011476
011504
011512
011516
011524
011526
011532

142777

004767
012702
004767
004767
012702
004767
004767
012702
004767
032777
001414

152777

004767
032777
001402
000167
000207

000001
000136

024016

XF19:

000176
000122

000010

000020
017636
010000

023676

020224

176432

XFRT:

011534
011542
011550
011556
011562
011566
011570
011572

012777
012777
052777
016704
012703
005203
001376
005304
001372
005077
000207

177600
033026
040000
020170

023640
023634
023616

175000

XFSR:

XFSR1:
XFSRW:

023572

;POP ALL 64 WORDS OUT
JFILL SILO AGAIN

JSR
JSR

PC.XFEMT
PC,XFSR
#60 ,R2
PC.,XFEMT

JSR

XF19A:
XF20:

PC,XFSR

XMIR
#800,3aTMMRH

MOV

023730

PC,XFSR

;CLEAR THE BOARD
;CLEAR MASTER FOR THIS TEST
JFILL THE DATA SILO

BDINIT
BI(B
JSR
MOV
JSR
JSR
MOV

000162
000106
000060
000146

;JROUTINE

JFEEEERALEE

;THIS TESTS THAT, AFTER PULLING 200 (OCTAL) WORDS THRU THE SILO

0114636
011444

1371

18-0(CT-78

14:35
PAGE 22
DATA SILO BLOCK COUNTER TEST

30A(1052)

BIT
BEQ
ERROR
SCOoP E
BDIN IT
BIS8B
JSR
BIT
BEQ
JMP
RTS
TO FILL

MOV
MOV
BIS
MOV
MOV
INC
BNE
DEC
BNE
CLR
RTS

#64. R2
PC,XFEMT

#803,aTC(R
XF19A
\N

XF19

;POP 20 (OCTAL) WORDS OUT
JFILL SILO AGAIN
;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

SERROR:OUTPUT RDY AFTER 200 WORD BLOCK

XMTR
#20,3TMMRH

;CLEAN UP,
;SET AUT ADR

#812,aSR

;CAN WE EXIT NOW?

PC,MONIT

XFRT
SILTST
PC

;0K IF Sw 12 =0
;NO IF SW 12 =1

DATA SILO VIA NPR

#-128.,aTSBC

#SILDAT ,aTSBA

#814 ,aT(R
DLCON R&
#175000,R3
R3

;SET BYTE COUNT FOR FILL-UP
;POINT DEVICE AT CORE BUFFER
;START NPR
;SET UP TO WAIT FOR (MPL

XF SRW
R4

JWAIT FOR NPR COMPLETION

aTCR
PC

:CLEAR TXNPR

XFSR1

JRETURN WITH SILO FULL

JROUTINE TO POP (RZ2) NUMBER OF WORDS FROM DATA SILO
052777
010203
017767
005303
001373
042777
000207

000200

023562

XFEMT:

023560

020362

XFMTW:

000200

023540

BIS
MOV
MOV
DEC

BNE
8IC

RTS

#807,aTCR

;SET RD SILO

aTSDB,BAD

;POP A WORD OUT
;KEEP TRACK OF # OF WORDS

#807,aTCR

;JLEAVE WITH RD SILO CLEAR

R2.R3$

XFMTW

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

MACY11 30A(1052)
TSRTST

.SBTTL

i
d o
b

9
33X (¥,]

d —d
D i ed o
- -

WWWW
el

1399

J
14:35

PAGE 23

SEQ 0035

TSRTST

;STATUS REGISTER AND ERRORS TEST

T
A2

1382

18-0CT-78

011636
011644

011652
011660

011662
011704
011712
011720
011726
011730
011752
011760
011766
011774
012002

012012

012024

052777
032777
001014

000200
000200

042777
032777
001414

000200
000200

023524
023516

023456
023450

012777
032777
001774
152777
012777
016704
012703
032777
001020
005203
001372
005304
001366

177777
000010

023404
023372

000001

023376
023354

032777
001014

000100

042777
000240
032777
001414

100000

023226

020000

023216

032777
001414
005077
052777
052777
032777
001014

032777
001014

120000

017726
177763
000020

000100

023122
120000

023340

023270

023160

023112
023106
023100

023040

TSRTST:

XH1:

XH2:

BDINIT
BIS
BIT
BNE
ERROR
SCOPE
BIC
BIT
BEQ
ERROR
SCOPE
BDINIT
MOV

BIT
BEQ
BIS8

XH2B:
XH2A:

XH3:

XHé4:

MOV
MOV
MOV

BIT
BNE
INC
BNE
DEC
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
BIC
NOP

BIT

XHS:

XH6:

XH7:

BEQ
ERROR
SCOPE

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

XMTR

#807.3TSR
#807.3TSR
XH1

:CLR BOARD
;SET SUCC XFER
JIS IT SET?

\N
TSRTST

;ERROR: CANNOT SET TSR BIT 07

;ERROR:CANNOT CLR SUCC XFR

#807.3TSR
#807.3TSR
XH2
XH1
XMTR

#-1,aTSDB

#egfi,arca

#1,3TMMRH

#120000,aTCR
DLCON_ R4
¥#177763
,R3
#B04,aTSR

XH3

sCLR SUCC XFER
;IS IT CLR?

; CLEAR BOARD
:LOAD WORD INTO SILO
;OUTPUT READY?

;JWAIT FOR WORD TO HIT BOTTOM
;SET MASTER FOR TIME SLICES
;SET RIB AND SND WD

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

JWAIT 100 US.

JERROR:TDM BUS BSY NOT SET
#806,3TSR
XH4
\N
XH2

;1S BUSY SET?

;ERROR:BUSY NOT SET WITH SND WD & RIB

#815,aT(R

;CLEAR RIB

#813,aT(R
XH5

;1S SND WD CLR?

XH2
#806,3TSR
XH6
\N

XH2

aTSR
#120000,aTCR

#809,aTSR
#809,aTSR
XH7
\N
XH6

#315,3TSR
XH8
\N

XH6

;WAIT FOR TIME

SLICE

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

JERROR:SND WD-0 DID NOT CLR BUSY
:CLEAR TSR

;SET RIB & SND WD

;SET OVERRUN ERR BIT
SIS IT SET?

;ERROR:CANNOT SET TSR BIT 09

;1S ERROR BIT SET (BIT 15)
JERROR:OVERRUN DID NOT SET ERROR BIT 15 IN TSR

€2

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P1
12-SEP-78 15:13
1438
1439
1440
1441
14642
1443
1464

1445

1446
1447
1448
1449
1450

1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466

1467

1468
1469

1470
1471
1472
1473
1474
1475

012370
012376
012400
012422
012430
012436
012444
012452
012454
012476
012504
012510
012516
012524
012526
012550
012556
012564
012566
012610
012616
012622
012630
012636
012640
012662
012670
012676
012700
012722
012730
012734

032777

001414

012777
032777
001414
005077
052777
032777
001014

000000
001000

022666
002000
002000

032777
001014

100000

005077
052777
032777
001014

022554
004000
004000

032777
001014
005077
052777
032777
001014
032777
001014

005077
052777
032777
001014
032777
001014
013146

020000

100000

022442
010000
010000

100000

022330
020000
020000

100000

MACY11

30A(1052)

022776

XH8:

022734
022724

022660
022652

022612

022546
322540

022500

022434
022426

022366

022322
022314

022254

TSRTST

XH8A:

XH9:

XH10:

XH11:

XH12:

XH13:

XH14:

XH15:

XH16:

18-0CT-78
BIT
BEQ
ERROR
SCOPE
BDINIT
MOV
BIT
BEQ
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE

8IT
BNE
ERROR
SCOPE
CLR
8IS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE

BIT
BNE
ERROR
SCOPE

14:35

#813,3TCR
XHBA

PAGE 23-1

SEQ 0036

;1S SND WD CLR?

\N
XH6
XMTR
#0,a75D8

;ERROR: TSR BIT 15 DID NOT CAUSE

;ERROR: LOADING EMPTY SILO GIVES OVERRUN ERROR!

#809,aTSR
XH9

XHBA

aTSR

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

XHS
#815,3TSR
XH11

INTR REQ

;CLEAR ALL IN XMTR
;LOAD A WORD INTO SILO
;1S OVERRUN SET??

;SET TIMEOUT BIT IN TSR
JIS IT SET?
;ERROR: CANNOT SET

TSR BIT 10

;IS ERROR BIT SET?

\N
XH9
aTSR
#811,aTSR
#811,aTSR
XH12
\N
XH11

JERROR: TIMEOUT DID NOT SET TSR BIT 15

:ERROR :MST DWN DIDN'T SET TSR BIT 15

#815,3TSR
XH13
XH11

aTSR

#812,3TSR
#812,aTSR
XH14
\N

XH13
#B15,3TSR
XH15
\N
XH13
aTSR

;CLR TSR
;SET MST DWN
;IS IT SET?
JERROR: CANNOT SET TSR BIT

;1S ERROR BIT SET?

JSET TXM ERR
;IS IT SET?
JERROR: CANNOT SET TSR BIT 12

;1S ERROR BIT SET?
;ERROR: TXM ZRR DIDN'T SET

TSR BIT 15

#813,3TSR
#813,aTSR
XH16
\N

XH15
#815,aTSR
XH17
\N

XH15

sERROR: CANNOT SET TSR BIT 13

;IS ERROR BIT SET?
- ERROR :MEM OFL DIDN'T SET

TSR BIT

CZPLBBO PCL11 STND ALN VOZ2A

PCLYST.PT

—

b e

b md

d wd

) d =d b ed od ad = b D D
mwmwmmmmm\nv\\nmwm
OVO~NOWNEWN=0O 38

1489
1490
1N
1492
1493
1494
1495
1496
1497
1498

12-SEP-78 15:13

MACY11 30A(1052)
TSRTST

18-0CT-78

14:35

PAGE

SEQ 0037

;ERROR GENERATION TESTS
013154
013162
013170
013176
013204
013206
013210
013214
013216
013240
013246
013254
013256

013300
013306
013314
013316
013340
013346
013354

013362
013364
013366
013374
013376
013404
013412

013414
013436
013444

013452
013460

013464
013466
013472
013500
013502
013504
013506
013510
013512
013514
013516
013540
013546

013554
013560
013566
013572
013574
013602
013606
013610
013616

012777
012777
052777
000240
000240
005777
001014
032777
001014
032777
001014

016777
000240
000240
32777
001367
016777
032777
001014

052777
016702
005003
012704
032777
001022
005203
001372
005204
001370
005302
001363

105077
012777
004567
000010

052777
004567
000010
032777
001014

1777274
164176
040060

022212
022206
022170

XH17:

022166

040000

100000

022122

022062

177774

022016

000400

022002

17775¢
001000

021776
V1764

XH18:

XH19:

XH20:

XH2O0L:

BDINIT
MOV
MOV
BIS
NOP
NOP
TST
BNE
ERROR
SCOPE

BIT
BNE
ERROR
SCOPE
8IT
BNE
ERROR
SCOPE
BDINIT
MOV
NOP

XMTR

: CLEAR BOARD

#164176,aTSBA
#40060,aTCR

;LOAD NON-EXST ADDR INTO TSBA

#-6,3758(

aTSBC

XH18
\N

XH17
#814 ,3TSR
XH19
\N

XH17
#815,aTSR
XH20
\N

XH17

016266
177773

002000

021630
177777
170540

021714

XH21A:

021676

XH2?2:

XH22A:

021612

120000
170524

021572

004000

021560

BDINIT
CLRB
MOV
JSR
. WORD
BIS

JSR
. WORD
BIT
BNE

;ERROR:REPLACE #764176 WITH NON EXST ADDR

sNOW CHECK NXL ERR BIT

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

2IS ERROR BIT (15) SET?
JERROR:NXL ERR DIDN'T SET TSR BIT 15

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

;SILO INPUT READY?
;IF YES, KEEP LOADING

XMTR

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

;DID BYTE COUNT GO TO O ?

. CLEAR BOARD
JFILL THE SILO WITH GARBAGE

XHZ20L ,aTSDB

XH20L

XH21:

;START NPR AND SET EXT ADD BITS

XMTR

120000

;SET UP TO GENERATE NXM ERR

#120000,aTCR

DLCON,RZ

R3
#-5,R4

#810,3TSR
XH22A

;NO,SILO FULL.LOAD 1 MORE WORD
;IS 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?
JWATCH IT FOR A SEC

JERROR:NO TIMEOUT
aTMMRH
#-1,aTSDB

?S.DELAY
0
#120000,aTCR
RS ,DELAY
10
#811,8TSR
XH23

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
JERROR:ATTEMPT TO SEND WORD WITH MASTER (LEAR

(ZPLBBO PCL11 STND ALN VO2A

PCLTST.PN

1545
1546
1547
1548
1549
1550
1551
1552

013620
013642
013650
013656
013662
013670
013672
013676

12-SEP-78 15:13

004767
032777
001402
000167
000207

015472
010000
175740

MACY11 30A(1052)
TSRTS T

XH23:
016060
XHRT:

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

XH22A
XMTR

PC,MONIT

#B812,aSR
XHRT
TSRTST

14:35

PAGE 2¢-1

SEQ 0038

;DID NOT SET MASTER DOWN

;IS SW 12 = 1?
:IF

SO,

TRY THIS TEST OVER

(ZPLBBO PCLY1

PCLTST.PN

1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565

1566
1567
1568

1569

1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581

STND ALN VOZ2A
12-SEP-78 15:13

T
MACY

30A(1052)
18-0CT-78
INTERRUPT TEST
.SBTTL
;TRANSMITTER

013700
013706
013714
013720
013726
013734
013742
013750
013752
013756
013764
013766
013774
014016
014024
014030
014036
014044
014052
014060
014066
014070
014072
014076
014100
014122
014130
014136
014140
014162
014170
014176
014200
014206
014214
014222
014230
014236
014244
014246
014250
014254
014262
014266
014,74
014276
014302

014304
014312
014320
014322

INTST:

016700
012760
012777
052777

021444
000340
013756
000100

000240
000167

000046
000100

021400

005067
012777

021330
014304

021326

052777
052777

000100
000200

021322
021316

000240
000240
005767
001014

XJO:

XJ1:

026767
001414

021234

022767
001426

000340

021162

062767
012777
052777
052777

000040
014326
000100
000200

021144
021142
021144
021140

000240
000240
000167

177714

015066
010000

062767
022626
000167

000040

021222

XJ2:

XJ3:

XJ3S:

MTPS
8IS
8IS
MTPS

BEQ
BDINIT
ADD

MOV
8IS
BIS

XJRT:

JMP
BDINIT
JSR
BIT
BEQ
JMP
RTS

INTA:

BDINIT

015454

021040

BNE
ERROR
SCOPE
M
8EQ
ERROR
SCOPE

MTPS
NOP
NOP

XJé:

177376

177510

o
g,
8IC
ERROR
SCOPE
(LR
MOV

NOP
NOP
TST

021262

004767
032777
001402
000167
000207

MTPS
8DINIT

ERRINT: MTPS

022626
042777

ADD

MP
JMP

INTERRUPT

MOV
MOV
MOV
8IS
MTPS
NOP
JMP

000002
021430
021432

N
14:35

3
PAGE 25

SEQ 0039

TEST

#P7
XMTR
TXVEC RO

JDIS-ALLOW INTERRUPT
;CLR THE BOARD

NERRINT ,aTXVEC

;SET-UP FOR ERROR

#340,2(RO)

JSET NEW PS = P7

#306,3T(R

sSET

XJO

7
(SP)+,(SP)+

#806,38T(R
\N
INTST
TMPRIO

#INTA,@TXVEC
a7

#806.aT(R
#807 ,aTSR
TMPRIO

TMSRIO
xXJ

[NTERRUPT

INTERRUPT ENABLE

JALLOW INTERRUPT

;SKIP ERROR IF NO INTERRUPT
;INTERRUPT OFF
sCORRECT STA(K

;CLR INTERRUPT ENABLE

JERROR:ERRONEOUS INTERRUPT;NO FLAGS SET
JSTART WITH C.P.

AT PRIORITY O

;SET VECTOR FOR GOOD
;s INTERRUPT OFf F

INTERRUPT

JENABLE XMTR INTERRUPT
JFORCE INTR WITH SUCC XFER
JALLOW INTERRUPT

JWAIT FOR IT

LIS PSW = 0?

\N
INTST
XPgIO,TMPRIO

JERROR:NO INTERRUPT FROM TRANSMITTER

\N
INTST
#340,TMPRIO

JERROR:DEVICE NOT JUMPERED 7O EXPECTED PRIORITY

JHAVE WE REACHED EXPECTED PRIORITY?

;IS PSW = 77

XJ4
XMTR
#40,TMPRIO
#INTB,aTXVEC

;SET VECTOR FOR ERROR

TMPRIO

;JSET CP TO NEXT PRIORITY

#806,aTCR
#807,aTSR

‘

;WAIT FOR POSSIBLE

INTERRUPT

XMTR

: CLEAR BOARD

#B12,aSR

;W12 =12

INTST
PC

JYES, DO TEST OVER
sNO, LEAVE THIS TEST

XMTR

;CLR INTERRUPT ETC

XJ1

;TRY AGAIN

PC,MONIT

XJRT

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

INTR,

JENABLE XMTR INTERRUPT
;FORCE INTERRUPT REQUEST

JINCR TEMP PRIORITY
sCORRECT STACK POINTER

(ZPLBBO PCL11

PCLYST.P11
1610
1611
1612

1613
1614

014326
014330
014352
014360

STND ALN VO2A

12-SEP-78 15:13

022626
000167

MACY11 30A(1052)

INTERRUPT TEST
INTB:

177604

18-0CT-78

(MP
ERROR
SCOPE
JMP

14:35

(SP)+,(SP)+
\N

XJ3S
XJ3

PAGE 25-1

o CORRECT STACK
JERROR:GOT INTR WHEN C.P. AT HIGHER PRIORITY

SEQ 0040

PCLYST.PN

12-SEP-78 15:13

MACY11 30A(1052)
C.R.C.

18-0CT-78

CHECK

.SBTTL

1616

14:35

C.R.C.

PAGE 26

SEQ 0041

CHECK

;CYCLIC REDUNDANCY CHECK CHARACTER TEST
014364
014372
014400
014406
014414
014420
014422
014430
014432
014454
014462
014470
014476
014502
014504
014512
014516
014522
014530
014532
014542
014544
014550
014572
014600
014604
014610
014612
014616
014624
014626
014632
014640

012777
012777
052777
005777
001375
032777
001414
052777
012767
012704

177600

033026
040000
020762
040000

021002
020776
020760

CRCTST: BDINIT

XK1:

020744

000200
177700
033226

020704
020656

020702
020662
015464
015460

015472

XK2:

XK3:

015454

XKé:

177532

015124
XKRT :

#SILDAT ,aTSBA

#814,aTCR
arSaC
XK1
#8;4,8T(R
XK

\N
CRCTST

; CLEAR BOARD

;SET UP BYTE COUNT TO FILL SILO
;START NPR
;1S BYTE COUNT 0?
;WAIT FOR NPR TO FINISH
sNOW CHECK
TX NPR BIT
;ERROR:TX NPR NOT CLR'D BY TSBC OFL

;SET RD SILO BIT

MOV

#SILCRC,RS

;R4 POINTS TO GOOD CRC'S

MOV
MOV
MOV
(MP

aTSCRC,BAD

sGET CRC CHAR FOR LAST SILO WORD

(R4) ,GOOD
GO?D,BAD

;GET GOOD CRC FROM BUFFER
;1S CRC OK?

PNTM

ggowg

NOP

MOV
JSR

000002
020544

XMTR

#-128.,aTSBC

#807,3TCR

BEQ

015756

014536
010000

MOV
MOV
BIS
TST
BNE
BIT
BEQ
ERROR
SCOPE
8IS
MOV

DATERR
SCOPE
ADD
INC
BNE
JSR
BIT
BEQ
JMP
BDINIT
RTS

#-64.,COUNT

a87SDB,R3
XK

PC,OCTPNT
\N
CRCTST
#2 R4

COUNT
XK3

PC ,MONIT

#312,aSR
XKRT
CRCTST
XMTR

sCOUNT READS

;R3 HOLDS SILO DATA WORD

;JPRINT '‘SILO OUTPUT WORD WAS *'
SPRINT SILO DATA WORD
;ERROR:BAD CRC FOR ABOVE WORD
;UPDATE

CRC POINTER

JHAVE WE CHECKED 64 WORDS?
;NO, CONTINUE

;CHECK SW 12

JIF CLR, EXIT
;IF SET STAY

in g WeanY

CZPLBBO PCL11 STND ALN VOZA

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

MACY11 30A(1052)

18-0CT-78

RECEIVER TESTS

14:35

PAGE 27

SEQ 0042

.SBTTL RECEIVER TESTS

1655

1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666

JTEST 2: RECEIVER TESTS
(00) RESET TEST
:
;

;
:

1667

1668
1669
1670
1671
1672
1673
1674

(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

000200

012767

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

000010
014472
002000

020444

015052
177770

020424
020416

020410
020404
014732
020372
000142
000476
001176
001346

004000

TEST2:

MTPS

JRECEIVER ERRORS START AT 200

#P7
#10,ITER

JINITIAL ITERATION OF 10 PER PASS

PC,MONIT

015060

BEQ
BIC

#810,aSR

LOOPR
aSR, SWI
#-10,SWl

SWi
SWI

020376

#LOOPR, SWI

LOOPR:

JSR

aSW]

PSNO2,RO
PC ,DECPNT
#40,R0

PEND

015674

;DO RECVR DATA SILO TEST

;DO RSR REG & ERRORS TEST
;DO INTERRUPT TEST
;DO RCVR CRC GENERATION TEST
;CHECK SW 11
IF

SET

;OTHERWISE, REITERATE

;CAN WE PRINT END PASS?
sNO, LEAVE
;UPDATE PASS NO.

JPRINT "“END PASS # "'
;PRINT PASS NO.
;PRINT A SPACE

PC,TTO

;PRINT "A"" (TO INDICATE RCVR TST)

015702

:GO TO SELECTED TEST

PC,TTO

#101,R0

015710

:MULTIPLY BY 4
;GENERATE OFFSET

;PRINT END

020276
015540
000040

TST

;CLR C BIT BEFORE ROTATE

REND

020312

REND:

JMASK LOW DIGIT

;DO INITIAL CLEAR TEST
;DO RCR REG TEST
;DO BYTE COUNT REG TEST
;DO BYTE ADDR REG TEST

ITER
LOOPR
$4FLAG
REPEET
PSNO2

020332

;CHECK SW 10
;IF 0, RUN SEQUENTIALLY
;IF SET, GET TEST # FROM SWR

PC,RINIT
PC,RCRTST
PC,RBCTST
PC,RBATST
PC,SLOTST
PC.RSRTST
PC,RINTST
PC,RCRCTS

#811,aSR

014750

020314

015076

200

PC,TTO

REPEET:

JSR

RTS

PC.TTO
PC

JNULLS IN CASE RESET FOLLOWS
;RETURN

CZPLBBO PCL11
)

~
2%} z\l\l\l\l\l\l\l\l\l\l\l
SNNNNNN
W
O 00 NN
S
=200V
NOWNH NN = o
d
b

-—

n
N
N

pord
—

017767

D
d

000005
017767
005067
005767
001414

14:35

!AGE 28

SEQ 0043

INITIALTZE TEST

;CHECK INITIAL CONDITIONS AFTER RESET

d
)

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

D
d

D
D e

STND ALN VO2A
12-SEP-78 15:13

d
ed
Y — e
NI
U
N
[

SNNNNSNNN ~

D —_

PCLTST.P11

1744
1745
1746

015410
015416
0156422

1749

015436

020314
015072
015064

020246
015022
015014

017767
012767
026767
001414

020166
000010
014744

017767
005067
005767
001414

020124
014676
014670

017767
005067
005767
001414

020044
014626
014620

004767
032777
001402
000167
000207

013732
010000
177442

015074

015024

014754
014750
014740

014700

014630

014320

RINIT:

RA1:

RAZ:

RA3:

RA4:

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
8tQ
DATERR
SCOPE
JSR
BIT
BEQ
JMP
RTS

aRDBC ,BAD
GOOD
BAD
RA1
\N
RINIT
aRDBA,BAD
GOOD
BAD

RAZ

sCLEAR THE WORLD
;GET BYTE COUNT REG
;WAS RDBC 0?

sJERROR:RDBC NOT CLR'D BY RESET
;GET BYTE ADDRESS REG
JWAS RDBA 07?

\N
RINIT
aR(R ,BAD
#10,G00D
GOOD ,BAD

sERROR:RDBA NOT CLR'D BY RESET

\N
RINIT
aRDCRC,BAD
GOO0D
BAD
RA%
\N
RINIT
@RSR ,BAD
GOOD
BAD

JERROR:RCR NOT INITIALIZED BY RESET

RA3

RAS
\N

RINIT
PC.MONIT

#812,3SR

RART
RINIT
PC

;GET RCR REGISTER
:sSET UP COOD FOR COMPARE

;GET CRC REG

;1S CRC REG 0?
JERROR:RCVR CRC NOT CLR'D BY RESET
;GET RSR REG

;IS RSR REG 0?
JERROR:RSR REG NOT CLR'D BY RESET

;CHK Sw 12 FOR EXIT VISA
;IF SET,STAY IN THIS TEST
;OTHERWISE, EXIT

PCLTST P

1751
1752
1753
1754

1755
1756
1757
1758
1759
1760
1761

1762
1763
1764
1765
1766
1767

1768
1769
1770
1771
1772
1773
1774
1775

12~-SEP-78 15:13

015440
015444
015452
015460
015466
01547
015476
015520
015526
015532
015536
015544
015552
015560

015562

005077
012767

016777
017767
026767
001414

005067
005077
017767
042767
026767
001414
012777
012777
012777
012777
052777
017767
012767
026767
001414

017767
005067
026767

WN
=
W)
=

IEEERFRPERRRE

D —d
d
b
d
b
d ad =D o

14:35

PAGE 29

SEQ 0044

RCR TEST

JRECEIVER COMMAND REGISTER TEST

1790

RCR TEST

18-0CT-78
.SBTTL

017767
005067
026767
001414

e ad

MACY11 30A(1052)

001414

017767

016114
016122
016126
016134

016136

016142

017750
160375

014530
017730
014574

014454
017656
017652
017412
014430

160375
177777
177777

037200
000002
017540
000010
014316

017466
014250
014244

017420
014176
014172

017350
014124
016120

014534
017734
014516
014510

RCRTST:

RD1:

014440
014432
014424

014252

RD3:

RD&:

014240

014200

MOV
MOV

MOV

RD2:

017574
017574
017570
017554
017544
014326
014322
014312

CLR

RDS:

mP
BEQ
DATERR
SCOPE
CLR
CLR
MOV
8IC
CW
BEQ
DATERR
SCOPE
MOV
MOV
MOV
MOV
BIS
MOV
MOV
cMP
B8EQ
DATERR
SCOPE
MOV
CLR
cMP
BEQ

MOV

014166

014126

RD6:

MOV

014114

aRCR
#160375,G00D
GOOD,aR(R
aR(R,BAD
GOOD ,BAD
RD2
\N

RD1
600D
aR(R
aR(CR BAD
#17412 ,BAD
GOOD ,BAD

RD3
\N

RD?
#160375.aRCR
#-1,aRDB(
#-1_,aRDBA

#37200,aRSR
#801,aRCR

177276

013614

RDRT:

JSR

RTS

JAND READ

THEM BA(K

JALL BITS SET?

JERROR:CANNOT SET ALL SETTABLE RCR BITS

;NOW CLR BITS AFTER SETTING THEM
;READ THEM BACK
;IGNORE R/0 BITS
cALL CLR?

;ERROR: CANNOT CLR ALL RCR BITS
:SET ALL SETTABLE BITS IN RCR
;AND [N RDBC
;AND IN RDBA
;AND IN RSR
INTIT
.BOARD
;CHECK RCR

JERROR:RCR NOT INIT'D BY BD INIT

;ERROR:RSR NOT (CLR'D BY BD INIT

RDS

RD3

aRDB( ,BAD
GO0D
600D ,BAD
RD6
\N

RD3

aRDBA ,BAD
600D
600D ,BAD

RD7
RD7:

JSET ALL S (TABLE BITS IN R(CR

aR(R _BAD
#10,G0CD
GOOD ,BAD
RD4
\N
RD3
aRSR,BAD
GOOD
GOOD ,BAD

013226
010000

;CLEAR RCR REGISTER

RD3

PC.MONIT

#812,aSR

RDRT
RCRTST
PC

;SEE IF RCR = 10

;CHECK RSR

;RSR = 0?

. CHECK RDBC

;JRDBC = 0?

JERROR: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

e Xen}

CZPLBBO PCL11 STND ALN VOZA

CZPLBBO PCL11

PCLYST.P

STND ALN VOZ2A
12-SEP~78 15:13

MACY11

30A(1052)

RDBC TEST

18-0CT-78

.SBTTL

1806
1807

RDBC

G
14:35

PAGE 30

SEQ 0045

TEST

;BYTE COUNT REG DATA TEST

016144
016152
016160
016166
016174
016202
016210
016216
016220
016242
016250
016256
016260
016266

016316

012767
012767
016767
016777
017767
026767
001414
032767
001407
046767
005367
000167
004767
032777
001402
000167
000207

17:777

000001
017134
014006
017214
013772

017146
017142
014012
017220
013774
013766

100000

017050

017044
017036

017040

177670

013052
010000
177626

013440

RBCTST: BDINIT

RCVR
#-1,PAT

RB1:

FAT,GOOD

RB?:

RB3:

RBRT:

MOV
MOV
MOV
MOV
MOV
CMP

BEQ
DATERR
SCOPE
BIT
BEQ
BIC
ASL
JMP

JSR
BIT
BEQ

JMP
RTS

#£00 ,MASK

GOOD ,aRDBC
aRDB( ,BAD
GOOD ,BAD
QB2
\N
RB1
#315 ,PAT
RB3

MASK ,PAT
MASK

RB1

PC,MONIT

#812,aSR
RBRT
RBCTST

JINIT RCVR MODULE

;SET PATTERN
;SET BIT MASK

;LOAD ''GOOD’’ WITH PATTERN
;LOAD PATTERN (NTO RDBC

;READ RDB(
;DATA 0K?

;ERROR:BAD DATA IN RDBC
;DONE WHOLE REGISTER?
;IF YES, DONE
;NO, PREPARE FOR NEXT BIT
JROTATE MASK

JAND CONT INUE

;IF SO, CONSIDER LEAVING
JEXIT IF SW 12 =0

JSTAY HERE IF Sw 12 =1

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.PI

1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854

12-SEP~78 15:13

MACY11 30A(1052)

RDBA TEST

18-0CT-78

.SBTTL

14:35

PAGE 31

SEQ 0046

RDBA TEST

;BYTE ADDRESS REG DATA TEST
016320
016326
016334
016342
016350
016356

012767
012767
016767
016777
017767
026767
001414

032767
001407
046767
006367
000167
004767
032777
001402
000167
000207

1727777
000001
016760

013632
017042
013616

016772
016766
013636
017046
013620
013612

100000

016674

016670
016662
177670
012676
010000

016664

177626

013264

RBATST: BDINIT
RC1:

RC2:

RC3:

RCRT:

MOV
MOV
MOV
MOV
MOV
(MP
BEQ
DATERR

SCOPE
BIT
BEQ
8IC
ASL
JMP

JSR
BIT
8tQ
JMP
RTS

RCVR

#-1_,PAT
#800,MASK
PAT ,GOGD
GOOD ,aRDBA
aRDBA ,BAD
GOOD ,BAD
RC2
\N1
RC

JINIT RECEIVER MODULE
;SET PATTERN
JSET BIT MASK

;LOAD '‘'GOOD‘' WITH PATTERN
;LOAD PATTERN INTO RDBA
;READ RDBA

;ERROR:BAD DATA [N RDBA REG

#315,PAT
RC3
MASK ,PAT

;DONE WHOLE REGISTER?
;IF YES, DONE
:NO, PREPARE FOR NEXT BIT

#312,aSR

SEXIT IF SW 12 = 0

g?ATST

;STAY HERE

MASK
RC1
PC,MONIT
RCRTY

;ROTATE MASK
;AND CONT INUE

SW 12 =1

CZPLBBO PCL11 STND ALN VO2A

PCLYST.P11

1856
1857
1858
1859
1860
1861
1862

1863

1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878

1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
894

12-SEP~78 15:13

30A(1052)

18-0CT-78

DATA SILO TEST
.SBTTL

14:35

PAGE 32

SEQ 0047

DATA SILO TEST

JRECEIVER DATA SILO TEST
016474
016502
016506
016510
016516
016520
016542
016550
016556
016560
016602
016610
016616
016624
016632
016636
016640
016646

016650

016672
016700
016706
016714
016722
016730
016732
016754
016762
016770
016776
017000
017022
017030
017036

1910
1911

MACY11

017212
017220

004567
000010
032777
001414

165624

000400

016700

032777
001014

000010

052777
012777
042777
004567
000010
032777
001017

000200
177777
000200
165474

016576
016574
016562

000400

016550

BIT
BEQ

RE1:

RE2:

ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
BIS
MOV

BIC
JSR
.WORD
8IT
BNE

ERROR
BDINIT

017767
012767
026767
001417

016506
177777
013260

032777
001414

000400

032777
001014

016636

SLOTST: BDINIT
JSR
.WORD

000010

013270
013264
013254

016420

016356

RE3:

RE&:

RES:

052777
005077
042777
032777
001774
017767
005067
026767
001417

000200
016316
000200
000400

016316

REG:

016304
016300

RE7:

016274
013054
013050

013056

004767

000476

052777
012704

000200
033026

SCOPE

016174

RE2

N
SLOTST
#807 ,aRCR
#-1,3RDDB

#807,3RCR
R5 ,DELAY
10
#B808,3RSR
RE3
\N
RCVR

RE2

akDDB ,BAD
#-1,G00D
GOOD ,BAD
RE&
\N
RCVR
REZ2
#808,aRSR
RES
\N

8IT
BNE
ERROR

#803,3R(R
RE6
\N

SCOPE

8IS
CLR

8IC

BIT

BEQ

RE3

RES

#807 ,aRCR
aRDDB

#807,aRCR
#808,a3RSR

RE?7

aRDDB ,BAD
GO0D
GOOD ,BAD

8EQ

RE7A

SCOPE

RE6

DATERR
BDINIT
RE7A:
RE8:

SLOTST
#803,aRCR

MOV
MOV
cMP
BEQ
DATERR
BDINIT
SCOPE
BIT
BEQ
ERROR

MOV
CLR
MP

013044

RCVR
R5,DELAY
10
#308,aRSR
RE1
N

JSR
BLINIT

BIS
MOV

\N
R(CVR

PC,CLRCBF
RCVR

#307,3R(R
#SILDAT
R4

;CLEAR RCVR MODULE
;SILO OQUTPUT READY?

;JERROR:BD INIT DID NOT CLR SILO
;SILO INPUT RDY?

JERROR:BD INIT DID NOT SET SILO INPUT RDY
JSET 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?

JERROR:SILO INPUT NOT READY

JSET LD SILO BIT
;LOAD 0°'S INTO SILO
;CLR LD SILO BIT
;SILO OUTPUT RDY?
JWAIT FOR IT

JREAD SILO OUTPUT

;SILO oUTPUT = 0?
;ERROR:PICKED UP BITS IN DATA SILO
;CLR SILO
;JMAKE SURE BUFF IS CLR
;CLR RCVR BOARD
JSET LD SILO BIT
JR4 POINTS

TO DATA FOR SILO

042777
012777
012777
052777
016704
012703
005777
001420
005203
001373
005304
001367

042777
012702
012703
012704
012267
012367
026767
001414
005204
001352
032777
001414

016164

000010

000200
177600
0334c6
040000
012416
177500
016056

040000
033026
033426
177700
012552
012544
012542

RE9:

016146

016106
016106
016102
016064

RE10:

016000

o >

001414

177700

012703
012477
005203
001374
032777

RE1Z:

RE13:

012536

015704

14:35

PAGE 32-1

SEQ 0048

MOV
MOV
INC
BNE
BIT
8EQ
ERROR
SCOPE
BIC
MOV
MOV
8IS
MOV
MOV

#-64. ,R3
(§4)*.iRDDB

;R3 COUNTS WORDS
;LOAD DATA [NTO SILO

RES
lB?g.aRCR

;KEEP LOADING FOR 64 WORDS
JFULL...IS SILO INPUT RDY?

BNE
DEC
BNE
ERROR
SCOPE
8I1C
MOV
MOV

RE11

TST
BEQ
INC

\N8

;CLR LD SILO BIT

#8146 ,3R(CR

;SET RC NPR

DLCON,R&
#177500,R3
aRDB(
RE12
R3
R

RE10A

\N8

;SET UP BYTE COUNT FOR 64 WORDS
;POINT INTERF AT 64 WD BUFFER

;SET UP FOR 2 MS DELAY

;1S BYTE COUNT 0?
JWAITED 2 MS ?
;NO,

KEEP LOOKING

JERROR:NPR NOT COMPLETE AFTER 2 MS

#814 ,aR(R
#SILDAT ,R2
#CMPBUF ,R3

;CLEAR RC NPR
JSET UP _TO CHECK SILO OUTPUT
;R2 © R3 ARE DATA POINTERS

(R2) +,GOOD
(R3)+,BAD
GO?E.BAD

;GET GOOD DATA
JGET SILO DATA
; COMPARE MEM BUFFERS

#-64. R6

BEQ

RE
\N8
RE
Ré
RE13

DATERR
SCOPE
INC
BNE
8IT
BEQ
ERROR
SCOPE

JERROR:FULL SILO STILL RDY FOR INPUT

#807,aR(R

#-128. ,aRDB(
#CMPBUF ,3RDBA

MOV
MOV
MOV

RE14:

000400

18-0CT-78

DATA SILO TEST

017224
017230
017234
017236
017240
017246
017250
017272

30A(1052)

1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949

MACY11

—

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

PCLTST.P1Y

lfi?g.aRSR

\N
RES8

JR4

IS COUNTER

;ERROR:DATA FROM SILO IS WRONG
;DONE

COMPARE?

JYES,SEE

SILO WAS EMPTIED

;ERROR:SILO OUT RDY, BUT SILO SHD BE

EMPTY

CZPLBBO PCL11 STND ALN VO2A

PCLTST.P

1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

12-SEP-78 15:13

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.
017544
017552
017556
017562
017566
017572
017576
017602
017606

017612
017620
017622
017644
017652
017660
017664
017672
017674
017700
017702
017706
017712
017714
017716
017720

RETS:

012702
004767
004767
012702
004767
004767
012702
004767

MOV

JSR
JSR
Mov
JSR
JSR
MOV

JSR

015574

032777
001414

004767
032777
001402
000167
000207
012703
012704
005024
005203
001375
000207

BDINIT

011470
010000

RE16:

012056

176574

RERT:

177700

BIT
BEQ
ERROR
SCOPE
BDINIT
JSR
BIT
BEQ
JMP
RTS

CLRCBF: MOV

033426

RECB:

MOV

CLR
INC
BNE
RTS

;CLEAR THE BOARD

RCVR
#64. ,R2
PC,RESR

;PUT 100 (OCTAL) WORDS INTO SILO

JEMPTY IT VIA NPR

PC ,REEMT

#20,R2

;PUT 20 (OCTAL) WORDS INTO SILO

PC.RESR
PC.REEMT
#60,R2
PC.RE§R

JEMPTY IT AGAIN

;PUT 60 (OCTAL) WORDS INTO SILO
:
MAKING A TOTAL OF 200 IN WHILE

;

#303,aR(R
RE16
\N

RE1S

THERE IS ROOM FOR 20 MORE.

;1S SILO INPUT READY?
;1F NOT, OKAY

JERROR: INPUT READY AFTER A 200 WORD BLOCK

RCVR
PC,MONIT

#R12,aSR

RERT
SLOTST
PC

#-64. ,R3

ACMPBUF
R4
(R4)+

;CHECK SW 12
:STAY IN THIS TEST IF SW 12 =1
;ROUTINE TO CLR BUFFER AREA

RE(CB
PC

JROUTINE TO FILL DATA SILO WITH (RZ2) NUMBER OF WORDS
017722
017730
017732
017740
017742
017744
017752

052777
010203
012777
005303
001373
042777
000207

000200

015464

RESR:

012345

015460

RESRW:

000200

015442

BIS
MOV
MOV

DEC
BNE
BIC

RTS

RZ,R3

#12345,3RDDB

;SET LOAD SILO

;LOAD A WORD
;KEEP TRACK OF # OF WORDS

#807,3RCR

;LEAVE WITH LD SILO CLR

RE SRW

JROUTINE TO EMPTY DATA SILO VIA RC NPR
017754
017762
017770
017776
020002
020006
020010
020012
020016
020020

012777
012777
052777
016704
012703
005203
001376

177600

033426
040000
011750
175000

015376

015440
015434
015416

REEMT:

MOV

MOV
BIS
MoV
REEMT1: MOV
REMTW:
INC
BNE
CLR
DEC
BNE

#-128. ,aRDB(

#CMPBUF ,aRDBA

#814 ,3R(CR
DLCON,R&
#175000,R3
R3
REMTW
aRCR
Ré
REEMT1

;SET BYTE COUNT TO EMPTY SILO
;JPOINT SILO AT DAT BUFFER
;START NPR

;SET UP TO WAIT FOR COMPL
;JWAIT FOR NPR COMPLETION

:CLEAR RC NPR

CZPLBBO PCL11 STND ALN VOZ2A

PCLYST.PN

2007

020022

12-SEP-78 15:13

000207

MACY11 30A(1052)

18-0CT-78

14:35

DATA SILO BLOCK COUNTER TEST
RTS

PAGE 33-1

SEQ 0050

JRETURN WITH SILO EMPTY

C(ZPLBBO PCL11 STND ALN VOZ2A

PCLTST.PT

2009
2010
20N
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030

12-SEP-78 15:13

RSR TEST

18-0CT-78
.SBTTL

14:35

PAGE 34

SEQ 0051

RSR TEST

;RCVR STATUS REG & ERRORS TEST
020024
020032
020040
020046
020050
020072
020100
020106
020114
020116
020140
020146
020154
020156
020200
020206
020214
020222

052777
032777
001014

020000
000100

052777
032777
001014

000200
000200

032777
001414

020000

042777
032777
001414

000200
000200

2034
2035
2036
2037

020262
020270
020274
020302

052777
012703
012777
000240

2039
2040
20«1
2042
2043
2044
2045
2046
2047
2048

020306
020310
020312
020320
020326
027334
020342
020346
020350
020356

005203
001371
012777
052777
012777
052777
005777
001375
032777
001014

2051
2052
2053
2054

020410
020416
020426
020432

012767
017767
026767
001414

033426
015002
011556

2057
2058
2059
2060
2061
2062
2063
2064

020464
020472
020474
020516
020524
020532
020534
020556

032777
001014

0010C0

032777
001014

100000

2038

MACY11 30A(1052)

020304

020200
177774
177777

015354
015350

015310
015302

015240

015202
015174

015124
015116

RSRTST: BDINIT

BIS
BIT

RF1:

RFZ:

RF3:

RF&:

RFS5:

000240

177776
000004
033426
040000
015054

015102
015066
015079
015052

000400

015040

011570
011560
011552

014724

014664

RF6:

RF7:

BNE
ERROR
SCOPE
BIS
8IT
BNE

ERROR
SCOPE

BIT
8EQ

ERROR
SCOPE
BIC
BIT
BEQ
ERROR
SCOPE

BDINIT

RF9:

RF9A:

RF1
\N
RSRTST
#807,3RSR
#807 ,3RSR
RF
2

;SET SUC XFR
;IS SUC XFR SET?

\N
RSRIST

JERROR:SUC XFR DID NOT CLR RCV WD

;ERROR: CANNOT (LR SUC XFR

#813,3RCR
RF3
#B07 ,aRSR
#807 ,3RSR
4
RF
RF3

RCVR

INC
BNE
MOV
BIS
MOV
8IS

R3
RFS
#-2,3RDBC(
#802,aR(R
#CMPBUF ,3RDBA
#8314 ,3R(R
aRDB(
RF7
#808,aRSR
RF8

TST
BNE

JERROR:RCV WD DID NOT SET BUSY

ZERROR:CANNOT SET RSR BIT 07

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

NOP
NOP

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

\N
RF1

8IS
MOV
MOV

BIT
BNE
RF8:

RCVR

#813,3RCR
#806,aRSR

;IS RCV WD CLR?

;CLR SUC XFR
JSEE IF IT CLR'D

:CLEAR THE BOARD

;SET LD SILO & RCV WD
JMOVE 4 =1'S INTO SILO

;SET BYTE COUNT FOR 1 WORD
;SET INH ADDR INC
;POINT NPR

:START NPR

TO MEM BUFF.

;BYTE COUNT = 0?
2SILO OUTPUT RDY?

\N
RFé
#(MPBUF
, GOOD
aRDBA ,BAD

JERROR:SILO SHOULD NOT BE EMPTY

DATERR
SCOPE
8IT

\N
RF4
#809,aRSR

JERROR:RCR BIT 2 DID NOT INH ADR INCREMENT

ERROR
SCOPE

\N
RF&

;ERROR:RDB(C =0, SILO NOT EMPTY, BUT BC OFfL

ERROR
SCOPE

MOV
MOV
CMP
BEQ

BNE

BIT
BNE

ERROR
SCOPE

6GOOD ,BAD
RF9

RF 9A

#B15,aRSR
RF10
\N
RF4

;BYTE ADDRESS SHD NOT
;JREAD BYTE ADDRESS
JSAME AS BEFORE?

INCREMENT

;1S BYTE COUNT OFL SET?

;1S RSR BIT 15 SET?
JIF YES, (HECK FOR INTR REQ
;ERROR:BYTE COUNT OFL DID NOT SET RSR BIT 15

¥4

PCl

(2PLBBO PCL11 STND ALN VO2A
PCLTST.P1
12-SEP-78 15:13
020564
020572
020574
020616
020624
020632
020640
020646
020654
020656
020700
020706
020714
020716
020740
020746
020754
020756
021000
021006
021012
021020
021026
021030
021052
021060
021066
021070
021112
021120
021124
021132
021140
021142
021164
021172
021200
021202
021224
021232
021236
021244
021252
021254
021276
021304
021312
021314
021336

032777
001414

052777
052777
032777
001014

020000

020000
002000
002000

032777
001014

100000

032777

020000

001414

005077
052777
032777
001014

014404
004000
004000

032777
001014

100000

005077
052777
032777
001014

014272

032777
001014

100000

010000
010000

005077
052777
032777
001014

014160
020000
020000

032777
001014

100000

MACY11

30A(1052)

014622

RF10:

014554
014550
014542

014502

016440

014376
014370

014330

014264
014256

014216

014152
014144

014104

RSR

TEST

RF11:

18-0CT-78
BIT

8tQ
ERROR
SCOPE
BDINIT
BIS
BIS

BIT
BNE
ERROR

RF12:

RF13:

RF14:

RF15:

RF16:

RF17:

RF18:

RF19:

SCOPE
BIT

BNE
ERROR
SCOPE
8I7
8taG

ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
CLR
BIS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
CLR
8IS
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE

14:35

#8313 ,3R(R
RF11
\N
&
RF

RCVR

#313 3R(R

#810,aRSR
#310,8RSR

RF12
\N
RF11

#315,3RSR
RF13
\N
RF11

#313 3R(R

RF 14
\N

RF11
aRSR

#811,3RSR
#11,3RSR
RF15S
\N

RF 14

#8315, 3RSR
RF16
\N
RF14
aRSR

#312,3RSR
#812,3RSR
RF17
\N
RF16

#815,3RSR
RF18
\N

RF16
aRSR

#513,3RSR

#813,3RSR
RF19
\N

RF18

#815,3RSR
RF 20

\N
RF18

PAGE

34-1

SEQ 0052

;IS RCV WD
JERROR: BC OFL

DID NOT REQUEST

INTERRUPT

JSET RCV WD
JSET TIMEQUT
;1S TIMEOUT SET?
;ERROR: CANNOT SET RSR BIT

;IS ERROR BIT SET”
<ERROR: TIMEOUT DIDN'T

SET RSR BIT

;1S RCV WD CLR?
JERROR: RSR BIT

15 DIDN'1

REQUEST

INTERRUPT

;CLEAR RSR
JSET PAR (PARITY ERROR) BIT

JIS IT SET?

JERROR: CANNOT SET RSR BIT

;1S ERROR BIT SET?
:ERROR: PAR ERR DIDN'T

SET RSR BIT

JCLEAR RSR
JSET TXM ERR

;IS IT SET?

;ERROR: CANNOT

SET RSR BIT 12

;1S ERROR BIT SET?
JERROR: TXM ERR DIDN'T SET RSR BIT 15
;CLEAR RSR
JSET MEM OFL

JIS IT SET?

;ERROR: CANNOT SET RSR BIT 13

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

PCl

CZPLBBO PCL11 STND ALN VOZ2A

PCLTST.PN

12~SEP-78 15:13

MACY11 30A(1052)

RSR TEST

18-0CT-78

14:35

PAGE 35

SEQ 0053

;ERROR GENERATION TESTS
052777
012777
032777
001774
042777
012777
012777
NS2777

000240
000240
005777
001014

032777
001014
032777
001014

021616

004767
032777
001402
000167

000207

000200
177777
000400

014034
014032
014022

000200
177774
164176
040060

014010
0146010

RF20:

BDINIT

RF21:

BIT
BEQ

014004
013766

013764

040000

100000

007552
010000
176206

013720

013660

RF22:

RF23:

RF24:

010140
RFRT:

BIS
MoV

8IC
MoV
MOV
BIS
NOP
NOP
TST
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
BIT
BNE
ERROR
SCOPE
BDINIT
JSR
BIT
BEQ
JMP
RTS

RCVR

#807,3RCR

;CLEAR THE BOARD
JSET LD SILO BIT

#164176 ,3RDBA
#40060,aRCR

;LOAD A WORD INTO SILO
:SILO OUTPUT RDY?
;WAIT FOR IT
;CLEAR LD SILO BIT
JSET BYTE COUNT FOR 1 WD XFER
JPUT NON-EXST LOC IN RDBA
;START NPR AND SET EXT ADD BITS

aRDB(

;1S BYTE COUNT 0?

#-1,3RDDB

#808,aRSR
RF21
#-4 ,aRDBC

RF 22
\N
RF 20
#B14 ,3RSR
RF23
\N

RF 20
#B15,3RSR
RF 24
\N

RF20

RCVR
PC,MONIT

#312,aSR

RFRT
RSRTST
PC

;ERROR:REPLACE #764176 (ABOVE) WITH NON-EXST LOC
;IS NON EXST LOC SET?

JERROR: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

;IS Sw 12 SET?
JYES.REPEAT THIS TEST

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

2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162

2163

2164
2165
2166

2167

2168
2169
2170

30A(1052)

18-0CT-78

INTERRUPT TEST
.SBTTL

c
14:35

S
PAGE 36

SEQ 0054

INTERRUPT TEST

JRECEIVER INTERRUPT TEST
021620
021626
021634
021640
021646
021654
021662
021670
021672
021676
021704
021706
021714
021736
021744
021750
021756

2171
2172
2173
2174
2175
2176
2177
2178
2179

2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
21N
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202

MACYTT

RINTST:

016700
012760
012777
052777

000100

000249
000167

000046

022626
042777

000100

000002
013512
013532

013500

005067
012777

013410
022250

013410

052777
052777
012777
042777
032777
001774

000100
000200
177777
000200
000400

013422
013414
013412
013400
013374

000240
000240
005767
001014

026767
001414

022240
022242
022246

013526
000340
021676

013256

022767
001426

000340

013216

062767
012777
052777
052777

000040
022272
000100
000200

013200
013200
013220

000240
000240
000167

177714

004767
032777
001402
000167
000207

MOV

BIS
MTPS
NOP
JMP

EROINT: MTPS
cMP
8IC
ERROR
SCOPE
RHO:
CLR
RH1:

RH1A:

013316

013272

007122
010000
177352

MTPS
B8DINIT
MOV
MOV

RHZ2:

RH3:

RH3S:

013214

RH4 :
007510
RHRT:

MOV

MTPS
BIS
8IS

MOV
BIC
BIT
BEQ
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

#P7
RCVR
RCVEC,RO
#340,2(RO)

sDIS-ALLOW INTERRUPT
;CLEAR THE BOARD

W#EROINT ,aRCVEC
#806,aRCR
#0

;SET NEW PS = P7
;SET-UP FOR ERROR INTERRUPT
;SET INTERRUPT ENABLE
sALLOW INTERRUPT

RHO
#P7
(SP)+,(SP)+
#806 ,aRCR

;SKIP
RROR IF NC INTERRUPT
s INTERF °OT OFF
;CORREL: STACK
:CLR INTERRUPT ENABLE

;T ISt
N

TMPRIO

#INTRA,SRCVEC
#P7

R INTERRUPT;NO FLAGS SET
: ERRONEOUS
;ERRO
;START WITH CP AT PRIORITY O

#806,aRCR
#807 ,3RCR

;SET VECTOR FOR GOOD INTERRUPT
:INTERRUPT OFF
;ENABLE RCVR INTERRUPT
;SET LD SILO BIT

#807,a3RCR

;CLR LD SILO BIT

#-1,aRDDB

JPUT A WORD

INTO RCVR SILO

#208,3RSR

;SILO OUTPUT READY?

;MQRIO

;NO INTERRUPT;IS PSW = 0?

;7 rsT

;ERROR:NO INTERRUPT FROM RECEIVER

RH1A
TMPRIO

nglo,TMPRIO
H

AT Ist
N

#340,TMPRIO
RH4

JWAIT FOR IT
LALLOW INTERRUPT

JHAVE WE REACHED EXPECTED PRIORITY?

JERROR:DEVICE NOT JUMPERED TO EXPECTED PRIORITY
;IS PSW = 77

RCVR

#40,TMPRIO
#INTRB,aRCVEC

;SET VECTOR FOR ERROR INTERRUPT

TMPRIO

;3ET CP TO NEXT PRIORITY

#806,aRCR
#807,3RSR

JENABLE RCVR INTERRUPT
JFORCE INTERRUPT REQUEST

RH3
RCVR

;CLEAR THE BOARD

#812,aSR

;SW 12 = 1?

RINTST

;YES,DO THIS TEST OVER

PC,MONIT
RHRT

JNOEXIT

(ZPLBBO PCL11 STND ALN VOZ2A
PCLYST.P11
12-SEP-78 15:13
2203

022250
022256
022264
022266
022272
022274
022302
022324
022332

062767
022626
000167

000040

013074

INTRA:

BDINIT
ADD

cMP
JMP

INTRB:

177576

18-0CT-78

INTERRUPT TEST

177664

022626

000167

MACY11 30A(1052)

CMP
BDINIT
ERROR
SCOPE
JMp

D
14:35

5
PAGE 36-1

SEQ 0055

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

sCLR INTERRUPT ETC.
JINCR T:MP PRIORITY
;CORRELT STACK POINTER

(SP)+,(SP)+
RCVR
\N

;PCP THE

RH3S
RH3

;s TRY

AGAIN

STACK

. CLR EVRYTHING
JERROR:GOT INTR WHITH CP AT HIGHER PRIORITY

PCLYST.P11

12-SEP-78 15:13

MACY11 30A(1052) 18-0(T-78 14:3§ PAGE 37
C.R.C.

2214
2215
2216

SEQ 0056

CHECK

.SBTTL

C.R.C.

CHECK

;CYCLIC REDUNDANCY CHECK CHARACTER TEST
052777
012702
012703
012704
011367
016777
011267
017767
026767
001424

0100200
033226
033026
177700
012764
012760
007602
013016
007570

016700
004767

012720
010064

062702
062703
005204
001330
004767
032777
001402
000167

000002
000002

000207

00¢ 642
010000
177610

013042

013020

RCRCTS:

RJT:

007572
007564

BDINIT

BIS
MOV
MOV

MOV
MOV
MOV
MoV

MOV
CMP

BEQ

PNTM

RJ2:

RJRT:

#-64. R4
(R3) ,DATWD
DATWD ,aRDDB
(R2) ,GOOD

;R2 POINTS TO GOOD CRC'S
;R3 POINTS TO MEM DATA
JR4 IS WORD COUNTER

aRDCRC ,BAD
GOOD ,BAD
SLIWD

;PRINT ''SILO INPUT WORD WAS ‘'

RJ2

DATWD ,RO
PC,OCTPNT
\N
RCRCTS
#2,R2
#2,R3
R&
RJ1
PC,MONIT

BEQ
JMP
BDINIT

RJRT
RCRCTS
RCVR

RTS

;CLR THE BOARD
SSET LD SILO BIT

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

MOV
JSR
DATERR
SCOPE
ADD
ADD
INC
BNE
JSR

BIT

007230

RCVR

#807,3RCR
#SILCRC,R2
,R3
#SILDAT

#B12,aSR

;PRINT

SILO

INPUT WORD

:ERROR:BAD CRC FOR ABOVE WORD
;UPDATE CRC POINTER

;JUPDATE DATA POINTER
;HAVE WE CHECKED 64 WDS?

;CHECK SwW 12
JIF 0, EXIT
;IF

STAY

;CLR BOARD BEFORE EXIT

o N

(ZPLBBO PCL11 SIND ALN VO2A

STND ALN VOZ2A
12-SEP-78 15:13

1T
MACY

30A(1052)

XMTR-RCVR LOOP TESTS

14:35

PAGE 38

SEQ 0057

.SBTTL XMTR-RCVR LOOP TESTS

2245

2246
2247
2248
2249
2250
2251
2252
2253

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290

18-0(T-78

;TEST

;

(C0)
(01)
(02)
(03)

000300

022534
0225+4
02¢552
(22556
022564
022566
022574
022602
022610
022612
022614
022620
022624
022632
022636
022642
022646
022652
022656
022664
022666
022672
022674
022700
022702
022706
022716
022722
022726
022732
022736
022742
022746
022750
022754
022760

3 - XMTR - RCVR LOOP TESTS

012767
004767
032777
001424
017767
042767
026727
003012
000241
006167
006167
062767
000177
004767
004767
004767
004767
032777
001003
005367
001361
005767
001027
005267

000010
006576
002000

012550

007156
177770

012530
012522
000003

016700
004767
012700
004767
012700
004767
005000
004767
004767
000207

012414
007654
000040
010034
000102
010024

012516

012504
012500
022636
012466
000120
000710
003236
005520
004000

ST3:

007164

300

MTPS
MOV
JSR
BIT

we7
#10,ITER
PC,MONIT
#310,aSR

MOV
8IC
CMP
BGT

SR, SW!
#-10,SWI
Swl 43
LOOPL

CLC
ROL
ROL
ADD

012472
LOOPL:

007064

TREND:

JMP
JSP
JSR
JSR
JSR
BIT
BNE
DEC
BNE
TST
BNE

INC

012430

010016
010012

BEQ

012430
012446

NPR TESTS SILO TO SILO
DATA LOOPS TESTS
TXM ERRORS TESTS
REJECT & TRUNCATE TESTS

PNTM

MOV
JSR

SWI
SWI
#L00PL,SWI

aSwl
PC ,NPRTST
PC,DATLPS
PC,TXMERS
PC,XRC20
#811,4a5R
TREND
ITER
LOOPL

JCHECK SW 10

;IF CLR, RUN ALL TESTS

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

sDON'T ALLOW SWI > 3
;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
JPRINT END IF SET
;OTHERWISE, RE-ITERATE
JTEST END PASS INHIBIT FLAG

PEND

JPRINT "END PASS # '’

PC,DECPNT

JPRINT PASS NO.

PSNO3

PSNO3,RO

#40,R0
PC,TTO
#'B,R0

CLR
JSR
JSR

RO
PC.TTO
PC.TTO

RTS

JINITIAL ITERATION OF 10 PER PASS

$4FLAG
REPETL

MOV
JSR
MOV
JSR

REPETL:

LOOPL

;LOOP TEST ERRORS START AT 300

PC,TTO

sCAN'T PRINT, EXIT.

;UPDATE PASS NO.

;JPRINT A SPACE

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

;OF

PASS NO.

;RETURN

TO ALLOW PRINT

IN CASE RESET FOLLOWS

(ZPLBBO PCL1T
PCLTST PN

(ZPLBBO PCL11

PCLTST.PT

STND ALN VOCZA

12-SEP-78 15:13

MACY1T

30A(1052)

NPR TESTS

18-0CT~78

.SBTTL

022762
022770
022776
023004
023010

012777
004767
012777
016777

010400
000424
177600
012356
040064
006714
127777
000200

012402
012404
012400
012362

012330

000352

005777
001421
005067
017767

012240
007016

012226

177777

012074

004767

005736

NPR TESTS

;CLEAR RECEIVER
;CLEAR XMTR

MOV
MoV
NPTST1: CLR

#60064 ,aRCR
DLCON,RZ
R3

;START NPR,

INHIB ADDR INC(CR

;SET UP FOR

DELAY

MoV

XRA1:

XRA2:

XRA2A:
007006

#-1,R4

INC
BNE
INC
BNE
DEC
BNE
ERROR
SCOPE
JSR

R3
XRA1
R&
XRA1
R2
NPTST1
\N
NPRTST
PC,CHXDAT

DATERR

CMP
BEQ

B8R

XRAS :

XRA6:

XRAZ2A

NPRTST

CLR

600D

TST
BEQ

DATERR

XRA4 :

#128..,37S8C
XRA?2

SCOPE

MOV

XRA3A:

TSDB,aRDBA

MOV

aRDB(
XRA3

aRDB( ,BAD

;SET MASTER AND AUTO ADDR
JFILL RCVR SILO
:SET UP RCVR TO INITIATE
;NPR TO XMTR SILO

; TRANSFERRED 64 WORDS?
:NO, KEEP LOOKING FOR A SECOND

;ERROR:RCVR NPR NOT COMPLETE IN TIME
;CHECK DATA IN XMTR SILO

;DATA 0.K.

, CONTINUE

JERROR:BAD DATA NPR'D TO XMTR SILO
:CHECK THAT RDBC = 0

SERROR:RCY BYTE COUNT SHD BE O AT END OF NPR

SCOPE

NPRTST

BDINIT
JSR
MOV
MOV
MOV
MOV

RCVR
PC,FILRCV
#-128. ,aTSBC
RDDB,aTSBA
#40064 ,aTCR
DLCON,R2

;CLR RCVR
JFILL RECEIVER SILO
;SET UP FOR XMTR TO INITIATE
;NPR FROM RCVR SILO
;SET TX NPR, INHIB ADR INC

MOV

#-1,R4

:SET UP FOR 1

BDINIT

(LR

TST
8EQ
INC
BNE
INC
BNE
DEC
BNE

ERROR

000116

SEQ 0058

R(CVR
XMTR
#10400,3TMMR
PC,FILRCV
#-128. ,8RDBC

XRA3Z:
000166
177600
012140
040064
006456

PAGE 39

NPRTST: BDINIT
BDINIT
MOV
JSR
MOV

001370
005302
001363
004767
000414

14:35

SCOPE
JSR
BR
DATERR
SCOPE
JSR

XMTR

aTSB(
XRAS
R3
XRA4
R4
XRA4
R2
XRA3A

XRA3
PC,CHXDAT
XRAG
\N
XRA3
PC.MONIT

;CLR

XMTR

SEC DELAY

: TRANSFERRED 64 WORDS?

JIF NOT, WATCH FOR A SECOND

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

;ERROR:BAD DATA NPR'D TO XMTR SILO

CZPLBBOP$%L11 STND ALN VOZ2A

12-SEP-78 15:13

PCLTST.

2348
2349
2350

023416
023424
023426
023432
023434
023440
023446

023554

032777
001402
000167
000207
012700
012777
012701
012077
004567
000005
005301
001371
005077
000207
012702
012701
052777
017767
012167
026767
001005
005302
001365
005077
000207
062716
000772

010000

MACY11 30A(1052)

NPR TESTS

006324

177330
033026
000200
000100
011742
160650

XRART:

011746

FILRCV:

LOLP:

011720
000100
033026
000200
011660
006460
006454

18-0CT-78

8IT
BEQ
JMP
RTS

MOV
MOV
MOV

MOV
JSR
.WORD
DEC
BNE
CLR
RTS

CHXDAT: MOV

011660
006462

MOV

XRCNT:

BIS
MOV

011626

XRLV:

B8NE
DEC
BNE
CLR

000002

XRERXT:

006450

MOV
(MP

RTS

ADD
BR

14:35

PAGE 39-1

SEQ 0059

#312,aSR

;SW 12 =12

NPRTST

JYES,

XRART

PC
#SILDAT
RO

#3807 ,aRCR
#64. R1

(RO) +,aRDDB
gS.DELAY

:NO, EXIT

STAY HERE

JRO IS DATA POINTER

JSET RCVR '1D SILO"

JR1 IS WORD COUNTER
JMOVE WORDS INTO SILO
;WAIT FOR

INPUT RDY

R1
LDLP
aR(R

;LOADED AIL 64 WORDS?
;IF NOT, CONTINUE LOADING
;CLR RCR AND EXIT

#64. R2
#SILDAT
R1

;R2 IS WORD COUNTER

arsps,BAD
(R1)+,G00D
GOO0D ,BAD
XRERXT
R2
XRCNT
aTCR

;POP SILO WORD INTO BAD
;POP LIST WORD INTO GOCD

#807,aTCR

#2,(SP)
XRLV

;R1

POINTS TO GOOD DATA

JSET "RD SILO"" IN XMTR

. IF DATA BAD, ERROR EXIT

;DONE CHECKING SILO?
JNO, CONTINUE
;CLR COMMAND REG
JEXIT
;FIX PC FOR ERROR RETURN

CZPLBBO PCL11
PCLTST P11

2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
23N
2392
2393
23%
2395
2396
2397
2398
2399

STND ALN VOZ2A
12-SEP-78 15:13

MACY11

30A(1052)
18-0(C7-78
DATA LOOPS TESTS
.SBTTL

023556

2400
2401
2402
2403
2604
2405
24606
2407
2408
2409
2410
2611
2412
2413
2414
2415

012777
012777
012777
016777
052777
012777
052777
016704
012703
005777
100427
032777
001020
005203
001367
005304
001363

177777
010400
177776

005777

011460

032777
001013

040009

017700
004767

011410

006514

105777

011352

005777

011322

032777
001010

040000

017700
004767

011274
006420

012767
017767
026767
001414

177777
011272
006052

100030

100433
100014

016767
017767
042767
026767
001414

024244

011530
020000
177776
020000
006102
177500
011536

000400

011600
011600
011606

011552

DATLPS: BDINIT
BDINIT
MOV
MOV
MOV

DATA LOOPS TESTS

XMIR
RCVR
#=1,aTSDB
#10400,aTMMR
#-2 ,aRDBC

:CLR XMTR
;CLR RCVR
;LOAD A WORD INTO TXM SILO
;SET MASTER FLOP & SET AUTO ADDR

135, 3TCR

DTLPST: MOV

#177500,R3

JSET UP 2 MS DELAY

2%
#808,3RSR

SYES
;1S DAT OUTP RDY SET IN RCVR?

MOV

XRB1 -

011526

1%:

2%:

TST

B8M]
BIT

BNE
INC
BNE
DEC
BNE
ERROR
SCOPE
TST

BPL
ERROP
BIT
BNE
PNTM

MOV

XRB2:

005664

006010
006000
005772
005764

SEQ 0060

BIS

BIS
MOV

011530

006064
006054
006046

PAGE 40

;SET BYTE COUNT FOR 1 WORD
;LOAD DESTINATION CODE
;SET RCV WD
sSET XMTR BYTE CNT FOR 1 WORD
;SET SEND WORD

MOV

011564
011544

005760

14:35

XRBS2:
XRB3:

XRB4:

RCAD,aTCR

#813.3RCR
#-2,aTSBC
R4
DLCON,
aRSR

13
R3
XRB1

R4
DTLPST
N
DATLPS
aRSR
XRB2
\N
#814 ,aSR
XRB2
RCSTAT

aRSR,RO

JSR
SCOPE

PC,OCTPNT
DATLPS

ERROR
TST

\N
aTSR

1ST8B
8M]

aTSR
XRB3

BPL
BIT
BNE

XRBS2
#814,3SR
XRBS?2

MOV

@TSR,RO

MOV

#~1,G00D

JSR
SCOPE

TXSTAT

PC,OCTPNT
DATLPS

aRDDB ,BAD
MOV
tMP
GOOD,BAD
BEQ
XRB4
DATERR
\N
SCOPE DATLPS
MOV
TRAD, GOQOD

MOV

aRCR . BAD

M-

GOOD ,BAD

BIC

BEQ
DATERR
SCOPE

#160377,8AD
XRB4(
\N
DATLPS

JANY ERRORS?

JWAIT A COUPLE OF MS FOR

JERROR:DAT OUTP RDY IN RCVR NOT SET

IN 2 MS.

;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

;IS SUC TXF SET IN XMTR?

JERROR:SUC TXF IN XMTR NOT SET IN 2 MS.
;ANY HARD ERRORS?

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

;IF SO, PRINT '‘TRANSMITTER STATUS - *'
JPRINT CONTENTS OF

TSR

;CHECK DATA RECEIVED
;IS IT 0.K. ?

;ERROR:DATA RECEIVED IS WRONG (DROPPED BITS)
;GET TRANSMITTER TDM BUS ADDRESS
JREAD IDENT BITS IN RCR
;IGNORE ALL OTHER BITS
;D.C. RECEIVED OK?
JERROR:XMTR IDENT BITS NOT REC'D BY RCVR

2441
2442
2443
2644
2445
2446
2447
2448
2449
2450
2651
2452
2453
2454
2455
2456

024412
024420
024424
024426
024450
024456
024460
024470
024474
024500

024506
024512
024514
024536
024542
024544
N24552

024574
024564
024570
024574
024602
024606
024614
024622
024624
024646
024654
024660
0246666
024674
024702
024710
024716
024724
024732
024740

016704
012703
005777
100427
032777
001020
005203
001367
005304
001363

b
b

nNOONNO
S

—d

MOV

XRBS:

011040

040000

017700
004767

010722
006026

105777

010664

005777

010634

032777
001010

040000

017700
004767

010606
005732

005067
017767
026767
001414

005400
010606
005366

004767

173022

0nW’77
012777
012777
012777
016777
052777
052777

033026
033426
177600
177600
010420
060001
060001

1$:

005272

2%:

010502
010514
010464
010476

010442
010454
010426

RCAD,@TCR

JPOINT XMTR AT RCVR

#-2 .aRDBC

BIT
BNE
INC

#F308, 3RSR
18
33

;DATA OUTPUT READY YET?

DL CON, R4

aRSR
2%

XRBS

DEC

ERROR
SCOPE

N
XRB4C

XKQ4D

aRSR

ERROR
BIT

\N
#814,aSR

PNTM

RCSTAT

8PL

XRB6

MOV
JSR
SCOPE
TSTB
8MI

aRSR, RO
PC,OCTPNT
XRB4(
@TSR
XRB7

BPL

XRB6S

BIT

XRB8:

#-2,aTSBC

JLOAD A WORD OF 0°'S INTO SILO
;SET BYTE CNT FOR 1 WORD

#0,3TSDB

;SET UP 2 MS DELAY

PNTM

005370
005362

;CLR XMTR
;CLR RCVR

#177570.R3

TST
8hi

BNE
XRB6S:
XRB7:

XMTR
RCVR

SEQ 0061

MOV

A0V

ERROR
ST

005176

5
PAGE 40-1

#813.3R(R
#813.aTCR

BNE

XRB6:

J
14:35

BIS
B1S

BNE

032777
001013

100014

MOV

BNE

010772

100433

000400

BDINIT
B8DINIT

MOV

XRB4D:

011050

005777
100030

012777
012777
012777
016777
052777
052777

=D —d

XRB4C:

024252
024260
024266
024274
024302
024310
024316
024324
024332
024336
024342
024346
024350
024356
024360
024362
024364
024366
024370

18-0CT-78

DATA LOOPS TESTS

—

2433
2634
2435
2636
2437
2438
2439
2440

MACY11 30A(1052)

—b

PCLTST P11

STND ALN VOZ2A
12-SEP-78 15:13

[elelelolalel

(ZPLBBO PCL11

\N
aTSR

#3814, aSR

XRB6S

TXSTAT

MOV
JSR

aTSR,RO
PC,OCTPNT

MOV
(MP

3RDDB, BAD
GOOD ,RAD

SCOPE
CLR

BEQ
DATERR
SCOPE
JSR
BDINIT
BDINIT
MOV
MOV
MOV

MOV

BIS
BIS

XRB4C
GOOD

XRB8
N
XRB4C
PC,CLRCBF
XMiR
RCVR
#SILDAT,aTSBA
#CMPBUF
. 3RDBA
#-128. ,3TSBC

JSET RCV WD

;SET SND WD
;ANY ERRORS?
;YES, ERROR

JWAIT A COUPLE OF MS FOR IT

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

IN RCVR?

JERROR:HARD ERROR ON 1 WD XFER
;CHECK IF PRINT ALLOWED
;IF NOT, SKIP IT.

;1IF SO, PRINT ‘RECEIVER STATUS = "’
;PRINT CONTENTS OF

RSR

;1S SUC TXF SET IN XMTR?

;ERROR:SUC TXF IN XMTR NOT SET IN 2 MS.
JANY HARD ERRORS

IN XMTR?

JCHECK IF PRINT ALLOWED
;IF NOT, SKIP IT
;IF SO, PRINT "'TRANSMITTER STATUS = '
JPRINT

CONTENTS OF

TSR

;CHECK DATA RECEIVED
;IS IT 0.K.?

JERROR:DATA RECEIVED IS WRONG (PICKED UP BITS)
sMAKE SURE CMPBUF

;CLR
:CLR
;GET
;PUT

IS CLEAR

XMTR
RCVR
XMTR DATA FROM SILDAT
RCV'D DATA IN CMPBUF

RCAD,aTCR

;SET UP TO SEND 64 WORDS
;SET UP TO RECEIVE 64 WORDS
JPOINT XMTR AT RCVR

#60001.3TCR

JAND IN XMTR

#-128.
. aRDBC

#60001,3RCR

:SET RC NPR, RCV WD, & ST TXF

IN RCVR

(ZPLBBO PCL11

PCLTST.PNN

2489
2490
24N

2492
2493
26494
2495

2496
2497
2498
2499
2500
2501
2502

2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516

024746
024752
024754
024760
024764
024766
024772
024774
025000
025002

STND ALN VOZ2A
12-SEP-78 15:13
016702
005003
012704
105777
100447
005777
100411
005777
100444

MACY11 30A(1052)

DATA LOOPS TESTS

005000

XRB8A:

*ERROR BIT

010416

2§§R

:RCVR ERROR BIT

R3
XRB9
R4
XRB9

:NO, WATCH FOR A SECOND

XRB9:

XRB10

*YES, GO CHECK RECEIVER
SET?

SET?

040000

017700
004767

010304
005430

105777

010306

005777

010256

032777

040000

017700
004767

010230
005334

012703
012701
012702
012167
012267
026767
001420

000100
033026
033426
004766
004760
004756

XRB8A
\N

$20%:

aTSR

XRB9S

004674

XRB9S:
XRB10:

PgégCTPNT

:PRINT CONTENTS OF

aRSR
XRB11
\N
aRSR

XRB10S

004600

004752

:PRINT CONTENTS OF

000004

012777
012777
016777
012777

035442

XRB12:
177200

010014
020001
060005

010062
010052
010036
010050
010022

BDINIT
BDINIT
MOV
MOV
MoV
MOV

8IS

RSR

:R3 IS WORD COUNTER

#CMPBUF _R2
(R1)+,G0OD
(R2) +.BAD
GOOD ,BAD

‘R2 IS 'BAD'DATA POINTER

XRB11C

XRB11C:

*IF NOT, SKIP IT
*IF SO, PRINT ‘RECEIVER STATUS = '

#64. ,R3

\N
R3

000167
005303
001346

;1S SUC TXF SET IN RCVR?
*YES, GO CHECK DATA
;ERROR:NO SUC TXF IN RCVR IN 1 SEC
:ANY HAFD ERRORS IN RCVR?

PgégCTPNT
#SILDAT.R1

XRB11L:

TSR

;CHECX IF PRINT ALLOWED

SEC

“IF NOT, SKIP IT
*IF SO, PRINT '‘TRANSMITTER STATUS - *°

#8146 ,aSR
XRB10S
RCSTAT
aRSR,RO
XRB10S:
XRB11:

IN XMTR IN 1

SANY HARD ERRORS IN XMTR?

<CHECK IF PRINT ALLOWED

$3%:

:ERROR:NO SUC TXF

#3714, aSR
XRB9S
TXSTAT
aTSR,RO

005303
001355

052777

g%CON,RZ

010404

032777
001010

001010

SEQ 0062

?;i“

010332

100014

5
PAGE 40-2

SSET UP 1 SEC DELAY
1S SUC TXF SET IN XMIR?

005777

100433

MOV
CLR

K
14:35

#-1,R4
aTSR

177777
010412

005203
001365
005204
001363
005302
001356
100014

18-0CT-78

XRB11L
XRB8
XRB12
R3
XRB11L

‘R1

IS GOOD DATA POINTER

:DATA WORD OK?

*IF SO, CONTINUE

:ERROR:BAD DATA RECEIVED FROM XMTR
:CHECKED ALL WORDS?

:RE-TRY BECAUSE OF ERROR
:CHECKED ALL WORDS?

XMTR
RCVR
ATSTWRD ,aTSBA

:CLR XMTR
*CLR RCVR
*POINT XMTR AT LOC WITH TEST WORD

RCAD,aTCR

"POINT XMTR AT RCVR

#-600,a7SBC

#20001,aRCR

#60005,8TCR

*SET UP FOR 300 WORD XFR

*SET RCV WD, RCV DAT, IN RCVR
;SET TX NPR,

INH ADR INC,

ST TXM,ESND WD

(ZPLBBO PCL11 STND ALN VOC2A
PCLTST.PN
12-SEP-78 15:13

2545
2546

025352
025356

012701
016704
012703
032777
001063

30A(1052)

010022

: MOV
XRB12L
XRB12K: MOV
XRB12M: BIT

000300
004370
177700

000400

18-0CT1-78
DATA LOOPS TESTS

MACY11

MOV

BNE
INC
BNE
DEC
BNE
ERROR
TST
BPL
BIT
BNE

005203
001372

005304
001366

005777

100014
032777
001034

017700
004767
005777
100010

040000

004304

PNTM
MOV

007714
005040
007724

XRB12R:

017700
004767

012700

000300

004767

004770

016767
017767
026767
001431

007672
007642
004422

004434
004424
004416

032777
001011

040000

004130

012700

000301

004767

004662

160100

005301
001240
016704

012703
005203
001376

105777

100435
005304
001367

XRB127T:

032777
001010

040000

017700

007416

BPL
PNTM
MOV
JSR
PNTM
MOV
suB

PNTM
MoV
suB
JSR
SCOPE
DEC

BNE
MOV
XRB13E: MOV
XRB13D: INC
BNE

007500

007444

JSR
TST

JSR
XRB12S: SCOPE
XRB13:
MOV
MOV
(MP
BEQ
DATERR
BIT
BNE

XRB13L:
XRB13(:

004070
177000

005777
100014

025742
025744
025754

007742

1ST8
BMI
DEC

BNE
ERROR

004006

TST
BPL

BIT
BNE

PNTM
MoV

14:35

PAGE 40-3

SEQ 0063

#300,R1
DLCON.RG
#-100.R3

:R1

z§s13

SYES, LOOK AT WORD

#5808 aRSR
55812"

XRB12K
\N

aTSR

XRR12R

COUNTS WORDS RECEIVED

:SET UP 10 MS COUNTER

*RCVR SILO RDY FOR OUTPUT?
SIF NOT, WAIT 10 Ms.

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

IN XMTR?

#8714 ,aSR

:CHECK IF PRINT ALLOWED

PC.OCTPNT

:PRINT CONTENTS OF

XRB12T
RCSTAT
aRSR,RO

:IF

XRB12S
TXSTAT
aTSR,RO

aRSR

PC.OCTPNT

RCBTCN

#300,R0
R1.R0

PC.OCTPNT

XRB12

TSTWRD
, GOOD
aRDDB, BAD

GOOD ,RAD

XRB13C
\N

#8146 ,3SR
XRB13L
RCBTCN

#301,RO
R1.R0
PC.OCTPNT

XRB12

XRB12L
R4
DLCON,
z}??OOO,RS

XRB13D

aTSR
g§B14

XRB13E

\N
aTSR
XRB13S
#814 3SR

XRB13S

TXSTAT
aTSR,RO

“IF NOT, SKIP IT
“IF SO, PRINT ‘‘TRANSMITTER STATUS =
TSR

*ANY HARD ERRORS IN RCVR?
SO, PRINT 'RECEIVER STATUS =

:PRINT CONTENTS OF

RSR

*PRINT "NO. OF WORDS RECEIVED =
; CALCULATE WORDS RECV'D

*PRINT RESULT

“START ALL OVER
:GET WORD FROM SILO
‘WAS IT = TEST WORD?
;ERROR:DATA WORD IN RCVR SILO WRONG

:CHECK IF PRINT ALLOWED

SIF NOT, SKIP IT.
*PRINT “NO. OF WORDS RECEIVED - *°
:CALCULATE WORDS RECV'D
"PRINT RESULT

*START ALL OVER

"UPDATE 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

SERROR:XMTR SUC TXF NOT SET
SANY HARD ERRORS IN XMTR?

:CHECK IF PRINT ALLOWED

$IF NOT, SKIP IT.
“1F

SO, PRINT ‘'TRANSMITTER STATUS =

CZPLBBO PCL11 STND ALN VO2A

PCLTST.PN

2601
2602

2603
2604
2605

2606

025760
025764

025772
025776
026000

026022

12-SEP-78 15:13

004767

004542

105777
100433

007420

005777

007370

026026
026030
026036
026040
026050
026054

100014
032777
001010

017700
004767

007342
004446

2614
2615

026066
026072

004767
032777

003262
010000

2617
2618

026102
026106

000167
000207

175450

2607
2608
2609
2610
2611
2612

2616

026100

001402

040000

MACY11 30A(1052)

18-0CT-78

DATA LOOPS TESTS

XRB13S:

XRB14:

JSR

PC,OCTPNT

71ST8B

aRSR

ERROR

SCOPE

BMI

TST

003712

003650

XRB14S:
XRB15:

XRBRT:

XRB12

XRB15

aRSR

8PL
BIT
BNE

XRB14S
#814,3SR
XRB14S

MOV

aRSR,RO

PNTM

RCSTAT

JSR
SCOPE
JSR

PC,OCTPNT
XRB12
PC ,MONIT

BEQ
JWP
RTS

XRBRT
DATLPS
PC

BIT

14:35

#812,3SR

PAGE 40-4

SEQ 0064
JPRINT CONTENTS OF

s START OVER
JRCVR SUC TXF SET?
JYES,

ALL

TSR

DONE

JERROR:RCVR SUC TXF NOT SET
JANY HARD ERRORS

IN RCVR?

;JCHECK [F PRINT ALLOWED

JIF NOT, SKIP IT.

;IF SO, PRINT 'RECEIVER STATUS - *'
JPRINT CONTENTS OF RSR
;START OVER

JSW 12 =12
JNO, EXIT
JYES, DON'T EXIT

PCl

(ZPLBBO PCL11

PCLTST.PT

STND ALN VO2A
12-SEP-78 15:13

MACY1T

18-0CT-78

16:35
TRANSMISSION ERRORS TESTS

30A(1052)

.SBTTL
JTEST

PAGE 41

TRANSMISSION ERRORS

TG CKECK FOR RCVR

SEQ 0065
TESTS

TIMEOUT.

;OPEN CHANNEL, THEN DON'T SEND ANY DATA FOR
;3 SECONDS.
026110
026116
026124
026132
026140
026146
026154
026162
026170
026174
026176
026202
026210
026212
026214
026216
026220
026222
026224
026226
026250

TXMERS:

052777
012777
012777
016777
052777
052777
016702
005003
012704
032777
001022
005203
001372
005204
001370
005302
001363

007254
007242
007232
007220
007232
007204
177775
002000

TXMR1:

007206

XR(C1:

BDINIT

BDINIT
8IS
MOV
MOV
MOV
BIS
8IS
MOV
(LR
MOV

817

BNE
INC
BNE
INC
BNE
DEC
BNE
ERROR
SCOPE

JTEST

XMTR
RCVR
#10400,8TMMR
#-4 ,9TSBC
#-1,37SD8
RCAD,aT(R

:CLR ¥MIR
:CLR RCVR
;SET MASTER & AUTO ADDR
;INDICATE 2 WD XFR
JPUT 1 WD IN XMTR SILO
:POINT XMTR AT R(VR

R3
#-3 R4

:SET UP 1

#813,3R(R
#13_3TCR
DLCON,R2

;SET RCV WD
:SET SND WD

lggg.ansn
X

R3
XR(1

R&
1
XR(
R2
TXMR1

TXMERS

TO DETERMINE

SEC DELAY

;IS RCVR TIMEOQUT SET?
JIF NOT, WAIT

ERROR:NO TIMEOUT

3 SEC FOR

IN 3 SEC WITH NULL ON INPUT

THAT ADDRESSING RCVR AND GENERATING A NULL

JCYCLE FIRST PROPERLY GENERATES CORRECT RESPONSE CODES
JAND

THAT

THE RECEIVER DOES NOT RESPOND.

;CHANNEL S OPENED B8Y POPPING A WORD FROM XMTR SILO.
026256

XR(CZ:

012777
016777
012777
052777
052777
004567
000010
005777
042777
016704
012703
005203
001376
005304
001372
012767
017767
042767
026767
001414

177774
007044

177777

000200
020001
155776

007102
007066
007064
007052
007064

000000
007014
177760
003570

XRC2D:
XRC2A:

003610
003600
003572
003564

XMTR
RCVR
#-4,ATSBC
RCAD,3TCR
#-1.375DB

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

#813+800,aRCR
qg.DELAV

“SET RCV WD AND RCV DATA
SWAIT FOR WORD TO HIT BOTTOM

8IC

#807.aT(R
DLCON, R4

TST

007024
177757

BDINIT
BDINIT
MOV
MOV
MOV
8IS
8IS
JSR
. WORD

MOV
INC

#807,3TCR

SSET RD SILO

aTsps

:POP WORD OUT

z}???é?,ks

;SET UP TO STALL 100 US.

gzczA

;STALL

XRC2D
#0,GOOD
aRSR ,BAD

;CHK RESPONSE CODES IN RCVR

Gg?g,BAD

;RSP CODES = 00 & 00 2

#177760,BAD
X

*CLR RD SILO

(WAIT FOR TIME SLICE

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

2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693

2694
2695
2696
2697
2698
2699
2700

026422
026444
026452
026460
026466
026474
026502
026504
026526
026534
026542
026544
026566

MACY11 30A(1052)

18-0CT-78

TRANSMISSION ERRORS TESTS

DATERR

012767
017767
042767
026767
001414

032777
001414

000001
006712
177760
003506

010000

B
14:35

003526
003516
003510
003502

006654

XRC3:

SCOPE

MOV
MOV

#1,G00D
aTSR,BAD

BIC
cMP

#177760.BAD
GOOD ,BAD

SCOPE
BIT
BEQ

XRC?2
#812,3RSR
XRC5

SCOPE

XRC?Z

BEQ
DATERR

XRC4:

XRC2

ERROR

PAGE 41-1

SEQ 0066

;ERROR:RESPONSE CODES AT RECEIVER WRONG

;CHECK RESPONSE CODES IN XMTR

;RSP CODES = 00 & 01 ?

XRC&
\N

JERROR:RSP CODES AT XMTR WRONG

;IS RSR BIT 12 (TXM ERR) SET?
;ERROR:RCVR SHOULD NOT BE ADDRESSED
JUPON OPENING A CHANNEL WITH INVALID WORD

;TEST TO DETERMINE THAT CHANNEL OPEN CAN BE ACHEIVED LEGALLY

JAND THAT, ONCE ACHIEVED, KNOCKING DOWN THE TRANSMITTER BY
JFAKING A XMTR TXM ERROR CAUSES THE CORRECT RESPONSES AND
;CAUSES A RECVR TXM ERROR.
026574
026002
026610

026702
026704
026726
026734
026742
026744
026766

026774

027076

XRCS:

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

001014

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

177774
177777

006520
177777
020000
020000
003072

177500
000010

006564
006554
006542
006540
006546
006520
006516

BDINIT
BDINIT
MOV
MOV
MOV
MOV

XMTR
RCVR
#=4 ,aTSBC
#-1.3TSDB
RCAD,®TCR
#-1,3TSDB

BIS

#813.3TCR

MOV
BITB
BNE
INC
BNE

#177500,R3
#803.aTMMRH
XRC6A
R3
XRC6

BNE

XRCSA

BIS

XRCSA:
XRC6:

MOV

DEC

000020

010000
002744

006454

006374

003136

XRC7:

XRC7D:

177757

0000V4
006362
177760

XRC6A:

XRC7A:

003156
003146
003140
003132

ERROR
SCOPE

#813,3RCR
R4
DLCON,

\N
XRCS

#804 ,3RSR

ERROR
SCOPE

\N
XRC5

XRC?7

BIS
MOV

#812,aTSR
DL CON,R&

INC

MOV
BNE

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

;ERROR:CANNOT GET °'‘CHANNEL OPEN'' IN RCVR
;JKNOCK DOWN THE XMTR

sSTALL (WAIT FOR TIME SLICE)

3RSR,BAD
#177760,BAD

BEQ

XRC8

SCOPE

WAIT A BIT

XRC7A

MOV
BIC

DATERR

;SET UP FOR DELAY
;CHECK FOR CHANNEL OPEN

;SET UP TO STALL 100 UsS,

Ré

CMP

;LOAD A WORD INTO XMTR SILO
;POINT XMTR AT RCVR
;LOAD 2ND WORD
;SET RCV WORD
;SET SND WORD

#177757 ,R3

DEC

BNE

;SET UP FOR 2 WD XFR

BITB

BNE

;CLR XMTR
:CLR RCVR

XRC7D

GOOD ,BAD

XRCS

JARE RESPONSE CODES = 01

;ERROR:RCVR RSP (CODES WRONG

& 00 ?

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

2732
2733

2734
2735
2736

027104
027112
027114
027136

032777
001014

010000

30A(1052)

006304

XR(8:

2737

2738
2739
2740
2761
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760

2761
2762
2763
2764
2765
2766
2767
2768

C
14:35
18-0CT7-78
TRANSMISSION ERRORS TESTS

MACY11

BIT
BNE
ERROR
SCOPE

PAGE 47'-2

#812,3RSR
XRC9
\N

XRC5

sTEST TO DETERMINE

SEQ 0067

;IS RSR BIT 12 (TXM ERR) SET?
JERROR:XMTR OFF LINE WHILE CHAN OPEN
sDIDN'T SET RCVR TXM ERR

INCORRECT CRC WILL CAUSE A CHECK=-FAIL

SAND GENERATE CORRECT RESPONSES IN RCVR AND XMTR THEREBY CAUSING
; TRANSMISSION ERRORS IN BOTH.

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

XR(C9:

012777
012777
012777
012777
012777
016777
052777
052777

177772
177777
000002
177772
177775
006126

105777
100375

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

017767
042767
026767
001414

032777
001014
032777
001014

006214
006204
006176

006212
006162
006150
006162
006134
006120
006106
006120
006116
006104
006060
006072
006062
006034

000013
006024
177760
002600

005730
177760

002524

010000

002620
002610
002602
002574

002534
002526
002520

005652

005632

XRC10:

BDINIT
BDINIT
MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS
TSTB

8PL
8iS
TST
BIC
BIS
MOV
BIC
BIC
8IC
8IS
BIS
MOV
XRC10B: MOV
XRC10A: INC
BNE
DEC
BNE
MOV
MOV
8IC
cMP
BEQ
DATERR
SCOPE
XRC11:
MOV

XRC12:

XRC13:

BIC
P
BEQ
DATERR
SCOPE
BIT
BNE
ERROR
SCOPE
8IT
BNE

XMTR

RCVR
#-6,3TSBC
#-1.aTSDB
#2.3TSDB
#-6, aRDBC

;CLR XMTR
;CLR RCVR

JSET UP FOR 3 WD XFR

;LOAD A WORD INTO XMTR SILO
;LOAD 2ND WORD INTO XMTR SILO

#-3.3TSDB

;LOAD 3RD WORD INTO XMTR SILO

#813.3RCR
#813.3TCR

;SET RCV WD
;SET SND WD
;WAIT FOR SUC TXF

RCAD,aTCR

aTSR

XRC10
#807.aTCR
aTSDB

#807.3TCR
#807.3RCR

#14,3RDDB

#807,aRCR

;POINT XMTR AT RCVR

;SET XMTR RD SILO

;POP A WORD FROM SILO

:CLR RD SILO
;SET RCVR LD SILO

;LOAC DIFFERENT 2ND WORD
;CLR LD SILO
;CLR SUC TxF

#807.3TSR
#807.3RSR
#800.aRCR
#800.aTCR
R4
DLCON,
#177000,R3

;SET RCV DATA
JSET ST TXM

XRC10A

;STALL (WAIT FOR LAST 2 WORDS)

XRC108
#13,G00D
aRSR,BAD

;CHECK RCVR RSP CODES

GOOD ,BAD

JARE RSP CODES = 10 8 11 ?

R3
R4

2177760 ,BAD
XRC11
N

XRC9

;SET UP TO STALL

;ERROR:RCVR RSP CODES WRONG

aTSR,BAD

#177760,BAD
GOOD ,BAD

XRC12
\N

XRC9
#812,aTSR

XRC13
\N

XRC9

#812,3RSR
XR(14

;ERROR:XMTR RSP CODES WRONG

;IS TXM ERR SET IN THE XMTR ?
JERROR:XMTR TXM ERR NOT SET WITH INVALID DATA
;IS TXM ERR SET IN THE RCVR?

2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803

STND ALN VO2A
12-SEP-78 15:13

30A(1052)

18-0(T-78

14:35

TRANSMISSION ERRORS TESTS

PAGE 41-3

SEQ 0068

JERROR:RCVR TXM ERR NOT SET WITH INVALID DATA

\N
XRC9

ERROR
SCOPE

027566
027610

;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 FilLLING UP THE

JRECVR SILO,

027616
027624
027632
027640
027644
027650
027654
027656
027660
027666
027674
027702
027710
027716
027724
027732
027736
027742
027744
027746
027750
027752
027760
027766
027774

XRC14:

052777
012703
012704
012477
005303
001374
016777
042777
012777
012777
012777
052777
052777
016704
012703
005203
001376
005304
001372

012767
017767
042767
026767
001414

032777
001014

000200
000100
033026
005544

005554

005464
000200
177777
177774
177777
020001
020001
002014
177000

005506
005520
005476
005472
005462
005470
005442

XRC15:

THEN TRYING TO SEND A WORD FROM XMTR TO RCVR.

BDINIT
8DINIT
BIS
MOV
MOV
MOV
DEC
BNE
MOV
BIC
MOV
MOV
MOV

XMTR
RCVR
#807.3RCR
#64. .R3
#SILDAT
R4
(R4)+,3RDDB
R3
XRC15
RCAD,@TCR
#807.@RCR
#-1,aTSDB
#-4 aTSBC
#-1.3TSDB

BIS

#813+800.aTCR

BIS

MOV
XRC158: MOV
XRC15A: INC

BNE

DEC

000006
005412
177760
002206

010000

BNE

002226
002216
002210
002202

005334

;TEST

DL CON,R&
#177000.R3
R3

XRC15A
R4

XRC158

;POINT XMTR AT RCVR

;CLR LD SILO IN RCVR

;LOAD A WORD INTO XMTR SILO

sSET UP TO XFR 2 WDS
;LOAD 2ND WORD INTO XMTR SILO
;SET RCV WD & RCV DATA
SET SND WD & ST TXM
;SET UP TO STALL

;STALL (WAIT FOR TIME SLICE)

MOV
MOV

#6,G00D
aTSR,BAD

;JCHK TXM RSP CODES

cMP

GOOD ,BAD

;ARE THEY 01

8I1C

XRC16:

#815+800,3RCR

SSET LD SILO IN RCVR
;R3 IS WORD COUNTER
JR4 IS CURRENT ADDRESS
sFILL UP RCVR SILO
SFULL?

BEQ
DATERR
SCOPE
BIT
BNE
ERROR
SCOPE

#177760 ,BAD
XRC16
\N
XR(C14
#812,3TSR
XRC17
N
XRC14

TO DETERMINE

& 10 ?

;ERROR:XMTR RSP CODES WRONG

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

WITH CHANNEL OPEN,

THE RECVR IS KNOCKED DOWN

;THE CORRECT RESPONSE CODES ARE GENERATED AND THE XMTR
;GETS A TXM ERROR.

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

030074
030102
03C110
030116

030124
(030132
030140
030146
030154
030162

XRC17:

012777
012777
012777
016777
052777
052777
132777
001774

177777
177774
177777

005262
005256
005246
005234
005246
005220
005226

BDINIT
BDINIT
MOV
MOV

XMIR
RCVR
#-1,aTSDB
#-4
. 3TSBC

MOV

PCAD,aTCR

BEQ

XRC18

MOV

XRC18:

8IS
81S
BITB

#-1.aTSDB

#813.3RCR
#813.aTCR
#B03.aTMMRH

sLOAD A WORD INTO XMTR SILO

;SETUP FOR 2 WD XFR
;LOAD 2ND WD INTO XMTR SILO
;POINT XMTR AT RCVR

sSET RCV WD
;SET SND WD

;1S CHANNEL OPEN SET?
SWAIT FOR

e X

CZPLBBO PCL11

PCLTST.PIN

MACY 11

CZPiBBO PCL11

PCLTST P11

STND ALN VOZ2A
12-SEP-78 15:13

030164
030170
030174
030176
030200
030202
030204
930212
030216
030222
030224

030264
030306
030314
030322
030324
030346
030354
030360
030366
030370
030374

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

001562

002000
001534
177000

18-0CT-78

E
14:35

TRANSMISSION ERRORS TESTS
MOV

BNE
DEC
BNE
B1S

005204

Mov

XRC18Y: MOV
XRC18A: INC
BNE

DLCON,RS
#17700C
,R3
R3

000001
005132

177760

032777
001014

010000

000774
010000
175514

001362

PAGE 41-4

SEQ 0069

;DELAY FOR SYNC

XRC18L

XRC18X
#810,3RSR
DLCON,R4

#177000,R3

;KNOCK DOWN RCVR WITH TIMEOUT

sSET UP FOR STALL

;STALL (WAIT FOR T'ME SLICE)

BNE

001746
001736
001730
001722

005054

Ré

DEC

001726

000167
000207

30A(1052)

XRC18X: MOV
XRC18L: INC

177000

026767
001414

004767
032777
001402

Y
MACT

XRC19:

MOV
MOV
8IC
W
BEQ
DATERR
SCOPE

BIT
BNE
ERROR
SCOPE
XRC19A: JSR
BIT
XRCRET:

BEQ
JMP
RTS

#177760 ,BAD
GOOD ,BAD
XRC19
\N
XRC17
#B812,aTSR
XRC19A
\N

XRC17

PC,MONIT

#B12,3SR
XRCRET
TXMERS

;CHECK TXM RESP CODES
JARE

THEY 00 & 01

sERROR: XMTR RSP CODES WRONG

;IS TX ERR SET IN XMTR

-ERROR: XMIT TO OFFLINE RCVR DIDN'T

;CAUSE TXM ERR IN XMTR

;IS SW 12 SET?
;NO, EXIT
JYES,

STAY HERE

CZPLBBO PCL11
PCLTST PN
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886

STND ALN VO2A
12-SEP-78 15:13

MACY 11

30A(1052)
REJECT

18-0CT-78

TEST

.SBTTL
;TEST OF

14:35

PAGE 42

SEQ 0070

REJECT TEST

THE REJECT-RELATED HARDWARE

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

030376
030404
030412
030420
030426
030434
030442
030450
030456
030464
030472
030474

XR(C20-

012777

012777
012777
012777
016777
052777
052777

032777
001774
052777
016704
012703
032777
001020
005203
001372
005304
001366

1772777
177774
177777
177774
004702
020000

020001
000400
100000
001244
177500
000040

032777
001414

000001

032777
001414

100000

032777
001014

000040

004760
004754
004744
004760
004724
004736
004710
004724

XR(21:

004712

004676

004604

004564

004506

001414

020000
000040
020000

004450
004444
004434

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIT

BtG
31S
ov

XRC21A: MOV
XR(C22:
BI1T
BNE

XR(23:

XR(24:

XR(C25:

XR(26:

052777
052777
032777

BDINIT
BDINIT

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,375D8
#-4 ,aTSBC
#-1,aT7SDB
#-4 ,aRDBC
RCAD ,aTCR

;CLR XMTR
;CLR RCVR
;LOAD A WORD INTO SILO

#808,3RSR
XRC21
#815,aR(R
DLCON,R&
#177500,R3
#805,3RSR
XRCZ23

;DAT OUTP RDY

;BYTE COUNT FOR 2 WD XFR
;LOAD 2ND WD INTO SILO
sPOINT

XMTR AT RCVR

;SET RCV WD
JSET SND WD & ST TXM

#813,3RCR
#813+800,aTCR

IN XMTR?

JSETREJECT
;CHECK FOR RECOM IN RCVR
JWAIT A COUPLE

MS FOR

;ERROR:REJECT DID NOT RESULT IN SETTING RSR-05
;IS ST TXM CLR (CLR'D BY INTR REQ)?
JERROR:

SORE DID NOT

INTERRUPT XMTR

;CHECK IF REJECT GOT CLR'D
JERROR:RECOM DID NOT CLR REJECT

;JCHECK IF REJECT SET SORE IN XMTR
JERROR:REJECT DID NOT SET SORE IN XMTR
XMTR

#8313 ,aRCR
#805,aRSR
#13,aRCR

Xk£27
\N

XRC26

sSET RCV WD IN RCVR
;SET RECOM

;CHECK IF RCV WD GOT CLR'D
JERROR:RECOM DID NOT INTERRUPT RCVR

CZPLBBO PCL11

PCLTST.PY

STND ALN VO2A
12-SEP-78 15:13

MACY i1

30A(1052)

18-0CT-78

TRUNCATION TEST
.SBTTL
;TEST OF

THE

14:35

PAGE 43

SEQ 0071

TRUNCATION TEST

TRUNCATE-RELATED HARDWARE

; CAUSE A TRUNCATE IN THE RECVR AND CHECK ALL RELATED
;RESPONSES IN RCVR AND XMTR.

031012
031020
031026
031034
031042
031050
031056

XRC27:

012777
012777
012777
012777
016777
052777

052777
032777
001774
052777
016704
012703
105777
100420
005203
001373
005304
001367

033026
033426
004266
060001
060001
001000
100000
000630
175000

004276

MOV
MOV

#SILDAT ,ITSEA
#CMF3UF ,3RDBA

;SET TxTM BYTE CNT FOR 10 WORD XFR
;SET RCVR BYTE CNT FOR & WORDS
;PGINT XMTR SILO AT DATA BUFFER
;POINT RCVR SILO TO DATA BUFFER

BIS

#£,14+813+800,aRCR

;SET RCV WD & RCV DATA ESTART NPR

BIT

#309,3RSR

MOV

BIS
BEQ
BIS

MoV
XRC29A: MOV
XRC30:
TSTR
8MI
INC
PFC

105777
100414

004156

032777

000040

000016
010000
177024

004174

XRC31:

XRC32:

004116

000404

XRC33:

XRC34:

XRCRl:

;CLR XMTR
;CLR RCVR

#-20.,37S8C

MOV

XRC29:

XMIR
RCVR

MOV

BNE

000040

004767
032777
001402
000167
000207

004346
004360
004324
004346
004310
004322
004274
004310

004244

032777
001014

001014

031352

177754
177770

BDINIT
BDINIT

BNE
ERROR
SCOPE
BIT

BNE
ERRGR
SCOPE
T1SIB
8MI
ERROR
SCOPE

BIT

#-8. ,3RPEC
RC4D,aTCR

#314+813+800,91CR
XRC29
#815 ,aRCR

DLCON,R4
#175000,R3
alSR
XRC31
R3

;SET SND WD & ST TXM & START NPR

JWAIT FOR BYTE COUNT OVERFLOW
JSET REJECT (TRUNCATE MESSAGE)
;LOOK FOR XMTR SUC

TXF

XRC30

JWAIT ABOUT 20 MS

XRC29A
\N
XR(27

JERROR:NO SUC TXF AFTER TRUNCATION

#805,aTSR

XRC32
\N
XRC27
aRSR
XRC33
\N
XR(C27

#805,a3RSR

BNE
ERROR
SCOPE
JSR
BIT

XRC34
\N
XRC27
PC,MONIT
#B12,aSR

RTS

BEQ
JMP

;POINT XMTR AT RCVR

XRCRT
XRC20

;IS SORE SET?

JERROR:SORE NOT SET BY TRUNCATION
2IS RCVR SUC TXF

SET?

JERROR:NO RCVR SUC TXF AFTER TRUNCATION

;IS RECOM SET?
sJERROR:RECOM NOT SET BY TRUNCATION

;IS SW 12 SET?

;NO, EXIT
JYES, STAY HERE

(ZPLBBO PCL11
PCLTST PN

STND ALN VO2A
12-SEP-78 15:13

MACY11

30A(1052)
1B-0CT-78
14:35
"'SWITCH'' MONITOR ROUTINE

2971

LSBTTL

PAGE 44

SEQ 0072

"'SWITCH'' MONITOR ROUTINE

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

;

031354
031356
031362
031364
031370
031374
031400
031404
031406
031416
031422
031426
031436
031444
031450
031456
031466
031472
031474

031500

031504
031510
031512
031516
031520
031524
031530
031532
031536
031542
031546
031550
031554

031560
031564
031566
031576
031604
031610
031614
031624
031630
031636

031642
031646

005000
105777
100402

000167
017700
042700
020027
001056

MONIC:
MONCH:

BMI
JMP
MOV
BIC

MONIC
EXS
akBD RO
#177600,RO

MOV
JSR

aSR RO
PC,OCTPNT

001060

MOV

@SR KBBUF

000272

MOV

KBBUF ,aSR

000023

000306

020027
001363
012700
004767
005000
004767
004767
020027
001004
012706
000167
020027
001026

177600

017767
004767
016777

042700
020027
001726

(LR

000270
004036

000326
001100

105777
100375
017700

MONIT:

004046

017700
004767

000602
001050

SWDMP:

003736

CCRTN:

CONTW1:

001234
001230
000024

EXT:

002000
151352
000004

000422
000670
177614

020027
001004

000003

PNTM

TSTB
8PL
MOV

EX2:

000720

000114

EX2A:

EXZ2B:
EX3:

aKBS

RO, #23
EX1
SWRMSG
TWOSP

PC ., INPKB
TYPCTP

akBS
CONTW1
akBD R0

;CHECK KEYBOARD FLAG

;IF SET, CHECK WHAT (HAR.
;OTHERWISE, EXIT
;TRIM OFF PARITY BIT

JWAS IT *§8?
;NO, EXIT
JPRINT ‘'SWR = "'
;GET CONTENTS OF SR
JPRINT

;SPACE AND PROMPT

;LOAD OLD SWITCHES

(:)

;GET KBD INPUT

JLOAD NEW SWITCHES

;PRINT '‘CNTRL-P TO CONTINUE''

8IC
CMP

#177600,R0
RO #23

:TRIM OFF PARITY BIT
;*S?

cMP
BNE
MOV
JSR
CLR

RO, 420
CONTW]
#15,R0
PC,TTO
RO

Lap?
*NO. KEEP LOOKING
*RETURN LINE

cMP
BNE

RO #24
EX2

:WAS A “T TYPED?
INO, EXIT

BEQ

000015
001242

004767
016767
000167

cvwP
BNE
PNTM

JSR

000020

000150
000142
000712

1SR

PNTM

003732
177600
000023

016767
016700
004767

CNTRL=-T RESTART TEST SELECTOR

CNTRL-D ALLOW CHANGING OF DELAY
CNTRL-P CONTINUE (PROCEED)

JSR
JSR

MOV
JMP

SWDMP

PC.TTO
PC.TTO

CMP

#1SP,SP
BCONT
RO, #4

PNTM

DELYMG

BNE

MOV

Ex3

DLCON,KBBUF

“YES.

GET SWR AGAIN

SFILL CHARACTERS

SYES,
RENEW STACK
*BACK TO DISPATCHER

:CNTRL=D TYPED?

*NO, KEEP LOOKING

;PRINT 'DELAY CONSTANT = '

;DEFAULT OLD VALUE

MOV
JSR
PNTM
JSR

DLCON,RO
PC,OCTPNT
TWOSP
PC, INPKB

KBBUF ,DLCON
CCRTN

;LOAD NEW CONSTANT
;NOW WAIT FOR CNTRL-P

(MP

RO, #3

;WAS CNTRL=-C TYPED?

MOV
JMP

BNE

EXS5

;GET CONSTANT
JPRINT IT
;SPACE AND PROMPT
;GET KBD INPUT

:NO, EXIT

CZPLBBO PCL11
PCLTST P

STND ALN VOZ2A
12-SEP-78 15:13

031650
031654

012706
000167

031660

000207

MACY 11

18-0CT-78 14:35
30A(1052)
"'SWiTCH'' MONITOR ROUTINE

002000
151036

MOV

#1SP,SP

RTS

JMP

EXS:

PAGE 44-1

RESTRT

SEQ 0073
;YES, REFRESH STACK
JAND RESTART

;ASSOCIATED ASCII FOR THIS MODULE:
031662
031670
031672
031700
031706
031714
031715
031722
031730
031736
031742

051446

051127

036440

SWRMSG:

.ASCII]

/ZSWR = a/

042046
041440
047101

046105
047117
020124

054501
052123
020075

DELYMG:

.ASCI'

/8DELAY CONSTANT = a/

046
026514
041440
052516
020040

047103
020120
047117
040105
040072

051124
047524
044524

TYPCTP:

_ASCII

/&CNTRL-P TO CONTINUEQ/

TWOSP:

.ASCII

040040

.EVEN
;OTHER VARIJABLES:

031746

000000

SWR{G:

.WORD

; SOF TWARE SWITCH REGISTER

031750

000000

SR:

.WORD

; SWITCH REGISTER POINTER

031752

000006

DLCON:

,WORD

JDELAY CONSTANT

€2

C(ZPLBBO PCL11 STND ALN VOZA

PCLTST PN

12-SEP-78 15:13

MACY11

30A(1052)

18-0(T-78

14:35

COMMON SUBROUTINES

PAGE 45

SEQ 0074

.SBTTL COMMON SUBROUTINES

;ERROR ROUT INE
031754
031760
031766
031776

162767

000220
000022

016700
004767

000200
000520

016700
004767
004767
004767
000207

200156
000500

011667

000212

ERR:

MOV

ERR1:

PNTM
MoV
JSR

SuB

PNTM

WDAT

MoV

JSR
JSR
JSR

177322
000602

(SP) ,ERRAD

#22 ,ERRAD

RTS

ERRM
ERRNUM,
RO
PC,OCTPNT

ERRAD RO

PC,OCTPNT
PC,MONIT
PC,NULLS
PC

;GET ADDRESS OF ERROR CALL
JOFFSET IT
JPRINT ''««ERROR *'

;PRINT ERROR NUMBER

(P)

JPRINT AT LOCATION "'

;PRINT ADDRESS OF ERROR

JPRINT NULLS IN CASE OF 'RESET"

:RETURN

:DATA ERROR ROUTINE

032122

011667
162767
004767

000134
000022

016700
004767

000114
000430

MOV
JSR

016700
004767
004767
000207

000072
000410
000516

MOV
JSR

BAD RO
PC,OCTPNT

RTS

177710

000126

DERR:

MOV
SUB
JSR

(SP) ,ERRAD
#22 ,ERRAD
PC,ERR1

PNTM

wDSDB

PNTM

WDWAS

JSR

GOOD,RO
PC.OCTPNT

PC,NULLS

;ASSOCIOATED ASCII

032124
032132
032137
032144
032152
032155
032162
032170
032171
032176

THIS MODULE:

025052
020122
052101
052101

051105

ERRM:

LASCI]

/BE+~+ERROP &/

046040
047511

WDAT :

LASCII

/ AT LOCATION @/

044123
041040

052517
020105

wDSDB:

.ASCI]

/&SHOULD BE a/

053440

051501

WDWAS:

.ASCII

100

EVEN

:OTHER VARIABLES:
032200
032202
032204
032206

FOR

ERRAD:
ERRNUM:
BAD:
GOOD :

.WORD
.WORD
.WORD
.WORD

0
O
0
0

WAS @&/

;GET ADDRESS OF ERROR CALL
JOFFSET IT

JPRINT ‘'««ERROR (P) AT LOCATION XXX
;PRINT ''SHOULD BE *'
;PRINT GOOD DATA

JPRINT '', WAS *'

;PRINT BAD DATA

JPRINT NULLS IN CASE OF 'RESET'’

€2

(ZPLBBO PCL11

PCLYST.PN

STND ALN VOZA
12-SEP-78 15:13

3099
3100
3101
3102
3103
3104
3105
3106
3107

MACY11

30A(1052)

18-0CT-78

MESSAGE PRINT ROUTINE
.SBTTL

14:35

PAGE 46

SEQ 0075

MESSAGE PRINT ROUTINE

:MESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A)
;MES;@EES ARE IN THE FORMAT:
/&ME SSAGELa/
LASCI]

"WHERE: & IS TRANSLATED INTO CR. AND LF.
TUSES THE SUBROUTINE 'TTO"

JWHICH PRINTS CR. & LF. UPON SEEING A CR.
;AND
@ IS MESSAGE TERMINATOR

CODE.

~NOWNS

000000
000100

000046

=00V

d
d
d
b

b b cd b

b wd
d
—

032210
032212
032216

000015
000530

PIN) —b

WWWNWNWN
NN NW

CENTER WITH ADDRESS OF MESSAGE IN RO

032250

TYPOUT:
TPOF CH:

MOV
MOVB
e
BEQ
(MP
BNE
MOV
TPCONT: JSR
INC
8R
TPOUTX: TST
RTS

RO,-(SP)
a(SP) ,RO

#100,R0O
TPOUTX
#46 R0
TPCONT
#15,R0
PC,TTO
(SP)
T1POFCH

(SP)+

;STACK ADDRESS OF MESSAGE
JFETCH ASCII BYTE
;1S IT @ (TERMINATOR)?
JYES-EXIT
;IS IT CRLF FLAG?
;NO-TYPE (HARACTER
JYES, CHANGE DATA TO CR

JTYPE

;MOVE POINTER TO NEXT BYTE
JFETCH NEXT CHARACTER
;POP STACK

TO REACH RETURN VECTOR

(ZPLBBO PCL11 STND ALN VO2A

PCLTST.PN

3127
3128
3129
3130
nin
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

14:35

KEYBOARD INPUT ROUTINE
.SBTTL

PAGE 47

SEQ 0076

KEYBOARD INPUT ROUTINE

PC.INPKB
;KEYBOARD INPUT ROUTINE CALLED BY JSR
JENTERED WITH OLD CONTENTS IN KBBUF
JIF JUST <CR> TYPED, EXIT WITH SAME CONTENTS IN KBBUF
;1F NEW NUMBER TYPED, EXIT WITH NEW CONTENTS [N KBBUF

000244

032252
032256
032260
032264
032270
032274
032300

INPKB:

000249
000234
000206
000472
000012

GETCHR: JSR

000144

1%:

177407

000060

CMP
BNE
MOV
JSR
CLC

000057
000426
000152

18
NRTRN
RO,R1
#177407
,R1

R1,460
3s
RO, #4177
2%

#57 ,R0O
PC,TTO

000144

ROR

KBBUF

000136

ROR

cLc
cLC

177664

11%:

000077
000356
177650
177777
177770

2%:
000074

3%:

000066
000062
000056
000052
000040

MOV

#-1_NOKEFL

JSR
JMP

8IC
ASL

8IS
JMP
NRTRN:

000034
NEK :

002722

MOV

KBBUF
KBBUF
118
NOKEFL
GETCHR
#77.R0

TST
BNE
CLR
JMP

ASL
ASL

177612

105777
100375

RO, 412

KBBUF

000122

032502
032506

NOKEF
L
R1,~(SP)
KBBUF ,~(SP)
KBBUF
PC ,KBRD
PC,TTO

ROR

000132

032456
032462
032464
032470
032472
032474
032476
032500

JSR
(MP
BNE
JMP
MOV
BIC
(MP

BEQ

000177

032452

CLR

MOV
MOV
CLR

KBRD:

TST
BNE
MOV
MOV

RTS
TST
MOV
RTS

1STR

BPL

PC.TTO

GETCHR

#177770.R0O

;CLEAR NO NUMBER FLAG

;STACK OLD R

;STACK ‘OLD CONTENTS''
;CLEAR INPUT BUFFER
;FETCH A CHARACTER

JECHO IT

JWAS
:NO

IN RO

IT A <CR> OR <LF>?

;YES, RETURN WITH PROPER KBBUF
JSET UP TO (CHECK FOR A NUMBER
JMASK ALL 8UT # (CODE

;IS IT A& FROM 0-7?
:YES, PACK IT
JWAS

IT A DELETE/RUBQUT?

;NO, MUST BE GARBAGE
JYES, BUT PRINT *A\"

;CLEAR THE (C-BIT
:DELETE LAST DIGIT
THAT WAS STUFFED

INTO KBBUF

JHAVE WE

;NO

;YES,

DELETED EVERYTHING?

BACK

TO NO NUMBER

;AND GET ANOTHER CHARACTER

;GOT A DIGIT. SET FLAG

JGET THE DIGIT PART OF THE CHARACTER

KBBUF
KBBUF
KBBUF
RO, KBBUF

JSHIFT KBBUF BUFFER

NOKEFL
NEK
+ ,KBBUF
(SP)

;WAS THERE NEW DATA?
JYES, GO BACK WITH [T
;NO, RETRIEVE OLD DATA
;RESTORE Rt
;AND RETURN
;DUMP OLD DATA
;RESTORE R1
;AND RETURN

kKBS

JWAIT

GETCHR

(SP)+ ,R1

PC
(SP)+

(SP)+ ,R1

KBRD

INPUT

;GO FOR MORE [NPUT
;ECHO "' FOR ERRONEOUS INPUT

;
TO ACCEPT THE
;
NEW DIGIT,
;ADD THE NEW DIGIT

;GO FOR MORE INPUT

FOR

INPUT

FROM CONSOLE

(ZPLBBO PCL11 STND ALN VOZ2A

PCLYST.P

3183
3184
3185

032510
032514
032520

12-SEP-78 15:13

017700
042700
000207

002716
177600

MACY11

30A(1052)

18-0CT-78

14:35

KEYBOARD INPUT ROUTINE
KBRET:

MOV
B8IC
RTS

akRD RO
#17760C,RO
PC

PAGE 47-1

SEQ 0077
;PUT

THE

(CHAR INTO RO

;TRIM PAR]ITY

| &

CZPLBBO PCL11

PCLTST.PY

STND ALN VOZA

12-SEP~78 15:13

30A(1052)

18-0CT-78

032522

032524

090000

000000

14:35

KE YBOARD INPUT ROUTINE
JASSOCIATED VARIABLE

3187

3188
3189
3190

MACYT]

NOKEFL: .WORD
KRBUF :

.WORD

C
0

PAGE 48

STORAGE:

SEQ 0078

MACY11 30A(1052)

18-0CT-78

BINARY TO ASCII

B
14:35

7
PAGE 49

SEQ 0079

CONVERSION ROUTINES

.SBTTL BINARY TU ASCII CONVERSION ROUTINES

3192
3193
3194
3195
3196
3197
3198
3199

;CONVERTS BINARY TO BINARY, BINARY T0O

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

VO 1

PCLYST.P11

STND ALN VOZ2A
12-SEP-78 15:13

D>>P>>P>rp»

CZPLBBO PCL11T

;REGILAR BIN-OCTAL UNJUSTIFIED:
000010
000122

CLR
MOV
JSR
RTS

RJFLG
#10,R1
PC,NUMPNT
PC

;CLEAR RIGHT JUSTIFY FLAG
;SET RADIX FOR OCTAL
; CONVERT & PRINT
sRETURN

sBIN-OCTAL JUSTIFIED:
3210
3211
3212
3213

032544
032552
032556
032562

012767
012701
004767
000207

177777
000010
000102

000250

OCTJSP: MOV
MoV
JSR
RTS

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

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

RJFLG
#2 ,R1

;CLEAR RIGHT JUSTIFY FLAG
;SET RADIX FOR BINARY

3217
3218
3219
3220

032564
032570
032574
032600

005067
012701
004767
000207

000232
000002
000064

BINPNT:

;BIN-BIN
CLR
MoV

;?2

gE.NUMPNT

;CONVERY & PRINT

sBIN-DECIMAL UNJUSTIFIED:

3227

032616

005067
012701
004767
000207

000214
000012
000046

LECPNT:

CLR
MoV

;?g

RJFLG
#12.R1

gE,NUMPNT

:CLEAR RIGHT JUSTIFY FLAG
;SET RADIX FOR DECIMAL

;CONVERT & PRINT

;BIN-DECIMAL JUSTIFIED (6 PLACES)
3231
3232
3233
3234

032620
032626
032632
032636

012767
012701
004767
000207

177777
000012
000026

000174

3237
3238
3239
3240
3241
3242

032640
032646
032650
032652
032656
032662

032777
001005
005000
004767
004767
000207

040000

177102

000114
000110

DOOD@DDDD

OCTPNT:

000270

DECJSP: MOV
MOV
JSR

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

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

NULLS:

#8164 ,aSR

;0.K.

RTS

BIT

BNE
NULLT:
CLR
JSR
JSR
NULOUT: RTS

NULOUT
RO
PC,TTO
PC,TTO
PC

TO PRINT?

;NO, FORGET IT

012701
004767
0002C7

mooO@dD

032536
032542

005067

3205
3206

032526
032532

mmmm

3203
3204

CZPLBBO PCL11

PCLTST.PT

STND ALN VOZ2A
12-SEP-78 15:13

MACY1T

I4
C
146:35
PAGE 50
18-0CT1-78
30A(1052)
BINARY TO ASCI1 CONVERSION ROUTINES

SEQ 0080

;UNSIGNED CONVERT=PRINT ROUTINE (BIN - ASCII)

3244

032664
032670
032672
032674
032700
032702
032706
032710
032712
032714
032716
032720
032722

010167
005002
005001
020067

032726
032732
032734
032736
032742
032744
032750
032754
032756
032760
032764
032766

012703

103404
166700

005201
000771
010046
010100
001403
005202
004767

CcoN134
000124
000116

: MOV
NUMPNT
CLR
DIVSET: CLR
DIVID:
CMP
8LO
su8
INC
BR
MOV
GETDG:

R1,RADIX

;IF YES, STORE DIGIT

;JELSE, KEEP SUBTRACTING
JAND KEEP COUNT
;STACK REMAINDER

MOV

BEQ
INC
JSR

177744

000006

PNTEXT:

000060

000040
000016

000036
000060

MOV

su8
BLE

PC.DIVSET

#6,R3
RZ,R3

TST

JUST:

PNT:

;SAVE RADIX
;CLEAR TAB COUNTER
;CLEAR WORK REGISTER
;1S NUMBER BELOW RADIX?

sPRINT IF HIGHEST ORDER STACKED
JELSE COUNT DIGITS FOR R. JUSTIFY

JGET DIGIT COUNT CONSTANT
JHAVE WE PRODUCED 6 DIGITS?
JYES, JUSTIFICATION UNNECESSARY
;1S THE JUSTIFY FLAG SET?

;NO-DON'T JUSTIFY

BEQ
MOV
JSR
DEC
BNE
CLR
MOV
BIS

;YES,

PRINT LEADING SPACES

;CLEAR JUSTIFY FLG WHEN DONE

JGET REST OF DIGITS OFF STACK

;TYPE OUT ROUTINE

sMAKE

THEM ASCII

010077

105777
100375

022700
001401
000207
012700
000764

002440
002432

T710:
TTOLP:

000015
000012

MOV
TST8B
BPL
CMP

8EQ

TTOLF:

RiS
MOV
BR

RO,aTT8B
alTs

JPRINT CONTENTS OF RO

#15,R0

WAS

TTOLP

TTOLF
PC
#12.,R0
TT0

:
;ASSOCIATED VARJABLE STORAGE
033022
033024

000000
000000

RJFLG:
RADIX:

.WORD
.WORD

0
0

;WAIT

TILL PRINT DONE

IT A <(CR>?

SJYES, ECHO A LF AS WELL
;NO, JUST RETURN

mMMOOOOO0

032772
032776
033002
033004
033010
033012
033014
033020

jvivivieiv)

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

CZPLBBO PCL11

PCLTST PN

STND ALN VOZ2A

12-SEP-78 15:13

MACY11 30A(1052)

18-0CT-78

TEST BUFFERS

14:35

.SBTTL TEST BUFFERS

:DATA SILO
033026

DATA-BUFFER

052525

SILDAT: 125252
052525

052525

125252
125252

125252
052525
125252
052525
125252
052525

125252

052525

125252

052525

177400

000377

033076
033100
033102
033104
033106
033110
033112
033114
033116
033120

000000
1772777
000000
177777
000000
177777
000000
177777
000000
177777

000000

033122
033124
033126
033130
033132
033134
033136
033140
033142
033144

010421
021042
031463
042104
052525
063146
076567

010421
021042
031463
042104
052525
063146
076567
104210
114631
125252

033146
033150
033152
033154
033156
033160
033162
033164

000001
177776
000002
177775

000001
177776
000002
177775
000003
177774
000004
177773

104210
114631
125252

000003
177774
000004
177773

EF
EF
EF

125252

000377
177400
000377
177400
000377

177400

052525

177400
000377
177400

SEQ 0081

125252

033052
033054
033056
033060
033062
033064
033066
033070
033072
033074

000377

PAGE 51

000377
177400
000377
177400

177400

000377

177400
000377
177777
000000
177777
000000
177777
000000
177777
000000
177777
Hl

I
4
n
n
Iy
Il
J
Kl

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

18-0CT-78

TEST BUFFERS

033166
033170

000005
177772

033172
033174
033176
033200
033202
033204
033206
033210
033212
033214

000000

14:35

PAGE 51-1

SEQ 0082

VvV

OOLIITIZZZ22Z22

033216
033220
033222
033224

VOUVOVOVOVDVDUVOHVOLOVUD

3348
3349

MACY11 30A(1052)

CZPLBBO PCL11

PCLTST P11

STND ALN VOZ2A
12-SEP-78 15:13

MACYT1 30A(1052)

18-0CT-78

TEST BUFFERS

;CRC TEST BUFFER
033226
033230
033232
033234
033236
033240
033242
033244
033246
033250

3409

125252
050521

SILCRC: 125252
050521

000665

124200

1614636
164003
075106
027371
002562
135105

124200

141436
164003

075106
027371
002562
135105

033252
033254
033256
033260
033262
033264
033266
033270
033272
033274

002640
045405
060152
013403
153756
072577

025435

052673

111272
052673

033276
033300
033302
033304
033306
033310
033312
033314
033316
033320

157140
102461

164176

111272

164176

066234
016141

036420

175726
121477

122203

175726
121477

045272
016435

122203
045272
016435

033322
033324
033326
033330
033332
033334
033336
033340
033342
033344

010703

177121
016654
033047
042734
046205
014300
024677
103302

016654
033047
0462734
046205
014300
024677
103302

033346
033350
033352
033354

106245
124160
132304
015025

033370

140621
054620

103142

017305
044754
044406
061203

103142
177121

106245
124160
132304

015025
017305
044754
244406
061203
140621

054620

14:35

PAGE 52

SEQ 0083

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

PCLTST.PT

30A(1052)

18-0CT-78
TEST BUFFERS

14:35

PAGE

52-1

SEQ 0084

RD
RD

033372
033374
033376
033400
033402
033404
033406
033410
033412
033414
033416
033420
033422
033424

MACY11

007625
117626

041245
031477
014726

117626
041245
031477
014726

RD
RD
RD
RD
RD
RD
RD
RD
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RE
RF
RF
RF
RF
RF
RF
RF
RF
RF
RF
RF
RF
RF

(ZPLBBO PCL11 STND ALN VO2A

PCLTST.PM

3440
34461
3642

033426

12-SEP-78 15:13

000100

MACYTT1

30A(1052)

18-0CT-78

TEST BUFFERS

14:35

PAGE 53

:RECEIVEREDQLA COMPARE BUFFER
EV

(MPBUF: .BLKW

64,

SEQ 0085

RF
RF
RF
RF,
Rf
RF
RF:
RF
RF
RF
RF
RF
RF
RH
RH
RH
RH
RH
RH
RH
RH:
RI
RI
RJ
RJ
RJ
RJ
RP
RS

SC
SC

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.PIN
12-SEP-78 15:13
3444
3445
346

34647

3448

3449

3450

033626
033634

033642
033650
033656
033664
033672
033700
033705
033712
033720

033721

033726
033734
033742
033750
033756
033764
033772

034000
034006
034014
034016
034024

3453

3454

3455

023046
047440

047527
051501
044523
050116
051117
020123
047105
051523

020105
047511
020122
020105
043516
051440
052040

042523
020116
046123
044524
051446
020127
020117

050117

052111
020123
040056
052046
044515

052040
047514

044510
050117

051440

046
043117
051504
044505
020075

040524
042522

046

034140
034146
034154
034162
034167
034174
034202
034210
034216
034220

020061
046523
020122
023040
046
020061
053111
051505
040040
052046

034250

047514

034264

042122
040040
047514
052125
020104
100
020104
021440

041523

034101
034106
034114
034122
034130
034133

034256

047514
052520

046

020123
020075
046
053111

034226
034234
034242

044523
052125

020124
053440
023046
044440
053440
040527
046
040520
100

034040
034046
034051
034056
034064
034072

3452

[

14:35

PAGE 54

SEQ 0086

.SBTTL ASCII] STORAGE

034032

3451

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

044515
(026440
044505
051505

020040

052103
047506
041511
044515
052105
034460
054105

040522
052124

051516
051105

042522
100
042522
051105

020107

040526

052524
020107
047516
053440
051040
042526
100
041520

SL
SL(
SL(
SR

SLOWD:

.ASCII

/R&SILO OUTPUT WORD WAS a/

SLIWD:

.ASCII

/RRSILO INPUT WORD WAS &/

PEND:

LASCII

/BEND PASS #a/

SCSEC:

.ASCI1

/8SCOPE SECTION FOR SLICE TIMINGESET SwW 09 TO EXIT THIS LOOP.a/

TXSTAT: ._ASCII

052524

RCSTAT: _ASCII

/BRECEIVER STATUS REG = @/

020056
051117
041505
020104

RCBTCN:

.ASCII

/8NO. OF WORDS RECEIVED = @/

030514

Sw!
Swi
Sw
TC

020123
020075

047101
042524
052123
100
030514
042503
052040
020040

TXHDR:

.ASCIl

/8PCL11

RCHDR:

.ASCII

/8PCL11 RECEIVER TESTR

040522

051516

XRHDR:

.ASCII

/&TRANSMITTER - RECEIVER LOOP TESTSE

050117

052040

051124
052111
042524
020040
041520
042522
051105
023126
052124
051040
042526
051526

100

SR
SSH
Sw!
Swi
Sw

/RTRANSMITTER STATUS REG = &/

042503
051440

051105
041505
020122

020046

TRANSMITTER TEST &

czl
PCl

@&/

TC
DI
TE
TE
TE
TE
TE
TE
TM
TM

TM
TM

(2PLBBO PCL11 STND ALN VO2A
PCLTST.PN
12-SEP-78 15:13
3456

034267
034274
034302
034310
034316

046

041520

MACY11 30A(1052)
ASCII

18-0CT-78

STORAGE

030514
052123
020055
052521

ALTHDR:

051124

TMTR:

LASCI1

/&XMTR @/

LASCI1

PAGE 54-1

14:35

/8PCL1T

TESTS 1

- 3 SEQUENCER

SEQ 0087

T
TPI
TP(
TP

TR/
TR
TRI
TSI

020046

3457

3458

053103

020122

RECVR:

LASCII

/8&RCVR &/

3459

052123

052440
020123
027056

FRAD:

.ASCI!

/1ST UNIBUS ADDR...a/

020124
047524
020527
020114
054440
047516
041440
027105

TOOLOW:

3461

020124
020124
051124
044501

AGAIN:

LASCII

/8THAT WON'T DO.

3462

051117

VCTIR:

LASCII

/VECTOR...a/

3463

044522
032050

PRIOTY:

LASCI1I

/PRIORITY

:
TDMAD

LASCI]

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

052502
051104

040510
020123
047514

3460

040056
052502
051104

3464

TSt

TS
TSI

.ASCl1

/8THAT WAS TOO LOW.

[I'LL GIVE

YOU ANOTHER CHANCE...&a/
TS

TS
TS
TS
TS
17
T7

TRY AGAIN.Ea/

17T
1T
1T
Tw
X
X

(4=7)..a/

033463

3465

047516
051105
3466

3467

020116
046
030461
042116
020105

051124
020104
041517
020116
066517
052101
100
050046
051440
046101
042524

CZl

PCl

046101
053105
042101
027123
023524
020124
024505

INVLAD:

LASCII

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

050101
047524
052101
020064
046040
047511

TRAPG:

LASCII

/8TRAPPED TO LOCATION &4 FROM LOCATION @/

046103
040524
047117
052123

TSTHDR:

LASCI

/88PCL11

STANDALONE TESTS VO2A

(ZPLBBO

8-SEP-788a/

X
TX
TX
X
TY
TY

(ZPLBBO PCL11

PCLTST.PN

034742
034750

3468

3469

3470

3472

3473

035054
035062
035070
035076
035077
035104
035112
035120
035126
035134
035135
035142
035150
035156
035164
035170
035176
035204
035212
035220
035226
035231
035236
035244
035252
035260
035266
035274
035302
035310

STND ALN VOZ2A
12-SEP-78 15:13

020123
020040
041114

MACY11

030126
041440
030102
042523
040046
046105
042524
041474
044040
027056
051046
042116
020110
043117
043040
044527

060462
050132
020040
026520

020040
026440
052040
044515
052040

020040
036440
051040
042526
052123
020040
020075
046530
053103
050117
124
020040
036440
052040
026061
020116
031040
047105
020124

30A(1052)
ASCII

18-0CT-78

STORAGE

K
14:35

7
PAGE 54-2

041505
052123
037122
046105

TSTSEL:

LASCI1

/&SELECT

051505
053440
047117

HLPMSG:

LASCII

/BERESPOND WITH ONE OF

020040
051040
040522
052124
051505

LASCII

/8%

020040
051040

LASCII

2 - RUN RECEIVER

LASCII

3 = RUN XMTR-RCVR LOOP TEST/

LASCII

4 = RUN TEST 1,

100

TEST

SEQ 0088

(<CR> - HELP)..a/

THE

FOLLOWING:/

052040
046117
043516

- RUN TRANSMITTER TEST/

TEST/

041505

020122

020040
052522

051124
020122

052040

020040
051040
051505
052040
042524
020054

052040

023063

THEN TEST 2,

THEN TEST 3&a/

(ZPLBBO PCL11 STND ALN VO2A
PCLTST.PM
12-SEP-78 15:13%
3475
3476
3477
3478
3479
3480

3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492

3493
3494
3495
3496
3497
3498
3499
%gg?

3502
3503
3504
3505
3506

3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529

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

SEQ 0089

.SBTTL CONSTANTS AND VARIABLE STORAGE
.EVEN

035312

: VARIABLES

035312
035314
035316
035320
035322
0353264
035326
035330
035332
035334
035336
035340

035342
035344
035346
035350
035352
035354
035356
035360

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

000000
000000
000000
00000C
000000
000000
000000
000000

DILLY:
DLY:
SWRFLG:
PNTFLG:
ITER:
Sw]:
PAT:
MASK:
PSNO1:
PSNO2:
PSNO3:
PSNO4:

TEMP:
TESTNO:
$4FLAG:
RCAD:
TRAD:
COUNT:
DATWD:
TMPRIO:

.WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.40RD
.WORD

_WORD
.WwORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
0
O
O
0
O
O
O
O
O

O
O
O
O
0
O
0
0

s CONSTANTS:

035362
035364
035366
035370
035372
035374

035376
035400
035402
035404
035406
035410
035412
035414
035416
035420
035422
035424
035426
035430
035432
035434
035436
035440
035442

000005
000170
000174
000240
000240
164200

164202
164204
164206
164210
164212
164213
164214
164220
164222
164224
164226
164230
164234
177560
177562
177564
177566
035440
177777

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

TSR:
TSDB:
TSBC:
TSBA:
TMMR:
TMMRH:
TSCRC:
RCR:
RSR:
RDDB:
RDBC:
RDBA:
RDCRC:
KBS :
KBD:
TTS:
T1R:
MEM:
TSTWRD:

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

.WORD
.WORD
.WORD
_WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD

5
170
174
240
240
164200

164202
164206
164206
164210
164212
164213
164214
164220
164222
164224
164226
164230
164234
177560
177562
177564
177566
MEM
177777

JRECEIVER ADDRESS
; TRANSMITTER ADDRESS

(ZPLBBO PCL11

PCLTST.PY

353

STND ALN VOZ2A

12-SEP-78 15:13

MACY11

30A(1052)

18-0CT-78

m
14:35

PAGE 55-1

CONSTANTS AND VARIABLE STORAGE

SEQ 0090

(2PLBB0 PCL1T STND ALN VO2A
PCLYST.P1I
12-SEP-78 15:13

3533

353%

3535

3536
3937

035444
035446
035450
035452

000170
000174
164200
164220
000001

MACY11

30A(1052)

18-0(T-78

N
14:35

7
PAGE 56

SEQ 0091

(ONSTANTS AND VARJABLE STORAGE

TXMVEC:
RCVVEC:
TXMADR:
RCVADR:

.WORD
.WORD
.WORD
.WORD
.END

170
174
1646200
164220

;170
2174

IS XMTR DEFAULT
IS RCVR DEFAULT

VECTOR
VECTOR

2164200 IS XMTR DEFAULT BASIC ADDR
;1664220

IS RCVR DEFAULT BASIC ADDR

cZP

PCL

XRB

XRB
XRB
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC

XRC
XRC
XRC
XR(
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XRC
XR(
XRC
XRC
XR(
XRC
XR(
XRC
XR(
XRC
XR(
XRC
XR(
XR(
XR(
XR(
XR(
XR(

XR(
XR(
XR(

XR(
XR(
XR(
XR(

XR(
XR(
XR(
XR(
XR(
XR(
XR(
XR(

ADGD
ADOK
ADRGD

003016
002772
003124

ADROK
AGAIN
ALTHDR

003100
034454
034267

BAD

032204

BATST
BCONT
BCTST
BEGIN
BHLPMG
BINPNT
BOO
=
BO1

005772
003132
005616
002000
003176
032564
000001

- 000002

B02
BO3

= 000004
= 000010

BO4
BOS
BO6
B07

=
=
=
=

000020
000040
000100
000200

BO8

= 000400

B09
B10
B11
B12

=
=
=
=

001000
002000
004000
010000

B13

= 020000

B14

= 040000

660
656
673
669
603

6634
6594
6764
6724

717

893

928
984
1203
1717
1767
1881+

612

34564
895
945«
988«
1246+
1721+
1776%
1883

30A(1052)

18-0CT-78
164:35
PAGE 57
CROSS REFERENCE TABLE =-- USER SYMBOLS

620

624

638

642

899«

901
952+
1009+
1267+
1727«
1782«
1903

905«
953«
1010
1269
1729
1784
1939«

906*
954
1034~
1303«
1733«
1788«
1940

946
990

1248
1723
1778
1901
»

2427
2680+
2820

2858+

2429
2726*
2859+

686
1022
5654
6854

869

3013

LouN

103

1334

1812

1837

4634
1386
1651

1029
1442
1810
2140

1054
14691
1835

1227
1509
1860

1244
1520
1879

765
561
764
468
681

32174

2938

2069
2325
2695
2932
462N

2422
2679+
2819«

1047

2380
2741

4614

1241

4604
45
4584
L4574

2713
2911
1423
1167
1392
2019

2842

1387
1987
2365
L4564

2392

4554
4540
4534
L4524
1801

1259
2548
1070
1449
1459

1851

1419

2742

2187
2434
2796
1265

2953

1569
1206
1576
2028

2755
1513

1430
1525
1543
1045

674

34614

910
963
1140+

914%
972
1142+
1321
1741
1796

916

920+
978+
1168«
1634
1759
1816

974
1144
1376+
1758«
1815+

2321«
2574
2776+

922
979
1200+
1637

1765+

1840+

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

2053
2528+
2770

2226%
2529
2771x

2227
2573
2772

2660

2761

2762

2809

2889

2903

1251
1535
1886

1272
1547
1906
2209
2538

1274
1559
1909

1313
1590
1957

1333

1350
1620

30964

2203
2481
2834

1346

2366%
2672+
2777«

2673«
2778

2835

2218
2539
2881

2242
2627
2882

2013
2295
2654
2916

2033
2324
2655
2931

1399

1867

1892

1968

2705

2162

2190
1374
1910

1379
1920

1308

2171
2798

1946

2219

2353

2120

2172

1648

1746

2638
1549

2095

2685

2718

1479

2070
2749

2105
2809

2106

965
1101
1194
1290

981
1113
1212
1298

986
1119
1232
1307

2786

2385
2840

2439
2888

2633
2917

1037
1135
1250

1075

L4504
992
1127
1236

670

2348

273¢

4514

2196
2480
2797

661

1320+
1739«
1794~

2474
2727«
2860

2428+
2681

2421«
2674
2818«

908

SEQ 0092

1154
1261

2810

UV
|

MACY11

AAMXIXNx

PCLTST.P1

STND ALN VO2A
12-SEP-78 15:13

CZPLBBO PCL11

DEVGEN
DILLY
DIVID
DIVSET
DLCON

004050
035312
032674
032672
031752

DLWT

DVATST
EROINT
ERR

DTLPSI

004352
004360
035314
023650
004242
021676
031754

ERRAD

032200

OLWT1
DLY

2464
2597
2784
2951
16417
2110

2049
2112
2341
2467
2605
2788
2955

1411
1476
1612
1786
1923

1415
1482

1623

1792
1932

2059
2132
2398
2504
2646
2826
2963
2907

3237
1474
2942

1998

2483

2526

1643
2408
34994

2432

2617

1228

1239

930
1271
1792

948
1307
1798

1446
15°8
1731
1878

2210
2431
2557
2730
2913

1845

2061

2661

2936

34420

1538

1541

1861

1874

2356

956
1323

1642

976

2531

2576

981
1725
1905

986
1731
1942

2017

2136

2082
2183
2424
2554
2715
2909

2063
2134
2402
2507
2676
2862

1464

1634

1440
1507
1725
1869

1421
1486
1626
1798
1934

1395
1472
1586
1780
1918

2431

2477

1363
2665

2703

1818

1522

1403

2719

965

1843

1924

2763

992

1719
1885
2676

2683

2730

1737
2055
2774

2000
2811

2301
2844

2330
2851

2388
2893

1390
1466
1582
1769
1905
2044
2108

1362

= OO0

1348

00 NGO

COUNT
CRCTST
DATLPS
DATWD
DECJSP
DECPNT
DELAY
DEL YMG
DERR

SEQ 0093

34 \NO‘VSNJ\—l

CONTWY

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

PAGE 57-1

PNOPNOPNIN)
= —b —d b

CCRTN
CHXDAT
CLR(BF
CMPBUF

= 100000

CROSS REFERENCE TABLE == USER SYMBOLS

2322

Bi5

c
14:35

»n

1533

1737
1885

18-0CT-78

o NHE=OONS SN
\wn WN=NN)N—=—=O
wn S =N COON—=PN)—

1323
1452

MACY11 30A(1052)

W PONININD
—b —b b e b

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

(ZPLBBO PCL11 STND ALN VO2A

PCLYST.PN

ERRINT
ERRM
ERRNUM

12-SEP-78 15:13

013756
032124
032202

1562

3057
897«

1012+
1131
1243+
1395«
1472%
1612«
1798+
1948+

2082+

2210w
ERRTRP
ERR1
39
EX2
EX2A
EX28
Ex3
EXS
FILRCV
FKPRIO
FRAD
GETCHR

GETDG
GOOD

004262
031766
031542
031560
031566
031630
031642
031660
023434
035362
034345
032270

032712
032206

c455n
2687*
2901+
542

3057#
2988
3011
3016#
30224
3015

D 8
14:35
PAGE 57-2
18-0CT-78
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
15674
30854
903~
1037«
1135«
1250«
14611»

1476*
1628+
1818«
1970*
2088+
2232
26464~
=
2711
2905~
595
3071
30104
30144

2297
616

575
3138#
3250
894+
960+
1033

=
907

2367«
2674

INTST
INVLAD
ISP
=
ITER
JUST

KBBUF

KBD

035033
177570
032252
014304
014326
022250
022272

013700
034572
002000
035322
032744
032524

035432

20974
685
423
577
1573
1592
2166
2189
769
855
LO8H
749

32654
576
626+
648+

688
3168+
2985

2102+
2322«
2515»
2734
2921«

30304
23524
35054
34594
3163

2984

1321
1767
1839

HLPMSG
HWSWR =
INPKB
INTA
INTB
INTRA
INTRB

924+
1080+
1158=
1271=
1425«
1499=
1725*
1869«
2026+

16064
16114

34654

2993«
3169+
2999

956+
1096+
1187«
1294+
1640
1518«
1743«
1890+

965*
1101+
1194«
1298+«
1446+
1533«
1761+
1894+

986+
1119«
1232+
1348«

976+
1109~
1205+
1307«
1452%
1545+
1769+
1905+

930
1085«
1166%
1280=
1632«
1503«
1731«
1878«
2031~
2108+
2341+
2531
2774~
2951«

2049+
2112+
2345+
2554+
2780~
2955+

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

2059
2134~
2402*
2594«
2788+
2963

2063~
2138«
2411«
2605+

916

921«

943

2051+
2527+
2817«

944
1007+
1269
1756+
1813+

2053
2529
2820

679

609
640
672
3156«

1462+
1582+

1466+

1932«
>
2074

1586+
1792+
1942+
2078+

2862+

2866+

1786+

2179+
2431+
2676

2822+
3058

992«
1127+
1236+
1390+

2183+
2451
2683+

3170

979
1203
1728«
1789«
1903
2429
2769«

1247
1729
1790
1938«

2473
2772

927+«
989
1248
1734
1795+
1940
2475
2778

635

654

667

1143+
1637
1778
1882+
2420+
2681

1144
1716*
1783«
1883

2422
2725+

915
974
1202+
1722%
1784
1902+
2426%
2728

599

608

617

1571

1583

1587

559

566
1692+

854
2256+

3012
34854

3027

587%
628+
653«
2995
3174
3183

589
629+

630«

598«

601

607+
636
668
3152+

1671+

627+

948+
1091+
1173+
1290+
1436+
1507+
1737+
1885+

SEQ 0094

908
973«

3017+
31904
35254

3022

634
666+

3137«

1268*
1740«
1796

946
1008
1304+
1757
1814
2225+

950+
1010
1305
1759
1816

2572«
2857+

2227
2574
2860

2994

3021

31344

610
644
676
3156+

616+

618
646+
680
3166+

645
678+
3157

954
1032+
1316*
1763+
1838+

2320+
2671+
3073

622

647
682
3167

CZPLBBO PCL11

PCLTST.P11

KBRD

032502

032514
035430
023452
003622
022636
014732
035330
035440
031374
031370
0271354

KBRET
KBS
LDLP
LOOP
LOOPL
LOOPR
MASK
MEM
MONCH
MONIC
MONIT
MSRTST

STND ALN VOZ2A
12-SEP-78 15:13

006146

= 000356

032474
032522
022762
023036
032456
032640
032650
032662
032664
032544
032526

PAT

035326

PEND

PNT
PNTEXT

PNTFLG
PRIOTY
PRMT1
PRMT10
PRMTZ
PRMT3
PRMT4
PRMTS5
PRMT6
PRMT7

033705

032764
032726

035320
034522
002142
003024
002154
002240
002252
002336
002422
002500

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

31814

3182

23554

2997
2359

3181

2259

2263

2267

3138
31844
2982
752

1674

1006+

35284
29864
2983
750
1672

2965

766
4L88#

9924

11274
12364
13904
14664
15864
17864
19324

NEK
NOKEFL
NPRTST
NPTST1
NRTRIN
NULLS
NULLT
NULOUT
NUMPNT
OCTJSP
OCTPNT

MACY11

20744
2179#
24L24N
26464
28264
3173

756

1680
1016

29854
802
1745
29814
10544
8974
10124
11314
12434
13954
14724
16124
17924
19424
20784
21834

24314
26764
28624
31774
3159«
2294A
2311
31724
3078

760

16824
1017+

932

35244
7624

22654
1693

1042+

1031+

1800

994
1825

1059
9034
10374
11354
12504
16114
14764
16284
17984
19484
20824

1220
9124
10584
11464
12574
16154
14824
16424
18184
19704
20884

3063

9304

10854
11664
12804
14324

27114
29054

3172
2517

31894
2323

3219

3226

3233

32464

2231
299N

2407
3019

2618
3059

2460
3062

34874
2280

34484

3164+
2313

1822

1837«

1847

1069

1352

2197

22324
24554
26874
29014

22104
24514
26834
28664

SEQ 0095

9484
10914
11734
12904
14364
15074
17314
18784

9564
11874
12944
14404
1518#
17374
18854

15034
17254
18654
20264
21024
23164
25044
27304
29134

20314
21084
23224
25154
2734M
29214

20494
21124
23414
2531
27744
29514

2471
3074

2511
3077

2522
32034

1848+

3488#

2257

1548

2347

1647
2868

9654
11014
11944
12984
144664
15334
17434
18904

9764
11094
12054
13074
14524
15454
17614
18944

9864
11194

12324

13484
14624
1582#
17804
19184
20674

23454
25544
27804
29554

20594
21344
23984
25764
2784M
29594

2561

2566

2570

2582

1813

1820

1822+

1836+

2055#

21304

21634
26114
26054

2822#

32374

1014
1847«
1697

32704
3484n
34634

675

1016+

1030+

1032

1039

1041+

1811«

CZPLBBO PCL11

PCLTST.PI

PRMT8
PRMT9
PROMT
PS
=

002524
002556
002056
177776

PSNO1
PSNO2
PSNO3
PSNO4

035332
035334
035336
035340

P1
P2
P3
P4
PS
P6
P7

=
=
=
=
=
=

000040
000100
000140
000200
000240
000300
000340

RADIX
RART
RA1
RA2
RA3
RA&

033024
01543%
015152
015222
015276
015346

RBATST
RBCTST
RBRT
RB1
RB2
RB3
RCAD

016320
016144
016316
016166
016250
016276
035350

RAS

RCBTCN
RCHOR
RCR

RCRCTS
RCRT
RCRTST

RCSTAT
RCVADR

RCVEC
RCVVEC

015416

034101
034167
035414

022336
016472
015440

034051
035452

035366
035446

RC1
RC2
RC3
RDBA

016342
016424
016452
035424

RDBC

035422

STND ALN VOZ2A
12-SEP-78 15:13

623
6324

5744
Lo
2151+
692+
693+
694
695+
4458
Py
4430
4420
AT
440¥
4390

2167
3246+
1747
1718
1724

1730
1736
1742
1685
1684
1827
18134
1817
1821
676+
34,964

2567
705

837+

1867
1923+

2034
2156+
2294
2543+
2798+
2938+

1689
1852
1683
2405
587
848+

607

18384
1842
1846

845+
2936+
843+

MACY11 30A(1052)
18-0CT-78
14:35 PAGE 57-4
CROSS REFERENCE TABLE == USER SYMBOLS
6264
639
582
556%
2157+
777«

643
856
560+
2160~

2279+
721«

779
1698

2281
723

S567x
2167*
34894
34904
34914
34924

556
2255
3249
17494
17214
17274
17334
17394
17454
18354
18104

560

567

3251

32904

1696+

18294
1819
18204
18254

2384

2579
34544
1727
1871«
1934
>

748%

2174~

863«
2192«

1558+
2255+

1564+

1567«

1574«

1577«

1595+

1670+

570

748

863

1558

1567

1574

1670

2151

2160

2486

2542

2657

2699

2748

2804

2839

2887

2937

1757«
1879+
1968

1758
1886+
1972+

1765
1896+
1992+
2080
2190«

1771«
1898«
1999+

1775+
1906+

1776
1909+

1810w
1910+

1835«
1916

1860
1920+

2042+
2162+
2300+
2628+
2805+
2942
22184

2065
2169+
2353«
2655«
2835«

2458
589«
2153
609+

2564
594

1854#
17554

SEQ 0096

2069+
2171+
2360~
2660~
2840~

2385+
2701«
2888+

2196+
2427
2742«
2892«

2004~
2118~
2203«
2434
2749«
2907

2117+

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

2014+
2125+
2218
2481+
2758+
2917+

2024
2140+
2219+
2487«
2761+
2919

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

2241

2610

2166w

2189«

18504
1721

1794

1839«

1922+

1998+

2043~

2052

2124+

2299+

2483+

1715

1788

1814+

1921«

1926

1997+«

2041

2045

2123+

2128

1844

35344

18454

35224

C(ZPLBBO PCL11

PCLTST.PT

ROCRC
RDD8

035426
035420

RDRT
RD1

016142
015444

RD3
RD4
RDS
RD6
RD7

015612
015724
015776
016050
016122

RDZ2

RECB

RECVR
REEMT
REEMT1
REMTW
REND
REPEAT
REPEET
REPETL
RERT
RESR
RESRW
RESTRT
RE1
RE10
RE10A
REN
RE12
RE13
RE14
RE15
RE16

REZ2

RE3
RE4
RES
RE6

RE?7

015526

2934+

35214

1913~

1989+

2036+

2119~

2170*

2637%

2421

2474

2573

2757«

2801+

35204

1770
1781

1787

1793

1799

632

664

34584

1965

19874

658

662

B4«

1802
17564
1760
1768
1779
1785
179N

18044
1762
17634
17714
17824
17884
17944
18004
1982

605
1963
2006

1881

19974

1897+

1901

2003

16940
7854
17084
22904
19774
1962
1991
6514
18674
19204
1931
1929
19344
1945
19440
19574
19724
18714
18814
18884
18924
18964
1900
19084
1919
1915
21454

016704
10770
017030
017070

017110

021304
020146

28b6-

2383«
35234

016610

RF19
RF2

2746+

2321
2226

1733
1872+

021172
021232

2021

20154
20654
20694
20764
2080#
20844
20904
20944
21004
210644
21104
20244

3028

1971
1880
1891

1887

1895
1907
1933

1943

1949

2075

2079

2083

2089

2093

2099

2103

2109

2113

2023

SEQ 0097

2485+

2318

034336
017754
020002
020006
015010
003752
015076
022760
017700
017722
017732
002716
016550
017300
017334
017340
017406
017430
017500
017544
017652

017200
017204
(17230
021616
020100
020564
020624
020706
020746
021006
021060
021120

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

2293+
B47+

017712

RE7A
RE8
RE9
RFRT
RF1
RF10
RF11
RF12
RF13
RF14
RF15
RF16

RF17
RF18

STND ALN VOZ2A
12-SEP-78 15:13

2224+

2328

2355+

(ZPLBBO PCL11

PCLYST.PN

RF20
RF21
RF22
RF23
RF 24
RF3
RF4
RFS
RF6
RF7
RF8
RF9
RFSA
RHRT
RHO
RH1
RH1A
RH2
RH3
RH3S
RH4
RINIT
RINTST
RJFLG

021344
021366
021470
021530
021570
020206
020254
020274
020312
020342
020410
020464
020524
022246
021744
021756
022014
022074
022134
022160
022220
015100
021620
033022

RJ1
RJ2
RPRIO

022366
022472
035372

RJURT

RSR

RSRTST
SBAK

SCONT
SCPRTN

STND ALN VO2A
12-SEP-78 15:13

022526

035416

020024
004030
004046

004012

SCSEC
SILCRC
SILDAT

033721
033226
033026

SILTST

010164

2111
21204
2129
2133
2137
2025
2030
20364
20414
20454
2048
2054
2058
2199
2159
21674
21724
2178

2182
21894
2186

MACY11 30A(1052)

18-0CT-78

14:35

PAGE 57-6

SEQ 0098

CROSS REFERENCE TABLE == USER SYMBOLS

21174
2121

21324
21364
21404
20284

20334
2040
2046
20514
20574
20614
22014
21654
2206
2173
2181w
21854
2211
21964

1714#

21514
3210w

213

2135

2139

2032
2050

2056

2060

2064

2068

1732

1738
2200
3263

1744

1748

3269+

32894

1876

1888

1899
2084

2085+

2513
2726

2732

2212
1726

2180
3224

2184
3231=

1782

1863
2071+
2106

2061
2105+
2445
2638
2940
2027
913
1059
1147
1258
1416
1483
1643
1844

2144

2072

2132
35194

949
1092
1174
1291
1437
1508
1738
1887

1946

2015
2086
2172
2521
2760+

2019«

966
1102
1195
1299
1447
1534
1762
1895
2060

977
1110
1207
1309
1453
1546
1770
1907

2018
2093
2313
2478
2716
2910

2050
2113
2346
2571
2781
2956

2135
2408
2602
2789
2964

1316

1935

2352

1237

2191~
2548
2770

2028+
2095+~
2392
2565
2850+

987
1120
1233
1463
1583
1787
1933

2064
2139
2419
2613
2823

2075
2180
2432
2677
2863

2364

2525

035360

TMTR

034327

2262

758+
2265+

759
2266+

789

797«

1066

942+
1054
1251«
1313«
1402+
1547+
1651+

br
11392
1253%
1317«
1417%
1559

945
1141%
1255
1324
1419
1563+

2486*
2699«
2841«

997
34644
867

1170#
1536+
1572«
2188+
574

714

1121+
1056

1140

1161+

1176

2842

1580

596

2204

ORI NG00 N &

NS
AW
=200

=N
=
NN

G QN
G
N

NOAWNESENOIN
= OO0
O N=H VOO =
WV
O oW OMNIN

1676+

1678«

1679+

1680+

1681

952
1167«
1265
1346
1438
1575«

961«
1206+
1274*
1362+
1491«
1593«

962
1213*
1277»
1369«
1494*
1599+«

1216+
1278
1374
1509+
1606+

967«

971«
1227+

972
1230
1300+
1386+
1521+
1623+
2438+
2659+

1379+
1520+
1620+

2384
2634
2762*
2937«

2387+
2654+

2796+
2939+

2433+
2657+
»
2804
35104

1200
1082+
1125
1198+

2382+

2629+

35154

1607+

2174

2379«
2632+
2755*
2931

2365«
2544
2750«
2903

2810+

34934
708

1100+

1095+

761

2268

2324+
2538+
2741+
2887+

702
7484
16704

22554

712

83C~
832«

2295+«
2488%
2702%
2881%

755

2055
2130
2273
2431
2557
2715
2905
3237

— b O
O = NN
N N ooV

TMPRIO

3002

2990

903
995
1101
1194
1294
1436
1507
1673
1792
1905
2059
2134
2312
2451
2576
2730
2909

2031
2108
2258
2414
2531
2687
2869
2995x

1072*
1106+
1178«
35164
1584
35000
651

1073
1107
1181
1588

34574

34944

035410

035406

29894

1096
1187
1290
1432
1503
1648
1786
1894

1085
1166
1271
1421
1486
1628
1769
1885

—b ok d b

TMMRH

TMMR

1068

2966

897

N
O

005030
034544
035342
003212
035344
003522
014642
022536

2022
2098
2232
2403
2515
2676
2862

SEQ 0099

803
981

-—

TCRTST
TDMAD
TEMP
TESTGO
TESTNO
TEST1
TEST2
TEST3

2017
2092
2210
2402
2507
2646
2826

2088
2198
2398
2504
2615
2822
2963

796~

035374

771
965
1075
1154
1257
1411
1476
1601
1746
1869

TCR

031746
035316
031662

753
956
1070
1146
1250
1395
1472
1586
1743
1865

SWREG
SWRFLG
SWRMSG

7964
796
791
805
754

751
948
1061
1135
1243
1390
1466
1582
1737
1851
1974

0=~
0=~

0C3774
SRTST
SSWR
- 031746
SWOMP
031406
003754
SWHLT
Swl
035324

2082
2183
2348
2477
2608
2788
2955

1976

—

2078
2179
2345
2467

1870

—D

1549
1725
1826
1948

1866

571«
930
1045
1127
1232
1348
1456

36474
18604
34464
572
933
1058
1131
1236
1353
1462
1570
1731
1843
1970

1686
1639

O
=

2229

033656
016474
033626
031750

—

SLIWD
SLOTST
SLOWD
SR

STND ALN VOZ2A
12~SEP-78 15:13

(ZPLBBO PCL11

PCLTST.PT

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

1087+
1133
1215+

1152
1334+

1090+
1156
1351«

1093
1164
1401+

2177

2181

2185

CZPLBBO PCL11

PCLTST.PN

TOOLOW
TPCONT
TPOFCH

034370
032236
032212

TPOUTX
TRAD
TRAPSL
TREND
TSBA

032246
035352
034645
022674
035404

TSBC

035402

TSCRC
TSDB

035412
035400

TSR

035376

TSRTST
TSTHDR
TSTSEL
TSTWRD
178
110

011636
034713
034776
035442
035436
032772

TTOLF
TTOLP
TTS
TWOSP
TXHDR
TXMADR

033014
032776
035434
031742
034133
035450

TXMR1
TXMVEC
TXSTAT
TXVEC
TYPCTP
TYPOUT

026174
035444
034016
035364
031715
032210

TXMERS

026110

STND ALN VOZ2A
12~-SEP-78 15:13
581

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

034510
032137
032155
032171
005026
004450
004520
004612
004626

34604

34974
969+
2935«

983
3514m

2304
2884+
1634

2327+
2933+
35174
1254
2381«
2836+

968«

1246

2366
2808+
959+
1427*
1468+
1543
2555
2858
1391

970
1429+
1469+
1576+

1034

1276+

1315+

1320

1361«

1493+

1008~

1009
2386+

1275%
2436+

1284
2484~

2541«

1314+

1318
2630+

2656*

1264*

1267
2631
2883«
1234

1303
2658«
2885«
1259

2663
35124

1376

1398«
2698«

1443«
2700+

2744

2745+

1387
1449%

2412
2600
2953

1292
1448+
1479

2417
2679
3511

2462
2718«

1388
1450
1484

2465
2751

1392+
1454
1501

2470
2759«

2492
2776

1701
3150

1703

1705
3240

1707
3241

2284
3266

2286
32774

2288
3284

592
638
705
2416
2996

596
642

597
651
77
2469
3020

603
652

605

606
661

612

2509
3057

2520

2333
35134
2435~
2838+
1430
1470
1594~

1434
1474

2560
2864

2590
29N

2409
2595
2945

731
3009

782
3120

784
3139

1551

1644
1478+

1480

1360+

1510+

1622+

2328+

1033«

1492+

1497

2697«

2743

1515+

1537«
2747

1293
1458+
1505

1405
1459+
1513
o494

2782

35294
3006
32834
3279
35264
3020
34534
578«
26274
2645
600+
2469
1560

30384
574
615

670
1639

VCTR
WDAT
wosDB
WDWAS
XART
XA1
XA2
XA3
XA4

SEQ 0100

730
3008

30394

2647

584

2871

35354

835
2509

35334
2559
1573«

34504
35064

575
620
674

581

579

1562%

1697

2579

2599

606
30864
3087#
30884
9364
8994

34624

9054
911

3162

914w

677
2229
2610

586
633
699
2405
2992

2458
3016

722

778

3060

2559
3072

865
2564
3075

PCLTST.PN

004666

XA6
XA7
XBRT
XB1

004736
005006
005770
005640

x83

005750

005614
005034
005116
005202
005274
005404
005452

PAGE 57-9

SEQ 0101

1018

1043

957
977

982

987

993

1195

1207

1214

1092

1097

1102

1110

1114

1128

1120
1126
1343

13740

—t

—

Ko &
3R
ERTTOVLELRT ®
g\\ \lf\)\hg
L3 3]

— —d cd ) b el b md b b d ——d ) b b d md cmd b b ) b —d b
= = bbb D b
olele QOQOMNN)
NN = OO 00000000
NN

VS OSHOSWNN 0
x
L
R

b
b wd
) ——d
—d ——d
D e
ed
e

—ded d b ed ed d b b = O N
Vi
e Sl iy

& gwoonooooww\ao
&
WA
—

007742
010054
010130
006306
006354
006422
006470
006544
006612
006660
006726
006766
007034
011604

007666

~N
oN —

XE25
XE26
XE27
XE3
XE 3A
XE38
XESA
XE6
XEGA
XE7
XE7A
XE8
XEQ
XFEMT

XE24

XE22B
XE23

006272
007514
007562
007570
007600
007612
007616

b —d —d

007306
007320
007360
007420

007246

XE16
XE17
XE18
XE19

XE22
XE22A

9204

964

005534
005574
003704
010162
006222
007046
007106
007146
007206
007214

XE2
XE20
XE21

14:35

005520

xD8
XD9
XEND
XERT
XE1
XE10
XEN
XE12
XE13
XE14

XE1S5

18-0CT-78

CROSS REFERENCE TABLE -=- USER SYMBOLS

955

XD?7

006124

XDRT
XD1
XD2
XD3
XD&
XDS
XD6

XC3

006144
006014
006076

MACY11 30A(1052)

1011
1015
1046
10324
1036
1040
996
9434
947

el wmd

XCRT
xC1
XC2

005722

—

xB2

917
923
929
1021
10074

O ONIN —b = —d md —d =d ed =

XAS

STND ALN VOZ2A
12-SEP-78 15:13

—_— ) NN
&H =20

CZPLBBO PCL11

1076
1081

1132

1136

1147

1155

1159

MACY11 30A(1052)

CZPLBBO PCL11 STND ALN VOZ2A

8\0
s<

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

13604

1295
1299

1258

XH20
XH20L
XH21
XH21A
XH22
XH22A
XH23
XH3
XHé
XHS
XH6
XH7
XH8
XH8A
XH9

1349
1252

1262
1273

010660

1281

129

1309

1467
1477
1487
1504

1508

1416

1422

012024

85"\)'\)"\)
SO

1641

1437

1457
,

484

—

=80
VIO

D
—d
d
b
ek —d
d
b
b md
b

AV U, LV, 1V, 1V, ]

1519

PRl a¥ o¥ o o o
NN
N =

XHZ2B

1341

1245

b e

010750
010754
010760
013676
011712
012556
012616
012670
012730
013002
013042
013114
013154
013246
013306
011760
012030

12344
12924

D ed

XF8
XF 8A
XF9
XHRT
XH1
XH10
XH11
XH12
XH13
XH14
XH15
XH16
XH17
XH18
XH19
XH2
XH2A

XF?7

1378
13564
1338
1366
1368

b ad

011566
011562
010240
011026
011066
011126
011144
011232
011236
011274
011356
011476
010300
011504
010362
010444
010516
010556
010570

13764
1354
1335
13654
13644
1231
1285
1293
1297
1303#

NWWNWWWEWWWKWNRND

XFSRW
XFSR1
XF1
XF10
XF11
XF12
XF13
XF14
XF17
XF18
XF19
XFI19A
XF
XF20
XF3
XF 3A
XFS
XF6
XF 6A

8
PAGE 57-10

CROSS REFERENCE TABLE =-- USER SYMBOLS

—-

011614

011532
011534

XFMTW

XFRT
XFSR

12-SEP-78 15:13

PCLYST.PIN

L
14:35

18-0CT-78

1426

SEQ@ 0102

CZPLBBO PCL11 STND ALN VOZ2A
PCLTST.P11
12-SEP-78 15:13
XINIT
XJRT
xJO
XJ1

XJ2
XJ3
xJ3S

XJ&
XKRT

004376
014302
014024
014036

014130
014170
014214

XK2
XK3
XK4
XPRIO
XRART
XRA1

014254
014632
014414
014462
014502
014600
035370
023432
023044

XRA2A
XRA3
XRA3ZA
XRA4
XRAS
XRA6

023156
023226
023274
023302
023354
023412

XK1

XRAZ2

XRBRTY
XRBS2

XRB1
XRB810
XRB10S
XRB11
XRB11C
XRB11L
XR812
XRB12K
XRB12L
XRBI12M
XRB12R
XRB12S
XRB12T

XRB813

XRB13C
XRB13D
XRB13E
XRB13L
XRB13S
XRB14
XRB14S
XRB1S5
XRB2
XRB3
XRB4
XRB4C
XRB4D
XRBS
XRB6
XRB6S
XRB7

023120

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
024052
024336

024342
024506
024574
024002

762
1602
1566
1574
1581
1585
15924
1589
1649
16244
1627
16334
1638
631«
2349
23044

2305
2315
2319
23314
23334
2334
2344
2616

2413
23904
2493
2517
2514
2530
25274
2535
25474
25464

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

898

904

913

919

1598

1614

2583

2602

2613

2461

2472

2478

35084

2309

2342

2346

2338

246194

25234
2537

2571

25484
2556

2558
2563
2549
2575
25884
25874
2578
2596
2591
2607
2604
2401
241C
2423
2430
24424
24434
2454
2466
2463

26024

26134
24094

2452

24624
24724

925

SEQ (103
931

935

(ZPLBBO PCL11 STND ALN VOZ2A
PCLTIST.PY
12-SEP-78 15:13
XRB8
XRBBA
XRB9
XRB9S
XRCNT
XRCRET
XRCRT
XRC1
XRC10
XRCT10A
XRC108
XRC11
XRC12
XRC13
XRC14
XRC15
XRC15A
XRC158
XRC16
XRC17
XRC18
XRC18A
XRC18L
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
XRCS
XRCS5A
XRC6
XRC6A
XRC7
XRC7A
XRC7D

XR(C8

024654
024752
024760
025076
023514
030374
031352
026202
027240
027350
027344
027442
027516
027556
027616
027650
027742
027736
030034
030074
030154
030222
030174
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

2476
24904
24924
2506
23664
2870
2967
2638#
27514
27654
27644
2773
2779
2783
2787
28014
28134
28124
2821
2825

28424
28534

28464
284LSH
28524
2861
2865

2639
26674
26664
2272
28904
2894m
28954
2896
2904
2908
2912

2920
2940N

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

2523

2534

2479¢

2512

2499
2508

2501
25124

2641

2643

27964

2823

2827

2834w

2863

2867

26540

2677

2684

2688

28814

2902

2906

2910

2914

29154

2922

2952

2956

2960

2964

26954

2712

2716

2731

2735

29314

2944

2675
29454
2946
2954
2958
2962
26382
268¢€

2704m

27054

2706
2714
27214
27204
2729

2968

SEQ 0104

CZPLBBO PCL11
PCLTST.P

STND ALN VOZ2A
12-SEP-78 15:13

XRC9
XRERXT
XRHDR
XRLV

027144
023550
034220
023542

2733
2369
711
2372

$3%
$4FLAG

025112
035346

2497
698+

92 3

025016
= 0354564

2495

5354

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

27414
2374
34554
2375
25044
25154
704+
540
976
1109
1205
1307
14646
1533
1761
1894

2059
2134
2402
2594
2788
2963

2775

710*

547
981
1113
1212
1323
1452
1545
1769
1905

2063
2138

2411
2605
2822
34424

2781

716%

5524
986
1119
1232
1348
1456
1570
1780
1918
2067
2163
2424
2646
2826
34764

2785

2789

775

1694

5634
992
1127
1236
1390
1462
1582
1786
1932
2074

2179
2431
2676
2862

897
1012
1131
1243
1395
1466
1586
1792
1942

2078
2183
2451
2683
2866

2277
1037
1135
1250
1400
1472
1612
1798
1948
2082

2210
2455
2687
2901

SEQ 0105

9350
1085
1166
1280
1425
1725
1869

2026
2102
2322
2515
2734
2921

948
1091
1173
1290
1432
1503
1731
1878
2031

2108
2531
2774
2951

CZPLBBO PCL11 STND ALN VO2A

PCLTST.PN

BDINIT

DATERR

ERROR

12-SEP-78 15:13

L7Ln

1004
149N
1886

1442
1879

2218
2628
2931
897

2209
2627
2916

S00#
1037
1780

1146
1786

2477

2431
W9

HLT
MTPS

SO
5334

PNTM

S15#

SCOPE

1058

1029
1509
1906

1054
1520
1909
2294
2655

1227
1535
1957
2295
2695

1244
1547
1972
2324
2696

1251
1559
2013
2325
2741

1272
1560
2032
2379
2742

1274
1599
2069
2380
9%

903
1205

912
1250

918
1271

924
1307

930
1323

948
1642

956
1719

2576

2676

2683

2730

2774

2780

16411

1415

1621

1425

1432

1436

2242
2654
2932
1792
2531

1075
1173
1395
1482
1878
2074

2210
2687
2959

1798

1080
1187

1486
1890
2078
2312
ggg}

5224

1499
1894
2082
2341
2715

1091
1212

1503
1918
2088
2398
2734

1885

1096
1232

1507
1932
2092
2402
2784

1905

1101
1236

1518
1948
2098
2411
2788

2187
2481
2881
986
1743
2322

1942

1131
1290
1456
1586
2031

1109
1243

1533
1970
2102
2451
2826

2909

2823

1744
1907

2863

PCLTST ,PCLTST/CR/NL:TTM:ME<PCLTST

2 SECONDS

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

992
1761

2345

1135
1294
1462
1612

2049
2138
2554
2913

2229
2992

000

ERRORS DETECTED:

2538
2882

612

1453

2018
2103
2346
2602
2827

1386
1835

2157

1583
1799

035454

6 11

1085
1194

1843

1359

1810

1169
1295

2093
2323
2571
2789

RUN-TIME:

1818

SEQ 0106

560
2192
574
624
699
2458
3057
904
1076

1281
1441
1546
1787
1949

. ABS.

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

2867

2902

2906

2910

2914

2956

993
1136
1262
1433
1519
1770
1933
2083
2313

2523
2781
2964

139