Digital PDFs

AH-F657A-MC

November 1979

121 pages

Original

4.5MB

view download

OCR Version

4.0MB

view download

Document:	CVVTBA0 VTV30,VT30-H VTV30J-H VT30H DSPLY NOV 1979 bw
Order Number:	AH-F657A-MC
Revision:	000
Pages:	121
Original Filename:	CVVTBA0__VTV30,VT30-H__VTV30J-H_VT30H_DSPLY__AH-F657A-MC__NOV_1979_bw.pdf

OCR Text

VTV 30 VT30' H ‘(/:T\‘;i‘/)frglrgo" e

22;8::(3:’:'(1979 '\:'UEE’ES“
FICHE 1 OF 1

IN USA
MADE

”fi-

SO
.

““—..

viv VISUAL TESYS
MACYYY
CvviBA,SR(
06-5¢P-79 15:23

30A(1092)

ne 3 " @
TR
T

Raaad

B d

—\,‘
.

06-5EP=-79

15:27

CAGE

)

[
Sta 0001

LREPT O

000000

IDENTIFICATION

PRODUCT (OOE:

AC=FOS5S5A=-R{

PRCOUCT NAME:

CVVIBAD vTv300/mM=vT30mn DSPLY

PRODUCT DATE:

oCT

MAINTAINER:

COMPUTER SPECIAL SYSTEMS
DIGITAL EQUIPMENT (0. LTD.

197y

READING
P el o el =P
(. 1a%1,"] Ny NN PORNIN) —d e e e
O 0~
DO ~NO (O P RV N=OOVBNOWNE N~

W* e

BERKS

U.K.

(OPYRIGHT ((C) 1679 By
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS
THIS SOF TWARE

1S FURNISHED UNDER A LICENSE

AND MAY BE

USED AND COPIED ONLY !N ACCORDANCE WITH THE TERMS Of
SUCH LICENSE AND WiTH "HE INCLLSaun OF THE ABOVE
COPYRIGHYT NOTICE.
THIS SOFTWARE OR ANY OTMER (OPIJES

THERECF MAY NOT BE PROVINED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PFRSCN.
NO TITLE TO AND OWNEFSHIP OF THE
SOF TWARE 1S HEnEBY TRANSFERRED.

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO (HANGE
Wl THOUYT NOTICE AND SHOULD NOT BE CONSTRUED AS A

COMMI TMENT BY C1GIiTAL EQUIPMENT C(ORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FCR THE uSt OR
RELIABILITY OF 1TSS SOFTWARE NN *QUIPMENT WHI(H 1S NO?
SUPPLIED BY DIGITAL,

viv VISUAL TESTYS
MACY1Y
CVVIBA,SRC
06-SEP-79 15:23

30AC1052)

06-5EP=-79

15:27

52
53
56
55
56
57
58

PAGE 2

C
Sea 0007

viv30-n/J OR v130=H VISUAL DIAGNOSTIC
PROGRAM DESIRIPTION

60
61
62
63

ABSTRACT

THIS

IS THE

SECOND PARY Of

A TWO PART

DIAGNOSTIC FOR THE

VIVIO=H/J OR VT30-H GRAPHICS DISPLAY CONTROLLER.
TESTS CONTAINED IN THIS PART OF

THE

DIAGNOSTIC

THE

GENERATE

A SERIES OF VISUAL TEST PATTERNS, WHIC(H ARE INTENDED 10
DEMONSTRATE THAT THE QUTPUY SECTION OF THE DISPLAY
(ONTROLLER 1S WORKING CORRECTLY.
THERE ARE NO ERROR REPORTS

IN ThE FOLLOWING TESTS.

THE

ONLY WAY THAT ERRORS CAN BE DETECTED IS BY THE OPERATOR

WATCHING THE TEST PATTERNS ON THE T.v. SCREEN.
THE
TESTS ARE DESIGNED 1O DEMONSTRATE THAT THE OUTPUTS Of
THE PICTURE STORE AND CHARACTER STORE ARE WORKING, AND
ALSO, THAT THE T.MING IS WORKING FOR ALL COMBINATIONS Of
6 AND 8 DOT C(HARA TER MATRICES.
THE PATTERNS PRODUCED
ON THE T.v. SCREEN ARE VERY SIMPLE, AND ANY FAULT WILL
SRQ?ESE AN OBVIOUS DISCONTINUITY OR IRREGU._AR]ITY IN THE
A

REQUIREMENTS

2.2

o
o
o
o
e

MO
>

EQUIPMENT
PDP=-11 COMPUTER
CONSOLE TELETYPE

viviD-n/J OR vT30-H
DIAGNOSTIC TAPE AND LISTINCS
(OLOUR T.v. MONITOR

STORAGE

THIS PROGRAM REQUIRES A MINTTMyM Of

Bk WORDS OF MEMORY,

LOADING PROCEDURE

THE PROGRAM 1S LOADED USING THE ABSOLUTE BINARY LOADER
AND

IN ABSOLUTE BINARY

FORMAT.,

THE

PROGRAM (AN ALSO

BE LOADED AND RUN IN THE NORMAL XXDP MANNER,

viv VISUAL TESTS

06-SEP-79

15:27

PAGE 3

STARTING PRNCEDURE

RESTARTING PROCEDURE

SEQ 0003

THE PROGRAM HAS A LOAD AND GO FEATURE

WHICH AUTOMAT]

CALLY oTARTS THE PROGRAM AT ADDRESS 1000 UPON A
SUCCESSFUL 1 LAD.

THE PROGRAM HAS A RESTART ADDRESS AT 1200 WHICH ALLOWS
TrE PROGRAM T0O BE PESTARTED WITHOUT HAVING TO RE-ENTER
THE BUS AND VECTOR ADDRESSES.
IF 1T 1S NECESSARY 10

RESTART THE PROGRAM WITH NEW BUS AND VECTOR ADDRESSES,
IHERéDgRESSES

1000 OR 200 SHWOULD BE

USED AS

THE

RESTART

ADDRESS.

PROGRAM AND OPERATOR ACTION

THE FOLLOWING OPERATOR REQUESTS ARE MADE BY THE PROGRAM
PRIOR TO THE COMMENCEMENT OF THE ACTUAL TES.>.TYPE 6 FOR 625-LINES OR 5 FOR 525-LINE [:SPLAY

FIRST
TIRST
FIRST

BUS ADDRESS IS
VECTCR ADDRESS
PRIORITY LEVEL

.......
1S.....
IS ....

SHOULD REPLY TO REQUESTS ABOVE, BY

INPUTTING THE CORRECT DATA,

*SELECY DESIRED SWIT(H REGISTER SETTINGS.'

THE OPERATOR

D o

o o

) il e

o B o

)

it et et e QOO
NNV = OOV~

06-$LP=-79 15: 23

30A(1052)

sr SN N AN NN N U N NN NI PO PO NI NI NI IV
N ot - 2
el ot e
WA
— OO WNONED NN OO
NO NS VWN s OO IO NS

CVVIBA.SRC

MAC A 1

*TYPE

(NTRL=C

TO CONTINUE®
ok

'SwR = 0.°

IN REPLY TO THE REQUEST ABOVE THE OPERAIOR SHOULD SELEC!T
DESIRED SWITCH REGISTER OPTIONS AS SET OUT UNDER Swll(M

OPTIONS BELOW.

SWITCH REGISTER OPTIONS

THIS PROZRAM [S DESIGNED TO RUN EQUALLY EASILY ON PDP-11
PROCESSORS WITH, OR WITHOUT, A HARDWARE 'SWIT(H REGISTER.

ON STARTING, A TEST

IS DONE 1O SEE ]f A HARDWARE SwlT(H
IF [T 1S PRESENT, [T MAY BE USED

SEa 0094

1]
I

=l
-l
D

TR
R

INHIBIT ERROR HALT
INHiBIT ERROR PRINT-0UT

FAST

ITERATION

:SCOPE LOOPS, SEE BELOW
:FOR A DESCRIPTION, AND
:APPENDIX A FOR EXAMPLES
:0F TVEIR LS

SELECTED TEST.
:TEST NOS.

173

174
175
176
<77
178
179
180
181
182
183
184
185
160
187
188
189
190
191
192
193
194
195
196
197

)

167
168
169
170
n
172

SWR1

164
165

SWR1
SWR1
SWR1
SWRO
SWRO
SWRO
SWRO
SWRO

SWR1

S VO NDOO
NI
S

SWR1¢

166

SWIT7h REGISTER SETTINGS ARE--

61
162

163

PAGE &

THE

15:27

06-SEP=-79

158
19

30A(1052)

VIV VISUAL TESTS
MACY1Y
FJVIBA.SR(
06-SEP-79 15:23%

THE SETTING OF BITS 7, 8, 9, 10, 1', AND 12 [N THE
SWITUH REGISTER ARE ULED TO SELECT THE TRAP OPTIONS

PRESENT IN THE FROGRAM,
FOLLOWING MANNER:

BIT(S)

SET

TRAP

THE

SELECTION IS MADE

FUNCTION

IN THE

SELECTED

TRAP+2
TRAP+4

10 AND 11

TRAP+10
TRAP+20
TRAP+30
TRAP+4(
1kavey0
1PAF+60
TRaAP+70

USES THE
WAS

SWIT(H REGISTER SETTING THAT

IN FORCE WHEN THE

LAST

INSTRUCTION WAS EXECUTED,

TRAP

————

p—

viv VISUAL TESTS
MACY1!
CVVIBA.SR(C
06-SEP=-79 15:23
199

200
201
202
203

30A(1052)

O+ 5tP-79

15:27

PAGE S

SEQ 0005

A HARCWARE SWITCH REGISTER 1S NOT PRESENT,

THE

PROGRAM ASSIGNS A LOCATION IN MEMORY AS A SOF TWARE

SWITCH REGISTER, THE OPTIONS REMAINING AS ABOVE.

THIS

MEANS THAT ALL MO.'FICATIONS TO THE SWITCH REGISTER MAY

BE MADE USING THE CyNSOLE TELETYPE VIA A MONITCR
ROUTINE.

THIS MONITLR 1S CALLED BY

1YPING CTRL=G AT

b
b
il

YO N
OO

ol
)
it ol

PININININI
NI NN N

CONSOLE TEFLEVYPE AND t =SPONDS BY PPINTING THE CURRENT
CONTENTS OF THE SOFTWA/® SWITCH REGISTER, FOLLOWED BY

THE

PRCMPT C(HARACTER (>).
ME OPERATOR SHOULD THEN TYPE IN
THE NEW SWITCH REGISTER S TTINGS AS AN OCTAL NUMBER,
FOLLOWED BY A CARRIAGE RETLSN.
TYPING (A®RIAGE RETURN
ALONE WILL CAUSE THE SETTING Y0 REMA''¢ UNCYANCED.
THE

SWIT(H REGISTER IS THEN LOAPED w..n THE NEW VALL® AND

PROGRAM EXECUTION CONTINUES.

A SETTING

IS ENT.RED

WHICH INCLUDES THWE SELECT TEST BIT (SWR06), THE TET
INDICATED BY SWR 00-": WILL BE SELECTED IMME #TELY.
gg%?lngS NOT APPLY & N DEFAULTING ON AN EXISTING
NG.

THE

SWR MONITOR

IS ALSO CALLED AUTOMATICALLY

SWR1S
SWR14
SWR13
SWR12
SWR1:
SWR10
SWRN9
SWR0O8
SWRO7?
SWR06
SWROS
SWRO4
SWRO3
SWROZ2
SWRO1
SWROO

100000
40000
20000
10000
4000
2000
1000
400
200
100
0
20
'0
4
2
1

OCTAI
IS DETECTED AND SWR BIT 15 IS NOT SET.
EQUIVALENTS FOR THE SWITCHES ARE AS FOLLOWS:
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

AN ERROR

YO SET A COMBINATY,ON OF TH"SE SWITCHES, SiMOLY ADD
TOGETHER THE CORRESPONDIN', OCTAL NUMBLRS AND
NTER THE
TOTAk IN RESPONSE TO ''SWF=
X>''.
(LEADING ZEROS MAY BE
IGNORED)
.

FOR WORST CASE TESTING, ALLWSWITCHES SHOULD BE ZERO.

1S PGSSIBLE, WiTH THECE SWITC(H REGISTER OPTIONS, 10
EXECUTE ONLY A PRE-SE_ECTED TEST wilW TwE FACILITY TO
LJCP ON THAT TIST OR TC START THE PROGRAM PASS OR FINISH
THE

PROGRAM PASS AT

ANY PARTICULAR TEST,

viv VISUAL TESTS
MACYTT
(VVIBA.SR(C
06-SEP=-79 15:23

06-SEP=-79

30A(1052)

15:27

PAGE 6

’

SEQ 0006

ERROR FEPORTS

THE FORMAT OF

THE

ERROR REPORIS

E# AABB
G00D: DDDOD
STATUS: FFEF
DATA: KKKK

]S AS FOLLOWS:-

AT PC:CCCL
BAD. EEEE
ADDRES: GGOG
CALLED FROM: Hr'Hi
ERROR COUNT = JuMJ

:
WHEKE
AA

1S THE TEST NUMBER
1S THE ERROR NUMBER
IS YHE ADDRESS WHERE THE FRROR REPORT OCIURS.
IS THE DATA EXPECTED
IS THE NATA RECEIVED
GGGG A%0 KKKK ARE CONTENTS OF REGISTERS.
1S THe ADDRESS IN THE MAINLINE CODE WHERE THE
SUBROUTINE, WHERE THE ERROR REPORT IS
GENERATEL, 1S CALLED FROM.

BB
CCCC
DDDD
EEEE
FFFF
HHHH

IS THE NUMBER OF

JJJJ

THIS

SECTION.

ERRORS REPORTED T0 DATE

ONLINE MODIFICATIONS
AVAILABLE

TO THE

USER

1S A ROUTINE

TO MODIFY PROGRAM

LOCATIONS.
IT IS ENTERED BY TYPING CNTRL-0 DURING THE
RUNNING OF THE TESTS.
ON ENTRY, A PROMPT '$' 1S MADE
FOR THE ADDRESS 10 BE MODIFIED.
1F NO ADDRESS IS GIVEN,
ARE REQUIRFD AND THE
MODIFICATIONS
NO
THAT
1T 1S ASSUMED
ROUTINE WiLL COMPLETE.
IF AN ADDRESS 1S SPECIHIFD, 1T
WiLL BE (HECKED TO SEE IF ]T IS EVEN AND IN EXISTANCE.
ONCE 1T HAS BEEN CHECKED, I1TS CONTENTS ARE DISPLAYED AND
A PROMPT '/' IS MADE FOR THE NEW CONTENTS.
1f NO NEW
VALUE 1S GIVEN, THE EXISTING VALUE WlLL BE LOADED.
HAVING DEALT WITH THAT ADDRESS, THE ROUTINE Wil THEN
EXAMINE THE TERMINATING CHARACTER TO DETERMINE TnE NEXT
OPERATION TO PERFORM,
TYPING

<ESO>

UéLt COMPLETE

<(R>

WwILL CAUSE A PROMPT FOR THE NEX
TQ BE MODIFIED.
WILL TAKE THE NEXT ADDRESS TO BE

<LF>

DONE

AS THE

THE MODIFICATION. BEING

CURRENT ADDRESS+?.

ADDRESS
MODIFfIED

viv VISUAL TESTS
MACY11
(VVIBA.SRC
06-SEP-79 15:23

30A(1052)

O06-SEP=79

10.

15:27

PAGE 7

SEu 0007

PROGRAM DESCRIPTION

NOTE:

ALL FIGURES REFERENCED (AN BE

FOUND

IN THE OPTION

DESCRIPTION SECTION DEALING WITH THE DIAGNOSTIC.
TEST

THIS TEST

PATTERN STARTS WITH AN ALL BLUE BACKGROUND ON

THE SCREEN.
THE PICTURE THEN SLOWLY CHANGES TO ALL RED
FOREGROUND, STARTING IN THE TOP LEFT-HAND CORNER OF THE
SCREEN AND ADVANCING ALONG A DIAGONAL LINE (LIKE AN
EXPANDING WEDGE).
THE BOUNDARY BETWEEN THE TWO COLGURS
SHOULD BE A SMOOTH STRAIGHT LINE, ACVANCING AT A STEADY
RATE.
AFTER A SHORT PAUSE, THE SCREEN WILL CHANGE C(IN
THE SAME MANNER) TO ALL GREEN BACKGROUND, BLUE
FOREGROUND, RED BACKGROUND
,- GREEN FOREGROUND AND
FINALLY, BLUE BACKGROUND.
THIS SEQUENCE

WILL OCCUR TWICE

THIS PATTERN,

SHOWN

IN FIGURE 6.1,

(HARACTERS SHOWN IN FIGURE 6.2.
THE

SHADED PARTS OF

DURING

THE MATRIX

THE

TEST.

1S FORMED USING THE

FOR CHARACTERS 0 10 &2,

INDICATES FOREGROUND

COLOUR, AND FOR CHARACTERS 177 TO L65, THE SHADED PARTS
INDICATE BACKGROUND (OLOUR.

THE PICTURE

STORTM

STARTS WITH ALL BACKGROUND

CHARACTER ZERO), THE STORE

(ALL

!S THEN LOADED AS SHOWN IN

FIGURE 6.3.
THE ADVANCING LINE 1S PRODUCED BY LOADING
THE CHARACTERS IN SEQUENCE ALONG THE SHADED LINE.
THE
LINE IS THEN MOVED FORWARD ONE C(HARACTER AND THE
(HARACTERS ARE AGAIN LOADED IN SEQUENCE, 1.E. WHEN
CHANGING FROM ALL BACKGROUND TO ALL FOREGROUND, THE
SEQUENCE IS AS FOLLOWS:-

CHARACTER O 1S LCADED IN THE LEADING EDGE AND
CHARACTER 40 1S LOADED IN THE TRAILING EDGE Of
THE SHADED LINE IN FIGURE 6.3.
THEN 1 AND 100
ARE LOADED, 2 AND S2, & AND 10V
"7 AMD &2, AND
FINALLY, 20 AND '77.
THE SHADt. rOW 1S THEN

MOVED FORWARD ONE
REPEATED.

CHARACTER

1HE

CHARACTER AND THE

SCREEN FINISHES UP AS

SEQUENCE
ALL

177, WHICH IS ALL FOREGROUND (OLOUR.

Vv VISUAL TESTS
MACY11
CVVIBA.SR(
06~-SEP-79 15:23%

30A(1052)

06-SEP-79

15:27

PAGE 8

%69

TEST 7

352
353%
354
355
356
357

ggg

THIS TEST PATTERN STARTS WITH THE TOP HALF OF THE SCREEN
RED AND THE BOTTOM MALF OF THE SCREEN BLUE.
THE PATTERN
NOW CONSISTS OF A GREEN DIAGONAL LINE (SLOPING NORTHEAST
TO SOUTHWEST) MOVING FROM LEFT TO RIGHT ACROSS THE T10P
HALF OF THE SCREEN (l1.E. ON THE RED BACKGROUND' AND THEN
ACROSS THE BOTTOM HALF OF THE SCREEN (].E. ON THE BLUE
BACKGROUND) .

360
361
362
T

THE LINE SHOULD BE STRAIGHT AND MOVE AT A STEADY RATL.
NOTE: ON SOME COLOUR MONITORS, THE LINE MAY APPEAR AS
YELLOW ON THE RED BACKGROUND AND AS CYAN ON THE BLUE
FACKGROUND
.

365
366
367
368
%?8

T0 GENERATE TH]S PATYERN, THE PICTURE STORE 1S LOADED,
AS SHOWN IN FIGURE 7.2.
THE COLOUR FOR THE TOP OF THE
SCREEN 1S GREEN FOREGROUND AND RED BACKGROUND AND THE
SOTTOM OfF THE SCREEN IS GREEN FOREGROUND ON BLUE
BACKGROUND.

N
372
373
374
375

THE PATTERN IS FORMED E
MODIFYING THE CONTENTS OF THE
CHARACTER STORE. AT THE START OF THE TEST, THE
CHARACTER STORE CONTAINS ALL ZEROES.
THE C(HARACTER
MATRICES USED ARE SHOWN IN FIGURE 7.3.
C(HARACTER 1(A)
1S FIRST LOADED INTO CHARACTER STORE ADDRESS ZERO AND

%2?

364

376
377
378
379
380
;g;

383

CHARACTER 1(B) INTO CHARACTER STORE ADDRESS ONE, THEN
CHARACTERS 2(A) AND 2(B) ARE LOADED INTO C(HARACTFR STORE
ADDRESSES 2LRO AND ONE, ETC., UNTIL CHARACTERS B(A) AND
B(B) ARE LOADED, THEN THIS IS REPEATED, USING CHARACTER
STORE ADDRESSES 1 AND 2. AND SO ON. THROUGH THE TOMPLtTE
CHARACTER STORE. THIS CYCLES THROUGH THE STORE TwlCE.

ggg

TEST

386
ggg

THIS TEST PATTERN DEMONSTRATES THE OPERATION OF BLINK ATV
EVERY (HARACTER PGSITION.

389
390
391
3192
393
394

THE PATTERN STARTS A> A SCREEN FULL JF THE SAME
CHARALTEXS, THE FIRSY ROW BEING RED C(HARACTERS ON A
BLACY BALKGROUND, THE NEXT ROW 1S GREEN ON RED, THEN
YELLOW ON GREEN, BLUE ON YELLOW, MAGENTA ON BLUE, (YAN
ON MAGENTA, WHITE ON CYAN AND THEN BLACK ON WHITE.
TnE
COLOURS ARE THEN REPEATED, IN THIS ORDER, TO TME END OF

ggs

397
398
399
400
401
402

SEQ 0008

THE SCREEN.

THE PATTERN NOW CONSISTS OF AN ADVANCING WEDGE, AS IN
TFST 7, THE (HARACTERS AND COLOURS REMAIN UNCHANGED BL!
ALL CHARACTERS WITHIN THE ADVANCING WEDGE _ARE MADE 10
B_INK. AFTER ALL THE CHARACTERS ON THE SCREEN ARL
BLINKING, THEY WiLL BE STOPPED BLINKING IN THE SAME
MANNER.

—

VIV VISUAL 7ESTS
MACY1T
CVVIBA.SRC
04=-SEP-79 15:23
404

605

406
407
<08
409
610
AR
612
L3
A YA
415
L16

$17
618
619
420

621

422
423
424
625
426
627
428
429

<30

IRy
%32
433

&34

435
436

437
438
439

440
441
&2

463

30A(1052)

06-SEP-79

TEST

15:27

PAGE 9

1
-

Sea 0009

THIS TEST PATTERN USES PRESET TO DEMONSTRATE THAT THE
scaee= WwILL PRESET

COLCUR.

THE

T0 ANY FOREGROUND OR BACKGROUND

TESTS STARTS WITH

THE

SCREEN Al BLACK.

AFTER A

SHORT PAUSE, THE SCREEN WILL CH-NGE TO ALL BLUE.
THERE
WiLL BE A SHORT WAIT AND THE SCREEN WILL THEN FLASH
AFTER ANOTHER SHORT
BLACK BUT WILL STAY ALL BLUE.
PAUSE,

THE

SCREEN WILL

CHANGE

TO ALL CYAN

(BLUE AND

GREEN), THEN, AFTER A SHORT PAUSE, WILL FLASH BLACK BUT
SHOULD STAY ALL CYAN, AND AFTER A FURTHER WAIT, WILL
CHANGE TO ALL GREEN.
IN THE SAME MANNER, THE SCREEN

UIL%R(YCLE

THROUGH ALL THE

ORDFR:-

STARTING WITH BLACK,

COLOURS

IN THE

IT wiLL GO 10 BLUE,

FOLLOWING

THEN CYAN (BLUE

AND GREEN), GREEN, WHITE (BLUE AND GREEN AND RED),
MAGENTA (BLUE AND PED), YELLOW (GREEN AND RED), RED,

BACK T0O BLACK.
TEST

THIS SEQUENCE wiLL OCCUR TWICE.

AND

THE TEST PATTERNS CONTAINED IN THIS TEST DEMOMSTRATE
1. AT THE DISPLAY IS WORKING FOR ALL COMBINATIONS Jf 6
AND B, v AND H OF THE CHARACTER MATRIX,
THE

TEST

PATTERN STARTS WITH A BLUE BACKGROUND,

ANL

OUTLINES THE PICTURE WITF A SINGLE DOT WIDTh WHITE LINE.
A DIAGONAL LINE ]S DRAWN FROM EACH CORNER OF THE SCREEN
TO MEET

ON THE

CENTRE LINE OF

THE

PICTURE.

A LINE

TJd0

DOTS WIDE IS ORAWN ALONG THE CENTRE LINE, ABOVE THIS

CENTRE LINE 1S WRITTEN THE MATRIX SIZE, 1.E. 6H, Bv FOR
A MATRIX OF

6 DOTS HORIZCNTALLY AND 8 DOTS VERTICALLY.

THE PATTERN IS FIRST DISPLAYED FOR 6H AND Bv,
AND Br, THEN 8 X 8, AND FINALLY, 6 X 6.

THEN 6V

445

TEST

LB
449

THIS

TEST

DEMONSTRATES THAT

AT ALL X AND Y ADDRESSES.®

THE

CURSOR CAN BE

DISPLAYEC

viv VISUAL TESTS
MACY1T
CVVIBA, SR(
06-SEP=-79 15:¢3
651
652
653
654
655
656
657
458
459
460
461

66
46
664

465

466

467

468

469
470
6N

473
674
675

30A(1052)

06-SEP-79

THE

15:27

TEST

PAGE 10

Sta 0010

PATTERN (ONSISTS OF

THE

PATTERN USED fOR

THE

X 6 CHARACTER MATRIX IN TEST "2.
THE CURSOR STARTS IN
THE TOP LEFT-HAND CORNER AND THEN MOVES ALONG THE
DIAGONAL INE TO THE CENTRE LINE, THEN DOWN THE CI1AGONAL
TO THE BOTTOM LEF-HAND CORNER, ALONG THE BOTTOM OF THE

SCREEN TC THE RIGHT-HAND CORNER, AND ALONG THE DIAGINALS
T0 THE TOP RIGHT-HAND C(ORNER, FINALLY ALONG THE TOP OF
THE PICTURE TO THE START POINT.
THE CJURSOR MOVES ROUND
THE

TEST

SCREEN

TWICE

FOR

THIS

TEST.

THIS TEST IS A X HATCH, IT IS MOT INTENDED 7O TEST THE
255?%6; BUY IS 1D AID THE SETTING UP OF THt CCLOUR
N

THE PATTERN IS A WHITE GRID ON A B.ACK BACKGROUND, WHI(H
1S DISPLAYED FOR ABOUT ONE MINUTE.
710 HOLD THE DISPLAY
ON THIS PICTURE, EITHER WALT THE SROCESSOR OR SET SWIT(H
REGISTER BIT

08.

VIV VISUAL TESTS

CVWIBA.5RC

MACY'1

06-SEP-79 15:23

30A(1052)

O06-SEP=79

15:27

PAGE

677

678
679

SEQ 00N
APPENDIX

480

- POP-11

481
682
483
484
485

DIAGNOSTIC

LOOPING FACILITIES

SWITCH REGISTER OPTIONS

4B6

N.B.

487

THE

<88
489
490
49
492
£93
94
495
496
697
498
499

INTENTION OF

GENERAL,

THE

THIS APPENDIX

TO EXPLAIN,

SCOPE FACILIVTIES WITHIN PROGRAM (ODING.

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 ThlS BY USE OF THE TRAPSY

ROUTINE, WHICH

1S ENTERED USING THE

TRAP

INSTRUCTION.

BASICALLY, THE ROUTINE (HECKS EQUALITr BETWEEN BITS 05 00 OF

THE TRAP INSTRUCTINN AND SWR 12 = 07.

THeRE

ARE

TMRFE DISTINCT FUNCTIONS INNTROLLED BY THE

TRAP ROUTINE:-

A’

RUN = (TRAP ¢ 2 INSTRUCTION AND SWR 07 SET)
USUALLY USED TO INHIBIT TEST NUMBER PRINTOUT; USEFUL

IN THE CASE OF NON-INTERVENTION TESTS.

WHEN SwWR 07

1S SET, ALL TEST NUMBER MESSAGES ARE SUPPRESSED.
NOTE: ]T DOES NOT SUPPRESS ERROR PRINTOUTS.

bgOP ON A SUB-TEST = (TRAP ¢ & INSTRUCTION AND SWR
SET)
THIS 1S GENERALLY USED TO ALLOW THE

OPERATCR, BY

SETTING SWR 08, TO CONTINUOUSLY LOOP ON ONE LOGICAL
TEST

es
< -

Ok CRNUP OF

TESTS.

SCOPE ON A SUB=-TEST = (TRAP ¢ 10 - 70 INSTRUCTIUNS

AND SWR 06 - 1)
TH1S ALLOWS THE OPERATOR TO SELECY

SEVEN LEVELS Of

LOOPING FACILITY WITHIN A SELECTION OR TEST.

IT 15 USED TYPICALLY WITHIN A TEST WHERE ONE
SUB-TELT SETS A FLAG AND THE NEXT ONE CLEARS 17,

B8Y

USING SCOPE LEVEL 1 KSWR 09) - TRAP ¢ 10), WE (OULD

LOOP ON THE FIRST SUB-TEST, SCOPE LEVEL 2 (SWR1Q) TRAP ¢ 20), HE (OULD LOOP ON THE

SECOND SUB-TEST OR

SCOPE LEVEL 3 (Swk i0 & 09 - TRAP + 30) 10 LOOP
CONSTANTLY THROUGH BOTH SUB-TESTS SEQUENTIALLY.
THE
ARGUMEN!
THE
AS
APPEARS
ALWAYS
ADDRESS
RETURN
SCOPE

OR NEXT1 WORD AFTE< THE TRAP INSTRUCT]ON.

viv VISUAL TESTS

CVVIBA.SRC

TMACYIT 30A(1052)

06-SEP-79 15:23

530
531
532
53%
534
535
536
537

563
544
%5

546
547
548

PAGE 12

TO ALLOW THE SCOPE

SeQ 0012
LEVEL

TO BE

C(MANGED WilTHOUT

1 T0
2., WHICH WOULD ALMOST CERTAINLY CAUSE LEVEL S OR C
TO BE SEEN POMENTARILY),

1S PRCVIDED WITH SWR12.

PRUGRAM NO LONGER

539
541

5S¢

15:27

STOPPING THE PROGRAM, E.G. TO CHANGE FROM LEVEL

538

<.2

06-SEP-79

'"PRESERVE

SCOPE"

FACILITY

WHEN THIS IS SELECTED,

INSPECTS SWR 11

THE

= 09 BUT USES THE

SETTING MEMORISED HROM BEFORE SWR 12 WAS SELECTED.
THE

SCOPE

LEVEL MAY NOW BE

CHANGED WITH NO EFFECT

UNTIL gua 12 1S SET 10 O, WHEN THE NEW SCOPE SETTING
APPLIES.

N.B.

SETTING SWR 12 SHOULD ONLY BE USED TO PRESERVE

AS EXISTING SCOPE LEVEL,
SWITCH REGISTER.

WHICH SCOPE LEVEL

LISTING, LEVELS 1
(SWR 09)

AS PREVIOUSLY
]

SET

ON THE

TO SELECTM MAY BE DETERMINED THE

THROUGH ” ARE CALLED BY TRAP +

THROUGH TRAP +

(SWR 09,

10 AND

11),

I3}

MACYT1 30A(3052)
06-SEP-79 15-23

viv VISUAL TESYS

CVVIBASRC

O06-SEP-79

.5:27

PAGE 13

SEQ@ 0013

5%0

551
52

EXAMPLE OF SCOPE LOOP FACI_ITIES WITHIN DIAGNOSTIC

593

554
5SS
556

TEST10: MOV

57
558
559
560

1101:

562
563
So&
565

T10SCP:

561

BNE

{BR

{?R

570

571
572
57%
574
575

1101

811
BeaQ

T11SCP:

1TERATION COUNT,
;SET GO BIT.
;15 GO BIT S5ET?

#40,COUNT

#1,STATUS
#1,STATUS

T10SCP

JYES,

;SCOPE TEST10I.F LEVEL 1 SELECTED.

;RETURN LABEL FOR SCOPE.

;CLEAR GO BIT
:G0 BLT CLEAR ?
;60 BIT CLEAR BRAN(H,
:NO. GO BIT FAILED TO CLEAR,
;ERROR'!'! NO. 11,

#1,STATUS

#1,STATUS
T11SCP
PC,ERROR

;SCOPE TEST 11 JF LEVEL 3 SELECTED.

TRAP+30

TEST]
TRAP+20
1101

TEST12: BIS

811

(E1C.)

BRANCH,

;EPROR'!'! GO NCY SET.
:ERROR NUMBER.

PC.ERROR

TRAP+10

TEST11: BIC

566

567
568
569

BIS
811

;RETURN LABEL

FOR SCOPE.

;SCOPE TESTS 10 & 11,
:(TURN LABEL.

NO SCOPE SELECTED.

#100, STATUS

;1S DONE BIT SET ?

#100,STATUS

CARRY ON.|

576

577
578
579
580
581
582
583
584
585
580
587

T12SCR:
TEST13:

(E1C.)

:SCOPE INT CLEAR LEVEL 3.
:RETURN LABEL.

591
592

-1

590

599
600

;CLEAR INT ENABLE BIT.
;19 B.1 (LEAR?

T1TSCP: TRAP+30

588
589

508

;RETURN LABEL.

#100,STATUS

TEST13
1PAP+20
1€ST12

Sv3
504
595
566
597

:SCOPE INT. EN. SET, LEVE. 1.

TkAP+10
TEST 12
BIC
#100,STATUS

TRAP+4&

DEC

TEST14:

(ETC.)

count

:SCOPE INT. SET AND CLEAR,
JLEVEL 2.

:SCONF LOOP ON TMIS SE OF TESTS.

JREYURN LABEL.

;D0 40 TIMES ANYWAY

viv vISUAL

(VW' BA_ SR.

MACYIY

TESTYS

06-SEP-79 15-23

0090003
000004
000005
000006
000907
000006
000007

RO=200
x, 10

R¢-202
R3-203
R6=204
RS=X05
R6:=106
R7=%07

SP=104

PC=X0’
PSW=177776
HSWR=177570

rOR0=172300
PDR1=172302

SINNNNNNN

PARD=172340
PAR1:-172342
PAR2:=172344
PAR3I=172346
PARL=172350
PARS=172352
PARG=172354
PAR7=172356

PDR2=172304

POR3=172306

PDRG=17231C
PDRS=172312
PDROE=172314
PDR7=172316

SRO=177572
SR1=177574
SR2=177576

LKS=177546

643
645

177746

CA1170=177746

301000
300100
000002

REPCT1=1000
REPCT2-100
REP(T3=2

100000

6-100000
0=40000

646

67
6468
649
650

651
652
653
654

655
656
657

PAGE

040000
020000
010000

A=20000

$=10000

vtV vISUAL TESTS
GEMERAY pttim,"TONS

340

641
642

644

15:¢7

AORORNIPNONIPF NN
v VIV
TV IV YV ]
(W IV RO I
W
W
P ol AV E e Yo 3Fol
\¥

177776
177570

NN NNNNNNY

627

628
629
630
631
632
633
634
635
636
637
636
639
640

06-5{®=79

O RNFONNINRNDRIRN
W
o
o

621
621
622
023
624
625
626

00000¢

608
609
610
611
€12
€13
614
615
616
617
6'8
619

000C Y0
00000.

606

30A(1052)

SITLE
LSBYITL

504
~05

607

602

603

[

SEQ 0014

viv VISUAL
CVVIBA.SRC

658
659
660
661
662
663
664

665

MACY1T

TESYS

06-SEP-79 15:23
004000

30A(1052)

06-SEP=79

15:27

GENERAL DEFINITIONS

(=4000
TPS=1775¢4
TPE=177566
1KS=177560
TkB=1775¢2

666

667
668
069
670
en
672
67%
674
675
676

.ENABL
ENABL

ABS
AMA

PAGE 14~

)

2
SEQ 0015

—

VIV VISUAL TESTS

CVVTBA.SRC
619
680
681
682
683
684
685
686
67
6b

689
690
6N
692
693
694
695
696
697
698

99
700

MACY11

06-SEP=-79 15:23

30A€1052)

06-SEP-79

MACROS

15:27

.SBTTL
SET

2
SeEQ 0016

MACROS

PROCESSOR PRIORITY

.MACRO

MOv
MOV
R11

LAB:

PAGE

PSWSET

$ARG,?LAB

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

NOP

;
:

SET UP NEW PSW AS $ARG
SET RETURN ADDRESS
RY1 TC SET PRIORITY
RETURN ADDRESS

.ENDM

. READ PROCESSOR PRIORITY
.MACRO
Eml

MoV
.ENDN

PSWREA

$ARG

FSAVPW,$ARG

I1SSUE EMT

READ PSW

TO RLAD PSW

IN $ARG

MACYIT1
VIV VISUAL TESTS
06-SEP=-79 15:23
CVVTBA,SRC
702
703
704
705
706

707

708
709
710
71\
712
713
714
719
716

717

718
719
720

721
722
723
724
725
726

727
728
729
730
731
732
733
734
735
736

000200

000000
000000
000200
000137
001000

30A(1052)

15:27
06-SEP-T79
INITIALISATION

001000
001004

012706

001000

001020
001026
001034
001042
001046

012737
012737
012737
005777
005037

017046
000340

177570

015536
016606

000004
00000¢
016604

SEa 0017

INITIALISATION

JMP

SISTART

; JMP TO START AT 200

MmOV
PSWSET

#,,5P

;INITIALISE STACK POINTER

"ov
Mmov
Mmov
151
CLR

4
*SWRSET,

;TEST FOR HARDWARE
;TRAPS 10 6 IF |7

.=1000

START:

€

LSBTTL
CASECT
.=0

.=200

001000

PAGE 16

7340

340.6

#HSWR, SWR
aSwWR

SSWR

5WR

;DOES NOT EXIST

JINITIALISE SOFTWARE SWR

NOW FIND OUT WHETHER THE PRQOCESSOR IS A SINGLE
LEVEL LSI-11 OR NOT.

INTERRUPT

001052

004737

017002

JSR

PC,51LLSI

;FIND OUT ABOUT PROCESSOR

001056
001062
001066

004737
004737
014630

017056
021172

o SR
JSR
GOMSG

PC.VECTOR
PC,TYPOUY

;FILL 0=774 WITH HALT

001070
001074
001100
001102
001104
001106
001110
001112

004737
004537
007

014420
022250
004

JSR
JSR
.BYTE
.WORD
.BYTE
.WORL
.WORD
.WORD

PC,SETS6
RS ,BUSSET
7.4

016556
001
016576
016600
000000

001

TRAPS

;DIAGNOSTIC

;SET UP BUS AND VECTOR ADDRESSES

(SR
1,1

INTVEC
VECLEV

737

738
739
7o,
T4
742
743
744
745
746
747
748
749
750

751
752
753
754
755
756

787

013737
013737
005237
013737
013737
005237
000137
001200
012706

016562
016562
016570
016564
016564
016574
001200

0046737
C15276
004737

021172

017704

START1.

001232
001236

012706

001000

001252

032777

000100

001114
001122

001130
001134
001142
001150
001154

001200
001204

001220

00122¢
001226

(AR, CARX
CAR,CARY
CARY
(HSR,CHDR
CHSR, CHAR
CHAR
RSTART

;THEN GOTO THE

MoV
PSWSET

#STARTY ,SP

;INITIALISE STACK POINTER

JSR

PC,TvPOULT

016566
016570

MOV
MOV

016572
016574

MoV
Mov

001000

INC

INC
JMP

RSTART:

01532¢

.=1200

#340

RESTART

ADDRESS

PC,MUNIT

SSELECT DESIRED CONSOLE SWITCHES
;60 YO SWR MON]TOR

STARTZ: MoV

#START ,SP

PSWSET

#340

INITIALISE STACK POIMTER

#100,a5wR

;CHECK FOR PRE-SELECTED TES!

wMSG
JSR

VIV VISUAL TESTYS

CVVIBA.SRC

BMACY1Y 30A(1052)

06-5EP-79 15:23

;23

001260

001002

760

001262

000137

;b;
6

001266

000137

001424

001272

06-SEP-79

15:27

INITIALISATION
BNE

START}Y

JHP

TESTH

START3: Jmp

PAGE 16-1

TABLE

SEQ 0018

;10 TEST 6

;10 LOOK-UP TABIE

763

766

765
766

767

768
769
770

;iNTERFACE REGISTERS AND VECTORS

MACY] 1

viv VISUAL TESTS

CVVIBA.SRC

06-SEP-79 15:23

772
773
7764

001272
001276
001302

017700
042/00
022700

015306
177700
000014

777
778
779

001310
001314
001316

020027
100731
006300

000006

786
787
788
789

001324
001326
001330
001332

001424
001424
001424
0014264

797
792

001336
001340

001424
001426

0013464
001346
001350

004064
004652
005434

;;2

;g?

001306

001320

20A(1052)

002734

000170

06-SEP=79

15:27

INITIALISATION
TABLE:

aSWR,RO
#17/7700,R0
#14,R0

e
L
ASL

RO,#6
RSTART
RO

JMP

782
783

784

785

790

793
794
795
796

797

798

001334

001342

001352
001354

TABLE1:

TESTH
TEST6
TESTE
TESTS

001424

TESTS

002470

TESY7

013576

014136

MOV
BIC
cme

BLT

001324

PAGE

TESTG
TESTS

TEST10
TESTIN
TEST1?2

TEST13

TEST14G

RSTART

STABLEY(RO)

SEQ 0019
*GET

SELECTED

TEST NO

;CHECK FOR VALID TEST NO

:JUMP T0 PRE=-SELECTED TEST

VIV VISUAL TESYS
MACY11
CVVTIBA ., SR(
06-SEP-79 15:23
800

30A(1052)

06-SEP=-79

15:27

INITIALISATION

PAGE 18

SE2 0020

062777
005237
005337
001005
005237
013737
000002

001412

000000
000000
000000
005v00
J00000

001414
001416

001420
001422

100000
001420
001412

001422
001416

015172

001412

TIMEY:

81C

INC
DEC
BNE
INC

MOV
TIMEA: ‘RT1

COUNTI1:
COUNT?:

SECOND:
INTFLG:
BELLS:

1
SEQ 0021

#100000,8CSR
INTFLG
(OUNTI

;CLEAR TIMER BIT
;SET INTERRUPT BIT

BELLS

"YES

TIMETA

1S 1 SECOND UP

SECOND, COUNTI

"SET UP TIME TO NEXT BELL

SO SET BELL

TESTH
;""'0""""'."

;THIS TEST PATTERN IS FOR
;DEAONSTRATING THAT THE
STORE

;PICTURE

COLOUR AND

;CHARACTER BITS ARE WORKING.

;"""""""Q".

016602

001424
001432
001434
001436

012737

004737

016756

001442
001446
001452
001456

005037

016706
000001
017444
016610

16000:

001462
001466
001472
001476
001504
001510
001514
001520
001524
001526

016576
001356
000340
001400
000200
015060
002462
001746

16001:

001530
001534
001540
001544
001550
001552
001554
001560
001562

000026

= L~~~

NOWOONO
OMN N~ O NN

WM NN

~=~
~=

001572

—

001564

104402

001442

853
85«
855
856
857

001356
001364
001370
001374
001376
001402
001410

—

80?2
803
804
805
806
807
808
809
810
81
812
813
814
815
816
17
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852

PAGE

OO0

MACY1Y
Vv VISUAL TESTS
06-SEP-79 15:23%
CVVIBA.SRC

15:27
30A(1052)
06-SEP-79
INITIALISATION

000006

¥6,TESTND

TRAP+?
16000
JSR

;SET UP TEST NO,

PC,TESTR

;OUTPUT TEST NO

CLR

ERRDIS

Mov

MoV

JSR

MOV

015052
16002:

002427
002400
015024

16003:

001746

000302
0002«2

TESTG:

014766
014700

MoV
Mov
MOV
MOV
Mov

(LRB

Mov
JSR
LEC
BNE

MOV
Mov
MoV
MOvB
Mov

”1,R4
PC,FASTSW
R4, REPONT

INTVEC,RO

#TIMEY, (RO)
#340, (RO)
#1400,aCSR
#200,R1
S(HAR

#ALL RO

PC,LDCH
R1

16002

#22.,R2

#FCR11D,RI

#FORYT RS

¢+ ,aCHAR
(R3)

R1,RO

INL
JSR
DEC

R1
PC,LDCH
R

BNE

16003

MOvB
MOvB

#302,80BUf
g242 ,80BUF

;SET UP TEST ITERATION COUNT

'SET UP INTERRUPT VELTOR
;SET 6H &6V BITS
;SET NO. OF CHARACTERS
;CLEAR CHARACTER ADDRESS
;*LOAD ALL CHARACTERS
;*WITH \\ PATTERN
.

]

;LOAD ALL SPECJAL CHARACTERS
:LOAD ADDRESS
:ADDRESS OF DATA
sALCRESS FOR NEXT (HAR.
:LOAD (HARACTER DATA
:HAVE WE

LOADED ALL

:BRANCH IF NO.

;CLEAR BLINK CONTROL
;5ET GREEN ON BLULE

MACY11
viv VISUAL TESTS
06-SEP-79 15:23
CvviBA .SRC

001600
001606
001612

012777

001614
001622
001626
001634
001640
001646
001652
001660
001664
001672
001676
001704

112777

105777

100375

004737

112777
004737
112777
004737
112777
006737
112777
004737
112777

004737

001411
014744

014750

000241
001764
000221
002174
000226
001764
000214
002174
000212
001764
000242

014736

002174

06-SEP=-79

Tt STé

J
2
PAGE 19-1

001462

001714
001720
001722

005337
001402
000137

016610

001726
001734
001736
001742

032777

000100

SFQ 0022

;SET 6MH,6V,PRESET & DISP. ON

MoV
15718

#1611 ,30SR

BPL

a(SR
1%

:TEST FOR READY
;BRANCH IF NOT READY

:
16004

Move

#2411 ,30BUt

;SEYT RED ON BLUE

014724

MOvVB

#221,808BU¢

;SET RED ON GREEN

014712

Mmove
JSR
MOvVB
JSKR
movs

JSR

014700

016666

JSR

014656

MOvVB
JOR

PC,FORGND

:CHANGE

104404

;CHANGE TO BACKGROUND
;SET BLUE ON GREEN

PC,FORGND

PC.BAKGND

PC.,FOROND

;

#214 ,30BUF

;SET BLUE

#212,8DBUF
#242 ,3DBUF
PC.BAKGND

014650

001232
002470

T60WwW:

1$:

GREEN ON RED

:SET

GREEN ON BLUE

:SET SWR B]T 8 10
;LO0P ON TEST

DEC
BEQ

REPCNT

;DONE

JMP

160wy
16004

BIT

:100.QSUR

;(HECK

BEQ
JMP
JMP

ON RED

;SET
;

16001

001614

T0O FORGROUND

PC,BAKGND
#224 ,3DBUF

TRAP+4

001710
001712

001402
000137
000137

15:27

1%:

ENOUGH

JYES
;NO

FOR PRE-SELECTED TEST

START?
TEST?

,'"""""""".

:SUBROUTINE FOR LOADING CHARACTERS

SENTER WwlTH DATA ADDRESS IN RO
:AND

CHARACTER

ADDRESS

IN (HAK

;"""'t't"""'

001764
001772
001776
002002
002006
002012
002020
002026
002030
002036
002042
002044
002050
002059%
002064
0020066

013737
066337
005337
005037
012701
013777
127727
001406

112077

005305
001374
000207

116177

LD(H:

000006
014614

LDCHIY:

014516
002170
002170
002172
000005
002172
016542

002170

002406
014526

014522

014516
002400
014506

014476

014542
000120

014502
00270

fFOROGND:

012705

£ =

001746
001752
001756
001760
001762

858
859
860
861
862
863

30A(1052)

MOV
41%:)

2#6,P5
(RO)+,a8(HDR

:NUMBER OF _O0ADS
;00 A LOAD

DEC
BNE

LOCHI

;BRANCH IF

; ANY MQORE

RTS

;

MoV
ASL

HALF6V ,MAX
MAX

;

DEC
CLR

MAX

ACDR

CMPB
BEQ

a(ARYX,#80.

MOV
MoV

Mov8
1518
F&B:

8ta
DECB

MOvB

(mPB
8tQ
INCB

#5,R1
ADDR ,aCAR

:SET

MAX

vi5

ADDRESS

:
;LOAD CURSOR ADDRESS

SEND OF LINE ?

t4B

S YES

S8CARX

:NO SO DECREMENT X

JCARY ,MAX

:ARE

FORS(R1) ,aDBUF
9CARX
e

FORT1(RY) ,aDBUF
£2

aCARY

:LOAD ONE CHARACTER
;HAS X REACHED ZERO
:BRANCH IF

YES

;LOAD OTHER C(HARA(TER
WE

;BRANCH

ON BOTTOM LINE

YES

;NG SO INCREMENT

ADDRESS

viv VISUAL TESTS
MACYI1
CvvIBA.SRC
06-SEP-79 15:23
g}g

002072

000137

002020

916

002076

012737

0C0001

917
918
g;g

002104
002110
00211¢

921

002114

923
g?g

004737
005301
100337

003732

123727

002172

002126
002130

105237
000137

00272
002006

926

002134
(002144

123737
001404

002173

928

002142

002006

922
[4

927

002122

001404

002152

105237

000137

002173

931
932
ggz

002154
002162
002166

012737
004737
000207

(000002
003732

935
936

002170
002172

000000
000000

g%g

937

30A(1092)

006024

06-SEP-79
TESTO

15:27

JMP

Fé

Mov

L APARY

Ff2:

000120

002170

004026

JSR
DEC
8PL

PAGE 19-2

]

SEQ 0023

;G0 BACK AND DO SOME MORE

PC,WALTT
Ri
£1

;WALIT SOME TIME
;
;NEXT PAiR OF
:

CHARACTERS

(MPB

ADDR,#80.

:1S X ADDRESS AT MAX

INCB
JMP

ADDR
F3

.NO SO INCREMENT
:

(mP8
8ta

ADDR+1,MAX

Féb

;1S Y ADDRESS AT mAX
SBRANCH IF YES

JMP

8tQ

¢5:

£S5

INCB

ADDR+1

F6:

mov
JSR
RTS

#2,TIME ;WAIT
PCLWAITT
pr

MAX :
ADDR:

0
0

)

;BRANCH IF

YES

sNO SO INCREMENT

LOME TIME
:
; DONE

944
945
946
947
948
949
950

957
958
959
960

002172

961
962
963
964

985

986
957
%88
989
990
991
992
993
994

014312

v 16266
002230
000001
003732

956

966
967
968
969
970
97
972
973
974
975
976
977
978
979
980
981
982
983
984

002421
014314
014306
002413
014276

951
952
953
95¢4
955

965

002170

014332
000120

014272
002170

0040264

BAKGND: MOV
ASL
DEC
CLR
BF3:
"0V
Bf1:
. MOV
B8Ffé:
gggfl
movB
1518
B8F4B:

BF2-

000120

002173

002360
002364
002372
002376
002400
002601
002402
002403
002404
002405
002406
002407
002410
002411
002612
002413
002414
002415
002416
002417
002420
002421
002422
002423
002424
002425

002170

Bf5:

_BYTE
.BY1E

fORS:

.BYTE

0«0
020
010

FORG:
FORS:
FORG:

100

fFOR7:

FORSY:

;?2

.BYTE

.BYTE
.BYTE
BYTE
.BYTE

BAC10:
BA(Y:
BA(S:
BAC7:

.BYTE
.BYTE
.BYTE
.BYTE

BA(S:

BYTE

BA(!:

BYT1E

BA(C?Z:

SCARY ,MAX
8CARY
Bf&
01,11
PC,UAITT
R1

ADDR,#80.
ADDR

ADDR+1 MAX
8F6
ADDR+1

8f3

#2,11ME ;
PC.WAITT
PC

177
62
101
52
100

.BYTE

fORZ:
.BYTE
FOR1:
.BYTE
FORO:BAC11:

BACG:
BA(S:
BACL:

BAC11(R1) ,8DBUF

>
8F

(MPB

9CARX

JMP

FORTY1:
FOR10:

fFOR9:

BF2

BFS

177
042
101
052

000207

aCARX

8eaQ

INCB

004024

BACS(R1),aDBUF

1
B8f

BEQ

“END OF LINE ?

BFLB

DEC
BPL

INCB
JMP
MoV
JSR

BF6:

003732

ADDR ,a(AR

@CARX ,#80.

BF2

JMP
MOV

002216
000002

ADDR

#5,R1

BEQ

INCB

002173

002354

DE(B
movB
(mMPB

(mPB

002172

002216

BEQ

HALF OV, MAX
MAX
MAX

.BYTE
.BYTE
BYTE

.BYTE

OES
Y

942
943

014516
002170
002170
002172
000005
002172
014332

WAL I

013737

940
91

002174

SEQ 0024

TESTS

939

Y1
:23

VIV VISUAL TESTS
CVVIBA .SRC
06-SEP-79

viv VISUAL TESTS
MACY1Y
CVVIBA.SRC
06-SEP-79 15:23

30A(1052)

06-SEP-79
TESTO

15:27

ggz

002426

177

BACO:

BYIE

177

997
998
999
1000
1001

002427
002430
002431
002432
002433

374
376
374
374
374

FOR11D:
FORIOD:
FOR9D:
FORBD:
FOR/D:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

374
I/4
374
374
274

1002
i003
1006
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017

1018
1019
1020
1021

1022

002634
002435
002636
002437
002440
002441
002442
002443
002444
002445
002446
002447
002450
002451
002452
002453

002454
002457
002462
002465

374
370
360
340
300
200
000
€00
000
000
000
000
00¢
014
03¢
074

174
574
070
304

37«
374
034
340

374
374
214
160

FOR6D:
FORSD:
FORGD:
FOR3D:
FOR2D:
FORID:
BACYID:
BAC10D:
BAC9D:
BACBD:
BAC/D:
BAC6D:
BACSD:
BAC4D:
BAC3D:
BAC2D:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
,BYTE
,BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

ALL:

.BYTE

BACID:

.BYTE

+EVEN

PAGE 20-1

374
370
360
340
300
200
0
0
0
0
0
0
4
14
3«
764

174,374,374,374,374,374
70, 34,214,304,340,160

SEQ 0025

MACYI1
viV VISUAL TESTS
06-SEP-79 15:23
CVVIBA,SR(

15:27

30A(105¢) ‘UO;SEP-79

PAGE 2

LSBT

TEST?

;TS TEST PATTERN DEMONSTRATES
:THAT ALL THE BITS IN THE
:CHARACTER STORE wiLL SET AND
;CLEAR

1027
1028
1029

;"""0"""0"'0

1030

1059
1060
1061
1062
1068
10064
10695
1066

1067

10068
1069
1070
107N

107
117
10%¢
107%
1074
1077
1078

1079

002566
002574
002600

004056
004060

002630
002636
0026«0

00273%¢
002742
002750
002756
002764
002772
003000
008002
00%00¢

17000:

004056

0046062

014006
014000
004050
004052
004054
004056
004060
004061
000100

17001:

CARY:
(AR1Y:

(AR1B:

#7.TESINO

:SET

17000
JSR

PC,TESIR

;OUTPUT.IESY NO

ERRDIS

TRAP+?2

(LR

92 .R4
PC,FASTSY

"oV

R4 ,REPINT

;SET UP TEST ITERATION (OUNT

MoV
ASL

HALFBV,ROWSS

#302,808uf
#0,TEMPX
#0.TEMPY

;LOAD NO BLINK
:IERQ TEMPX
;1ERO TEMPY

ROWSS
8(SR
r212,808BUf

(LR

nov
MoV
Mmov
mov
Mmov
nove
movB
MOvB
novs
(MPB

#0.R0

TEMPX, TEMPX

TERPY, TeMPY

TEwoxi, TWPADD

TEMPY]

gpPL

(AR?:

0093120

006y

000242
0165¢0
000000
000190
004050
004052
00405«
004056
004060

013636

(AP

nove
nov
"y

0049052
006050
004054
004056
004060
004061

JRP
INC
N(

:
(ARG

CARS:

000100
(ARSA:

nCy
nove

nove

nmove
"ove
g 1]
86t

DECB

TMPADD*1

TAPADD , 264

CAFB

B8GE
JOR
pECB
IN%B

:SET UP ROWSB
;CLEAR THE (SR
:LOAD COLOUR GREEN NO RED

:SET CMARACTER IN RO
.

. eSET UP

- ¢CURSOR ADDRESS

CEND OF LINE
JYES

PC.LDADPS

:LOAD ADDRESS AND PI(TURE STCPS

TEMPX
CAR?
TEMPY)

;eI 1IN
;*THE END
ceQF THE

TEMPX
TEMPY

8nml
(npPB"

216520

UP TEST NO.

MoV

1518

002614
0046250

004026
004054

mov

JSR

004026
004054
004056
004054

002644

002650
002654
002660
0026062
002670
002672
002676
002702
002704
002712
002714
002722
002730

014520
00+062
014012
000212
000302
000000
000000

004052
004054

002614
002622

TES17:

016610

004050

002606

016602

000002
017444

000000

e e

1057
1058

00255/
002540
002546
002552
002560

1054
1055
1056

015737

e W W A

1053

002526

NN NN O~~~

1047
1048
1049
1050
1051
1052

016700

002522

005037
012704
004737
010437

1046

002506
002512
062516

10643
1044
1045

016756

w8 e O P

1040
1041
1042

004737

10440¢

00250¢

Q) bt et w8 = O OO

1035
1036
1037
1038
1039

012737

-t

1034

000007

002470
002676
02400
002502

OO ON) b it et o e wcad el b
WX R
VIV IV IV AV 18 LY
W NO NN TNNNNN N

\')

SEQ 0026

;!'t"""tl"'t't'

1026

1931

1026
1025

1032

(AR?

uALFRY

(AR
TEMPX
RO
#80.,TEMPX

(ARS
#24g ,80BUF
HALYBY, TERPY

80, TEMPX
264, RO
IENPI,YEQPI}
TENPY, TEWPY

TEMPXY TwPADD
TEMPY) TRPADD Y
TAPADD
, 864,

CARSA

P{.LDADPS
TEmPX)

;eMOD XBY 10 MAKE
;*DIAGONAL LINE

JeLINE

:NO, THEN DO SOME TM _RE
:START OF NEXT LINE
SNEXT (HARA(CTER
;ANY MORE LINES

SYES, THEN BRAN(HM
;LOAD COLOUR GREEN ON B _UE
:oSEY UP START FOR 8C'TOM
;oMALE OF SEREEN
;NEW (WARACTER
JeCEY up

;*(URSOR ADDRESS
;

TEns 0F TINt ?
XT3

;UNAD ADDRESS AND P .7 YURE

SeRmOD MRy O MAxE

7 Rt

)
4

—&

viv vISUAL
(vviBA .SRC
1080
1081
1082
1083

1084
1085
1086
1087
1088
1089
1090
1091
1092
1093

1094

1095
1096

1097

1068
1099

MACY1Y
TESTS
06-S¢P-79 15:23%

003012
003016
003022
003026
003032
003036

003040
00304«
-003046
003092
003060

105237
109737
1004
12373
100002

06-SEP-79

Tes?

004056
006054
004056

000137

002756

005237
005200
042700
022737

0046050

100330

30A(1052)

000200
000120

IN(CB

1518

BM]

004062

(meg

B8PL

JMP

CARG:

004050

INC
INC
BiIC
cmp
BPL

\:27

PAGE

21-1

1EmPY
TEMPX
(ARG
TEMPYY ROWSA

(ARG
CARS

TEMPX

#200,R0
#80.,TEMPX
(ARG

3
SeQ 0027
;*DIAGONA.
;o1 17
;e 1nk END
e0F THE

seLINE

SSTART

;NO,

012700

10507/
105077

€05300
001374

002000
013502
013474

CAR?:

nov
(LRB
(LRB
DE
8Nt

THEN DO SOME
NEXT

SNEXT (MARA(CTER

LINE

;CLEAR TOP 817
;ANY MORE L INES
JYES, THMEN BRAN(HM

:THE PICYURE STORE
003062
003066
003072
003076
003100

| INE

IS NOw LOADED.

#2C00.R0

e(HDR

;SET (HARACTER STORE

S(HAR

CAR?

;SET CHMARACTER ADDRESS 10 O
;ALL

JNO,

DONE

THEN F<AN(H

10 0

vV VvV, SUA

CVVIBA,SRC

TESTS

0063102
023110
003114

052777
G13700
012720

1105

0031264

005000

1106

30A(1052)

000001
016576
001356

013446

06-SEP=-79 15:23

110t
1102
1193

1104

MACYIY

003120
003126

012710
000240

°03130
003'36

110077
012702

013440
003>32

1110

003144

112277

013422

11117
1112
1113

003140

012701

005301
100374
012737

1116
1117

003166
003172

1110077
01¢701

1119

003202

005301

003206

012737

000002

003220

110077

013350

1118

003162

003176

1120

003204

}:%%

003214

1121

1124

1125
1126
1127
1128
129

}};?

1132

1133
1174
113,

1136

1137

004737

112277
100374

004737

000001

003732

004737

000001
003732

003252

110077

013316

012701
112277

1270

100374

703266

000017
013304

1128

012737

000002

1140

00330

110077

013264

1141
1142
1143
1144

1145

1}4g
114

1148

1149
1150
111
1152

1153

115:

1155

115¢

TM0

004737

003310
CO3314
003320
003322

012701
112277
005301
100374

003332

004737

003324

07?336

110077

013232

003364

004737

003370

(3:

0C4024

000017
013252

000001

012701
112277
9005301
100374

003356

003732

012737

003342
00%"7,
003352
003354

004024

003732

(&:

004024

000017
013220

012737

000001

110077

013200

002732

004024

SEQ 0028

;SET

MOv8
mov

RO,3CHAR
#CHARO ,R2

:LOAD CHARACTER ADDRESS
sSET UP POINTER

mOovB

(R2)+ ,3(HDR

:LOAD CHARACTER DATA

MOV

#3460, (RJ)

#£15. ,R1

VECTOR

TO CHARACTER ZERO

DEC
8PL
mov

RY
o
f1,71m¢

:HAVE WE DONE
:BRANCH IF NO
:SET UP WALT

MovB
MOV

RO,3CHAR
5. R

:LOAD CHARACTER ADDRESS
H

DEC

MoV

n2,T1IME

mMOovB

RO,3CHAR

;LOAD CHARACTER ADDRESS

JSR

PC,WALTY

;WALT SOME TIwE

MOVB

RO,3CHAR

:LDAD CHARACTER ADDRESS

DEC
BPL

;HAVE WE DONE

MOV

JSR

#2.,71PE

PC,WAITY

;SET UP WAL

mMovB

RO,8CHAR

:LOAC CHARACTER ADDRESS

o],

#1,7IME

:SET UP WAlT

"A0VB

Mov
MovB
DEC
BPL
MoV

MoV
MOovB

MOV
MOV8
DEC
BPL

JSR

(S:

‘

CLR

NOP

JSR

(e:

:TURN ON DISPLAY
:
:SET UP INTERRUPT

8PL

004024

PAGE 22

#1,3CSR
INTVEC,RO
STINEY ,(RO)

JSR

)

000017
013336

272

005301

004024

013370

012701
112277
005301
10037¢
012737

003256
003262

C0:

013402
000017

003224
003230
00323¢
003236
003240

003246

c(x:

15:27

BIS
MoV
Mov

L To)"]

000017

003150
003152
003154

}}}g

T1€S17

000340

1107
1108

1109

O06-3EP=79

PC.WALTT

(R2)+,3(HDR

:WALIT SOME TIME

:LOAD CHARACTER DATA
;HAVE WE DONE

;BRANCH 1TM

PC,WAITT

;WALIT SOME TIME

#5../M
(R2)+,3(HDR
R1
2
P1,1!ME

£15.,.R!
(R2)+,3(HDR

5. ,R1
(R2)+,a(HDR
R1
(4

PC,WAITY

;SET UP WAlT

.
;LOAD CHARACTER DATA
;HAVE WE DONE
;BRANCH 17 NO
:SET 1P WALT

:
:LOAD CHARACTER DATA

;BRANCH 1F NO
:WALT SOME TIME
:
:LOAD CHARACTER DATA
;HAVE WE DONE
;BRANCH 1F NO

;WALT SOME TIME

MOVSB

RO,3CHAR

:LOAD CHARACTER ADPDRESS

MOV

T ImMe

;SET UP WAIT

RO,a(HAR

:LOAD CMARACTER ADDRESS

MoV
MOVB
NEC
BPL

JSR

»OVB

715, ,R1
(R2)+,3(HDR
R1
()

PC,WAITT

:
:LOAD CHARACTER DATA
;HAVE WE DONE
;BRANCH IF NO

SWALT SOME TIME

——

MACY1Y
viv VISUAL TES 1S
CVVTBA.SRC
06-SEP-79 15:23
003374
003400
003404
003406
003410
003416

164
165
166
167

003622
003426
003432
003435

032701
112277
005301
100374
012737
004737

000017
013166

110077

013146

012701

112277

005301

003440
003442
003650

012737
004737

00345¢4
003456
003462
003464
003470

005200
032700
001002
000137
042700

003474
003476
003500
003504
003506

104404
0025¢4¢
0053~
0014
0001>.

003512
003520
003522
03526

032777
001402
00013/
000137

100374

000001
003732

(6:
004024

000017
013134
000001
003732

O06-SEP-79
TEST?7

c7:
004024

00200
003126
000200

1%:

15:27

)
PAGE 22 i

Moy
MOVB
DEC
BPL
MoV
JSR

#15.,R1
(R2)+,3(MDR
R1
(6
#1,T1ME
PC,WAITT

MmOovB

RO,8CHAR

MoV
MOvVB

715,81
(R2)+,a(HDR

DEC
BPL
MOV
JSR

R1
7
#1,11ME
PC.WALTT

INC
811
BNE
JMP
BIC

RO
#200,R0
1%
cx
#200.RO

TRAP+4
17001

016610

013064

001232
004064

H
:LOAD CHARACTER DATA
;HAVE WE DONE
:BRANCH If NO
:SET UP WALT
;WALT SOME TIME

;INCREMENT CHARACTER NUMBER
:
:
JKEEP AS (HARAUTER
;SET SWR BIT 8 10
;LO0OP ON TEST

REPCNT
170ww
cx

T170ww:

géx

:loo,asua

1%:

JMP
JMP

START?
TESTI0

NLIST

BEX

.BYTE
.BY'E
.BYTE

2,6,10,20,40,100,200,0
0,0,0,0,0,0,0,0
1,¢,6,10,20,40,100,200

;HAVE WE DONE
:

DEC
8EQ
JMP

003126

000100

SEQG 0029

;OONE ENOUGH ?
JYES
:NO

:CHECK FOR PRE-SELECTED TEFS!

—

)

il il

)

) il

td ol

D o

ol s

Vel el o R e Ro R oX e Ko R ole Jeo To Yo Yo Te Xo Yo Yo Yo BN INNNNNNNNO o
oo~ OCWVELELNWN—=OOONO
NN NN 2O 0N NS NN —=OO oo

1157
1158
1159
160
161
}62

30AC105¢)

199

1200
1201
1202
1205
1204
1205
1206

11
12

003532
003542
003552
003562
003572
003602
003612
003622

000
200
000
100
000
040
000

003642
003652
003662
003672
003702
003712
003722

010
000
004
000
002
000
001

003632

003732
003736

005037
052777

001
000
000
200
000
100
000
040
000
020
000
010
000

004
000
002

001420

040000

002
000
001
000
000
200
000
100
000
040
000
020
000

010
000
004

012612

CHARO:
C(HARY:

CHAR2:
CHAR3:

(HAR4:

CHARS:
(HARG6:

(MAR7:

.BY'E
.BY1¢
.BY'e
.BYTE
.BY&
.BY1e
.BYTE
.BYTE
.BY'E
.BYTE
.BY'¢é
.BYTE
.BY'E

.EVEN
LLIST

JAITT:

(LR

BIS

0,1,2,4,10,20,40,100
200,0,0,0,0,0,0.0
0,0,1,2,4,10,20,40
100,200,0,0,0,0,0.0
0,0,0,1,2,64,10,20
40,100,200,0,0,0,0,0
0,0,0,0,1,2,4.1
20,40,100,200,0,0,0.0
0,0,0,0,0,1,2.¢4
10,20,40,100,200,0.0.C
0,0,0,0,0,0,1,2
4,10,20,40,100,200,0,0
0,0,0,0,0,0,0,1

BEX

INTFLG

#40000,9C(SR

;CLEAR FLAG

:SET INTERRUPT ENABLE

MACY1Y
TESTS
06-SEP-79 15:23%

003744
003760
003764
003766
003772
003776
004000
004006
004022
004026

005737
001775
005037
005337
001370
042777

001420

06-SEP=-79

TEST7
1%:

001420
004024
040000

012550

000000

11ME:

004060
01251¢

012512
000000
000C00
000000
000000
000000
000000

012526

15:27

PSWSET

3EQ
CLR
DEC
BNE
BIC

PSWSET
R1S

000207

004026
004034
004040
004042
004046
004050
004052
004054
004056
004060
004062

30A(1052)

LDADPS: MOov
1518
LDPS:
8PL

MovB
RS

TEMPX:
TEMPY:

TEMPX1:
TEMPY:

TMPADD:

ROWSS:

3
3
PAGE 22-2

’0

INTFLG
1%
INTFLG

TIME
1%
#40000,aCSR
#200
PC

SEQ 0030

;TURN ON INTERUPTS
;TEST FOR INTERRUPT

SCLEAR FLAG
;BRANCH !F MORE
;CLEAR ENABLE

T0 DO

;TURN OFF INTERUPTS
;WAIT OVER

OOO0OOOO

NS NN
N
2OV
WA
OO NO VNS

) et

ol ol

D i
D
S il

il ol

AV IaCT AN I ST N T L ST VT VY WY N NI LN I V1, V1 VT WY VT, V1 VT N1 VI, V1 VY VY ¥
N AN AN LM AN AN N AN AN N NN NI NS PO PRI PU RO N 2 b ol eed e i s

2O 00~V
S

VIV VISUAL
CvviBA .SRC

TMPADD ,8CAR
a(SR
LOPS
RO,a0BUF

JLOAD ADDRESS
;TEST FOR READY

sBRANCH IF

NOT

;LOAD PICTURE STORE
:PETURN

MACY1T1
VIV VISUAL TESTS
06-SEP-79 15:23
CVVIBA.SRC
1241
1262
1243
1244
12645
1266
1247
1248

1249

1250

1 251
1

}253
1255
1256
1257

1258
1259
1260
1261
1262
1263
1264

1265

30A(1052)

06-SEP-79
1 ESTIO

15:27

.SBTTL

PAGE 23

SEQ 0031

TESTI0
cvrITeeTerERRIRRIYITLTYL

:THIS TEST PATTERN DEMONSTRATE.
. THE OPERATION OF

BLINK AT

;EVERY CHARACTER POSITION.

;""""""Q"""

004064
004072
0040746
004076

012737

000010

006737

016756

004102
004106
004112
004116

005037
012704
004737
010437

016706
000004
017444
016610

110009:

016576
001356
000340
001404
000200
012420
005403
001746

110001: Mov

104402
0046102

004122
004126
006132
004136
004144
004150
004154
004160
004164
004166

001372

004170
004174

005077
012703

004200
004204
004206
004212
004220
004224
004226
004230

0046232
004240

004246
004250
004252
004256
004262
004266
004274
004300
004302
004306
004310
004312
004320
004326
004330
004332

012701
005000
012702
116177
110077
005200
005302
001370
11777
112777

005301
100355
012701
012700
012702

116177
110077

005290
042700

0053¢2

001366
112777

016602

JSR
MoV

MOV
MOV
Mmov
Mmov

012412

CLRB

110003: MoV

JSR
DEC
BNE

CLR

012340

:
:
:
:

MOVB

DEC
B8PL

110008: MOV
110009:

012264

000200
000315
000312

MoV
MOV
CLR
MOV
MOovB

move
INC
DEC
BNE
MOvB

000315
000312

000007
000100
000120
006642
012260

CLR

MOov

012366
000003
000007
000120
004642
012334

TEST10: MoV
TRAP+?2
110000
JSR

012240
012232

110010

MoV
MOV
MOVB
mMOve

INC
8lcC
DEC
BNE

MOVB
MOvB

DEC
8PL
DEC

#10,TESTNO

;SET UP TEST NO.

PC,TESTR

;OUTPUT TEST NO

ERRDIS

rs ,RG
PC,FASTSW

R4 ,REPCNT

;SET UP TEST ITERATION COUNT

INTVEC,RO

S*SET UP
; *INTERRUPT
:*VECTOR
;SET 6v,6H & INC BITS

#TIMEY, (RO) ¢
7340, (RO)
¥160¢ ,aCSR
#200,R1
aCHAR
#PREZ RO
PC,LDCH

R1
110003

a(AR

#3,RY

#7,R3
RO
#80. ,R?
BXKCOL(R1),aDBUF
RO,8DBUF
RO
R2
1100907
#315 ,a0BUf
#312 ,808BUf
R1
110005
"7,
#100,R0
#80. ,R2

BXCOL(R1),aDBLf
RO,a08UF

RO
#20C,RO
R2
"10C10
#315 ,anBuf
1312 ,30L8BUF
&1
110009
R3

MR4
bR

[

;*LOAD ALL CHARACTERS
:*W]TH SAME PATTERN
bl

;SET CURSOR TO ZERO

;CHARACTERS PER LINE
:LOAD A (COLOUR

sLOAD CHARA(TER
;NEXT CHARACTER

"BRANCH IF MORE ROWS
;00 (R
LF

"BRANCH IF MORE COLOURS

*LOAD COLOUR

"LOAD CHARACTER
sSET UP (HARACTER

s ANY

;BRANCH

s CR
JLF

YES

MACYI1
viv VISUAL TESTS
CVVIBA.SRC
06-SEP-79 15:23

15:27

PAGE 23-1

110004

SEa 0032

:THE PICTURE STORE 1S NOW LOADED

:'C"'i rteveRCRTRECSORPORERROERRERRRNTY

004336
004344
004352
004360
004366
004372
004400
004406
004612

105777
001412
105377
127737
001404
105277

012126

123727

001404

105237

000137
123737

001404

105237

000137
012737
004737
032737
001404
042737
000403
052737

012120
012116

012106
004400
000004
003732
00217¢

002172
004372
002173
002173
006372
000500
003732
000001

002170

00402¢4

002170

004024

000001

004640

004360

112777

000300

004640

000000

s0BUF ,RO

BK6:

000100

BLINK.

;LOAD ADDRESS

;READ

STORE

;MAKE

(OLOUR

; SAVE CONTENTS
COMMAND

:LOAD COLOUR
SOt (HARACTER

;LOAD 17

N6, IME
PC.WAITY

BKS

;BRANCH IF

aCARY
8K&

Bx1

1 ,MAX
ADDR+
BK6
ADDR+1

Bx1

#50N,TIME
PC,WALITT
#1,BLINK

B8x8

#1,BLINK

;BRANCH

;HAVE

;BRANCH

ZERO

FINISHED

;ALL DONE ?
IF

YES

o INCREMENT Y ADDRESS
;GO AND DO SOME MORE
;SET UP FOR WA]T BEFORE
JNEXT
]

PASS

1eMOD BLINK COMMAND
;SET

REPCNT
T100ww

001232

COMMAND

:DECREMENT X ADDRESS
;CHECK Y ADDRESS
:BRANCH IF =
;INCREMENT Y ADDRESS
;D0 SOME MORE
;SET UP WALT
JNOW WALT

#1 ,BLINK

T100ww:

ROWS

;LOAD BLINK ON/OFF

aCARX
SCARY
, MAX

BX?7
BK7:

;MAX NUMBER OF

:TEST X ADDRESS

ADDR.,#79.

BKS:

;BLINK ON (ODE

aCARX

BKS:

000137
032777
001407
000137

BK?:

004640

016610

004616
004624
004632
004634

#20,3CSR

ADDR

000001

005337
001402

ADDR
ADDR ,8CAR

000117

104404

004360

BL INK ,9DBUF

BK?2

(AR

004600
004602
004604
004610
0046612

012124

;MOW STARY SETTING & CLEARING BLINK
;SET 6V,6H & DISPLAY ON

#1401,3CSR
#303,BLINK
67, MAX

#100,R0
#200,R0
RO,aDBUF
RO
RO,aDBuf

012132

110077

000137
012737
004737

8k0:
BK&:

012146
006100
000200

00C 300

MoV

8x1:

TM~

0046434
004440
0042
004446
004454
00445¢
0046462
0046466
004474
004500
004506
004510
004514
004520
004526
0045390
004534
004540
004546
004552
004560
004562
004570
004572

912212
006640
002170
012172

00«416
0044622
004426
004430

001401
000303
000057
006640
002172
002172
000020

—

1345
1346
1347
1348
1349
1350
1351
1392

TESTI0

BNE

—

NN~ OO

NO NS WOV

\flgfi#U“flvflflUflflvflflUflflUflflUflflvflflvflflUflflUflflUflflUflfluflflvflflUflfl
£
AN AN N AN AN N N AN AN NI NI PO PO RI NI PO NI RU N bt b e kb b et e s et O

LRV) NN=OOWLNO VNS

e
el
el
e
il
D
el
e
i
e
il
i
il
il
i
D
ol
e
e
d
ol e
e
i
i
e
i
i
e
e
A
it
e
e
—

W
ke

1308

06-SEP-79

001321

—

1300
1301

004334

1297

1298
1299

30AC1052)

SWR BIT 8 10

;L00P ON TEST
;:DONE ENOUGH ?
s YES

8x0

;NO

#300,3DBUF

:CILEAR BLINK

#100,3SwR
TESTN
STARY?

FLAG

;(HECK FOR PRE-SELECTFD +EST

—_

VIV VISUAL TESTS

MACY11

(VVIBA.SRC

06-SEP-79 15:23

1353

270
265

1354
1355
1356
1357
1358

004642
004645

004650

212

267
234
201

30A(1052)
256
223

O06-SEP=-79

TESTI0
Br(OL:

.BYTE

15:27

—9

PAGE 23-2

270,267,256,245,234,223,212,201

SEQ 0033

VIV VISUAL
CVVIBA.SRC

MACY11

TESTS

06-SEP=-79 15:23

30A10%2)

06-SEP-79

13 ST

1360

;THIS TEST PATTERN USES PRESET
.70 DEMONSTRATE THAT THE SCREEN

;WILL PRESET TO ANY FORGROUND
:OR BACKGROUND COLOUR.

:""""""""""'

00001
016756

004670
006674
004700
004704

005037
0127064
004737
010437

016706
000002
017444
016610

111000:

004710
004714
004720

013700
2720
2710
2777
2701

016576
001356
000340
001400
000200

T11001:

004756
004764

112777

1393
1394
1395
1396
1397
1398

004776
005002
005010
005014
005022
005026

1404
1405
1404

14C7
1408
1409

1410
1411
1412
1413
1614

1415

004770

005034
005040
005046
005052
005060
005064
005072

005076

000204

005134

004737

005134

004737

005134

112777
004737
112777

004737

112777

004737

T1102:

011574

T1103:

011562

004756
005337
001402
003137

005114

032777

MOV
JSR
DEC

MOVB
JSR
mOVB
JSR

000262

011550

MovBe

000227

011536

MOovB

000275

071924

000253
005134
000231

011512

MovB
JSR
MOvB

000210

011466

005134

JSR

MOvVB
JSR
MOVB

011500

JSR

PC,FASTSW
R& ,REPCNT

INTVEC,RO

#TIMEY, (RO) ¢

#340, (RO)

#1400,8CSR
#200,R1
SCHAR
#PREO,RO
PC,LDCH
Ri

11102

#204 ,30BUF
PC.PRESUB
#246,DBUF
PC,PRESUB
#262 ,8DBUF
PC,PRESUB
#227,30BUF
PC,PRESUB

11103
DEC
BEQ
JMP

016610
004756

(00100

011462

T110ww:

B11

;SET UP TEST MC
;OUTPUT

TEST NO

sSET UP TEST ITERATION COUNT
;eSET UP
;*INTERRUPT

;*VECTOR
;SFT 6V £ 6H BITS
L4

‘e

;*LCAD ALL CHARACTERS
;*WITH ZERO
bR

[

:LOAD COLOUR
: CHANGE

PI1CTURE

#275,a0DBUF
PC,PRESUB

#253,30BUf
PC,PRESUB
#231,aDBUf
PC.,PRESUB
#210,30BUF
PC,PRESUB

TRAP+4

1046404

005100
005102
005106
005110

Mov

mov
MOV
MOv
Mov
(LRB

BNE

004737

112777

ERRDIS
#REPCTS,RG

JSR

001746

005134
000246
005134

112777

CLR

Mov

011632
005372

004737
112777
004737

112777

PC,TESIR

OO
W
Z
€ —

1389
1390
1361

JSR

MoV

011624

#11,TESTNO

105077
012700
004737

MOV

004726
004732
004736
004742
004746
004752

016602

012737
006437

004656
004664

TRAP+?
111000

004670

001372

1399
1400
1401
1402
1403

TEST11:

104402

004654

004652

004754

1392

SEQ 0034

;""""'Q"""""

—

1388

TESTI

-— )

1369

1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387

.SBTTL

——4

1361
1362
1363
1364
1365
1366
1367
1368

PACE 24

15:27

#100,35uwR

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

;CHECK FOR PRE=-SELECTED TEST

ViV VISUAL

CVVIBA.SR(
1416
16417
16418
1419
1420
1421
1422
1623
1624
1425
1426

1027

1428
1429
1430

1431

1632
1433
1434
1435
1436
1437
1438
16439
16440
1441
1642
1643
1644

1445
16446
1647
1448
1649
1450
1651

1452
1453

1454
1455
1456

1457
1458
1499
1460
14 1
|

1463
1464

1465

1466

kACYIY
06-SEP-T79 15:2%

TESTS

000137

005434

T110wY: JMP

TESTY?

042777
052777

000001

005134
005142
005150
005154
005156
005164
005170
005174
005200
005206
005212
005216
005222

105777
100375

052777
105077

012700
004737
012737
004737
105677
012700
004737
012737

004737
105077
012700

004737
012737
004737

105077
012700
004737
012737

011406

000001
011404
005372
001746
000200
003732
011356

011372

001746
000004
003732
011330

105077

005372
005376
005403
005411
005417
005425

000
000
000
060

012700

004737
012737

004737
000207

170

374

005434

004024

0040264

004024

000200
003732

00402¢

000
000
060
170
374

000
960
170
374
374

374

PC,LD(H
#4,T1NME
PC,WAITT
a(HAR

JSR
MoV
JSR
CLRB

PC,LDCH
06, TIME
PC,WAITY
aCHAR

JSR
mov
JER
CLRB

PC,LDCH
#6,T1ME
PC,WALITY
o HAR

JSR

PC,LDCH

:LOAD CHARACTER

SFINISHED

MoV
JSR

R1S

374

PREOQ:
PRE:
PRE2:
PREY:
PRE&:

PRES:

;TURN DISPLAY OFF
:DO PRESET

JSR
MoV
JSR
CLRB

Mov

005425

Sea 0035

#10,8CSR
o(SR
PRES!
#1,9(SR
SCHAR
#PREO,RO
PC,LDCH
#200,71ME
PC,.WAITT
a(HAR
#PRE1,RO
PC,LDCH
06, T1IME
PC.WALITY
a(HAR

Mov
004024

LA 18

8]S
STB
BPL
8IS
CLRB
mov
JSR
mov
JSR
CLRB
Mmov
JSR
MoV
JSR
CLRB

MOV

005417

001746

BIC

Mmov

005411

001746
000004
003732
011226

012700
004737
012737
004737

PREST:

005403

001746
000004
003732
011302

105077

005320
005324
005330
005336
005342
005346
005352
005356
005364
005370

PRESUB:

005376

001746
000004
003732
011254

006737

Di1414

000010
M1602

PAGE 24-1

001232

005130

005262
TN8266
005272
005276
005302
005310
005314

15:27

1110wy
START?

001402
000137

005234
005240
005244
005250
005254

06-SEP-79
TESTN

BEQ
JMP

005122
005124

005226

30AC1052)

NLIST

.BY1E
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

LEVEN
LL1ST

#PREC RO

#PRE3,RO

#PRESL,RO

#PRES,RO
#200,71M¢
PC.WALTT

;TEST

FOR READY

;BRANCH [F NOT READY
; TURN DISPLAL

374,374 ,3%74,37

BEX

;LOAD CHARACTER

:WAIT SHORT TIME

:1ERO CHARACTER ADDRESS

-LOAD CHARACTER
SWAIT SHORT TIME
©7ERO CHARACTER

ADDRESS

:LOAD CHARACTER

‘WAIT SHORT TIME

“2ERO CHARACTER ADDRESS

:LOAD CHARACTER
‘WAlT SHORT TIME

*1ERO CHARACTER ADDRESS

:LOAD CHARACTER
‘WAIT SHORT TIME

“IERO CHARACTER ADDRESS

:WAIT SHORT TIME

BEX

0,0,0.,0
0.0,60,60,0
0,60,170,170,6
60,170 374,374
170,37w,374,37

BA(CK

;LERO CHARACTER ADDRESS

170,60

374,170

374374

MACY11
Viv VISUAL TESTS
06-SEP-79 15:23
CVVIBA -SRC
1468
1469
1470
1671
1472
473
1474
1475
1476
1477
1478
1479
1480
1481
1482

1.83

1484
1485
1486
1487
1488
1489
1490
1491
1492

el o]

1
1
1
1

NV L S

1
1
1
1
1

VAN
NN NN

1493
1496
1495
1496
1497
1498
1499
1500
1¢01
1¢02
15C8
1504
1505
1506
1507
1 08
1 0

30A(1052)

26'5EP~79

TESTZ

15:27

LSBITL

PAGE 25

TESTI?

SEQ 0036

:""""".""'."

:THIS TEST DEMONSTRATES THAT
:THE CONTROLLER TIMING IS WURKING
;FOR ALL COMBINATIONS OF
608, VEH.
;'0"""""""..'

005434

TEST12:

104602

005436

005452

005440
005446

012737
004737

0u0012
016756

005452
005456
005462
005466

005037
012704
004737
010437

016706
000001
017444
016610

112000:

005472
005476
005502

013700
012720
012710

016576
001356
000340

11200%:

005506
005512
005516
005522

005077
105077
012700

011044
011056
002000
000000

112777

016602

JSR
CLR

Mmov

JSR

MoV
MOV
MOV

(LR
CLRB

011042

005300
001373
112777
012700

011032

005552
005560
005564

112777
012700
004737

0110«

005570
005576
005602

11277”
012700

005606
005614
005620
005624
005632
005636

MoV

005530
005532
005534
005542
005546

004737

TRAP¢.
112000

MOV

112004: move
DEC
BNE
MOvB
Mov

JSR

000070
J12612

010776

000177
012632
012550

SSET UP TEST NO
;OUTPUT TEST NO

ERRDIS

#1,R4
PC.FASTSW
R& ,REPCNT

INTVEC,RO

#TIMET, (RO)+
#3460, (RO)
o(SR
s(HAR
#2000,R0
#0,a(HDR
RO
112004

#°'H,3CHAR

#112H,R0
PC,LDCHBY

;SET UP TEST JTERATICN COUNT
;eSET UP
; *INTERRUF?
;*VECTOR

"LLEAR CHARACTER ADDRESS
YSET ALL CHARACTERS TO ZERO

SLOAD M

MOovB
MoV
SR

#'v,3(HAR
#T112v, RO

LOAD v

MOvB
MOV

#°'8,3(HAR
#1128,R0

:LOAD 8

PC,LDCHBY

JSR

PC,LDCH8Y

010760

MOVB
MoV

#'6,8(HAR
#1126,R0
PC,LDCHBY

010742

MOVB
MoV

012550
000066
012622
012550

#12,TESTNO
PC,TESTR

JSR

#177,8(HAR
#1125LD,R0
PC.,LD(HBY

;LOAD 6

SLOAD #

viv VISUAL TESTS
06-SEP-79

TESTi2

005712

112777

005720
005724
005730
005734
005740
005744

004737
004737
004737
004737
004737
004737

005750

112777

005756
005762
005766
005772

004737
004737
004737
004737

012550

005776

112777

000041

006004

006014
006020

004737
004737
004737
004737

012550
012550
012550
012550

006024

112777

000051

006032
006036
006042
006046

004737
004737
006737
004737

012550
012550
012550
012550

movB8
MOV

JSR
JSR

#v86H1 RO
PC.LDCHBY
PC,LLCHBY
PC,LDCHBY
PC,LDCHBY
PC,LDCHBY
PC.LDCHBY

Mmovs

#11,30HAR

JSR
JSR
JSR
JSR
JSR
JSR

PC,LDCHBY

PC.LDCHBY
PC.LDCHBY

move

#21 ,3CHAR

JSR
JSR

PC,LDC(HBY

JSR
JSR

010654

01066

sCHARACTER 1

PC.,LDCHBY

}

;

PC.LD(HBV
PC.,LDCHEBY

PC.LD(HBY

;

JSR

PC.LD( M8V
PC.LDCHBY

MOvB

#61,3CHAR

JSR
JSR
JSR
JSR

PC.LDCUHBY
PC.LDCHBY
PC.LDCHBY
PC.LDCHBY

MOovB

#51 ,9CHAR

JSR
JSR
JSR
JSR

PC.,LDCHBY

PC,LDCHEBY
PC.,LDCHBY

:
;

- 5%
54

JSR

010570

#1,30HAR

CHARACTERS

N i

012777
112777
0127C0
004737
004737
004737
004737
004737
004737

;eeeeNOW LOAD SPECIAL
#400,aC50
JSET 6M

(a1
p ¥ 1, V)]

005642
005650
005656
005662
005666
005672
005676
005702
005706

112005: MmOov

V] NPYS ) W~

[V I SV ]

SRR

OB N

NS NN =2 OO~

— -l
[Qe —r D ol S
i i il D i
P ol D il el il il i i D i il ) ol
[V IV IV RV TV (U RN ARV AV AV LV LV LV VW TV KVAAV LV IV SV LV VW IV IV T IV IV IV IV )
~e e [V,

CVVIBA +SRC

1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1595
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
*560
1567
1568

1569

1570
157

006010

010542

;
;
;

PC.LD(HBY

;

;eeverseveeveeeneNOW

006052
006056
006060
006066
006074
006076
006104
006112
006120
006124
006130
006136
00e144
006150

005737
001007
012737
012737

014514

012737
012737
013737
006337
005337

000005
000050
014520
002170

000406

112777

052777
105777
100375

112006:

000006
000040

002170
000247
000010
010406

181
BNE

MoV
MoV

1%:

2%:

MoV
Mov
nov
ASL

DEC
MovB
9 :

BlsS

118

BPL

L525
1%

#6,VINT

#32. HONT

2%
#5,VONT
240, ,HONT
HALFBV,MAX

MAYX
MAX

8247 ,3DBUF
#£10,80>R
a( SR
2)

STAAT

LOAD

PICTURE

;

;
;PARAMATERS FOR 5250 "%t
;
X

“CILOUR WwHITE ON B UE

DO PRESE]

006152
006156
006164
006170
006176
006200

005077
052777
£12700

006202
006206
006214
- 006220
006226
006230

105077,
113777
012700
112777
005300

010360
€02170
090120
000022

006232
006240

042777
005077
013700
112777

000004
010316
002170
000023
000212

010562

(LR
B1S

3%:

010332

001373

112777

005300

006270
006276
006302
006310
006316
006320

000117
002170
000024
000312

006322
006326
006334
006340
006342
006344
006350
006354
006356
006362
006366
006374
006402
006404
006406
006414
006420
0006424

012566
000000
012200

010316
010302
010274

5%:

010250
(10242

010226

6%:

mv
movs
move

DEC
BPL

112007:
1$:

2%:
—

movB
move

AUV

3%:

Mov
mov

JSR
DEC
8ta
INCB
INCB
B8R
INCB

010142
3

s o

SCAR

wb ,8CSR
#80.,R0

JSR
DEC

b1 ¥

MoV

JSR

MmOV

;SET CURSOR TO ZFRO
;SET INC BIT

SCARX

MAX ,@CARY

N, RO
#2¢,30BUF
RO
3
#4,3CSR

d AR
MAX ,RO
#23% ,908Uf
#312,308UFf
RO
5%

#79., CAR
MAX RO
#24 ,3DBUF
#312,308Buf
RO

;CLEAR INC BIT

SLOAD [

LINE

*LOAD

1 LINE

TLOAD \

L INE

VONT RO

#0,8CAR
PC.,TLBREBY
RO

#22,aD8BUf
RO

MoV

SEQ 0038

MOvB
DEC

8ls

#21,308uf

MoV

8ta
INCB
INCB
8R

010Vu2

15:27

SCARX
SCARY
1%
SCARX
HCNT RO

BNE
BIC
INCB

—a N
N

~ — O
~N
O

(=)~

013700
012777
00¢7%7

000004
010150
012566
012200

MOV

DEC
8PL

010264

O
ony

010204
012570
000004
000022

006446
006452
006460

mOvB
mov
move
DEC

81(C
(LR

010216
01021¢

000767

DEC
BNE

BNE

100370

006430
006432
006¢ 34
006440
006444

mov
MOvEe

(LRB

010354

—
-

006264
006266

06-SEP-79

TEST12

010372

(e Lo ]

006¢50
006256

005300
001373

30A(105¢)

006<~+

I3T1444

010404
000004
000120
000021

[« YY)
- O —[AYI L")

N = OO0 ~NO VNN

il el el
il wd
D
D
D
e el
—

VL Al 1A lV, IV TV IV IV TV TV )
O0O0 00 N ~NN~NNN~N~

MACY11
viv VISUAL TESTS
{VviBA .SRC
06-SEP-79 15:23

"n
PAGE 26-1

#6,8(SR

b1)

#6,8(SR

sCARY
VCNT RO
PC,TLBRBY

Q0
5%

“SET INCREMENT BT
“LOAD

L INE

“CLFAR INCREMENT BIT
*LOAD

\ LINE

sLOAD

* LINE

oCARX
e(ARY
43

V(N

#79. ,8(AR
PC,BLTR8BY

MACYVY
06-SEP-79 15:23

viv VISUAL TESTS

CVVIBA <SRC

1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642

1643

1644

1645

T0kb

1647

1648

1649

1650
1651
1652
1653
1654

1655
1656
1057
1658
165+
166)

16¢1
1402
1663
1664

1665
16066

1667

1668

1669
1670

1671
1672
1678
1674

1578

1676

1077

1678

SOAHOSZ)1 06-SEP-79
318

15:27

PAGE 26-2

006464

006470
006474
006476

105377
105277
005300
001370

010076
01007¢

DECB
INCB
DEC
Bht

SCARX
SCARY
RO
31

006500

013700

012570

mov

HCNT RO

006504
006512
006516
006520

IR T444
105377
005300
001371

000021
010050

Move

#21,30But
SCARX
20
4

006522
006526
006532
006534
006536
006542
006546

013700
004737
005300
001405

006550
006556
006562
006570
006576
006604
0060612

052777
005077

006620
0064 24
006632
006640

8%:

105277

006767
000004
010000
Y0061
00042
Y0116

000053
000054
007732
002170
000051
000052
000116

00C0&3
000044

006670

006720
006726
076734
006742
006750
006756
006764
9067172
007000
007006
007014
007022
0070%0

7%:

105377

006646
006654
006662

006676
006704
006712

110046

444
7
177

0146520
001000
000043
000177
000000
000070
000126
000000
000000
000006
000110
000090
000177
00004

000001
000500

0037832

010000

112008:

DE(B
pE(
BNE
MOv

JSR
DEC
8ea
DE(B
INCB
B8R

BIsS
(LR

007770
007762
007756
007746
007740

Move
Move
MoV

007736
007720
007712
on=7rt2
007674
007670
007672
007656
007654
007640
007632
007624
007616
007610
007602

move
MOVB
Move
fAove
nove

00757«
007566
007560
0075952
00754
00753«

006028

mOovB
move

(LR

nove

move

S.o
nON?
LT

move
novs
nov8

n0v8

“ov8
Aove
move

nove
nove

BiC
BlS

"oy

J9R

V(NT RO

PC.BLTRBY

RO
112008
SCARX
aCARY

3
SEQ 0039

:LOAD =====- LINE ¢

LOAD /

LINE

#6,80SR

(AR
#41,308uf
#42,908Ut
#78. ,3CAR
£53,a0BU¢F
#54,808uf
oCARX
MAX ,3CARY
#5) ,a0BUf
#52,30Buf
#78. ,8CARX

JSET INCREMENT BIT

UYL

#43,90BUF
#44 ,30BUF

HALFBV,9(ARY
#1000,8CAR
#35..8{ARX
#177,808uf

TSET UP ME >SAGE

#20,908BUt
#'8,90BUF
#'v.,a03uUf
#0,808BUF
#0,908uUf
#'6,30BuUf
#'n,aDBUS
#0,808BuFf

8177,308U¢

84 ,9(SR
#1,3(5R
8500, .4
P .wAlY

SCLEAR INC BT

TTURN ON DISPLAY

"WAlT A SHORT "M

viv vISUAL
{VvviBA .SR(

169

NN =00
N
W= O 0TM NONE NN —= OO
N

) il wll
R el
D il
- ol
id
i
D
i
) o
il
il
)
)
D et
il
)
il ol
—

NNNNNSNSNNNNVNNNNNNNNNNNNNNNNY
e e
e R R =]
L A0 L e A A N0 N PO RO RO PO RO A [ Y P

162
149%
1696
1695
1696
1697
1698
1699
1700
1701
1702
1703
1706
1705
1706
1707
1708

004737

007106

112777

00C011

007462

007112
007116
007122
007126
007132
007136

004737
004737
004737
004737
004737
no/ 737

001746
001746
001746
001746
001746
001746

007142

2777

000021

007150
007154
007160
007166

004737
or 737
004737
004737

001746
001746
001746
001746

007170

112777

0000¢1

007176
007202
007296
007212

004737
004737
004737
004737

001746
001746

007216

112777

000051

00722¢
007230
007234
007249

004737
004737
004737
004737

001746
001746
001746
001746

0¢-SEP-79

TEST1?

112010:

MOV
MmOove
MOv

JSR
JSR
JSR
JSR
JSR
JSR

007424

007376

001746

003746
007350

15:27

PAGE 27

007244
007250
007252
007260
0C "266
00/270
007276
007304
007312
007316
007322
007330
0073%3%0
007342

005737
0010067
012737
012737
000406

014514

112011

000006
000034

PC,LDCH
PC,.0CH

11 .3(HAR

JSR
JSR
JSR
JSR
JSR
JSR

PC,LDCH

movB

721 ,3CHAR

JSR
JSR
JSR
SR

PC,LDCH
PC,LDCH
PC.LDCH
PC,LDCH

move

#61,3(HAR

JSR
JSR
JSR
JSR

PC,LOCH
PC,LOCH
PC,LDCY
e LulH

MOov8

#51,8CHAR

JSR
JSR
JSR
JSR

PC,LDCH
PC,LDLN
PC,LDCH
PC,LDCH

PC,LDCH
PC,LOCH
PL,LDCH
PC.LOCH
PC.LDCH

000005
000042
014516
002170
002170

000247
000010
007214

2%:

9%:

T¢1

LS52S

MOV
MOV

#6,VONI

MOV
MOV
ASL
DEC
mOvB

HALFEV
MAX
MAX

1S18

BPL

:
:
:

11
12
13

:
;

15
16

<
6

21
22

23
24

42
«3

;

;
:
H

51
52
53

*NOW START

T0 LOAD PICTURE

#28. HONT

8IS

MOV

(HARACTERS 6v 8M

SCHARACTER 1
:
;

PC,.DCH
PC,LD(H

*uvB

BNE

SEQ 0040

;reeeNOW LOAD SPFCIAL
(SET 6V

01000,3(SR
#1,.8(HAR
SV68HY
RO
PC,LOCH
PC,LD(TM

ceetRORRCEREOPERALTRY

SN N NN
N NN
NN TN N LN A
M A AN
NN SNENNNNNNNINY

1688
1689
1690

007514
007524

[SRAV ] ST VIV 1o RV 1 N1 N}

1683
1684
1685
1686
1687

30A(10952)

001000
000001
013142
00'746
001746
001746
001746
001746
001746

007034
007042
907050
007054
007060
007064
007070
007074
007100

— et Q= OO O000O

1680
1681
1682

®ACY1Y
06-SEP-79 15.28

TESTS

#5 VONT
#36. ,HONT

MAX

#247,306
'F
#:10,9(SR
o(SR

123

"PARAMATERS FOR S25LINE

:LC.OUR WHITE ON BLUE
;D0 PRESET

VIV VISUAL TESTYS

CVVIBA,SRC

MACYY1

06-SEP=-79 15:23

1736
1737
1738
1739
17640
};:;

0073«&
007350
007356
007362
007370
007372

005077
05277/
012700
112777
005300
001373

007212
000004
9200100
000024

1763
1764
17645
1746

007376
007400
007406
007412

105077
113777
012700
112777

007166
002170
000100
000023

};48

007422

001373

1°47
'

0076420

005300

007170

007140

042777
00S5C77
013700

1755

007456

005300

1798

007462

012777

000077

007072

1760

007474

007502
007510
007512

112777

112777
005300
100370

000022

007056

1765

007514

013700

012566

1767

007526

004737

012364

};2?

1799

1761
1762
};63
64

1766

1768
1769

007660
007470

007520
007532
007534

1770
1771

007536
007542

1773

007550

1772

17764
1275

1776
1777
1778

1779

1780

1781
1782

112777
112777

013700

012777

005300
001405

002170

000312

000000

007024
007022

105277

007012

007554
007560

013700
052777

00757«
007576

005300
001373

112777

012570
000004

000023

007600

042777

000004

007612
007616

013700
004737

012566
012364

1783
1784
1785
1786
};g;

007622
007624
007626
007632
007636

1789
1790
1791

007640
007644
007652

4$:

007124

007110
007102

6S%:

105277

005300
001405
105277
105277
000767

013700
012777
004737

006756

007050

00703«

2%~

006770

006764

3$:

SCARX
MAX ,@CARY
264, R0
#23,308UF

:
:
;
JLOAD ______ LINE

BNE

BIC
CLR
MoV

#4,9(SR
o(AR
MAX,RO

;CLEAR
;
;

DEC

;

Dt (

MOvVB
MOovB

006734
006732

012566
000077
012656

006710

5%:
6%:

#21,30BUf
#312,3DBUF
5%
#63.,3CAR

MovB
DEC
BPL

#312,3DBUf
RO
6%

L [0]Y]

#2°2.,80BUF

VONT RO

RO
2%

:
:

PC.,TLBR6V

INCB
INCB

8CARX
8CARY

DEC
BEQ

B8R

:LOAD

#0,8CAR

JSR

L INE

MAX RO

Move

INC BI1T

SLOAD [
:

MoV

J LINE

:LOAD \

L INE

;
:

INCB

SCARX

MOVB

#23,30BUFf

;LOAD ______ LINE

MOV
BIS
DEC
BNE

INCB

A ¥

SEQ 0041

CLRB
nove
MoV
MOVB

BiIC

006750

:JERO CURSGR
;SET INC BIT
:
;LOAD e====- L INE
:
:

T12012: MOV

18:

PAGE 27-1

(AR
#4,3CSR
264 . ,P0
#24 ,30BUF
RO
3%

Moy

6%:

15:27

CLR
8IS
mov
12101 ]
DEC
BNE

BPL

105277
105277

000767

007606

3%:

100370

007546

007566

000021
000312

TEST1?

007162

007424
007632
CO07436

007442
Q07450

O06-SEP-79

007200

1750
1751
1752

1798
1756

00000«
007124
0062170

30AC1052)

MoV
JSR

HCNT RO
#6,9CSR
RO
3%

#4,9CSR
SCARY

VCN1,RO
PC.,TLBROV

:
;SET INCREMENT BIT
;
.

:CLEAR INCREMENT BlY:

:
;LOAD

DEC
BEQ
INCB
INCB
BR

RO
5%
SCARX
SCARY
43

:
:
;
:

MoV
MoV
JSR

VCNT RO
#63.,8(AR
or ,BLTR6V

:
;
:LOAD

’

)

\ LINE

/ LINE

MACY11
VIV VISUAL TESTS
CVVTIBA.SRC
06-SEP-T79 15:23

007672

013700

012570

007676
007704
007710
007712

112777
105377

00002¢
006656

007714
007720
007724
007726
007730
007734
007740

005300

06-SEP-79

TESTI?

006704

005300
001370

006702

006654

7%:

013700
004737
005300
001405
105377
105277
000767

012566
012656
006632
006630
006614

007742
007746
007754
007762

0107770
007776

1644

210
216

SNNSNNNNNNNYNNNNUUNNNNNNNNNNYN
NNNNNNN
SNNNNNTNNNNNNNTN
NN

010004
010012
010020
010024
010032
0'0036
010044

(V]

8%:

000054
000312
000053
000077
000044
000312
000043
006542
002170
006532
000042
00C312
000041
000077
002170
006470
n00052
0312
0051

..9004
0146516
001000
000033

000177

005900
000066
000126
000000
000000

000070
000110
000000
000177
000004
000001

006604
006576
006570
006564
006554
006546
006540

006536
00651¢
006506
006500
006500
006474

006452
006444
006436
006426
00832
006416
0066414
006400
006372
006364
006356
006350
006342

006334
006326
006320
006312
006302
006274

1T12013:

15:27

4
0
PAGE 27-2

OE(B
INCB
DE(
BNE

eCARX
SCARY
RO

MoV

HCNT RO

MOve
DE(B

#24 ,30BUF

DEC
BNE

001371

Y VT, ST, VY VT VT ST NI N1 N1, ST, CL N1 NIV L N1 L SV Al )
SN N NN NN NN NN NN N NN NN
N TN N NN

1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1229
1230
1831
1832
1833
1836
1835
1836
18%7
1838
1839
1840
1841
1842
1843
1844
1849
1846
1847

105377
105277

007656
007662
007666
007670

1792
1793
1796
1795

30A(1052)

mov

JSR

¢S

8CARX
RO
4)

VINT RO

FC,BLTROV

DEC
8EQ
DECB
INCB
B8R

RO
112013
SCARX
SCARY
8%

(LR
MOove

8CAR
254 ,308BUF
#312,80BUf
#53,30BuUf

move
move
MoV
MOvVB
mOvB
MOvB

(LRB

MOVB
DECB
Move
MOvB

move

mov8
MOvB
DE(B
mO\B
nove
MOvB

#312 ,3DBUf
#43,30BUF
aCARX
MAX,3CARY
aCARY
#42 ,3DBUF
#312,308UF

D0 L.f

#63. ,8CARX

MAX

2CAny

[

a( Ry

#°2,3DBUF

#:12,30Buf
#51,9V0BUf
#1000,3CAR
#27. ,8CARX
#177,308BUf

B1S

L INE

#41,308UF

SuB

MOVSB
Move
MOVB
Move
BIC

“LOAD /

#46,30BUF

#46,3CSR

Move
Move
novs
1[01Y
;]
Mcve
MOve
mOvB

LOAD ===e== L INE

#63.,8CAR

BIS

move

SEQ 0047

HALFO6V ,a(CARY

[
.

[

SSET INCREMENT BIT
SSET UP MESSAGE

#0,308UFf

#'6,308U¢
#'v,e80Buf
#0.,308U¢

#0,80BUF
#'8,30Buf
#'H,30BUF
#0,8DBUF

#177.308uf
#4,3C5R
#1,8(SR

TCLEAR INC BIT

“TURN ON DISPLAY

VIV VISUAL TESTS

CVVTIBA.SRC
1848
1849

010262
010270

MACY1T1

30A(1052)

000500
003732

0046024

06-SEP-79 15:23
012737
004737

O06-SEP-79

TEST1?

MOV
JoR

15:27

PAGE 27-3

#500,71ME
PC,WALTT

SEQ 0043
:
;wAlT

SHORT

TIME

1882

1883
1884
1885
1886
1887
1888
1889
1890
1891
1892

1893
1894

1895

1896

1897
1898
1899
1900
1901
1902
1903
1904
1905
1606

CLR

OCOO0CO0O0OCOOO0O

MovB
MOV

JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR

VAN
N AT AN
WA NON
AN N AN

)
il
el
el

NI NN NN PO N

gl
wd
el
el
-l

010362

O06-SEF-79
TEST1?

006266

1861

1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
187¢
1875
1876
1877
1878
1879
1880
1881

005077
112777
012700
004737
004737
004737
004737
004737
004737
004737
004737
004737
004737
004737

COO0O0O0O0O0OO0OO0O

1851
1852
1853
1856
1855
1856
1857
1858
1859
1860

30A(1052)

JSR

15:27

PAGE 28

aCSR

SEQ 0046

;eveeseeNOW LOAD SPECIAL CHARACTERS 8v 8M

#1,3(HAR

#vB88H1,R0
PC,LDCKBY
PC,LDCHBY
PC.LDCH8Y
PC,LDCHBY
PC,LDCHBY
PC.LDCHBY
PC,LDCHBY
PC.LDCHBV
PC.,LDCH8Y
PC,LDCHBY
PC.LDCHBY

“SET CHMARACTER ADDRESS
TCHARACTER 1
bt
1" ol YAk 2RV 1, V]
WY
— O

MACY11
VIV VISUAL TESTYS
CVVIBA.SRC
06-SEP-79 15:2 T

;vreveneseoeNOW START TO LOAD PICTURE
010366
010372
01C374
010402
010404
010412

010420
01042¢
010430

010436

010444
010450
010452
010456
010464
010470

005737
001004
012737
000403
012737
013737
006337
005337
112777

082777

105777
100375
005077

052777
012700
112777
005300
001373
042777
013700
006300
112777
112777

005300
001370
005077

014514

1581

000034

012570

000042
014520
002170
002170

012570
002170

000247
000010
006106

006122
006112

006104
000004
000100
000005

BNE
Mov
BR
Mov
MOV
ASL
DEC
MOvVB

3%:

006072
006062

000004
014520

006046

000004
000312

006034
006026

BIS

1518

8PL
CLR
BIS

MOV

5%:

MOvB
DEC
BNE
B1IC
MOV
ASL
MOVB
MOvB
DEC

BNE
(LR

006020
014520
000003
000312

€060C2
205774

000004
000100
000006

005760
005750

cs:

MOV
ASL
MOvB
MGv8

DEC
BNE
615

Mov
MOVB
DF(C

BNE

L525
1%

#28. ,HCNT

#34
., ,HONT
HALF
8V ,MAX
MAX
MAX

#247 ,3DBUF
#10,9(CSR
a(SR

“SET FOR 625 LINE
“SET FOR 525 LINES

"LAST ¥ ADDRESS
;COLOUR WHITE ON BLUE
;DO PRESET

aCAR

#4,8(CSR

#64. RO
#5,aDBUF

4%
¥4 ,a(SR

HALF8V,RO
RO
#4 ,a0BUF

#312,aDBUF
RO
5%
aCAR
HALF8V,RQ

“CLEAR INC BIT

‘DO LINE FEED
:LOAD

J LINE

*JERO CURSOR ADDRESS

#3,30BUf
#312,3DBUF

DO LINE FEED

:LOAD [

L INE

SSET INC BIT

9%:

MOove

000001
005664
005660

005660

10%:

MOvB

000011

005636

005640

MOvB

T12015:

005616

005604
014520

1%:

005600

2%:
005550

CMPB
BEQ
DECB
BR
DECB

JERO X ADDRESS
:SET v ADDRESS
sLOAD BOTTOM LEFT

#10,aDBUF
aCARY
#?2,aDBUF

aCARY ,HALF8Y

MoV

mMove
DEC

ENE

“LOAD / LINE
[

HALF8V,aCARY

SSET UP MESSAGE

mov8

#'v,aDBUE
#0,a0BUF
#0,3D8BUF
#'8,30BUF
#'H,a0BUE
#0,a08BUFf
#177,aDBUf

005374
005366
004024

BI(C
81S

245 ,8(SR
¥ ,3(SR

JSR

PC,WALTI

BNE

SuB

MOVB
MovB
MOVB
MOvB
MOvB
MOVB
MOVB
MOvB
MOVB
MOVB

MOv

#1000,9CAR
#27.,3CARX
177 ,3DBUF
#0,3DBUF

#'8,3DBUF

#500,71ME

*LOAD TOP RIGHT

MOvB
DECB

000004
000001
000500
003732

4%:

SNNNTN SNNNNNNNYN -~

MOvB

014520
001000
000033
000177
000000
000070
000126
000000
000000
010070
00011C
000000
000177

NNN

005524
005510
005506
005472
005464
005456
005450
005442
005434
005426
008420
005412
005404

005522

SNNNSNSNNNNNTNNYNY

MOVB

aCARX
MAX ,a3CARY

"LOAD BOTTOM RIGhT

mMOvB

0000??

WNAN N~

OECB

SLOAD \ LINF

;LOAD / LINE

005536

1s:

CLRB

MOvB
movB

#1,a0BUF
8CARY
SCARY MAX
108
#11,a0BUf

#2,aDBUF
aCARY
43
#12,30BUF

000002
005542

SNNNTUINSNNNNNNYN

NNV
N NN
~

005572
012570
000006

INCB
(MPB
BNE

000002
005610

005634

DEC
BNE

HONT RO
€S 25d8Uf
RO
9%

002170
000010
005622

002170

Mov

~NONO

005672

SCARY _HALFBY
8s

WO ~NO

BNE

"LOAD \ LINE

(mPB

“LOAD TOP LEFT

INCB

s LERO CURSOR ADDRESS

014520

INCB

MOvB

SEQ 0045

8%:

8CAR
#7,308BUF
aCARY
#',sDBUF
aCARY

®e

005720

Move

6
PAGE 23-1

®e

CLR

00¢732

15:27

N
W~

TEST1?

~NO
W~
NNNNN

000001
005724
035720

06-SEP-79

012570
000005

NWNNO

—

005742
000907
005736

30A01052)

NNNNN
NN NN

W
NN NN N

OO0
OO0—=—=
EE X o 0 Y IR
OO~

Ot
s
ONO—=O

112777
p) 77
2 17
p) 77
7 37
1 67

oorNnSs

005077

s ororN

OONNSOONS

— il o s i -t O
BN
= —=O~N
ol cmd —

1960
1961
1962

~N~NO
W

1959

010722
010726
010734
010742
010746
010754
010762
010764
010770
010772
010776

—

1957
1958

010672
010700
010704
010712
vl10714

—d b ol il i il ) ol el e il ol el

1955

1956

010654
010660
010666
010670

-l
)

1954

010614
010620
010626
010632
010640
010646
010652

- el

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
1635
1936
1637
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953

TESTS

MACY1T
06-SEP-79 15:23

VIV VISUAL
CVVIBA .SRC

CLEAR INCREMENT BI1
sTURN ON DISPLAY

TWALT SOME TiMg

viv VISUAL

CVVIBA.SRC

'963

MACYIT1
06-SEP-79 15:23

TESTS

30A(1052)

06-Str=vv

TEST1?

1S 27

PAGE 28-2

SEQ 0040

1987
1988
1989

199C
1991
1992
1993
1994
1995
i9%6
1997
1998
1999

2000
2001

2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013

2014
2015
2016
2017
2018
2019
2020

011202
011206
011214
011220

004737
012737
004737
000137

011224
000500
003732
012142

011224
011232
011240
011244
011250
0112%6
011262
011266
011272
011276
011302
011306
011312
011316
011322
011326
011332

012777

001400
000000
005372
001746
000001
013362
001746
001746
001746

112777
012700

004737
112777

012700
004737
004737
004737
004737
004737
004737
004737
004737
004737
004737
004737

06-SEP-79
TEST1Z

JSR
mov
JSR
JAP

00402¢

005324
00533

LD6X6:

005316

001746
001746
001746
001746
001746
001746
001746
001746

MOV
MOVB
MOV
JSR
MOvB
MOV
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR

15:27

PAGE 29

PC,LD6X6

#500,T1ME
PC,WALITT

112018

011400

011406
011414

011420
011422
011426
011434
011440
011446
011450
011452
011400
011464
0L11466
(11476

0 1502
011504
011506
011542
011516
011520
011526

005737
001004
012737

000403
012737
013737
006337
005337
112777

052777

105777
100375

005077
052777
012700
112777
005300
001373
042777
013700
006390
112777
112777
005300
001370
005077
013700
006300
112777

012777

014514

112016:

PC,LDCH

#1,3CHAR
#V66HT
RO

PC,LDCH
PC,LOCH
PC,LDCH
PC,LOCH
PC.LDCH
PC,LDCH
PC,LDCH
PC,LDCH
PC.LDCH

000040

912570

000050
0164516
002170
002170

012570
002170

000247
000010
005136

005152
005142

005134
000004
000120
000005

005112

000004

005076

0146516
000004
000312

1%:
?2%:

MOV
MOV
ASL
DEC

#40. ,HONT
HALF 6V, MAX

«&$:

(LR
BIS
MOV
MOvB

BPL

DEC
BNE

BIC

MOV
5%:

ASL

MOVB
MOVB
DEC
BNE

(LR
Hgv

005050
014516

000003
000312

#32.

3% :

005122

00506&
005056

ggv

005032
005026

o6%:

ASC

MOVB
MOV

TIME

;SET 6V 8 6H BITS
;CHARACTER 2ERO

:LOAD WITH ALL 0°S

“SET CHARACTER ADDRESS
(HARACTER

PC,LDCH

L525

MOVB
BIS
1518

SOME

PC,LDCH

TS7

BNE

CWALT

ceeseeeeNOW LOAD SPECIAL CHARACTEPS 6V 6H

#1400,8CSR
#0,3(HAR
#PREO,RO

;eeveseerseNOW

011336
011342
011344
011352
011354
011362
011370
011374

SEQ 0047

1969
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1986
1985
1986

30A(1052)

HONT

MAX
MAX

#247,3DBUF
#10,3CSR
a(SR
b34
aCAR

— et et bt YO AN
WA
= O

MACY1Y
VIV VISUAL TESTS
06-SEP-79 15:23
(VVIBA.SRC

START

LOAD

PICTURE

“SET FOR 625 LINES
*SET FOR 525 LINES
SLAST Y ADDRESS
;COLOUR WHITE ON BLUE
.00 PRESET

#4,3(SR

#80.,R0
#5,30BUf
RO
4%
#4,aCSR
HALFOV,RO
RO
#4 ,3DBUF
#312,aDBUf

RO
5%
aLAR
HALFOV,RO
RO
#3,aDBUF
#312,aDBUF

;CLEAR INC BIT

‘DO LINE FEED
;LOAD

J LINE

*ZERO CURSOR ADDRESS
‘DO LINE FEED

oo (VLW J W LV LV LV LV LV IV, IV, ]
- NNGPOOWVNES S
ony oosrnnonNnNcOo

il
i
D
il
anld
il
il
)
)
) ol

004772
000007
004766
000001
004754
004750

15:27

DEC
BNE
BIS

TEST12

005010
005000

I4 ¥

— I

NN~ ~

w ~ NNNNN

NWNNIN
NO W~

N =2 ~J\NN
1AV AYAT S AV 2V )

&~ NNUWNNO
o W NCNNNN

= NSO
Wi

766
77

X » N
e e
e R N

NN NNNNNNNNNN
NNNNNNNNY
N~

NNYNNNNNNYN

~ i~

N = NN

300

DEC

Bnt

CLR

004762

004750

MOVB

0146516

004722

INCB

MOVve

INCB
CMPB
BNt

MOov

012570
000605

MOV
Movs

MOVB
DEC

BNE

011642
011650
011654
011662
011664

2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057

000004
000120
000006

PNORLPONININNINNINIWN

2045

06-SEP-79

—

2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044

30A¢1052)

005300

OOO0O0O0O0O0O0ODOOO0OOOO00O

2023
2024
2025

OO0 ODOTOOO0D

2021
2022

MACY11
viv VISUAL TESTS
CVVIBA .SRC
06-SEP-79 15:23

0000C1
004714
00471)

002170

000011

004666

004670
002170
000010
004652
000002
004640

004710

004¢6¢
004646

004634
014516

10$:

112017:

1%:

004630
004622
012570
000006

2%:

PAGE 29-1

SEQ 0048

LINE

JLOAD [

#6,805R

“SET INC BIT

#80.,R0

#6,80BUf

RO
7%
8CAR
#7,3DBUF
SCARY
#1,30BUf
SCARY
8CARY HALF 6V
8%

*ZERO CURSOR ADDRESS
“LOAD TOP LEFT
"LOAD \ LINE

HCNT RO
#5,80BUF
RO
9%
#1,30BUf
aCARY
oCARY MAX
10%

;LOAD \ LINE

mMovs

#11,30BUf

CLRB
MOVB
MOVB

a(ARX
MAX ,8CARY
#10,30BUf
8CARY
#2,80BUF
8CARY HALF 6V

:ZERO X ADDRESS
“SET v ADDRESS

move

INCB
(mpPB
BNE

DFCB

Movs

(MPB
BEQ
DECB
BR
DECB

004600

MoV
MOVB

000002
004572

004566

MOVB

000012

004552

MOvVB

014516
001000
000043
000177
000000
000066
000126
000000
000000
000066
000110

004554
004540
004536
004522
004514
00450¢
004500
004672
0046466
004456
004450

MOVB

DEC
BNE

DEC(B
BNE

SuB

MOvB
MOVB
MOVB
mMOovB
MOove
MOvB
MOVB
mMOvB
MOv8B

"LOAD BOTTOM RIGHT
*LOAD BOTTOM LEFT

TLOAD / LINE

sCARY
1%

8CARY
HCNT RO

¥6,80BUF

#2,eDBUF
8CARY
6%

#12,30BUf

HALF6V,8CARY
#1000,8CAR

#35.,8CARX

#177,30BUF

#0,a08UF

#'6,80BUT
#'v,eDBUF
#0,sCBUF
#0,90BULF
#'6,80BUF
#'n,aDBUF

TLOAD / LINE
SLOAD TOP RIGMT
SSET UP MESSAGE

viv VISUAL TESTS
MACYIT
CVvIBA.SRC
06-SEP-79 15:23

2077
28;8
¢

2080
2081
Sgg%

30A(1052)

O06-SEP-79
T€ST12

15:27

PAGE 29-2

012110
012116

V12777
112777

000000
000177

004442
004436

mOvB
MOvVB

70,30BUf
#177 ,308Buf

012126
012132
012140

042777
052777
000207

000006
00000%

006424
004416

elC
RIS
R1S

#4,9CSR
#1,3(SR
PC

SEQ 0049

;CLEAR INCREMENT BV
;TURN ON DISPLAY
:

viv VISUAL TESTS
MACYYT
CVVIBA.SRC
06-SEP-79 15:23
2085
2086
2087
2088
5888

012162
012146
012146
012152
012156

104404
005472
005337
001402
000137

2091
2092
2093
2094
2095

012160
012166
012170
012176

032777
001402
000137
000137

001232
013576

2098
2099

012200
012206

112777
105277

000001
004354

2101
2102
2103
2104
2105

012220
012226
012232
012236
012246

105277
112777
105277
112777
105277

004344
000003
004330
0000064
004320

2107
2108
S}?g

012256
012262
012270

105277
112777
000207

004304
000006

2111

012272

112777

000016

2114
2115
2116
117
2118
2119
2120

012312
012316
012326
012330
012316
012342
012350

105277
112777
105377
112777
105277
112777
105377

004252
000014
004236
000013
004226
000012
004212

2122
2123
21264

012362
012366
012372

000207
112777
105277

012406
012410
012416

105277
112777
105277

004156
000014
004146

105277

004132

2096
2097

2100

2106

2112
2113

2121

2125

2126
2127
2128

2120

2130

2131

2132

012212

012250

012300
012304

012356

012376

012422

012430

012434

012642

112777

105377
112777

112777

105277

016610
009472
000100

000002

000005

004262
000015

SCARY
#3,308BUF
SCARL
#4,808UF
SCARY

004270

INCB
MOVB
RTS

SCARX
26 ,8DBUF
PC

(04260

BLTRBv: MOvB

004%26
004314

004302

004246
004234

004222
004210

004154
004142

MOvVB

DECB
move

004062

000004

004050

;
;

INCB

sCARX

;

INCB

SCARY

;

RTS

BLTR6V: MOVB
INCB

004064

#16,308uf

S8CARX
#15,808BUf

sCARX
#14,80BUf
SCARY

004074

000005

#5,308uf

INCB
MOvB
INCB

MOvB

MOVB

DECB

move

¢
TEST

#2 ,90BUF

;
;

MOvVB

105377

;(HECK FCR PRE-SELECTED

PC
#16,80BUf
SCARY

004104

012476

;SET SwWR BT B 10
;LOOP ON TEST
;OONE ENOUGH ?
LYES
;NO

RIS
TLBROV: MOVB
INCB

MOvVB

000011

2139

SeQ 0050

SCARY
#14,308UF
SCARX
#13,30BUF
S(ARY
#12,308BUt
SCARX

MOovB

000006
004100

INTB
MovB
DE(B
MOv8
INCB
movB
DE(B

004116

112777
105277

112777

INCB
MOvB
INCB
move
INCB

004340

000012

012456
012464

012502

#1,308Uf
SCARX

004130

2136
2137

2140

T1LBA8v: MOVB
INCB

000013

000207

112777

004352

004166

004122

REPCH I
1120wv
112001
#100,95wR
1%
START?
TEST13

000016
004172

0124564

012470

TRAP+&
112001
DE(
8tQ
JMP

PAGE 30

1120ww: B~
8Jrr
1%:
JMP

004176

006015

15:27

004416

000011

012446

2138

112777

G6-5EP-79
Testi2
T12018:

2133
g};g

30A(1092)

#11,30Buf

#15,308Uf

#13,30BUf

#12,30BUf

#11,3C8UF

#6,aDBUF
a(ARY

#5,a0BUF

SCARX

#6,80BLF

;

MACY11
VIV VISUA_ TESTS
CVVIBA.SR"
06-SEP-79 15:23

2141
2142
21643
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
21564
2155
2156
2157

2158

2159
2160
2161
2162
2163
2164

2165
2166
2167

2168
2169
2170
2171
2172
2173
2174
2175

012510
012514
012522
012526
012534
012540
012546

105277
112/77
105377
112777
105277
112777
000207

004054
000003
004040
000002
004030
000001

012550
012554
012560
012562
012564

012701
112077
005301
001574
000207

000010
004012

012566
012570

000000
000000

012572
01260¢
012612
012622
012632

104
104
070
070
377

012642
012652
012662
012672
012702
012712

200
000
040
000
010
000

012722
01273%2
012742

000
100
000

30A(1052)

06-SEP-79
TEST1?
INCB

004036

Move

004024

Mmova

004012

move
RTS

DE(B

INCB

rovB

DEC
BNE

RTS

104

104
104
100

377
100

000
020
000
000

000
200

377

aCARX
#2,308UFf
SCARY
1 ,80BuF
i"C

#10,R1
(RO)+,3(HDR
R

1%
PC

19,

200
004
000
000

vBOHIT:

000
000
200
004

000

2185
2186
2187
2188

013042
013052
013062
013072

37«
374
)1C
004

500
000

240
000

2190
2191
2192
219%
2194
219%
2196

013102
013112
013122
0131832

200
100
374
374

200
200
000
014

206
000
000
024

vBonS1:

013142

004

010

020

voBnrl:

2189

aCARY

#3,308uf

«0,

374
000
200
004

2184

SEQ 0051

£
8V 6H CHARACTER SET
200,100, <0, 20, 10,
&,
0,

040
000
010
000
oon

013002
013012
013022
013032

012762
012772

020

n
s
20-1

BEX
104,106,174,104,104,104,0, 0
106,104,106,104,50,20,0 .0
79,106, 70,104,104, 70,0,
0.0
7¢,100,170,104,104, 70,0, 0
7
7
377,377,377,377,377,377,377,37

174
104
070
170

00
004

2177
2178
2179
2180
2181
2182
2183

012752

PAGE

0
0

000
040
000
010

2176

ROV

1> 27

004
004

100

10,

0,200,100, «0, 20

0,200,100, 4«0, 20,

30,

0.
0.,
&, 10, 2¢, 40,100,200
100,200,
O,
O,
¢,
O,
O,
O
0. »
0, [
0, ’
&, 10, 20, 40
0'
20, 40,100,200,
0,
O,
0,
O

000
020

20,

10, 20,

«0,100,200,

10
O

vB6M21:

37«4,
0,
O,
G,
O,
O,
O,
O
0,
0,
0,
0,
0,
O,
0,374
200,200,200,200,200,200,200,200
‘0
‘:
“:
l’a
‘o
“o
"l
‘

VBOHG
' .

374,300,240,220,210,204,200,200

200
004

3?%«,

204

0,200,100

6.206,104, &4, 246, 16,374

200,200,204,210,220,240,300,37¢4
100,200,
O,
¢,
O,
0O,
0,374

37, 14, 24, 46,104,206,
«,

10, 20, «0,100,200

2209
2210

2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
22264
2225
2226
2227
2228
2229
22%C
2231
2232
2233
2234
2235
22%
22%7
2238

L2239
22640
2261
2262
22483

2244

2265
2266
22647
2268

2249
2250
225
2292

010
000
002
200
000

vOBMIL:

013252
013260
013266

200
001
000
377

200
001
000
000

volull:

013302
013310
013316
01332¢
013332
021330
011346
01333

204
200

210
200
201
003
021
001
20
300

220
200
00
005
on
001
200
240

voBmuésl:

013274

013362
013370

013376
013404
013412
013420
013426
01343
013442
013450
01%5¢6

013466
013476
013506
013516
013526
0'35%
013546
013%%6
013566

200

101

377

06t
001
202

377

200

00«

200
004
374
000
374

204
204
374
200
001
200
001
377
000
377

201
201
1704

100

040

010
200
004
000
00C

020
200
004
000
000

300
210

240
220

104

064

10C

040

000
000

002
200
oo

:
VOO6MHI

024

004
200
001

300
202

240
206

003

209

101

VOBHST:

vasBnl:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYIE

40, 20, 10,

"0 ‘ol Z 0

0.
1.0,

10,
0.

—

020
000
00¢
00
001

0.
0.
20, 40, 100 200
0.
0,
1,
2,
0,
100 200, 0.

OCOoOOoON

040
c00
010
000
002

.
-

.BYTE
BYTE
BYTE
.BYTE
.BYTE

01?206
013214
013222
013230
01323%6
013244

100

SEQ 0052
-

001

000
040
000
200
002

000
020
000

PAGE 30-2

000
100
001
000
004

013150
013156
013164
013172
013200

15:27

2197
2165
2' /9
2200
2201
2202
2203
2204
2205
2206
2207
2208

06-SEP-79
1t s112

ViV VISUAL TEST'S
06-5EP-79 15:23
CVVTIBA.SRC

30A(1052)

—_

MACYIY

1
.
2.
.200,100
1, 0 . 0

&, 2.,
0,200,100, & 0
0 0,

200.100. 40, 20.

0 0.
10,

BYTE
BYTL
.BYTE
.BYTE

zo?.zo?.zoo.zoo.zo?,zo?

.BYTE
.BY1E
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYIlt

204,210,220,240,300,377
200.200.200.200.201.202

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

3/7.

0.377
0.

101,201,

1,200,101

577. 3080 10 210 &
3,377
5.
, eY, 1,
1

202.201.200.200.200.200
377.300,240,220,210,204
.6V 60 CHARACTERS
200,100, 40, 20, 10, &
«. 10, 20, 0,100,200
200.200,200.200,200,290
6,

.BYTE
.BYTE
.BYTE
.BYTE

204
374,300,240,220,21C,
0,37¢
204,210,220,240,%0

.BYTE
.BYTE
.BY1E
.BYTE
BYTE
.BYTE

1
200 100,740, 20. 10, &, 2.
2. &, 10, 20, 40,100,200
20?200
20?.20?.200 00 200,200,
»
1
.

.BYTE
BVt
.Bv'(

$77.300,240,220,210.204,202.201
201.202.204.210.220.240.300.377
201101, &%, 21 1. 8.3y
377, 3. 5. 11, 21, &1,101,200

206,104, 44, 26, 14,374
376, 14, 24, 44,106,206

;8v 8n (HARACTERS

$77.

0,377

viv VISUAL

CVv1BA, SRC
225%

TESTS

RMACY1Y

EP=79 *7:23

30A(1052)

06-SEP=-79

TEST1?

15:27

PAGE 30-3

SEQ 0053

viv VISUAL
CVVIBA, SRC

MACY11
0¢-SEP-79 15:23%

TESTS

30AC1052)

06-SEP-79
TESTIZ

22995
2256
2257
2258
2259
2260
2261

2262
2263

2264
2265
2266
2267
2268
c269
2270
227V
2272
2273

2274
2275
2276
2277
2278
2279
2280

2281
2282

2283
2284
2285
2286
2287
Zggg
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310

15:27

LSBITL

PAGE

SEQ 0054

TEST13
;"""""""'0""

JTHES TEST DEMONSTRATES THAT
:THE

JAT

CURSOR CAN BE DJISPLAYED
ALL X & Y ADDRESSES

"'."""""'."'0"

TEST13:

013576
013600

013614

013602
013610

012737
004737

000013
016756

013614
013620
013624
013630

v’5037
012704
004737
010437

016706
000001
017646
016610

113000:

(13634
013640
013644

013700
012720
01271¢

016576
001356
000340,

113001: MOV

013650

004737

011224

013654
013660

005077
052777

002702
000002

002670

013666
013674
013700
013704
013712
013714
013720

012737
004737

003732

000015

004024

002664
002660

014516

013722
013730
013734
013740
013744

0’37
004737

013746
013754
013760
013764
013772

012737
006737

013774
014002
014006
014014
014016
014022
014026

012737
004737

0149030

106402

105277
127737
001403
105277
000762

016602

002646
004024

000915
003732
002602
0C2576

004024

0040264

127737

000015
003732
002556

105377

002544
002542

105377

002534

001366

105277
127727

001365

001405
105377

000762

mov

JSR

#13,TESTNO
PC,TESTR

(LR

ERRDIS

JSR

PC,FASTSW

MOV

mov

000015
003732
002630
002622

105277
105377

TRAP+2

113000

000117

014516

R& ,REPCNT

INTVEC,RO

;SET UP TEST
s *INTERRUPT

JSR

PC.LDOXG

;LOAD °ICTURE

(LR
BIS

9CAR

:JERO CURSOR

MoV

JSR
INCB

MoV

JSR
INCB
(MPB
BNE
MOV

JSR
(mpB8
BtaQ
DECB
DECB
BR
DECB

#2,3CSR

#15,TIME
PC,WAITT
SCARY
SCARY HALFOV
2%

;*VECTOR

s TURN ON

CURSCR

"OHORT WAIT

SCARYX

113002

#15,71ME
PC,WALTT
sCARY
SCARX

TSHORT WAIT

m15,TINE
PC,WALTT
SCARX

SCARX, 279,
33
#15,T1ME
PC,WALTY

SCARY HALFOV
5%
sCARX
S(ARY
43

ol ARY

[TERATION "OUNT

;*SET UP

#TIMEL, (RO) ¢
#340, (RO)

CeCB
BNE

3%:

”,RG

MOV
Mov

113002: Mov
JSR
IN(B
(mMPB
8taq
INCB
BR
’%:

SSET UP TEST NO
;CUTPUT TEST NO

T
SSHORT wA
.
.

SSMORT WA]T

vV VISUAL TESTS

CVVIBA.SRC

2311

014034

MACYIY 30A(1052)

06-SEP-79 15:23

012737

2312
2313
2314
gg‘g

014042
014046
014052
014056

004737
105277
105377
001366

2317
2318
2319
ggg?

014060
014066
014072
014076

012737
004737
105377
001370

2322

014100

2323
23264
2325
525?

000015

003732
002514
002512
000015
003732
002470

004024

00402¢

“S=SEP=-79

TE.

6$:

7%:

104404

15:27

mov

f15,T1IME

JSR
INCB
DECB
BNE

PC,WALTY
o(ARX
8CARY
6%

MOV
JSR
DECB
BNE

215,T1ME
PC.WAITT
8CARX
7%

TRAP+4

014102
014104
014110
014112

0'3666
005337
001402
000137

2328
2329
ggg?

0146116
014126
014126

032777
001402
000137

000100

2332

014132

000137

*13002
DEC
8ta
JMP

016610
013666
002460

PAGE 31-1

‘

SEQ GO0SS

;SHORT
:

)

:
:SHORT WA{T
:
:

>
REPCNT
T130ww
113002

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

001232

T1130ww: BIT
BEQ
JMP

#100,aSwR
1130wy
START?

:(HECK FOR PRESFLECTED TEST
:

014136

T130WwY:

TESTI4

JMP

VIV VISUAL TESTS
MACYT1
CVVIBA,.SRC
06-SEP-79 15:23

30A(1052)

(Q6-SEP-79
TEST14

2334

15:27

LSBTTL

2335

2336

SEQ 0056

TeST14

;eteTTIEIISILIIYIICECETIIRI
IR RS

sX=HATCH FOR SETTING UP TV MON]TOR

233%7

R
R R R Y]

2338
2339
2360

0146136
0141640

(14142
014150

104402
014154
012737
004737

000014
016756

2364
2345
2366
ngg

014154
014160
014164
0164170

005037
01270+
004737
010437

2369

016176

2353
%ggg

2361
%g:%

PAGE 32

)

TESTI4:

#16,TESTNO
PC,TESTR

JSET UP TEST NUMBER
SUUTPUT TEST ND.

016706
000001
017446
016610

116000: CLR
MOV
JSR
MOV

ERRDIS
#1,Rd
PC,FASTSW
R4 ,REPCNT

;
:
:
sSET UP TEST

013700

016576

11400': MOV

MOV
"ov

FTINMEY , (RO)
#3460, (RO)

INTVEC,RO

016210
016214

004737
016352

021172

Jsn

PC,TYPOUT
XMES

:
:

2356
2357
2358
2359
2360
2361
gg:%

014216
014222
014226
014232
014236
014242
0146246

005077
10,077
012700
012705
112077
005305
001374

002334
002346
014342
000010
002330

CLR
CLRB
MOV
Mov
MOVB
DEC
BNE

a(SR
ACHAR
#XnATCH,RO
#10,RS
(RO)+,aCHDR
RS
2%

;PICTURE SIZE 8 X 8 MATRIX
:
:
:
;LOAD (HARACTER ZERO
:
:

2364

014246

1312777

000207

MOVB

#207,80DBUF
#300,a0BUf
#10,8CSR
8(SR
19
#1,9(SR

;SET WHITE ON BLACK

sCLEAR BLINK FLAG
;D0 PRESET
;WALT FOR READY
;
:TURN ON DISPLAY

#6000, TIME

2365
2366
2367
2368
Sggg

014200
016204

012720
012710

014254
014262
014270
0142764
016276

112777
052777
105777
100375
052777

2371

014304

012737

2374

014316

104404

S%;g
g;;s

014312

004737

001356
000340

000300
000010
(02262

:
;

MoV
JSR

2350
ggg;

016602

TRAP+?2
114000

2%:

002304

0000u1

002252

MOVB
B1S
1518
BPL
B1S

C04000

004026

T114003: MOv

003732

002276
002266

1%:

JSR

PC,WALITTY

;WALT SOML TIME
;SET SWR BIT 8 TO STAY

TRAP+4

014304

2377
2378
sg;g

014322
014330
014332

032777
001402
000137

000100
001232

Bl1
BEQ
JMP

2381

014336

000137

017224

114004: JMWP

ENDIT

2384

014342

020

' 020

XHATCH: ,BYTE

20,20,20,377,20.20,20,20

3385
2385

2386

2387

014345
014350

014352

377
020

020133

714003

020
020

026530

002254

020

040510

ITTERATION CQUNT

:
:

016320

sON THIS TEST PATTERN

#100,85wR
114004
START?

sCHECK FOR PRESELECTED TEST
:
:

XMES:

NLIST

JASCI]

BEX

/0 X-HATCH FOR SE'TING UP Tv MONITOR (@/

MACYIT
VIV VISUAL TESTS
CVVIBA.SRC
06-SEP-79 15:23

2388
2389
2390

30A(1052)

06-SEP=-79

TEST14

15:27

LIST BEX

PAGE 32-1

SEQ 0057

VIV VISUAL TESTS

CVVIBA.SRC
2392
2393
2394

MACY1T

06-SEP-79 15:23

2395
2396
2397
2398

014620
014426
014426
014432

0146522
004737
020027

2600
2601

014440
014446

012737
012737

2399

014436

204737

001012

021172

177777
000017

014456

012737

000024

2606
26405
2606
2407
26408

014464
014470
0164472
014476
(014504

020027
001353
005037
012737
012737

000066

54?8

‘

26411
2412
26413

014462

016512

014514
014516
014520

000207

000000
000030
000022

014514
000022
000030

06-SEP=-79

014514
014520

014516

014520
014516

15:27

UTILIT¢ ROUTINES

SETS6:

020646
(020065

2602

2603

30AC1052)

PAGE 33

5
SeQ 0058

CSBTTL

UTILITY ROUTINES

JSR
JSR
(mP

PC,T1YPOUT
ASKS6
PC,READ
RO,#'S

JASK 525 625
:
;READ
JWAS 1T 5

MOV
MOV

n77777,1525
P15, ,hALFBY

sYES, SO SET FLAG
:

BNE

MOV

RIS
SETS6A: (MP
BNE
CLR
MOV
MOV
RTS

L525%:
@
HALF6V: 24.
HALF8v: 18.

SETS56A

;BRANCH IF NO

#20. ,HALFOV

RO, #'6
SE156
L525
#18. HALFBY
#24. HALFOV

JWAS [T 6
;BRANCH IF NO AND ASK AGAIN
sCLEAR FLAG
:
;

: DONE

. DONE

viv vISUAL

CVVIBA.SA{
2616
2617
2618
2419

2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2430
2631
2632
2633
2634
26435
2636
2637
2638
2639
2660

2661
26642

2643
2664
2645
26L6
2647
2648
2649
26450
26451
2652
2653
2654
2655
2656
2657
26458
26459
26460
261
2662
26463
2664
2665
26466
2667
2668
2669
2670
24/

MACYIY

TESTS

06-SEP-79 19:23

014922
014575
014630
014673
014704
014735
014773
015023
015070
015136
015153
015223
015272
015276
015347
015360
015376
0156430
015450
015504
015537

020133
040
053:33
105
050133
133
133
133
047533
040533
133
133
055533
051533
133
042533
052133
043133
043133
043133
133

015607

133
051533
022133
040
133
043133
043133
133
040533
133
047133
133
133
133
042133
133
042533
020040
043533
040
062133
040
133
041533
040
016520
000000
100
040502
016540

015642
015654
015661
015665
015672
015726
015765
016010
016037
016076
016135
016165
016227
016252
016313
016354
016360
016372
016403
0164614
016425
016443
016456
016475
016520
016526
016530

30AC1052)

06-SEP=-79

ASCI1

STRINGS

15:27

PAGE

LSBTIL

ASCII

.NLIST

BEX

SFG 0059 |

STRINGS

051511

052040

ASKS6:

.ASCI1

/L 1S THE (ONTROLLER JUMPERED FOR 525 OR ©2S/

053124
042530
051°07
05¢.23
062522
047531
052120
054516
047506
046120
040133
066105
042526
0462176
060522
0647522
051117
051117
047516

030063
041522
031124
051101
052123
(20125
047511
043040
020122
040505

GOMSG:

041505
052123
047440
020120
020115
052040
052040
020116

WMSG:
TESMSG:
PASMSG:
ILVM>G:
FRMMSG:
FIRVMS:
NxTvMS:
NOMEMA:

.ASCI1
JASCIL
LASCID
LASCI1
LASCIT
LASCIT
LASCI1®
ASCIT
ASCI1
LASCIT
LASCIT
CASCID
.ASCIL
_ASCII
.ASCII
.ASCI1
_ASCI1
_ASCI1
_ASCI1

!'CvIv30-H/J OR vI30-H DIAGNOSTIC AND'
/e XERCISER/
/(PART2=-=--- DISPLAY TESTS/
/USTARY ADDRESS IS 1000, OR 200/
/[RESTART ADDRESS 1S 1200/
/(YOU ARE STRONGLY ADVISED TO READ THE/
/[OPTION DESCRIPTION BEFORE PROCEEDING,/
7[ANY FURTHER./
/(FOR DETAILS GF SUS AND /ECTOR ADDRESSES/
/7(PLEASE REFER TO THE OPTION "~ "TRIPTION/
/CCLa/
/[SELECY DESIRED SWITCH REGISTE
JPTIONS[&/
/[TEST NO&/
/(END OF PASS(a/
/(TRAP TO ILLEGAL VECTOR &/
/[FRO® ADDRESS @&/
/(FOR THe FIFST VECTOR GROUPI
/(FOR THE NEXT VECTOR GROUPA.
/[NON EXISTANT MEMORY rAS NOT BEEN fOUNDa/

042520
036440
100

REDMES:
SWRMSG:
MODADM:

.ASC )| l
.ASC 1 l
.ASC I {

/LTYPE CNTRL-C TO CONTINUE @/
&/
/(SWR =
/LS @/

044514

056524
051127
020040
020057
020052

051111
051111
06,111
0642104
044506
056105
0647516
047111
044126
043105
0646120
060043
052101
047517
020040
052151
020040
052123
0646101
020040

042516

100
040040

052128
052123
0640526
042522
051522
020124
020116
040526
020105
052501
040505
050040
020104
040502
020101
042101
052101
042514
051105

MODSPA:
MODPRM:

BAMSG.
VAMSG:
UDAMSG:
OVAMSG:
PRMSG:
NPRMSG:
NXMSG.
BADPR]:
NODEFM:
EMSGY:
EMSG2:
EMSG3:
EMSG4:
EMSGS:
EMSGH:
EMSG7:
EMSGB:
EMSGY:

LASCIL

.AS(
AS(

.ASCI
.ASCI l
,ASCI l
.ASC] l
.ASC! l
.ASCI }
.ASCI
.ASCI i
<ASC I
_ASC l l
<AS( 1 l
LASC ! l
.ASC I l
.ASC ] l
L ASC | l
.ASC I l
.ASC ] l
.ASC I |
. ASC )| l

.AS(CI l

000000 000000 OCTNUM: .WORD

000
0462523

030061

BASEN1:

BYIE
.ASCli

7 LINES,L TYPE S OR 6 ..... 8/

? /s a?

Y
JAK
/(FIRST BUS ADDRESS
/LFIRST

VECTOR ADDRESS

..... e/

..... o/

/UINVALID ADDRESS
@&/
/[ADDRESS EXCEEDS 772 [&/
/LFIRST PRIORITY LEVEL IS ..... e/
/INEY] PRIORITY LEVEL IS ...... s/
/UNON EXISTANT ADDRESS
@/
/CINVALID PRIORITY, PLEASE RE-ENTER/

/[THE PRIORITY..... e/
/(DEFAULT SETTINGS ARE NOT ALLOWED/
/(PLEASE RE-ENTER THE VALUE ..... 8/
/LENR/
/

Al PC

/(GOOD

: &/

BAD :@/
/
/LDATA : &/
ADDRESS
/

:@/
:@/
/(STATUS
/LCALLED FROM :9/
/

ERROR (OUNT

0,0,0

100.90
/BASE10e/

= g/

v'v VISUAL

(VV1BA ., SR(
2472
2673
2674

2675

MACY1T

TESTS

016540
016566

06-SEP-79 15:2%
000CO0
000000

000000
000000

30AC1052)

000000
00CO00

vU6=SEP=79

ASCI]

STRINGS

DECMSG:
OCTMSG:

.WORD
.WORD

.EVEN
18T

15:27

PAGE

1
35-1

5
SEQ 0060

MACY11

viv VISUAL TESTS

CVVIBA.SRC

016670
016672
016674
C16676
016700
016702
016704
016706
016710
016712

001000

REPCNT:

JM600:

FSTCNT:
TRPARG:
TRPSEL:
TRPMEM:

SAVP(:
SAVPC1:
SAVSTA:

TYPOTA:
RAND:

TYPD1:

MONADR:
MODSAV:
MASK:

BASADD:
TRPERR:

(HWORD:
ERR:
PARITY:
BC(HAR:

RANDN:
RANSEL:
RANMTA:
RANST:
:
600D

BAD:
DATA:
STATUS:

ADDRES:

ERRDIS:
ERRARG:
CALLPC:

:
TRXVAD
TRXPAR:
TRXEXM:

NXMADR:
SAVE XM:

SAVPAR:
SAVLTG:
SAvVLTo:

PROGRAM VARIABLES

S#START

016664
0166¢6

SWR:
SSWR:

016630
016632
016634
016636
016640
016642
016644
016646
016650
016652
016654
016656
016660
016662

TESTNO

177570

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
000000

VECLEV:

(]

016616
016620
016622
016624
016626

INTVEC:

000170
000004
000000

016612

{ ARY
CMDR:
LHAR:

PAGE 36
’

164000
164002
164004
164006
164004
164005
164006
1664007
170

016602
016604
016606
016610

(SR:
:
DBUF
(AR:
(HSR:
CARX:

164000
164002
164004
166006
164004
166005
166000
164007

2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
25N
2512

016556
016560
016562
016564
016566
016570
016572
016574
016576
016600

2499

.SBTTL

[a¥]

2686

2487
2488
2489
2490
2491
2492
2493
24694
2495
2696
2497
2498

06-SEP=79
15:27
PROGRAM VARIABLES

OOOOOOOOOOOOOOOO&O = NOOOOOOOO0OO0OO0O0OO0O0O0O0O0O~L.00 w

2617
2678
2479
2480
248!
2682
2483
2484
2485

05-SEP-79 15:23

30A€1052)

SEQ 0061

CVVIBA,SRC
2533
253%
2535
2536
2537
2538
2539
2560
251

MACYI1

TESTS

016734
016736
016740
01674
016744
016746
016750
016752
01675

06-5¢P-79 15:23
000000
000000
000000
000000
000000
000000
000000
000000
000000

30AC1052)

06-SEP=-79
'5:27
PROGRAR VARIABLES

CNVFLG: 0
STRADD:
STRLEN:
LOWCHR:
UPP(HR:
RUBFLG:
RANDC(:
FSAVPY:
BCOUNT.

ocaogooocoo

viv VISUAL

PAGE

36-1

SEQ 006c

BACYIY
viv VISUAL TESTS
CVVTIBA.SKC
06-SEP-79 15:23

2965
2544
2965
2546
25«7
2548
2549
2550
2551
2952
2553
2554
2555
2556
2557
2558
2599
2560
2561
256¢
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
25795
2576
2577
2578
2579
2580
2581
2582
¢58%
2584
2585

2593
2594
2595
2596
2597

06-SEP=-79

TEST

15:27

NUMBER

LSBYTL

PAGE

SEQ 0063

TEST NUMBER

DESCRIPT]ION:
TO PRINT

THF

TEST

NUMBER

IN OCTAL

CALLING SEQUENCE:

ROUTINE

PC,TESTR

INPUT PARAMETERS:

JSR

THE

OCTAL

TEST

NUMBER

TO BE

IMPLICIT

INPUT PARAMETERS:

TESTNO CONTAINS
PRINTED

START

ADDRESS OF

OUTPUT PARAMETERS:

THE LABEL TESMSG IS THE
ASCly STRING °'TEST NO'

CORRUPTED

IMPLICIT OUTPUT PARAMETERS:

RO wiLL BE

NO N'

WILL BE

PRINTEL

THE MESSAGE °'TEST
CONSOLE TERMINAL

COMPLETION CODES:
NONE

POSSIBLE

2586

2587
2588
2589
2590
259N
2592

30AC1052)

ERROR

CODES:

NONE

016756
016762
016764
016770
016774
017000

004737
015347
013700
004737
004737
000207

021172

JSR

PC,TYPOUT

016602
021262
021136

MoV

TESTNO,RO

TESMSG

;TEST

JSR

PC,PROCT

(PRINT

RTS

H3 R

JSR

PC,CRLF

NO
OCTAL

TEST

Tnut

MACY11

Vv VISUAL TESTS

CVVIBA.SRC

C6-SEP-79 15:23

30A(1052)

2999
2600
2601

s 0 B 8o 8o e %o Be Ve s Ve Ve Qo
(VI8 B0 8. 8, 8c 8080 0:8: 80 8;: %0 8080 9. 00%:0; 809000008000 90 800000808000 85 0599 %S¢ 8¢ S 82 &

2642

2643
2644

2647
2648
2649
2650
2651
2652

265%

2654

*SILLSI®

15:27

SUBROUTINE

.SBTTL

2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
26295
2626
2627
2628
2629
2630
2631
263%¢
2633
2634
2635
2636
2637
2638
2639
2640
2641

2645
26646

O06-SEFP-79

.
)

017002
017006
017014

}

005037
012737
012737

017044
017032
000340

000004
000006

PAGE 38

'SILLSI®

SEQ 0064

SUBROUTINE

DESCRIPTION:
ROUTINE

TO ESTABLISH WHETHER OR NOT

DIAGNOSTIC IS RUNNING

WHICH POSSESSES ONLY ONE
PRIORITY LEVEL.

THE

PROCESSOR

INTERRUPT

BUS

CALLING SEQUENCE:
JSR

PC,SILLSI

INPUT PARAMTERS:
NONE

IMPLICIT

INPUT PARAPETERS:
NONE

OUTPUT PARAMETERS:
THE VARIABLE 'LSIFLG' WwiLL BE SET UP TO
REFLECT WHETHER OR NOT THE PROCEZSOR HAS
A SINGLE INTERRUPY PRIORITY LEVEL.

LSIFLG

MULTIPLE

=> SINGLE

INT,

INT.

PRIORITIES

PRIORITY

IMPLICIT CUTPUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE

ERROR

“ODES:

NUNE

IeLst:

CLR

MOV
MOV

LS|
”ns
36

;5B UP FLAG FOR NON-LS]

LINSTALL

TRAP THRU & vE(TOR

:AND CORRESPONDING PRIORITY

MALYY 1
viv VISUAL TESTS
06-%EP=-79 15.23
CVVIBA.SRC

2055
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667

2668
2669
26790
26N

30A(1052)

FPAGE 38-1
15:27
06-SEP-79
'SILLSI® SUBROUTINE
.

017022
017026
017030

005737
000240
000404

017032
017034

022626
012737

017042

000207

; $:

017044

00V000

i SIFLG: 0

177776

172777

017044

i $:

SEQ 0065

TH® PSW -TRY ADDRESSING

TH!
NOP
B8R

PSk

(np

(SP)e,(SP)e

nov

8-1,LS1FLG

;PERFORM A DUMMY RT]
;PROCESSOR HAS ONE

INT.LFVEL

RIS

;RETURN TO MAINLINE

CALL.

“Ir NOT THERE, TRA® THRU &

“WILL OCCUR, ELSE 3RANCH.
\

50 > MULTIPLE® INT.PRIORITIES
;=1-> SINGLE INT. PRIORITY
/

viv VISUAL TESTYS

(VVTIBA.SR(

MACY1Y

06-SEP=79 15:23

30A(1052

2673
2674
2675
2676

06-SEP-79

2678
2679

:
,

2680
2681
2682
Sng

2687

2689
2690

:
:

2692

2694
2695

2
:

2697
2698
2699
2700
2701
S;g%

:
:
2
.
:
:

2704

2707

2709

PRAR]

2688

2696

2705
2706

.
:

2708

CLNSE
INPUY PARAMETERS:

OCCURS 1F A HARDWARE SwlT(H REGISTER [N NOT
PRESENT

IMPLICIT INPUT PARAMETER.:
NONE

OUTPUT PARAMETERS:

THE LOCATION SWR JlL. BE SET TQ CONTAIN SSWR
IMPLICIT QUTPUT PARAMETERS:

21 IO

NONE

PIA Y

2713
2714
2715
216
2717
2718
2719

2720

:
;
:
;
:
J
;

2721

017046
01705«

CUMPLETION CODES:

AN RT]

1S PERFORMED

POSSIBLE ERROR CODES:
NONE

2722
2723

2726

ENTRY POINT

2693

NON EX[S5TANT SWR TRAP

THE TRAP WHEN TESTING FCR THE HARDWARE
SWIT(M REGISTFR WlitL OCCUR MFRE
THE LOACTION SWR WiLL BE SET TO LONTA,N THE
ADDRESS Of THE SOFTWARE SWITCH REGISTER SSWR

2691

DESCRIPTION:

2085
2686

2724
2729

LSBTTL

.
.
.
:

684

PAGE 39

NON EXISTANT SWR TRAP
;
:
.

26177

15:27

0127%7
000002

016606

016604

SWRSET: MOV
RT]

-~
#SS5WR, SwR

Sta 0066

VIV VISUAL TESTS
MACY1Y
CVVIBA.SRT
06-SEP-79 15:23

30A(1052)

06-SEP-79

SET

2728

15:27

JLLEGAL

PAGE 40

SEQ 0067

VECTOR TRAPS

SET UP

JLLEGAL VECTOR TRAPS

DESCRIPTION:

LSBT

CATCHES FOR

RUNNING Of

TESTS.

TRAPS

ILLEGAL

PN FE

VECTORS IN THE RANGE 0 TO 772, DURING THE
THE

}:EPCATCH 1S TO FORCE THE EXECUTION OF AN [OT

AP.

THE

(ODT

PN
FN FIR

VECTOR)

T0 SERVICE

THE

TRAP

IS LEFT

FREE,

IS SET 10 THE ADDRESS TRAFSV
[NSTRUCTION.

THE VECTOR

20 (107) 1S SET TO ILLVEC TO SERVICE ILLEGAL
VECTOR TR/OS, AND THE ADDRESSES 200 AND 202

PN PR FI
IEIEIE IR FE FE TR FR IR TR PR Y

34 (TRAP VECTOR)

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

LOCATIONS 30 AND 32 AND SET

TO CATCH EMT CALLS

AND MENCE READ THE PROCESSOR PRIORITY,

LOCATION 40 IS LEFT FREE TO CONTAIN THE LOAD
INDICATORS, LOCATION 42 1S LEFT FREE TO CONTAIN
THE XXDP RETURN ADDRESS (IF PRESENT). LOCATION
&6 1S SEY TO POINY TO A RETURN TO XXDP AND

LOCATION 52 IS SET

10 ZERD.

CALLING SEQUENCE:

JSR

PC.VECTOR

INPUT PARAMETERS:

TR IR YA YRR

VECTOR

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT

PARAMETERS-

FE FE PR R

YRR

NONE

RO AND R
PRI

60
761

ROUTINE TO SET

wiLL BE

CORRUPTED

ADDRESSES O THRU 10 774 WiLL BE
APPROPRIATE

VALUES

IMPLICIT OUTPUT PARAMETERS:
NONE

SET WiTH

viv VISUAL
(VVIBA_ SR(

2786
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796

TESTS
MACYTY
06-SEP=-79 15:23%

:
:
:
;
:
:
:
:
:

017056

005000

2799

017.64

020027

2801

017072

022020

2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2816

017076
017102
017104
017106
017110
017112
017116
017122
017126
017130
017136
017144

020027
001002
022020
000403
010120
012720
062701
020027
002756
012737
012737
012737

2816
2817
2818
2819
2820
2821
2822

017160
017166
01717¢
017202
017210
017216
017222

012737
012737
013737
013737
012737
095037
000207

2800

01700

01,970

2802 D17074

2815

O06-SEP=-79
15.27
PAGE 40-1
SET UP JLLEGAL VECTOR TRAPS

i
.
:

2797

2798

30A(1052)

017152

012701

001002

000410

012737

000002

000014

000040

017364
000340
0166'2
016614
017300
000052

000020
000022
000200
(00202
000046

000340

000032

MCNE

POSSIBLE ERROR (ODES:
NONE

:FILL 0-572 WITH 107 TRAPS

FILL:

(MP

RO, #1146

:0DT TRAP?

(mp

(RO)+,(RO)+

FILLY:

000034
000036
000030

COMPLETION (ODES:

2%:

017464
000340
017314

SEQ 0068

VECTOR: (LR

1%:

000004
000004
000774

FlLLZ:

MoV

BNE

B8R

e R

Fleut

(mp
BNE
(MP
BR
Mov
MoV
ADD
(MP
BLT
MOV
MOV
MOov

RO, #40
23
(RO)+,(RO)+
Fleed
R1,(RO)+
#4,(RO)+
6, R\
RO.#774
YRILL
#TRAPSV, 34
#340,36
#°ADR, 30

MOV
Mov
MoV
mov
MoV
(LR
RTS

#JLLVEC,20
#340,22
JM600,200
JM600+2,202
#SENDAD , 46
52
PC

MOV

#3%40,32

*
;YES BUMP RO

:XXDP RETURN ADDRESS
;NO
;YES BUMP R(C

R
PA
;101!

:TRAP (LOOP CONTROL)
; PLUG EMT FOR READING

: THE PROCESSOFR STATUS
:PLUG 20 FOR 10TS

:SET UP JMP START [N LOC 200
;POINT TO RETURN TO XXDP
;CLEAR 52
:THEN EX]T

06-SEP=-79

XXDP END O7

15:27

PAGE 41

t
SEQ 0069

PASS wO0KS

XXDP END OF

PASS HOOKS

DESCRIPTION:

LSBTTL

TO SIGNIFY

END OF

PASS,

AND

THE

XXDP ARE &0, AND &1
THE

RETURN ADDRESS.

FOR THE L'OAD MEDIUM AND 42, 43 FOR

A PRESELECTED TEST

GO AND SELECT

THAT

IS IN OPERATION THE PROGRAM wiLL

TEST.

ENTRY POINT:

ROUTINE

PROGRAM HAS BEEN LOADEL USING AN XXDP MONITOR A CALL
WiLL BE MADE BACK TO THE MONITOR. THE LOCATIONS USED BY

INPUT PARAMETERS:

ENDIT

xXDP RETURN ADDRESS

IMPLICIT

INPUT PARAMETERS:

LOCATION 42/43 (ONTAINS THE

QUTPUT

PARAMETERS:
NONE

IMPLICIT OQUTPUT PARAMETERS:
NONE

COMPLETION CODES:

1f LOCATIONS 42/643 ARE NON ZERQ THEY ARE

ASSUMMED TO CONTAIN THE

®e

®e Ve

Be Ve

Ve Vo Ve Vo

Ve Ve

Ve Vo Ve

Ve Ve Ve

NONE

POSS'BLE ERROR CODES:

®is

2824
2825
2870
2827
2828
2829
2830
283

30A(1052)

o ®e

viv VISUAL TESTS
MACY11
CvvIBA.SRC
06-SEP-79 15:23

NONE

XXDP MON]TOR RETURN ADDRESS

viV VISUAL TESTS
MACY11
(VVIBA.SRC
06-SEP=-79 15:23
2880
2881
2882

2883
2884
2885
Sgg?

01724
017230

017244
017252
017254

01279¢

001200

032777
001402
000137

000100

017260

004737

021172

2892

(017266

013700

sggg

017274

000137

0172664

017272

015360

001002

017300
017302

004710
000240

2901
ggg%

017306
017310

000240
000137

2904
2905

811
8tQ
JAP

#START,SP
#340

#100,85wR
1%
START?

;
;

NO PRESELECT ON SO SIGONAL END OF

1%:

017306

RESEY THME STACK
AND PROCESSOR PRIORITY

: 1S THERE A PRESELECT ON
: NO
: YES GO SELECT THE TEST
PASS

PC.,TYPOUT

; END OF PASS

000042

MoV

ar42 RO

: GET RcTURN ADDRESS TO XXDP

001232

JMP

START?

; MONITOR SO RESTART DIAG

PASMSG

BNE

$SENDAD

: 1F IV 1S ZERO THERE 1S NO

2898
2899
2900

177332

MOV
PSWSET

SEQ 0070

JSR

2896
2897

:
.
ENCIT:

;

2890
2893

O06-SEP=79
15:27 PAGE 41-1
XXDP END OF PASS HOOKS

001232

%ggg

2891

30A(1052)

$ENDAD:

000240

.
JSR
NOP

PC,(RD)

NOP

NOF
JMP

001232
:

START?

; CALLED VIA xXDP SO RETURN
; THERE
;
:

ALLOW A SLIGHT PAUSE
THEN RESTART THE DIAGNOSTIC

VIV VISUAL TESTS
MACYI1
(VVIBA.SR(
06-SEP=-79 1°:23

2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2628
29°9

294

15:27

PAGE 42

Sea 0071

READ PROCESSOR PRIORITY

DESCRIPTION:

CALLING SEQUENCE:

THIS IS THE EMT HANDLER AND [S USED TO READ
THE PROCESSOR PRIORITY OFF THE STACK AND RETURNIHG
IT IN FSAVPY

ISSUING AN EMT

INPUT

PARAMETERS:
NONE

IMPLICIT

INPUT PARAIETERS:

THE

LOCATIONS 30 AND

Ve
W T

CALLED BY

N
V.

29.0

)

UP TO POINT

32 MUST HAVE

TO THIS ROUTINE

BEEN SET

OUTPUT

PARAMETERS:

CONTENTS OF THE
RETURNED IN THE

PROCESSOR PRIORITY
LOCATION FSAVPW

COMPLETION CODES:

B¢

THE
ARE

NONE

POSSIBLE

ERROR CODES:

NONE

017314«
0173272

0i6637
000002

000002

016752

VG L

2945
234?

O0€-SEP-79

.SBTTL

2931
29%?
2933
2934

2935
2936
2937
2938
2939
2940
2961
2942
2943
2944

30A(1052)

ADR:

MOV

RT]

2(>%) FSAVPW

;

READ PRIORjTY

RETURN T0 (ALLER

viv VISUAL

MACY11

TESYS

TVVIBA,SRC

06-SEP-79 15:28

3C0A(1052)

2949
2950
2951
2952

S0 Vo&

LSBTTL

Sto 0072

RING TTY BELL

CALLING SEQUENCE:
JSR

FC.BELL

INPUT PARAME TERS:
NONE

IMPLICIT

INPUT PARAMETERS:
THE SWITCH REGISTER MUST
SET UP

017
017
017334
0°7
017
017

032777
001401

000207
004737

112737

004737

000040
017434
000007
017634

177252

177566

BELL:

BELLT:

HAVE

BEEN

OUTPUT PARAMFTERS:
THE TELETYPE
APPROPRIATE

BELL

wiiL

IMPLICIT OQUTPUT PARAMETERS:

PUNG

2997

2999
3000
3001
3002
3003
30064

ROUTINE TO RING THE BELL ON THE CONSOLE
TERMINAL, [F BiT S IS SET IN THE SWIT(H

Ve Gs T
@e Bo ®c B¢ 8o e BeBe By Be e Ne B Be®e Ve Ve Vs Ve Bo Vo BV

2977

2998

e VeV

B2 Ve B

Vs 00 0e V5 V0

2956
2957
2958
2959
2960
2961
296?
2963
2964
2965
2966
2967
2968
2969
2970
297
2972
2973
2974
2975
2976

PAGF

DESCRIPT]ON-

o Ve Ve G0 Ve B

295%
2954
2955

2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2698
2996

06-SEP-79
15:27
RING TTy BELL

NONE

COMPLETION CODES:
NONE

POSSIBLE

ERROR

(ODES:

NONE

Bl
Bea

#40,a5wR
BELL!

JSR

PC,TPREDY

;WAIT FOR PRINTER READY

PC,TPREDY

;WAIT FOR PRINTER READY,

RIS

MOvB

JSR

#7,1PB

ViV VISUAL
CVVIBA.SRC

3005
3006

MACY1T
TESTS
06 -SEP-79 15:23

01735
017362

11273/

000207

000000

30A(1052)

06-SEP-79

RING

177566

TTy

15:27

I
6
PAGE 43-1

SEQ 0073

BELL

movs
]IS

#0,7PB

:PRINT NULL

;60 out

viv VISUAL TESTS
MACY11
CVVTBA,SRC
06-SEP-79 15:23

15:27

SEQ 0074

ILLEGAL VECTCR TRAP (AT(H

DESCRIPTION:
TRAPS

LSBTTL

IL' EGAL

REPORTED HERE.

VECTORS wiLL

T
T
IR

LINE CODE FROM WHICH THE TRAP OCCURRED.

A PROGRAM RESTART

1S THEN PERFORMED,

UNLESS A NEW TEST HAS BEEN SFLECTED
WHILE RUNNING UNDER
SWITCH REGISTER.

A SOF TWARE

ENTRY POINT
ILLvEC

INPUT PARAMETERS:

ENTRY

VECTOR

IMPLICIT

]S CAUSED BY AN ILLEGAL
TRAP

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:
THE VECTOR AND MAINLINE
wiLL BE PRINTED

ADDRESS

3046

3047
1048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
LY
3063

THE VECTOR TO WHICH

THE TRAP OCCURRED WlcLlL BE PRINTED
AS WELL AS THE ADDRESS IN THE MAIN

PAGE 44

ILLEGAL VECTOR TRAP (AT(H

3008
3009
3010
3011
3012
3013
3014
3019
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045

3CA(1052)

06-SEP-79

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION (ODES:

A PROGRAM RESTARY OR A NEW
TEST

POSSIBLE

SELECTION

ERROR (ODES:
NONE

MACY1Y
06-SEP-79 15:23

viv VISUAL TESTS

CVVIBA.SRC

3064
3065
3066
3067
3068
3069

3070
3071
3072
3073
3074
3075
076
3077
3078
3079
3080
3081
3082

30AC1052)

06=SEP=79
15:27
PAGE &&-1
JLLEGAL VECTOR TRAP (AT(HM

SEQ 0075

SA TRAP TO AN UNRELOGNISED VECTOUR WiLL
:BE REPORTED FROM MERE.

017364
017370
017372
017374
0174600
017404
017410
017412
017614
017416
017622
017424
0176320

004737
015376
012600

021172

004737
004737
015430
005726
012600
004737
005726
004737
000137

021262

162790

000004

021172

021262

017704
001200

JLLVEC:

JSR

PC,T1YPOUT

SuB

26 ,R0

ILVMSG
MOV

JSR

JSR
fRMANSG

(SP)+ RO

PC,PROCT

PC,TYPOUY

157

(SP)+

JSR

PC.PROCT

JSR
JAP

P{.MONIT
RSTART

MOV
191

(SP)+ RO
(SP)+

:PRINT VECTOR
:PRINT MAINLINE

ADDRES

viv VISUAL
CVVIBA,SRC

MACY11

TESTS

06-SEP-79 15:23

30AC1052)

06-SEP=79

LSBTTL

WALIT FOR PRINTER READY

JE:

IS READY

TO PRINT THE NEXT

CALLING SEQUENCE:

CHARACTER.

NONE

IMPLICIT

INPUT PARAMETERS:
NOnt

OUTPUT PARAMETERS:
NONE

IRPLICIT OUTRUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE

ERROR

CODES:

PC,TIFREDY

INPUT PARAMETERS:

Ve B B By

80 e Vs Vo Bh B Bo Ge Bo 80 5006 8000 B B9 B0 V) Se B0 By

B, We

JSR

NONE

b
il
i
sl Al
)
D
s
D
D
el
B
)
il
i
il
D
)
i il Al
el el

AMINANINURIPNONININIRNONININ)
bt =t b ed et el et et 2 0 O O
NN 2 OO0
YO NS WA= O OBV
NS W —2O O

AV IV LV IV LV IV IV LV [V LV LV LV LV IV LV IV LV LV JV LV JV ]V [V ]

SEQ 0076

ROUTINE TO WAIT UNTIL THE PRINTER
ON THE CONSOLE TERWMINAL 1Y READY,

3097
3098
3099
3100

DESCRIPTION:

3093
3094
3095
3096

—

PAGE &5

WAIT FOR PRINTER READY

3084
3085
3036
3087
3088
3089
3690
3091
3092

(VAT

15:27

017634
017440
017442

105737
100379

000207

177564

iPREDv: 1518
BPL

RIS PC

1PS

TPREDY

;ROUTINE 10 WAIT FOR PRINTER READY

viv VISUAL TESTS

CVVIBA.SR(C

MACY11

06-SEP-79 15:23

30A(1052)

06-SEP-79

SET

15:27

ITERATION COUNT

3135
3136
3137
3138
3139
3140
3161
3142

:
:
:
;
:
.
;

DESCRIPTION:

3147

RG.

3143
3144
3145
3146

LOBTTL

:
:
.

3152
3153

:
;

3151

g}gg

3156
3157
3158
3159

:
:
:
:

g}b?

3162

3163

3166
3167
3168

CALLING SEQUENCE:
JSR

INPUT PARAMETERS:
R4 CONTAINS THE PROPOSED ITERATION
COUNT
IMPLICIT

INPUY

PARAMETERS:

SETTING BIT 13 IN THE SWR WILL

WwitlL BE REQUESTED

FAST

JTERATION,

3174

3176
3177

H
2

3179

3180
3181

:
s
.

3183

POSSIBLE ERROR CODES:

NONE

3178

3182

3184

3185

5186

3190

COMPLETION CODES:
NONE

017444

032777

020000

177132

NONE

35187

3188
3189

JMPLICTIT OUTPUT PARAMETERS:

3175

INDICATE

PASS

R¢ WILL CONTAIN THE ACTUAL ITERATION
COUNT

3172

3173

AND A SINGLE

QUTPUT PARAMETERS:

:
:

37N

PC,FASTSW

;
;
:

3169
3170

JTERATION (OUNT

THEN UNLESS BIT 13 IN THE SWITCH REGISTER
1S SET, THE SAME VALUE ]S RETURNED.
IF BIT 13 1S SET THEN FAST JTERATION IS
ASSURMED AND A VALUE OF 1 IS RETURNED IN

3164

SeEQ 0077

ROUTINE 70 SET UP THE TEST ITERATION
COUNT, A PROPOSED CCUNT IS SET IN R&

:
:
:
:

5148
3149
3150

SET

PAGE 46

FASISW: BIT

#20000,95wR

15:27

06-SEP-79
MACY1T 30A(1052)
SET ITERATION (OUNT
06-SEP-79 15:23

viv VISUAL TESTYS
CVVIBA.SRC

b33
3192
3193
3194

017652
017454
017456
017462

001001
000207
013704
000207

BNE

016616

1%:

RTS
MoV
RTS

FSTONT ,R&

PAGE 46-1

SEQ 0079

5:27 PAGE &7
06-SEP=79
viv VISUAL TESTS
MACY1 30A(C1092)
TRAP SERVICE ROUTINE
(VVIBA,SR(
06-SEP-79 15:2%
!
.SB*TL

3196

SEQ 0079

TRAP SERVICE ROUTINE

DESCRIPTION:
TRAP WANDLING ROUTINE.

THE

TRAP HANDLER

ENTERED UPON THE EXECUTION OF ANY TRAP
INSTRUCTION. 1T COMPARES THE LOWER BYTE OF TME
TRAP INSTRUCTION WITH THE CONTENTS UN THE SWiT(H
REGISTER, AND IF A MATCHM IS FOUND TAKES THE CONTENTS
OF THE ADDRESS FOLLOWING THE TRAP INSTRUCTICN AS THE
RETURN ADDRESS.

THE EXPECTED FORMAY

IS:

TRAP+N
ADDR

WHERE ADDR IS THE ADDRESS TO PROCEED TO IF N MATCHES
THE SWITCH REGISTER SETTINGS. THE TRAP ARGUEMENT [S
RELATED TO THE SWITCH REGISTER SETTINGS THUS:
TRAP ARG

SWR

0,
0.
0e
®.
®e
®e

S TR T
P
T YR Y PUr S R

400

10
20
30
«0
50
60
70

1000
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.

IF A CNTRL=G 1S OUTSTANDING ON THE CONSOLE TERMINAL

WHEN THE TRAP WAS EXECUTED, THEN MONIT IS CALLED.
CNTRL=0 WAS OUTSTANDING THEN MODIFY IS CALLED

T
U Gy
S SR ST

SETTING

200

P T
PS

3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
32N
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
5233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251

ENTRY POINT
TRAPSY

INPUY PARARETERS:

MACY1Y
VIV VISUAL TES'S
06-SEP=-79 15:23
CVVIBA,SRC

3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3.78
3279
3280
3281
382
3283
3284
3285
3286
3287
3288
3289
3290
32N
3292

3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
5307

30A(1052)

06-SEP-79

TRAP

SERVICE

15:27

ROUTINE

PAGE 47-1

ON EXECUTION OF

IMPLICIT

ANY TRAP INSTRUCTION

INPUT PARAMETERS:
THE

OUTPUT

Sea 0080

SWR HAS BEEN SET

PARAME TERS:

EXIT TO THE CONTENTS OF

THE ADDRESS FOLLOWING

THE TRAP [NSTRUCTION IF A MATCH WAS FOUND, ELSE THE
PROGRAM WILL CONTINUE FROM THE ADDRESS AFTER THAT.

IMPLICIT OUTPUT PARAMETERS:
NONE

(OMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

512
516

004737
011600
016037
105737
100015

020076

120027

000017

127776
177560

004737

020444

001003
0046737

021522
000C07

017704

177040

000020

554

TRAPSY:
016620

006000
000300

MOV
MOV

1518
BPL

JSR
(mMPB
BNE
JSR

3%:

(mPB
BNE
JSR
Mov

BI18

BNE

. SAVE REGS

=2(R0)
, TRPARG

;GET TRAP CALL
;LOOK FOR MONITOR CALL

(sP),RO

'KS

kA )

FC.READ

RO, #V7
1%

PC,MODIFY

3%
RO, #7
33
PC,MONIT
SSWR, TRPSEL

#20,TRPSEL
TRPSCP
TRPSEL
, TRPREN

:lg 17
:N

(NTRL-0 ?

;YES CALL MODIFIER ROUTINE

1S 1T CTRL-G?

;YES, GO TO SWR MONITOR
;lgsll PRESERVE

SCOPE

M ]

sNO SO SAVE SWITCH SETTING
;GET IT SO WE CAN (OMPARE

BeaQ

1°PLP

;NO

8118
TRPS(CP:

PC,SAVREG

#170777,TRPHEN

MOV

016622
170777
000016

016620

JSR

MOV

ROR
ROR
SWAB

#16,TRPSEL+1

TRPARG,RO
RO
RO
RO

s ANY

SCOPE

LEVELS SET

JYES

;GET TO POSITICN FOR COMPARE
;FOR 10 § ABOvVe

;ONLY FOR SCOPE BIT1S(9=-11)

viv VISUAL TESTS

CVVIBA.SR(
3308

3309
3310
3311

3312
3313
3314

017614

0&2700

017624
017626

001422
013700

017620
017632
017634
017636

3319
3316

017640
017044

3320
3321

017664
017670

3317
3318
3319

3322
3323
3324

MACYTY

06-SEP=-79 15:23%

020037

006100
006100
000300

142700
142737

017652
017656
017660

130037
001005
004737

017672
017676
017702

004737
017616
000002

062716
000002

30AC1052)

06-SEP=-79

170777

016626

000371
000370
016520

020174

000002
)

020174
000000

TRPLP:

01662C

PAGE 47-¢

SEQ 0081

81C

#170777,R0

:ARGUMENT SCOPE BITS

BEQ
MOV

TRPBAK
TRPSEL RO

;YES, 6N BACK
,NO, TEST LOOP

016622

15:27

TRAP SERVICE ROUTINE

RO, TRPMENM

ROL
ROL
SWAB

RO
RO
RO

8118
BNE
JSR

RO, TRFARG
TRPBAK
PC,RSTREG

8l(8B
BICB

ADD
RT1

TRPBAK: JSR
MOV
RT1

A SELECTED ?
;FOR BITS 788

#371,R0
#370,TRPARG

:CUT OUl Sw06;ONLY SWITCHES 7 OR 8 NOW

#2,(SP)

:NO SCOPE OR LOOP,SO RUN
sPAST ARGUMENT AND RETURN

FC,RSTREG
a(SP), (SP)

ANY SELECTED ?
JYES

;RESTORE REGS
;RETURN ADDRESS TO STACK
;EXIT, LOOPiING

ViV VISUAL TESTS
MACYYY
CVVIBA.SRC
M-SEP-79 15:23

30A(1052)

06-SEP-79

15:27

PAGE 48

SEQ 0082

SWITCH REGISTER MONITOR

DESCRIPTION:

SWITCH REGISTER MONITOR.
CALLED BY AN ERROR
wiTh SWR BIT 15 CLEAR, OR BY TYPING CTRL-G
ON ThE CONSOLE TELETYPE.
IF USING HARDWARE
SWR, SIMPLY ASKS FOR CTRL-C TO CONTINUE.
OTHFRWISE, 1T PRINTS THE CURRENT
(CNTENTS OF

THE SOFTWARE

fOLLOWED BY A PROMPT

(>).

LWITCH REGISTER,

(4E NEW SWIT(CH

REGISTER SETTINGS SHOULD THEN BE ENTERED AS
AN OCTAL NUMBER, TERMINATED v CARRIAGE RETURN.
TYPING CARRIAGE RETURN ALONE WILL CAUSE THE
SWITCH REGISTER CONTENTS

TO FEMAIN UNCHANGED.

1f THF SWITCH REGISTER IS UP.ATED TO SELECT

A TEST (BIT 6 SET) THE NEW TEST WiLL BE
ENTERED IMMEDIATELY.
CALLING SEQUENCE:

®e

NV,

LSBYITL

JSR

PARAMETERS:

THF

BY TYPING CNTRL-G DURING THE
TESTS.

RUNNING

IMPLICIT

INPUYT PARAMETERS:

MUST

THE SOFTWARE SWITCH REGISTER,
HAVE BEEN SET UP.

BEING USED

Ve
B
o

1f RIUNNINC UNDER SOf TWARE SWITCH REGISTER MODE

A NEw SETTING OF

THE

SWR COULD HAVE BEEN SET UP.

NONE

COMPLETION CODES:
NONE

B
Ve
B4

IMPLICIT QUTPUT PARAMETERS:

POSSIBLE ERROR CODES:

®s
® e

3367
3368
3369

OUTPUT PARAMETERS:

3362
3363
3364
3365

INPUT
OF

PC,MONIT

NONE

1
MACYIT
VIV VISUAL TESTS
CVVIBA.SRC
06-SEP-T79 15:23

3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3396
3395
3396
3397
3398
3399
3400
3401
3402
3403
3406
3405

017704
017706
017714
017716
017722
017724
017730
017734
017740
017744
017750
017754
017756
017762
017770
017772
017776
020002
020004
020010
020012

010046
023727
001430
004737
015642
013700
004737
012700
004737
004737
0057%7

001413
010037
032737
001405
000137
004737
000775
004737
012600
000207

016604

30AC1052)

177570

0Q6-SEP=79
15:27
PAGE 48-1
SWITCH REGISTER PONITOR

ON]T:

cne

BEQ

021172

JSR
SWRMSG

016606
021262
000076
021250
020272
016636
016606
000100

MoV

JSR

MOV

JSR
JSR
187
BEQ

MOV

016606

001232
020014

MON]ITA:

021136

MONITX:

Bl
BEQ
JMP
JSR
JSR

MOV
RTS

RO,-(SP)

SWR, #HSWR
MONITA
PC,TYPOUT

7
SEQ2 0083

;SAVE RO

:HARDWARE

SWR?

;1F YES, GO TO END

;SMWR=

SSWR,RO

PC,PROCT

#76,RO
PC,PCHR
PC.OCTIN
RAND
MONITX
RO,SSWR
#100,SSwR
MON]TX

START?

PC,TYPCTC
MONITA
PC,CRLF
(sP)+,RO
PC

;GET NEW SETTING
;ANY

INPUT?

;YES UPDATE

SSWR

STEST SELECTED?

;YES GO DO 17
sCTRL=C TO CONTINUE

;RESTORE RO

ViV VISUAL

CVVIBA.SRC

MACY11

TESTS

06-SEP-79 15:23

3407
3408
3409
3610

30A(1052)

06-SEP=79

WAIT

PAGE 49

15:27

FOR CNTRL-C

WALT

SEQ 008¢

FOR CNTRL-C

LSBTYTL

DESCRIPTION:
ROUTINE TO WAIT FOR THE USER TO TYPE
CNTRL=-C ON THE CONSOLE. IF CNTRL=0 [S HIT MODIFY
IS CALLED, AND IF CNTRL=G IS HIT MONIT [S CALLED.

LLELETE EEFERRErE

O ~NO NS N OO
~NO NS W

®s

3611
3412

1F NONE OF THESE ARE HIT, THE ROUTINE WILL RETURN

TO THE NEXT

LOCATION AFTER THE

CALL.

CNTRL=-C

WAS

THE ROUTINE WILL RETURN TO THE NEXT LOCATION+?.

HIT

CALLING SEQUENCE:

PC,TYPCTC

JSR

INPUT PARAMETERS:

NONE

INPUT PARAMETERS:

IMPLICIT

IS REQUESTED FROM ThE

C(ONSOLE

INPUT

PARAMETERS:

OUTPUT

1S CORRUPTED

IMPLICIT OUTPUT PARAMETERS:

NONE

COMPLETION CODES:

020014
020020
020022
020026
020032

0047537
015607
004737
020027
091005

021172
020444
000003

CALL

POSSIBLE

A RETURN TO THE
IS PERFORMED.

ERROR

FIRST

SECOND LOCAT]ON AFTER

rr"zS:

NONE

YPCTC:

QEx]1T:

JSR

PC,TrPOUT

:PRINTS TYPE (TRL/( WHEN READY

JSR
(mp

PC,READ
RO, #3

;CTRL/C ENTERED

REDMES

BNE

QEX1T12

;NO
-t~

3458
3459
3460
3461
3462

[

TR
IRTR
IRIR

TYET

THE

MACYIT

viv VISUAL TESTS

CVVTIBA.SRC

3463
3464
3465
3466
3467
3468
3469
3470
3671
3472
3473
3474
3475

020034
020040
020044
020046
020052
020054
020060
020062
020066
020070
020074

06-5eP=79 15:23

004737

062716
000207
020027
001003
004737
000755
020027
001366
004737
000747

30AC1052)

06-SEP=79
15:27
WAIT FOR CNTRL-C

0c1136
000002

000017

JSR

:
:

021522
000007

017704

aExIty:

ADD
R1S
(mp

BNE
JSR
BR
cme
BNE
JSR
BR

PAGE 49-1

PC,CRLF

#2,(5P)
P(

RO,#17
QEX113

PC,MCDItY
TYPCTC

RO, #7
QExIT

PC,MONIT
TYPCTC

7
5EQ 0085

JYES SO JUMP OVER NO FIND RETURN
;60 BACK
P
;ONTRL=-0 ?

;N
:NO

sYES CALL MODIFY PROGRAM
:THEN GO BACK TO START
;CTRL-G?

;GO T0 SWR MONIIOR
;L00K FOR CTRL=( AGAIN
’
-

VIV VISUAL TEST'S

CVWVIBA.SRC

MACYI11

06-SEP-79 15:23

30A(1052)

3477
3478
3479
3480
3481
3482

0G6-SEP-79

SAVE REGISTERS
:
;
:
.
:

34483

3484
3485
3486
3,87
3488
3489
3490
3491
3492
3493

.
:
;
.
:
:
:
:
:
:

3(C,

2/,95
24696

:
:

:
:
:
:
:
:
;

3497
3498
3499
3500
501
3502
3503

15:27

g;gg

;

3506

LSBTTL

PAGE 50

SEQ 0086

SAVE REGISTERS

DESCRIPTION:

ROUTINE TO SAvt ALL THE GENERAL PURPOSE
REGISTERS ON THE STACK, AND LEAVE THE ADDRESS OF TME
CALLING ROUTINE ON THE STACK. THE WOUTINE WILL RUN AT
PRIORITY 7 T0 AVOID ANY [NTERRUPTS
CALLING SEQUENCE:
JSR
INPUT

PC,SAVREG

PARAMETERS:

NONE
IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

REGISTERS O THRU S ARE SAVED ON THE STA(K

3507
3508

:
;

AND THE RETURN ADDRESS OF THE CALLING ROUTINE
SET AS THE LAST ENTRY ON THE STACK

3512
3513
3514

;
:
:

IMPLICIT OUTPUT PARAMETERS:

3509
3510
3511

:
;
:

’

3515
3516
3517

:
:
;

3519
3520

NONE

COMPLETION CODES:

3518 -

R
;

NONE

3522

POSSIBLE ERROR CODES:

35295

NONE

3523
3524

3526
3527

3528

3529
3530
3931
3532

:
:

.
:

SAVREG: PSWREA

020076

020106
020122
020126
020132

012637
012637
010546

016626
016630

PSWSET
MOV
MOV
MOV

SA\SIA

#34C
(SP)e+,SAVP(
(SP)+,SAVP(N
RS,-(SP)

:SAVE PC FOR RETURN FROM THIS ROUTINE

ViV VISUAL
CVVIBA,SRC

3533
3534
3535
3536
3537
3538
3539
3540
3561
39542
3543
3544

MACY1Y
06-SEP-79 15:23

TESTS

020134
020136
020140
020142
020144
020146
020152
02C156
020172

010446
010346
010246
010146
010046
013746
013746

000207

016630
016626

30AC1052)

06-SEP=-79
19:27
SAVE REGISTERS
mov
Mov
MoV
MoV
MoV
MoV
Mov

PSWSET
RIS

PAGE 50-1

SEQ 0087

RG4,=-(SF)
RS,-LSP)
RZ,-(SP)
R1,-(SP)
RO.-(SP)

SAVP(1,-(SP)
SAVP(,=(SP)
SAVSTA

;PUT PC READY fOR
;RETURN

VIV VISUAL TFSTS

tVVIBA,SR(C

MACY11 30AC1052)

06-SEP=-79 15:23

3546
3547
3548
3549
3550
3551
3552
3593

06-SEP-79

RESTORE REGISTERS
:
;
;
)
;

;
;

gggg

35%6
3557
3558
3559
3560
3561
3562
3563
3564
3565

.
:

;
:
:
;
:
;
:
H

3566

3567

3568
3569

:
:
:
:
:

3570
3571

3572

357%
3874

RESTORE REGISTERS

:
:
:

WAS WHEN SAVREG WAS CALLED.
CALLING SEQUENCE:
JSR

PC,RSTREG

INPUT PARAMETERS:

NONE

IMPLICIT INPLT PARAMETERS:
NONE
OUuTPUT PARAMETERS:

NONE
COMPLETION CODES:

NONE

3589
3586

POSSIBLE ERROR CODES:

3588
3589

:
:

NONE

RSTREG: PSWREA
PSWSET
Mov

SAVSTA
#340
(SP)+,SAVP(
(SP)+,SAVP(1

3590
3591

3692
3567
3594

3595
3596
1597
3598

3599

3600

3601

020174
020204
(020220

020224
020230
020232
02023«

:
;

012637
012637

020236

012600
012601
012602
012603

020242

012605

020240

012604

016626
016630

SEQ 0088

RESTORE TO RESTORE THE GENERAL PURPOSE
REGISTERS. THE STACK IS LEFT IN THE SAME STATE AS

31587

DESCRIPTICON:

IMPLICIT OUTPUT PARAMETERS:

2
:

3584

3578
3579

1583

RO THRU RS RESTORED

3575

3580
3581
3582

.SBYITL

PAGE S1

S
:

gg;g

15:27

MOV
MOV
MoV
o]
MOV

MOV

(SP)+,RO
R
(SP)+
(SP)¢,R2
(SP)+,R3
(SP)+ R4

(SP)¢+,RS

3602
3603
3604
3605

0/°0246
020250
02025«
020273

MACY1Y

06-SEP-79 15:23
013746
0137646
000207

016630
016626

30AC1092)

06-SEP-79

15:27

RESTORE REGISTERS
nov
mov
PSWSET
RIS

PAGE 51-1

SAVP(1,-(5P)
SAVP(,=(SP)
SAVSTA
PC

Sea 0089
;PUT PC READY FOR
;RETURN

vi¢ VISUAL TESTS

CVvIBA,SRC

viv VISUAL TESTS
MACY1T
CVVTIBA . SR(
06-SEP-79 15:23

30A(1052)

06-SE@~79

15:27

PAGE 52

Sea 0090

ENTER AN OCTAL NUMBER

3607

ENTER AN OCTAL NUMBER

LSBTTL

DESCRIPTION:

ROUTINE TO ENTER AN OCTAL NUMBER ON THE CONSOLE.
THE NUMBER ENTERED IS RETURNED IN RO, AND THE VALUE RAND

1S SET TCQ NON ZERO 1F

ANY (HARACTERS WERE ENTERED.

s Bs 8o BeBe
Ve o Ve Vo Ve

oo Vs BoGs

000 0e B0 90 8¢ 8081 80 Vs 8o

¢ 80 B0 ®0s 8¢ S5 B3 So 8o 8o ®3 Ss

e 8o S+

s Vo S

TYPING CARRIAGE RETURN, LINE FEED Ok ESCAPE WiiL
TERMINATE THE LINE BEING ENTERED.
RUBOUT WILL DELETE THE LAST CHARACTER ENTERED,

CNTRL=-U WILL RUBOUT THE WHOLE LINE,
WitL TYPE OUT THE CMARACTERS SO FAR
RAND WiLL BE SET TO NON ZERO IF ANY
WERE HIT AND RANDC WILL CONTAIN THE
CHRARACTER.
A

*''

WILL BFE

PRINTED

DETECTED AND A *'*'
ENTERED.

AND CNTRL-R
ENTERED.
CHARACTERS

TERMINATING

AN OVERFLOW CONDITION IS
INVALID

CHARACTER WAS

CALLING SEQUINCE:

JSR

PCOCTIN

INPUT PARAMETERS:
NONE

IRPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:
RO CONTAINS THE NUMBER ENTERED.
RAND=0 If NO CHARACTERS WERE ENTERED.

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

MACYI1 30A(1052)

viv VISUAL TESTS

CVVIBA.SRC
3663
3664
3665

06-SEP-79 15:23

016636

000060
000067

mov
nov

#60,L0WCHR
267 ,UPPCHR

: MINIMUM (HAR
: MAXIMUM (HAR

020470
016740

JSR
MoV
BEQ

PC,GETSTR
STRLEN,R!
TYPOTD

3671
3672

020320
020326

012737
012737

3680

020306
020312

020334

020340
0203464
020350

020352
020356
020360

020364

012737
012737

CO0SO037

004737
013701
001420

012702
112203
162703
000241

006300

3681

020366

3685
3686

020376 006300
020400 '050300
020402 005237

3682
3683
3684
S687

3588

020370
020372
020374
0206406

016546
000006
016736

016546
000060
.

0'6636

020410

001362

3692

020422

013700

016634

3696
3695
3696

020430
0206436
0206440

012700
004737
090137

000041
021250
020276

3689

3690
3691

3693

3697

020432
020616

020426

010037
004737

000207

MoV
MoV

CLR

01663~
02017¢

#OCTMSG,STRADD
#6,STRIEN
(NVFLG

; SET START ADDRESS OF STRING
: AND 1T7S SIIZE
: DON'T CONVERT T0 UPPER CASE
: GET A STRING
: IERO LENGTH ?
; YES

#OCTASG,R2
(R2)+,R3
#60,R3

;' NO GET START ADDRES OF STRING
: GET A CHARA(CTER
; PUT IN RANGE

ASL

: SHIFT OUT RESULT

ASL
BIS
INC

RO
R3,RO
RAND

: TIMES 8
, SET NEW BITS IN
; SET GOOD

MOV
TYPOT(C: MOVB
SuUB
e

B8CS
ASL
BCS

103417
006300
103415
005301

:SAVE THE REGISTERS
;CLEAR RO
:CLEAR FLAG WORD

020076

3677
3678
3679

SEQ 009N

ENTER AN OCTAL NUMBER

PC,SAVREG
RO
RAND

004737
005000
005037

3674
3675
3676

PAGE 52-1

OCTIN: JSR
TYPOTB: CLR
CLR

020272
020276
020500

3673

15:27

:
:

266
3667
3668

3669
3670

06-SEP-79

DEC

BNE

TYPOTD: MOV
JSR
MoV

RTS

TYPOTE: MOV
JSR
JMP

TYPOTE
RO
TYPOTE
R1

TYPOT(C

RO,TYPOTA
PC,RSTIREG

: C BIT SET ERROR
: TIMES &
: C BIT ERROR

- LOOP 1F MORE 10 COMt

: SAVE FINAL NUMBER
: RESTORE REGISTLRS

TYPOTA,RO

; GET RESULT

#41,R0
PC.PCHR
TYPOTB

: OVERFLOW
V. PRINT A
: THEN GO AGAIN

BACYYT
viv VISUAL TESTS
CVVIBA
. SRC
06-SEP-79 15:23

30A(1052)

06-SEP-79

READ

3699
3700
3701
3702
370°
3704
3705

SINGLE

15:27

PAGE 53

8
St0 0092

C(WARACTER

LSBTTL

READ A SINGLE (MARACTER

DESCRIPTION:

ROUTINE TO READ A SINGLE (MARA(TER
FROM THE CONSOLE. THE (HARACTER IS RETURN IN RO
AND HAS THE 200 BIT STRIPPED OFF.

JSR

D el o

(W AV LW RV LV LV JV JV ]V JV IV ]
NNNNNSNNNNNYN

CALLING SEQUENCE:

PC,READ

INPUT PARAMETERS:

d e

NONE

= OOV

NIR) cod vl

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:
RO CONTAINS

THE

(HARACTER READ

IMPLICIT OUTPUT PARAMETERS:
THE

(HARACTER

COMPLETION (ODES:
NONE

POSSIBLE

ERROR

(ODES:

NONE

374K
37495
3750

020444
020450
020452
020456
020462
020466

177560

013700
042700
004737
000207

177562
177600
021250

fiEAD:

1518

BPL
MOV

BIC

JSR
RTS

1xS

READ
1k8,R0

217760080

PC,P(CHR
PC

]S ECHOED ON THE

TERMINAL

ViV VISUAL TESTS

CVVIBA.SR(C
3752
3753
3754
3755
3756

3757
%758
3799

g;:?

3762

3763
3764
3765

2;29

MACYTT

06-SEP=-79 15:23%

30A(1052)

O06-SEP=-79

15:27

PAGE 54

ENTERING A CHARACTER STRING
LSBTTL
:
:
; DESCRIPVION:
:

SEQ 0093

ENTERING A CHARACTER STRING

:
:
;

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

ESCAPE, CARRIAGE RETURN AND LINE FEED ARE USED

;
;
:

INTERPTETED:

TO TERMINATE THE STRING. RUBOUT wiLL DELETE THE
LASYT CHAR'CTER ENTERED, (NTRL-U WILL PELETE THE
ALL

THE CH/QRACTERS ENTERED, AND CNTRL-R WILL ECHO

THOSE CMARACTERS ALREADY ENTERED.

3768

;

ON ENTRY THE FOLLOWING POINTERS ARE USED:

3770

;

STRLEN TO INDICATE

3769

3TN
3772
i;;s
4

3775
3776
g;;g

3779
3780

3781
3782
3783

;
;
:
.
;

STRADD TO INDICATE TME START OF THE (HARAZTER STRING

" CYNFLG SET TO CONVERT LOWER CASE TO UPPER (ASE
UPPCHR TO INDICATE THE HIGHEST CHARAZTER (OD*
LOWCHR TO INDICATE THE LOWEST CHARACTER CODE
ON EXIT THE
LOCATION STRLEN WILL INDICATE THE
NUMBER OF CHARACTERS ENTERED AND RANDC WILL CONTACN

;
.

:
;
:

THE

TERMINATING CHARACTER

AN INVALID CHARACTER WAS HIT A '2*

;
:
:
;

INPUT PARAMETERS:

3789
3790
3791
3792
g;gi

;
.
;
;
:

STRADD
STRLEN
UPPCHR
LOWCHR
CNVFLG

3795
3796

:
:

3797

3799

3798

3800
3801

JSR

PC,GETSTR

THE START ADDRESS OF THE STRING
THE NUMBER OF CHARACTERS TO READ
THE HMIGHEST (HARACTER (CODE ALLOWED
THE LOWEST CMARACTER CODE ALLOWED
TO INDICATE LLOWER TO UPPER CASE (ONVERSION

TMPLICIT INPUT PARAMETERS:
NONE

380%
380

: OUTPUT PARAMETERS:
;

3806
3807

3804
3805

:
;

IS PRINTED

CALLING SEQUENCE:

3784
3785
3786
g;gg

TS SIZE

;
;
:

STRLEN THE NUMBERS OF CHARACTERS READ
RANDC THE TERMINATING CHARACTER

[}

MACY11
VIV VISUAL TESTS
CVVIBA.SRC
06-SEP-79 15:23
3808
3809
3810
3811
3812
3813
2814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827

3828
3829
3830
3831
3832
3833
436
38,
383¢
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853

385¢
3855
3856
3857

3858
3859
3860
3861

3862
3863

30AC1052)

06-SEP-79

15:27

PAGE 54-1

SEQ 0094

EN TERING A CHARACTER STRING

IMPLICIT OUTPUT PARAMETERS:
NONE

(OMPELETION CODES:
NONE

POSSIBLE

020470
020474
020500
020504
020506
020512
020514
020520

004737
005037
013702
005001
105737
100375
013700
042700

020C76
016746
016736

GE TSTR:

177560

GE TCH2:

GE TCHY:

ERROR

15 PRINTED

JSR
CLR

PC,SAVREG
RUBFLG

TSTB

TKS

MOV
CLR

STRADD,R?
R1

BPL

GETCHZ

BIC

#177600,R0

MOV

177562
177600

CONDITIONS:

TxB,R0

INVALID CHARACTER

1S ENTEREL

S AVE REGISTERS
. CLEAR RUBOUT FLAG
; GET STARTING POINTER
; SET INTITAL LENGIH
:

ANY

TTY

;
:

WAS
NO

INPUT

: NO WAIT FOR [T
: GET CHARA(TER
. CLEAR RUBBISH

* CHMECK FOR CONTROL CODES
020524
020530
020532
020536
020542
020544
020550
020554
020556
020562
020566
020570
020574
020600
020602

020606
020612
020614

020027
001002
000137
020027
001102
000137
020027
001002
000137
020027
001002
000137
020027
001002
000137

020027
001002
000137

000015
021114
000012
021114

000033

1%:

3%:

021114
000177

5¢:

020742
000022

7%:

021040
000025

9%:

;

020027
002405

000140

RO,#15
1%
CHRFIN
RO, #12
3%

BN'

CHRFIN
RO, #33

JMP
CHp

CHRFIN

JMP

cmp
BNE

LlNE/CH

JMP
cmp

RO, #25

GET(H3

BNE

; WAS 1T <ESC>
» NO

RUBCHR
RO, #22
9%

JMP
me
BNE

<(R>

; WAS IT <LF>

RO,#177
7%

L INDEL

JMP

021010
s

120620
020624

cme
BNE
JMP
CmMp
BNE

RUBOUT

YES

CNTRL=-R

NO
YES

EXCO LiNE

CNTRL=V

NO
YES DELETE

LINE

1T LS NOT A CONTROL CODE (ME(K

FOR LiGALITY

GE TCHS:

(mP

BLT

RO,#140

1T LOWER CASE

15:27

PAGE 54-2

SEaG 0095

021074
016744

5%:

02107¢4

RO,UPP(HR

JMP

ILLCHR

JAP

B8LE

ILLCHR

GETCHG

LSS DO WE CONVERT

TO UPPER

cmp

3%:

b3
#40,R0
RO,LOWCHR
5%

000040
016742

(NVFLG

181

BEQ
BIC
cmp
BGE

016734

ENTERING A CHARACTER STRING

005737
001402
042700
020037
002002
00v137
020037
003402
000137

06-SEP-79

®e

020626
020632
020634
020640
020644
020646
020652
020656
020660

30A(1052)

YES STRIP 40 OFF

IS THE CHAR T00 SMALL

NO
YES

13 THE CHAR T00 816G ?

YES

ITS

RO,R3

SAVE

CHAR

MACY11
viv visuisl TESTS
CVVTIBA.SRC
06-SEP-79 15:23

JLLEGAL

; WE HAVE A LEGAL CHARACTER
020664
020666
020672
020674
020700
020704
020710
020712
020716
020720
020722
020726
020730
020734
020736

110022

000137

016746

GET(HG:

016740
021114

021250

187

RUBFLG

MOV
JSR
CLR
INC
d,1d

#57,RO
PC,PCHR
RUBFLG
R1
RY,STRLEN

CLR

BEQ

000057

021250
016746

MOV

3%:

BLE

JMP

MOV

JSR
MOVB

JMP

020506

1S RUBOUT SET

YES PRINT

CLEAR RUBOUT

FLAG

YES, FORCE A NULL
AND COMPLETE
RESTORE CHAR

CHRFIN

R3,RO

GETIHZ

*'/°

UPDATE CHAR COUNT
EgD OF STRING SEEN

PC,PCHR
RO, (R2)+

:
.

ECHO 17

SAVE

NO GET

TERMINATOR

IN BUFFER

ONE

: RUBOUT WAS HIT
020742
020744
020746
020752
020756
020760
020764

020770
020774
020776
021002
021004

005701
001002
000137
005737
001006
012700
004737
005237

116200

004737
005301
000137

RUBCHR:

021030
016746

000057
021250
016746

021250
020506

3s:

5%:

TS71

BNE
JMP
151
BNE
MOV
JSR
INC

MOVB
JSR
DEC

JMP

b1
LINDLI
RUBFLG
5%
#57,R0
PC,PCHR
RUBFLG

ANY

CHARACTERS

YES
NO

NO PRINT
SET

RUBOUT

-(R2),RO

GET LAST

GETZHZ

GET

PC,PCHR
R1

SET ALREADY

léSRUBOU1

TO RuBOuT

CHAR ENTERED

PRINT T
REDUCE COUNT

ANOTHER (HAR

RUBOUT LINE WAS HIT
021010
021014
021020
021024
021030
021034

012700
004737
012700
004737
004737
000137

000136
021250
000125
021250
021136
020474

LINDEL: MOV

#13¢,R0

#125,R0

THEN U

JSR

PC,PCHP

JOR
LINDLY: JSR
JMP

PC,PCHR
PC,CRLF
GETCHI

MOV

A *

START ON A NEWLINE
A GO BACK TO BEGINNING

~ N

»ro

021040
021044

. CNTRL=-R WAS HIT
O —
O ==

3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919

010003
005737
001406
012700
004737
005037
005201
020137
003403
005000
000137
010300
004737

000100
021136

LINECH: MOVB
JSR

#'a,(R2)

PC,CRLF

PUT

IN A TERMINATOR

>TART ON A& NEw LINE

VIV VISUAL TESTS
MACY11
CVIBA.SRC
06-SEP-79 15:23

3920

392
39z;
3923
gg%g

02150

021056
021062
021066
021070

013737
005037
004737

000000
000137

016736
01£{7%66
021172
020506

gg%g
3928

3909
3930
ggg;

30A(1052

06-SEF=79
15:27
PAGE 54-3
ENTERING A CHARACTER STRING

021066
38:

MOV
CLR
JSR

0
JAP

SEQ 0096

RUBFLG
PC, 1YPOUT

STRADD, 3%

GETCH2

021076

021100
021106
021110

004737

012700
004737
000137

021250

000077
021250
021040

ILLCHR: JSR

MOV
JSR
JMP

PC,PCHR

#'7,R0
PC.PCHR
LINECH

AND GET ANOTHER (MAR

3
: ECHO [T
"

PRINT A ?

;

THE ECHO LINE

: A TERMINATOR WAS FOUND

3935

021114

010037

016750

CHRFIN: *wv

RO,RANDC

3937

021124

010237

016740

MOy

R2.STRLEN

3938
3939

gggz
3936

021120

021130
021134

163702

004737
000207

016736
020174

SUB

JSR
RIS

. SAVE TERMINATOR

STRADD,R?

CALCULATE BYTE COUNT

PC,RSIREG
P(

: SET IT FOR RETURN

!
.

MACYYI1
ViV VISUAL TESTS
CVVTIBA,SR”
06-SEP-79 15:23

3941
3942
3943
3944
3945
3946
3647
3948
3949
3950
3951
3952
31953
3954
3955
3956
3957
3958
3959
3960
3961
3962
31963

30AC105¢) - 06-SEP-79
15:27
PAGE 55
CARRJAGE RETURN LINt FEED

SEQ 0097

CARRIAGE RETURN LINE

FEED

DESCRIPTION

®e

.SBTTL

®e

ROUTINE 10O DO A <CR> <LF> ON
TERMINAL

CONSOLE

THE

CALLING SEQUENCE:
PC,CRLF

JSR

INPUT PARAME TERS:
NON:

IMPLICIT

INPUT PARAMETERS:

NONE

3964
3965
3966

OUTPUT

3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3077

PARAMETERS:
NONE

IMPLICIT OUTPUT PARAMETERS:
THE

CARRIAGE

wiLl

PLACED ON A NEW LINE

COMPLETION C(ODES:
NONE

1978

3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996

POSSIBLE

ERRIR

CODES:

NON:

021136
021149
021145
021150
02115¢
021156
021162
021166
021170

010046
012700

004737

005000

004737
012700
004737
012600
000207

000015
021250

021250
000012
021250

CRLF:

MoV
MOV

RO, -(SP)
#15,7)

;PRINT

;DUMMY

JSR

PC,i

JER

PC,PCHR

(LR

[0}
JSR
MOV

RIS

#12,R0
PC,PTHR
(SP)+ RO
P(

A RETURN = LINE

FEED

viv vISUAL
CVVIBA.SRC

5997

TESTS

MACY11

06-SEP-79 15:23

30A('052)

06-SEP-79
15:27
PAGE 55-1
CARRIAGE RETURN LINE FEED

8
SEQ 0098

WMACYI1
VIV VISUAL TESYS
CVVIBA,SRC
06-SEP-79 15:23

30A(1052)

06-SEP=79

3999

PAGE 56

Sea 0099

MESSAGE

LSBTTL

PRINT AN ASCI] MESSAGE

CESCRIPTION:
TO PRINT

A STRING JF

ASCII

CHARACTERS IN THE CONSOLE TERMINAL. CERTAIN
CHARACTERS WITHIN THE STRING ARE INTERPRETED
AS

CONTROL

CODES,

THESE

ARE:

133
100

()
(@)

WILL GENERATE & <(R>,<LF>
WILL SIGNIFY END OF MESSAGE

THE ADDRESS OF THE MESSAGE STRING TO BE PRINTED
wiLL BE HELD IN THE LOCATION FOLLOWING THE CALL
T0

THE

ROUTINE,

IE:

ROUTINE

JS®

PC,TYPOUT

CALLING SEQUENCE:

B
s

ADDR

PC.TYPOUT

INPUT PARAMEBERS:
THE

THE ADDRESS OF
SUBROUTINE CALL.

THE

MESSAGE

STRING

FOLLOWS

IMPLICIT

INPUT PARAMETERS:

JSR

OUTPUT PARAMETERS:

NONE

IMPLICIT OUTPUT PARAMETERS:
SPECIFIED MESSAGE

COMPLETION CODES:

THE

NONE

POSSIBLE
TR

4000
4001
4002
6003
6004
4005
4006

15:27

AN ASCI]

)

ERROR CODES:
NONF

wlLL

PRINTED

4VIV VISUAL
(VVIBA,SR(

MACY1Y
TESTS
06-SEP-79 15:23

30AC1052)

06-SEP-79
PRINT

15:27

AN ASCI]

PAGE

96-1

Sea 0100

MESSAGE

6055
6056

6057

4058
40959
60¢0
6061
6062

4063

6064
6065
L066
4067
6068
4069

4070
4071
4072

021172
021176
021202
021206
021210
021214
021216
021222
021226
021230
021232
021236
021240
021242
021246

004737
017601
062716

020076
000000
000002

022700
001412
022700
001003
004737
000402
004737
005201
00C762
004737
000207

000100

111100

TYPOUT: JSR
PMSGY:

021136

021250

PMSGe:
PMSG3:

020174

PMSGe:

; SAVE REGS

#2,(SP)

:JUMP> OVER ARGUMENT

MOv
ADD
MovB
cmp

a(SP) R

(MP

#133,R0
PMS52

8tQ

000133

PC,SAVREG

BNE
JSR
BR
JSR
INC

JSR

RIS

eR1,RO
#10),R0
PMSGL

;R1

POINTS AT

;PRINT

;70 BY
-

THE

MESSAGE

UNTIL

;[ MEANS C(R-Lf

PC,CRLF

PMS53

PC,2CHR

R1
PRSI
PC.RSTREG

sRESTORE

SIRING

REGS

POINTED

WHI(H

END.

viv VISUAL TESTS
MACYYT
(VVIBA.SRC
06-SEP=-79 15:23
4074
4075
4076
&077
4078
4079

30A€1052)

06-SEP=-79
15:27
PRINT A (HARACTER
LSBTTIL

:
;
:
:
:

<080
4081
4082
<083

;

CONSOLE.

A (HARACTER

ROUT.NE TO PRINT A (MARACTER ON THE
RO (ONTAINS THE CHARACTER TO BE PRINTED

JSR

R LRI
RN T

;

4087

<088

INPUT

021260

004737
010037

000207

017434
177566

PARAMETERS:

IMPLICIT

INPUT

THE

C(HARACTER

TO BE

PRINTED

PARAMETERS:

NONE

OUTPUT PARAMETERS:
NONE

IMPLICIT QUTPUT PARAMETERS:
THE

P PRI
YRTR
IETR TR IE I TE

021250
021254

R LN

£106

PC,PCHR

RO CONTAINS

TRIEA LR TR Y T PR PR TN TI TN TR T

4089
4090
4091
4092
<093
4094
4095
4096
<097
<098
4099
£100
101
6102
6103
6104
4105

121

SEaQ 0101

CALLING SEQUENCE:

4085
4086

6119
6120

DESCRIPTION:

<084

4107
4108
4109
4110
G111
6112
6113
AR
6115
4116
6117
6118

PAGE 57

(HARACTER

SELECTED WiLL

COMPLETION CCDES:
NONE

POSSIBLE

ERROR

(ODES:

NONE

(HR:

JSR
MOV

RT1S

PC,1PREDY
RO, TPB

;PRINTER READY

PRINTED

nALY 1
ViV VISUAL TESTS
CVV1iBA,SRC
06-SEP-79 15 123

30A(1052)

06-SEP-79

NUMBER

LSBTTL

SeEaQ 0102

AN OCTAL NUMBER

B,
S
B

ROUTINE TO PRINT AN OCTAL NUMBER ON
THE (OMSOLE TERMINAL. RO CONTAINS THE BINARY
REPRESENTATION ON THE NUMBER THAT S TD BE

PRINAED.

CALLING SEQUENCE:

VRS

JSR

VLB

INPUT

PC,PROCT

PARAMETERS:
RO CONTAINS

THE

NUMBER

THAT

T0 Bt

V6T VL

PRINTED

Ve
Ve V0B
B Ve

6147
6148
6149
6150

NONE

o G

IMPLICIT OUTPUT PARAMETERS:

6154
4155

INPUT PARAMETERS:

NONE

OUTPUT PARARETERS:

60 B0

6151
6152
6153

THE NUMBER SPECI®IED wlLL Bt

e Ve

4156

PRINTED

6157
4158

6170
[ARA
G172
4173
4174
6175
«176
6177
4178

DESCRIPTION:

IRPLICIT

L1464
L1465
6146

Ve V.

COMPLETION CCDES:

NONE

B B

POSSIBLE

ERROR

C(ODES:

NONE

e
B

4159
6160
4161
4162
4163
L1164
6165
L1606
4167
4168
4169

PAGE

AN CCTAL

612%

6124
6125
6126
6127
6128
6129
6130
613
6132
133
4136
6135
613%
4137
4138
4139
6140
61410
6142
§143

15:27

021262
021266

004737
012701

112721
021272
021276 020127
021302 001373
000241
021304
021306
4
021310
021314 62702

040702

020076
016520
000040
016526

177770

000060

)]

PROCT:
PROCT:
PRCTIA:
PROCTZ:

JSR

PC,SAVREG

MOVB
(MP

#40,(RY)
R1,#OCTNUM+6

MOov

RO,R¢

ADD

#60,R2

MoV
BNE
LC

8lC

#OCTAUM, R
PROCT

:SAVE

#177770,R2

: SAVE REGS

;POINTER TC MESSAGE

SFPIL. WITH SPACES
;ALL DONE
:NO
;CLEAR AT START
(HARA

;CLEAR ALL BuTM BOTTOM 3 Bl
sNOw ASCIH

—

¢198
6199
4200
4201

110261

042700
001404
006000
006000
006000

000763
004737
016520
004737

000207

30A(1052)

Co=SEP-79

15:27

AN OCTAL

MOvB

003007

Bi(C
BEQ
ROR
ROR

PROCTS:

02n72
02017¢

ROR
BR
JSR
OCTNUN
JSR
RTS

PAGE 58-1

S€Q 0103

NUMBER

R2,-(R1)

#7,R0

PROCT3

PROCT?

PC,TYPOUT

PC,RSTREG
PC

STORE IT IN MESSAGE
;NOW C(LEAR BOTTOM 3 BITS
;ALL DONE

;ROTATE NEXT

02° 354
021360
021364
021372
021200
021404

004737
042700
012737
012737
012701
000737

PRNT3:

029G76
177000

002040
040C40

016523

016520
016522

JSR
81C

MoV
MOV
MOV

B8R

PC,SAVREG
#177000,R0
#2060,0CTNUM
#60040,0C TNUM+?
#OCTNUM+3
R
PRCT1A

3 BITS

;60 DO NEXT

s TYPE MESSAGE
JMESSAGE ADD.
RES5TORE

*ROUTINE TO PRINT LEAST $1G.9 B1TS OF

6197

021320
021322
021326
021330
021332
021334
021336
021340
021344
021346
021352

semimB
s
e

6179
6180
6181
6182
6183
(184
6185
6186
6187
4188
4189
6190
N
6192
4193
6196
6195
6196

MACY1Y
viv VISUAL TESTS
C(VVTBA.SRC
06-SEP-79 15:23

REGS

s CLEAR UNWANTER

;SET UP MESSAGE
;WiTH END CODE
;& POINTER

;JUMP INTO MAIN ROUTINE

;WITH POINTERS SET

ULV

)

06-SEP-79 15:27 PAGE 59
. MACY1Y 30A(1052,
PRINT A DECIMAL NUMBER
06-SEP-79 15:23

ViV VISUAL TESTS
CVVIBA.SRC

LSBTTL
N,

«203
6204

6205

6206
207

6219
4220
6221
6222

4223

6224
6225
6226
Q227
6228
6229
623%0
231
4232

4233
423
4235
4236
6237
4238
4«23%9
4240
G241
L&

6243

4258

&5
4255
4256
4257
«2%8

" ROUTINE TO PRINT A SIGNED, OR UNSIGNED
DECIMAL NUMBER ON THE LONSOLE. RO CONTAINS THE
BINARY REPRESENTATION ON THE NUMBER 10 BE PRINTED
CALLING SEQUENCE:

JSR
JSR

PC,BASET0
PC,BASMIO

FOR UNSIGNED
FOR SIGNED

INPUT PARAMETERS:

RO CONTAINS THE NUMBER TO BE PRINTED
IRPLICIT INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:
NONE

IAPLICIT QUTPUT PARAMETERS:
THE NUMBER SPECIFIED WwiLL BE PRINTED
COMPLETION CODES:
NONE

POSSIBLE ERROR (ODES:

NONE

®e

6247

ROUTINE TO PRINT A SIGNED DECIMAL NO.

®e

(248
€249
«250
4251
4252

K244
6245
6246

PRINT A DECIMAL NUMBER

DESCRIPTION:

N e 8 Se %a Be Se Be S Be e Se B4 e Ss 8o bo Be Be®s e Vo bebs boeBsbobebLWiBi 0o o0ttt

208
209
4210
&2\
L2112
6213
4214
4215
6216
217
428

SEG 0104

021406
021410
021412
021414
021622

BASMI0:

005700
100005

005400

112737
000403

000055

01653%0

181
BPL
NEG
mCve

ENTER WlTM 1T HELD IN RO
SIS 1T -yt
RO
.NO
BASE0
JYES SO MAKE ovE
RO
JPUT *=' [N MESSAGE
#55,BASEN
.60 90 1
BAS10A
ROLTINE

TO PRINT UNSIGNED Dt (1MAL NO.

W77
«278
4279

f#<>JMflNHUfiJb'V
OOW NNV~

021646
021452
0214654
021456
021462
021464
021470
021472
021474
021500
021502
021504
021506
021512
021516
021520

O
O NOUONO ~NON
O
s
O NNUWO
WO = = O 8 N~ M NN~~~

&276

021432
021436
021442

6263
6264
4265
4266
4267
4268
4269
4270
42N
L272
273
&274
6275

021426

6261
6262

., QOO = = OO
—=OQ —
=P OO ONOON
=
O » —OOMNNO WV

4259
4260

mA 11
06-5€P-79 15:2%

TESTS

(=4
o

viv VISUAL
C(VVTBA.SR(

000040
020076
016531

30A(1092)

016530

000012

002050

020174
021172

15:27

A DECIMAL

BASEN0: move
BASI0A: JSR
BASEA:

000040
016536

00001¢

06-SEP-79

mov
mOvB

AP
BNE
BASE'D- (LR
BASE 'B: Cmp
BLO
sus
INC

8R
BASE C: ADD

Mmove
"oV
BNE

JSR
JSR
BASE 11
RIS

PAGE

NUMBER

L
59-1

060,BASEY

PC,SAVREG

#BASE11+1,RS
#60,(R3)¢
902°C 1144 ,R}Y

RASEN1A
R1

RO,m12

BASE(

#12,R0
R1

BASEB

#60,R0
RO,=(RY)
R1,RO

BASE1D

P(C,RSTREG
PC,TYPOUY
PC

SEQ U109

;PUT SPACE A5 1S’

:SAVE REGS

SREST OF

MESSAGE

(HARA

W]TW SPACES

AL DONE
:NO
-

’

;AU IS RECEIVER
;MORE THAN 10
;'ES SO DONE THIS T]me
NG SO SUB 10 & ADD 1 TO RI

;G0 D0 AGAIN
;MAKE ASCI1

& STCRE

;RESTORE REGS

;TYPE MESSAGE
;ADDRESS OF MESSAGE

—

viv VISUAL TESTS
MACYYY
CVVIBA.SRC
06-SEP-79 15:23

30A(1052)

06-SEP-79

MODIFY

4281
6282
(28%
4284
4285
6286
4287
4288
4289

ROUTINE

322

632%
4324
6325
6326
4327
«528
4329
4330
4331
4332
4333
433
6335
«3%%

TO MODIFY

A LOCATION

IN MEMORY

Ve
Ve W
Ve B
Ve T
T,
Be B
0 Ve Ve

($)

AND PRINTS
ADDR

FOR AN ADDRESS

CONTENTS

IN YHE.FORH

TO EXAMINE

THEN A NEW VALUE

CAN BE

ENTERED

vls:
ADDR

CONTENTS

/ NEW VALUE

THE NEW VALUE (AN BE TERMINATED USING
cCR>, <LF> , OR <ESO>

10 EXAMINE [HE NEXT LOC
TO SELECT ANOTHER ACDRESS
10 EXI1T

CALLING SEQUENCE:

PROMPTS

JSR

4316
&317
4318
4319
4320
4321

PC.MODIFY

4315

THE PROGRAM

TERMINAL.,

6308
4309
&%10
631N
312
313
314

SEQ 0106

INPUT PARAMETERS:

4307

ENTERED BY TYPING CNTRL-0O ON THE CONSOLt

NONE

4297

4298
4299
4300
«301
4302
410
6304
4308
4306

MODIFY

DESCRIPTION:

GO WO 00 Bo We 8o 8o Vo Bs 8s B¢ Os

4294
4295
4296

PAGE 60

PROGRAM

.SBTTL

4290
6291

4292
4293

THE

15:27

IMPLICIT

INPUT PARAMETERS:

ENTERED BY TYPING (NTRL=-0 DUR:ING

THE RUNNING OF

THE

OUTPUT PARAMETERS:
NONE

TESTS

vIv VISUAL TESTS

CVVIBA,SRC

MACY1Y

06-SEP=-79 15:23

30A(1052)

4337

06 SEP=-79

MODIFY THE PROGRAW
:

ggg

;

&340

4361

6342

6363
6364
6345
4346

6347
6348
4349
6350
6351
0352
4353
356
355

2356
4357
4358
4359

4360
6361

:
:
:
;

004737

020076

:
:
.
:
:
:
:
MODIFY:

021536
021552
021556

004737
015654

021172

MODI1:

021564
021570

005737
001506

016636

021522
021526

021560

004737

020272

010037

016642
000001

4362
4363
6364
4365
6366
«367
4368
(309
4370
4371
4372
4373
43764
4375
4376
4377
4378
4379
4380
«381

021572
021576
021604
021606
021612
021614
02161v
021624
021632
021636
021642
021646
021650
021654
021660
021064
021670
021674
021700
021706

015765
000756
012737
012737
005037
005777
005737
001341
004737
013700
004737
012700
004737
017700
004737
004737

6383
4384

021712
021716

(382

4385

4386

021710

021722

0217264

4387
4388

021730
02173&

4390
4391
¢392

021742
021744
021750

4389

021736

15:27

9
b
PAGE 60-1

THE

'OCATIONS SPFCIFIED WILL

JSR
PSWREA

PSWSET
JUSR
MODADM
187
BEQ

FRROR (ODES:

PC,SAVREG
MODSAV

w340
PC,TYPOUY
PC,OCTIN

RAND
MODX17

021136
016642
021262
000040
021250
174742
021262
021172

MoDI
INXMIRP &
#340,6
TRPERR
sMODADR
TRPERR
MoD I
PC,CRLF
MODADR,RO
PC,PROCT
#40,R0
PC,PCHR
SMODADR,RO
PC,PROCY
PC,TYPOUT

004737
005737

020272
016636

JSR
181

PC,OCTIN
RAND

010077

174712

MoV

RO,S8MODADR

015661

001402

013700
001706

020027

001703
020027
001006

MODI2:

000004
0©00006

MODI3:

021172
022572
000340
016652
175000
016652

016750

000015
000012

MODSPA

BEQ
MOCI4:

NONE

JSR

016642

BEEN

NONE

MOV
BIT
1 30]
JSR
ODAMSG
BR
MOV
MOV
(LR
187
157
BNE
JSR
MOV
JSR
MOV
JSR
MOV
JSR
JSR

032737
001404
004737

MAVE

COMPLET|ON CODES:

POSSIBLE

RO,MCDADR
#1,M0DADR
MOD13
PC,TYPOUT

MOD1&

;SAVE REGISTERS

:PROMPT $& FOR AN ADDRESS
:T0 HAVE A LOOK AT
;READ REFLY
;ANYTHONG READ ?
:NO, SO EX]T

;ELSE SAVE OUR ADDRESS
;1S 1T EVEN ?
JYES WE CAN USE I7
;ELSE SAY 11 IS AN ODD
;ADLRESS, AND REPROMPIT
;:PLUG TRAP THRU &
:FOR NXM TESTS
sCLEAR NXM FLAG
;TEST QUR ADDRESS
;DOES 1T EXIST
:NO TRY AGAIN
;START ON A NEW LINE
;PRINT QUR ADDRESS

:THEN A SPACE
:AS A SEPARATOR
:THEN PRINT THE CONTENTS
;PROMPTY FOR THE NEW

:CONTENTS */!

;READ REPLY
;ANY THING GIVEN

:NO, DON'T UPDATE

;ELSE SET NEW VALUE

MOV
BfQ

~ANDC ,RO
MOD1 Y

: GET TERMINATOR
: NULL MEANS <(R>

BEQ
(MP
BNE

MODI1
RO,#12
MoD 15

YES GET NEXT ADDRESS
JWAS 1T «<LF> ?
:NO

(mp

RO,.”S

—

SEG 0107

IMPLYCLY OUTPUT PARAMETERS:
MOD1F
D

——

:WAS 1T <(R> ?

MACY] 1
ViV VISUAL TESTS
CVVTIBA.SRC
06-SEP-79 15:23

6393
6394
6395
4396
6397
4398
4399
4400
6401
4402
6603
6604

6405
6406
L4407

021752
021756
021764
021766
021772
021774
022000
022004
022006
022014
022022
022026
022042
022046

004737
062737
000704
020027
001405
012700
004737
000751
012737
012737
004737
004737

005207

021136

000002

30A€1052)

06-SEP-79

MODIFY

ADD

MOD15:

000077
021250
000006
000004
021136
020174

PROGRAM

JSR

016642

000033

THE

15:27

BR
cMp
8taQ
MOV

000004
000006

MODX]T:

JSR
BR
MOV
Mov

JSR

PSWSET
JSR
RTS

9
E
PAGE 60-2

PC.CRLF

#2 ,MODADR
MOD12
RO,#33
MODX11

"’7,R0
PC,PCHR

mND14

Sea 0108

: NEWLINE

;UPDATE THE ADDRESS By ¢
: THEN TRY THIS ADDRESS
SWAS

1T EXIT

;YES DISSAPPEAR
;ELSE GIVE A ¢

;AS AN ERROR
; THEN TRY AGAIN

"6 ,4

;PLUG BACK TRAP THRU &
;WITH WHAT IS WAS
;PUT OURSELVES ON A NEW LINE

PC,RSIREG

;RESTORE REGISTERS

#G,6
PC,CRLF
MODSAY
PC

:AND GO AwWAY

06-SEP=79

15:27

PAGE 61

9
Sea 0109

SET BUS AND VECTOR ADDRESSES
SET BUS AND VELTOR ADDRESSES

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

UNDER TEST. THE VALIDITY OF THE VAR]OUS ADDRESSES
ARE CHMECKED. THE ARGUMENTS AFTER THE CALL MUST BE SET

TO INDICATE THE NUMBER OF BUS AND VECTOR ADDRESSES AND
THE * _MBER OF PRIORITIES REQUIRED, AND THE LOCATIONS
WHEP. HE VARIOUS PARAMTERES ARE TO0 BE STORED
IT

CALLED THUS:

IEE

SBTTL

JSR

.BYTE
.WORD
.BYTE
.MORD
BYTE
.WORD

RS ,BUSSET

A,
(
D,E
f,G
h,J
K,

e
Ve
Ve
Ve
e
Ve
Ve
Ve
Ve
B
T
Ve
Ve
e
Ve
B
e
@i

4609
461\
0
4611
4412
L4613
W14
4415
4616
L6177
18

30A(1052)

WHERE A 1S EITHER 7

THERE ARE & OR LESS bUS ADDRESSES

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

AND SO ON. B IS THE NUMBER OF BUS ADDRESSES. ( 1S THE
ADDRESS INTO WHICH THE FIRST BUS ADDRESS WILL BE LOADED,

SUBSEQUENT BUS ADCRESSES WIL BE LOADED INTO THE LOCATION
FOLLOWING THE ADDRESS C.HENCE IF THERE A & BUS ADDRESSES
THE C MyST POINT TO A FOUR WORD BUFFER THAT WILL C(ONTAIN
THE & BUS ADDRESSES. D IS THE NUMBER OF VECTOR ADDRESSES
€ IS THE NUMBER OF PRIORITY (EVELS, AND IF THE VECTOR

1S T0 BE ON A 10 BYTE BOUNDARY, BIT 7
OF € MUST BE SET AS A FLAG. F IS THE ADDRESS INTO 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 E 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 VECTCR PAIRS AS REQUIRED. THE
SEQUENCE IS TERMINATED By SETTING H AND J TO ZERO

VIV VISUAL TESTS
MACY11
CVVIBA.SRC
06-SEP-79 15:23

(ALLING SEQUENCE:

JSR

RS ,BUSSET

INPUT PARAMETERS:
THE

ARGUMENTS

T0 SET

UP THE

ADDRESSES,

VECTORS A%D PRIORITIES MUST BE SET UP, AS DESCRIBED
ABOVE

IMPLICIT

INPUT PARAMETERS:

CVVIBA.SR(C

MACY11

06-SFP=-79 15:23

30A(1052)

9
G
15:27
PAGE 61-1
SET BUS AND VECTOR ADDRESSES
06-SEP-79

64465

NONE

LL66

G467
468
6669
.70
MG
W72
6473
4674
4475
L4676
W77
4678
La74

OUTPUY

L
IR

NONE

IMPLICIT OUTPUT FARAMETERS:
THE BUS AND VECTOR ADDRESSES WltL

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

BUSSET:

022050
022054
022062

004737
012737
012737

020076
022572
030340

022070
022074

012537
012537

016646
016650

022100
022104
02210¢
022112
022116

004737
015672
004737
005737
001004
004737
016252
000767

021172

BUSSE1:

020272
016636

1%:

022120
022124
022126
022130
022134

133700

016646

022136
022142
0221446
022150

004737
015765
00.737
000753

021172

022152
022156
022162
022166
022170
022172
022176
022200

005037

O~y

013702
010022
005710
005737
001362
062700

el
—

113701

021262
oo
[o Xo e

001406

000004
000006

021172

[«YeY=)

4493
4494
6495
4496
4497
4498
4499
4500
4501
4502
4503
45064
4505
4506
64507
4508
4509
4510
4511
4512
4513
64514
4515
6516
6517
«518
64519
6520

PARAMETERS:

BE SET UP AS SPECIFIED BY THE ARGUEMENTS

4480

4681
6L82
4483
4484
4485
4486
LB7
44,88
4489
4490
L4917
6692

SEQ 9110

01665¢
000002

2$:

BUSSTA:

BUSSEZ:

BUSSE3:

MOV
MOV

PC,SAVREG
INXMTIRP,&

#340,6

:SAVE REGISTER CONTENTS
;SET UP MEMORY ERROR TRAP

MOV
MOV

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

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

JSR
BAMSG
JSR
TS1
BNE
JSR
NODEFM

PC,TYPOUT

JSR

B118
BEQ

JSR
ODAMSG
JSR
BR

CLR

MOVB

PC,OCTIN
RAND

ADDRESS

s CHECK

INPUT

1IS....

:INPUT OCTAL ADDRESS

1%
MASK RO

BUSSE?

PC.TYPOUT
PC,PROCT

; INVALID ADDRESS

BUSSE

TRPERR

(RO)
TRPERR

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

#2,RO

;UPDATE TO NEXT ADDRESS

RI
MASK+1

BASADD,R?

BNE

BUSS1A

ADD

BUS

PC,TYPOUT

MOV
MOV

151
151

;FIRST

RO, (R2)+

{fe

Viv VISUAL TESTS

MACY1Y
viv VISUAL TESTS
CvviBA <SRC
06-SEP-79 15:23

H
9
15:27
PAGE 61-2
SET BUS AND VECTOR ADDRESSES

06-SEP-79

DEC
BNE
JSR
FIRVMS

BUSSES

. PROMPT FOR VECTOR GROUP
;GET NO GF

PC.,TYPOUT

(V1V}

021172
016646
016650

BUSS3A: mov

Mov

(RS)+ MASK
(R5)¢,BASADD

021172

BUSSE4:

PC,TYPOUT

020272
016636

1%:

JSR
VAMSG
JSR
1S1

BNE
JSR

021172

NODEF
PV

2%:

0166646

JSR
ODAMSG
BR

PC,TYPCUT

BUSSE4

BT
BNE

BUSSES

000007

022272
022276
022300

004737
015765
000752

021172

022302

022306

032700
001371

000003

022310
022314

€22700
002C04

000774

cmp
BGE

022316
022322
022324

004737
016010
000740

021172

JSR
OVAMSG
BR

022320

BUSSEG:

016646
010650

022332 °

022336
022340
022342
022346
022346

100000

#7,R0
BUSSEG

032700
001404

BUSSESG

BUSSE?7

PC.TYPOUT

BUSSE&

BASADD,R?

ADDRESS

:INVALID ADDRESS

;ADDRESS EXCFEDS 772
;SET UP COUNT
:SET UF ADDRESS BASE
;SET UP ADDRESS

#100000,MASX

012537

016647
016650

MOvB
Mov

MASK+1
R1
(RS)¢+ ,BASADD

022364
022370
022372
022376

005737
001403
012700
000416

017044

157

LSIFLG

MOv

6 ,R0

022400
022404
022404

004757
016037
013702

021172

016650

s CHECX

113701

;sCHECK MASK TYPE

BUSS10

022354
022360

BEQ

ADDRESS

; CHECK ADDRESS LESS THAN 772

RO,(R2)+¢
(RO)+,(RO)+

000004

1S....

#7746 ,RO

BUSS10:

BIC

; INPUT OCTAL

ADDRESS

s CHECK ADDRESS

MASK,R1

016640

VECTOR

#3,R0

BUSSE7: MovBe
MOV
MOV
CmMp
DEC
BNE

FIRST

BIT
BEQ

0222€«
022270

VECTORS

:GET BASE VECTOR ADDRESS

PC,TYPOUT

MASK

100097

BUSSES:

PC,OCTIN
RAND

BR
18T
BPL

022262

SEQ@ 0111

005303
001367
004737
01

6521
6522
6523
6524
4525
6526
6527
4528
4529
4530
453
4532
4533
4534
4535
4536
4537
4538
4539
4540

30AC1052)

BUS11B

‘o
PRMSG
MOV

PC,TYPOUT

BASADD,R?

;GET SASE PRIORITY ADDRESS
JSINGLE INT.LEVEL PROCESSOUR ?
;1F NOT THEN BRAN(CH AWAY,
JELSE SET PRIORITY LEVEL AT &
;THEN GO INSTALL
;FIRST

PRIORITY

IT.

LEVEL

IS...

VIV VISUAL
CvVviBA .SR(

«S7?7
4578
4579

4580
4581
6582
4583

658¢

4585

4586
4587
4588
4589
4590
4591
4592
4593
4594
4595

4596
4597
4598
4599

L&00
4601
4602
4603
4604

4605

4606
4¢07
4608
4609
«610
4611
4612
4613
4o14
4615
4616

4617
4618
4619
4620

MACYIT
06-SEP-79 15:23%

TESTS

004737
005737

004737
016165
000760
042700
000300
006200
006200
006200
010022

022470
022472

005301
001412

022474
022500
022502
022506

005737
001403
012700
000752

017044

022510
022514
022516

004737
016076
000735

021172

022520
022526
022526
022532
022534
022540
022544
002552

012537
001405
004737
015504
000137
010537
012737
012737

016646

022560
022564
022570

004737
013705
000205

020174
016646

022572
022576
022600
022604

004737
016135
005237

021172

101404

9
|
06-SEP-79
15:27
PAGE 61-3
SET BUS AND VECTOR ADDRESSES
BUSS11:

020272
016636

022412
022416
022422
022626
022630
022432
022434
022440
022462
022446
022450
022452
022656
022460
022462
022464
022466

001004
004737
016252
000767
020027

30AC1052)

021172

BUSIIB:

000007
021172

2%:

177770

JSR

157
BNE
JSR
NODEFM

cnp
BLOS
JSR
BADPR]
B8R
BIC
SWAB

MOV

BR
JSR
NPRMSG

022222
016646
000006
000004

BUSS1?2: MOV

BEQ
JSR

000004
000006

BUSS13:

RO, #7

PC,TYPOUT

BUSS1

BUSS1?

157

021172

BUSS11

DEC
BEQ

BEQ

LS:

PC,TYPOUT

MOV

ASR
ASR

NXTVMS
JMP
MOV
MOV
MOV

;INPUT OCTAL PRIORITY

BusS11B

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

ASR

000004

PC,OCVIN
RAND

SEQ 0117

;1S THE PRIORITY LEGAL ?
J1ES

;NO, RE-ENTER VALUE
;CLEAR UNWANTED BITS

;SET UP PRIORITY

LSIFLG
4%
#4,40

BuS:118
PC,TYPOULY

T
BUSS
(RS)+,MASK

BUSS13

PC,TYPOUT

BUS 3A

;SINGLE INT.LEVEL PROCESSCAR ?

. 1F

NOT

THEN BRANCH AWAY

ELSE SET UP PRIORITY AY &
;AND GO

INSTALL

IT,

SNEXT PRIORITY LEVEL
’

JERO MEANS END

; ELSE PROMPY FOR NEXT GROLP

RS ,PASK
T
2,4

MOV
RIS

JSK

PC,RSIREG
MASK RS
RS

JSR

PC.,TYPOUT

RESTOURE REGISTER

«621

4622
4623
6624
4625
4626
4627
4628
«629
630
6«63

000002

016652

NXMTRP:

NXMSG
INC
R1I]

TRPERR

IS....

;NON-EXISTANT

ADDRESS

VIV VISUAL TESTS
MACY11
CVVIBA.SRC
06-SEP-79 15:23

30A(1052)

06=-SEP=-79

15:27

NUMBER GENERATOR

4633

.SBTTL

4637
4638

DESCRIPTION:

6000
.

INPUT PARAMETERS:
R3 CONTAINS THE PATTERN NUMBER
~

NOWNE
NN —

R3=0

ALL ZEROES

ALL

ONES

010101

ETC BIT PATTERN

101010 ETC BIT PATIERN
ROTATING 1 IN A ZERO WORD
ROTATING O IN AN ALL ONE WORD
PSEUDO RANDOM NUMBER
GOOD
PATTERN,
DATA
INCREMENTING
CONTAINS THE VALUE TO BE UPDATED

IMPLICIT

INPUT PARAMETERS:
NONE.

OQUTPUT PARAMETERS:
THE NUMBER GENERATED
RO AND GOOD.

IMPLICIT OUTPUT PARAMETERS:

PC,GENER

JSR

COMPLETION CODES:

NONE

’

CALLING SEQUENCE:

L4674
4675
4676
4677
“678
4679
4680
4681
468°2
4683
4684
4685
468¢
«687
4688

ROUTINE TO GENERATE DATA PATTERNS,
THE TYPE OF PATTERN 1S SELECTED BY R3, AND THE
PATTERN GENERATED IS RETURNED IN RO AND LOCATION

4667
4668
4669
4670
671
4672
4673

4666

NUMBER GENERATOR

POSSIBLE

ERROR (ODES:

4664

4665

®@e

Lo647
464L8
4649
4650
4651
4652
4653
4654
4655
465¢
4657
4658
4659
4660
L661
4662
4663

LHL4

L6456

SEQ 0113

4639
L640
4641
46462
4643
(645

4636
4635
4636

PAGE 62

NONE

IS HELD

viv VISUAL
CVVIBA.SRC
4689
4690
4691
4692

4693
0694
4695
4696
4697
4698
<699
4700
4701
6702
4703
4704
4705
4706
4707
4708
4709
4710
7N
6712
6713
W14
&715
6716
«717
4718
4719

4720
721

4722
4723
47264
4725
4726
G727
‘4728
4729
4730
473
4732
4733
(734
4735
4736
&7%7
4738
473%9
6740
L7461
6742
4743
L44

MACYIT

TESTS

022506
022612
022616
022620
022624
022626
022630
022632
022634

022636

022640
022642
022646
022646
022650
022652
022654
022656
022662
022664
022670
022672
022674
022700
022702
022704
022710
022712
022714
022720
022722
022730
022734
022736
022740
022746
022752
022756
022760
022764
022766
0¢2772
023000
023002
023010
023014
023020

023024
023026
023030
023034
023036
023040

06-SepP-79 15:23%

042703
004737
006303

000173
022644
022650
022656

022664
022672
022702
022740
023060
005000
000507
005000
005100
000504
012700
000501
012700
000476
000241
004737
000472
000241
004737
005100
000465
006037
001003

012737
013700
000207

000001
012737
004737
013700
000443
013702
001002

013702
032737
001003
012737
013703
013702
033702
001405
005102
033702
001401
000402
0002461

30AC1052)

06-SEP-79
15:27
NUMBER GENZRATOR

éENER:

177770
020076

8i1C
JSR
ASL

02¢624

GENSEL:

JAP

GENO
GEN
GENS2

PAGE 62-1

#177770,R3
PC,.SAVREG

@GENSEL(R3)

GENZS

GENO:
© GENT:

052525

GENS?:

125252

GENZS:
GENR1:

022714

*GENRO:

022714

GENROT:

022736
100000

022732

000005
022760
016664

022736

000777
090001
016666
Cle66¢6
016670

016670

B8R

MOV

BR
cLe
JSR
BR
Lc
JSR
COM
BR
ROR

BNE

MOV

GENER1: MOV

RTS

016666

GENJ]SH: [
GENRAN: MOV
JSR

Mov

016664

016672

MOV

RANGEN:

B8R

MoV

BNE

016666
016666

RANT:

RAN?:

MoV

BNE

MoV
mov
MoV

8117
BEQ

(oM

BIT
BtaQ
BR
RANCLC: ¢

;ALL

JERO WORD

;ALL ONE WORD
;52 PATTERN
;25 PATTERN
;ROTATE
;ROTATE

GENR1
GENRO

GENRAN
GENINC
(LR
BR
CLR
COM
B8R

SEQ 0114 !

'1°
"0’

EACH (AL
EACH CALL

:RANDOM NUMBER

; INCREMENTING COUNT

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

:0>R0

PC,GENROT
GENEX

;SHIFT

PC,GENROT
RO
GENEX
GENISH

GENER

#100000,GENISH

gENlSH,RO
C

#5 ,RANSEL
PC.,RANGEN
RANDN,RO
GENEX
RANDN,R?
RAN1
RANST ,R2
#777,RANSEL

RAN2

#1 _ RANSEL

RANSEL ,R3
RANDN,R?
RANMTA
RZ
RANCLC

RANMTA
R?
RANCLC
RANSEC

;NOTCH>RO
:9252>R0

; 125252>R0
1

> RO

“SHIFT 0 > RO
1 PATTERN

:ROTATE
-0‘)

YES, SET MSB
"puT

IN RO

“AND EXIT

SSET SELECT VALUE 10 5
;GENERATE RANDOM NUMBER IN RO

1S RANDOM = 0

:YES, PUT RANDOM START vALUE IN
:NO; 'S RANSEL SELECT VALUE - O

:NO
sYES:

SET

RANSEL

;GET RZ2 <0 AND 1>

L7465
L7466

o767
(748
(749
4750
(751
4752
475%
L75¢
4755
(756

023042
023044
023046
023052
023054
023056
023060
023064
023066
023072
023076
0232102

000401
000261
006037
005303
001357
000207
013700
005200

010037
010066
004737
0002¢7

016664

016674
016674
000002
020174

30AC1052)

06-SEP=-79

NUMBER

15:27

GENERATOR

RANSEC:
RANG:

X:
RANE

GENINC:
GENEX:

8R
SEC

ROR
DEC
BNE

INC

JSR

RTS

PAGE 62-2

SEQ 0119

RANG

RANDN

;ROTATE

10 BI15

;1S THIS NUMBER REQUIRED?
:NO,

GET

ANOTHER

JYES, EX]T

kTS
Mov
MoV
MOV

RACY11
viv VISUAL TESYS
C(VVIBA,SRC
06-SEP-79 15:23

; INCREMENTS LOC. 'GOOD'’
RO, GOOD ‘
RO,2(SP)

PC,RSTREG
PC
3

;LOAD RC MAINROUTINE

Viv VISUAL TESTYS
MACYIT
CVVIBA,SR(
06-SEP=-79 15:23

30A(1952)

06-SEP=79

(758
4759
6769

<809
«810
&«811
«812

«813%

IN THE SWR ]S SET NO MESSAGES wiLL BE

JSR

PC,ERROR

ARG

WwHERE ARG CONTAINS THE ERROR CODE

AND

1S GF

THE

FORM

AND X 1S A COMBINATION OF FLAGS THAT INDICATE WHAT
VALUES ARE TO BE PRINTED. THESE VALUES SHOULD BE LOADED
BEFORE THE ERROR ROUTINE 1S CALLED AND ARE DEFINED
AS FOLLOWS:

FLAG SETTING

NUMBER

LOCATION

MESSAGE

C
S
A

4090
10000
20000

CALLPC
STATUS
ADDRES

CALLED FROM
STATUS
ADDRESS

40000
100020

0
0

DATA
G00D= BAD =

DATA
GOOD, BAD

IN ADDITION THE ERROR NUMBER WiLL BE COMBINED W]TH

THE TEST NUMBER TO INDICATE IN WHICH TEST IME ERROR
OCCURRED.
AN ERROR COUNT 1S MAINYAINED AN ON EACH ERROR THE

COUNT ]S UPCATED. IF RUNNING UNDER A SOF TWARE SWIT(H
REGISTER, IT IT POSSIBLF TO SELECT NEW OPTIONS
CALL ING SEQUAN(L:

®e

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

PC,ERROR

INPUT PARAMETERS:

JSR

®oBe

THE

LOACTION FOLLOWING THE

CALL

C(ONTAINS THE ERROR CODE AND tLAG 5eTTINGS

IMPLLCIT

INPUT PARAMETERS:

®e

4800
4801
«802
<803
804
4805
4806
<807
<808

TO PRINT ERROR MESSAGES

If BIT

PRINTED, IF B1T 15 1S SET THE PROGRAM JiLL NO WAlT
AFTER AN ERROR HAS BEEN PRINTED. IT IS CALLED THUS:

4797
4798
4799

ROUTINE

NONE

4790

(791
L7922
4793
4794
4795
4796

ERROR MESSAGES

®e

4786
4787
4788
4789

DESCRIPTION:

4779
4780
4781
(782
4783
4784
4785

SEQ 0116

L7776
&777
4778

PAGE 63

ERROR MESSAGES
LSBTTL

G761\
4762
4763
L7604
&765
L7606
4767
4768

4769
4770
&I
L7172
&77%
4774
Q775

15:27

OUTPUT PARAMETERS:

MACY1T
viv VISUAL TESTS
06-SEP=-79 15:23
CVVIBA.SRC

30A(10%¢)

06-SEP-79

15:27

]

PAGE 63-1

SeQ 0117

ERROR MESSAGES
NONE

814
H15
«8'6
<817

IMPLICIT OUTPUT PARAMETERS:

«8\8

4819
4820
821
«822

THE APPROPRAITE ERRCR MESSAGE WiLL BE PRINTED
1F PERMITIED.
COMPLETION CODES:

4823
824

6825
4826

NONE

<828
<829
4830
4831

POSS:BLE ERROR (CODES:

«827

NONE

+ %832

* 4813
4834

00473
005237
032777
001133
017637
004737
016354
013700
000300
006300

4835

«836
837
<838
4839
840
4841
4842
4843
844
4845
4846
4847
(848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
«860
4861
4862
863
864
4865
4866

153700

004737
004737
016360
011600
004737

132737
001416

<868
«869

016710

BIT
BNF

#40000,85WwR
ERHALT

INC

MOv

JSR

EMSGI

L {0)Y]
SWAB

016710
021262
021172

81SB
JSR
JSR
EMSG?
MOV

02126
000200

013700
004737

016700
021262
000040

001407
0Ce?73%7

173462

JSR

15/11/78
PC,SAVREG

016602

021172

132737

023276

000000
021172

004737
016372
013700
004737
004737
016403
13700
004737
132737
001407
004737
016414

4867

020076
016706
040000

RROR:

ASL

0i6711

016674
021262
021172

016676
021262
000100

BITB
BFQ
JSR
EMSG3
MOV
JSR
JSR

EMSO4

016711

021172

JSR

016711

MOV
JOR
ERRSV: Bl118
8tQ
JSR
EMSGS
MOV
JSR
Bl'8
V?:
ERRS

BEQ

JSR

ERRDIS

. INC COUNT

8(SP) ,ERPARG

;NO

PC,TYPOWN

:SUPPRESS PRINTOUT
;YES
:TYPE MESSAGE

TESTNO,RD
RO
RO

ERRARG,RO

PC,PROCT
PC,TYPOUT

(SP),RO

:PRINT 6 DIGITS

PC.PROCT

#200,ERRARG#]
ERRSVI
PC,TYPOUY
6000 ,R0
PC,PROCT
PC,TYPOULT
BAD,RO
PC,PROCT
#100,ERRARG*
ERKSV2
PC,TYPOUT
DATA,RO
PC,PROCT

#60,ERRARGH]

ERRSVS

PC,TYPOUT

;D ST ?
:NO

;A SET

;NO

VIV VISUAL TES'S

(VVIBA.SR(C

MACY1Y

06-SEP-79 15.2%

«870
4871
4872

023302
023304
023310

016425
013700
004737

«874

023322

001407

4873

4875
4876
4877
4878
(879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891

&892

4893
(894
4895
4896
4897

4898

023314

132737

023324
023330
023332
023336
023342
023350
023352
023356
023360
023364
023370
023374
023400
023402
023406
023412
023620

0064737
(16443
013700
004737
132737
001407
004737
016456
013700
004737
064737
004737
016475
013700
004737
032777
001004

023426
023432
023436
023442
023444

004737
004737
062716
000207
000000

023622

013700

001000

016704
021262

000020

3UAC10S52)

016711

021172
016702
021262
000010

.
016711

021172
016712
021262
021136
021172

016706
021624
100000

016706

017704
020174
000002

173164

O06-SEP-79

15:27

8 10

PAGE 63-2

ERROR MESSAGES
EMSG6
ROV
JSR

ADDRE S, RO
PC,PROCT

B8EQ

ERRS V4

ERRSV3: BB

#20,ERRARG#1

JSR
PC,TYPOUT
EMSGT
MOV
STATUS,RO
JSR
PC,PROCT
ERRSV4: BITB #10,ERRARG*!
BEQ
ERRSVS
JSR
PC,TYPOUT
EMSGS
MOV
CALLPC,RO
JSR
PC,PROCT
ERRSVS: JSR
PC.CRLF
JSR
PC.TYPOUTEMSGY
MOV
£ ]DIS,RO
JSR
P. RASET0
ERHALT: BIT
#10)000,aSwWR
BNE
NOH, LT
NOMALT:
BUFF1:

SEQ 0118
|

:S SET?

;0 SET

MOV

ERRD S.,RO

:DISPLAY ERROR COUNT

LEND

START

;PROGRAM END,

JSR
JSR
ADD
RTS
0

PC,MONIT
PC,RSTREG
#2,(SP)
PC

160 10 SwR

SELF-START,

MACY11
VIV VISUAL TESTS
CVVTBA .SRC
06-SEP-79 15:23

= 020000
002172
ADDRES
016704
ALL
002462
ASKS6
014522
BACO
002426
002425
BACH
002454
BACID
002414
BAC10
BAC10D
002443
002413
BACI
002442
BAC11D
BAC2
002424
002493
BAC2D
00243
BAC3
0024652
BAC30
002422
8ACL
002451
BAC4D
002421
BACS
002450
BACSD
002420
BAC6
002447
BAC6D
202417
BAC?
(02646
BAC70
002416
BACS
BACS8D
002445
00c¢4 1S
BAC9
002444
BAC9D
BAD
16676
0%61¢5
BADPR]
BAKGND
002174
01%67¢
BAMSG
016650
BASADD
BASE1A 021442
BASE 1B ® 1456
021474
BASE1(C
021454
BASEND
B.SE10 021424
11 016530
BASE
BASM10 021406
BAS10A 021432
BCCHAR 016662
016754
BCOUNT
017324
BELL
001422
BELLS
017336
BELL!
1
002222
8f
002306
BF2
002216
8F3
002230
BF&
002254
Bf4B
5
002344
BF
)
ADDR

Bf6

002364

30AC1052)

BxCOL

Bx0
Bx1
Bx?2
BK&

BKS

BK6

8k7

38
BLINK
Bt TR6V

BLTR8YV
BUFF1
BUSAET
BUSSE
BUSSE?

BUSSES
BUSSES

BUSSES

EUSSE6

BUSSE?
BUSS1A
BUSS10
BUSS11
BUSS12
BUSS13
BUSS3A
%US118
CALLPC
CAR
CARX
CARY

CAR1
CAR'B
CAR?
CAR3
CAR4

CARS
CARSA
CARS

004642
004360

004372

004466
004400
004526
004540
004572
004600
006640
012456
012272

023444
022050
022100
022152

022166
022226
022272
022302
022326
022144
072336
022412
022520
022540
022222
022434
004000
016712
016562
016566
016570
002614
002644
002676

002600
002742
002756
003006
003040
003072

CAR?7
CA1i70= 177716
016574
CHAR
003532
CHARC
003552
CHARI
CHAR?2
003572
CHAR3
003612
003632
CHARG
003657
CHARS
0036i
2
CHARG
CMAR7
002712
CHDR

016572

06-SEP-79

SYMBOL TABLE

15:27

Sea 0119
002400
002427
002411
002440
002619
002437
002407
002436
0024006
00243¢
002405
002634
002404
002433
002403
002432
002402
002431
015430
016752
016616
002012
002076
002006
002020

CHRFIN
CHSR

(HWORD
CNVELG

COUNT]
COUNT?
CRLF
CSP
CX

o
a1
4
3
Cé4

€6

0
DATA
DBUF
DECMSG

EMSG
EMSG2
EMSG3

EMSG4

002044
002134
00215¢

EMSGS
EMSGO
EMSG?

100000

EMSG8

022606
022730
023066
023060
022736
022740
022714
022702
022672
022626
022644
022650
022664
022656
020474

EMSGY

ENDIT
ERHALY
ERR
ERRARG
ERRDIS
ERROR

EPRSV!
ERRSV2

ERRSV3

ERRSV4

ERRSYS

FADR
FASTSW
FILL

FltLd
FILLZ
FIRVAS

JLLCHR
JLLVEC
[LVASG
INTFLG
INTVEC

JM600

LDADPS
LDCH
LDCHY

LDCH8Y
LOPS
LD6XS

+ INDEL

LINDLY

LINECH

LKS

LOWCHR
LSIFLG

L525

MASK
MAX
MODADM
MODADR
MODIFY

11
moD
mop 12
M3D13
mODI&

MOD1S

MODPRM
MODSAV
MODSPA
MoOX!T
MONIT
MONITA
MON]ITX
NODEFM
NOMALT
NOMEMA
NPRMSG
NXMADR
NXMSG
NXMTRP
NXTVMS

OCTIN
0CTMSG
OCTNURM
ODAMSG
OVAMSG

FORGND

FORO
*OR1
FORID
FOR10
FOR10D

HSWR

002401
00243¢

PAR]TY

PARO
PAR1

001752
012%%0
0564034
111224
021010

021030
021040
177546

016742
017044
016514
016646
002170
015654%
016642
021522
021552

021576
021616

021730
021766
015665
016644
015661
022006
017704

viV VISUAL TESTS

CVVIBA. SRC
PAR2 =
PARY =
PARG =
PARS =
PARG =
PAR7? =
PASM.G
PCHR

PORO =
POR1
=
PDR2 =
PDR3 =
PDRG =
PDRS =
PDR6 =
PDR? =
PMSGY
PMSG2
PMSG3
PMSGL
PRCTIA
PRESUB
PREST
PREO
PRE 1
PRE2
PRE3
PRE&
PRES
PRMSG
PRNT3

172344
172346
172350
172352
172354
172356
015360
021250

021262
021272

GEX1T2
QEXIT3
RANC.C
RAND
RANDC

020046
020062
023040
016636
016750

RANDN

. ABS.

SECOND
SE156

001416
016420

SSWR
START
START1
START2
START3

016606
001000
001226
001232
001266

SETSOA
SILLS]
SRO
=
SRT
=
SR2
=

016664

ERRORS DETECTED:

023056
022760
016670
023044
016666
016672
022772
023010

RANG
023046
READ
020444
REDMES 015607
REPCNT 016610
REPCT1= 001000
REPCT2= 000100
REPCT3= 000002
ROWSS
004062
RSTART 001200
RSTREG 020174
RUBCHR 020742
RUBFLG 016746
R6
=%000006
R7
=%000007
S
= 010000
SAVEXM 016724
SAVLT4L 016730
SAVLT6 016732
SAVPAR 016726
SAVPC
016626
SAVPC1 016630
SAVREG 020076
SAVSTA 016632

021306
021340
177776
020022
020044

023446

30A(1052)

RANCX
RANGEN
RANMTA
RANSEC
RANSEL
RANST
RAN1
RAN2

172300
172302
172304
172306
172310
172312
172314
172316
021206
021232
021236
021242
021304
005134
005150
005372
005376
005403
005411
005417
005425
016037
021354

PROCT
PROCTY

PROCT2
PRICT3
PSe
=
asx11
QX111

MACY11

06-SEP-79 15:23

STATUS

014464
017002
177572
177574
177576

016702

06-SEP-79

SYMBOL TABLE

15:27

STRADD
STRLEN
SWR
SWRMSG
SWRSEY
TABLE
TABLE!
TEMPX

TEMPX1
TEMPY
TEMPY1
TESMSG
TESTNG
TESTR
TESTIO
TEST11
TEST12
TESTI3
TESTI4
TEST6
TEST?
T1ME
TIMEY
TIMETA
kKB
=
TKS
=
TLBROV
TLBR8V
TMPADD
TPB
=
TPREDY

SEQ 0120

016736
016740
016604
015642
017046
001272
001324
004050

004054
004052
004056
015347
016602
016756
004064
004652
005434
013576
014136
001424
002470
004024
001356
001410
177562
177560
012364
012200
004060
177566
017434

TPS
= 177564
TRAPSY 017464
TRPARG
TRPBAK
TRPERR
TRPLP
TRPMEM

016620
017672
016652
017626
016624

TYPCTC

020014

TRPSCP
TRPSEL
TRXEXM
TRXPAR
TRXVAD

0 10
PAGE 64-1

017602
016622
016720
016716
016714

TYPD1
TYPOTA
TYPOTB
TYPOTC
TYPOTD
TYPOTE
TYPOUT
T100ww

v
i

710000
110001
110003
110006
110005
110006
110007
710008
110009
110010
T110wW
T110wWY
711000
711001
1102
11103
T12H
T12SLD
T12v
T120ww
7112000
112001
112004

712005
112006
112007
112008
112010
712011
712012
112013
112014
112018
T12C16
112017
712018

016640
016634
020276
020356
020412
020430
021172
004616

004102
004122
004154
004200
006204
004206
00421¢
004252
004256
004266
005114
005130
004670
004710
.u&742
004756
012572
012632
012602
012160
005452
005472
005522

005642
006052
006322
006550
007034
007244
007514

007742
010366
010722
011336
031672
012142

1126
7128
T'30WW
T130wY
T1300C
113001
713002
1164000

012622
012612
014116
014132
013614
01363«
013666
014154

VvB6H1!
vB6H11

012642
012722

1164001
714003
1164006
T60wWw
16000
16001
16002
16003
16006
170w
17000
17001
UPPCHR
VAMSG
VCNT
VECLEV
VECTOR
VO6H1
VOBH1
V68H11
v68H21
v68MH4a1
V6BHS1

vB6M21
vBOH41
vR6HST
vB88BH1
WAITT

WMSG
XHATCH
XME S
$ENDAD
.
=

014174
0164304
014336
001726
001442
001462
001514
001544
001614
003512
002506
002540
016744
015726
012566
016600
017056
013362
013142
013206
013252
013302
013332

013002
013042
013102
013456
003732

015276
016342
014352
017300
023446

000

CVVIBA.BIN,CVVTBA.SEQ=CVVTBA,SR(
RUN-TIME: 18 29 1 SECONDS

RUN-TIME RAT]O: 197/65:4.3
(23 PAGES)
'2k
CORE USED: