Digital PDFs

AH-F654A-MC

November 1979

112 pages

Original

4.2MB

view download

OCR Version

3.7MB

view download

Document:	CVVTAA0 VTV30,VT30-H VTV30J-H VT30H LOGIC NOV 1979 bw
Order Number:	AH-F654A-MC
Revision:	000
Pages:	112
Original Filename:	CVVTAA0__VTV30,VT30-H__VTV30J-H_VT30H_LOGIC__AH-F654A-MC__NOV_1979_bw.pdf

OCR Text

VIVIONVTIROR e

e
FICHE 1 OF 1

MADE IN-USA

VIV LOGIC TESTS MACY1T 30A(1052)
06-SEP-79 15:03

(VoI

RV T

CVVTAA.SRC

06-SEP-79

15:10

PAGE

SEQ 0001

REPT 0

000000

IOENTIFICATION

PRODUCT CODE:

AC-F652A-MC

PRODUCT NAME:

(VVTAAQ vIv30J/H=VI30H LOGIC

PRODUCT DATE:

OCT

MAINTAINER:

COMPUTER SPECIAL SYSTEMS
DIGITAL EQUIPMENT (0. LTD.

PONIND
—t e
b e e i o ey

=P D

=00V~
NS NN — OO0~

READING

BERKS.

1979

U.K.

1S FURNISHED UNDER A LICENSE AND MAY BE

USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS Of
SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE
COPYRIGHYT NOTICE.
THIS SOFTWARE QR ANY OTHER (OPIES
THEREOF

MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE

TO ANY OTHER PERSON.
NO TITLE TO AND OWNERSHIP OF
SOF TWARE 1S HEREBY TRANSFERRED.

THE

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO (, ANGE
WITHOUT NOTICE AND SHOULC NOT BE CONSTRUED AS A
COMMITMENT BY DIGITAL EQUIFPMENT CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THF USE OR
RELIABILITY OF 1T7S SOFTWARE ON FQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL.

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

06-SEP-79

15:10

PAGE 2

SEQ 0002

VIv30-H/J OR VT30-H LOGIC DIAGNOSTIC
PROGRAM DESCRIPTION

ABSTRA(CT

THIS

IS THE FIRST PART OF

A TWO PART DIAGNOSTIC FOR

VIV30-H/J OR VT30-H GRAPHICS DISPLAY CONTROLLER.

THE

THIS

PART CONTAINS THE LOGIC TESTS TO CHECK OUT AS MUCH Of
THE HARDWARE AS POSSIBLE.
THE PROGRAM WILL PRINT OUT AN

ERROR MESSAGE WHENEVER A FAULT

IS FOUND.

SUCCESSFULLY RUNNING THIS PART OF
SHS?L% BE RUN.

FURTHER LOGIC

AFTER

THE DIAGNOSTIC, PART 2

TESTS ARE CARRIED OUT

REGUIREMENTS

EQUIPMENT

A.
B.

C.
D.
2.2

POP-11 COMPUTER
CONSOLE TELETYPE

VIv30-H/J OR VT30-H
DIAGNOSTIC TAPE AND LISTINGS

STORAGE

THIS PROGRAM REQUIRES A MINIMUM OF

8K WORDS OF

MEMORY.

LOADING PROCEDURE

THE PROGRAM [S LQADED USING THE ABSOLUTE BINARY LOADER
AND IS IN ABSOLUTE BINARY FORMAT. THE PROGRAM (AN ALSO

BE LOADED AND RUN IN THE NORMAL XXDP MANNER.
STARTING PROCEDURE

THE PROGRAM HAS A LOAD AND GO FEATURE WHICH AUTOMAT]

CALLY STARTS THE PROGRAM AT ADDRESS 1000 UPON A
SUCCESSFUL (OAD.

—

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

06-SEP-79

15:10

PAGE 3

SEQ 0003

RESTARTING PROCEDURE

1200 WHICH ALLOWS

=0 000

RESTART THE PROGRAM WITH NEW BUS AND VECTOR ADDRESSES,
ngRgggflESSES 1000 OR 200 SHOULD BE USED AS THE RESTART

VNS W

THE PROGRAM TO BE RESTARTED WITHOUT HAVING TO RE-ENTER
THE BUS AND VECTOR ADDRESSES.
IF IT iS NECESSARY 10

PROGRAM AND OPERATOR ACTION

NS WO O~V
2O 0N
VOO NS W

el ed o

i el o

el o

il e

d i

D o

D e

D pd e

WNWNR N NN WWWNIWN W W N N RO N N POIPINININY
b =2 s s
s el e ek d O O

THE PROGRAM HAS A RESTART ADDRESS AT

THE FOLLOWING OPERATOR REQUESTS ARE MADE BY THE PROGRAM
PRIOR TO THE COMMENCEMENT OF THE ACTUAL TESTS:-

TYPE 6 FOR 625-LINES OR 5 FOR 525-LINE DISPLAY

FIRST
FIRST
FIRST
THE

BUS ADDRESS IS
VECTOR ADDRESS
PRIORITY LEVEL

OPERATOR

.......
IS.....
IS ....

SHOULD REPLY

INPUTTING THE

CORRECT DATA.

TO REQUESTS ABOVE,

"SELECT DESIRED SWITCH REGISTER SETTINGS.'
'TYPE

CNTRL=-C

TO CONTINUE®
OR

"SWR = 0.'

IN REPLY TO THE REQUEST ABOVE THE OPERATOR SHOULD SELECT
DESIRED SWITCH REGISTER OPTIONS AS SET OUT UNDER SWITCH

OPTIONS BELOW.

SWITCH REGISTER OPTIONS

THIS PROGRAM IS DESIGNED TO RUN EQUALLY EASILY ON PDP-11
PROCESSORS WITH, OR WITHOUT, A HARDWARE SWITCH REGISTER.

ON STARTING, A TEST

IS DONE TO SEE

IF A HARDWARE SWIT(H

IS PRESENT,

il MAY BE USED

VIV LOGIC TESTS MACY11 30A(1052)
CVVIAA,SRC
06-SEP-79 15:03

06-SEP-79

15:10

PAGE &

StEa 0004

[

b
el
)
sl
il
i
)
el
)
el
)

O O N\NN
= OWO~NOWNS
WA —O

THE SWITCH REGISTER SETTINGS ARE:-

SWR1S=1
SWR14=1
SWR13=1
SWR12=1

INHIBIT ERROR HALT
INHIBIT ERROR PRINT=-0UT
FAST 1TERATION
:

SWR10=1

:FOR A DESCRIPTION, AND

SWR11:=1

SWR09:=1

:SCOPE LOOPS, SEE BELOW
:APPENDIX A FOR EXAMPLES

SWR08=1
SWRO7=1
SWR06=1

:0F THEIR USE
:
SELECTED TEST

SWRO4=1
SWRO3=1

:
:TEST NOS.

SWROS5=1

SWROZ2=1

SWRO1=1
SWR00=1

THE SETTING OF BITS 7, 8, 9, 10, 1%, AND 12 IN THE
SWITCH REGISTER ARE USED TO SELECT THE TRAP QOPT]ONS

PRESENT

IN THE

PROGRAM,

NN
= OV~

!
8
9
10
9 AND
1"
9 AND
1

(a9 1}

SET

1N
11
10 AND 11

1 0 AND

(P RV N

THE

SELECTION

1S MADE

IN THE

TRAP FUNCTION SELECTED
TRAP+?
TRAP+4
TRAP+10
TRAP+20
TRAP+30
TRAP+40
TRAP+50

TRAP+60
TRAP+70

USES THE SWITCH REGISTER SETTING
WAS IN FORCE WHEN THE LAST TRAP

INSTRUCTION WwAS EXECUTED.

el
)
)
)
)
el
—
—
— —

BIT(S)

0o
Qo OO C0O00 00 ~N~NNNNN~N

=l ol

FOLLOWING MANNER:

THAT

ViV LOGIC TESTS MACY11 30AC1052)
CVVTAA,SRC
06-SEP-79 15:03

06-SEP-79

15:10

PAGE 5

SEQ 0005

187
188
189
190
191
192
193
194
195
196

1F A HARDWARE SWITCH REGISTER IS NOT PRESENT, THE
PROGRAM ASSIGNS A LOCATION IN MEMORY AS A SOF TWARE
SWITCH RFGISTER, THE OPTIONS REMAINING AS ABOVE.
THIS
MEANS THAT ALL MOD!FICATIONS TO THE SWITCH REGISTER MAY
BE MADE USING THE CONSOLE TELETYPE VIA A MONITOR
ROUTINE.
THIS MONITOR IS CALLED BY TYPING CTRL-G AT THE
CONSOLE TELETYPE AND RESPONDS BY PRINTING THE CURRENT
CONTENTS OF THE SOF TWARE SWITCH REGISTER, FOLLOWED BY A
PROMPT CHARACTER (>).
THE OPERATOR SHOULD THEN TYPE IN

202
203
204

WHICH INCLUDES THE SELECT TEST BIT (SWROK), THE TEST
INDICATED BY SWR 00-05 wiL! BE SELECTEC IMMEDIATELY.
THIS DOES NOT APPLY WHEN DEFMILTING ON AN EXISTING

197
198
199
200
201

582

207
208

g?g

211

212
213
214
215
216
217
218
219
220
221
222
223
224
225
Sgg

THE NEW SWITCH REGISTER SETVTINGS AS AN OCTAL NUMBER,
FOLLOWED BY A CARRIAGE RETURN.
TYPING CARRIAGE RETURN
ALONE WILL CAUSE THE SETTING TO REMAIN UNCHANGED.
THE
SWITCH REGISTER IS THEN LOADED WITH THE NEW VALUE AND
PRQGRAM EXECUTION CONTINUES.
IF A SETTING IS ENTERED

SETTING.

THE SWR MONITOR 1S ALSO CALLED AUTOMATICALLY IF AN ERROR
IS DETECTED AND SWR BIT 15 IS NOT SET.
OCTAL

EQUIVALENTS FOR THE SWITCHES ARE AS FOLLOWS:
SWR15 =

SWR14
SWR13
SWR12
SWR11
SWR10
SWRO9
SWRO8
SWRO7
SWR06
SWROS
SWRO4
SWR03
SWR02
SWRO1
SWR0O

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

100000

40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

228
229

T0 SET A COMBINATION OF THESE SWITCHES, SIMPLY ADD
TOGETHER THE CORRESPONDING OCTAL NUMBERS AND ENTER ThE

g;;

IGNORED) .

230

233
234
235
236
237

238

TOTAL IN RESPONSE TO ''SWR=

xX>"'.,

(LEADING ZFROS MAY 8BE

FOR WORST CASE TESTING, ALL SWITCHES SHOULD BE ZERO.
IT
1S POSSIBLE, WITH THESE SWITCH REGISTER OPTIONS, TO
EXECUTE ONLY A PRE-SELECTED TEST WITH THE FACILITY 10
LOOP ON THAT TEST OR TO START THE PROGRAM PASS OR FINISH
THE PROGRAM PASS AT ANY PARTICULAR TEST.

VIV LOGIC TESTS MACY11l 30A(1052)
CVVTAA,SRC
06=-SEP=-79 15:03
240

S:;

06-SEP=-79

%22

15:10

PAGE 6

SEQ 0006

ERROR REPORTS

THE FORMAT OF THE ERROR REPORTS IS AS FOLLOWS:-

245
246

E# AABB

249

DATA:

247
L8

gbg
6

269
270

600D: DDDD
STATUS: FFFF

%2?
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266

’

PC:CCCC

8AD: EEEE
ADDRES: GGGG

KKKK

CALLED FROM:

HHHH

ERROR COUNT = JuJJ

WHERE:

AA
1S THE TEST NUMBER
BB
IS THE ERROR NUMBER
CCCC IS THE ADDRESS WHERE THE ERROR REPORT OCCURS.
DODD IS THE DATA EXPECTED
EEEE 1S THE DATA RECEIVED
FFFF GGGG AND KXKK ARE CONTENTS OF REGISTERS.
HHHH 1S THE ADDRESS IN THE MAINLINE CODE WHERE THE
SUBROUTINE, WHERE THE ERROR REPORT 1S
GENERATED, 1S CALLED FROM.
JJJJ IS THE NUMBER OF ERRORS REPORTED TO DATE IN
THIS SECTION.

ONLINE MODIFICATIONS
AVAILABLE TO THE USER IS A ROUTINE TO MODIFY PROGRAM
LOCATIONS.
1T 1S ENTERED BY TYPING CNTRL-0 DURING THE

271
272
273
274
275
276
277
278
279
280
gg;

RUNNING OF THE TESTS.
ON ENTRY, A PROMPT '$' IS MADE
FOR THE ADDRESS TO BE MODIFIED.
IF NO ADDRESS 1S GIVEN,
IT IS ASSUMED THAT NO MODIFICATIONS ARE REQUIRED AND THE
ROUTINE WILL COMPLETE.
IF AN ADDRESS IS SPECIFIED, IT
WILL BE CHECKED TO SEE If IT IS EVEN AND IN EXISTANCE.
ONCE ]T HAS BEEN CHECKED, ITS CONTENTS ARE DISPLAYED AND
A PROMPT '/' 1S MADE FOR THE NEW CONTENTS.
[F NO NEW
VALUE 1S GIVEN, THE EXISTING VALUE WILL BE LOADED.
HAVING DEALT WITH THAT ADDRESS, THE ROUTINE WILL THEN
EXAMINE THE-TERMINATING CHARACTER TO DETERMINE THE NEXT
OPERATION 10 PERFORM.

%gs

TYPING

285
286
287

288

289

<ESC>

géLt COMPLETE THE MODIFICATIONS BEING

<CR>

WILL CAUSE A PROMPT FOR THE NEXT ADDRESS
T0 B8E MODIFIED.
WILL TAKE THE NEXT ADDRESS 7O BE MODIFIED

<LF>

AS THE CURRENT ADDRESS+2.

VIV LOGIC TESTS MACY1Y 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

[ I

N LN LN

OSSO0
NO NS WY —

N AN AN NN N

291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306

06-SEP-79

10.

15:10

PAGE

SEQ 0007

PROGRAM DESCRIPTION

TEST O
THIS TEST CHECKS ALL
AND STATUS REGISTER,

THE READ/WRITE BITS IN THE CONTROL
FOR CORRECT SETTING AND CLEARING.

1T ALSO CHECKS THE READ-ONLY 525-LINE BIT AGAINST THE

ANSWER GIVEN TO THE 525/625 LINE QUESTION AT
Of THE PROGRAM.

ERROR

TEST

THE

START

0000

CSR DID NOT

INITIALISE ON RESET

0001

525-LINE BIT READ INCORRECTLY

0002

(SR DATA ERROR WHEN TRYING TO SET BIT

0003

CSR DATA ERROR WHEN TRYING TO CLEAR BIT.

THIS TEST CHECKS THAT THE READY AND TIMER
OPERATE CORRECTLY AND ON THE RIGHT LEVEL.

INTERRUPTS
1T DOES NOT

TEST

TEN TIMES AT

CHECK THAT NO INTERRUPT OCCURS WHEN THE READY BIT
CLEAR (THIS IS DONE IN TEST 5).
THE LAST PART OF
RINGS THE BELL ON THE

CONSOLE

DEVICE,

IS
THIS

ONE SECOND INTERVALS.
THE TIMER INTERRUPT IS USED TO
SET THE INTERVAL, AND THE OPERATOR SHOULD CHECK THAT THE
BELL RINGS ARE EVENLY SPACED OVER ABOUT NINE SECONDS.
ERROR

1000

READY BIT

DID NOT

SET AFTER

INITIALISE

1001

UNEXPECTED

1003

NO READY

INTERRUPT

1005

NO TIMER

INTERRUPT AT DEVICE LEVEL

1006

NO TIMER INTERRUPT WITHIN 4OMS OF

1007

NO SECOND TIMER

1010

TIMER BIT

INTERRUPT WITH ENABLE
AT

DEVICE

LEVEL

BEING SET

BEING CLEARED

INTERRUPT,

INTERRUPT

WOULD NOT

CLEAR
/

CLEAR

ENABLE

IN 20MS OF
AFTER

BIT

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
780
381
382
383
384
385
386
387
388

06-SEP-79

15:10

PAGF 8

TEST

THE

SEQ 0008

CORRECT

LOADING,

READING AND

INCREMENTING OF

CHARACTER STORE ADDRESS REGISTER 1S CHECKED

THE

IN THIS TEST

(NOTE THE ADDRESS WILL INCREMENT WHEN THE DATA BYTE
LOADED, AND ALSO WHEN THE ADDRESS BYTE IS READ).

ERROR

2000
2001
2002

CHARACTER STORE ADDRESS REGISTER NOT
IEROED BY INITIALISE
(HARACTER STORE ADDRESS REGiSTER DATA

ERROR

CHARACTER STORE ADDRESS

INCREMENT ERROR

WHEN LOADING AND READING CHARACTER

TEST

2003

DITYO IN 6V MODE

2004

INVISIBLE BITS OF

CHARACTER STORE ADDRESS

(ROW IN CHARACTER) WERE NOT
WHEN ADDRESS WAS LOADED.

SET

10 ZERO

THE ENTIRE

CHARACTER STORE

1S CHECKED

IN THIS

TEST BY

LOADING EVERY LOCATION WITH RANDOM DATA AND THEN READING
EACH LOCATION BACK AND CHECKING THE DATA.
ERROR

3001

WRONG DATA READ BACK FROM CHARACTER STORE
ADDRESS = C(HARACTER NUMBER
STATUS
ROW OF CHARACTER

TEST

‘

THIS TEST CHECKS THE CURSOR REGISTER FOR CORRECT LOADING
AND READING.
1T ALSO CHECKS FOR CORRECT iNCREMENT WHEN

LOADING THE PICTURE STORE AND THE EFFECT ON THE REGISTER

LINE FEED,

ERROR

CARRIAGE RETURN AND HOME.

4001

LOAD/READ ERROR WITH CURSOR ADDRESS

4002

4003

LOAD/READ ERROR ON X ADDRESS

CLEARED BY ''HOME'' COMMAND

—

VIV LOGIC TESTS MACY1Y 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

06-SEP-79

15:10

PAGE G

390
391
392
393
394

4004

Sea 0009

X INCREMENT ERROR ON CHARACTER LOAD 10
PICTURE STORE (NOTE: NO INCREMENT SHOULD
OCCUR WHEN X ADDRESS 1S AT MAXIMUM VALUE)

. 395

MAXIMUM X IN 6H = 79
MAXIMUM X IN 8H - 63

396
397
398
399

400
N
602
403

404
405
406
407

408
409
610
411
612
613
614

4005

DITTO ON ''SET BLINK OFF

4006

DITTO ON "'SET BLINK ON INCREMENT'' COMMAND

4007

x ADDRESS DID NOT
RETURN"'

4010

v ADDRESS LOAD/READ ERROR

4011

416

6462
443

ZERO ON ''"*

TEST

_AGE

INCREMENT ERROR ON ''LINE FEED'' (NO

INCREMENT SHOULD OCCUR WHEN Y ADDRESS
AT MAXIMUM VALUE)

5251

615

617
418
419
420
421
422
423
624
425
426
627
428
429
430
431
632
433
434
435
436
637
438
439
440
461

[NCREMENT"

COMMAND

625L

MAXIMUM Y

IN 6V =

MAXIMUM Y

IN BV =

THIS TEST CHECKS EVERY LOCATION IN THE PICTURE STORE FOR
CORRECT LOADING AND READING.
IT ALSO THECKS THE
OPERATION Of PRESET AND THAT THE READY BIT IS CLEAR
DURING THE PRESET OPERATION AND THAT NO READY INTERRUPIT
OCCURS WHILST READY IS CLEAR.
NOTE THE DISPLAY IS
TURNED ON DURING THIS

ERROR

5001

TEST.

PICTURE STORE DATA ERROR

ADDRESS = STORE X,Y ADDRESS OF LOCATION WITH ERROR

5002

READY BIT DID NOT

5003

NO READY

5004

READY BIT WAS NOT

5005

PICTURE STORE DATA ERROR ATER PRESET

PRESET

OCCURRED

CLEAR FOR PRESET

INTERRUPT WITHIN 4OMS AFTER
SET WHEN INTERRUPI

VIV LOGIC TESTS MACYY1 30A(1052)
CVVTAA,SRC
06-SEP=-79 15:03
445

446

L47
448

06-SEP-79

15:10

PAGE

5006

Sea 0010
PICTURE
PART OF

STGRE DATA ERROR AFTER LOADING
THE PICTURE STORE, USING BLINK

ON/OFF WILL INCREMENT COMMAND (301 OR
300) WHEN BLINK 1S REQUIRED.

VIV LOGIC TESTS MACYI1 30A(1052)
06-SEP-79 15:03

CVVTAA.SRC

06-SEP-79

15:10

PAGE

SEQ 0011

450
651

652
653
654
655
656
657
458
459
460
46)
462
463
464

465
466

467
468
469
470
47
472
673
474
675
476
677
478
479
480
481
482
483
484
485
486
487
488
489
490
691
492
493
694
495
496
497
498
499

500
501

APPENDIX A
POP-11

DIAGNOSTIC LOOPING FACILITIES VIA

SWITCH REGISTER OPTIONS
N.B.

THE INTENTION OF THIS APPENDIX ]S TO EXPLAIN, IN
GENERAL, THE SCOPE FACILITIES WITHIN PROGRAM CODING.
THE USER MUST FIRST EXAMINE THE CODING ABOUT THE AREA HE
WISHES TO USE SCOPING FACILITIES, TO ASCERTAIN THAT THE
PARTICULAR FACILITY HE REQUIRES IS, IN FACT, AVAILABLE.

PROGRAM LOOPING CONTROL CAN BE SELECTED BY USING SWR 12
- 07.
THE PROGRAM HANDLES THIS BY USE OF THE TRAPSV
ROUTINE, WHICH IS ENTERED USING THE

TRAP INSTRUCTION,

BASICALLY, THE ROUTINE CHECKS EQUALITY BETWEEN BITS 05 00 OF THE TRAP INSTRUCTION AND SWR 12 - (7.
THERE

ARE

THREE DISTINCT

TRAP ROUTINE:~-

THE

RUN - (TRAP + 2 INSTRUCTION AND SWR 07 SET)
USUALLY USED TO INHIBIT TEST NUMBER PRINTOUT;

USEFUL
IN THE CASE OF NON-INTERVENTION TESTS.
WHEN SWR 07
IS SET, ALL TEST NUMBER MESSAGES ARE SUPPRESSED.

NOTE:

FUNCTIONS CONTROLLED BY

1T DOES NOT

SUPPRESS ERROR PRINTOUTS.

bgOP ?N A SUB-TEST =

(TRAP + 4

INSTRUCTION AND SWR

SET)
THIS 1S GENERALLY

USED TO ALLOW THE OPERATOR, BY

TEST OR GROUP OF

TESTS.

SETTING SWR 08, TO CONTINUOUSLY LOOP ON ONE LOGICAL

()

SCOPE ON A SUB-TEST - (TRAP ¢+

10 - 70 INSTRUCTIONS

AND SWR 09 - 11)
THIS ALLOWS THE OPERATOR TO SELECT

SEVEN LEVELS Of
LOOPING FACILITY WITHIN A SELECTION'OR TEST.

1S USED TYPICALLY WITHIN A TEST WHERE ONE SUB

TEST

SETS A FLAG AND THE NEXT ONE

CLEARS

1T7.

USING SCOPE LEVEL 1 (SWR 09) - TRAP + 10), HE COULD
LOOP ON THE F]RST SUB-TEST, SCOPE LEVEL 2 (SWR10) TRAP ¢ 20), HE COULD LOOP ON THE SECOND SUB-TEST OR

SCOPE LEVEL 3 (SWR 10 & 09 - TRAP + 30) 10 LOOP
CONSTANTLY THROUGH BOTH SUB-TESTS SEQUENTIALLY.
THE
SCOPE RETURN ADDRESS ALWAYS APPEARS AS THE ARGUMENT
OR NEXT WORD AFTER THE TRAP INSTRUCTION.

—

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA_SRC

15:10

PAGE 12

SEQ 0012

TO ALLOW THE SCOPE LEVEL TO BE CHANGED WITHOUT

STOPPING THE PROGRAM, E.G. TO CHANGE FROM LEVEL 1 TO
2, WHICH WOULD ALMOST CERTAINLY CAUSE LEVEL 3 OR 0
TO BE SEEN MOMENTARILY), A 'PRESERVE SCOPE' FACILITY
1S PROVIDED WITH SWR12.
WHEN THIS IS SELECTED, THE
PROGRAM NO LONGER INSPECTS SWR 11 = 09 BUT USES THE
SETTING MEMORISED FROM BEFORE SWR 12 WAS SELECTED.
THE SCOPE LEVEL MAY NOWw BE CHANGED WITH NO EFFECT

UNTIL SWR 12 IS SET TO O, WHEN THE NEW SCOPE SETTING
APPLIES.

PIOIN) =P o od o

(O LV AR AV SV LV LN 1V IV ZVW IV ]

d ot

= OOV N NN
—

503
504
505
506

06-SEP-79

N.B.
SETTING SWR 12 SHOULD ONLY BE USED TO PRESERVE
AS EXISTING SCOPE LEVEL, AS PREVIOUSLY SET ON THE
SWITCH REGISTER.
WHICH SCOPE LEVEL TO SELECT MAY BE DETERMINED THE

LISTING; LEVELS 1
(SWR 09)

THROUGH 7 ARE CALLED BY TRAP + 10

THROUGH TRAP +

70 (SWR 09,

10 AND

11),

VIV LOGIC TESTS MACY11 30A(1052)

CWIAALSRC

06-SEP-79715:03

06-SEP-79

15:10

523
524

PAGE 13

EXAMPLE OF SCOPE LOOP FACILITIES WITHIN DIAGNOSTIC

325
527
528

;

529
530
531
532
533
534

TEST10: MOV
T101:
BIS
BIT
BNE
JSR
10

#40,COUNT
#1,8TATUS
#1.STATUS
T10SCP
PC,ERROR

537
538
539
540
541

TEST11: BIC
BIT
BEQ
JSR
11

#1,STATUS
#1,STATUS
T1iSCP
PC,ERROR

543
544
545
546
547

TEST11
TRAP+20
1101
#100,STATUS
TEST12: BIS
#100,STATUS
BIT

T10SCP: TRAP+10
1101

635
536

T11SCP: TRAP+30

542

(ETC.)

548
550

552

T12SCR: TRAP+10

551

TEST 12
#100,STATUS
TESTI3: BIC
#100,STATUS
BIT

553
554
555

(ETC.)

556

557
558

559

TES113

561

TRAP+20
TEST12
TRAP+4
1101
COUNT
DEC

562
563
564
565
566

569570
571
572

BGT
TEST14: (ETC.Y
)

;

;ITERATION COUNT.
;SET GO BIT.
;1S 60 BIT SET?
:YES, BRANCH.
SERROR!'! GO NOT SET.
:ERROR NUMBER.

:SCOPE TESTI0 IF LEVEL 1 SELECTED.
;RETURN LABEL FOR SCOPE.
:CLEAR GO BIT
(G0 BIT CLEAR ?
;60 BIT CLEAR BRANCH.
INO. GO BIT FAILED TO CLEAR.
SERROR!!! NO, 11,

:SCOPE TEST i1 IF LEVEL 3 SELECTED.
'RETURN LABEL FOR SCOPE.
:SCOPE TESTS 10 & 11.
IRTURN LABEL.
:NO SCOPE SELECTED. CARRY ON.
;IS DONE BIT SET ?

;SCOPE INT. EN. SET, LEVEL 1.

IRETURN LABEL.
:CLEAR INT ENABLE BIT.
;IS BIT CLEAR?

;SCOPE INT CLEAR LEVEL 3.

T13SCP: TRAP+30

560

567
568

SEQ 0013

T101

‘RETURN LABEL.

:SCOPE INT. SET AND CLEAR.
FLEVEL 2.
:SCOPE LOOP ON THIS SET OF TESTS.
:RETURN_ LABEL.
:D0 40 TIMES ANYWAY

579
576
S17
578
579
580

06-SEP-79

15:10

PAGE

.ENDR
LTITLE
LSBTTL

Viv LOGIC TESTS
GENERAL DEFIN]ITIONS

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

RO-%00
R1=%01
R2=%0¢

177776
177570

SP=%06
PC=%07
PSW=177776
HSWR=177570

596
597
598
599
600
601

172340
172362
172344
172346
172350
172352
172356
172356

PAROD=172340
PAR1=172342
PAR2=172344
PAR3:=172346
PARG=172350
PARS=172352
PARG=172354
PAR7=172356

603
604
605
606
607
608
609
610

172300
172302
172304
172306
172310
172312
172314
172316

PDRO=172300
PDR1=172302
PDR2=172304
PDR3=172306

612
613

177572
177574

SRO=177572

177576

SR1=177574
SR2=177576

616
617
618

177546

LKS=177546

177746

CA1170=177746

621
622
623
624
625
626
627
628
625
630

001000
000100
000002

REPCT! 1 00 0
REP(T% 1 00
REPCT
?

100000
040000
020000
010000

6=100000
0=40000
A=20000
$=10000

592
593
594
595

60?2

611

614

615

619
620

R3-203
R&-%04
R5=%05
R6=%06
R7=%07

AN
N AN

581
582
583
584
585
586
587
588
589
590
591

SEQ 0014

[l
4

¢Iv LOGIC TESTS MACY1Y 30A(1052)
CVVTAA,SR(
06-S€P-79 15:03

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

631
632
633
634
635
636
637
638
639

640
641
642
643
644

645

646

647
648
649

004000

15:10
PAGE 14-1
06-SEP-79
GENERAL DEFINITIONS

(=4000
TPS=177564
TPB=177566
TKS=177560
TKB=1775€2

ENABL
ENABL

ABS
AMA

SEQ 00195

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06=-SEP-79 15:03

651
652
653
654
655
656
657
658
659
660
661
662
663
664

665

06-SEP-79
15:10
MACROS

PAGE

.SBTTL

SET

SEQ 0016

MACROS

PROCESSOR PRIOR]TY

MACRO

MOV
MOV

PSWSET

$ARG,?LAB

$ARG,~(SP)
#LAB,-(SP)

R11

LAB:

READ

;

[

;
;

’

NOP
LENDM
PROCESSOR

[

SET UP NEW PSW AS $ARG
SET RETURN ADDRESS

RT1 1C SET PRIORITY
RETURN ADDRESS

PRIORITY

666

667
668
669
670
671

672
673

.MACRO

EMT
MOv
.ENDM

PSWREA

$ARG

FSAVPW,$ARG

[SSUE EMT TO READ PSw
READ PSW IN $ARG

06-SEP-79

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

15:10
PAGE
INITIALISATION

CVVTAA,SRC

675
676
677

697
698
699
700
701
702
703
704
705
706

707

708
709
710
4}
712
713
714
715
716
717
718
719

720
721

722

723
724
725
726

727

728
729
730

0146506
000340

N~~~

001020
001026
001034
001042
001046

~N -~~~

001000

—

012706

005777
005037

177570
013152
014246

START:

000004
000006
0146220

JMP

a¥START

; JMP T0 START AT ¢00

MOV
PSWSET

#340

r.,sP

;INITIALISE STACK POINTER

FSWRSET
&

;TEST FOR HARDWARE
;TRAPS 10 & IF 1T

.=1000

Mov
mMov
MOV

1S71
CLR

#340,6
FHSWR, SWR
aSWR
SSWR

SWR

;DOES NOT EXIST

INITIALISE SOF TWARE SWR

: NOW ESTABLISH WHETHER OR NOT WE ARE RUNNING ON A SINGLE
INTERRUPT LEVEL LSI-11.

001052

004737

016462

JSR

PC,SILLSI

;ESTABLISH PROCESSOR TYPE

001056
001062
001066
001070

004737
004737
012272
004737

014516
016632

JSR
JSR
GOMSG
JSR

PC,VECTOR
PC.TYPOUT

JFILL 0=5764 WITH HALT

001074
001100
001102

004537

017510
004

JSR

RS,BUSSET
7,4
CSR
1.1

012062

.BYTE
.WORD
.BYTE
.WORD
.WORD
.WORD

001
000000

013737
013737
005237
013737
013737
005237
000137
001200
012706

014226
0146226
014234
014230
014230
014240
001200

001220
001224
001226

004737
012736
004737

016632
015344

START1:

001232
001236

012706

001000

START?: MOv

001150
001154
001200
001204

001000

PC,SET56

TRAPS

;DITAGNOSTIC

;SET UP BUS AND VECTOR ADDRESSES

INTVEC

5ECLEV

423¢
4234

MOV
MoV

14236

MOV
MoV

CAR, CARX
CAR,CARY
CARY
CHSR,CHDR
{HSR.CHAR

INC
JMP

RSTART

;:THEN GOTO THE

MOV
PSWSET

#START,SP
#340

INITIALISE STACK POINTER

JSR

PC,TYPOUT

JSR

PC,MONIT

:SELECT DESIRED CONSOLE SWITCHES
;G0 TO SWR MONITOR

#START,SP

SINITIALISE STACK POINTER

—

696

001000
001004

INITIALISATION

695

001000

SEQ 0017

691
692
693
694

000200

ST VT, V)

,679
680
681
682
683
684
685
686
687
688
689
690

ole o)

678

000000
000000
000200
000137
001000

.SBTTL
LASECT
.=0
.=200

INC

014240

RSTART:

.=1200

WwMSG

PSWSET

HAR

#340

RESTART

ADDRESS

VIV LOGIC TESTS MACY1Y

CVVTAA,SRC

30A(1052)

06-SEP-79 15:03

731
732

001252

032777

000100

735
;%?

001262
001266

000137
000137

001332
001272

;gz

738
739
7640
761

;A%
&

746
765

001260

001002

06-SEP-79

15:10

PAGE 16-1

INITIALISATION

012740

BIT

BNE
JMP
START3: Jmp

SEQ 0018

#100,aSwR

;CHECK FOR PRE-SELECTED TEST

TESTO
TABLE

;70 TEST O
.10 LOOK-UP TABLE

START}

;INTERFACE REGISTERS AND VECTORS

001332
002776
004710
005734
006260
007676

TABLE:

aSWR,R0
#177700,R0

MOv

#5,R0
RSTART

ASL
JMP

@TABLE1(RO)

001316
001320
001322
001324
001326
001330

001316

BIC
(mp
BLT

006300
000170

TABLE:

001310
001312

012722
177700
000005

W
— O

042700
022700
002734

(T RV RV NV RV N ¥,

751
752
753
754
7595
756
757
758
759
760
761
762
763
764

017700

001272
001276
001302
001306

15:10
PAGE
INITIALISATION

06-SEP-79

et
el et e —4t

7
748
749
750

TESTS MACY1] 30A(1052)
06-SEP-79 15:03

mmmmMmmrn

VIV LOGIC

CVVTAA.SRC

SEQ 0019

;GET SELECTED TEST NO
;CHECK FOR VALID TEST NO

;JUMP 10 PRE-SELECTED

TEST

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC
766
767
768
769
770
771
772
773
774
775
776
77
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793

794

795
796
797
798
799
800

0o 0o O

NOND ~d

O Co
Co 0o 0o O OO 0o 0o OB oo
b o et cacd b d e b —0O0
OO0
— OO0 NN
N

801
802
803
804
805
806
807

15:10
06'SEP;79
ESTO

PAGE

.SBTTL

SEQ 0020

TESTO
:"""""""""""'

:THIS TEST CHECKS ALL THE READ/WRITE
;BITS IN THE CSR FOR SETTING & CLEARING
;""""""'Q"""t'.

001332
001340
001342
001344

012737

001350
001354
001360
001364

005037
012704
004737
010437

001370
001372
001406
001414
001422
001430

000005

001432
001440
001446
001452
001454
001456
001460
001466

104402
001350
004737

017737
042737
022737
001411
013737
012737
004737

120000
1046440

001370
032777
001004

000000

T0001:

012610
002000

0143306
014336
016336

016222
000200
020544

016344
01433¢

000200

002000

100033
000403

001500
001504
001506
001514
001522
001526
001530
001532

005737

012156

013737
017737
005737

014222
012502
012156

001556
004737
002500
000405

1046450

10003:

2%:

1%:

#0,TESTNO

;SET UP TEST NO.

PC,TESTR

;OUTPUT TEST NO

ERRDIS
#REPCTZ,R4

JSR
mMov

PC,FASTSW
R& ,REPCNT

RESET
PSWSET
Mov

#200
aCSR,BAD

TRAP+40
10001

BNE

#2000,BAD
#200,BAD
10002
CSR,ADDRES
#200,600D
PC,ERROR

G+A+0

#2000,aCSR
1%

;SET UP TEST ITERATION COUNT
;TURN OFF

INTERRUPTS

;READ CSR
;CLEAR 525 LINE BIT

;BAD SHOULD NOW EQUAL 200 OCTAL

;BRANCH 1F IT DOES
;SET UP FOR ERROR REPORT

“ERRORO, CSR DID NOT

“INITALISE ON RESET
“SCOPE LOOP ON RESET (SWR BIT11)

;15 525 LINE BIT SET

;BRANCH 1F

SET

;*ENTER THIS CODING IF CSR
;*READS SET TO 625 LINES

;TEST TO SEE IF 625 LINES
;WAS INPUT AT START REQUEST

1S1

L525

BPL
BR

;BRANCH TO ERROR REPORT

161

L525

;TEST 7O SEE IF 525 LINE SELECTED
:0.K. 525 LINE WAS SELECTED

BM]

Mov
MOV

187
BM]
TRAP+?2
3
JSR

016632

BR
TRAP+?2

10004

10004
CSR,ADDRES
3CSR,DATA

L525
3%

PC,TYPOUT

ERMES]
4%

:0.K. 625 LINE WAS SELECTED

;ENTER THIS CODING IFf
;525 LINE WAS READ

;SET UP FOR ERROR REPORT
.

"SELECT RIGHT ERROR MESSAGE

“SUPPRES PRINTOUT (SWR BIT 7 )

"ERROR MESSAGE 625 LINE EXPECTED
"SUPPRES PRINTOUT (SWR BI1 7 )

JSR

PC,TYPOUT

"ERROR MESSAGE 525 LINE EXPECTED

JSR

PC,ERROR

"ERROR 1 , WRONG STATE OF

10004

TRAP+50

016632
020544

CLR

MOV

JSR

1¢:

014344
016340

TRAP+2
10000
JSR

MOV
Mov

012156

104402

001556
004737
002564
004737
060001

012534

MOv

BlC
cMpP
BEQ

10002:

001474
001476

001534
001540
001542
001544
001546
001550
001554
001556
001562
001564

10000:

014346
000100
015104
014250

005737

100406
104402

TESTO:
l\

014416

001470

100427

014216

ERMES?
A+D¢+1

;525 LINE BIT.
;SCOPE LOOP ON READING (SR

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03
822
823
826
825
826
827
828
829
830

831

832
833
834
835
836
837
838
839
840
841
842
843
844
845

846
847
848
849

850
851
852
853
85¢
855

856

857

858
859
860
861
862
863

06-SEP=-79 015:10
TEST

001566

001460

001570
001576
001604
001612
001620
001626

112737
112737
112737
112737
012737
004737

000060
000060
000060
000060
000001
002210

002706
00270/
00276¢
002763
002476

001632
001640
001646
0016564
001662
001670

112737
112737
112737
112737
012737
004737

000060
000061
000060
000061
000002
002210

001674
001702
001710
001716
0017264
001732

112737
112737
112737
112737
012737
004737

001736

112737

001744
001752
001760
001766
001774

112737
112737
112737
012737
004737

002000

112737

PAGE

18-1

;(SWR BITS 9 & 11 )

10003
10005:

SEQ 0021

;v SET UP
;* FOR ERROR
.+ REPORT

MovB
Move
MOvB
MOovB
MoV

JSR

#'0,SETBIT
#'0,SETBIT+]
#'0,CLRBIT
#°'0,CLRBIT#1
#,BLTS
PC,TSTBIT

002706
002707
002762
002763
002476

Move
mMove
Move
MOovB
MOv
JSR

#'0,SETBIT
#'1,SETBITHY
#'0,CLRBIT
#'1,CLRBIT#
#2,BITS
PC,TSTBIT

000060
000062
000060
000062
000004
002210

002706
002707
00276¢
002763
002476

MOvVB
MovB
MOvB
MOvB
Mov

#'0,SETBIT
#'2,SETBIT#]
#'0,CLRBIT

:* FOR ERROR

#6,B1T5
PC,TSTBIT

SET T0 TEST CURSOR INC BIT
;SUBROUTINE TO TEST BIT

000060

00270¢
002707
002762
002762
00247¢

MovB
MovB
MovB
MOvVB
MoV

#'0,SETBIT
#'6,SETBIT+]
#'0,CLRBIT
#'6,CLRBIT+1
#100,B17S
PC,TSTBIT

;+ SET UP
;+ FOR ERROR
;*+ REPORT

002706
002707
002762
002763
002476

MOovB
MOvB
MovB
MOvB
MOV
JSR

#'0,SETBIT
#'8,SETBIT+1
#'0,CLRBIT
#'8,CLRBIT+1

#400,B1T1S

SET 10 TEST 6H BIT
;SUBROUTINE TO TEST BIT

000066
000060
000066
000100
002210

000060

JSR

;¢ SET UP

:+ FOR ERROR

,' REPORT

SET 710 TEST CURSOR ON BI1T
;SUBROUTINE FOR TESTING BIT

.t SET ULP

' REPORT

TEST READY

;SUBROUTINE

INT.

ENAB.

TO TEST BIT

BIT

;v SET UP

:* FOR ERROR
;* REPORT

002006
002014
002022
002030
002036

112737
112737
112737
012737
004737

865
866
867
868
869
870
87

002042
002050
002056
002064
002072
002100

112737
112737
112737
112737
012737
004737

000060
000071
000060
000071
001000
002210

002706
002707
002762
002763
002476

MOvB
MOvB
MOvVB
MOvVB
MOv

#'0,SETBIT
#'9,SETBIT+1
#'0,CLRBIY
#'9,CLRBIT+1
#1000,B11S

;v SET ULP

PC,TSTBI

SET 70 TEST 6v Bl1
;SUBROUTINE 10O TEST BITS

873
874
875
87¢
877

002104
002112
002120
002126
002134

112737
112737
112737
112737
012737

000061
000065
000061
000065
100000

002706
002707
002762
002763
002476

Movs
MOvVB
MOVB
MOvB
MOv

#'1,SETBIT
#'5,581B1T¢1
#1,CLRBIT

;¢ SET UP
;+ FOR ERROR
;*+ REPORT

#100000,B11S

SEY UP FOR TESTING TIMER BIT

864

872

000070
000060
000070
000400
002210

JSR

#'2,CLRBIT+1

SEY T0 TEST DISPLAY ON BIT
;SUBROUTINE FOR TESTING BIT

JSR

PC,TSTBIT

1
#'5,CLRBIT

:* FOR ERROR
,' REPORT

VIV LOGIC TESTS MACYT1 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

878
9

002142

004737

002146

104460

002150

002152
002154
002156
002162
002164
002170
002176
002200
002204

06-SEP-79

TESTO

15:10

002210

PAGE 18-2

JSR

PC,ISTBIT

SEQ 0022

:SUBROUTINE FOR TESTING BIT

001570

TRAP+60
10005

;SCOPE LOOP ON SETTING AND
;CLEARING BITS IN (SR

104404

TRAP+4

;SET SWR BIT 8 10

001370
005337
001402
000137

032777
001402
000137
000137

10001
DEC
BEQ
JMP

014250
001370
000100

001232
002776

012022

T10007:
10608:

BIT
BEO
JMP
JMP

;(SWR BITS 10 £11 )

REPCNT

:LOOP ON TEST
:DONE ENOUGH ?

10007
10001

;YES
;NO

#100,3SwWR
10008

;CHECK FOR PRE-SELECTED TEST

START?
TESTH

VIV LOGIC:TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA.SRC

06-SEP-79

TESTO

15:10

PAGE

XV ]

=
il o
el
el
et
—

Nelo ENTe JV. ¥

NeRVeRVoRVe
Ve Ve RV o)

901
902
903
904
905
906

SEQ 0023

:"""""""""

;SUBROUTINE TO TEST THE BITS IN THE

;ENTER WITH BIT TO TEST SET IN "BITS"

(SR

;SET UP ERROR MESSAGES BEFORE ENTERING.
:'t""""t"""'

002210
002216
002222
002224
002232
002236
002244
002252
002260
002266
002270
002276
002302
002304
002306
002312
002314
002320
002322
002324

002326
002334
002342
002346
002352
002354
002362
002370
002376
002404
002412
002414
002420
002422
002426
002430
002434
002442
002444
002446
002452
002454
002460
002462
002464
002466
002470

012737
005737

000200

016334

052737
005077
053777
017737
053737
023737
001415
013737
011637

002000
011764
002476
011752
002476
014334

01433¢

100003

104402
002314
004737
002650
004737
124002

012156

014222
014352

011756
014336
0146334
014336

016632

020544

002232

100003

177767

141707

052737
043777
017737
043737
023737
001423
005737

005137
001355
011637
013737

002474

104402

002454
004737
002722
004737
124003

106420
002326
104430

002232

JSR

1STB2:

TRAP+10
1ST181

1STB3:

MOov
Mov
CLR
187
BPL
BIS

1$:

Mov

1S3
BPL
COM

014344

3%:

BNE

Mov
Mov

TRAP+?2

016632
020544

BlC

BIC
(MP
BEQ

002476

0146352
014222

MOV
151
BPL
BIS
CLR
B1S
MOV
BIS
CMP
BEQ
MOV
MOov
TRAP+?2
1%
JSR

1%:

002474
012156

002000
002476
011626
002476
014334

100003

1S1B1:

014344

104410

012777
012737
005037
005737

TSTRIT:

JSR

2%:

JSR

1S1Bé:

TRAP+20
15183
TRAP+30
1S1B1

#200,6000

L525

1ST1B1
#2000,600D
aCSR
BITS,aCSR
aCSR,BAD
817S,600D
GOOD,BAD

15182

CSR,ADDRES
aSP,CALLPC

;*SET LP
:*600D WITH BITS
;*THAT

SHOULD ALWAYS

;*BE READ AS 1
;TRY

TO SET BIT

IN (SR

;READ CSR
;SET UP GOOD DATA
;DID CSR CONTAIN EXPECTED DATA
;BRANCH If 0.K.
:SET UP FOR ERROR REPORT

PC,TYPOUT

“INHIBIT PRINTOUT (SWR BIT 7 )
"ERROR WHEN TRYING TO SET

PC,ERROR

;ERROR 2

ERMES3

(+A+G+2

BIT *+ IN CSR

*SCOPE LOOP ON SETTING BIT
S(SWR BIT 9 )

#177767,3CSR
#141707,600D

RETRY

L525

18
#2000, 600D
BITS.aCSR
aCSR,BAD
B175,600D
600D, BAD
15184

BITS
3%

RETRY,

1$
aSP, CALLPC
CSR.ADDRES
PC,TYPOUT
ERMESS
PC,ERROR

C+A+G+3

;SET ALL BITS IN (SR
;SET UP GOOD
:CLEAR RETRY COUNT

;TRY T0 CLEAR BIT
;READ

(SR

IN CSR

;SET UP GOOD DATA
;DID CSR CONTAIN EXPECTED DATA
;BRANCH IF 0.K.
;1F WE ARE NOT TESTING TIMER ENABLE
;THEN THIS

IS A LEGITIMATE

ERROR

;ELSE ALLOW ONE RETRY
;BECAUSE THE TIMER M]GHT HAVE FIRED
;SET UP FOR ERROR REPORT

“INHIBIT PRINTOUT (SWR BIT 7 )
"ERROR WHEN TRYING TC CLEAR
BIT ++ IN (SR

“ERROR 3

:SCOPE LOOP ON CLEARING BIT
; (SWR BIT

10 )

;SCOPE LOOP ON SETTING AND CLEARING
;81T IN (SR (SWR BITS 9 & 10 )

052133
052133
0642533

002706
002710
002722

000000
044440
042533

002762
002764

000000
044440

044524
044524
051117
—_

002500
002564
002650

RETRY:

BITS:

~ilnd

000000
000000

—

969
970
9N
972
973
974
975
976

002474
002476

PAGE

R 1S

967
968

000207

964
965
966

002472

957
958
959
960
961
962
963

15:10

051502

ERMEST:
ERMES?:
ERMES3:
SETBIT:
ERMESG:
(LRBIT:

19-1

SEQ 0024

;END OF

SUBROUTINE.

0
0
.NLIST
.ASCI1
.ASCII
LASCII
.EVEN
.WORD
+ASCI]
<ASCL]
.EVEN
.WORD
LASCI]
.EVEN
LIST

TING FOR 625 LINES
E
(SR BIT
TING FOR 525 LINES
CSR ?IT
B
B /
OR WHEN TRYING TO SET

owwn

TESTO

06-SEP-79

7Y —4 —
Mm

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

IN CSR {8/
(ERROR WHEN TRYING TO CLEAR BIT
0
/

IN (SR [a/

BEX

10 READS 525 LINESL[a/

10 READS 625 LINESLa/

06-SEP-79

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA .SRC
06-SEP-79 15:03

wiry—
NS NN —=O V00NN

2O VBN
W

IV IV IV 1

— e

D e

i e

ld nd

h ad

d wd e

el e

OO0 OOO0OOO0ODOO0DO0O0O0O00O000

NN cd b odh cd = e b s b
L) PIPNONOPUNO

15:10

PAGE 20

.SBTTL

SEQ 0025

TESTH
:"t""""""""'

:THIS TEST CHECKS THE READY AND TIMER
:INTERRUPTS, 17 DOES NOT CHECK THAT
;NO INTERRUPT OCCURES WHEN THE READY

;BIT IS CLEAR (THIS 1S DONE IN TEST 5).
;""""""""""

002776
003004
003006
003010

012737

000001

003014
004737

014416

003014
003020
003024
003030

005037
012704
004737
010437

0146346
000100
015104
014250

003034
003036
003052
003056
003062
003066
003074
003102
003104
003112
003120
00312¢4
003126
003134
003140
003142
003144

000005

003146
003152
003160
003174
003176
003200
003214
003220
003222
003230
003232
003234
003240
003242
003246
003250
003252

104402

014621¢

11001:

013700
012720
012710
017737
032737
001017
013737
012737
005737

014242
006206
000200
011130
000200

000200
012156

01433¢

052737
004737

002000
020544

01433¢

100003

120000
104410
003034

005037
017737

TEST:

11000:

—

014222

146344

01434;

104402

003242
004737
004361
004737
030001
104420
003146

CLR

MOV
JSR
Mov

RESET
PSWSET
MOV
MOv

Mov
MOV

1%:

11002:

187
BPL
B1S
JSR

TRAP+10
11001
CLR

MOV

PSWSET
NOP

000240
000240

005737
001413
013737

TRAP+?2
11000
JSR

BIT
BNE

2%:

004272
011044

MOv

MOV
MOV

6336
4336

978
979
980
981
982
983
984
985
986

TESTH

NOP

PC,TESTR

;OUTPUT

ERKDIS
#REPCTZ,R4
PC,FASTSW
R4 ,REPCNT

;SET UP TEST JTERATION COUNT

#200

;INITALISE HARDWARE
;TURN OFF INTERUPTS

INTVEC,RO

FINTSRV, (RO) ¢+
#200, (RO)
aCSR,BAD
#2C0,BAD

“SET UP INTERRUPT VECTOR

#200,6000
L525

PC,ERROR

“ERROR 10 . READY BIT NOT SET

CSR,ADDRES

1%
#2000,G00D

A+G+0

INTFLG
aCSR,STATUS
#0

11003:

JSR

PC,ERROR

T10064:

TRAP+20
1100¢

Mov

TEST NO

sREAD CSR
;WAS READY BIT SET
;BRANCH If 0.K.
;v SET UP
;* FOR ERROR
;* REPORT

JSR

014344

016632
020544

$SET UP TEST NO.

#200
INTFLG
11004
CSR,ADDRES
TRAP+?2
11003
PC,TYPOUT

PSWSET
151
BEQ

004272
014222

#,TESTNO

ERMSI0
A+S+1

-SCOPE LOOP ON RESET (SWR BIT 9 )

:CLEAR INTERRUPT FLAG

“TURN ON INTERRUPTS
“WAIT FOR INTERRUPT

“TURN OFF INTERUPTS

DID IT INTERRUPT ?
"BRANCH IF NO INTERRUPT OCCURED
“SeT UP FOR ERROR REPORT
“INHIBIT ERROR MESSAGE

“INTERRUPT WHEN ENABLE CLEAR
"ERROR 1 , UNEXPECTED INTERRUPT

*SCOPE LOOP ON INTERRUPT (SWR BIT 10 )

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

1034
1035
1036
1037
1038

1039

1040
1041
1062

1043

1044
1065
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057

003254
003260
003266
003274
003310
003312
003314
003330
003334
003336
003344
003346
003350
003354
003356
003362
003364
003366

06-SEP-79

TESTI

15:10

PAGE 20-1

004272
000100
010730

INTFLG
#100,aCSR
@CSR,STATUS
*0

SEQ 0026

;CLEAR INTERRUPT FLAG
;SET READY INTERRUPT ENABLE

“TURN ON INTERRUPTS

"WAIT FOR INTERRUPT

01622¢

#200
INTFLG
11009
CSR,ADDRES

016632

PC,TYPOUT

;TURN OFF INTERUPTS
;TEST FOR INTERRUPT
;BRANCH IF INTERRUPT OCCURED
;SET UP FOR ERROR REPORT
;INHIBIT ERROR MESSAGE
;(SWR BIT 7 )
;NC INTERRUPT OCCURED

020544

PC,ERROR

“ERROR 13 ,

004272

ERMS12

TRAP+40

A+S+3

*SCOPE LOOP ON INTERRUPT

viv LNGLIC

CVVTAA .SR(

1059
1060
1061
1062

1063

1064
1065
1066
1067

1068

1069
1079
1071
1072
1073
1074
1075
1076
1077

1078
1079
1080
1081
1082
1083
1084
1085
1086

1087

1088
1089
1090
1091
1092
1093
1094

"
"
"
11
18
"
1R
11
"
1"

-t et s e O OOOO
S NN = OV
~NO W

1095
1096
1097
1098
1099
1100
1101
1 102
11 03
" 04

TESTS MACYIY 30A(1052)
06-SEP-79 15:03

003370
003374
003402
003410
0034264
003426
003430
003444
003450
003452
003460
003462
003464
003470
003472
003476
003500
003502

003504
003510
003516
003522
003530
003544
003550
003552
003556
003560
003562
003576
003604
003612
003616
003620
003622
003626
003630
003634
003636
003644
003646
003654
003662
003664

003670
003672
003676
003700

005037

052777
0177%7

004272

100000

010614

06-SEP-79

TESTY

010620
014342

15:10

T1012:

104402

003472
004737
006473
004737
030005

014344

020544

104460

005037
012777

0046202
000002

004204

040000

010472

006272

004737

004156

005737
001027
000771

006272

017737
013737
005077

010420
014222
010404

103004

104402

003630
004737
004531
004737
030006
032737
001415
0137%7

032777
001003
004737
006602
004737
030010
104470

mov

TRAP+60

11016:

020544
100000

014342

014222
040000

014344
010336

(LR
TRAP+2
1%
JSR

1%:

JSR

11017

Bl
BEQ

MOV

BNE
JSR

016632
020544

JSR
B8CC
157
BNE
BR
PSWSETl
MOV
MOV

016632

ERMS12
S¢A+S

1%:

JSR

T1017A:

TRAP+70

;TEST IF INTERRUPT OCCURED
;BRANCH IFf INTERRUPT OCCURED

;INHIBIT ERROR MESSAGE
; (SWR BIT 7 )
;NO

INTERRUPT

DEVICE

wiCl

¥2 w100

INTFLG

#40000.aCSR
20
PC,WALT

11016
INTFLG
11017
11015
#200
aCSR,STATUS
CSR,ADDRES

LEVEL

CERROR 15 ,

“SCOPE LOOP ON TIMER INTERRUPT
27 sWR BITS 10 &11

11012

CLR

INTERUPTS

;SET UP FOR ERROR REPORT

T1013:

MOV
PSWSET

“TURN ON INTERUPTS

CSR,ADDRE

PC,ERROR

CLR

;SER TIMER BI1T

;TURN OFF

INTFLG
11013

JSR

MOov

CLEAR [NTERRUPT FLAG

9200

1%:

T1014:

SEQ 0027

"WwAIT FOR INTERRUPT

PC,TYPOUT

11015:

0146342
014344

INTELG
#100000,aCSR
265R.51AYUS

TRAP+?
1%
+SR

016632

003370

005037
012737

NOP
NOP
PSWSET
151
BNE

004272

016222

(LR
B1S

MoV
PSWSET

000240
000240

005737
001013
013737

PAGE 2!

)

;*SET UP
;*TIME OUT

;CLEAR INTERRUPT fLAG
;ENABLE TIMER INTERRUPT
:TURN ON INTERUPTS
;WAIT

FOR

TIME

;TEST

FOR

INTERRUPT

s TURN OFF

INTERUPTS

; BRANCH IF

OULT

TIMED OUT

;BRANCH IF INTERRUPT 0.K,
;60 BACK AND WAJT SOME MCRE
;SET UP FOR ERROR REPORY

(SR

"CLEAR CSR

PC,TYPOUT

'NO INTERRUPT BEFORE TIMEQUT

ERMS13

PC,ERROR
S+A+é

#100000,STATUS
T1017A
CSR,ADDRES
::OOOO,GSUR
PC,TYPOUY

ERMSI4

PC,ERROR

A+Se10

“INNIBIT ERRER PRINTOUT

“ERROR 16
;WAS TIMER BIT CLEARED
:YES,SO BRANLH

:NO,SO SET ERROR REPORT
;SWR BIT 14 10
;INHIBIT PRINTOUT
;ERROR TIMER BIT WAS NOT
;CLEARED BY BIC

;ERROR 10,

;SCOPE LOOP ON INTERRUPT

= OO~

S NN

1 1
\ 1
1 \
1 1
1 1
1 1
1 }
1
1 1
1 1

PIPVAINI
Y
ot et s

VIV LOGIC TESTS MACYIY 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
003702

003504

003704
003710
003712

005337
001402
000137

06-SEP-79

TEST

15:10

PAGE 21-1

;(SWR BiTS 9 ,

11014

014250
003034

DEC

BEQ
JMP

SEa 0028

REPONT

11018
11001

;DONE ENOUGH ?

sYES
;NO

108 11

)

v e bt 31

il
el

NV NV IRIT v 1.2 et- S
i N Y S

No NoXo No Jo JU IV IV IV IV IV IV IV IV IV .V . ¥ 2k 2F 2F 2E 2k 2K 2 2F 2RV

il
d

Ko Xeo e

g =30, DS I PPN S P AR VD" AT PR N AR A AvAY v

i
i

il
i
sl

el el
ikl

D
D

Tl
e

)
oD

il et

il el

D il
el

il
e
e
el

) i
el

el
il
—
-

il
i
D

h
it
i
D
ol
el
B

D i

B ENENENE Yo o

h ol
el

il
e

e e
e

el ol s

RYEYEEE

e
e

[0 X

—

el o

D e

D i

lh e

D i

el e

il el

i
i
el

VIV LOGIC TESTS MACY1Y 30A(1052)
CVVTAA .SRC
06-5€EP-79 15:03
003716
003722
003726
003732
003736
003740
003746
003750
003756
003762
003764
003772
004000
004004
004012

004016
004024
004040
0046044
0046046
004052
004054

004276

004270

004156

004120
004124

004737
000007

006126
004130

003764

004132

mov

004266
004264

010210
004204

1%:

2%:
11019:

004272
11021:

MOV
MOV

#60.,SECOND

;SET 60 INTERRUPTS

BELLMS

;BELLS WILL RING EVERY SECOND

L525

JSR

PC,TYPOUT

Mov
Mov
Mov

CLR

MoV
PSWSET

JSR
BC(C
151
BNE
BR
(LK
1581

MOV

JSR
(LR
DE(
BNE
CLR
BR

010104

: *INTERRUPT
;*VECTOR

;TEST FOR 625 OR 525 LINES
;BRANCH [F 525 LINES
1 SECOND
;SET 50 INTERRUPTS

BtQ

000007
016710
004274
004266

7340, (RO)

;*SET UP

%
l;O..SECOND

CLR

T1019A:

INTVEC,RO

N STIMEY, (RO)+

11
BM1

11020:

004272
004274

SEQ 0029

#10.,COUNT?

SECOND, COUNTI
INTFLG

#40000,aCSR
wigh
#2, W10
#0
PC,WAIT
11022
INTFLG
11021
11020
INTFLG
BELLS
11020
N7 ,RO
PC,PCHR

BELLS

COUNT?

;PRINT
;FOR

INSTRUCTIONS

SECOND

10 SECONDS

“CLEAR INTERRUPT FLAG

"ENABLE TIMER INTERRUPT

;*SET UP

;+TIME OUT
;TURN ON INTERUPTS

FOR TIMEOUT

;WAIT

;TIMED OUT WAITING FOR INTERRUPT
;TEST FOR INTERRUPT
;0.X, BRANCH IF INTERRUPT
:NO INTERRUPT SO WAIT SOME MORE
;CLEAR INTERRUPT FLAG
;SHOULD WE RING BELL ?
;BRANCH IF NO
;*RING

s *BELL

:CLEAR BELL FLAG
;DECREMENT BELL COUNT

T1019A
aCSR
11023

;BRANCH IF MORE RINGS REQUIRED

PC,ERROR
7

;ERROR TIME OUT

:DONE ENOUGH SO CLEAR (SR
;COMPLETE BRANCH TO END OF

TEST

11022:

JSR

104410

11023:

TRAP+10
11019

;1 00P ON BELL

104404

T10WwW:

TRAP¢+4

;SET SWR BIT 8 10
;LOOP ON TESI
;CHECK FOR PRE-SELECTED TEST

004136
004144
004146
004152

003034
032777
001402
000137
000137

004156
004162
004164
004170
004172
004174
004176

005337
001095
005337
001002
000241
000207
000261

004134

000074
016632

004737
103025

PAGE 22

MOV

004270

000012
004270
004272
040000
004202
000002

15:10

11018:

000062

012737
013737
005037
012777
005037
012737

004070
004074
004100
004104
004110
004112
004116

004066

TESTH

014242
004230
000340
012156

005737
001001
000771
005037
005737
001764
612700
004737
005037
005337
021340
005077
000403

004056
004062

06-SEP-79

020544

000100

010054

001232
004710

1%:

0042¢C2

WA]T:

004204

5%:

71001
Bl
BEQ
JMP
JMP

DEC
BNE
DEC
BNE
c
RTS
SEC

#100,aS5wR
1%

START?

TEST?

wicl
5%

wico

:DECREMENT TEMPORARY (OUNT
;EXIT |F NOT ZERO
;DECREMENT TIMER COUNT
JEXIT IF NOT ZERO
;TIMED OUT

;EX1T RETURN

;NOT

TIMED Oul

EX]1T

06-SEP=79

NOWVNES
W
-0

NN
NN NN
D il el e td e i et O

000207

004202
004204

000000
000000

004206
004212
006220
004226

005237
042777
017737
000002

004272
140100
007776

004230
004236
006242
0042646
004250
004254
004262

042777
005237
005337
001005
005237
013737
000002

100000
004272
006264

004264
004266
004270
004272
004274

000000
000000
000000
000000
000000

004276
004361
004427
004473
004531
006602
004660

041133
133
133
133
133
020133
040440

15:10

PAGE 22-1

RTS

wic1:

0
0

INTSRV:

INC
BlC

004274
004270

—

wiCco:

0002

4342

007764

004264

MOV
RT1

TIMEY:

TIMETA:

COUNT1:
(OUNTZ:

=
SECOND
INTFLG:
BELLS:

046105
044440
044440
047040
047040
044524
052106

BELLMS:

ERMS10:
ERMS11:
ERMS1?2:
ERMS13:
ERMS14:

BIC
INC
DEC
BNE
INC
MOv
RTI

SEa 0030

INTFLG

:SET INTERRUPT FLAG

#140100,3CSR
aCSR,STATUS

#100000,3CSR

INTFLG
COUNTT
TIMETA
BELLS
SECOND,COUNTI

:CLEAR INTERRUPT & ENABLE BITS
:SAVE CONTENTS OF CSR

:CLEAR TIMER BIT

;SET INTERRUPT BIT
:
;1S 1 SECOND UP
SYES , SO SET BELL
SSET UP TIME TO NEXT BELL

OO0

03
204
205

004200

TEST?

(oo Taoe oo RleRo Vo R o X o XV o X¥eYo - Yo Jo -To Yo Yo Yo - To' )
= OOV
NO VNS NN = OO
~NO WY

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03

.NLIST
LASCII
LASCII
LASCl1
+ASCLI
LASCL]
]
CASC.
LASCL]
.EVEN
L1IST

BEX

/[BELL SHOULD RING 10 TIMES AT 1 SECOND INTERVALS [a/
/0 INTERRUPT OCCURED WITH ENABLE (LEARQ/
/0 INTERRUPT OCCURED AT WRONG LEVEL a/
/0L NO INTERRUPT WHEN EXPECTED @/

/0 NO TIMER INTERRUPT IN 20 MILLISECONDS @/
/0L TIMER BIT WAS NOT CLEARED BY BIC INSTRUCTION/
/

AFTER TIMER

X
BE

INTERRUPT

VIV LOGIC TESTS MACY11

CVVTAA . SRC

30A(1052)

06-SEP-79 15:03

06-SEP=-79

TEST?

15:10

1219

PAGE 23

LSBTTL

1220

SeQ 0031

TEST?

ceTeReeTTITSREY
YR RYILELYYE

1221

;THIS TEST

1224

JrtrtereT
T RLEYREYELEYTSE

1222
1223
004710
004716
004720

012737
104402
004726

004737

014416

1231

004726

005037

016346

1232
1233
}%gg
1236
1237
1238
1239
1260
12641
1262

0064722

004732
004736

006742

012704
004737
0106437

004746
004750
004756
004762
004766
004770
0064776

000005
117737
105037
005737
001417
013737
005037

000002

0146336

0162640
014334

016344

12646
1247
1248
1269

005016
005020
005024
005026

005030

005662
004737
120000
104410

004746

1252
1253

005032
005036

012703
012702

000001
000020

010037
105037
113777
117737
105037
042737
023737
001415
013737

014334
014335
014336
007150
014337
000200
014334

}52?

1254

1255
1256
1257
1258
1259
1260
1261
1262
1263

12664
1265
1266
1267
1268
1269
1270
12;;

1273

12764

005042
005046
005052
005056
005064
005072
005076
005104
005112
005114

005122
005130
005132
005136
005140
005144
005146
005150

005152

005154

004737

032777
001003
004737
005662
004737
120001
104420
005056

104430

005042

12000:

007264
014337
014336

032777

001p03
37

TEST2:

014250

005002

005010
005012

014216

000100
015104

12643
12644
1265

THE OPERATION Of

s THE CHARACTER STORE ADDRESS REGISTER
;IN LOADING , READING & INCREMENTING.

1225
1226
1227
1228

}%%3

CHECKS

040000

12001:

007210

NO.

JSR

PC,TESTR

;OUTPUT TEST

(LR

ERRDIS

FREPCTZ
R4
PC,FASTSW
R& ,REPCNT

;SET UP TEST

ITERATION COUNT

RESEY
MOVB
(LRB
151
8ta
MOV
CLR

aCHAR,BAD
BAD+1
BAD
12002
CHAR ,ADDRES
600D

;READ CHARACTER STORE ADDRESS REGISTER
:
sCHECK WHAT WAS READ
;BRANCH IF IT WAS ZERO
;SET UP FOR ERROR REPORT
:

BNE
JSR

1%
PC,TYPOUT

;ERROR PRINTOUT
;CHARACTER ADDRESS REGISTER ERROR

MOV
JSR
MOV

1%:

JSR

12002:

TRAP+10

007154
014336
014334
014336

014344
007070

#40000,aSWR
ERMS20
PC,ERROR
A+G+0

12001

12004:

JSR
MOV
CLRB
T12004A: MOVB
MOVB
(LRB
BIC
(mp
BEQ
MCOv

811
BNE
JSR

016632

020544

;SET UP TEST

12003:
MOV
T2003A: MOV

020246

01462640
040000

#2,TESTNO

BIT

016632

020544

MOV
TRAP+?2
12000

;SET SWR BIT

14 TO INHIBIT

;
;ERROR 0
:
;SCOPE LOOP ON RESET

;(SWR BIT 9 )
#1,R3
#20,R2

JSET R3 FOR FIRST DATA PATTERN
;REPEAT COUNT FOR EACH PATTERN

RO, 600D
600D +1
GO0D ,a(HAR
dCHAR ,BAD
BAD+1
#200,G000
600D ,BAD
12005
CHAR ,ADDRES

;* DATA PATTERN
;+ IN GOOD
;LOAD C(HARACTER ADDRESS REGISTER
sREAD |1 BACK
:
:
;WAS IT LOADED CORRECTLY
;BRANCH 1F 0.K.
;SEY UP FOR ERROR REPORT

PC,GENER

T2004A

;SET SWR BIT 14 T0 INMIBIY
;ERROR PRINTOUT
;sCHARACTER ADDRESS REGISTER ERROR
:
;ERROR 1
;
;SCOPE LOOP ON THIS PATTERN
;. ( SWR BIT 10 )

TRAP+30

;SCOPE LOOP ON (HANGING PATTERN

1%:

JSR

12005:

TRAP+20

12004

#40000,3SWR
1%
PC,TYPOUT
ERMS20
PC,ERROR
A+(+1

;v SET UP

; (SWR BI11S 9 8 10

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

1275

1276
1277
1278
1279

}%g?

005156
005160
005162
005164

005170

00530¢
001330
005203
020327

100722

000007

06-SEP-79
15:10
TEST?

PAGE 23-1

] 4¢
BNE
INC
(mp

R2
12004
R3
R3 #7

BM]

12003A

SEQ 0032
;HAVE WE DONE ENOUGH OF THIS PATTERN
;BRANCH I1F NO
SNEXT PATTERN
;HAVE WE DONE ALL PATTERNS

;BRANCH IFf NO

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

VNS W
N

O PO RO N
it

NN~ OOV

W
N WM AN WM

N
BN

ol
D
e il
) i

L A
U A

i e
el

L
A

o
il
e

L A
L A
A

——d e o

AN LN

el el e

i S

D e

d e

—=OO0VNO VS WA —-0O0

AN AN [V AV RV RV AV AV IV IV IV IV IV V]
RO RO RO Y ng_a_-—ha.g_a_a_ud.aCD

1283
1284
1285
1286
1287
1288
1289
1290

06-SEP-79

TEST?

15:10

PAGE

SEQ 0033
:q""""""'l'.l""""'

;THIS PART OF THE TEST CHECKS THAT
;CHAR (CHSR TOP BYTE )WILL INCREMENT
;WHEN

‘OR

CHDR (CHSR LOwW BYTE
CHSR

1S READ

)I!S LOAPED

:"I""""""""t."""

005172
005174
005200
005206

000004
000000
000000

005214
005222
005226
005232
005234
005236
005240
005246
005252
005260
005262
005270
005276
005300
005304
005306

014334
007022

007020
014337
014336

0146336

006774
016337

014336

000001

014336

000001
040000

014334
006722

12007:

020544

005320
005322
005330
005334
005342

001000
000003
000000
000000

006672

006664.

014336

014337
014336

014334
006666

006640
000001

014336
014336

000001
040000

0146334
006572

120003

rR
#0,G00D
#0,aCHDR

MovB

a(HAR ,BAD

MovB

BAD¢1

BAD
12008
R1

12007

JSR

PC,TYPOUT

1%:

JSR

PC,ERROR

12009:

TRAP+40
12006

12010:

RESET
MOV
MOV
MOV
MOvB

#1000,aCSR
#3,R1
#0,G000
#0,aCHDR

MovB

9CHAR,BAD

12012:

1%:

(LRB
187
BNE
DEC
BNE
MOvB
(MP
BEQ
Mov

READ ZERO
ERROR REPORT If NOT
TIMES
MORE 10 DO

:BAD SHOULD NOW CONTAIN 1

::OOOO,QSUR

12011:

;17 SHOULD
;BRANCH TO
;D0 THIS &
;BRANCH IF

#1 ,BAD
12009
#1,G600D

BIT
BNE

12008:

;SET UP GOOD FOR ERROR REPORT
;LOAD SOMETHING TO CHARACTER STORE
;DATA REGISTER
;READ CHARACTER ADDRESS REGISTER

JREAD CHACACTER ADDRESS REGISTER

BAD+1

MOV

;INITALISE HARDWARE

aCHAR ,BAD

(LRB
(MpP
BeQ

016632
020544

RESET

MOv
Mov
MOvB

(LRB
187
BNE
DEC
BNE

016632

005312
00531¢
005316

005350
005356
005362
005366
005370
005372
005374
005402
005410
005412
005420
005426
005430
005434
005436
005442

12006:

ERMS20

A+G+2

BAD+1
BAD

12012
R1
12011
o(HAR,BAD
#1,BAD

12013

#1,600D

BIT
BNE
JSR

::OOOO,GSUR

JSR

PC,ERROR

PC,TYPOUT

ERMS20
AvGed

;BRANCH

0.K.

;SET UP FOR ERROR REPORI1
;SET SWR BIT 14 10 INHIBIT
;ERROR PRINTOUT
; CHARACTER STORE ADDRESS REGISTER
: INCREMENT ERROR
;ERROR 2,ADDRESS SHOULD ONLY
;AFTER 8 DATA LOADS OR READS

;SCOPE LOOP ON RESETM AND LOAD
. (SWR BIT 11 )

;INITALISE HARDWARE
;SET 6v BIT

;SET UP GOOD FOR ERROR REPORT
;LOAD SOMETHING TO CHARACTER STORE
;DATA REGISTER
;READ CHARACTER ADDRESS REGISTER

;17 SHOULD READ ZERO
;BRANCH 1O ERROR REPORT ]F NOT
;00 THIS & TIMES
;BRANCH IF MORE 10 DO
;READ CHARACTER ADDRESS REGISTER
:BAD SHOULD NOW CONTAIN 1
;BRANCH IF

0.K.

:SET UP FOR ERROR REPORT
;SET SWR BIT 14 1O INHIBIT
;ERROR PRINTOUT
; CHARACTER STORE ADDRESS REGISTER
; INCREMENT ERROR
;ERROR 3,ADDRESS SHOULD ONLY
SAFTER 6 DATA LOADS OR READS

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

005444
005446

12013:

1046450

005320

PAGE 24-1

SEQ 0034

;SCOPE LOOP ON RESET AND LOAD

TRAP+50
12010

(SWR BIT 9§ 11)

;""""

sCHECK THAT INVISABLE BITS OF
:CHAR ARE SET T0O ZERO ON A LOAD
:""""

005450
005454
005462
005470
005476

006546
000000
000000
000000
000000

005504
005510
005516

000004
000000
000000
006510
014337
014336

005524
005532
005536
005542
005544
005546
005550
005556
005562
005570

006556
006546
006540
006534

014334
006512

014336

000001

014334

005032

005634
005640
005642

005337
001402
000137

014250

005646
005654
005656

032777
001427
000137

000100

005662

020133

044103

040000

12015:

014336

006464
0164337
000001

005572
005600
005606
005610
005614
00561¢
005622
005624
005626
005630
005632

12014:

12016:

016632
020544

a(SR

#0,3CHDR
#0,3CHDR

;00 TWO LOADS TO DATA REGISTER
;70 INCREMENT INVISABLE BITS

Mov
MOV
MOvB

¥ ,R1

#0,aCHAR
#C,aCHAR

#0,600D
#0,aCHDR

MOVB

014336

006412

CLR
Mmove
mMovB
MOvB
MOvB

CLRB
151
BNE
DEC
BNE
MOVB
(LRB
CMp
BeaQ
MOV
BIT
BNE
JSR

001232

12018:

#1,BAD
12017
#1,600D

:BAD SHOULD NOW CONTAIN 1
;BRANCH IF 0.K.
:SET UP FOR ERROR REPORT

;D0 THIS & TIMES
:BRANCH IF MORE 10 DO

NOT

#40000,3S5uWR

:SET SWR BIT 14 10 INHIBIT

PC,1YPOWTY
ERMS20
PC,ERROR
A+G+é

:CHARACTER STORE ADDRESS REGISTER
JINCREMENT ERROR

;ERROR PRINTOUT

;ERROR & ,ADDRESS SHOULD ONLY
SAFTER 8 DATA LOADS OR READS

:SCOPE LOOP ON READ AND LOAD
:

(SWR BIT

108 11

:SET SWR BIT 8 10
;LOOP ON TEST

)

DEC
BeaQ
JMP

REPUNT
12018
12003

;DONE ENOUGH ?
s YES
:NO

BIT
BEQ

#100,aSWR
TESTS
START?

sCHECK FOR PRE-SELECTED TEST

—

ERMS20: .

el
3 4
— N
[V X aa R X )
Pl
o X ¥

JMP

051101

;DATA REGISTER

:READ CHACACTER ADDRESS REGISTER

12003

006344

;SET UP GOOD FOR ERROR REPORT
:LOAD SOMETHING TO CHARACTER STORE

gCHA?,BAD

TRAP+4

005032

;1T SHOULD READ ZERO
;BRANCH TO ERROR REPORT

TRAP+60
12014

;WERE SET 10 ZERO

BAD
12076

AD+

12017

;LOAD ADDRESS REGISTER AGAIN
:NOW CHECK THAT BITS

SCSA$'BA°

R1
12015

JSR

;LOAD CHARACTER ADDRESS REGISTER

:READ CHARACTER ADDRESS REGISTER

AD+

1%:

1339
1340
1341
1342
1343
1344
1345
1346
1347
1348

06-SEP-79
15:10
TEST?2

BEX

/0 CHARACTER STORE

X
BE

ADDRESS REGISTER ERROR a/

VIV LOGIC TESTS MACY1{ 30A(1052)
06-SEP-79 15:03

CVVTAA,.SRC

15:10
06-SEP-79
TESTS

1395
1396
1397
1398
1399
1400
1401

1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1614
1615
1416
1617
1418
1419
1420
14621
1422

1423

1426
1425
1426
1427
1428
1429
1430
1431
1432

1433
1434
1435
1436
1437
1438

1439
1440
1441
1442
1443
1444
1445
1646

1447

1448
1449
1450

PAGE 25

.SBTTL

SEQ 0035

TEST3
SETtEeteT
IR
I
RIEILIRRR RO LRI EY

;THIS TEST

CHECKS OUT

THE

C(HARACTER

;STORE BY LOADING EVERY LOCATION
;WITH RANDOM DATA AND THEN

;READING EACH LOCATION BACK AND
;CHECKING THE DATA.

;"""""""""""'"ll."'t'

TEST3:

005734
005742
005764
005746

012737

000003

0057%2
004737

014416

005752
005756
005762
005766

005037
012704
004737
010437

016346
000100
015104
014250

13000:

005772
005776
006002
006006
006012
006014
006020
006024
006030
006034
006040
006042
006044
006050
006054
006060
006064
006066
006072

005071
105077
013705
012701
006201
012703
004737
004737

006224
006236
012060
002000

13001:

000006
020246
006146

13002:

105037

014336
014337

ASR
MOV
JSR
JSR
Mmovs
JSR
DEC
361
MOV
MOov
CLRB
JSR
BR
move
CLRB

006076
006102

004737

020544

JSR

006104
006106

104410
006044

006110
006112
006114
006116

005301
003362

DEC
BGT

005772

13001

006120
006124
006126

005337
001402
000137

104402

113700

004737
005301
003364
013705
012701
105077
004737
000407
110037

130001

014216

TRAP+?2
13000
JSR
CLR

Mov

JSR

Mov

CLR
CLRB
MOv
MoV

016335
006146

012060
002000
006160
006162

Mov

13003:
13004:

13005:

014250
005772

;SET

PC,TESTR

;OUTPUT

ERRDIS
#REPCTZ,R4
PC,FASTSW
R4 ,REPCNT

;ST UP TEST

a(SR
aCHAR
BUFF ,RS
#2000,R1

:SET FOR 8X8 MATRIX
:SET CHARACTER ADDRESS 10 0
:SAVE FOR COMPARE IN BUFF
:2000 (8) BYTES

#6,R3

:GENERATE RANDOM NUMBER

DEC
BEQ
JMP

UP TEST

NO.

TEST NO

ITERATION COUNT

;TWO0 PER LOAD

PC,GENER

600D+1,R0

sNEXT BYTE IN RO

PC,LOPROM
PC,LOPROM
R1
130C2

BUFF ,RS

:LOAD CHARACTER DATA BYTE
;LOAD SECOND BYTE
;1S THERE MORE ?
:BRANCH IF YES

:NO, SO NOW READ & (OMPARE

#2000,R1

PC,REPROM
13005
RO,BAD

BAD+1

;READ A BYTE
;0.K. ARG
:SET UP FOR ERROR MESAGE
;CLEAR OUT RUBBISH

PC,ERROR
G¢S+A+]

;ERROR 1,5TORE DATA ERROR
:

o(HAR

;SET CHARACTER ADDRESS 10 O

;ADDRES CONTAINS STORE ADDRESS
:WRONG DATA

IN STORE

:SCPOE LOOP ON READING 1ST CHAR,
; (SWR BIT 9 )

TRAP+10
13003

TRAP+4

104404

#3,TESTNO

R1
13004

;MORE
s YES

;SET SWR B]JT 8 1O

.LOOP ON TEST

REPCNT
13006
13001

:DONE ENOUGH ?
JYES
;NO

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA
. SRC

1451
1452
1453
1656
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479

1480

006132
006140
006142

032777
001447
000137

000100

006146
006152
006154
006160

042700
110025

177400

110077
000207

006056

006162
006166
006170
006174
006176
006202
006206
006212
006220
006226
006234
006240
006246
006250
006252
006256

017702

006042

06-SEP=79
15:10
TESTS
006060

13006:

001232

LOPROM:

REPROM:

177400
177400
014344
014342
012060
000001
177770

177400

014334

000002

BIT
BEQ
JMp

#100,3SwR

8l1C
MovB
Move
RTS

#177400,R0
RO, (RS)+
RO,aCHDR

MoV
Mov

BIC
SWAB
BIC

0146342
0146342
014342

MoV
Mov

SUB
SUB
BIC
MovB
BIC
(MPB
BEQ

REPRM?:

PAGE 25-1

ADD
RTS

TESTS

SEQ 0036

;CHELK FOR PRE-SELECTED TEST

START?

;CLEAR TOP RUBBISH
;STORE

IN CORE

;8 IN DISPLAY CHARACTER STORE
s RETURN

;READ CHARACTER STORE REGISTER

;*SET UP RO WITH

#177400,R0
R2
#177400,R2
R2,ADDRES
RS,STATUS
BUFF ,STATUS
#1,STATUS
#177770,STATUS
(RS),G000
#177400,G00D

:*CHARACTER DATA
JeSET UP

REPRMY
#2,(SP)

"BRANCH IF 0.K.
;:NO SO JUMP OVER OK RETURN ADD.
;RETURN

RO, (RS)+

; *ADDRESS WITH
;*CHARACTER ADDRESS

;ROW OF

CHARA(CTER

;SET UP WITH GOOD DATA

TCHECK WHAT WAS READ

)

VIV LOGIC TESTS MACY11 30A(1052)
CVVTRAA,SRC
06-5EP-79 15:03

06-SEP-79

TESTS

15:10

14,82

1483
1484
1485
1486
1487
1488
1489
1490

1491
1492

1493
1496
1495
1496
1497
1498
1499
1500
1501

1502

—

ol
i
oD
i
D
D
wd
e
d
i
d
b
e
b
b
d e
h
h o

(W RV IV TU RV TV LV TV LV LW LV LV AV SV RV LV JU LV AV JV_JV | n
PONUAURNO RO RO PO PO NI N =t b b d ad e b ok ot et O o
O
NN
NN = OV
NO WS NN -0 oo

1503
1504
1505
1506
1507

PAGE 26

LSBTTL

SeEQ 0037

TEST4
:"""""Q""""

;THIS TEST

CHECKS THE

CURSOR REGISTGR

;FOR CORRECT LOADING AND READING
s17T CHECKS FOR INCREMENT WHEN LOADING
:THE PJCTURE STORE AND THE EFFECT ON
C.R. & HOME.
:THE REGISTER OF L.F.
:"""""""fi""

012737

000004

006270
006272

006276
004737

014416

006276
006302
006306
006312

005037
012704
004737
010437

016346
000100
015104
014250

006316

000005
012702
012703
004737
010077
017737
042700
020037
001410
010037
013737
004737
120001

006260
006266

006320

006324
006330
006334
006340
006346

006352
006356
006360
006364
006372
006376
006400
006402
006404
006412
006420

006424
006426
006432
006440
006444
006446
006450
006452
006454

104402

000100
000006
020246
005666
005662

140200
014336

014334
014226

020544

014216

146000:

120002
106420

006330
005302
001325

014334
0146226
020544

;SET

PC,TESTR

;OUTPUT

ERRDIS

Mov

R& ,REPCNT

Mov
MOV

014344

Mov
MoV

BlC
CMP
BEQ

JSR
TRAP+10
14002

005612
014336

Mov
MOV

014344

MOV

1587
BtQ
CLR
JSR

14006

#4,TESTNO

CLR
MOv

014336

14003:

000335
005610
014336

TRAP+?2
14000
JSR

164001:
RESET
T164002A: MOV
MOv
14002:
JSR

104410

017737
005737
001410
005037
013737
004737

MOV

JSR

006330
012777

TESTS:

TRAP+20
14002
DEC
BNE

UP TEST

NO.

TEST

#REPCTZ,RG
PC,FASTSW

#100,R2
#6,R3
PC,GENER
RO,aCAR
aCAR,BAD
#140200,R0
RO,BAD

14003

RO,GOOD
CAR,ADDRES
PC,ERROR
A+G+l

;SET

UP TEST

ITERATION COUNT

s INITALISE HARDWARE

:SET REPEAT COUNT
: *GENERATE RANDOM
:*DATA
:LOAD CAR
;READ IT BA(CK
;CLEAR BITS THAT READ ZERO
;WAS 1T LOADED & READ CORRECTLY

;BRANCH If

0.K.

:*SET UP FOR
: *ERROR REPORT
;ERROR 1, CURSOR ADDRESS REGISTER
:DATA ERROR

;LOOP ON LOAD
; (SWR BIT

)

#33%,3DBUf
a9CAR,BAD
BAD
14004
6000
CAR,ADDRES
PC,ERROR
A+G+2

;DO HOME CURSOR
;READ CURSOR

R
14002

:ANY MORE °
;YES SO BRANCH

;WAS 1T CLEARED Br HOME
+BRANCH 1F 0.K.

;SET UP FOR ERROR REPORT
;
;ERROR 2, CAR DID NOT CLEAR

;ON HOME
:LOOP ON LOAD
: (SWR BiT 10 )

JIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

3&&@NNNNNNNNN
N—= OOV
~YO NS W) —O
&

=
el
el
b
ol
b
il
D el
i
el

RV TV IV SV IV IV IV IV IV TV TV TV 1V ]

el
—
—

15:10

PAGE 27

SEQ 0038

006536
006544
006552
006556
006564
006566
006572
006600
006602
006606

N
N
N
NN
N
N
(V] ~ W

006656
006464
006472
006476
006502
006510
006514
006520
006526
006530
006534

o (v| O WNNNNNO
W

;"""""""

006660

TESTS

STEST CARX IN 6H MODE

006610
006616
006624
006630
006636
006640
006644
006652
006654

1585
1586

06-SEP=79

‘oA RRRRRRORSY

~no 8b
NN
=2 MO ON ~NOPNINIIN
NN =~~~

PP
NNHN NN NN NN
NN
OOV
NO NI NP —
£
E

b
i
D e
i
o
i
e
i
e
e
el
e
-

AVAlVakV JV SV IV LV IV LV TV LV IV LV IV IV, ]

CVVTAA .SRC

014232
000404
000117
005530
005524
014337
014334
014334

000000
005462

016334
014334

112777

117737

105037

023727
001402
005237
023737
001403
004737
120005

006662
006670
006676
006702
006710
006712
006716
006724
006726
006732

112777
117737
105037
023727
001402

006734
006742
006750
006754
006760
006766
006770
006774

014336

14005:

014336

BEQ
JSR

0205446

016337
0146334

120004

0146344
005530

005460
014336

16006:

000117
014336

1%:

0205446

000300
005410
014337
014334

014334
014334

005406
014336

:
164007

000117
014336

1%:

020544

000301
005336
014337

005334
014336

14008:

014334

000117

005237
023737
001403
004737

014334
014334

014336

1%:

112777
}17737

000315
005264
014337
014334
014334

005262
014336

14009:

120006

120207

020544

014336

MoV
MOV
MOV
MOvB
MOvVB
CLRB
MOv
CMP

Move
Movs
CLRB
CMP

BEQ
INC
CMP
BtQ
JSR

Move
MovB

CLRB
CMP
BEQ
INC
(MP
BEQ
JSR
MOvB
MOvB

CLRB
cMp
BEQ
INC
CMP
BEQ
JSR

MovB
MOvB
CLRB
CLR
CMpP
BEQ
JSR

CARX,ADDRES
#604,3CSR
279, ,R1
R1,aCARX
aCARX,BAD

BAD+1

R1,600D
600D ,BAD
164006
PC,ERROR

A+G+3

#0,308UF

adCARX,BAD

BAD+1
600D, #79.

;SET UP FOR ANY ERROR REPORT
;SET FOR 6H & INC
;SET R1 WITH MAX VALUE
;LOAD X ADDRESS
;READ

1T BA(K

SET UP GOOD

WAS DATA READ CORRECTLY

:BRANCH IF 0.K.

:ERROR 3, (OAD/READ ERROR

;D0 A LOAD TO PICTURE STORE
;READ X ADDRESS
:SHOULD 1T HAVE

INCREMENTED

1%
600D
600D ,BAD
14007
PC,ERROR
A+G+4

;BRANCH 1F NO
;YES, SO INC GOOD
;DID CARX INCREMENT CORRECTLY

#300,3DBUF
3CARX,BAD
BAD+1

;SET BLINK OFF INCREMENT
;READ X ADDRESS

GOO0D,#79.

1%
600D
GOOD,BAD
14008
PC,ERROR

A+G+5

#301,aDBUF
aCARX,BAD

BAD+1
G000, #79.
1%
600D
600D ,B8AD
14009
PC,ERROR
A+G+6

#315,3DBUF
oCARX ,BAD

BAD+1

6000
600D ,BAD

14010

PC,ERROR

7
A+Ge

;BRANCH If

0.K.

;ERROR 4, CARX INCREMENT ERROR

;SHOULD IT HAVE INCREMENTED
;BRANCH [F NO
;YES,

SO INCREMENT

GOOD

;DID CARX INCREMENT CORRECTLY
;BRANCH IF 0.K.

;ERROR 5 , CARX INCREMENT ERROR
sSET BLINK ON INCREMENT
;READ X ADDRESS

;SHOULD 1T HAVE INCREMENTED
;BRANCH IF NO
;YES, SO INCREMENT GOOC
;DID CARX INCREMENT CORRECTLY
:BRANCH IF 0.K.
;ERROR 6, CARX INCREMENT ERROR
;00 A CARAGE RETURN
;READ X ADDRESS

*DID CARX ZERO ON CR.

‘BRANCH IF 0.K.
“ERROR 7,CARX DID NOT ZERO

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC
1587

1588
1589
1590
1591
1592

1593
1594
1595

1596
1597
1598
1599
1600
1601
1602
1603
1604

006776
007000
007002
007006

007006
007014
007022
007026
007032
007040
007046
007050
007056

737
0O
777
0
701
©
177
1
737
1
037
1
0O 0137
023737
001403

014232
000004
000077

005200
005174

014337
014334
01433¢

1 12777
117737
1 05037
023727
001402
005237
023737
001403
004737
120005

000300

1622
1623
1626
1625
1626
1627
1628

007140
007146
007154
007160
007166
007170
007174
007202
007204
007210

1630
631
6 32
6 33
6 34
35
36
237
38
6 39

007212
007220
007226
007232
007240
007242
007246
007254
007256
007262

112777 000301
117737 005006
105037 014337
023727 014334
001402
005237 016334
023737 016334
001403
004737 0205644
120006

(07266
007272

M1
!N

OV~
N
NN —

sd csd o
d el e

; (SWR BIT 11 )
:HAVE WE DONE ENOUGH

;BRANCH IF MORE

007060
007064

014334
014334

014344
005200
014336

14015:

0146336

005130
014336

CMP
BEQ
JSR

14016:

000077

014336

MOV
MOV
MOv
MovB
MOovB
CLRB
MOV

1%:

020544

MOvVB
MOovB
CLRB
(MP
BEQ
INC
(mMp
BEQ
JSR

CARX ,ADDRES
#46,3CSR

;SET UP FOR ANY ERROR REPORT
;SET FOR 8H & INC

R1,aCARX
aCARX ,BAD

;LOAD X ADDRESS
;READ IT BA(CK

#63. ,R1

BAD+1
R1,600D

;SET R1

WITH MAX VALUE

;SET UP GOOD

600D ,BAD
14016
PC,ERROR

;WAS DATA READ CORRECTLY

#0,aDBUF
aCARX ,BAD

;00 A LOAD TO PICTURE STORE

1%
600D
600D ,BAD

;BRANCH IF

PC,ERROR
A+G+4

;ERROR &, CARX INCREMENT ERROR

A+G+3

BAD+1
600D, #63.

;BRANCH IFf 0.K.

;ERROR 3, LOAD/READ ERROR

;READ

X ADDRESS

;SHCULD 1T HAVE INCREMENTED
NO

;YES, SO INC GOOD

;01D CARX INCREMENT CORRECTLY
0.K.

14017

;BRANCH 1F

#300,3DBUF
aCARX,BAD

:SET BLINK OFF

d
=P
N

v
i e
i
i el
e
D

;SCOPE LOOP ON LOAD AND INC.

TRAP+40
164005
R1
DEC
14005
BPL

;"t""'i'i"t

000000
005132
014337
014334

SEQ 0039

;TEST CARX IN BH MODE

112777
117737
105037
023727
001402
005237"
023737
001403
004737
120004

—

PAGE 27-1

;"""""'tt'

007066
007074
007102
007106
007114
007116
007122
007130
007132
007136

ococococococococoO

15:10

14010:

020544

1608
1609
1610

TESTS

104440
006476
005301
10023¢

004737
120003

1605
1606

06-SEP-79

1621

64
6 41
6 &2

777
757

005060
014337
014336
014334
016334

005056
014336

164017

000077

014336

1%:

020544

000315
004734

005004
014336

164018:

000077

014336

1%:

004732
014336

14019:

MovB
MovB

CLRB
CMP
BEQ
INC
CMP
BEQ
JSR
MOVB
MOvVB
CLRB
CMpP

BEQ
INC
CMpP
BEQ
JSR

MOvB
MOVB

BAD+1
GOOD, #63.
1%
600D
GOOoD,BAD

14018

PC,ERROR

A+G+5

;READ X ADDRESS
:SHOULD 1T HAVE

INCREMENT
INCREMENTED

;BRANCH IF NO
:YES, SO INCREMENT GOOD

;01D CARX INCREMENT CORRECTLY

:BRANCH If 0.K.

;ERROR 5 , CARX INCREMENT ERROR

#301,a08UF
aCARX,BAD
BAD+1

;SET BLINK ON INCREMENT
;READ X ADDRESS

1%
600D
600D ,BAD
14019
PC,ERROR
A+G+6

;BRANCH IF

#315,aDBUF
aCARX,BAD

;00 A CARAGE RETURN

GOO0D, #63.

:SHOULD 1T HAVE INCREMENTED
NO

;YES, SO INCREMENT GOOD
;01D CARX INCREMENT CORRECTLY
;BRANCH IF 0.K.
;ERROR 6, CARX INCREMENT ERROR

;READ

ADDRESS

viv LOGIC TESTS MACYIY 30AC1092) 06-SEP=-79 15:10 PAGE 27-2

CvvTAA SRC

06-5€P-79 15:03%

16643
1664

007300
007304

105037
005037

1666

007316

001403

1665

16647
}°“3
64

007310

007320
007324

1650
1651
1652
1653
1654
1655

007326
007330
007332
007334
00733
007344

1657
1658

007356
007360

1656

}658
66

1661
1662
1663
1666
1665
1666

1667
1668
1669
1670
1671
1672

1673
1676

1675
1676
1677
1678
1679

1680
1681
1og§

1684

1685
1686
1687
1623
16

023737

004737
120007

104440
007026
005301
100234
013737

007362

012777
013701
006301
005301
010102

007364
007370
007376
0076402
0076406
007614

110177
117737
105037
010137
023737
001403

007352

0076416
007422
007426
007432
007440
007444
007450
007452

007456
007464
007466
007472
0076476

007476
007500
007502
007504

007512
007516
007520
007522

004737
120010
112777
117737
105037
023702

001402
005237

023737
001403
004737
120011
104460

014337
014334

016433¢

013701
006301
005301
010102

112777

14020

CBRANCH IF

004572
014336

(014336

1%:

2%:

14022:
]
000004

012162

014337

016334

004570

014336

ASL
DEC

R1
R1

ceR1 WITH
:eMAX
VALUE

000312

MOVB
MOVB
CLRB
MOV
CMp
1 30]

004432

MOVB
MOVB
CLRB
(MP

BEQ
INC

(MP
BEQ
JOSR

1$:

HALF6V,R1
R1,R?

MOVB
MOVB

:SAVE

IN R2

:LOAD Y ADDRESS
JREAD ]T BAC(CK
;
;SET UP GOOD
:WAS LOAD/READ CORRECT
;BRANCH [F 0.k,

2%
600D

;+GO0D WITh
:+EXPECTED DATA

PC,ERROR
A+G+10
#312,aDBUF
aCARY ,BAD
BAD+1
600D ,R2
600D ,BAD
14022
PC,ERROR
A+G+ 11

¥4, (SR

HALF 8V,R1
R1
R1
R1,R2

;ERROR 8, LOAD/READ ERROR
:
:DO A LINE FEED
JREAD ¥
;
SeSET UP
;DID IT INCREMENT (ORRECTLY
:BRANCH IF 0.K.
:ERROR 9,INC ERROR ON LF¥F
;
;SCOPE LOOP ON LOAD & INC

:(SWR BITS 10 811
:ANY MORE T0 DO
:BRANCH IF YES
;SET

:LOAD Y ADDRESS
;READ 17 BACK

R1,G00OD

;SET UP GOOD

BAD*1

(MP
BEQ
JSR

GOOD,BAD
1%
PC,ERROP
A+G+10

#312,30DBUf

)

INC BITS

;eSET UP
c*R1 WITH
;«MAX
VALUE OF
;SAVE IN R2

R1,3CARY
aCARY,BAD

CLRB

MOVB

ceSET UP

R1,aCARY
o{ARY ,BAD
BAD+1
R1,GOOD
600D ,BAD
1%

TRAP+60
14021
DEC
R1
BPL
14021

MOV

020544

0.K.

:ERROR 7,CARX DID NOT ZERD
;

R
14018
CARY ,ADDRES
#1004 ,8CSR

MOV
ASL
DEC
MOV

014336

P(,.ERROR
AeGe?

:DID CARX ZERO ON (Y.

:SCOPE LOOP ON LOAD AND INC.
;(SWR BIT 11 )
:HAVE WE DONE ENOUGH
;BRANCH 1F MORE
;SET UP FOR ANY ERROR REPORT
;SET 6V & INC BITS

MOV

164023:

6000 ,BAD

‘

TRAP«40
14015
DEC
BPL
MOV
MOV

JSR

020544

014334

007564

14021:

014336

014334
014334

010137

1698

014336

000312
004576
014337
014334

007542

023737
001403
004737
120010

8eQ

MOV

020544

1693

007546
007554
007556
007562

004650

004666
004640
014337
014336
014334

004504
004500

1694
1695
1696
1697

;
;

MoV

110177
117737

105037

014344

001006
012160

007524
007520

007536

BAD 1
6000

JSR

014234

SEQ 0040

(LRB
(LR

(mp

16020:

1690
1691

1692

014336

020544

007364
005301
100330
012777

TESTS

Y
¢

;

:WAS LOAD/READ CORREC(T
:BRANCH [F 0.K.
:ERROR 8, LOAD/READ ERROR
;

;DO A LINE FEED

)

VIV LOGIC TESTS MACYT1 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

1699
1700
1701
1702
1703
1704

Y o 1
e B

NN —=O0

NS
~NO

R
R

— OOV

[

el
ol
B
il
el
i
etd
il
il
s
—

NNNNNNNNNNNNNY

1708

0044636
014337

06-SEP-79

TEST4

15:10

014336

PAGE 27-3

MOVB
(LRB

007572
007600
007604
007610
007612
007616
007624
007626
007632
007634
007636
007640
007642

117737
105037
023702
001402

100330

TRAP+60
14023
R1
Dt
C
14023
BPL

007644
007646
007650
007654
007656

104404

TRAP+4”

007662
067670
007672

005237
023737
001403
00473/
120011
104460

CMP

014633¢
014334
014336

BEQ

014336

020544
16024:

007524
005301

006320
005337
001402
000137

032777
001402

000137

2%:

DEC

BEQ

06320

001232

BEG
JSR

14002A

014250

00C100

INC
(P

JMP

004330

T40wW:

gé;
JMP

dCARY ,BAD

BAD+1
600D ,R?
2%

600D
600D ,BAD
16024

PC,ERROR

A+Gelll

SEQ 004!
.

[

READ

[
.

.
.

*SET UP
+GO0D WITH
+EXPECTED DATA

DID IT INCREMENT
BRANCH IF 0.K.

CORRECTLY

ERROR 9,INC ERROR ON LF

[
.

[

SCOPE LOOP ON LOAD & INC
(SWR BITS 10 £11 )

;ANY MORE

;BRANCH IF

TO DO

YES

;SET SWR BIT 8 10
.

[

REPCNT
T40WW
14002A

#100,aSwR
TESTS

START2

’
.

[

L}
.

[
.

’

LOOP ON TEST

DONE ENOUGH ?
YES
NO

(HECK FOR PRESELECTED TEST

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP=-79 15:03

CVVTAA .SRC

06~SEP-79

TESTS

15:10

1723
1724
1725
1726
1727
1728

PAGE 28

LSBTTL

SEQ 0042

TESTS
:"""""""""""

;THIS TEST CHECKS EVERY LGCATION
;IN THE PICTURE STORE FOR CORRECT
ALSO
;LOADING AND READING. IT
;CHECKS PRESEY AND THE GPERATION
;0F THE VARIOUS BLINK COMMANDS.
;""""""""'t""

000005

007714
007720
007724
007730

005037
012704
004737
010437

014346
000100
015104
0146250

007734
007742
007746
007752
007760
007764
307770
007774
010000
010004

112777
005037
005077
012777
013705
013704
012702
012703
004737
042737
013700

000302
012056
0046254
001405
012060
012160
000120
000006
020246
100200
014334

010016

010025
004737
042700

010012

010020
010024
010030
010034
010040
010042
010046

el
el
=l cadd
il
)
il
)

15000:

012002
000100
000200
004072
005302

004064

MOV

TRAP+2
15000
JSR

CLR
MoV

JSR

Mov

004262
004242

15001:

15002:
15003:

016334

MovB
CLR

CLR

MOV
Mov
MOV
Mov
Mov
JSR

BIC

012002
000100
000200
0046164

012060
012160
000120

SN NN
= = OO ~
orrnonoONNOOoNN o

—

TESTS:

004156

—l
ol
=
—
el
il
il
el
i
el
—r

014216

014416

000315
000312

OO0OOOOOOOOOOO

40
6\
LY

012737
104402
007714
004737

[elelolelelolelolololale
o]

007676
007704
007706
007710

004144
004136

15004:
15005:

#5,TESTNO

;SET UP TEST NO.

PC,TESTR

;OUTPUT TEST NO

ERRDIS
#REPCTZ,RG
PC,FASTSW
R4 ,REPCNT

;SET UP TEST ITERATION COUNT

#302,3DBUF
BLNFLG
aCAR
#1405,aCSR

BUFF R

HALF 6V, RG
#80.,R?

#6,R3
PC,GENER
#100200,600D

;CLEAR BLINK CONTROL
;CLEAR BLINK FLAG
;CLEAR PICTURE STORE ADDRESS
;SET 6V,6H & CURSOR INC BITS
:SAVE FOR COMPARE IN BUFF
;SET UP R4 WITH HALF NO OF ROWS
;SET UP R2 WITH CHAR PER LINE
; *GENERATE RANDOM
;*DATA PATTERNS
bR4

MOV

600D ,RO

MOV

RO, (RS) ¢

;SAVE IN BUFFER

#200,R0
RO,aDBUF
RO
RO,aDBUF
R2
15003

: *COLOUR COMAND
;LOAD DATA BYTE
;GET NEXT BYTE

JSR
BlC
BIS
MOovB
SWAB
MOvB
DEC
BNE
MOvVB
MOVB
DEC
BNE
MOV
MOV
MOV
Mov

SWAB
JSR
8IC
B1S

MOvVB

SWAB

Move
DEC

PC,SETBLN
#100,R0

#315 ,308uf
#312,308uf
R&
15002

BUFF RS

R4
HALF6V,
#80.,R2

(R5)+,RO
RO
PC,SETBLN
#100,R0

#200,R0
RO,aDBUF
RO
RO,a0BUF

;CHECK
; *MAKE

BLINK
FLAG
CONTENTS OF RO

;NOW LOAD CHARA(CTER

;ANY MORE

CHARACTERS

;BRANCH IF YES
;00 CARAGE RETURN
;00 LINE FEED
:ANY MORE ROWS

;BRANCH IF
;NO,

SO SET

YES

INTO

IN LINE

iN HALF

UP FOR NEXT

SCREEN
HALF

;NUMBER OF ROWS
:NUMBER OF (HARACTERS PER LINE
;GET FIRST TWO BYTES

;CHECK BLINK FLAG
; *MAKE CONTENTS OF RO INTO
; *(OLOUR COMAND
:LOAD COLOUR

;GET NEXT BYTE
;LOAD (HARACTER
;ANY MORE CHARACTERS

IN LINE

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
1779
1780
1781
1782
1783

1784
1785
1786
1787
1788
1789

1790
1791
1792
1793
1794

1795
1796
1797
1798
1799
1800

1801
1802
1803
1804

010142
010146
010152
010160
010162

001361
112777
112777
005304
001347

000315
000312

;ANY MORE ROWS
;BRANCH IF YES
HAVE

NOW FINISHED LOADING

;NOW START

READING 1O CHECK

STORE

;"""".""""I

010164
010172
010200
010204
010210

010214
010216
010226
010226
010230
010232

010234
010236
0102644
010250

112777
042777
013705
013704
012702

012500
052777
000240
000240
000240
000240

000240
017737
020037
001610

010037
017737
004737
120001

000335
000004
012060
012160
000120

004032
004022

000020

003776

003762
014336

014334
003744
020544

010322

013705

012060

010340

010342
010350
010356
010362
010364
010370
010376
010402

013704
012702
012500

000300

052777
017737
020037
001410
010037
017737
004737
120001

15007A:
15008:

014336

014344

003632
020544

MOV
MOv
Mov

BIS

NOP
NOP
NOP
NOP
NOP
MOV
CMpP
BEQ
Mov
MOV

INCB
DEC
BNE

15010:
T5011:

003652
014336

15012:

MOov
MOov
MOV
Mov

SWAB
BIS

MOV
(MpP

BEQ

014344

#335,3DBUF

;HOME

BUFF ,RS
HALF 6V, R4

;SET UP BUFFER FOR COMPARE
;SET UP NO OF ROWS IN HALF

#6,9CSR

#80.,R2

(RS)+,R0O

#20,a(SR

MOV
MOV

JSR

;CLEAR

CURSOR
INC

BIT

;SET

CHARACTERS PER ROW

;SET

READ STORE

SCREEN

;¢SET UP RU WITH EXPECTED DATA
B]T

WALT

oDBUf ,BAD
RO,BAD
15009
RO,GO0D
aCAR,ADDRES
PC,ERROR
A+G+1

;READ PICTURE STORE DATA
;1S 17 CORRECT ?
;YES, SO BRANCH
;NO, SO SET UP FOR ERROR REPORT

;ERROR
:

51,PICTURE

STORE DATA ERROR

;SCOPE LOOP READING THIS ADDRESS
;(SWR BIT 9 )

TRAP+10
15008
INCB
DEC
BNE
(LRB

012160
000120

014334

BIC

JSR

003720
003716

000020
003650
014336

MOvB

MOV

15009:

1822

010326
010332
010336

715006:

15007:

104410
010216
003730

18%

#312,30BUf

R4
15004

;BRANCH IF YES
;00 CARAGE RETURN
;00 LINE FEED

;""""."'t."l'

105277
005302
001343
105077
105277
005304
001333

1827
1828
1829
1830
1831
1832
1835

15005
#315,30BUf

;WE

010276
010302
010304
010306
010312
010316
010320

1826

BNE
MOvB
MOVB
DEC
BNE

004052
004044

SEQ 0043

;""""""""t'

1813
1814
1815
1816
1817
1818
1819
1820

1823
1824
1825

PAGE 28-1

;"""".""l'."

1805
010252
1806- 010256
1807 010264
1808
010270
1809
1810
010272
010274
}g};

1821

06-SEP;€21515:10

aCARX
R2

; INCREMENT X ADDRESS
:HAVE WE READ ALL OF ROW

aCARX
aCARY

JYES, SO SET UP ADDRESS OF
;NEXT ROW

15007

sYES,

T15007A

;NO, SO READ SOME MORE
:ANY

ROWS

SO BRAN(CH

BUFF ,RS ;SET UP BUFFER
HALF6V,R4
#80. ,R2

(85)0.R0

.
sGEYT

#20,3CSR
aDBUF ,BAD
RO,BAD
15013
RO, GO0D
oCAR,ADDRES
P(,E?ROR

;SET READ STORE BI1
;READ PICTURE STORE DATA
;1S 1T CORRECT
;YES, SO BRANCH
;NO, SO SET UP FOR ERROR REPOR!
.
;ERROR 1, PICYURE STORE DATA ERROR

AeGe

;

EXPECTED DATA

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
1835
183
1837
1838
1839
1840
18641
18642
}gkz
4

1845

010404
010406
0106410
010414
010416
010420
010424
010430
010432

104420
010342
005277
005302
001347
105077
105277
005304
001337

06-SEP-79
15:10
TESTS
15013:

003616
003606
003604

PAGE 28-2

TRAP+20
15012
INC
DEC
BNE
CLRB
INCB
DEC
BNE

aCARX
R2
15011
dCARX
aCARY
R&
15010

SEQ 0044
;LOOP ON THIS ADDRESS
; (SWR BIT 10 )
;NEXT ADDRESS
;ANY MORE IN ROW
;YES , SO DO SOME MORE
;NO, SO SET UP NEXT ADDRESS
:
;ANY MORE ROWS ?
;YES , SO DO SOME MORE

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP=-79 15:03
—
e

OO
OO0

000006
020246
000100

000302
010524
000303

1881
1882

1883
1884
1885
1886
1887
1888
1889

1890
1891
1892
1893
1894

1895
1896
1897
1898
1899
1900
1901
1902

010614
010622
010636
010642

003500

~
~
~

003442

003430
016222

0146342
0164344

010552

004156

005737
001022
000771

004272

017737
013737
004737
030003
000137

003326
014222
020544

103004

105737
100406

013737
004737
030004

1%:

003242

;*SET

CLR

INTFLG

;*TIME OUT
;CLEAR INTERRUPT FLAG

#6,R3

; *GENERATE

#100,RO
1%
#302,a0BUf

; SHOULD BLINK BE SET
;BRANCH IF YES

JMP

mMOvB
Mov

014342
0146344

15016:

#303,3DBUf

; *RANDOM NUMBER

:NO,

CLEAR BLINK

CONTROL

;SET BLINK CONTROL

;*SET
. *UP

#10,aCsSR
aC(SR
3
aCSR,STATUS
CSR,ADDRES

sSET PRESET
;TEST READY BIT CLEAR

R+S+2

"CLEAR FOR RESET

#10C,aCsR
#0
PC,WALT
15016
INTFLG

;SET INTERRUPT ENABLE
:TURN ON INTERUPTS

1S18
BPL
MOV

TRAP+40
TS5015A
PSWSET

JSR
BCC
1S7
BNE
BR
PSWSET
Mov
JSR

JMP
PSWSET
1518

BM]

014344

PC,GENER

BIS

MOov

15017:

#2,WiC0

#300,R1
#200,R1
R1,aDBUF
#177600,R0
RO,PRESET

BIS

15015:

INTVEC,R1

BlC
BIS
MOVB
BIC

JSR

MOV

JSR

15018:

010552

wict

MoV

003400

0146342

104460

005077

T5015A:

010754

014222
020544

CLR

move

004737

#340,(R1)

seSET
: *UP
;¢ INTERRUPT VECTOR.

Mov

000010
003436

000100

FROYINT, (R1)¢

JSR
811
BNE

003512

SEQ 0045

Mov
mov
mov

Mov

177600

052777

PAGE 29

Mov

011756

020544

010610
010612

004204

000300
000200
003462

1874

1875
1876
1877
1878
1879
1880

15:10

011760
000340
004202
000002
004272

010466

TESTS

014242

OO0—~O0O0O0—=O—00000

010450
010454
010462

01370]

010634
010440
010444

own

1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873

06-SEP-79

TRAP+60
T5015A
(LR

PC,ERROR

15017
15015
#200

aCSR,STATUS
CSR,ADDRES
PC,ERROR

A+S+3
15018

#200
STATUS
15018
(SR,ADDRES
PC,ERROR
SeA+d

oCAR

: *COLOUR
;LOAD COLOUR
;*SET UP EXPECTED

;*DATA AFTER PRESET

;BRANCH IF

0.K.

;ERROR BIT DID NOT CLEAR

"ERROR 2, READY BIT DID NOT

;WAIT

FOR

TIMEOUT

;WAIT

SOME

;BRANCH If TIMED OUT
;TEST FOR INTERRUPY
;BRANCH IF INTERRUPT 0.K.

;TURN OFF INTERUPTS
; TIMEQUT ERROR

“ERROR 3,NO READY INTERRUPT
"IN OVER 40 MILLISECONDS
;TURN OFF INTERUPTS
;WAS READY BIT SET WHEN

s INTERRUPT OCCURED. BRANCH 0.K,
;SET UP FOR ERROR
;READY BIT WAS NOT SET WHEN
; INTERRUPT OCCURED ERROR 4

READ CONTENTS OF PICTURE STORE
:SET CURSOR T0 ZERO

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
1903
1904
1905
1906
1907
1908
1909
1910
1911
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
1961

010764
010772
010776
011000
011004
011012
011020
011026
011030
011036
011042
011044
011046
011050
01105
011056
011060
011064
011070
011072

013737
013704
006304
012702
052777
017737
023737
001406
017737
004737
120005
104470
011000
105277
005302
001352
105077
105277
005304
001342

011756
012160
000120
000020
003206
014334

003172
020564

06-5€EP-79

TESTS

15:10

01433

003210
014336
014336

MOV

15018A :

ASL

MOV

7150188: B1S
Mov

CMP
8taQ
MOov
JSR

0164344
15019:

003156
003146
003144

PAGE 29-1

SEQ 0046

PRESET,G00D
HALFOV,RG
R&
#80.,R2

#20,aCSR
aDBUF ,BAD
C00D,BAD
15019
dCAR,ADDRES
PC,ERROR
AtG+S

TRAP+70
15018A
aCARX
INCB
R?
DEC
150188
BNE
CLRB
aCARX
aCARY
INCB
R&
DEC
15018A
BNE

;LOAD GOOD WITH EXPECTED DATA
;*SET UP
; *NUMBER OF ROWS
;NUMBER OF CHARACTERS PER ROW
;SET READ PICTURE STORE BI1
;READ DATA BUFFER
;CHECK DATA
;BRANCH If 0.K.
;SET UP FOR ERROR REPORT
;PICTURE STORE DATA ERROR
;AFTER PRESET
4

s INCREMENT X ADDRESS
JWAS

1T MAX

;YES,

SO SET

:BRANCH IF NO.

s AL L

x=0

; INCREMENT v ADDRESS
;WAS 1T MAX
;BRANCH IF NO

CHECKED.

'"'"'tt"'l""'l"""""."ll"."tl"l't.

:TH E

NEXT PART OF

THIS TESTS

;LOADING PART OF THE PICTURE
;ST ORE WITH RANDOM DATA

T WH EN

BLINK

1S REQUIRED THE

;BL INK ON OR OFF W]TH INCREMENT
; COMMAND IS USED. THE CONTENTS
; Of THE PICTURE STORE ARE THEN
TO CHECK
.L0 ADED CORRECTLY.

:RE AD BACK

011074
011100
011106
011112
011120
011126
011132
011136

005037
012777
005077
052777
113777
106277
013705
013706

012056
000302
003114
000004
012160
003102
012060
012160

003116

003102
003106

(LR

020:

Mov
CLR
BIS
MOvB
ASRB
MOov
MOV

BLNFLG

#302,9DBUFf
aCAR

¥4 ,aCSR
HALF6V,aCAR Y
dCARY

BUFF ,RS

HALFO6V,RG

THAT

:CLEAR BLINK FLAG

;CLEAR BLINK (ONTROL

:CLEAR CURSOR ADDRESS

;SET

INCREMENT BIT

J*SET UP
;Y ADDRESS

:SAVE FOR (OMPARE IN BUFF
;SET UP R4 WITH HALF ROWS

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SR(C
06-SEP-79 15:03
19643

06-SEP-79
15:10
TESTS

PAGE

SEQ 0047

011142

012702

000120

15020A: MOV

#80. ,R2

;CHARACTERS PER LINE

19645
1946
1947
1948
1949

011152
011156
011164
011170
011174

004737
042737
013700
004737
000137

020246
100200
016334
011634
011250

15020B:

JSR
g1C
MOV
JSR
JMP

PC,GENER
#100200,6000
600D ,RO
PC,STBINC
15021

;s *RANDOM
;*DATA
;s *PATTERNS
;SUBROUTINE TO SET BLINK
SEXIT IF END

1951
1952

011202
011206

042700
052700

000100
000200

8IC
BIS

#100,R0
#200,R0

:*MAKE CONTENTS OF RO
;*INTO COLOUR COMMAND

1946

1950

1953
195¢

1955
1956

1957
1958
1959
1960
1961
1962

011146

011200

011212

011216

011220
011224

011226
011230
011236
011244
011246

012703

010025

110077

000300

110077
005302
001351
112777
112777
005304
001335

000006
014334

MOV

003006

003000
000315
000312

MOV

MOvVB

SWAB

MOvVB
DEC

BNE
MOVB
MOVB
DEC
BNE

002766
002760

1963
1964
1965

”6,RS

RO, (R5)+

RO,aDBUF

1978

011334

1975
1976
1977

}ggg
1981

1982
1983
1984
1985
1986

188;

198

1989

1990
1991
1992
1993
1994
1995
1996
1997
1998

011316
011326
011326

023737
001406
017737

011340

120006

011342

011346
011350
011352
011356
011362

011364

011366

011372
01137¢
011402
011406
011414
011422
011430
011432
011440

002752
000004
011756
012160

000120
000020
002710
014334

004737

002674
020544

005277

002664

005301
001354
105077
105277
005300

002740
014334

002712
014336
014336

15021:

15022:
15023:

0146344

15024:

002654
002652

001344
013705

013700
012701
012537
052777
017737
023737
001406
017737
004737

012060

012160
000120
014334
000020
002604
01433%
002570
020544

(LR
BIC
MOV
MOV
ASR
MGV
BIS
MOV
(mMp
BEQ
MOV
JSR

;DONE

THE LOADING
Ry
R R N
;NOW STARYT CHECKING

002606
014336
014336
014344

aCAR
#6,a(SR
PRESET,GOOD
HALF6V,RO
RO
#80. ,R1
#20,3CSR
aDBUF ,BAD

AR RS

;SET ADDRESS T0O [ZERO
;CLEAR INC BIT
;EXPECTED DATA
N
;NUMBER OF ROWS
;CHARACTERS PER ROW
;READ STORE
:

6000 ,BAD
15024
9CAR,ADDRES

;CHECK DATA
;BRANCH [F 0.K.
JSET UP FOR ERROR REPORT

A+G+6

PC,ERROR

;ERROR 6,

STORE DATA ERROR

aCARX

s INCREMENT

X ADDRESS

BNE

15022

;BRANCH IF

YES

MOV
MOV
MOV
B1S
MOV
(mp
BEOQ
MOV
JSR

IN LINE

crtrrERTETERY

INC

DEC
BNE
CLRB
INCB
DEC

MOV

15025:
15026:

;NOW LOAD CHARACTER
;ANY MORE CHARACTERS
;BRANCH IF YES
;D0 CR
;00 LF
;ANY MORE ROWS
:BRANCH IF YES

150208
#315,aDBUF
#312,30BUF
R&
15020A

005077
042777
013737
013700
006200
012707
052777
017737

IN BUFFER

;GET NEXT BYTE

RO,aDBUF
R2

1966

011250
011254
011262
011270
011274
011276
011302
011310

:SAVE

INC

;LOAD COLOUR

1967
1968
1969
1970
1971
1972
1973
1974

: +GENERATE

R1
15023
o CARX
9CARY
RO

BUFF RS

HALF6V,RO
#80. ,R1
(RS)+,G00D
#20,aCSR
aDBUF ,BAD
600D ,BAD
15027
9CAR ,ADDRES
PC,ERROR

;ANY MORE CHARACTERS
;BRANCH F YES
;SET X 10 ZERO
sINC Y ADDRESS
;s ANY MORE ROWS

;START OF BUFFER

IN ROW

:NUMBER OF ROWS
;CHERACTERS PER ROW
sOGET EXPECTED DATA
;READ STORE
:
;CHECK DATA
sBRANCH [F 0.K,
JSET UP FOR ERROR REPORT
;STORE DATA ERROR
\

VIV LOGIC TESTS MACY11 30A(1052)
CVVTIAA.SRC
06-SEP=-79 15:03
5888

011444

2001
2002
2003
2004
2005
2006
gggg

011446
011452
011454
011456
011462
011466
011470

2009
2010
2011
2012
2013
2016
2015
2016

011472
011500
011504
011506
011512
011520
011526
011534

2017
2018

2019

2020
2021
2022
2023
2024
2025
ggg?

011536
011564

011550

011552
011556

105277

002560

105077
105277
005300
001342

002550
002546

013737
013700
9006200
012701
052777
017737
023737
001406

011756
012160

005301
001352

000120
000020
002500
014334

017737
004737

002464
020544

005277
005301

002454

120006

001354
105077
105277
005300
001344

2028
2029
2030
2031
ggg%

011576
011600
011602
011606
011610

104404
007746
005337
001402
000137

2034
2035
2036

011614
011622
011624

032777
001402
000137

000100

3833

011630

000137

2041
2042
2043
2044

011634
011640
011642
011646

032700
001013
005737
001440

2045

2046

2047
20648
2049

2050

2051

2052
2053
205«

CLRB
INCB
DEC
BNE

3CARX
R1
15026
3CARX
@CARY
RO
15025

;NEXT X ADDRESS
;1S 1T END OF ROW
;BRANCH 1F MORE
;SET X TO ZERO
; INCREMENT Y ADDRESS
;HAVE WE FINISHED
;BRANCH IF NO

MOV
MOv
ASR
MmOV
BIS
MOV
(mp
BEQ

PRESET,GOOD
HALF6V,RO
RO
#80. ,R1
#20,aCSR
aDBLF ,BAD
600D ,BAD
15030

;EXPECTED DATA
;
;SET NUMBER OF ROWS
;CHARACTERS PER ROW
;READ STORE
:
;CHECK DATA
;BRANCH If 0.K.

G+A+6

INCB

DEC
BNE

MoV
JSR

15030:

INC
DEC

BNE
CLRB
INCB
DEC
BNE

adCAR,ADDRES
PC,ERROR

a3CARX
R1

15029
aCARX
aCARY
RO
15028

;SET UP FOR ERROR REPORT
:STORE DATA ERROR

: INCREMENT X ADDRESS
;HAVE WE FINISHED ROW
:BRANCH IF MORE
:IERO X ADDRESS
: INCREMENT Y ADDRESS
;ANY MORE ROWS
;BRANCH IF YES

BI7
BEQ
JMP

#100,3SWR
150wy
STARTM?2

;CHECK FOR PRE-SELECTED TEST

014664

T50WY:

JMP

ENDIY

:SIGNAL END OF PASS

000100

STBINC: BIlT
BNE
181
BEQ

#100,R0
BINCY
BLNFLG
BINC2

: SHOULD BLINK BE ON
;BRANCH IF YES
; CHECK BLINK FLAG
;BRANCH IF CLEAR

PRESET, (RS5)+

sSAVE PICTURE CONTENTS

BINC2

;BRANCH 1F SET

002376

001232

012056

011676

013725
012737
005302

715014:

112777

011704
011710
011716

0146344

007746

012056

001025

15028:
715029:

G+A+6

REPCNT
15014
15001

005037
000413
005737

011674

002502
014336
014336

014250

011662
011666
011670

013725

014334

SEQ 0048

TRAP+4
15001
DEC
BEQ
JMP

000300

011656

15027:

002444
002442

112777

011650

PAGE 30-1

120006

011560
011562
011566
011572
011574

2037
2038

06-SEP-79
15:10
TESTS

011756

002346

011756
000001

MOV

BINCY:

012056

000301

MOvB

002320
012056

BINC3:

#300,aDBUF

CLR
BR
TS1

BLNFLG
BINC3
BLNFLG

MOvVB

#301,aDBuUf

BNE

MOV
MOV
DEC

PRESET, (R5) ¢
#1,BLNFLG
R2

;SET SWR BIT 8 10
;LOOP ON TEST
;DONE ENOUGH ?
JYES
:NO

;CLEAR BLINC INC COMMAND
;CLEAR FLAG
:
:CHECK BLINK FLAG

sSET BLINK INC COMMAND
s SAVE P]CTURE CONTENTS
JSET FLAG
:

VIV LOGIC TESTS MACYYY 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
20N
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091

011720
011722
011730
011736
011742
011744
011746
011750
011754

001013
112777 000315
112777 000312
012702
000120
005304
001001 |
000207 *
062716 000004
000207

011756

000000

011760
011764
011772
012000

005237
017737
042777
00000¢

004272
002232
000100

012002
012006
012010
012014
012016
012024
012030
012032
012036

032700
001011
005737
001417
012777
005037
000411
005737
001006

000100

012040
012046
012054

012777
012737
000207

012056
012060

000000
021104

06-SEP=79
15:10
TESTS

PAGE 30-2

BNE

BINC?

;BRANCH IF MORE (HARACTERS

DEC
BNE

;s ANY MORE

002274
002266

Mov8
MOv8
Mov

BINCZ:

RTS
ADD
RTS

#315,a0BUf
#312,3DBUf
#80.,R2

BINC2

PC
#6,(SP)
PC

SEQ 0049
;00 CR
;00 LF
:NUMBER OF

;BRANCH IF

CHARACTERS

ROWS

IN ROW

YES

;END RETURN
;CHANGE RETURN ADDRESS
;MORE RETURN

PRESET:

016342
002222

RDYINT:

SETBLN:

012056

000302
012056

002200
BLNT:

012056

000303
000001

002156
012056

BIT
BNE
181
BEQ
Mov
CLR
BR
181
BNE

BLNZ:

MOV
MOV
RTS

BLNFLG:
BUFF:

0
BUFF1

INTFLG
a(SR,STATUS
#100,aCSR

JSET FLAG
sSAVE (SR
;CLEAR ENABLE

#100,R0

;D0 WE WANT BLINK

BLN1
.
BLNFLG
BLNZ
#302,3DBUF
BLNFLG

;RETURN,

;BRANCH IF YES
:NO, SO IS FLAG OFF
;BRANCH IF FLAG IS OFF
sNO, SO CLEAR BLINK (ONTROL
:AND CLEAR FLAG

BLNZ

sALL DONE

BLNZ

:BLINK ALREADY ON SO 0.K.

#1,BLNFLG
PC

;SET
:

BLNFLG
#303,3DBUF

;WE WANT BLINK ON

;BLINK WAS NOT
FLAG

ON SO SET

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03

06-SEP-79
15:10 PAGE 31
UTILITY ROUTINES

2093
2094
2095
2096
2097
2098
2099
2100
2101

012062
012066
012070
012074
012100
012102

004737
012164
004737
020027
001012
012737

016632

177777

012156

2103
2104
2105
2106
2107
2108
2109

012160

01215¢

012737
000207
020027
001353
005037
012737
012737

000024

%}}?

012116
012124
012126
012132
012134
012140
012146

2112
2113
2114
2115
2116
2117
2118

012156
012160
012162

000000
000030
000022

2102

012110

012737

000207

CSBTTL

UTILITY ROUTINES

JSR

MoV

PC,TYPOUT
ASK56
PC,READ
RO,#'S
SET56A
M77777,L525

;ASK 525 625
:
sREAD
JWAS IT 5
;BRANCH IF NO
;YES, SO SET FLAG

MOV
RTS
SETS6A: (MP
BNE
CLR
MoV
Mov

#20. HALF6V
PC
RO.#'6
SET56
L525
N18. HALFBV
¥24. HALFGV

:
: DONE
(WAS 1T 6
;BRANCH IF NO AND ASK AGAIN
;CLEAR FLAG
:
;

SETS6:

016104
000065

000017

012162

000066
012156
000022
000030

012162
012160

JSR
(mp
BNE

Mov

RTS,

2120
g}g;

2123
2124
2125

012164
012237
012272

020133
040
053133

051511
044514
053124

052040
042516
030063

2127
2128
2129
2130
2131
2132
2133
2136
2135
2136
2137
2138
2139
2140
21641

012347
012375
012433
012463
012530
012576
012613
012663
012732
012736
013007
013020
013036
013070
013110

133
133
133
133
047533
040533
153
133
055533
051533
133
062533
052133
063133
043133

040520
052123
042522
047531
052120
054516
047506
046120
040133
066105
042524
062116
060522
047522
051117

052122
051101
052123
020125
047511
043040
020122
040505

013247
013302
013314
013321

133
051533
022133

2162
2143

2144

2145
21646
2147
2148

012335

0131644
013177

040

043133
133

040

#15,. HALFBV

;

:DONE

LS525:
0
HALF6V: 24.
HALF8V: 18.

2119

2126

SEQ 0050

054105

051105

ASK56:
GOMSG:

.SBITL

ASCI1

.NLIST

BEX

.ASCIl
LASCI1
.ASCII1

/L IS THE CONTROLLER JUMPERED FOR 525 OR 626/
7/ LINES,L TYPE 5 OR 6...... 8/
!Cviv30-H/J OR VT30-H DIAGNOSTIC AND.

LASCI]
LASCI1
LASCI1
LASCI1
LASCI1
LASCI1
LASCI1
LASCI]
LASCIT
CASCI1
.ASCI1
.ASCI1
.ASCI1
.ASCI]
.ASCI1

/[PART1==o-- LOGIC TESTS/
/[START ADDRESS 1S 1000, OR 200/
/L[RESTART ADDRESS IS 1200/
/(YOU ARE STRONGLY ADVISED TO READ THE/
/[OPTION DESCRIPTION BEFORE PROCEEDING,/
/LANY FURTHER./
/LFOR DETAILS OF BUS AND VECTOR ADDRESSES/
/[PLEASE REFER TO THE OPTION DESCRIPTION/
/CCCa/
/CSELECT DESIRED SWITCH REGISTER OPTIONS(a/
/LTEST NOa/
/[END OF PASS[a/
/LTRAP TO ILLEGAL VECTOR Q/
/LFROM ADDRESS a/
/CFOR THE FIRST VECTOR GROUPQ/

.ASCI1
.ASCI]
.ASCII

/CTYPE C(NTRL-C TO CONTINUE a/
@/
/[SWR =
/(% a/
? / @?

ASCI1

051117
047516

041505
052123
047440
020120
020115
052060
052040
020116

WMSG:
TESMSG:
PASMSG:
JLVMSG:
FRMMSG:
FJRvMS:
NXTvMS: ,ASCI1
NOMEMA: .ASCI1

054524
051127
020040
020057

042520
036440
100
100

REDMES:
SWRMSG:
MODADM:
MODSPA:

.ASCIl

STRINGS

7/ EXERCISER/

/CFOR THE NEXT VECTOR GROUPa/
/[NON EXISTANT MEMORY HAS NOT BEEN FOUNDA/

.
-

CVVTAA,SRC
2149
2150
2151
2152
2153
2156
2155
2156
2157
2158
2159
2160
2161
2162
2163
21664
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177

2178

013325
013332
013366
013425
013450
013477
013536
013575
013625
013667
013712
013753
0164014
014020
014032
014043
014054
016065
014103
0164116
014135
014160
014166
014170

014200
014206

AC10 52)

06-SEP-79 15:03
133
043133
043133
133
040533
133
047133
133
133
133
042133
133
042533
020040
043533
040
042133
040
133
041533
040
014160
000000
100
0640502
014200
000000
000000

06-SEP-79

15:10

PAGE 31-1

ASCII STRINGS

020052
051111
051111
047111
042104
044506
054105
067516
047111
044124
0643105
0646120
040043
052101
047517
020040
052101
020040
052123
0646101
026040

040040
052123
052123
040526
042522
051522
020124
020116
040526
020105
052501
040505

MODPRM:
BAMSG:
VvAMSG:
ODAMSG:
OVAMSG:
PRMSG:
NPRMSG:
NXMSG:
BADPRI:

050040
020104
040502
020101
042101
052101
042514
051105

EMSG1:
EMSG2:
EMSG3:
EMSG4:
EMSGS:
EMSG6:
EMSG?7:
EMSG8:
EMSG9:

000000
000
042523

000000

OCTNUM:

030061

BASE11:

000000
000000

DECMSG:
OCTMSG:

NODEFM:

.ASCI1
.ASCII
.ASCI1
.ASCII
.ASCI1
,ASCI1
.ASCI1
.ASCI1
.ASCI1
LASCI1
_ASCI1
<ASCI1
.ASCI1
.ASCI1
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCI1
.ASCII
.EVEN
.WORD
.BYTE
.ASCII
.EVEN
.wORD
.WORD

0,0,0
0,0,0,0

LIST

BEX

.EVEN

/[+ a/
/CFIRST BUS ADDRESS IS ..... 3/
/CFIRST VECTOR ADDRESS IS ..... a3/
/LINVALID ADORESS _a/
/[ADDRESS EXCEEDS 772 [a/
/CFIRSY PRIORITY LEVEL IS ..... 3/
/ONEXT PRIORITY LEVEL IS ...... 3/
/ONON EXISTANT ADDRESS a/
/CINVALID PRIORITY, PLEASE RE-ENTER/
/LTHE PRIORITY..... a/
/LDEFAULT SETTINGS ARE NOT ALLOWED/
/CPLEASE RE-ENTER THE VALUE ..... a/
/(E#a/
/
AT PC @/
/CGOOD : @&/
/
BAD :d/
/CDATA : a/
/
ADDRESS
:3/
/[STATUS
:a/
/([CALLED FROM :a/
/
ERROR COUNT = &/
0,0,0
100,0
/BASE10a/

SEQ 0051

‘

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03
CVVTAA .SRC

15:10

PAGE 32

PROGRAM VARIABLES

.SBTTL

00000G
177570
1646000
164002

166004
166006
166004
1646005
1646006
1646007

000170
000004
000000
000000
000137
000001
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
052525
000001
000006
052525
000000
000000
000000
000000
. 000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
014372 000000

TESTNO:
SWR:
CSR:
:
DBUF
CAR:
CHSR:
CARX:
CARY:
(HDR:
(HAR:

VECLEV:
SSWR:
REPCNT:

OO OOOOOOOOOOOOOOWVO = VNOOO0OOOOOOOOOOOOO0OO0O— -~ OO

el
) mmd ol
il
D
d
)
D
ol
ol
ol
cmd

~O O O O O ~O 00 0o O° 0o 00 OO 0O OO
OV
~NO NI NN

ol
-

[LST,91,¥T, VY, ST, V1 ,VT. V1,91 N7, VT, O7, V1, V1 V]

2180
2181

06-SEP=-79

INTVEC:

001000

JM600:

FSTCNT:
TRPARG:
TRPSEL:
TRPMEM:
SAVPC(:

SAVPC1:

SAVSTA:
TYPOTA:
RAND:
TYPDI:
MODADR:
MODSAV:
:
MASK
BASADD:
TRPERR:
CHWORD:
ERR:
PARITY:
BCCHAR:
RANDN:
:
RANSEL
RANMTA:
RANST:
:
600D
BAD:
DATA:
STATUS:
ADDRES:

ERRD]S:
ERRARG:
CALLPC:

TRXVAD:
TRXPAR:
TRXEXM:
NXMADR:

SAVEXM:
SAVPAR:
SAVLTG:
SAVLT6:

PROGRAM VARIABLES

HSWR

164000
164002
164004
164006
164004
164005
164006
164007
170

2525
2525

a#START

SEQ 0052

VIV LOGIC TESTS MACY11

CVVTAA,SRC
2236
2237
2238
2239
2240
2241
2262
22643
22644

0143764
014376
014400
014402
014404
014406
014410
014412
014414

30A(1052)

06-SEP-79 15:03
000000
000000
000000
000000
000000
000000
000000
000000
000000

06-SEP=-79

15:10

PAGE 32-1

PROGRAM VAR]IABLES

(NVFLG:
STRADD:
STRLEN:
LOWCHR:
UPP(HR:
RUBFLG:
RANDC:
FSAVPW:
BCOUNT:

0
0
0
0
0
0
O
0
O

SEQ 0053

,l
—

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

06-SEP-73° 15:10
P

RINNT TEST

2246
2247
2248
2249
2250

LSBTTL

SEQ 0054

TEST

NUMBER

DESCRIPTION:

2251¢

2252
2253
2254
2255
2256
2257
2258

ROUTINE

TO PRINT

THE

TEST

NUMBER

[N OCTAL

CALLING SEQUENCE:
PC,TESTR

JSR

INPUT PARAMETERS:

2259
2260
2261
2262
2263
2264
2265
2266

2267
2268
2269
2270
227
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
228%
22864
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300

PAGE 33

NUMBER

‘
IMPLICIT

TESTNO CONTAINS THE OCTAL TEST NUMBER TO BE

PRINTED

INPUT PARAMETERS:
THE

LABEL

ASCII

TESMSG

STRING

'TEST

THE

NO'

START

ADDRESS Of

OUTPUT PARAMETERS:
RO WiLL BE

CORRUPTED

IMPLICIT OUTPUT PARAMETERS:
THE MESSAGE °'TEST
CONSOLE TERMINAL

NO N'

WiLL BE

PRINTED ON THE

COMPLETION CODES:
NONE

POSS1BLE

ERROR

CODES:

NONE

014416
014422
014424
014430
01443
014440

004737
013007
013700
004737
004737
000207

016632
014216
016722
016576

TESTR:

JSR

PC,TYPOUT

MOV
JSR
JSR
RTS

TESTNO,RO
PC,PROCT
PC,CRLF
PC

TESMSG

;TEST

;PRINT OCTAL
JEXTT

TEST NO

VIV LOGIC TESTS MACY1T 30A(1052)
CVVTAA_SRC
06-SEP-79 15:03

15:10
PAGE 34
06-SEP-79
*SILLSI" SUBROUTINE

2302
2303
2304
2305

CSBTTL

W (V.] N—=OOVWENONE
WOV NOWVNEBWN SOV NOVNEWN OO

VY, VY Y, V1 VY VY, VY, ¥
V], V] V] V], V1, V] V), N] V],V
UL WY VA N] NN VR VI VY VY VI NI, V1,1,V
U

SUBROUTINE

ROUTINE TO ESTABLISH WHETHER OR NOT THE
DIAGNOSTIC IS RUNNING
ON
A
PROCESSOR
WHICH POSSESSES ONLY ONE INTERRUPT
BUS

ol ed eh Y B A
AV TV RV VW NV QW RN AV LV W
IV VIV IV VvV LV IV IV 1V ) L LN LM AN AN N N AN
N N NN N R R N AN NI N N N NI AU N P PO A b s s
o
N Y

"SILLSI'

DESCRIPTION:

PRIORITY LEVEL.

CALLING SEQUENCE:
JSR

INPUT

PC,SILLSI

PARAMTERS:
NONE

IMPLICIT

INPUT PARAMETERS:
NCNE

OUTPUT

PARAMETERS:

THE VARIABLE

°'LSIFLG'

WILL BE

LSIFLG

=>.MULTIPLE

SET UP T0

REFLECT WHETHER OR NOT THE PROCESSOR
A SINGLE INTERRUPT PRIORITY LEVEL.

SINGLE

INT.

HAS

PRIORITIES

PRIORITY

IMPLICIT QUTPUT PARAMETERS:
NONE

Pl
o P o IS8 B

[aY) (a1 aC NN

SEQ 0055

COMPLETION CODES:
NONE

POSSIBLE

ERROR CODES:
NONE

54
59

014442
014446
014456

0 0 5037
O 1 2737
0 ] 2737

0 1 4504
0 1 4472
0 0 0340

000004

000006

CLR

LSIFLG

;SET UP FLAG FOR NON-LS!

MOv

#340,6

. AND CORRESPONDING PRIORITY

MOV

LAk PO

S INSTALL TRAP THRU & VECTOR

’

177776

PSW

MOV

{mp

(SP)+,(SP)+
#-1,LS1FLG

:PERFORM A DUMMY RT]

RTS

;RETURN TO MAINLINE CALL.

014470

005737
000240
000404

014472
014474

022626
012737

0146502

000207

014504

000300

LSIFLG: O

014504

177777

1%:

SEQ 0056

151

014462
0146466

2358
2359
2360
2361
2362
2363
2364

15:10
PAGE 34-1
06-SEP-79
*SILLSI® SUBROUTINE

NOP

; TRY

ADDRESSING THE

PSW ==

;1F NOT THERE, TRAP THRU &
;WiLL OCCUR, ELSE BRANCH.
;PROCESSOR HAS ONE

;0 => MULTIPLE

INT.LEVEL

INT.PRIORITIES

;=1=> SINGLE INT. PRIORITY

viv LOGIC TESTS MACYY1 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

06-SEP-79

2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400

SWR

SEQ 0057

TRAP

NON EXISTANT

DESCRIPTION:

SWR TRAP

THE

TRAP WHEN

TESTING FOR THE HARDWARE

SWITCH REGISTER wILL OCCUR HERE

THE LOACTION SWR WILL BE SET TO CONTAIN THE
ADDRESS OF THE SOFTWARE SWITCH REGISTER SSWR

ENTRY POINT

INPUT

PARAMETERS:

SWRSET

OCCURS IF

A HARDWARE SWITCH REGISTER IN NOT

PRESENT

INPUT PARAMETERS:

IMPLICIT

OUTPUT

PARAMETERS:

NONE

IMPLICIT QUTPUT PARAMETERS:

THE LOCATION SWR WiLL BE

NONE

Ve
Bs

2615

COMPLETION CODES:

2416

2628
2629

PAGE

.SBTTL

24601
24602
2403
2604
24605
24606
24607
24L08
2409
2410
2611
2612
2613
24614

1S PERFORMED

POSSIBLE

ERROR

CODES:

AN RTI

®e

NONE

2617
2618
26419
2620
24621
2622
2423
2624
2625
2426
ue?

15:10

NON EXISTANT

016506
014514

012737
000002

014246

014220

SWRSET:

MOV
R1]

#SSWR,SWR

SET

TO CONTAIN SSWR

2672
2673
2674

LSBTTL

5
SEG 0058

TRAPS

SET UP ILLEGAL VECTOR TRAPS

DESCRIPTION:

ROUTINE

TO SET

CATCHES FOR

TRAPS

ILLEGAL

VECTORS IN THE RANGE 0 TO 772, DURING THE
THE

TESTS.

RUNNING OF

IS TO FORCE

THE

EXECUTION OF

P
T

THE

VECTOR

10 SERVICE

(ODT

THE

TRAP

(TRAP VECTOR)

VECTOR)

IS LEFT

FREE,

IS SET TO THE ADDRESS TRAPSV
INSTRUCTION.

THE

VECTOR

20 (JOT) IS SET TO ILLVEC TO SERVICE ILLEGAL
VECTOR TRAPS, AND THE ADDRESSES 200 AND 202

ARE SET WITH A JUMP TO START, THUS ALLOWING
THE BE BE RESTARTED FROM ADDRESS 200.

YEFE

LOCATIONS 30 AND_32 AND SET TO CATCH EMT CALLS
THE

PROCESSOR PRIORITY.

AND HENCE READ

LOCATION 40 IS LEFT FREE

TO CONTAIN THE LOAD

[ EE

MEDIUM INDICATORS, LOCATION IS LEFT FREt TO
CONTAIN THE XXDP
RETURN ADDRESS (IF PRESENT)., LOCATION 46 IS SET 10
CONTAIN A POINTER TO THE XXDP RETURN ADDRFSS AND

LOCATION 52

1S SET

10 ZERO.

CALLING SEQUENCE:

JSR

INPUT

PC,VECTGR

PARAMETERS:

NONE

IMPLICIT

INPUT

PARAMETERS:

NONE

24675

2476
2677
2L78
2479
2480
2681
2482
2483
2424
2485
2486

[OT

}:EPCAICH

24638
2639
2440
26461
2662
24663
26464
26465
24646
2647
2648
2649
2450
26451
2452
26453
2654
2655
2656
26457
2458
2459
2460
2661
24662
2463
2464
2465
24666
2467
2468
24L69
2470
2671

SET

15:10
PAGE 36
UP 11 LEGAL VECTOR

243
24L32
2433
2634
24635
2636
2637

06-SEP-79

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

OUTPUT

PARAMETERS:
RO AND R1

wiLL BE

CORRUPTED

ADDRESSES O THRU TO 774 WiLL BE
APPROPRIATE

VALUES

IMPLICIT QUTPUT PARAMETERS:
NONE

SET

WITH

VIV LOGIC TESTS MACYT1 30A(1052)
CVVTAA .SRC
06-SEP-79 15:03

5
SEQ 0059

NONE

POSSIBLE

tRROR

CODES:

NONE

014516
014520
0146524
014530
014532

016534
014536

014542
0146544
014546
014550
014552
014556
014562
014566
014570
014576
014604
014612
014620
014626
014634
014642
014650
014656
014662

005000
012701
020027
001002
022020
000410
020027
001002
022020
000403
010120
012720
062701

TV
IV
V]
v (VIVAV
~ NNNNNNNN

COMPLETION CODES:

o =leolelolelalels]
o —t el e el ol wed b b
A ESIV IV T N1, VT VY N1, V]
o NNNNNNNN

NN
NN
[V R AV AV RV SV RV )

2487
2488
2489
2490
2691
2492
2493
2494
2495
2496
2697
2498
2499
2500
2501
2502
2503
2504
2505

15:10
PAGE 36-1
SET UP JLLEGAL VECTOR TRAPS

06-SEP-79

000207

VECTOR:

000002
000014

FILL:

000040

1%:

2%:

000004
000004
000774

015124
000340
014754
000340
015024
000340
014252
014254
014740
000052

fFlLLl:

000034
000036
000030
000032
000020
000022
000200
000202
000046

FILLZ:

(LR

MoV

(MpP
BNE
(mp
BR
(Mp
BNE
(mp
BR

MOV

ADD
(Mp

BLT
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
(LR
RTS

RO
N2 ,R1
RO,#14
1%
(RO)+, (RO)+
FlcLd
RO, #40
2$
(RO)+, (RO)+
FltLd
R1,(RO)¢
N4, (RO)*
N6 ,R1
RO,#774
FILL

#TRAPSV,
34
#340,36
#FADR,
30
#340,32
NILLVEC,20
#340,22
JM600,200
JM600+2,202
ggENDAD.Qb
PC

SFILL 0-572 WITH ]OT

;0DT

TRAPS

TRAP?

;YES BUMP RO
:XXDP RETURN ADDRESS
:NO

JYES BUMP RO
:0.’20

;'1o1!

: TRAP

(LOOP

CONTROL)

: PLUG EMT FOR READING
. THE PROCESSOR STATUS

;PLUG 20 FOR 10TS

;SET UP JMP START IN LOC 200
;POINT

10 RETURN 10 XxDP

;CLEAR 52

s THEN EXIT

06-SEP-79

15:10

XXDP END OF

PAGE

PASS

.SBTTL

SEQ 0060

HOOKS

XXDP END OF

PASS HOOKS

DESCRIPTION:
ROUTINE TO SIGNIFY END OF PASS, AND IFf THE
PROGRAM HAS BEEN LOADED USING AN XXDP MONITOR A CALL
WILL BE MADE BACK TO THE MONITOR. THE LOCATIONS USED BY

XXDP ARE &40, AND 41
THE

RETURN ADDRESS.

FOR THE LOAD MEDIUM AND 42, 43 FOR

IF A PRESELECTED TEST IS
GO AND SELECT THAT TEST.

IN OPERATION THE PROGRAM WILL

ENTRY POINT:
ENDIT

INPUT

PARAMETERS:

LOCATION 42/43 CONTAINS THE
IMPLICIT

INPUT

XXDP RETURN ADDRESS

PARAMETERS:

NONE

OUTPUT

PARAMETERS:

NONE

COMPLETION CODES:

LOCATIONS 42/43 ARE NON ZERQO THEY ARE

ASSUMMED TO CONTAIN THE

XLIE YRR TP

IMPLICIT OQUTPUT PARAMETERS:

VIV LOGIZ TESTS MACYI1 30A(1052)
CVVIAA.SRC
06-SEP-79 15:03%

POSSIBLE ERROR CODES:
NONE

XXDP MONITOR RETURN ADDRESS

VIV LOGIC TESTS MACY1Y 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605

r 2606
2607
2608
2609

014664
014670
014704
014712
0164714

012706

001000

032777
001402
000137

000100

06-SEP-79

15:10

XXDP END OF

ENDIT:

177306

PAGE

MOV

PSWSET

811
BEQ

001232

37-1

SeEa 0061

PASS HOOKS

JMP

RESET THE STACK
AND PROCESSOR PRIORITY

#START,SP
#340
¥100,3SWwR
1%

IS THERE A PRESELECT ON

YES GO SELECT

START?2

THE

TEST

* NO PRESELECT ON SO SIGNAL END OF PASS
014720
014724
014726
014732
014734

004737
013020
013700

014740
014742
014744
014746
014750

004710
000240
000240
000240
000137

0601002
300137

015632

000042
001232

$ENDAD:

001232

JSR
PASMSG
MOV
BNE
JMP

PC,TYPOUT

. END OF PASS

ans? RO
$SENDAD

; GET RETURN ADDRESS TO XXDP
; 1F 1T 1S ZERO THERE 1S NO
;

MONITOR SO RESTART

JSR
NOP
NOP
NOP
JMP

PC, (RO

;

CALLED VIA XXDP SO RETURN

"START?

;
;

ALLOW A SLIGHT PAUSE
THEN RESTART THE DIAGNOSTIC

START?

;

DIAG

THERE

VIV LOGIC TESTS MACY1!

CVVTAA,SRC

30A(1052)

06-SEP-79 15:03

06-SEP-79

15:10

PAGE 38

READ PROCESSOR PRIORIVY

2611
2612
2613
2614
2615

LSBTTL

:
:
: DESCRIPTION:
:

2616
2617

:
:

2618

READ PROCESSOR PRIORITY

THIS 1S THE EMT HANDLER AND IS USED TO READ
THE PROCESSOR PRIORITY OFF THE STACK AND RETURNING

:
H

2619
2620

IN FSAVPW

2621

; CALLING SEQUENCE:

2623

;

2626
2627
2628

2629

;
:
:
:

2632
5623

.
:

Sogs

: OUTPUT PARAMETERS:

2637
gbgg

;
;

2640

: COMPLETION CODES:

2642

2622

:
:

2624
2625

:
:

362?
6
654

IMPLICIT INPUT PARAMETERS:

2643

THE LOCATICNS 30 AND 32 MUST HAVE BEEN SET
UP TO POINT TO THIS ROUTINE

THE CONTENTS OF THE PROCESSOR PRIORITY
ARE RETURNED IN THE LOCATION FSAVPW

NONE

: POSSIBLE ERROR CODES:

2644

2645

2647
2648

:
H

2646

2651

NONE

2641

2650

INPUT PARAMETERS:

2649

CALLED BY JSSUING AN EMT

636

SEQ 0062

014754

014762

016637

000002

014412

NONE

FADR:

MOV

;

RY]

2(5P) ,FSAVPW

; READ PRIOR]TY

: RETURN TO CALLFR

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP=-79 15:03

15:10

PAGE

RING TTY BELL

SEQ 0063

LSBITL

RING TTY BELL

DESCRIPTION:

ROUTINE TO RING THE BELL ON THE CONSOLE
TERMINAL, IF BIT 5 IS SET IN THE SWITCH
REGISTER.

CALLING SEQUENCE:
PC,BELL

JSR

INPUT PARAMETERS:
NONE

IMPLICIT

INPJT PARAMETERS:
THE
SET

OUTPUT

SWITCH REGISTER MUST

HAVE BEEN

PARAMETERS:

THE

TELETYPE BELL WILL BE RUNG IF

APPROPRIATE

IMPLICIT OUTPUT PARAMETERS:

COMPLETION CODES:

NONE

EYEYEITETITEIE

NONE

POSSIBLE

ERROR

CODES:

NONE

014764
014772
014774
014776
oo

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
<693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708

06-SEP-79

15002
15010

032777
001401
000207
004737
112737
004737

000040
015074
000007
015074

177226

177566

BELL:

BELLT:

B11
BEQ

#60,3SWR
BELL!

JSR

PC,TPREDY

RTS

MOVB
JSR

¥7,1°8
PC,TOREDY

;WAIT FOR PRINTER READY
;WAIT FOR PRINTER READY

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
2709
2710

015014
015022

112737
000207

000000

06-SEP-79
15:10 PAGE 39-1
RING TTY BELL
177566

MovB
RIS

#0,1PB
PC

SEQ 0064
;PRINT NULL
;G0 oUl

SE—

06-SEP-79

15:10
PAGE 40
JLLEGAL VECTOR TRAP CAT(CH

Vs e Ve Ve Vs By By Vo Vs Ve Ve Ve Ve Ve Ba Ve Ve Ve Ve Ve Ve Ve Vs Ve Ve Wy W
Ve B

SEQ 0065

ILLEGAL VECTOR TRAP (AT(H

LSBTTL

S e ®e
Bs %o %2 Be We Be e Ve WaBs Vs Ve Vs Ve B

WIS W ~nN

B 5 U

= OV

N U

R U A

NOWVME NN

N D N

N N

U U R

NO VS NN =000V~

b =t b b eh b ed -

ST, S1.VT.NT. V1, VT VT, ST, ST,NT, NT,S1,ST,¥1, V7 VT N7 V7 V7 VY VT VY ST VY N NY ST VT STV ~N
NN NNNNNNNNNNSNNNNNNNNNNNNNNNSNNN ~

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

DESCRIPTION:

TRAPS TO ILLEGAL VECTORS WILL BE
REPORTED HERE. THE VECTOR TO WHICH
THE TRAP OCCURRED WILL BE PRINTED
AS WELL AS THE ADDRESS IN THE MAIN

LINE CODE FROM WHICH THE TRAP OCCURRED.

* A PROGRAM RESTART

IS THEN PERFORMED,

UNLESS A NEW TEST HAS BEEN SELECTED
WHILE RUNNING UNDER A SOF TWARE
SWITCH REGISTER.

ENTRY POINT
ILLVEC

INPUT PARAMETERS:

ENTRY

IS CAUSED BY AN ILLEGAL

VECTOR TRAP

IMPLICIT

INPUT PARAMETERS:
NONE

QUTPUT

PARAMETERS:
THE VECTOR AND MAINLINE
WiLL BE PRINTED

ADDRESS

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION CODES:
A PROGRAM RESTART
TEST SELECTION .
POSSIBLE

ERROR CODES:

NONE

OR A NEW

VIV LOGIC TESTS MACY11 30A(1052) 06-SEP-79 *5:10 PAGE &0-1

CVVTAA,SRC

06-SEP=-79 15:03%

JLLEGAL VECTOR TRAP CAT(M

2768
2769
2770

g;;g

:BE REPORTED FROM WERE.

2776
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786

;A TRAP TO AN UNRECOGNISED VECTOR WitlL
01526
015030
015032
015034
015040
015044
015050
015052
0150854
015056
015062
015064
015070

004737
013036
012600
162700
004737
004737
013070
005726
012600
004737
005726
004737
000137

016632

000004
016722
016632

016722
015344
001200

ILLVEC: JSR
1LVMSG
MOV
SUB
JSR
JSR
FRMMSG
181
MoV
JSR
181
JSR
JMP

PC, TYPOUT

(SP)+,RO
26 ,R0
PC,PROCT
PC,TYPOUT
(SP)¢
(SP)+,RO
PC,PROCT
(SP)+
PC,MONIT
RSTART

—

21N

SEG 0066

;PRINT VECTOR
:PRINT MAINLINE ADDRES

VIV LOGIC TESTS MACYYY

CVVIAA,.SRC

30A(1052)

06-SEP-79 15:03

06-SEP-79

WAIT

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

PAGE 41

WALIT

LSBTYTL

SEQ 0067

FOR PRINTER READY

DESCRIPTION:

ROUTINE TO WAIT UNTIL THE PRINTER
ON THE (ONSOLE TERMINAL IS READY,
IE: IT IS READY TO PRINT THE NEXT
CHARACTER,
CALLING SEQUENCE:
PC,TPREDY
Pl ad

JSR

INPUT PARAMETERS:

2803

2804
2805
2806
2807
2308
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826

NONE

IMPLICIT

INPUT PARAMETERS:
NONE

QUTPUT

PARAMETERS:

IMPLICIT OULTPUT PARAMETERS:
NONE

COMPLETION CODES:

BV,

S Ve

NONE

- vm——

_ NONE

POSSIBLE

ERROR

CODES:

‘

2827
2828
2829
2830

NONE

177564

1S1B

BPL

R1S PC

TPS

TPREDY

“:ROUTINE TO WAIT FOR PRINTER READY

105737
100375
000207

015074
015100
015102

4% e

2831
2832

2833
2834
2835
283
2837

15:10

FOR PRINTER READY

VIV LOGIC TESTS MACY11

CVVTAA.SRC
2839
2840
2841
2842
2843
2844
2845

30AC1052)

06-SEP=-79 15:03

06-SEP-79

:
;
:
;
:
;

)

2846
2847
2848
2849
2850

;
;
:
.
:
;
:
;
:

2860
2861

SET

286¢
6

2866
2867
2868

THEN “UNLESS BIT 13 IN THE SWITCH REGISTER
1S SET, THE SAME VALUE IS RETURNED.
1F BIT 13 IS SET THEN FAST JTERATION IS
ASSUMED AND A VALUE OF 1 ]S RETURNED IN
R&.

:
:

2871
2872

;
:

2874
2875
2876

:
.
:

2873

JSR
INPUT

;

2879

;

2878

2880
2881

:
.

;

2882

2883
2884
2885
2886

i
:
:

2887

PARAMETERS:

- IMPLICIT

SETTING BIT 13 IN THE SWR WILL INDICATE
FAST ITERATION, AND A SINGLE PASS
WILL BE REQUESTED
OUTPUT PARAMETERS:

R4 WILL CONTAIN THE ACTUAL [TERATION

NONE

COMPLETION CODES:
NONE

NONE

:
:

032777

020000

177106

FASTSW: BIT

'
)

015104

IMPLICIT OQUTPUYT PARAMETERS:

2890
2891

COUNT

POSSIBLE ERROR CODES:

;

289?2

INPUT PARAMETERS:

;

2888

2889

PC,FASTSW

R4 CONTAINS THE PROPOSED ITERATION
COUNT

;

2877

)

CALLING SEQUENCE:

;
;
;

2869
2870

ITERATION (OUNT

ROUTINE TO SET UP THE TEST ITERATION
COUNT. A PROPOSED COUNT IS SET IN R4

:
;

SEQ 0068

DESCRIPTION:

.
.

2863
Sgbg

2894

PAGE 42

LSBTTL

;
:
;
;
;

2851
2852
2853
2854
2855
2856
2857
2858
2859

2893

15:10

SET ITERATION COUNT

#20000,dSWR

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03
2895

289¢

2897
2898

0 151 12
0 151 14
0 1P} 16
0 15 22

001001
000207
013704
000207

06-SEP-79
SET

15:10

ITERATION COUNT

BNE

014256

1%:

PAGE 42-1

RTS
Mov
RTS

PC
FSTONT,
RS
PC

SEQ 0069

15:10

TRAP SERVICE

PAGE 43

SEQ 0070

ROUTINE

TRAP SERVICE ROUTINE

DESCRIPTION:

TRAP HANDLING ROUTINE.

THE

TRAP HANDLER

ENTERED UPON THE EXECUTION OF

ANY TRAP

INSTRUCTION. 17 COMPARES THE LOWER BYTE OF

THE

TRAP INSTRUCTION WITH THE CONTENTS ON THE SWITCH
REGISTER, AND IF A MATCH IS FOUND TAKES THE CONTENTS

THE ADDRESS FOLLOWING THE TRAP INSTRUCTIOMN AS THE

RETURN ADDRESS.

THE

EXPECTED FORMAT

[S:

Va2

.SBTTL

WHERE ADDR |S THE ADDRESS TO PROCEFD TO IF N MATCHES
THE SWITCH REGISTER SETTINGS. THE TRAP ARGUEMENT
RELATED TO THE SWITCH REGISTER SETTINGS THUS:

e Wy Wo

s We Ve

Ve Vo ®e Ve

S Ve Vs Ve

Be T Ve B

Ve B

Ve Vs

TRAP+N
ADDR

TRAP ARG

SWR SETTING

200

4
10

400
1000

20
30
40
50
60
70

2000
3000
4000
5000
6000
7000

THE SETTING OF SWR BIT 12, WILL FORCE THE TRAP
HANDLER TO USE THE SWR SETTINGS THAT WERE IN
FORCE WHEN THE LAST TRAP INSTRUCTION WAS EXECUTED.

1F A CNTRL-G IS OUTSTANDING ON THE CONSOLE TERMINAL
WHEN THE TRAP WAS EXECUTED, THEN MONIT IS CALLED. If
CNTRL=0 WAS OUTSTANDING THEN MODIFY IS CALLED

Be
e Wy
Be Wu Be

2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
29
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
293%6
2937
2938
2939
2940
2941
2942
2943
2964
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955

06-SEP-79

@e ®o %o

VIV LOGIC TESTS MACY11 30A(1052)
CVVIAA,SRC
06-SEP~-79 15:03

ENTRY POINT
TRAPSV

INPUT PARAMETERS:

VIV LOGIC TESTS MACY11 30A(1052)

CVVTAA.SR?

06-SEP=-79 15:03

06-SEP=79

532?

;

2958
2959

:
;

2662

;

%gg?

:
:
;
:

2963
2964

2965

2966

2967
2968
%338

;
:
;

2971

;

2972

2973

;

2976

:
;

2980
2981

;
;

2977
2978
2979
:

2982
2983
2984

2988
2989
2990

015124
015130
015132

004737
011600
016037

015536

2993

015146

004737

016104

015156

001003

2991
2992

2994

2995

2996
2997
2998
2999
3000
3001
3002
3003

3006
3005
3006

3007
3008

3009
3010
3011

PAGE 43-1

015140
015144

015152

015160
015164
015166
015172
015174
015200
015206
015214

015216
015226
015232

015240
015242

015246
015250
019252

105737
100015

120027

004737
000405
120027
001002
004737
017737
132737
001012

013737
042737
132737

001412
013700

006000
006000
000300

177776
177560

IMPLICIT INPUT PARAMETERS:
THE SWR HAS BEEN SET UP
OUTPUT PARAMETERS:

EXIT TO THE CONTENTS OF THE ADDRESS FOLLOWING
THE TRAP INSTRUCTION IF A MATCH WAS FOUND, ELSE THE
PROGRAM WILL CONTINUE FROM THE ADDRESS AFTER THAT,
IMPLICIT OUTPUT PARAMETERS:
NONE

:
;
;

COMPLETION CODES:

;
:
;

POSSIBLE ERROR CODES:
NONE

TRAPSV: JSR
MOV
MOV

1518
BPL
JSR

C(MPB

000017

BNE

017162
1%:

000007
015344
177014
000020

014262
014263

014262
170777
000016

014264
014264
014263

014260

NONE

;
:
:

014260

3%:

SEQ 0071

ON EXECUTION Ot ANY TRAP INSTRUCTION

;

2974
2979

2985
2986
2987

15:10

TRAP SERVICE ROUTINE

JSR
BR
(MPB
BNE
JSR
MOV
BITB
BNE

MOV
BIC
BB

BEQ
)
TRPSCP: MOV

ROR
ROR
SWAB

PC,SAVREG
(SP),RO
-2(RO),TRPARG

1XS
13

PC,READ

RO, #17
19

PC,MODIFY
3%
RO, #7
3%
PC,MONIT
3SWR, TRPSEL
#20,TRPSEL+1
TRPSCP

TRPSEL,TRPMEM
#170777,TRPMEM
#16, TRPSEL+1
TRPLP
TRPARG,R0

RO
RO
RO

; SAVE REGS

;GET TRAP CALL
;LOOK FOR MONITOR CALL

:1S IT CNTRL-0 ?

:NO

:YES CALL MODIFIER ROUTINE
;1S 17 CTRL=-G?
sYES, GO TO SWR MONITOR
;1S 1T PRESERVE SCOPE
:YES

:NO SO SAVE SWITCH SETTING
:GET 1T SO WE CAN COMPARE
;ANY SCOPE LEVELS SET
:NO
SYES

;GET 10 POSITION FOR COMPARE
:FOR 10 & ABOVE
:ONLY FOR SCOPE BITS(9=11)

vIV LNGIC TESTS MACY1T 30A(1092)
06-SEP-79 15:03

LN AN

N LN L

NN
AN = = OO0 ~
ronnosSsOoOoNNSOo

N AN AN N

256
260
264
266
272
274

N L

el
i
el
il
el
e
et
D
D
i

U IV

el
el
el
il
o
i
—

3019
3020
3021
3022
3023
3024
3025
3026
3027
3028

ODOCTTOOO0OOOOOOOOOOOO

3018

(W RV RV SV RV LU

3012
3013
3014
3015
3016
3017

LU TV IV SO RV SV JW LU LV, |

CVVTAA .SR(

042700
020037
001422
013700
006100
006100
000300

142700
162737
130037
001005

004737
062716
000002
004737
017616
000002

06-SEP-79

15:10

TRAP SERVICE

170777
014264
014262

000371
000370
016260

TRPLP:

mMov
ROL
ROL

SWAB
BI(B
BI(B
B118

01426C

BNE

015634
000002
015634
000000

81C
(MP
BtQ

JSR

TRPBAK:

ADD
RT]

JSR

MOv
RT1

PAGE 43-2

SEQ 0072

ROUTINE

#170777,R0
RO, TRPMEM
TRPBAK

TRPSEL ,RO
RO
RO
RO
#371,R0
#370, TRPARG
RO, TRPARG
TRPBAK
PC,RSTREG
#2,(SP)
PC,RSTREG

a(SP),(SP)

;ARGUMENT SLOPE
;AS SELECTED ?
;YES, GO BA(K
;NO, TEST LOOP
;FOR BITS 788

BITS

;CUT OUT SwW06

;ONLY SWITCHES 7 OR 8 NOW
;ANY

JYES

SELECTED

sNO SCOPE OR LOOP,SO RUN
;PAST ARGUMENT AND RETURN
;RESTORE REGS

RETURN ADDRESS TO STA(K
SEXIT,

LOOPING

3083
3084

3085

15:10
PAGE 44
SWITCH REGISTER MON]ITOR

SEQ 0073

SWITCH REGISTER MONITOR

DESCRIPTION:

DRI

FIE R

IPIE SR

LSBTTL

SWITCH REGISTER MONITOR,
(CALLED BY AN ERROR
WITH SWR BIT 15 CLEAR, OR BY TYPING (TRL-G

ON THE CONSOLE TELETYPE.
IF USING HARDWARE
SWR, SIMPLY ASKS FOR CTRL=-C TO CONTINUE.
OTHERWISE, IT PRINTS THE CURRENT
CONTENTS OF THE SOF TWARE SWITCH REGISTER,
FOLLOWED BY A PROMPT (>). THE NEW SWITCH
REGISTER SETTINGS SHOULD THEN BE ENTERED AS
AN OCTAL NUMBER, TERMINATED BY CARRIAGE RETURN.
TYPING CARRIAGE RETURN ALONE WILL CAUSE THE
SWITCH REGISTER CONTENTS TO REMAIN UNCHANGED.
If THE SWITCH REGISTER IS UPDATED TO SELECT
A TEST (BIT 6 SET) THE NEW TEST WILL BE
ENTERED IMMEDIATELY.
CALLING SEQUENCE:

PC.MONIT

JSR

PARAMETERS:

INPUT

THE

BY TYPING CNTRL=-G DURING
TESTS.

IMPLICIT

INPUT

THE

RUNNING

PARAMETERS:

THE SOFTWARE SWITCH REGISTER,
HAVE BEEN SET UP.

BEING USED

OUTPUT

PARAMETERS:

)

MUST

RUNNING UNDER SOFTWARE

A NEW SETTING Of

THE

COMPLETION CONRES:

IMPLICIT OUTPUT PARAMETERS:
NONE

NONE

POSSIBLE

ERROR
NONE

CODES:

SWiT(H REGISTER MODE

SWR (OULD HAVE

3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082

06-SEP-79

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA_SRC
06-SEP-79 15:03

BEEN SET

UP.

VIV LOGIC TESTS MACYI1 30A(1052)
CVVTAA,SRC
06-SEP=-79 15:03
3086
3087
3088
3089
3090
3091

3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109

015344
015346
015356
015356
015362
015364
015370
015374
015400
015406
0156410
015614
015416
015422
015630
015432
0156436
015442
015644
015450
015452

010046
023727
001430
004737
013302
013700
004737
012700
0064737
004737
005737
001413
010037
032737
001405
000137
004737
000775
004737
012600
000207

014220

06-SEP-79

15:10
PAGE 44-1
SWITCH REGISTER MONITOR

177570

MONIT:

016632
016246
016722
000076
016710
015732
014276
0146246
000100

MOV

(mp
8EQ
JSR
SWRMSG

MOv
JSR
MoV

JSR
JSR
181
BEQ

MOV

014246

001232
015454

MONITA:

016576

MONITX:

BI
BEQ
JMP
JSR

JSR
Mov
RTS

RO,=(SP)
SWR, #HSWR

MONITA
PC,TYPOUT

SEQ 0074

; SAVE RO

;HARDWARE

;1F

SWR?

YES, GO TO END

;SWR=

SSWR,RO

PC,PROCY

#76,R0

PC,PCHR
PC,OCTIN

RAND
MONITX

;GET NEW SETTING

;ANY

INPUT?

RO, SSWR

;YES UPDATE

START?

SYES GO DO 17

#100,SSWR
MONITX
PC,TYPCTC
MONITA
PC,CRLF
(SP)+,RO
PC

SSWR

STEST SELECTEDR?

;CIRL=C TO CONTINUE

;RESTORE RO

VIV LOGIC TESTS MACY11

15:10

PAGE 45

WAIT FOR CNTRL-C
LSBYTL

SEQ 0075
FOR CNTRL-C

WALT

DESCRIPTION:

ROUTINE TO WAIT FOR THE USER TO TYPE

(NTRL-C ON THE CONSOLE. IF CNTRL-0 IS HIT MODIFY
1S CALLED, AND IF CNTRL=G IS HIT MONIT IS CALLED.

1F NONE OF THESE ARE H1T, THE ROUTINE WILL RETURN
TO THE NEXT LOCATION AFTER THE CALL. IF CNTRL-C WAS

HIT THE ROUTINE WILL RETURN TO THE NEXT LOCATION+Z2.

CALLING SEQUENCE:

PC,TYPCTC

JSR

INPUT PARAMETERS:

®e

NONE

R K

IMPLICIT

ALR
R R R T T P

015454

004737

016632

015462
815466
15472

0C4737
020027
001005

016104
000003

015460

013247

INPUT PARAMETERS:

INPUT
OUTPUT

IS REQUESTED FROM THE CONSOLE

PARAMETERS:
RO

CORRUPTED

IMPLICIT QUTPUT PARAMETERS:
NONE

Y ETR TR TE LR T T P T R

06-SEP-79

S I N T T

(o Yo X o X0 X X0 K> XV AV IV LV IV, TV TV RV RV LV
VN NN —=2OOV®BNO
N WNN—=OO

D
D
D
D
)
el
s
D
D i
D i
D
D Al
D el
s
D
il
B
D ol
o
—t md e

B
D S
i e

W L Wt g W U A L L Ui A L U L AN L AN e

30A(1052)

06-SEP-79 15:03

B 85 NN N N U WM
N N N PO P AL R PO AU RO D PO ) b et et b b et e et —
= OOV
NO NS NN —=OOVONO VNS NN =0V
NN
NN -

(W LV AV TV AV LW RV QV IV LV IV RV JV JV [V IV V VIV IV IV IV TV TV AV LV Qv LV [V ]V

CVVTAA,SRC

COMPLETION CODES:
THE

CALL

POSSIBLE

A RETURN TO THE FIRST OR SECOND LOCATION AFTER
IS PERFORMED.

ERROR (ODES:
NONE

YPCTC: JSR

QEXIT:

REDMES

JUSR
(MpP
BNE

PC,TYPOUT

;PRINTS TYPE CTRL/C WHEN READY

PC.READ
RO, #3
QEX]T2

;CTRL/C ENTERED
:NO

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

3167
3168
3169
3170
3171

3172
3173
3174
3175
3176

3177
3178
3179

0156474
015500
015506
015506
015512

015516
015520
015522
015526
015530
015534

004737
062716
000207
020027
001003

0047357
000755
920027
001366
004737
000747

016576
000002
000017

017162
000007
015344

06-SEP-79

WAIT

15:10

PAGE 45-1

SEQ 0076

FOR CNTRL-(

JSR

QEXIT:
QEXIT2:

ADD
RTS

C(Mp
BNE
JSR
BR
QEXIT3: C(mp
BNE
JSR
BR

PC,CRLF
#2,(SP)

:YES SO JUMP OVER NO FIND RETURN

;60 BAC(K

;CNTRL=-0 ?

RO, #17

QEX]T3
PC,MODIFY
TYPCTC

RO, #7
QEX]TY
PC,MONIT
TYPCTC

;NO

JYES CALL MODJFY PROGRAM
; THEN GO BACK T0 START
sCTRL-G?

;GO0 TO SWR MONITOR
;L00K FOR CTRL=C AGAIN

VIV LOGIC TESTS MACY11 30A(1052) 06-SEP=79 15:10 PAGE &b

CVWIAA.SRC

06-SEP=79 15:03

)

SAVE REGISTERS

3181

.SBTTL

3
31 85
3
31
3188
3189

SEQ 0077

SAVE REGISTERS

DESCRIPTION:

:
.
:

g}91

:
:

ROUTINE TO SAVE ALL THE GENERAL PURPOSE
REGISTERS ON THE STACK, AND LEAVE THE ADDRESS OF THE
CALLING ROUTINE ON THE STACK. THE ROUTINE WILL RUN AT
PRIORITY 7 TO AVOID ANY INTERRUPTS

3
3
3
3

i
i

CALLING SEQUENCE:
JSR
PC,SAVPEG

9%
196

3198
3200

INPUT PARAMETERS:
NONE

é
;

3190

INPUT PARAMETERS:

IMPLICIT

NONE

OUTPUT PARAMETERS:

-—

REGISTERS O THRU S ARE SAVED ON THE STA(K
AND THE RETURN ADDRESS OF THE CALLING ROUTINE 1S
SET AS THE LAST ENTRY ON THE STA(CK

3213
3214
3215
3216
3217
3218
3219
3220

IMPLICIT OUTPUT PARAMETERS:

NONE

COMPLETION CODES:

8¢

3221
3222
3223
3224
3225
3226

NONE

POSSIBLE ERROR CODES:

31233
3236

[aY]
v
o

NONE

AVREG: PSWREA

015536

015546
015562
0 015566

012637

014266

PSWSET
Mov

012637

014270

MOV

SAVSTA

#340
(SP)+,SAVPC
(SP)+,SAVPCI

:SAVE PC FOR RETURN FROM THIS
. ROUTINE

]

VIV LOGIC TESTS MACY11 30A(1052)
06-S€P-79 15:03
CVVTAA .SRC
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246

3247
3248
3249

015572
015574
015576
015600
015602
015604
015606
015612
015616
015632

010546
010446
010346
010246
010146
010046
013746
013746

000207

0146270
014266

06-SEP-79

SAVE

15:10

PAGE 46-1

SEQ 0078

REGISTERS
MoV
MoV
Mov
MOV
Mov
MOV
Mov
MOV
PSWSET
RTS

RS,~(SP)
R&,
= (SP)

R3,-(SP)
R2,=(SP)
R1,-(SP)
RO,-(SP)
SAVP(1,-(SP)
SAYPC,=(SP)
SAVSTA

;PUT

;RETURN

READY

FOR

viv LOGIC TESTS MACYYY 30A(1992)
(VVTAA_SRC
06-SEP-79 15:03%
3251
3252
3253
329¢
3255
3256
3257
3258 3259
3260

06=-SEP=79

15:10

I
A
I
R

DESCRIPTION:

RESTORE TO RESTORE

REGISTERS. THE STACK

WAS WHEN SAYREG WAS

THE

IS LEFT

CALLED.

GENERAL

PURPOSE

IN THE SAME STATE AS [T

CALLING SEQUENCE:

PC.RSTREG

JSR
INPUT

3266
3267
3268
3269
3270

3300

RESTORE REGISTERS

326%
3264
3265

3301
3302
3303
3304
3305
3306

SEQ 0079

.SBTTL

3261
3262

3271
3272
327%
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
31298
3299

PAGE 47

RESTORE REGISTERS

PARAMETERS:
NONE

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

RO THRU RS RESTORED

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION COOES:
NONE

POSSIBLE ERROR CODES:
NONE

015634
015644
015660

015664
015670
015672
015674
015676
015700
015702

RSTREG:
012637

012637

012600
012601
012602
012603
012604

012605

014266

014270

PSWREA

SAVSTA

PSWSET

#340

MOV
MOV
MOV
MOV
MOV
Mov

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

Mov
Mov

(SP)+,SAVP(
(SP)+,SAVP(1

3307
3308
3309
3310

0157064
015710
015714
015730

013746
013746
000207

014270
016266

06-SEP-79
15:10 PAGE 47-1
RESTORE REGISTERS
MOV
MOV
PSWSET
R1S

SAVP(1,-(SP)
SAVP(,-(SF)
SAVSTA
PC

SEQ 0080
;PUT PC READY FOR
;RETURN

vIV LOGIC TESTS MACY11 30AC1052)
CVVTAA.SRC
06-SEP-79 15:03

3312
1313

06-SEP-79 15:;0 PAGE 48
ENTER ANSOCTAL NUMBER
.SBTTL

SEa 0081

ENTER AN OCTAL NUMBER

31314
33195
22}9

:
:
;

DESCRIPTION:

3318
3319
31320
3321
3322
3323
3324
3325
3326
3327

;
;
;
;
:
;
s
K
;
:

ROUTINE TO ENTER AN OCTAL NUMBER ON THE CONSOLE.
THE NUMBER ENTERED IS RETURNED IN RO, AND THE VALUE RAND
1S SET TO NON ZERO I1F ANY CHARACTERS WERE ENTERED.
TYPING CARRIAGE RETURN, LINE FEED OR ESCAPE WILL
TERMINATE THE LINE BEING ENTERED.
RUBOUT WILL DELETE THE LAST CHARACTER ENTERED,
CNTRL=U WILL RUBOUT THE WHOLE LINE, AND CNTRL-R
WiLL TYPE OUT THE CHARACTERS SO FAR ENTERED.
RAND WILL BE SET TO NON ZERO IF ANY (HARACTERS
WERE HIT AND RANDC WILL CONTAIN THE TERMINATING

3328

3329

;

3330
3331

:
.

3333
3334

:
:

3332

CHARACTER,

H
.

A ''' WILL BE PRINTED IFf AN OVERFLOW CONDITION IS
DETECTED AND A '?' IF AN INVALID CHARACTER WAS
ENTERED.

CA_LING SEQUENCE:

3335

;

3337

;

JSR

31319

INPUT PARAMETERS:

3341

;

3336

;

3338

3340

3342
3343

;
:

3345

;

3344

PC,OCTIN

NONE

IMPLICIT INPUT PARAMETERS:

3346

;

NONE

3349

QUTPUT PARAMETERS:

3347
3348

:
;

3350

3351
3352

:
:

3354
3355

:
:

3357

3360

;

33¢2

3353

3356

;

3358
3359

:
:

3361

3363

3364

RO CONTAINS THE NUMBER ENTERED.
RAND=0 IF NO CHARACTERS WERE ENTERED.
IMPLICIT OUTPUY PARAMETERS:

NONE

COMPLETION CODES:
NONE

;

3365

;

POSSIBLE ERROR CODES:

3347

NONE

3366

)

;

VIV LOGIC TESTS MACYI1 30A(1052)
CVVTAA.SRC
06-SeP-79 15:03

VIV LOGIC TESTS MACYYY 30A(1052)
06-SEP-79 15:03

LVVTAA .SRC

004737

06-SEP-79

15:10
PAGE 48-1
ENTER AN OCTAL NUMBER

OCTIN:

015536

014276
014206

000006
000060
000067
016374
016130
014400

014206
000060

TYPOTB:

014376
014400
014402
014406

JSR
(LR
(LR

mMov
Mov
MOV
Mov

CLR
JSR

Mov

BEQ

TYPOTC(:

MoV
MOVB

SuB
e

ASL

BCS

PC,SAVREG
RO
RAND

#OCTMSG,STRADD
#6,STRLEN

#60,L0WCHR
#67,UPPCHR
CNVELG
PC,GETSTR

SEQ 0082

;SAVE THE REGISTERS®
;CLEAR RO
;CLEAR FLAG WORD
;

;

(R2)+,R3

#60,R3

YES

NO GET

SHIFT OUT RESULT
( BIT SET ERROR

TYPOTE

1 l

(

BIS
INC
DEC
BNE

SET NEW BITS

TIMES 8

ASL

016074
016100

000137

PC,RSTREG

RTS
MOV
JSR
JMP

PC
#41,R0
PC,PCHR
TYPOTB

TYPOTA,RO

SET GOOD

LOOP 1F MORE 1O COMt
SAVE FINAL NUMBER

TYPOTC

RO,TYPOTA

JSR

MOV

TYPOTE:

START ADDRES OF

; GET A CHARA(TER
; PUT IN RANGE

BCS

MOV

STRING

GET A STRING
ZERO LENGTH ?

ASL

TYPOT1D:

START ADDRESS OF

AND TS SIZE
MINIMUM CHAR
MAXIMUM. CHAR

DON'T CONVERT TO UPPER CASE

STRLEN,R1

TYPOTD
#OCTMSG,R?

SET

: RESTORE REGISTERS

GET

RESULT

OVERFLOW
PRINT A !
THEN GO AGAIN

STRING

VIV LOGIC TESTS MACY11

CVVTAA,SRC

30A(1052)

06-SEP-79 15:03

06-SEP-79

15:10

PAGE 49

READ A SINGLE CHARACTER

3404
3405
3406
3407

.SBTTL

SEQ 0082

READ A SINGLE (MARACTER

3408

DESCRIPTION:

3611
g:}%

FROM THE CONSOLE. THE (HARACTER IS RETURN IN RO
AND HAS THE 200 BIT STRIPPED OFF.

3614

CALLING SEQUENCE:

3409
3610

ROUTINE TO READ A SINGLE CHARA(CTER

3415

3416
3417
3418
3419
3420
3421
3422

:
.
:
:
:
:

3423

3425
3426
3427
3428
3429

:
:
:
:
:

g#gS

:
:
:

454

3424

3430
3431
3432

3438
3439
3440
3441
3442
3443
3444

.
:
:
:
;
;
:

3436
3437

:
:

3445

3446

016104
016110

3454
3455

(16122
016126

016112
016116

105737
100375

013700
042700
004737
000207

177560

177562
177600

016710

READ:

PARAMETERS:

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

RO CONTAINS THE (HARACTER READ IN.
IMPLICIT OUTPUT PARAMETERS:

THE CHARACTER 1S ECHOED ON THE TERMINAL
COMPLETION CODES:

NONE

POSSIBLE ERROR CQODES:
NONE

:
:

3450
3451

PC,READ

NONE

;

3647
3448

3452
3453

INPUT

3435

34649

JSR

~-ISTB
BPL

TKS
READ

JSR
RIS

PC,PCHR
PC

MOV
BIC

TKB,RO
#177600,R0

15:10

PAGE 50

7
SEQ 0084

ENTERING A CHARACTER STRING

ENTERING A (HARACTER STRING

DESCRIPTION:

SBTTL

ROUTINE TO ENTER A STRING OF CHARACTERS ON
THE CONSCLE TERMINAL. VARIOUS CONTROL CODES
ARE USED TO CONTROL HOW THE CHARACTERS ARE
INTERPTETED:

ESCAPE, CARRIAGE RETURN AND LINE FEED ARE USED
TO TERMINATE THE STRING. RUBOUT WILL DELETE THE
LAST CHARACTER ENTERED, CNTRL-U WILL DELETE THE
ALL THE CHARACTERS ENTERED, AND CNTRL-R WILL ECHO

THOSE

CHARACTERS ALREADY ENTERED.

ON ENTRY THE FOLLOWING POINTERS ARE USED:

STRADD TO INDICATE THE START OF

THE CHARACTER STRING

STRLEN TO INDICATE 17S SIZE
CVNFLG SET TO CONVERT LOWER CASE TO UPPER CASE

UPPCHR TO INDICATE THE HIGHEST CHARACTER CODE
LOWCHR TO INDICATE THE LOWEST CHARACTER CODE

ON EXIT THE
LOCATION STRLEN WILL INDICATE THE
NUMBER OF CHARACTERS ENTERED AND RANDC WILL CONTAIN
TERMINATING CHARACTER

THE

IS PRINTED

CALLING SEQUENCE:

IF AN INVALID CHARACTER WAS HIT A "?'

PC,GETSTR

INPUT

PARAMETERS:

STRADD
STRLEN
UPPCHR
LOWCHR
CNVFLG

THE START ADDRESS OF THE STRING
THE NUMBER OF C(HARACTERS TO READ
THE HIGHEST CHARACTER CODE ALLOWED
THE LOWEST CHARACTER CODE ALLOWED
TO INDICATE LOWER TO UPPER CASE C(ONVERSION

IMPLICIT

INPUT PARAMETERS:

BaBe e

JSR

NONE

QUTPUT PARAMETERS:

s
®e
Be
®e

3457
3458
3459
3460
3461

06-SEP-79

@ e

VIV LOGIC TESTS MACY1Y 30A(1052)
06-SEP=-79 15:03
CVVTAA,SRC

STRLEN THE NUMBERS OF

RANDC

THE

(HARACTERS READ

TERMINATING C(HARACTER

VIV LDOGIC TESTS MACYYY 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

31513
3514
3515
3516
3517
3518
3519
3520
3521
3522
352%
35264
1525
3526
3527
3528
3529
3530
3531
36532
3533
3534

06-SEP-79

15:10
PAGE 50-1
ENTERING A CHARACTER STRING

SeEa 0085

IMPLICIT OUTPUT PARAMETERS:
NONE

* COMPELETION CODES:
NONE

: POSSIBLE ERROR CONDITIONS:
A

016130
016134
016140

016144
016146

016152
016154
016160

004737
005037
013702
005001
105737

100375
013700
042700

015536
014406
014376
177560
177562
177600

'2'

IS PRINTED

GETSTR: JSR

PC,SAVREG

GETCH1:

CLR
Mov
CLR
GET(H2: TSTB
BPL
MoV

RUBFLG
STRADD,RZ
R1
TKS
GETCHZ
TKB,RO

#177600,R0

BIC

INVALID CHARACTER

;S AVE REGISTERS
CLEAR RUBOUT

IS ENTERED

FLAG

; GET STARTING POINTER
; SET INTITAL LENGTH

;

[NPUT

ANY

TTY

WAS

<CR>

WAS
NO

<LbF>

WAS

<ESC>

: NO WAIT FOR 11
; GET C(HARACTER
: CLEAR RUBBISH

CHECK FOR CONTROL CODES

N
(V]

e
i

s
e
el
i

3555
3556
3557
3558
3559
3560
3561
3562
3563
31564
3565
3566
31567
3568

3553
3554

OOOOODOOOOOO0O00O

016164
016170
016172
016176
016202
016204
16210

020027
001002
000137
020027
001002
000137
020027
001002
000137
020027
001002
000137
020027
001002
000137
020027
001002
000137

(MP
BNE

RO,#15
1%

1%:

(mMp
BNE

RO,#12
3%

000033

1%:

016554
000177

. (MP
BNE

RO,#33
5%

5%:

016402
000022

cmMp
BNE

RO,#177
7$

7%:

CMP
BNE

RO,#22
9%

000015
016554
000012
016554

016500
000025

9%:

;

020027
002405

000140

CHRFIN

JMP

;
:

CHREIN

JMP

RUBCHR

JMP

LINECH

JMP

RO,#25
GET(H3

(MP
BNE

L INDEL

JMP

016450

016260
016264

CHRFIN

JMP

RUBOUT

YES
CNTRL=R
NO
YES EXCO LINE
CNTRL=U
NO
YES

DELETE

LINE

IT LOWER CASE

17 WAS NOT A CONTROL CODE CHECK

FOR LEGALITY

GETCH3: (MP
BLT

RO,#140

016534
014404

3%:

5¢%:

016534

(mp

BGE
JMP

cmp

BLE
JMP

———y

YES DO WE

CNVFLG

#40,R0
RO,LOWCHR

ILLCHR
RO,UPPCHR
GETCHG
ILLCHR

000040
014402

187
BEQ
BIC

016374

005737
001402
042700
020037
002002
000137
020037
003402
000137

SEQ 0086

016266
016272

15:10
PAGE 50-2
ENTERING A CHARACTER STRING

®e

3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600

06-SEP-79

VIV LOGIC TESTS MACY1Y 30A(1052)
CVVTAA .SRC
06-SEP-79 15:03

CCNVERT

TO UPPER

YES STRIP 40 OFF
IS THE CHAR TOO SMALL

NO
YES

IS THE CHAR 100 BIG ?

YES

ITS

ILLEGAL

* WE HAVE A LEGAL CHARACTER

016376

010003
005737
001406
012700
004737
005037
005201
020137
003403
005000
000137
010300
004737
11002°
00013/

014406

000C57
016710
014406
014400

016554
016710

GETCH4:

MOV
1S1
BEQ

MoV

5¢:

016146

JSR
(LR

INC

CMP
BLE
(LR
JMP
MOV
JSR
MOVB
JMP

SAVE (HAR
IS RUBOUT SET

RO,R3

RUBFLG

#57,R0
PC,PCHR
RUBFLG
R1
R1,5TRLEN

: YES PRINT A '/
CLEAR RUBOUT FLAG
UPDATE CHAR COUNT
END OF

RO
CHRFIN

R3,RO

PC,PCHR

RO, (R2)+

GETCHZ

STRING SEEN

NO
YES,

:
;

FORCE A NULL
AND COMPLETE
RESTORE CHAR
ECHO 17
SAVE [T [N BUFFER
NO GET NEXT ONE

TERMINATOR

* RUBOUT WAS W11
016402
016404
016406
016412
016416
016420
016424
016430
016434
016436
016442
016444

005701
001002
000137
005737
001006
012700
004737
005237
114200
004737
005301
000137

RUBCHR:

016470
016406

000057
016710
014406

016710-

3%:

5¢:

016146

TST
BNE

181

RUBFLG

JMP

BNE
MOV

JSR
INC
MOVB
JSR
DEC
JMP

ANY
YES

3%
LINDLI

CHARACTERS

IS RUBOUT

YES

5%
#57,R0

NO PRINT A

PC,PCHR
RUBFLG

SET

T1C RUBOUT

A READY

*'/!

PC,PCHR

SET RUBOUT
GET LAST CHAR ENTERED
PRINT 1T

GETCHZ

GET

-(R2),RO

REDUCE

COUNT

ANOTHER CHAR

* RUBOUT LINE WAS HI1
016450
016454
016460
016464

MOV
JSR

#136,R0

JSR

PC,PCHR
PC,CRLF

MOv

LINDLY:

JUSR

JMP

PC,PCHR

#125,R0
GETCHI

PRINT
:

A *

THEN U

START ON A NEWLINE
A GO BACK

T0 BEGINNING

~N N

016500
016504

: (NTRL=-R WAS HIT
O —
O " rno

3620
3621
3622
3623
3624

016470
016474

LINDEL:

012700
004737
012700
004737
004737
000137

000100
016576

LINECH: MOVB
JSR

#'a,(R2)
PC,CRLF

PUT IN A TERMINATOR
START ON A NEW LINE

vIV LOGIC TESTS MACYY1 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

016510
016516
016522
016526
016530

013737
005037

004737

000000
000137

0164376
014406
016632
016146

016526

(LR
JSR

RUBFLG
PC,TYPOUT

. CLEAR RUBOUTS
: PRINT LINE

;

SET START ADDRESS

JMP

GETCHZ

;

AND GET

MOV

STRADD,
3%

SEQ 0087

ANOTHER

(HAR

* JLLEGAL CHARACTER ENTERED
016534
016540
016544
016550

004737

QOO0O
— et )
oocoo
VNNO~N
O b~
—
OO~NO

3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644

15:10
06-SEP-79
PAGE S0-3
ENTERING A CHARACTER STRING

ILLCHR:

JSR

MOV

JSR
JMP

PC,PCHR
f'7,R0

. ECHO 1T
;

LINECH

;

THE

.
;

SAVE TERMINATOR
CALCULATE BYTE COUNT

PC,PCHR

ECHO LINE

014410
014376
014400
015634

CHRF IN:

MOV
SuB

MOV

JSR

RTS

RO,RANDC(
STRADD,R?
R2,STRLEN

PC,RSTREG
PC

;

.
:

SET

FOR RETURN

RESTORE REGISTERS
AND EXIT

VIV LOGIC TESTS MACY1) 30A(1052)
(VVTAA,SRC
06-SEP-79 15:03
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659

06-SEP-79
15:10 PAGE 51
CARRIAGE RETURN LINE FEED
:

3660
3661
3662
3663
3664

:
.
:
.
;
;
:
:
:
;
:

:
:
:
.
:
;
.
;
:
:
.
:
:
:
:

3665

3666
3667
3668
3669

3670
3671
3672
3673
1674
§6;2

gg;g

3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691

:
N
.
;
:
.
;
:
;
:
:
:
:

3692

3693
3694
3695
3696
3697
3698
3699
g;g?

016576

016600
016604
016610
016612
016616
016622
016626

016630

010046

012700
004737
005000
004737
012700
004737
012600

000207

000015
016710
016710
000012
016710

CRLF:

LSBTTL

SEQ 0088

CARRIAGE RETURN LINE FEED

DESCRIPTION:

ROUTINE TO DO A <(R> <LF> ON THE
CONSOLE TERMINAL
CALLING SEQUENCE:
JSR

PC,CRLF

INPUT PARAMETERS:
NONE

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:
NONE

IMPLICIT QUTPUT PARAMETERS:

THE CARRIAGE wWwILL BE PLACED ON A NEW LINE
COMPLETION CODES:
NONE

POSSiBLE ERROR CODES:
NONE

MOV

MOV
JSR
(LR
JSR
MoV
JSR
MOV
RTS

RO,-(SP)

#15,R0
PC,PCHR
RO
PC.PCHR
#12,R0
PC,PCHR
(SP)+,RC
PC

:PRINT A RETURN = LINE FEED

: DUMMY

VIV LOGIC TESTS MACYTY 30A(1052)
06-SEP=-79 15:03

CVVTAA,SRC
3702

06-SEP-79

15:10

CARRIAGE

PAGE 51-1

RETURN LINE

FEED

Sea 0089

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03
3704
3705
3706
3707
3708
3709
3710

06-SEP-79
15:10 PAGE 52
PRINT AN ASCI] MESSAGE
LSBTTL

SEQ 0090
AN ASCI1 MESSAGE

DESCRIPTION:
ROUTINE TO PRINT A STRING OF

ASCIlI

LYAR
3712

;
:

CHARACTERS ON THE CONSOLE TERMINAL. CERTAIN
CHARACTERS WITHIN THE STRING ARE INTERPRETED

3715

133 ()

3718
3719
3720

:
.
;

THE ADDRESS OF THE MESSAGE STRING TO BE PRINTED
WILL BE HELD IN THE LOCATION FOLLOWING THE CALL
T0 THE ROUTINE, IE-

3722
3723
3724
3725
3726
3727
3728
3729
3730

N
K
:
:
:
;
:
:
:

3733

;

2;}2
%;}9

3721

g;g;

3734
3735
3736

;

;
H
:

AS CONTROL CODES, THESE ARE:

WILL GENERATE A <(R>,<LFf>

100 (a)

WILL SIGNIFY END OF MESSAGE

JSR
ADDR

PC,TYPOUT

CALLING SEQUENCE:

JSR

PC,TYPOUT

INPUT PARAMETERS:
THE ADDRESS OFf THE MESSAGE STRING FOLLOWS

THE SUBROUTINE

CALL.

3737
3738
3739
3740

M
:
:
:

IMPLICIT INPUT PARAMETERS:

3742
3743
3744
3745
3746
g;«g

;
H
:
:
:
:

OUTPUT PARAMETERS:

37461

3749

3750
3751

:
:

3752

;

3754

;

3753
3755

:
:

NONE

IMPLICIT OUTPUT PARAMETERS:

THE SPECIFIED MESSAGE wlLL BE PRINTED

COMPLETION CODES:

NONE
POSSIBLE ERROR CODES:
NONE

VIV LOGIC TESTS MACYT1 30A(1052)
06-SEP-79 15:03
CVVTAA .SRC
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3N
3772
3773
3774
3775
3776
3777

0165632
016636
016642
016646
016650
016654
016656
016662
016664
016670
016672
016676
016700
016702
016706

004737
017601
062716
111100

015536
000000
000002

022700

000100

022700
001003
004737
000402
004737
005201
000762
004737
000207

000133

001412

06-SEP-79

15:10

AN ASCII

TYPOUT:

PMSG1:

016576
016710

PMSG2:
PMSG3:

015634

PMSG4:

PAGE 52-1

JSR
Mov
ADD

MOVB
cmp
BtQ
(mp
BNE
JSR
BR
JSR
INC
BR
JSR
RTS

SEQ 0091

MESSAGE

PC,SAVREG

: SAVE REGS

a8(SP) R

;R1

ar1,RO

;PRINT THE MESSAGE POINTED
;710 BY RY UNTIL @, WHICH 1S END.

#2,(SP)

#100,R0
PMSG4

#133,R0
PMSG2

POINTS AT

;[ MEANS CR-LF

PC,CRLF

PMSG3

PC,PCHR
R1
PMSG1
PC,RSTREG
PC

STRING

; JUMPS OVER ARGUMENT

;RESTORE

REGS

VIV LOGIC TESTS MACYT1

CVVYAA,SRC

30A(1092)

06-SEP-79 15:03%

A (HARACIER

R
R
e

ROUTINE

TO PRINT

(ONSOLE. RO CONTAINS THE

A (HARACTER ON THE

CHARACTER TO BE PRINTED

;
:
;
;
;
:

CALLING SEGUENCE:

JSR

PC,PCHR

INPLT PARAMETERS:

RO CONTAINS THE CHARACTER TO BE PRINTED

;

)

IMPLICIT INPUT PARAMETERS:

;

3798

N RN DN T N

3799
3800
3801

NONE

QUTPUT PARAMETERS:
NONE

R IR I T

3802
3803
3804
3805
3806

3808
3809
3810
3811

THE

CHARACTER SELECTED WILL BE

COMPLETION CODES:

3812

L R R

NONE

POSSIBLE ERROR CODES:
NONE

N N

004737
010037
000207

015074
177566

e LR R

016710
016714
016720

IMPLICIT OUTPUT PARAMETERS:

R R L

3807

38264
3825
3826

SeQ 0092

DESCRIPTION:

3797

3823

PAGE 53

.SBTTL

g;gz

3813
3814
3815
3816
3817
3818
3819
3820
3821
3822

15:10

PRINT A (MARACTER
I

3779
3780
378,
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794

06-SEP-79

(HR:

JSR
MOV
RTS

PC,TPREDY
RO,TFB
PC

;PRINTER READY

PRINTED

VIV LOGIC TESTS MACYTY

(VVTAA.SRC

30A(1052)

06-SEP=-79 15:03

1828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838

06-SEP-79

3840

31841

;

SBTTL

;
;
:
;
;
:

3848
3849
3850
3851
3852

:
;
:
:
:

31853

3854
3855
3856
3857
1858
ggSg
6

H
:
M
:
:
:
:

386¢
3863

:
:

3861

M
:
:
H
:

3869

3870
3871

;
;

3872
3873

:
:

31874
3875
I876
3877
3878
3879
I8B0

016722
016726
016732
016736
016742
016744

004737
012701
112721
020127
001373
000241

015536
014160
000040
014166

3882
3883

016750
016754

042702
062702

177770
000060

016746

010002

SEQ 0093

PRINT AN OCTAL NUMBER

ROUTINE TO PRINT AN OCTAL NUMBER ON
THE CONSOLE TERMINAL. RO CONTAINS THE BINARY
REPRESENTATION ON THE NUMBER THAT IS 1O BE
PRINTED.

CALLING SEONENCE:
JSR

PC,PROCY

INPUT PARAMETERS:
PRINTED
IMPLICIT

RO CONTAINS THE NUMBER THATY

IS 10 BE

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

NONE
IMPLICIT OUTPUT PARAMETERS:

1864
3865
1866
1867
3868

DESCRIPTION:

;

3842
3843
3844
3845
3846
3847

PAGE 54

PRINT AN OCTAL NUMBER
:
;
.
;
:
;
;
;
:
:

31839

I881

15:10

THE NUMBER SPECIFIED WILL BE PRINTED
C(OMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
‘

.
PROCT:

JSR
MOV
PROCT1: MOVB
(Mp
BNE
PRCTIA: CLC

PROCTZ: MOV
BIC
ADD

NONE

PC,SAVREG
#OCTNUM,R
#40,(R1)
R1,#0CTNUM+S
PROCTT

RO,R?2

:SAVE REGS
:POINTER TO MESSAGE
sFILL WITH SPACES
;ALL DONE
.
:NO
;CLEAR AT START

s SAVE CHARA

#177770,R2
#60,R2

:CLEAR ALL BUT BOTIOM 3 BITS
:NOW ASC]!
.

VIV LOGIC TESTS MACYYY 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

000763
004737
016160
004737
000207

15:10

PAGE

AN OCTAL
MOov8
Bi(
BtQ
ROR
ROR
ROR

000007

FROCTY:

016632
015634

BR
JSR
OCTNUM
JSR
RTS

564-1

SEQ U094

NUMBER

R2,-(R1)
#7,R0
PROCTS
RO
RO
RO
PROCY?2

PC,TYPOUT

PC,RSTREG
PC

:STORE

IN MESSAGE

:NOW CLEAR BOTTIOM 3 BITS
ALL DONE

;ROTATE NEXT

§ BITS

.60 DO NEXT
. TYPE

MESSAGE

;MESSAGE ADD.
;RESTORE REGS

"ROUTINE TO PRINT LEAST S16.9 BITS OF RO
NN NN NN

016766
016770
016772
016774
01€776
017000
017004
017006
017012

110261

0462700
001404
006000
006000
006006

WO WO W
~N—N~NO~N

016760

016762

OOO0OO0O
O =ttt
e PO
onrurIrUMN
S

3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906

06-SEP-79

PRNT3:

015536

1.7000
002040
040040

0146163

014160
0146162

JSR
81(C

MOv

MOV
MOV

PC,SAVREG

#177000,R0
#2040,0CTNUM
#60040,0C TNUM+?

FOCTNUM+
3, R1
PRCTTA

;CLEAR UNWANTER
;SET UP MESSAGE
;WITH END CODE

;8 POINTER
;JUMP INTO MAIN ROUTINE
;WITH POINTERS SET uP

VIV LOGIC TESTS MACYT) 30A€1052)
CVVTAA, SRC
06-SEP-79 15:03

06-SEP-79

15:10
PAGE S5
PRINT A DECIMAL NUMHER

3908

3909
3910

:
T

3911
3912

3913
3914

3915
gg}g

:
;

ggg%

;

3921

3924
3925
3926
3927
3928
3929
3930
393
3932
3933

3935
3936
3937
3938

DESCRIPTIONROUTINE TO PRINT A SIGNED, OR UNSIGNED
DECIMAL NUMBER ON THE (ONSOLE. RO CONTAINS THE
BINARY REPRESENTATION ON THE NUMBER TO BE PRINTED

;
;
;
:
;
:
;
;
;
;

INPUT PARAMETERS:

;
;
;
:

;

3941
3942
3943
3944
3945
3946
3947
3948

;
;
;
;
:
;
;
:

;

3949

3950
3951
3952

CALLING SEQUENCE:

JSR

ggxg

;
;
;

JSR

IMPLICIT

017054
017062

000055

014170

INPUT PARAMETERS:

NONE
IMPLICIT OUTPUT PARAMETERS:

THE NUMBER SPECIFIED WwiLL BE PRINTED
COMPLETION (ODES

NONE

POSSIBLE ERROR CODES:

;
BASM10: TS1
BPL
NEG
MOVB
BR

005700
100005
005400
112737
000403

FOR SIGNED

OUTPUT PARAMETERS:

3956
3657
3958
3959
3960
ggo;

017046
017050
017052

PC,BASMIO

FOR UNSIGNED

NONt

;

3955

PC.BASE10

RO (ONTAINS THE NUMBER TO BE PRINTED

3954

A DECIMAL NUMBER

;

393¢

3963

3918
3919
3920

LSBTTL

SEQ 0095

NONE

;

ROUTINE TO PRINT A SIGNED DECIMAL NO.

ROUTINE TO PRINT UNSIGNED DECIMAL NO.

ENTER WITN [T HELD IN RO
RO
D18 1T =vE
:NO
BASE10
RO
SYES SO MAKE +vE
#55,BASE]
SPUT *=' [N MESSAGE
160 DO 17
BAS10A

VIV LOGIC TESTS MACY1T R0A(1052)

CVVTAA,SRC
3904

3965
31966
3967
3968
3969
31970
3971

3972
3973
3974
3975

017064
017072
017076
017102
017106
017112
017114

017116
017122
017124
017130

06-SEP=-79 15:03
112737
004737
012703
112723
022703
001373
005001

020027
103404
162700
005201

3976
3977
3978
3979
3980
3981

017132
017134
017140
017142
017144
017146

000771
062700
110043
010100
001363
004737

3983
3984

017156
017160

014170
000207

3982

017152

004737

000040
015536
01617
000040
014176

000012

000012
000060

015634

016632

06-SEP-79

15:10 PAGE 55-1

PRINT A DECIMAL NUMBER

01417C

BASE10: MOvVB
BAST0A: JSR
Mov
BASE1A: MOVB
(np
BNE
BASEID: (LR

BASE1B: (MP
BLO
SuB
INC

BR
BASE1(C: ADD
MOVB
MOV
BNE
JSR

JSR

BASE 11
RTS

#40,BASEN
PC,SAVREG
#BASE11+1,R3
#40,(R3)
#BASE1146,R3
BASE1A
RY

RO,#12
BASE1(

#12.R0
R1

BASE 1B
#60,R0
RO,=(R})
R1,FO
BASE1D
PC,FSTREG

PC,1YPOUTY

SEQ 0096
:PUT SPACE AS 1ST (HARA
:SAVE REGS
:REST OF MESSAGE WITH SPA(CES
JALL DONE
;NO
;R1 1S RECEIVER

:MORE THAN 10
;YES SO DONE THIS TIME
;NO SO SUB 10 8 ADD 1 10 R}
;60 DO AGAIN
:MAKE ASCI] £ STORE

:RESTORE REGS

;TYPE MESSAGE

;ADDRESS OF MESSAGE

4035
4036
4C37
4038
4039
4040
6041

W
W
B
.
S
B

TO MO®IFY

A LOCATION

IN MEMORY

ROUTINE

ENTERED BY TYPING CNTRL-0 ON THE CONSO.t

B,
Ve
B,

($)

AND PRINTS

FOR AN ADDRESS

THE

FORM

TO EXAMINE

ADDR

CONTENTS

THEN A NEW VALUE

CAN BE

ENTERED

v1s:

ADDR CGONTENTS / NEW VALUE
THE NEW VALUE

<CR>,

<Lf¥>

CAN BE

OR <ESC>

TERMINATED USING

TO EXAMINE THE NEXT LOC
TO SELECT ANOTHER ADDRESS
10 ExI1

PROMPTS

@
T
Ne

4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
403%3%
4034

THE PROGRAM

DESCRIPTION:

CALLING SEQUENCE:

4017
4018
4019
4020

SeEa 0097

JSR

PC,MODIFY

INPUT PARAMETERS:
I

4015

4016

MODIFY

NONE

O
IR I

‘4013
<6014

T
P T

4000
<001
4002
«00%
4004
<005
<006
4007
4008
4009
4010
4011
4012

PAGE

PROGRAM

TERMINAL
.

3998
3999

THE

LSBTTL

TRTETE

99y ~
997

15:10

MODIFY

TP EP

1986
1987
31988
3989
3990
1991
3992
3993
3994
3995

06-SEP-79

VIV LOGIC TESTS MACYY1 30A(1052)
CVVTAA,SRC
06-SEP-79 15:03

IMPLICIT
THE

INPUT PARAMETERS:
ENTERED BY TYPING CNTRL-0 DURING

RUNNING OF

THE

OUTPUT PARAMETERS:
NONE

TESTS

VIV LOGIC TESTS MACYT1 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03

06-SEP-79
15:10 PAGE 56-1
MODIFY THE PROGRAM

4042

;

2822

;

4045
6046
6047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
64059
4060

4061
4062
4063
4064
4065
4066
4067
4068

64069
4070
071
4072
4073
4074
4075
4076
4077
<078
4079
4080
4081
4082
4083
40846
4085
4086

4087
4088
4089
4090
4091
4092
409%
4094
4095

4096
4097

017162
017166
017176
017212
017216
017220
017224
017230

017232

017236

017244
017246
017252

004737

015536

004737
013314
004737
005737
001506
010037
032737

016632

MODI1:

0014604
004737
013425

017254
017256

000756
012737

017272
017276
017302
017306
017310

005037
005777
005737
001341
004737

0172664

017314
017320
017324
017330
017334
017340
017344
017350
017352
017356

017362
017364
017370
017374
017376
017402

0174064
017410

IMPLICIT OUTPUT PARAMETERS:

;
;
:
.
:
;
:
;
;
:
;
;
;
.
:
MODIFY:

012737

013700
004737
012700
004737
017700
004737
004737
01331
004737
005737

001402
010077
013700
001706
020027
001703

020027
001006

000001

000340

014312
175000
014312

014302
0167¢2
000040
016710
174742
016722
016632

000015

€00012

JSR
PSWREA

MODI&:

PC,SAVREG
MODSAV

w340
PC,TYPOUT

:SAVE REGISTERS
.

#1,MODADR

:PROMPT $ FOR AN ADDRESS
;70 HAVE A LOOK AT
;READ REPLY
;ANYTHONG READ ?
;NO, SO EXIT
;ELYE SAVE OUR ADDRESS
;IS 17 EVEN ?

BR
MOV

MODIN
UNXPIRP,L

;PLUG TRAP THRU 4

(LR
181
18T
BNE
JSR

TRPERR
aMODADR
TRPERR
MODI1
PC,CRLF

FC,OCTIN
RAND
MODX 1T

RO,MODADR

BEQ
JSR
ODAMSG

MOD!3
PC,TYPOUT

MoV

#340,6

MOV
JSR
MOV
JSR
MOV
JSR
JSR
MODSPA
JSR
181

015732
014276

174712
014410

NONE

MTMMODI3:

016576

BEEN

POSSIBLE ERROR CODES:

0000064

HAVE

NONE

MTMODIZ2:

000006

THE LOCATIONS SPECIFIED WILL

COMPLETION CODES:

Q14302

016632
020232

MODIF1ED

PSWSET
JSR
MODADM
JSR
187
BEQ
MOV
817

015732
014276

014302

SEQ 0098

BEQ
MOV
MOV
BEQ
(MpP
BEQ

(MP
BNE

MODADR , RO
PC,PROCT
¥40,RO
PC,PCHR
SMODADR,RO
PC,PROCT
PC,TYPOUT

:YES WE CAN USE IT
CELSE SAY IT IS AN CDD
:ADDRESS, AND REPROMPI

;FOR NXM TESTS

;CLEAR NXM FLAG
:TEST OUR ADDRESS
;DOES 1T EXIST
:NO TRY AGAIN
;START ON A NEW LINE

:PRINT QUR ADDRESS

:THEN A SPACE
:AS A SEPARATOR
:THEN PRINT THE (ONTENTS

PC,OCTIN
RAND

;PROMPT FOR THE NEW
;CONTENTS */°
:READ REPLY
;ANY THING GIVEN

RO,#1?2
MOD15S

CWAS 1T LF> ?
:NO

MOD 14
RO, 3MODADR
RANDC ,RO
MoD 11
RO,#15
MODI1

:NO, DON'T UPDATE
:ELSE SET NEW VALUE
: GET TERMINATOR
; NULL MEANS <(R>
SWAS 1T <(R> ?
JYES GET NEXT ADDRESS

VIV LOGIC TESTS MACYYY 30A(1052)
06-SEP-79 15:03

CVVTAA .SR(

4098
4099
6100

4101
6102
6103
6104
6105

6106
6107
4108
6109
6110
ARR
4112

017412
017616
0174624
0174626

017432
0174634
017440
017444
017446
017454

017462
017466
017502

017506

004737
062737
000704
020027
001405
012700
004737
000751
012737
012737
00473%7

016576
000002

004737
000207

015634

06-SEP-79

15:10

MODIFY

ADD

moD1S:

000077
016710
000006
000004
016576

PAGE 956-2

BR
(mp
BEQ

MOV

0004

00000¢

MODXIT:

JSR
8R

Mov
MOV

JSR

PSWSET

JSR

RTS

Sea 0099

PROGRAM

JSR

014302

000033

THE

PC,CRLE

#2 ,MODADR
MoD12

RQ,#33

mooX11
#77,R0
PC,PCHR
MOD14
6,4
86,6

" PC,CRLF

MODSAV
PC,RSTREG
PC

NEWLINE

;

THEN

;UPDATE THE ADDRESS By 2
SWAS

TRY

THIS ADDRESS

EXIT

;YES DISSAPPEAR
;ELSE GIVE A ?

;AS AN ERROR
;THEN TRY AGAIN

;PLUG BACK TRAP THRU &

;WITH WHAT
:PUT

IS WAS

OURSELVES ON A NEW LINE

;RESTORE REGISTERS
;AND GO AWAY

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03

06-SEP=79 .15:10 PAGE 57
SET BUS AND VECTOR ADDRESSES

- O 000~

SEa 0100

SEY BUS AND VELTOR ADDRESSES

DESCRIPTION:
ROUTINE TO SET UP THE BUS AND VECTOR
ADDRESSES AND PRIORITY LEVELS OF THE DEVICE

THE VAR]OUS ADDRESSES

ARE CHECKED. THE ARGUMENTS AFTER THE CALL MUST BE SET
T0 INDICATE THE NUMBER OF BUS AND VECTOR ADDRFSSES AND
THE NUMBER OF PRIORITIES REQUIRED, AND THE LOCATIONS
WHERE THE VARIOUS PARAMTERES ARE TO BE STORED

B¢

UNDER TEST. THE VALIDITY OF

IS CALLED THUS:
RS ,BUSSET
JSR
.BYTE
A,B

.WORD
.BYTE
.WORD
BYTE
.WORD

(
D,E
F,G
H,J
K,L

WHERE A 1S EITHER 7 IF

THERE ARE & OR LSS BUS ADDRESSES

OR 17 1F THERE ARE 5-8 ADDRESSES, OR 37 IF THERE 9-16,

AND SO ON. B IS THE NUMBER OF BUS ADDRESSES. C IS THE
ADDRESS INTO WHICH THE FIRST BUS ADDRESS W!LL BE LOADED,

SUBSEQUENT BUS ADDRESSES WiL BE LOADED INT) THE LOCATION

fFOLLOWING THE ADDRESS C.HENCE IF THERE A & BUS ADDRESSES
THE C MUST POINT TO A FOUR WORD BUFFER THAT WILL CONTAIN
THE & BUS ADDRESSES. D IS THE NUMBER OF VECTOR ADDRESSES

1S THE NUMBER OF PRIOR:TY LEVELS, AND IF
IS TO BE ON A 10 BYTE BOUNDARY, BIT 7

THE VECTOR

CALLING SEQUENCE:

OF & MUST BE SET AS A FLAG. F IS THE ADDRESS INIO WHICH
THE FIRST VECTOR ADDRESS wILL BE LOADED.G IS THE ADDRESS
INTO WHICH THE FIRST PRIORITY WILL BE LOADED.
H AND J ARE EQUIVALENT TO D AND & INCASE MORE THAN ONE
VECTOR GROUP ARE PRESENT. K AND L ARE THE ADDRESSES
EQUIVALENT TO F AND G. THE SEQUENCE H,J,K,L CAN BE
REPEATED FOR AS MANY VECTOR PAIRS AS REQUIRED. THE
SEQUENCE IS TERMINATED BY SETTING H AND J TO ZERO

RS,BUSSET

INPUT PARAMETERS:

JSR

ARGUMENTS T0 SET

UP THE

ADDRESSES,

VECTORS AND PRIORITIES MUST BE SET uUP, AS DESCRIBED

ABOVE

THE

Be
®
e ®e

NN
N

)
Al

)

sl mad
-

P ol O

PONIPINI
S
N = — =

d o=d

.SBYTL

IMPLICIT

INPUT PARAMETERS:

VIV LOGIC TESTS MACYI1

CVVTAA.SRC

30A(1052)

06-SEP=-79 15:03

06-SEP-79

4170

;

:
:
:
o
:

477

;

4180

L4183

4185

:}gé

4184

;

L1186

015536
020232
000340

4199
4%8?

017530
017534

012537
012537

014306
014310

4202
4203
4206
4205
4206
6207
4208
4209

0175640
017544
017546
017552
017556
017560
017564
017566

004737
013332
004737
005737
001004
004737
013712
000767

016632

4%};

6210
4

4213

6214
4219
Lg}g
4

4218

4219
6220
6221
4222
4223
4224
4225

015732
014276
016632

017574

133700

001406

014306

017576

004737

016632

017570

017602
017606
017610

017612

017616
017622
017626
017630
017632
017636
017640

013425
004737
000753
005037

113701
013702
010022
005710
005737
001362
062700

090004
000006

THE BUS AND VE(LTOR ADDRESSES WILL

BE SET UP AS SPECIFIED BY THE ARGUEMENTS
(OMPLETION CODES:

NONE

BUSSET: JSR
MOV
MOV

MOV
MOV
BUSSE1: JSR
BAMSG
1%:
JSR
1S7
BNE
JSR
NODEFM
BR

(RS)+ ,MASK
(RS)+ ,BASADD

:GET MASK AND NO OF ADDRESSES
;GET BASE BUS ADDRESS

PC,TYPOUT

PC,OCTIN
RAND
2%
PC,TYPOUT
1%

JSR

PC,TYPOUT

BEQ

014312

BUSSEZ2: (LR

000002

;SAVE REGISTER CONTENTS
:SET UP MEMORY ERROR TRAP

MASK RO

016722

014312

PC,SAVREG
INXMIRP,4
#340,6

B1T1B

ODAMSG
BUSSTA: JSR
BR

014307
014310

IMPLICIT OUTPUT PARAMEERS:

.
:
:
.

2%:

SEQ 0101

NONE

POSSIBLE ERROR CODES:

004737
012737
012737

)

4190

017510
017514
017922

PARAMFTERS:

NONE

;
;

4189

QUTPUT

;

6187
4188

4195
4196
4}85

NONE

:};g

L9
4192
4193
6194

PAGE 57-1

SET BUS AND VECTOR ADDRESSES

ANA

4172
6173
674
6175
4176

15:10

MOvVB
MOV
BUSSE3: MOV
TS1
187
BNE
ADD

BUSSE?

PC,PROCT
BUSSEN
TRPERR

MASK+1,R1
BASADD,R?2
RO, (R2)+
(RO)
TRPERR
BUSS1A
#2,R0

:FIRST BUS ADDRESS 1IS....
; INPUT OCTAL ADDRESS

:CHECK INPUT

)

s INVALID ADDRESS

;SET UP COUNT
:SET UP ADDRESS BASE
:SET UP ADDRESS
;CHECK ADDRESS EXISTS
;CHECK NON=EXISTANT MEMORY FLAG

:UPDATE TO NEXT ADDRESS

VIV LOGIC TESTS MACY11

CVVTAA.SRC
4226

30A(1052)

06-SEP-79 15:03

6227
4228

017644
017646

005303
001367

004737
013110

016632

6232
2%%2

017656
017662

012537
012537

014306
014310

4235
423%
6237

017666
017672
017674

004737
013366
004737

016632

4239
42640
4241
4242
4243
Agzg

0177064
017706
017712
017714
017716
017722

4246

017724

032700

000007

017732
017736

004737
013425

016632

6425%
asgg

017742
017746

032700
001371

000003

4256

017750

022700

000774

017756

004737

016632

6229
2%%?

4238

:g«g

06-SEP-79

017650
0176564

017700

017730

005737

001004
004737
013712
000767
005737
100007
001404

15:10

PAGE 57-2

SET BUS AND VECTOR ADDRESSES
DEC
BNE

JSR
FIRVMS

015732

014276

PC,TYPOUT

: PROMPT FOR VECTOR GROUP

Mov
BUSS3IA: MOV

(RS) ¢+, MASK
(RS)+,BASADD

;GET NO OF VECTORS
:GET BASE VECTOR ADDRESS

BUSSEL: JSR
VAMSG
1%:
JSR

PC,TYPOUT

153

016632

014306

R1
BUSSES

SEQ 0102

2%:

BNE
JSR
NODEFM
BR
1S7
8PL
BIT

BEQ

PC,OCTIN

RAND

;FIRST VECTOR ADDRESS IS....
:INPUT OCTAL ADDRESS

2%
PC,TYPOUT
1%
MASK
BUSSES

:CHECK MASK TYPE

#7,R0

:CHECK ADDRESS

BUSSE6

6249
4250

Agg;

asgg

4259

4260
6%6;
426

017740

017754

017762
017764

000752

002004

013450
000740

4263
4264
4265
4266
4267
4268
4598

017766
017772
017776
020000
020002
020006
020006

113701
013702
010022
022020
005301
001374
042737

014306
014310

427V
4%;%

020014
020020

113701
012537

014307
014310

4274

020024

005737

014504

4276
45;;

020032
020036

012700
000416

000004

004737
013477
013702

016632

(275
A

4279
4280
4281

020030

020040
020044
020046

001403

100000

014310

BUSSES: JSR
ODAMSG

; INVALID ADDRESS

B8R

BUSSES

BUSSE6: BIT
BNE

#3.R0
BUSSES

;CHECK ADDRESS

#774,R0

:CHECK ADDRESS LESS THAN 772

(mp

BGE

BUSSE?

JSR

PC,TYPOUT

OVAMSG
BR

014306

PC,TYPOUY

BUSSE4

:ADDRESS EXCEEDS 772
:
;SET UP COUNT
;SET UP ADDRESS BASE
:SET UP ADDRESS

BUSSE7: MOVB
MOV
BUSS10: YOV
_Mp
DEC
BNE
BIC

MASK R
BASADD,R?
RO, (R2)+
(RO)+, (RO)+
R1
BUSS10
#100000,MASK

MOVB
MOV

MASK+1,R1
(R5)+,BASADD

;GET BASE PRIORITY ADDRESS

1ST1

LSIFLG

;SINGLE INT.LEVEL PROCESSOR ?

MOV
BR

4 ,R0
BUS11B

sELSE SET PRIORITY LEVEL AT &
;THEN GO INSTALL IT.

JSR
PRMSG
Mov

PC,TYPOUT

;

BEQ
:

3%:

b3 1

BASADD,RZ

:1F NOT THEN BRANCH AWAY,

;FIRST PRIORITY LEVEL IS...

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

CVVTAA .SRC

4282

4283
6284
4285
4286
4287
4288

4289
4290
6291
4292
4293
6294
4295
4296
6297
4298
L£299
4300
(301
4302
4303
4304
4305
4306
4307
4308
4309
4310
&3
6312
4313
4314
6315
4316
4317
6318
4319
4320
4321
6322
4323
6324

4325
6326
4327

4328
4329

4330
4331
6332
4333
6334
4335
433¢

004737
005737
001004
004737
013712
000767
020027

020130
020132

005301
001412

020134
020140
020142
020146

005737
001403
012700
000752

014504

020150
02015¢4
020156

004737
013536
000735

016632

020160
020164
020166
020172
020174
020200
020204
020212

012537
001405
004737
013144
000137
010537
012737
012737

014306

020220
020224
020230

004737
013705
000205

015634
014306

020232
020236
020240
020244

004737
013575
005237
000002

016632

101404

SET

15:10

BUS

BUSS11:

015732
014276

020052
020056
020062
020064
020070
020072
020074
020100
020102
020106
020110
020112
020116
020120
020122
02012¢
020126

004737
013625
000760
062700
000300
006200
006200
006200
010022

06-SEP-79

PAGE 57-3

AND VECTOR

JSR
151

BNE
JSR

016632

BUS11B:

000007
010632

2%:

177770

NODEFM
BR
CmMp
BLOS
JSR
BADPR]

BR
BIC
SWAB
ASR

000004

017662
014306
000006
000004

JSR
NPRMSG

BUSS 2: MOV

8taQ
JSR
NXTVMS
JMP

014312

000004
000006

BUSS13: Mov

MOov
Mov

JSR

NXMTRP:

BLSS11
RO, #7
2$

PC.,TYPOUT

BUSST

BUSS12

016632

PC,TYPOUT

DEC
BtQ

;1S THE PRICRITY LEGAL ?
s YES
sNO, RE-ENTER VALUE

;CLEAR UNWANTED BITS

¢SET UP PRIORITY

LSIFLG
4%
#6 RO

BuUS11B
PC,TYPOUT

BUSS11
(RS)
¢ ,MASK

BUSS13

PC,TYPOUT

BUSS3A

;SINGLE INT.LEVEL PROCESSOR ?
:1F NOT THEN BRANCH AWAY
;ELSE SET UP PRIORITY AS 4

;AND GO INSTALL IT.

;NEXT PRIORITY LEVEL 1S....
; GET NEXT VECTOR PAIR
. LERO MEANS END

; ELSE PROMPT FOR NEXT GROUP

RS ,MASK
#6,4

#e.,6

PC,RSTREG

MOV
RTS

MASK,RS
RS

JSR

PC,TYPOUT

INC
RTI

TRPERR

NXMSG

; INPUT OCTAL PRIORITY

BUS11B

ASR
ASR
MOV

MOV

ZS:

PC,OCTIN
RAND

#-10,R0
RO
RO
RO
RO
RO, (R2)¢

1§71
BEQ

SEQ 0103

ADDRESSES

:RESTORE REGISTER

:NON-EXISTANT ADDRESS

PAGE 98

SEQ 0104

NUMBER GENERATOR

DESCRIPTION:

ROUTINE TO GENERATE DATA PATTERNS,

THE TYPE OF PATTERN 1S SELECTED BY R3, AND THE
PATTERN GENERATED 1S RETURNED IN RO AND LOCATION

600D.

CALLING SEQUENCE:

JSR

PC,GENER

INPUT PARAMETERS:
R3 CONTAINS THE PATTERN NUMBER
ALL ZEROES

NSNS
NN —

R3=0

ALL ONES

010101 ETC BIT PATTERN
101010 ETC BIT PATTERN
ROTATING 1 IN A ZERO WORD
ROTATING O IN AN ALL ONE WORD
PSEUDO RANDOM NUMBER

INCREMENTING DATA PATTERN, GOOD
CONTAINS THE VALUE TO BE UPDATED

Be Ve

Ce Vs Ve

o We Ve Vs Ve Ve B

Ve Ve Ve

Ve B Vs B Vs Ve B S Se e

.SBTTL

Ve o

6341
63462
6343
4344
6345

15:10

NUMBER GFNERATOR

®o Ve s Bs e Ve

(338
6339
6340

06-SEP-79

B e ®e Be B+ Be O a Be B Wa Vs BaGo Be Ve 8o Bs ®e Vo o

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

THE NUMBER GENERATED IS HELD

RO AND GOOD.

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

VIV LOGIC TESTS MATYYY 30A(1092)
06-SEP-79 15:03

CVVTAA .SRC
«39¢
«39%
¢396
397

«398

6399
6400
4601
6402
4403
6404
4405
4406
4407
4408
4409
6410
6611
6612

6613
6614

4615

6416

6617
4418
6419
4620
6621
6622
4623
4624
4425
6426
6627
6628
4429
4630
4631
4632
4433
6634
6435
4436
6637
4438
4439
4440
L4641
4442
4443
INYNA

4645

LL46

6447
L4648
4449

020246
020252
020256
020260
020264
020266
020270
020272
020274
020276
020300
020302
020304
020306
020310
020312
020314
020316
020322
020324
020330
020332
020334
020340
020342
020344
020350
020352
020354
020360
020362
020370
020374
020376
020400
020406
020612
020416
020420
020424
020426
020432
020440
020442
020450
020454
020460
020464
020466

020470
020474
020476

020500

042703
004737
006303
000173
020304
020310
020316
020324
020332
020342

06-SEP-79

PAGE 9815:10
NUMBER GFNERATOR

6ENER:

177770

015936

ASL

020264

GENSEL:

020400
020520

005000
000507
005000
005100
000504
012700
000501
012700
000476
000241
004737
000472
000241

004737

005100
000465
006037
001003

012737
013790
000207
000001
012737
004737

GENO:
GENT:

JMP

GENO
GENI
GENS?
GENZS
GENR1
GENRO

GENRAN
GENINC
CLR
BR
(LR
COM
B8R

052525

GENSZ:

Mov

125252

GENZS:

Mov

GENR1:

02035¢

GENRO:

020376
100000

020376
000005
020420
014324

020376

GENER1:

000001
014326
016324
014330

B8R
LC
JSR
BR

GENISH:

MOV
MOV
RTS

GENRAN: MoV

01464326

JSR

MoV
_RANGEN:

014326

MOV

BNE

014332
000777

Lc
JSR
COM
BR
: ROR
GENROT
"BNE

02035¢4

014324

RAN1:
RAN?:

MoV

BNE

RANCLC:

8177770
,R%
PC,SAVREG
R3

@GENSEL (R3)

;ROTATE
;ROTATE

WORD

'1°
"0

EACH CALL
EACH CALL

;RANDOM NUMBER

RO
GENEX
RO
RO
GENEX
#52525,R0
GENEX
#125252,R0
X
GENE

PC,GENROT
GENEX
PC,GENROT
RO
GENEX
GENISH

GENER1

#100000,GENISH
gENlSH.RO

#5,RANSEL

PC,RANGEN

RANDN,RO
GENEX
RANDN ,R2
RAN1
RANST,R2
#777,RANSEL
RAN2

(OM

R
RANMTA ,R?

ONE

:52 PATTERN
:25 PATTERN

Mov
MOV
MOV

Bl
BEQ
BR

;ALL ZERO WORD
;ALL

#1 ,RANSEL

Bl
BtQ

014330
000241

81C
JSR

Sta 0105

RANSEL ,R3
RANDN,R?2
RANMTA,
R2
RANCLC

RANCLC
RANSEC

s INCREMENTING COUNT
:0>R0

;NOTO>RO

:5252>R0
:125252>R0
;SHIFT

> RO

SSHIFT 0 > RO
;ROBATE
.=

:YES,

;PUT

SET

PATTERN
MSB

IN RO

;AND EX]T

;SET SELECT VALUE 10 5
;GENERATE RANDOM NUMBER IN RO

‘1S RANDOM = 0
:YES,

PUT

RANDOM START

SET

RANSEL =

VALUE

;N8:XS RANSEL SELECT VALUE - 0

sYES:

;GET R2 <0 AND D>

VIV LOGIC TESTS MACYTY 30A(1052)
CVVTAA .SRC
06-SEP-79 15:03
6450
6451
4452
4453
4654

6455
4456
6657
4458
4459
4460
6461

020502
020504
020506
020512
020514
020516
020520
020524
020526

020532
020536
020542

000401
000261
006037

005303
001357
000207
013700
00520C
010037

010066
004737
000207

016324

0146334
016334
000002
015634

06-SEP-79

15:10

PAGE 58-2

SEQ 0106

NUMBER GFNERATOR

RANSEC:
RANG :

RANEX:

GENINC:
GENEX:

SEC
ROR

RANG

RANDW

DEC
BNE

MOV

JSR

RTS

10 B15

;1S THIS NUMBER REQUIRED?
;NO, GET ANOTHER

JYES,

RIS

MOV
INC
MOV

;ROTATE C

EXIT

; INCREMENTS LOC.

RO,GO0D
RO,2(SP)

PC,RSTREG
PC

;LOAD RC MAINROUTINE

VIV LOGIC TESTS MACYYY 30A(1052)
06-SEP-79 15:03

CVVTAA,SRC

06-SEP-79

6463
W

4512
6513
4514
6515
4516
6517
4518

ROUTINE

TO PRINT ERROR MESSAGES

1F BIT 14 IN THE SWR IS SET NO MESSAGES WiLL BE
PRINTED, IF BIT 15 ]S SET THE PROGRAM WwiLL NO WA]7T
AFTER AN ERROR HAS BEEN PRINTED.

IS CALLED THUS:

JSR

PC,ERROR

ARG

WHERE ARG CONTAINS THE ERROR CODE AND

IS OF

THE

FORM

X¢N, WHERE N IS THE ERROR NUMBER IN THE RANGE 0-177

AND X

FLAGS THAT

IS A COMBINATION OF

INDICATE WHAT

VALUES ARE TO BE PRINTED. THESE VALUES SHOULD BE LOADED
BEFORE THE ERROR ROUTINE 1S CALLED AND ARE DEF INED
AS FOLLOWS:

FLAG SETTING

NUMBER

LOCATION

MESSAGE

4000

CALLPC
STATUS

CALLED FROM
STATUS

S
e

DESCRIPTION:

We
e
W,
G
G
B
B
®e
WL
Wy
Ve
We
%

4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
44696
4497
4498
4499
4500
4501
6502
4503
4504
4505
6506
4507
4508
6506
510
6511

ERROR MESSAGES

10000

20000

40000
100000

0
G

ADDRES

ADDRESS

DATA
600D= BAD -

DATA
6OOD, BAD

IN ADDITION THE ERROR NUMBER WIiLL BE COMBINED WITH
THE TEST NUMBER TO INDICATE IN WHICH TEST THE ERROR

" OCCURRED.

AN ERROR COUNT

COUNT

1S MAINTAINED AN ON EACH ERROR THE
IS UPDATED. IF RUNNING UNDER A SOF TWARE SWIT(H

IS POSSIBLE

TO SELECT NEW OPTIONS

4482
4483
4486
4485

4671
0472
6473
4674
4475
4476
4677
64478
4479
4480
4681

670

CALLING SEQUENCE:

S e

La67
(668
4469

SEQ 0107

4466

LSBTTL

G664

6665

15:10
PAGE 59
ERROR MESSAGES

JSR

PC,ERROR

INPUT PARAME TERS:
THE

LOACTION FOLLOWING

THE

CALL

CONTAINS THE ERROR COCE AND FLAG SETTINGS

IMPLICIT

INPUT PARAMETERS:
NONE

QUTPUT PARAMETERS:

VIV LOGIC TESTS MACY11 30A(1052)
06-SEP-79 15:03

(VVTAA, SRC

06-SEP-79

15:10
PAGE 59-1
ERROR MESSAGES

6519
6520
6521
6522
6523
6526
6525

NONE

IMPLICIT OUTPUT PARAMETERS:

6526

6563

4544
4545
6566

4547

4548
4549
4550
45951
6552
6553
4556
4555
4556
4557
4558
4559
4560
456
4562
4563
4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574

1HE APPROPRAITE ERROR MESSAGE WILL BE PRINTED

PERMITTED.

COMPLETION CODES:
NONE

ERROR CODES:

1 NONE

POSSIBLE

BBV

6527

6528
6529
6530
4531
6532
4533
6536
6535
6536
6537
4538
6539
4540
65641
£562

SEQ 0108

020544
020550
020554
020562
020564
020572
020576
020600
020604
020606

020610
020614

02¢620

020626
020626
020630
020634
020642
020644
020650
020652
020656
020662
020666
020670

020674
020700
020706
020710
020714
020716
020722
020726
020734
020736

004737
005237
032777
001133
017637
004737
014014

013700
000300
006300
153700

004737
004737
014020
011600
004737

132737

001416
004737
014032
013700

004737
004737
014043
013700
004737
132737

001407
004737
014054
013700
004737
132737
001407
004737

015536
014346
040000
000000
016632

ERROR:

JSR
INC

BIT
BNE

173436

014350

MoV

JSR

EMSG

014216

MOV
SWAB
ASL

01 4350
016722

B1SB
JSR
JSR

016632

EMSG2

Mov

15/11/78

PC,SAVREG

ERRDIS
#40000,85WR
ERHALY
3 (SP) ,ERRARG
PC,TYPOUT

(SP) ,RO

MOV

600D, RO

014336
016722
000100

MOV

EMSG3
JSR
JSR
EMSGé

014351

ERRSV1:

016632
014340
016722
000040
016632

JSR
8118
BEQ
JSR

EMSGS

MOV

014351

ERRSV?Z:

JSR
BIIB
BEQ
JSR

MESSAGE

PC,PROCT
PC,TYPOUT

014334
016722
016632

016632

;YES

:NO
;TYPE

ERRARG,RO

PC,PROCT

014351

:SUPPRESS PRINTOUT

TESTNO,RO
RO
RO

JSR
8118
BEQ
JSR

016722
0002C0

=, INC COUNT

;PRINT

#200,ERRARG*1

ERRSVI

PC,TYPOUT

PC,PROCT
PC,TYPOUT

BAD,RO

PC,PROCT

#100,ERRARG*1

ERRSV?

:NO

;D SET

DATA,RO
PC,PROCT
Na( ERRARG®]

JASET

PC,TYPOUT

ERRSV3

PC,TYPOUT

6 DIGITS

VIV LOGIC TESTS MACYYY 30A(1952)
CVVTAA .SRC
06-SEP-79 15:03
6575
6576
L5177
6578
6579
4580
(581
4582
(583
6584
4585
(586
6587
4588
4589
6590
6591
4592
4593
6594
6595
6596
4597
4598
6599
4600
4601
6602
4603

020742
020744
020750
020754
020762
020764
020770
020772
020776
021002
021010
021012
021016
021020
021024
021030
021034
021040
021042
021046
021052
021060
021062
021066
021072
021076
021102
021104

014065
013700
004737
132737
001407
004737
016103
013700
004737
132737
001407
004737

0146116
913700
004737

004737
004737
016135
013700
004737
032777
001004
013700
004737
004737
062716
000207

000000
001000

014344
016722
000020

06-SeP-79

000010

014346
015344
015634
000002

MOV
JSR

BITB

ADDRES
, RO
PC,PROCT

#20,ERRARG*)

ERRSVS:

014351

EMSG7
STATUS,RO
MOV
PC,PROCT
JSR
ERRSV4: BITB #10.ERRARG*1
BEQ
ERRSVS
PC,TYPOUT
JSR
EMSGS

014352
016722
016576
016632

100000

59-2

ERRSVS:

173140

BEQ
JSR

MOV
JSR
JSR
JSR

EMSGY
MOV
JSR
ERHALT: BI1

NOMHALT:

BUFF1:

SEa 0109

ERROR MESSAGES

014351

016632

0146346
017064

PAGE

EMSGO

016632

016342
016722

15:10

ERRSV4
PC,TYPOUT

;S SET ?

:NO

;€ SET
;NO

CALLPC,RO
PC,PROCT
PC.CRLF
PC.TYPOUT

ERRDIS,RO
10
PC,BASE
#100000,3SWR

BNE
MOV
JSR
JSR
ADD

NOHALTY
ERRDIS,RO
PC,MONIT
PC.RSTREG
#2,(SP)

;60 T0 SWR

0
JEND

START

:PROGRAM END,

RTS

;DISPLAY ERROR COUNIT

SELF=START,

VIV LOGIC TESTS MACY11 30A(1052)
CVVTAA.SRC
06-SEP-79 15:03

06-SEP-79
15:10
PAGE 60
SYMBOL TABLE

A
= 020000
ADDRES 014344
ASKS6
012164

CHREIN
CHSR
CHWORD

016554
016230
014314

GENER
GENER1
GENEX

020246
020370
020526

MONITA
MONITX
NODEFM

015436
015444
013712

EMSGS
EMSG6
EMSG?

014054
014065
016103

GETCHG
GETSTR
GOMSG

016326
016130
012272

PAR1
PAR2
PAR3

= 172342
= 172344
= 172346

BAD
BADPR]
BAMSG
BASADD
BASETA
BASE1B
BASEIC
BASEID
BASE10
BASE11
BASMI0
BAS10A
BCCHAR
BCOUNT

014336
013625
013332
014310
017102
017116
017136
017114
017064
014170
017046
017072
014322
014414

CLRBIT
CNVFLG
COUNTT
COUNT2
CRLF
(SR
)
=
DATA
DBUF
DECMSG
EMSG]
EMSG2
EMSG3
EMSGL

BELLY

014776

EMSGB

BELL
BELLMS
BELLS

014764
004276
004276

002762
014374
004264
004266
016576
014222
060000
014340
016226
014200
016016
014020
014032
016043

014116

GENINC
GENISH
GENRAN
GENROT
GENRO
GENRT
GENSEL
GENO
GENY
GEN2S
GENS2
GETCH1
GETCH2
GETCH3

600D

BINC1
BINC2
BINC3
BITS
BULNFLG
BLN1
BLN2
BUFF
BUFF1
BUSSET
BUSSE1
BUSSE2
BUSSE3
BUSSEL
BUSSES
BUSSE6

011670
011750
011716
002476
012056
012032
012054
012060
021104
017510
017540
017612
017626
017666
017732
017742

EMSG9
ENDIT
ERHALT
ERMEST
ERMES2
ERMES3
ERMESL
ERMS10
ERMS1T
ERMS12
ERMS13
ERMS14
ERMS20
ERR
ERRARG
ERRDIS

014135
014666
021052
002500
002564
002650
002722
004361
004427
004473
004531
004602
005662
014316
014350
014346

HALFOV
HALFBY
HSWR =
ILLCHR
ILLVEC
ILVMSG
INTFLG
INTSRV
INTVEC
JM600
LINDEL
LINDLT
LINECH
LKS
=
LOPROM
LOWCHR

BUSS11

020052

ERRSV3

020754

MODADM

BUSSE?
BUSSI1A
BUSS10

017766
017604
017776

BUSS12 020160
BUSS13 020200
BUSS3A 017662
BUS118 020074
C
= 004000
CALLPC 014352
CAR
014226
CARX
014232
CARY
014234
CA1170= 177746
(HAR
014240

CHDR

014236

ERROR
ERRSVY
ERRSV2

ERRSVL
ERRSVS
FADR
FASTSW
FILL
FILLT
FilLLe
FIRVMS
FRMMSG
FSAVPW
FSTCNT

020544
020700
020726

021002
021030
014754
015104
014524
014556
014570
013110
013070
014412
014256

= 100000

LSIFLG
L525
MASK

MODADR
MODIFY
MODI1
MODI2
MODI3
MODI&
MODIS
MODPRM
MODSAV
MODSPA
MODXIT

MONIT

SEQ 0110

020520
020376
(020400
020354
020342
020332
020264
020304
020310
020324
020316
016134
016146
016260

0164334

012160
012162
177570
016534
015024
013036
004272
006206
014242
014252
016450
016470
016500
177546
006146
016402

014506
012156
014306

013314

014302
017162
017212
017236
017256
017370
017426
013325
014304
013321
017446

015344

NOHALT
NOMEMA
NPRMSG
NXMADR
NXMSG
NXMTRP
NXTVMS
OCTIN
0CTMSG
OCTNUM
ODAMSG
OVAMSG
PARITY
PARO =

PARG

021072
013177
013536
014362
013575
020232
013144
015732
016206
014160
013425
013450
014320
172340

= 172350

PARS =
PARG =
PAR7 =
PASMSG
PCHR
PDRO =
PDR1 =
PDR2 =
PDRY =
PDRG =
PDRS =
PDR6 PDR7 =
PMSGI
PMSG2
PMSG3

172352
172354
172356
013020
016710
172300
172302
172304
172306
172310
172312
172314
172316
016646
016672
016676

PRMSG

013477

PMSG4
PRCTIA
PRESET

016702
016744
011756

PRNT3
017014
PROCT
036722
PROCT1 016732
PROCT2 016746
PROCTZ 017000
PSW
= 177776
QEXIT
015462
QEXITY 015504
QEXIT2 015506
QEXIT3 015522
RANCLC 020500

RAND

014276

RANDC
RANDN
RANEX

RANGEN
RANMTA
RANSEC
RANSEL
RANST
RAN1
RAN2
RANG
RDYINT
READ
REDMES
REPCNT
REPCT1=
REPCT2=

014410
014324
020516

020420
014330
020504
016326
014332
020432
020450
020506
011760
016106
013247
014250
001000
000100

REPCT3= 000002
REPRM1 006256
REPROM 006162

RETRY

002476

SETBIT
SETBLN
SETS6

002706
012002
012062

SILLS]
SRO
=
SR1
=
SR2
=
SSWR
START
START1
START2
START3
STATUS
STBINC

014442
177572
177574
177576
016246
001000
001226
001232
(001266
014342
011634

RSTART 001200
RSTREG 015634
RUBCHR 016402
RUBFLG 014606
R6
=%000006
R7
=%000007
S
= 010000
SAVEXM 016364
SAVLTSG 014370
SAVLTE 014372
SAVPAR 014366
SAVPC
014266
SAVPL1 014270
SAVREG 015536
SAVSTA 014272
SECOND 004270

SETS56A

STRADD

012126

014376

VIV LOGIC TESTS MACYTY

CVVTAA,SRC

STRLEN
SWR
SWRMSG
SWRSET
TABLE
TABLEY

30A(1052)

06-SEP-79 15:03

06-SEP-79

014400
014220
013302
014506
001272
001316

1STB2
1S1B3
1STB4
TYPCTC
TYPD1
TYPOTA

002322
002326
002662
0154564
014300
014274

TESTS
007676
TIMEY1
004230
TIMETA 004262
kKB
= 177562
1KS
= 177560
1PB
= 177566
TPREDY 015074
1PS
= 177564
TRAPSV 015124
TRPARG 014260
TRPBAK 015332
TRPERR 014312
TRPLP
015266
TRPMEM 014264
TRPSCP 015242
TRPSEL 014262
TRXEXM 014360
TRXPAR 014356
TRXVAD 014354
TSIBIT 002210
TSTB1
002232

10003
10004
10005
10007
10008
T10ww
11000
11001
11002
11003
11004
11008
11009
11012
11013
11014
711015
11016
11017
T1017A
11018

001460
001564
001570
002170
002204
004132
003014
003034
003146
003247
003250
003254
003364
003370
003500
0035C4
003564
003562
003636
003700
003716

TESMSG
TESINO
TESTR
TESTO
TEST1
TEST2
TESTS
TEST4

. ABS.

013007
014216
014416
001332
002776
004710
005734
006260

TYPOTB
TYPOTC
TYPOTD
TYPOTE
TYPOUT
10000
10001
10002

€00

021106

ERRORS DETECTED:

CVVTAA BIN,CVVTAA, SEQ=CVVTAA, SR(
RUN-TIME:

13 26

RUN-TIME RAT]O:
(ORE

USED:

11k

SECONDS

172/41=4.1
(21

PAGES)

15:10

SYMBOL TABLE

015736
016016
016052
016070
016632
001350
001370
001454

PAGE 60-1

11019
T1019A
11020
11021
11022
11023
12000
12001
12002
12003
12003A
12004
12004A
12005
12006
12007
12008
12009
12010
12011
12012
12013
12014
12015
12016
12017
12018
13000
13001
13002
13003
13004
13005
13006
T40Ww

sea 01N

003764
004012
004040
004056
004120
004126

14000
14001
14002
T4002A
14603
14006

006276
006316
006330
006320
006400
006446

15011
15012
15013
15014
15015
150154

005172
005200
005270
005314
005320
005334
005420
005444
005450
005510
005600
005624
005646
005752
005772
006014
006044
006060
006104
006132
007662

14017
14018
14019
14020
14021
164022
14023
164026
150wy
15000
15001
15002
15003
15006
15005
15006
15007
15007A
15008
15009
15010

007140
007212
007264
007326
007364
007474
007524
007634
011630
007714
007746
007770
007774
010102
0101006
010164
010210
010214
010216
010272
010332

0111952
€11250
013276
15023
011302
15024
011342
15025
011376
15026
011402
15027
011446
15028
01506
15029
011512
15030
011552
UPP(HR 0146404
VAMSG
013366
VECLEV 014244
VECTOR 014516
WAlT
004156
WMSG
012736
004204
wi(o
wicl
004202
$ENDAD 014740
.
- 021106

004726
004746
005026
005032
005036
005042
005056
005146

]

H 9

14005
14006
14007
14008
14009
14010
164015
164016

006476
006536
006610
00%662
000736
006776
007026
007066

15016
15017
15018
150184
150188
15019
75020
15020A
150208
15021
15022

010336
010342
0104064
011614
010636
010552

010654
010716
010754
011000
011004
011044
011106
011142