Digital PDFs

AH-F657A-MC

November 2000

121 pages

Original

68MB

view download

OCR Version

108MB

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

OCR Text

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

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

IN USA
MADE

B—

viv VvISUAL TESTS
MACYYY! S0AC1052)
CyvIBA.SRC
06=-SEP=79 15:2%

R el

—

O06-5EP=79

15:27

—
©AGE 1

e
s
et e

SBE s oW

SEQ 000"

000000

LREPT O
IDENTIFICATION

PRODUCT CODE:

AC=F6S55A=MC

PRCDUCT NAME:

CVWIBAD vTV30J/M=vT30H DSPLY

PRODUCT DATE:

OCT

MAINTAINER:

197y

COMPUTER SPECIAL SYSTEMS

DIGITAL EQUIPMENT (0. LTD.

READING

9
10

11
}%
14

BERKS.

U.K.

16
17
18
19

THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE
USED AND COPIED ONLY !N ACCORDANCE WITH THE TERMS OF
SUCH LICENSE AND WITH "HE INCLUSiun OF THE ABOVE
COPYRIGHT NOTICE.
THIS SOFTWARE OR ANY OTHER COPIES
THERECF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE

SOF TWARE 1S HEREBY TRANSFERRED.

23
24

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.

27
28
29

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIABILITY OF 11S SOFTWARE NN “QUIPMENT WHICH 1S NOT
SUPPLIED BY DIGITAL.

T0 ANY OTHER PERSCN.

NO TITLE TO AND OWNERSHIP OF THE

{
‘

06=5EP=-79

15:27

PAGE 2

C
SEQ 0002

VIV3IO=H/J OR vT30=H VISUAL DIAGNOSTIC
PROGRAM DESCRIPTION
ABSTRACT

THIS IS THE SECOND PART OF

A TWO PART DIAGNOSTIC FOR THE

VIV3I0=H/J OR V130-H GRAPHICS DISPLAY CONTROLLER.
THE
TESTS CONTAINED IN THIS PART OF THE DIAGNOSTIC GENERATE
A SERIES OF VISUAL TEST PATTERNS, WHICH ARE INTENDED TO
DEMONSTRATE THAT THE OUTPUT SECTION OF THE DISPLAY
CONTROLLER 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 TO DEMONSTRATE THAT THE OUTPUTS OFf
THE PICTURE STORE AND CHARACTER STORE ARE WORKING, AND
ALSO, THAT THE TiMING IS WORKING FOR ALL COMBINATIONS OFf
6 AND 8 DOT CHMARA TER MATRICES.
THE PATTERNS PRODUCED
ON THE T.v. SCREEN ARE VERY SIMPLE, AND ANY FAULT WwiLL
g:??ggi AN OBVIOUS DISCONTINUITY OR IRREGULARITY IN THE
N.

REQUIREMENTS

EQUIPMENT
MOoOAm>»

VIV VISUAL TESTS
MACYTT1 30A(1052)
CVVTBA.SRC
06-SEP-79 15:23

2.2

PDP=11 COMPUTER
CONSOLE TELETYPE

VIv30D=-H/J OR Vv130-H

DIAGNOSTIC TAPE AND LISTINCS
COLOUR T.v. MONITOR

STORAGE

THIS PROGRAM REQUIRES A MINITMUM OF

Bk WORDS OF MEMORY.

LOADING PROCEDURE
THE PROGRAM S LOADED USING THE ABSOLUTE BINARY LOADER
AND 1S IN ABSOLUTE BINARY FORMAT. THE PROGRAM CAN ALSO

BE LOADED AND RUN IN THE NORMAL XXDP MANNER.

’v

.
viv VISUAL TESTS
MACY11 30AC1052)
CVVTBA.SRC
06=5EP=-79 15:23
‘.

15:27

PAGE 3

D
SEQ 0003

STARTING PROCEDURE
THE PROGRAM HAS A LOAD AND GO FEATURE WHICH AUTOMATI

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

RESTARTING PROCEDURE

THE PROGRAM HAS A RESTART ADDRESS AT

1200 WHICH ALLOWS

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

RESTART THE PROGRAM WITH NEW BUS AND VECTOR ADDRESSES,

THE ADDRESSES 1000 OR 200 SHOULD 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 TESi>:=
TYPE 6 FOR 625-LINES OR 5 FOR 525-LINE DiSPLAY

FIRST BUS ADDRESS IS
FIRST VECTCR ADDRESS
FIRST PRIORITY LEVEL

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

SHOULD REPLY TO REQUESTS ABOVE, BY
THE OPERATOR
INPUTTING THE CORRECT DATA.

*SELECT DESIRED SWITCH REGISTER SETTINGS.'

—

il it

il il

il o B

N NN N WINNI PO N NI RO NI PO I NI D b o 8t o
VNNV N Pl 2 2 nE 2k 2R b o 2P 24V | NN
ol it it it et &
WNN—~=00 WNO VNS NN =00V NO NS WN
VW o VYOV
O O(INT NS WY OO

107

06-SEP-79

"TYPE CNTRL=C TO CONTINUE'®

—

— —_— il

-l

'SWR = 0.°

IN REPLY TO THE REQUEST ABOVE THE OPERAIOR SHOULD SELECT
DESIRED SWITCH REGISTER OPTIONS AS SET OUT UNDER SWIT(M
OPTIONS BELOW.

SWITCH REGISTER OPTIONS

THIS PROZRAM 1S DESIGNED TO RUN EQUALLY EASILY ON PDP-11

PROCESSORS WITH, OR WITHOUT, A HARDWARE 'SWITCH REGISTER.

ON STARTING, A TEST IS DONE TO SEE IF A HARDWARE SWIT(H
REGISTER 1S PRESENT.
IF IT IS PRESENT, IT MAY BE USED
IN THE NORMAL MANNER.

PAGE &

SEQ 0004

SWR1
SWR1
SWR1
SWR1

164

165

166

SWRO
SWRO
SWRO
SWRO
SWRO

167

SWR1S
SWR1

61
162
163

T T

THE SWITCH REGISTER SETTINGS ARE:-

S VO NDOO

145

15:27

k.l

158
159

06-SEP=-79

VIV VISUAL TESTS
MACY11 30A(1052)
FIVIBA.SRC
06-SEP=-79 15:23

INHIBIT ERROR WALT
INHIBIT ERROR PRINT=-QUT

FAST

ITERATION

:SCOPE LOOPS, SEE BELOW
:FOR A DESCRIPTION, AND
:APPENDIX A FOR EXAMPLES
:0F THEIR LSS

SELECTED TEST.
:TEST NOS.

THE SETTING OF BITS 7, 8, 9, 10, 11, AND 12 IN THE
SWITCH REGISTER ARE ULED TO SELECT THE TRAP OPTIONS
PRESENT IN THE FROGRAM, THE SELECTION 1S MADE IN THE
TRAP FUNCTION SELECTED
TRAP+2
TRAP+4

AND

AND 11
AND 11
10 AND

—

O =

)

BIT(S) SET
O 00~

FOLLOWING MANNER:

TRAP+1
TRAP+?2
TRAP+30
TRAP+4(
1kAavr+50
TRAF+60
iRAP+70

USES THE SWIT(H REGISTER SETTING THAT

WAS IN FORCE WHEN THE LAST
INSTRUCTION WAS EXECUTED.

TRAP

VIV VISUAL TESTS
MACY11 30A(1052)
CVVTBA.SRC
06-SEP-79 15:23
199

200
201
202
203

O&- 5EP=79

15:27

PAGE 5

SEQ 0005

1f A HARCWARE SWITCH REGISTER IS 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 Cy.NSOLE TELETYPE VIA A MONITOR

Pl aF &F 2B wgwwwwu

N RN
NN N NN
NN NN NN
NN N Ra
NN ro oo
D
R
—
W Dil
Fol
P o o s
N
=~
COVNO
WV WN—=O O
YO NI NN VN> ¥ ] S ANNN=OONO VS W

ROUTINE.

250

THIS MONITLR 1S CALLED BY TYPING CTRL-G AT THE
CONSOLE TELETYPE AND + ESPONDS BY PRINTING THE CURRENT
CONTENTS OF THE SOFTWA(& SWITCH REGISTER, FOLLOWED BY 7/
PROMPT CHARACTER (>).
(ME OPERATOR SHOULD THEN TYPE IN
THE NEW SWITCH REGISTER SCTTINGS AS AN OCTAL NUMBER,
FOLLOWED BY A CARRIAGE RETLRN.
TYPING F*®RIAGE RETURN
ALONE WILL CAUSE THE SETTING YO REMA''¢« UNCHANC®D.
THE
AND
VALL®
NEW
THE
w.in
LOANED
THEN
SWITCH REGISTER IS
PROGRAM EXECUTION CONTINUES.

A SETTING IS ENTLRED

WHICH INCLUDES THE SELECT TEST BIT (SWR06), THE TEST
INDICATED BY SWR 00-"5> WILL BE SELECTED IMMED ATELY.
;2%?10255 NOT APPLY W EN DEFAULTING ON AN EXISTING
N

THE

SWR MONITOR

IS ALSO CALLED AUTOMATICALLY

SWR1S
SWR14
SWR13
SWR12
SWR1:
SWR10
SWRN9
SWRO8
SWRO7
SWR06
SWROS
SWR04
SWRO3
SWR02
SWRO1
SWRO0

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

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

TO SET

A COMBINATION OF

IGN

TH..SE SWITCHES,

AN ERROR

SiMPLY ADD

TOGETHER THE CORRESPONDINT OCTAL NUMBERS AND
NTER THE
TOIG;EAN RESPONSE TO ''SwF=
x>''.
(LEADJNG ZEROS MAY BE

FOR WORST CASE TESTING, ALLTMSWITCHES SHOULD BE ZERO.

IT
1S POSSIBLE, WITH THESE SWITCH REGISTER OPTIONS, T0
EXECUTE ONLY A PRE-SE_ECTED TEST WITH THE FACILITY TO
LJOP ON THAT TEST OR TC START THE PROGRAM PASS OR FlNlSH
THE PROGRAM PASS AT

ANY PARTICULAR TEST.

VIV VISUAL TESTS
MACY1T 30A(1052)
CVVTBA.SRC
06-SEP-79 15:23

06-SEP=-79

15:27

PAGE 6

SEQ 0006

ERROR REPORTS
THE FORMAT OF

THE ERROR REPORIS IS AS FOLLOWS:-

E¥# AABB
G00D: DDDD
STATUS: FFFF
DATA: KKKK

AT PC:CCCC
BAD. EEEE
ADDRES: GGGG
CALLED FROM: He'MH
ERROR COUNT = JoN)

:
WHERE

BB
CCCC
DDDD
EEEE
FFFF
HHHH

THE

TEST NUMBER

IS THE ERROR NUMBER
IS THE ADDRESS WHERE THE ERROR REPORT OCIURS.
IS THE DATA EXPECTED
IS THE DATA RECEIVED
GGGG A%) KKKK ARE CONTENTS OF REGISTERS.
IS THc ADDRESS IN THE MAINLINE CODE WHERE THE
SUBROUTINE, WHERE THE ERROR REPORT IS
GENERATEL, IS CALLED FROM.

JJJJ 1S THE NUMBER OF ERRORS REPORTED TO DATE

THIS SECTION.

ONLINE MODIFICATIONS

AVAILABLE TO THE USER IS A ROUTINE

TO MODIFY PROGRAM

LOCATIONS.
IT IS ENTERED BY TYPING CNTRL=0 DURING THE
RUNNING OF THE TESTS.
ON ENTRY, A PROMPT '$' IS MADE
FOR THE ADDRESS TO BE MODIFIED.
IF NO ADDRESS IS GIVEN,
ARE REQUIRED AND THE
MODIFICATIONS
NO
THAT
IT 1S ASSUMED
ROUTINE WILL COMPLETE.
IF AN ADDRESS IS SPECIFIED, IT
WILL BE CHECKED TO SEE IF IT IS EVEN AND IN EXISTANCE.
ONCE 1T HAS BEEN CHECKED, ITS CONTENTS ARE DISPLAYED AND
A PROMPT '/' IS MADE FOR THE NEW CONTENTS.
IF NO NEW
VALUE 1S GIVEN, THE EXISTING VALUE wiLL BE LOADED.
HAVING DEALT WITH THAT ADDRESS, THE ROUTINE WILL THEN

EXAMINE THE TERMINATING CHARACTER TO DETERMINE THE NEXT
OPERATION TO PERFORM,
TYPING

<ESC>

géLt COMPLETE THE MODIFICATION: BEING

<CR>

WILL CAUSE A PROMPT FOR THE NEX.

<LfF>

TC BE MODIFIED.
WILL TAKE THE NEXT

ADDRESS

ADDRESS TO BE MODIFfIED

AS THE CURRENT ADDRESS+2.

VIV VISUAL TESTS
MACY11 30A(1052)
CVVIBA.SRC
06=-SEP-79 15:23

=00 ONOWVIS
WO -

N LN NN N
U

~ CWVEFEWN

—
il
B i
~ AR
RN AU A — i

NN NN NN W W W

303
304
305
306
307
308
309
3}0

06-SEP-79

10.

15:27

PAGE 7

SEQ@ 0007

PROGRAM DESCRIPTION

NOTE:
ALL FIGURES REFERENCED CAN BE FOUND IN THE OPTION
DESCRIPTION SECTION DEALING WITH THE DIAGNOSTIC.
TEST 6

THIS TEST PATTERN STARTS WITH AN ALL BLUE BACKGROUND ON
THE SCREEN.
THE PICTURE THEN SLOWLY CHANSES 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 COLOURS
SHOULD BE A SMOOTH STRAIGHT LINE, ADVANCING AT A STEADY
RATE.

AFTER A SHORT PAUSE, THE SCREEN WILL CHANGE

THE SAME MANNER) TO ALL GREEN BACKGROUND, BLUE
FOREGROUND, RED BACKGROUND
,- GREEN FOREGROUND AND
FINALLY, BLUE BACKGROUND.

(IN

THIS SEQUENCE WILL OCCUR TWICE DURING THE TEST.
THIS PATTERN, SHOWN IN FIGURE 6.1,

CHARACTERS SHOWN IN FIGURE 6.2.
THE SHADED PARTS OF

THE MATRIX

1S FORMED USING THE

FOR CHARACTERS 0 TO &2,

INDICATES FOREGROUND

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

THE PICTURE STORT

STARTS WITH ALL BACKGROUND

(ALL

CHARACTER ZERO), THE STORE IS 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 1S THEN MOVED FORWARD ONE CHARACTER AND THE
(HARACTERS ARE AGAIN LOADED IN SEQUENCE, 1.E. WHEN
(HANGING FROM ALL BACKGROUND TO ALL FOREGROUND, THE
SEQUENCE

IS AS FOLLOWS:=

CHARACTER O iS LCADED IN THE LEADING EDGE AND
CHARACTER 40 IS LOADED IN THE

TRAILING EDGE OF

THE SHADED LINE IN FIGURE 6.3.
THEN 1 AND 100
ARE LOADED, 2 AND 52, & AND 10
" AND 42, AND

FINALLY, 20 AND 177.
THE SHADt. mOW 1S THEN
MOVED FORWARD ONE CHARACTER AND THE SEQUENCE
REPEATED.
1YHE SCREEN FINISHES UP AS ALL

CHARACTER 177, WHICH IS ALL FOREGROUND COLOUR.

VIV VISUAL TESTS
MACY11 30A(1052)
CVVTBA.SRC
06=-SEP-79 15:23

06-SEP-79

15:27

PAGE 8

SEQ 0008

TEST

THIS TEST PATTERN STARTS WITH THE TOP HALF OF THE SCREEN
RED AND THE BOTTOM HALF OF THE SCREEN BLUE.
THE PATTERN

NOW CONSISTS OF A GREEN DIAGONAL LINE

(SLOPING NORTHEAST

TO SOUTHWEST) MOVING FROM LEFT TO RIGHT ACROSS THE TOP
HALF OF THE SCREEN (1.E. ON THE RED BACKGROUND) AND THEN
ACROSS THE BOTTOM HALF OF THE SCREEN (1.E. ON THE BLUE
.
BACKGROUND)

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

T0 GENERATE THIS PATTERN, 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

80TTOM OF THE SCREEN iS GREEN FOREGROUND ON BLUE

BACKGROUND
.

THE PATTERN IS FORMED E
MODIFYING THE CONTENTS OF
CHARACTER STORE.
AT THE START OF THE TESY, THE

THE

CHARACTER STORE CONTAINS ALL ZEROES.
THE CHARACTER
MATRICES USED ARE SHOWN IN FIGURE 7.3.
CHARACTER 1(A)
1S FIRST LOADED INTO CHARACTER STORE ADDRESS ZERO AND
CHARACTER 1(B) INTO CHARACTER STORE ADDRESS ONE, THEN
CHARACTERS 2(A) AND 2(B) ARE LOADED INTO CHARACTER STORE
ADDRESSES ZERO AND ONE, ETC., UNTIL CHARACTERS B(A) AND
8(B) ARE LOADED, THEN THIS IS REPEATED, USING CHARACTER
STORE ADDRESSES 1 AND 2, AND SO ON, THROUGH THE COMPLETE
CHARACTER STORE.
THIS CYCLES THROUGH THE STORE TwICE.
-

TEST

THIS TEST PATTERN DEMONSTRATES THE OPERATION OF BLINK AT
EVERY CHARACTER POSITION.
THE PATTERN STARTS AS A SCREEN FULL JF

THE SAME

CHARACTERS, THE FIRST ROW BEING RED CHARACTERS ON A
BLACK BALKGROUND, THE NEXT ROW IS GREEN ON RED, THEN
YELLOW ON GREEN, BLUE ON YELLOW, MAGENTA ON BLUE,

CYAN

THE
ON MAGENTA, WHITE ON CYAN AND THEN BLACK ON WHITE.
OF
END
%0%0U23E2RE THEN REPEATED, IN THIS ORDER, TO THE
HE

THE PATTERN NOW CONSISTS OF AN ADVANCING WEDGE, AS IN
TFST 7, THE CHARACTERS AND COLOURS REMAIN UNCHANGED BUT
ALL CHARACTERS WITHIN THE ADVANCING WEDGE AARE MADE 10

BLINK. AFTER ALL THE CHARACTERS ON THE SCREEN ARL
BLINE;NG, THEY WILL BE STOPPED BLINKING IN THE SAME
MANNER.

VIV VISUAL 7ESTS
MACY11 30A(1052)
CVVIBA.SRC
0A=-SEP-79 15:23
404

405

4«06

407
4«08

409
10
A B
612
613
L4
415
616

617
418
419
420

422
423
424
425
426
627
428
429

<30

431
%32

433
AT
435
436
437
438
439

440
641
642
443

O06-SEP=-79

TEST

15:27

PAGE 9

SEQ 0009

- THIS TEST PATTERN USES PRESET TO DEMONSTRATE THAT THE
SCREEN WILL PRESET TO ANY FOREGROUND OR BACKGROUND

COLCUR.
THE

TESTS STARTS KITH THE SCREEN ALl BLACK.

AFTER A

SHORT PAUSE, THE SCREEN WILL CHANGE 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
gék%RCVCLE THROUGH ALL THE COLOURS IN THE FOLLOWING
STARTING WITH BLACK,

IT wILL GO TO BLUE, THEN CYAN (BLUE

AND GREEN), GREEN, WHITE (BLUE AND GREEN AND RED),
MAGENTA (BLUE AND PED), YELLOW (GREEN AND RED), RED, AND
BACK TO BLACK.
THIS SEQUENCE wiLL OCCuR TWICE.
TEST

THE TEST PATTERNS CONTAINED IN THIS TEST DEMONSTRATE
14AT THE DISPLAY IS WORKING FOR ALL COMBINATIONS OF &
AND 8, vV AND H OF THE CHARACTER MATRIX.
THE TEST PATTERN STARTS WITH A BLUE BACKGROUND, AND

OUTLINES THE PICTURE WITH A SINGLE DOT WIDTH WHITE LINE.
A DIAGONAL LINE IS DRAWN FROM EACH CORNER OF THE SCREEN
TO MEET ON THE CENTRE LINE OF

THE PICTURE.

A LINE TWO

D0TS WIDE IS DRAWN 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 1S FIRST DISPLAYED FOR 6H AND BV, THEN 6V
AND BH, THEN 8 X B, AND FINALLY, 6 X 6.

445

L46

L47

449

TEST

THIS TEST DEMONSTRATES THAT

AT ALL X AND Y ADDRESSES.®

THE CURSOR CAN BE DISPLAYED

vIvV VISUAL TESTS
MACY11 30A(1052)
CVVTBA.SRC
06-SEP-79 15:23
51

452
453
454
455

456
457
458

459

460
461

&6
&6
L6

465

L66

467

4«68

469
470
47
472
473
474
475

O06-SEP=79

15:27

PAGE 10

THE TEST PATTERN CONSISTS OF

SEQ 0010
THE PATTERN USED FOR THE 6

X 6 CHARACTER MATRIX IN TEST 12.

THE CURSOR STARTS IN

THE TOP LEFT-HAND CORNER AND THEN MOVES ALONG THE

DIAGONAL LINE TO THME CENTRE LINE, THEN DOWN THE DIAGONAL
TO THE BOTTOM LEF-HAND CORNER, ALONG THE BOTTOM OF THE
SCREEN TO THE RIGHT-HAND CORNER, AND ALONG THE DIAGONALS
TO THE TOP RIGHT-HAND CORNER, FINALLY ALONG THE TOP OF
THE PICTURE TO THE START POINT.
THE

TEST

SCREEN TWICE FOR THIS TEST.

THE CURSOR MOVES ROUND
s

THIS TEST IS A X HATCH, IT IS NOT INTENDED TO TEST THE
géS?%S; BUT IS TD AID THE SETTING UP OF THE COLOUR
N

THE PATTERN IS A WHITE GRID ON A BLACK BACKGROUND, WHICH

1S DISPLAYED FOR ABOUT ONE MINUTE.
TO HOLD THE DISPLAY
ON THIS PICTURE, EITHER HALT THE PROCESSOR OR SET SWIT(H
REGISTER BIT 08.

MACY!1
VIV VISUAL TESTS
CVVIBA.SRC
06-SEP-79 15:23

30A(1052)

06-SEP-79

15:27

PAGE 11

477
478
479

SEQ 0011
APPENDIX A

4«80
481
482
483
484
485
486

- PDP=11

DIAGNOSTIC LOOPING FACILITIES VIA

SWITCH REGISTER OPTIONS

487
488
489
490
491
492
493
34
495

THE

INTENTION OF

THIS APPENDIX

IS TO EXPLAIN,

GENERAL, THE SCOPE FACILITIES WITHIN PROGRAM CODING.

THE USER MUST FIRST EXAMINE THE CODING ABOUT THE AREA HE
WISHES TO USE SCOPING FACILITIES, TO ASCERTAIN THAT THE
PARTICULAR FACILITY HE REQUIRES IS, IN FACT, AVAILABLE.

PROGRAM LOOPING CONTROL CAN BE SELECTED BY USING SWR 12
= 07. THE PROGRAM HANDLES TwIS BY USE OF THE TRAPSV
ROUTINE, WHICH 1S ENTERED USING THE TRAP INSTRUCTION.

496

BASICALLY, THE ROUTINE (HECKS EQUALITY BETWEEN BITS 05 00 OF THE TRAP INSTRUCTION AND SWR 12 - 07.

497
498
499

THERE ARE

500
501

THREE DISTINCT FUNCTIONS CONTROLLED BY THE

TRAP ROUTINE:~

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

IN THE CASE OF NON-INTERVENTION TESTS.

WHEN SWR 07

1S SET, ALL TEST NUMBER MESSAGES ARE SUPPRESSED.

NOTE:

1T DOES NOT SUPPRESS ERROR PRINTOUTS.

(L)gopec‘m A SUB-TEST = (TRAP + & INSTRUCTION AND SWR
SET)

THIS 1S GENERALLY USED TO ALLOW THE OPERATOR, BY

SETTING SWR 08, TO CONTINUOUSLY LOOP ON ONE LOGICAL
TEST OR GROUP OF

- oy

TESTS.

SCOPE ON A SUB-TEST = (TRAP ¢ 10 - 70 INSTRUCTIONS
AND SWR 0G - '1)
THIS ALLOWS THE OPERATOR TO SELECTY SEVEN LEVELS OF

LOOPING FACILITY WITHIN A SELECTION OR TEST.

IT 1S USED TYPICALLY WITHIN A TEST WHERE ONE
SUB-TELT SETS A FLAG AND THE NEXT ONE CLEARS 1T7.

USING SCOPE LEVEL 1 kSWR 09) - TRAP + 10), WE COULD
.-

LOOP ON THE FIRST SUB-TEST, SCOPE LEVEL 2 (SWR10) TRAP # 20), HE COULD LOOP ON THE SECOND SUB-TEST OR

SCOPE LEVEL 3 (Swk 10 & 09 - TRAP + 30) 1O LOOP
CONSTANTLY THROUGH BOTH SUB=-TESTS SEQUENTIALLY.
ThE
ARGUMEN?
THE
AS
APPEARS
ALWAYS
ADDRESS
RETURN
SCOPE
OR NEXT WORD AFTER THE TRAP INSTRUCTION.

TMACY11 30A(1052)
06-SEP-79 15:23

VIV VISUAL TESTS

CVVTBA.SRC
530
531
532
53%
5354
535
536
537
538
539
540

561

§.2

543
544
545
546
547
548

06-SEP-79

15:27

PAGE 12

SEQ 0012

T0 ALLOwW THE SCOPE LEVEL TO BE

CHANGED WlTHOUT

STOPPING THE PROGRAM, E.G. TO CHANGE FROM LEVEL 1 TO
2, WHICH WOULD ALMOST CERTAINLY CAUSE LEVEL 3 OrR C
TO BE SEEN MOMENTARILY), A 'PRESERVE SCOPE' FACILITY
1S PROVIDED WITH SWR12,
WHEN THIS IS SELECTED, THE
PRUGRAM NO LONGER INSPECTS SWR 11 - 09 BUT USES THE
SETTING MEMORISED FROM BEFORE SWR 12 WAS SELECTED.
THE SCOPE LEVEL MAY NOW BE CHANGED WITH NO EFFECT
2:;1%E§UR 12 1S SET 10 0O, WHEN THE NEW SCOPE SETTING
L

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

WHICH SCOPE LEVEL TO SELECT MAY BE DETERMINED THE

LISTING; LEVELS 1 THROUGH 7 ARE CALLED BY TRAP + 10
(SWR 09)

THROUGH TRAP +

70 (SWR 09,

10 AND 11).

MACYI1
VIV VISUAL TESTS
06-SEP=-79 15:23
{VVTIBA.SRC

30A(3052)

06-SEP-79

15:27

PAGE 13

SEQ 0013

550

551
952

570

577
572
573
574
575

TM
-

557

558
559
560
561
562
563
564
565
566
567
568
569

—

553
554
555
556

EXAMPLE OF SCOPE LOOP FACILITIES WITHIN DIAGNOSTIC

: MOV

BIS
BIT
BNE
JSR

TRAP+10
110
#1,STATUS
TEST1: BIC
#1,STATUS
Bl
T11SCP
BEQ
PC.ERROR
JSR
11
T11SCP: TRAP+30
TEST1]
TRAP+20

T10SCP:

TEST12:

1161

BIS
BIT

(ETC.)

:1TERATION COUNT.
;SET GO BIT.
;1S GO BIT SET?

#40, COUNT

#1,STATUS
#1,STATUS
T10SCP
PC.ERROR

;YES, BRANCH.

;EFROR!!! GO NCT SET.
;ERROR NUMBER.

IF LEVEL 1 SELECTED.
;SCOPE TEST10.
SCOPE.
FOR
LABEL
;RETURN
BIT
;CLEAR GO
;GO BLT CLEAR ?
;G0 BIT CLEAR BRANCH.
:NO. GO BIT FAILED TO CLEAR,
;ERROR!!! NO. 11,
;SCOPE TEST 11 IF LEVEL 5 SELECTED.
;RETURN LABEL FOR SCOPE.
;SCOPE TESTS 10 & 11,

;

;“TURN LABEL.

_NC SCOPE SELECTED. CARRY ON.,
;1S DONE BIT SET ?

#100,STATUS
#100,STATUS

576

577
T12SCR:

:SCOPE INT. EN. SETY, LEVEL 1.

TRAP+10

;RETURN LABEL.
:CLEAR INT ENABLE BIT.
315 BIT CLEAR?

TEST 12
BIC
#100,STATUS
TEST13:
#100,STATUS
B17
(ETC.)

TPAP+20
T1EST12
TRAP+4

:
b

1101

BGT

DEC
TEST4:

:SCOPE INT CLEAR LEVEL 3.

TRAP+30

TEST13

(ETC.)

Count

:RETURN LABEL.

:SCOPE INT, SET AND CLEAR,
SLEVEL A
:SCONE LOOP ON THIS SE+ OF TESTS.
;RETURN LABEL.

;D0 640 TIMES ANTWAY
.

——

T1ES(P:

[

578

579
580
581
582
583

W,
TSI
|
T
|
Ty

e—_—

viv vISUAL TES'S
MACY1Y 30AC1052)
CVWVIBA . SRC
06=-SEP=79 15:2%

15:¢7

LTITLE
LSBYTL

504
~0%

06L6

06=5¢°=79
LENDR

602
603
b

000C Y0
00000+
000002
050003
000004
000005
000006
000007
000006
000007
177776
177570

R0=%00
& -1
R¢-202

172340
172342

PARD=172340
PAR1=172342
PAR2=172344
PAR3=172346
PAR4=172350
PARS=172352
PARG=172354
PAR7=172356

645

644

646

647
648
649
650
651
652
653
654
655
656

657

172352
172354
172356

R3=%03%
R&=%04
RS=%05
R6=206
R7=%07

SP=204

PC=20’

PSW=177776
HSWR=177570

172300
172302
172304
172306
172310
172312
172314
172316

rOR0=172300
PDR1=172302
PDR2=172304
POR3=1

177572
177574
177576

SRO=17
SR1=177574
SR2=177576

177546

LKS=177546

177746

CA1170=177746

001000
000100
000002

REPCT1=1000
REPCT2-100
REP(T13=2

100000
040000
020000
010000

6=100000
0=40000
A=20000

$=10000

SRR

vV vISUAL TESTS
GEWNERAY ptf IngTTONS

607
608
609
610
611
€12
613
614
615
616
617
618
619
629
62!
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
636
639
640
641
642
643

172344
172346
172350

PAGE 14

e
T
e—

SEQ 0014

—.

VIV VISUAL TESTS

CWIBA.SRC

MACY11

06-SEP-79 15:23

30A(1052)

06-SEP-79

15:27

GENERAL DEF INITIONS

658

004000

€=4000

661
662
663
664

177564
177566
177560
177562

1PS=1775¢4
1PE=177566
1652177560
TKB=177562

659
660

665
666

667
668

069

670
671
672

673
674
675

676

LENABL
LENABL

ABS

AMA

€ 2
PAGE 14=1

SEQ 0015

’

06-SEP-79

MACROS

15:27

PAGE 15

2
SEQ 0016

MACROS

.SBTTL

06-SEP-79 15:23

30A€1052)

SET PROCESSOR PRIORITY

CVVTIBA.SRC

MACY11

VIV VISUAL TESTS

MACRO

LAB:

MOV
MOV
RTI

PSWSET

$ARG,?LAB

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

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

NOP
.ENDM

READ PROCESSOR PRIORITY

MACRO

EM
MoV
.ENDM

PSWREA

$ARG

FSAVPW, $ARG

ISSUE EMT

TO READ PSW

READ PSW IN $ARG

MACY11
VIV VISUAL TESTS
CVVTBA.SRC
06-SEP-79 15:23
702
703
704
705
706
707
708
709
710
[4)
712
713
714
715
716
717
718
719
720
721
722

723

724

000200

000000
000000
000200
000137
001000

30A(1052)

06-SEP-79 15: 27
INITIALISATION
LSBTTL
LASECT
.=0
.=200

001000

001000
001004

012706

001000

001020
001026
001034
001042
001046

012737
012737
012737
005777
005037

017046
000340
177570

015536
016606

000004
00000¢
016604

SEQ 0017

INITIALISATION

JMP

IFSTART

;

MOV
PSWSET

¥ 5P

;INITIALISE STACK POINTER

“ov

.4
FSWRSET

;TEST FOR HARDWARE
;TRAPS T0 & IF IT

.=1000

START:

PAGE 16

MOV
MOV
181

CLR

#340

'340,6

#HSWR, SWR
aSwR

SSWR

JMP TO START AT 200

;DOES NOT EXIST

sINITIALISE SOFTWARE SWR

NOw FIND OUT WHETHER THE PROCESSOR

LEVEL LSI=11 OR NOT.

SWR

1S A SINGLE

INTERRUPT

001052

004737

017002

JSR

PC,SILLSI

;FIND OUT ABOUT PRCCESSOR

001056
001062
001066

004737
004737
014630

017056
021172

JSR
JSR
GOMSG

PC,VECTOR
PC,TYPOUT

sFILL 0=774 WITH HALT

001070
001074
001100
001102
001104
001106
001110
001112

004737
004537

014420
022050
004

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

PC,SETS6
RS ,BUSSET
7.4

001
000000

013737
013737
005237
013737
013737
005237
000137
001200
012706

016562
016562
016570
016564
016564
016574
001200

001000

001220
001224

004737
015276
004737

021172

001232
001236
001252

001114
001122

001130
001134
001142
001150
001154

001200
001204

001226

016566
016570

MOV
MOV

016572
016574

MOV
MOV

INC

INC
JMP

TRAPS

;DIAGNOSTIC

;SET UP BUS AND VECTOR ADDRESSES

(SR
1.1

INTVEC

SECLEV

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

CHAR

RSTART

;THEN GOTO THE

RSTART: MOV
PSWSET

#START,SP
#340

INITIALISE STACK POINTER

PC,TYPOUT

017704

JSR
WwMSG
START!. JSR

012706

001000

STARTZ: MOV

032777

000100

.=1200

015324

RESTART

ADDRESS

PC.MORIT

;SELECT DESIRED CONSOLE SWITCHES
;60 TO SWR MONITOR

PSWSET

#340

#START,SP

SINITIALISE STACK POIMTER

BIT

#100,aSwR

sCHECK FOR PRE-SELECTED TESI

VIV VISUAL TESTS

CvVTBA.SRC

MACY11 30A(1052)

06-SEP-79 15:23

;28

001260

001002

760

001262

000137

;6;
6

763
764
765
766

767

768
769
770

001266

000137

06-SEP=79

INITIALISATION
BNE

001424

001272

15:27

JMP
START3: Jmp

PAGE 16-1

SEQ 0018

STARTS
TESTE
TABLE

;70 TEST 6

;10 LOOK=UP TABLE

;INTERFACE REGISTERS AND VECTORS

MACY) 1

VIV VISUAL TESTS

CVWIBA.SRC
772

06-SEP=79 15:23

001272

017700

015306

776
;;2

001302
001306

022700
002734

000014

777
778
779
;g?

001310
001314
001316
001320

020027
100731
006300
000170

000006

789
790
791
792

001324
001326
001330
001332
001334
001336
001340

001424
001424
001424
001424
001424
001424
001424

79¢
795
796
797
798

001344
001346
001350
001352
001354

004064
004652
005434
013576
014136

773

001276

30A(1052)

042700

06-SEP=79

INITIALISATION
TABLE:

177700

15:27

~GET SELECTED TEST NO

CmMp
BLT

#14,R0
RSTART

;CHECK FOR VALID TEST NO

782

784

793

001342

002470

TABLE1:

SEQ 0019

aSWR,RO

BIC

783

785
786
787
788

MOV

cMP
8M]
ASL
JMP

001324

PAGE 17

TEST6
TESTH
TESTE
TESTS
TESTH
TEST6
TEST6

TEST7

TEST10
TEST1
TEST12
TEST13
TEST14

#177700,R0

RO, #6
RSTART
RO
aTABLE1(RO)

:JUMP TO PRE=-SELECTED TEST

VIV VISUAL TES'S
MACY11
CVVTBA.SRC
06-SEP-79 15:23
800

30A(1052)

O06-SEP=-79

15:27

INITIALISATION

PAGE 18

SEQ 0020

MACY11 30A(1052)
06-SEP-79 15:27
VIV VISUAL TESTS
INITIALISATION
06-SEP-79 15:23
CVVTBA.SRC
802
803
804
805
806

001356
001364
001370
001374
001376
001402
001410

062777
005237
005337
00100%
005237
013737
000002

001412

000000
000000
000000
005000
J00000

001414
001416
001420

001422

100000
001420
001412
001422

001416

015172

001412

TIMEY:

BIC

INC
DEC
BNE
INC

MOV
TIMETA : RT1

PAGE 19

#100000,aCSR
INTFLG
COUNT1
TIME1A
BELLS

SECOND,COUNT1

SEQ 0021

;CLEAR TIMER BIT
;SET INTERRUPT BIT

1S 1 SECOND UP
“YES ,

SO SET BELL

"SET UP TIME TO NEXT BELL

COUNT1: 0
COUNT2: 0
SECOND: 0
INTFLG: 0

BELLS:

.SBTTL

TESTO

;""'.""""""

;THIS TEST PATTERN IS FOR

:DEMONSTRATING THAT THE
;PICTURE STORE COLOUR AND
;CHARACTER BITS ARE WORKING.

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

016602

001424
001432
001434
001436

012737

004737

016756

001442
001446
001452
001456

005037
012704
004737
010437

016706
000001
017444
016610

16000:

016576
001356
000340
001400
000200
015060
002462
001746

16001:

001462
001466

001472

001476
001504
001510
001514
001520
001524
001526

104402

001442

000006

001530
001534
001540
001544
001550
001552
001554
001560
001562

000026

001564

000302
000242

001572

TEST6:

MOV

TRAP+2
16000
JSR
(LR

MOV

JSR

MOV

015052
16002:

002427

002400
015024

16003:

MOV
MOV
MOV
MOV
MOV

CLRB

MOV

JSR
PEC
BNE
MOV
MOV
MOV
MOVB
MOV

INC
JSR
DEC
BNE

001746

014766
014700

MOvVB
MovB

#6,TESTNO

;SET UP TEST NO.

PC,TESTR

;OUTPUT TEST NO

ERRDIS

¥ ,R4

PC,FASTSW
R4 ,REPCNT

RO
INTVEC

#TIMET1, (RO)+
#340, (RO)
#1400,3CSR

#200,R1
a(HAR
#ALL RO

PC.LDCH
R1

16002

;SET UP TEST ITERATION COUNT

“SET UP INTERRUPT VECTOR
;SET 6H B6V BITS
;SET NO. OF CHARACTERS
;CLEAR CHARACTER ADDRESS
;*LOAD ALL CHARACTERS
;*WITH \\ PATTERN
‘¥

#22.,R2

;LOAD ALL SPECJAL CHARACTERS

R1
PC,LDCH

16003

;LOAD ADDRESS
;ADDRESS OF DATA
;AL RESS FOR NEXT CHAR.
;LOAD CHARACTER DATA
;HAVE WE LOADED ALL
;BRANCH IF NO.

#302,3DBUF
#242 ,aDBUF

;CLEAR BLINK CONTROL
;SET GREEN ON BLUE

#FCR11D,R1
#FOR11,R3
(R3)+ ,aCHAR
R1,RO
R2

——

VIV VISUAL TESTS

CVVTBA.SRC

MACYI 30A(1052)152?;SEP-79

06-SEP-79 15:23

858
859
gg?

001600 012777
001606 105777
001612 - 100375

001411
014744

014750

862
863

001614
001622

112777
004737

000241
001764

014736

865
866
867
B68
869
870
871
872
g;z

001634
001640
001646
001652
001660
001664
001672
001676
001704

004737
112777
004737
112777
004737
112777
004737
112777
004737

002174
000226
001764
000214
002174
000212
001764
000242
002174

875
g;g

001710
001712

104404
001462

878

001714

005337

016610

gg?

001722

000137

001614

001726

032777

000100

864 001626

879

882

883
884
ggz

001720

001734«
001736
001742

112777

001402

001402
000137
000137

000221

1%:
T16004:

014724

15:27

014700
014666

014654

#1611 ,9CSR
a(SR
1%

;SET 6MH,6V,PRESET & DISP. ON
;TEST FOR READY
sBRANCH IF NOT READY

MOVB
JSR

#241,3DBUF
PC,FORGND

sSET RED ON BLUE
s CHANGE TO FORGROUND

JSR
MOVB
JSR
MOVB
JSR
MOVB
JSR
MOVB
JOR

PC,BAKGND
#224 ,3DBUF
PC,FORGND
#214 ,30BUF
PC,BAKGND
#212,30BUF
PC,FORGND
#242 ,3DBUF
PC,BAKGND

;CHANGE TO BACKGROUND
;SET BLUE ON GREEN
:
;SET BLUE ON RED
:
;SET GREEN ON RED
:
sSET GREEN ON BLUE
H

#221,a0BUF

TRAP+4
16001

001232
002470

T7T60ww:
1%:

;SET SWR BIT 8 10
;LOOP ON TEST
REPCNT

;DONE ENOUGH ?

JMP

16004

:NO

BIT

#100,3SwR

BEQ
JMP JMP

887

T160wWw

891

001746
001752
001756
001760

012705
112077
005305
001374

000006
014614

898
899
900
901

001764
001772
001776
002002

013737
006337
005337
005037

014516
002170
002170
002172

913

;CHECK FOR PRE-SELECTED TEST
3

IETRERREERRRRRRAONY

;SUBROUTINE FOR LOADING CHARACTERS
;ENTER WITH DATA ADDRESS IN RO
;AND CHARACTER ADDRESS IN (HAK
AR RTERITENRRNNNY

892
893
894
895

902
903
904
905
906
907
908
909
910
911
912

;YES

1%
START?2
TEST7
.

888
889
890

ggg

:SET RED ON GREEN

DEC

BEQ
014650

SEQ 0022

MOV
1578
BPL

MOVB

014712

J 2
PAGE 19-1

001762

002006
002012
002020
002026
002030
002036
002042
002044
002050
002056
002064
002066

LDCH:
LDCH1:

MOV
MOVB
DEC
BNE

#6,R5
(RO)+,3CHDR
RS
LDCH1

;NUMBER OF LOADS
;D0 A LOAD
;ANY MCRE ?
JBRANCH IF el

FORGND: MOV
ASL
DEC
CLR

HALF6V ,MAX
MAX
MAX
ADDR

>
:
sSET MAX Y ADDRESS
:

000207

012761
013777
127727
001406
116177
105777
001415
105377
116177
127737
001404
105 277

RTS

000005
002172
014542

002170

014542
000120

002406
014524

014522

014516
002400
014506

014502
002170

014476

F3:
F1:
Fé:

F&4B:

MOV
MOV
(MPB
BEQ
MOVB
1STB
BEQ
DECB
MOVB
(MPB
BEQ
INCB

’5,R1
ADDR ,aCAR
aCARX,#80.
F4B
FORS(R1),3DBUF
o (ARX
Fe
aCARX
FORT11(R1) ,aDBUF
ACARY ,MAX
F2
aCARY

:
;LOAD CURSOR ADPDRESS
SEND OF LINE ?
JYES
;LOAD ONE CHARACTER
sHAS X REACHED ZERO
;BRANCH IF YES
sNO SO DECREMENT X
;LOAD OTHER CHARACTER
;ARE WE ON BOTTOM LINE
sBRANCH ]F YES
;NG SO INCREMENT ADDREGSS

MACY11
06-SEP-79 15:23

viv VISUAL TESTS

CVVIBA.SRC

30A(1052)

914

002072

000137

002020

916
917
918
919
920
921
922
925
924
925
926
927
928
929
930
931
932
933

002076
002104
002110
002112

012737
004737
005301

0C0001
003732

004024

002114
002122
002124
002130

123727
001404
105237
000137

002172

000120

002134
002142
002144
002150

123737
001404
105237
000137

002173

002154
002162
002166

012737
004737
000207

000002
003732

002170
002172

000000
000000

915

934

935
936
937

K_2
PAGE 19-2

06-SEP-79

15:27

JMP

6O BACK AND DO SOME MORE

MOV

1, TIME

:WAIT SOME TIME

TESTG

£2:

100337

002172
002006
002170

JSR
DEC
BPL

PCWAITT

(MPB
BEQ
INCB
JMP

ADDR,#80.
FS

(MPB

BEG
INCB
JMP

002173
002006
004024

MOV

JSR

RTS
:
MAX

ADDR:

0
0

Ri
£1

ADDR

ADDR+1,MAX

Fé

ADDR+1
F3
#2,TIME ;WALIT
PLLWAITT
PC

SEQ 0023

'NEXT PAIR OF CHARACTERS
;1S X ADDRESS AT MAX
;BRANCH IF

YES

sNO SO INCREMENT X
;1S v ADDRESS AT MAX
;BRANCH IF YES
:NO SO INCREMENT Y
LOME

TIME

DONE

013737
006337
5337
5037
0}2701
013777
127727
001406
116177
105777
001415
105377
116177
127737
001404
105277

002314
002320
002322
002326
002332
002334
002340
002344
002352
002354

004737
005301
100337
123727
001404
105237
000137
123737
001404
105237

955
956

957
958
959
960
961
962
963
964
965

967
968
969
970

971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986

957
988
989
990
991
992
993
994

002302
002306

000137
012737

002360
002364
002372
002376

000137
012737
004737
000207

002400
002401
002402
002403
002404
002405
002406
002407
002410
002411
002412
002413

177
042
101
052
100
040
020
010
004
002
001
000

002415

076

002414

002416
002417
002420
002421
002422
002423
002424
002425

165

125
077
137
157
167
173
17%
176

002170

014332
000120
002421
014314

014306
002413
014276

w4266
002230
000001
003732
002172

BAKGND: MOV
ASL

BF3:

BF1:
BF&:

014312

014272
002170

004024

002173

BF4B:

BF2:

000120

002173
002216
000002

003732

002170

004024

MOV

. MOV
C(MPB
BEQ
MOVB
1S18

002172

002216

DEC
CLR

BFS:

BF6:

#1,T1IME
PC,WAITT

JSR
DEC
BPL
CMPB
BEQ
INCB
JMP

CMPB

BEQ
INCB
JMP
MOV
JSR

FOR7:
FORG6:
FORS:

.BYTE
.BYTE
.BYTE

BYTE
.BYTE

FOR4:
.BYTE
FOR3:
.BYTE
FOR2:
.BYTE
FOR1:
.BYTE
FORO:BAC11:

BAC10:
BAC9:

.BYTE
.BYTE

BAC7:

.BYTE

BACS:
BAC4:
BACS:

BA(C2:

BAC1:

aCARX

MOV

_.BYTE
.BYTE

BACG:

BACS(R1) ,aDBUF

BF2

FORT1:
FOR10:

BA(S:

2CARX ,#80.

BF4B

BEQ
INCB
JMP

.BYTE
.BYTE

.BYTE
.BYTE
.BYTE

.BYTE
BYTE

SEQ 0024

ADDR
#5,R1
ADDR,3CAR

BF2

MOVB
CMPB

HALF 6V, MAX
MAX
MAX

BEQ
DECB

RTS

FOR9:
FORS:

PAGE 20

002174
002202
002206
002212
002216
002222
002230
002236
002240
002246
002252
002254
002260
002266
002274
002276

TESTS

15:27

939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954

O06-SEP-79

06-SEP-79

30A(1052)

CVVTBA.SRC

VIV VISUAL TEST'S

’

aCARX

BAC11(R1),aDBUf
SCARY ,MAX

aCARY
BF&

BF1
ADDR,#80.
BFS
ADDR

BF3

ADDR+1,MAX

8F6
ADDR+1

BF3

#2,T1ME ;
PC,WAITT
PC

177
o
101
52
100

.BYTE

;END OF LINE ?
s YES

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

b
b
s

b b
b
-

b —
-

©C

oo VW

OO0 COO000O0

—=O

997

102C
1021
1022

30A(1052)

06-SEP-79

TESTG

002426

177

BACO:

002427
002430
002431
002432
002433

374
374
374
374
374
374
370
360
340
300
200
000
C00

FOR11D:
FOR10D:
FOR9D:
FORBD:
FORYD:

002434
002435
002436
002437
002440
002441
00244
00244

002444
002445
002446

002447
002450
002451
002452
002453
002454
002457
002462
002465

FOR6D:

FORSD:
FOR4D:

FOR3D:
FOR2D:
FORID:

174

374
070
30¢

n 2
PAGE 20-1

177
.BYTE
.BYTE

374
74

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

BAC11D:

BAC10D:
BAC9D:
BACBD:
BAC7D:

000
000
000
000
004
014

034
074

15:27

BAC6D:

BACSD:

.BYTE

BAC1D:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

ALL:

.BYTE

BAC4D:

37«
374
034
340

.BYTE

BAC3D:
BAC2D:

.EVEN

174,374,376 ,374,374,374
70,

34,214,304,340,160

SEQ 0025

MACYI SOA(\OSZ)“ 06-SEP-T79
viv VISUAL TESTS
S17
06-SEP-79 15:2%

15:27

PAGE 21

SEQ 0026

CVVTIBA.SRC

SBITL

1026
1025
1026
1027
1028
1029

TEST?

ln.S TEST PATTERN DEHONSYRATES
:THAT ALL THE BITS IN THE
(NARA(!EI STORE WILL SET AND
sCLEAR .

1031

\'!’

1034
1035
1036
1037
1038
1039
1040
1041
1042
1043

1044
1045
1046

1047

1048
1049
1050
1051
1052

012737

000007

002500
002502

00250¢
004737

016756

002506
002512
002516
002522

005037
012704
004737
010437

016706
000002
017444
016610

002470
002476

104402

014520
004062
014012
000212

002526

00253"
002540
002544
002552
002560

016602

1054

1055
1056
1057
1058

TEST7:

17000:

014006
014000
004050
004052

17001:

CARY:
CAR1:

CLR

:SET UP TEST NO.

PCLTESTR. -

;0UTPUT_TEST NO

#2.R4
PC,FASTSY

R4 ,REPCONT

:SET UP TEST ITERATION COUNT

HALFBV,ROWSS

#302 ,30Buf
#0,TEMPX
#0,TEMPY

:LOAD NO BLINK
:IERD TEMPX
;IERO TEMPY

ROWSS
o(SR
r212,30BUf

#0.R0

TEMPX,TERPX]
TEMPY TeMPY]
TESXT,THPADD
TEMPY1,TMPADD+1

quNuuuusuuN
NN NNNNNO NN

-0

SR U

1A%

e e
o PO e N
WNO NN NYNNNNNYN

107¢

(ARG

CARS:

004026
004054

CARSA:

:SET UP ROWSS
;CLEAR THE CSR
:LOAD COLOUR GREEN NO RED

:SET CHARACTER IN RO

:
:
;*SET LP
;*CURSOR ADDRESS

Eno OF LINE ?
YES

PC.LDADPS

.LOAD Aooness AND P1CTURE SYOHE

CARY

:NO, THEN DO SOME MURE

TEMPX
TEMPY
TEMPX)
.
CAR2
TEMPY] MALFBY
CAR? .

;*MOD XBY T0 MAKE
:*D1AGONAL L INE
;e1S 17
;*THE END
:*0F THE
.-Llni ?

TEMPX
RO

SSTART OF NEXT LINE
sNEXT CHARACTER

CARS
8249 ,30BUF
HALP By, TEMPY

:YES, THEN BRANCH
*LOAD COLOUR GREEN ON R UE
;*SET UP START FOR 80TTOM

#80, ,TEMPX

1070
oM

ERRDIS

TMPADD ,#64 .

CAR?2:

1067

s
.

MOV

#7,TESTNO

CAR1B

014520

1068
1069

CLR

MOV

1059

107
107%
107%
1077
1078
1079

TRAP+2
17000
JSR

004062

CAR'B:

1060
1061
1062
1063
1064
1065
1066

MOV

JSR

004054
004056
004060
004061
000100

1053

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

1030

1J%2

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

#0, TEMPX
264, RO

TEMPX, TEMPX

:ANY MORE LINES

SeMALF OF SEREEN
:NEW CHARACTER

seSET UP

TEMPY, TEMPY

;*(URSOR ADDRESS

THPADD . #654.

;

TEMPX) TWPADD
TEMPY1,TRPADD+T

CARSA
PC.LDADPS
TEmPX!

END OF TINE ?

YES
SLOAD ADDRESS AND P1CTURE STORE
;oM0D By TO MAxE

lal
4

—a

MACY11
viv vISUAL TESTS
CVVTIBA,SRC
06-SEP-79 15:2%
~
w
~

1085
1086
/1087

105237
w

003012
003016
003022

1080
1081
1082

004056

003034

002796

003040

0040%0

| 1089 -003046

000200

/1088

1091
—

/ 1090

00304«

003052

003060

06-SEP-79

TEST?

004056
006054

003024
003032

1083
1084

30AC1052)

000120

INCB
;31'

004062

g:"
L

CARG:

INC

18 127

TEMPY]
TEMPX)

013502
01374

:*1HE

(ARG

;*LINE ?

TEMPY! ROWSS

CARS

:*0F

END

THE

“NO, THMEN DO SOME MORE

BIC

BPL

CARG

;YES, THEN BRANCH

MOV
CAR7:

;*DIAGONAL L INE
1S 1T

CARS

TEMPX

;THE PICTURE

002000

SEa 0027

sSTART OF NEXT LINE
sNEXT CHARACTER
CLEAR TOP BIT

INC

CLRB
CLRB

DEC
BNE

#2000,R0
JCHAR
a(HDR
RO

CAR7

—

]

PAGE 21+

RO
#200,R0

(mp

064050

sANY MORE

STORE

LINES

[S NOw LOADED.

:SET CHARACTER ADDRESS 10 0
;SET CHARACTER STORE 10 0
;ALL
sNO,

DONE ?
THEN E<ANCH

—_——

MACY11
;
06-SEP-79 15:23

VIV ViSUAL TESTS

228

OO0
—

0rT336
003342
00325
003352
003354
003356
003364

1
0
1
005301
100374
012737
004737

013232
000017
013220

003370

110077

013200

BIS

MOV
MOV
"oV

cx:

c0:
004024

013316
000017
013304

277

000002
003732

000001

003732

000001
002732

MOV
MOV
MOvB

DEC
BPL

JSR

% §

00402¢

000001
003732

CLR
NOP
MOvB

MOV

NN
N -~

013350
000017
013336

—

000002
003732

~
— ~N

QO
Dt Ot

w
L

N3%

OCO—=O—=0O—

R
44

NLV
(W AV
~
ooN

3
.- 888

U‘
~N

£ 288223
?—8°-.d-.
rnNoOwVwNNNO
?NO&NNO
nNNO NN
NNWW’:NO
SNNWwWwWwNN
ONO~N
o
o~
WWNONO
N
»
Fo

013264
000017
013252

—_-O-e

OCO—=O =0~

—

il st st
s ol e

000901
003732

06-SEP=79
TEST?

013446

013440
003532
000017
013422

00330.
003310
C03314
003320
003322
003324
003332

T
g

W e\

T ak 2R 2R Y,

o
— Pl

- —
s
B —
il
il
il

VAN WUAWAG B B sa0s
VS WN-«OO0® ~Nows

000001
016576
001356
000340

013402
000017
013370

it o
o

e Y
e
e
e R
R

052777

POPNIPNONINI NI N NI PU NN

S ——

S
e
U
——

1101

s 283338328

(VWVIBA.SRC

30A(1052)

004024

(3:
0C402¢4

MOvB
MOV
MOvB

DEC
B8PL

00402¢

#1,3CSR
INTVEC,RO
FTIMET, (RO)+

#340, (RO)

3
SEQ 0028

;TURN ON DISPLAY

“SET UP INTERRUPT VECTOR
“SET 10 CMARACTER ZERO

RO,3CHAR
#CHARO ,R2
#15..R1
(R2)+,3CHDR
R1
co

;LOAD CHARACTER ADDRESS
;SET UP POINTER

RO,3CHAR
#15..R1
(R2)+,3CHDR
R1

;LOAD CHARACTER ADDRESS

#1,T1IME
PC,WALTY

;LOAD CHARACTER DATA
;HAVE WE DONE

;BRANCH IF NO
;SET UP WAIT
;WAIT SOME TIME

;LOAD CHARACTER DATA
;HAVE WE DONE

;BRANCH IF NO
;SET UP WAILT
;WAIT SOME TIME

JSR

MOvB
MOV
MOvB
DEC
BPL
MOV
JSR

RO,3CHAR
5. .R1
(R2)+,3CHDR
R1
2
#1,1IME
PC,WALTY

;LOAD CHARACTER ADDRESS

MOVB

RO,3CHAR
5. .R1
(R2)+,3CHDR
R1

;LOAD CHARACTER ADDRESS

MOV

MOvB
DEC
BPL
MOV

MovB
MOV

MOVB
DEC
BPL

JSR

MOVB

004024

#2,TIME
PC,WAITT

MOV

€S:

PAGE 22

MOV

JSR

(4&:

15:27

MOVB
DEC

BPL
MOV
JSR

MOvB

;LOAD CHARACTER DATA
;HAVE WE DONE

;BRANCH 1F NO
;SET UP WAIT
;WAIT

SOME

TIME

;LOAD CHARACTER DATA

sHAVE WE DONE

#2,TIRE

;BRANCH IF NO
;SET UP WAII

RO,3CHAR

;LOAC CHARACTER ADDRESS

(R2)+,3CHDR
R1

;LOAD CHARACTER DATA
;HAVE WE DONE
;BRANCH IF NO
;SET UP WAIT
;WAIT SOME TIME

RO,3CHAR
#5..R1
(R2)+,3CHDR
R1

;:LOAD CHARACTER ADDRESS

PC,WAITT

(4
#1,T1ME
PC,WAITT

M TIME
PC,WAITT

RO,3CHAR

;WAIT

SOME

TIME

;LOAD CHARACTER DATA
;HAVE WE DONE
;BRANCH IF NO
;SET UP WATT
;WAIT

SOME

TIME

;LOAD CHARACTER ADDRESS

#,TIME
PCLWAITT

BIT

003126
000200

1%:

104404

“HAVE WE DONE

; INCREMENT CHARACTER NUMBER

RO
#200,R0
1%
CX

#200.R0

"KEEP AS CMARACTER

REPCNT

;SET SWR BIT 8 10
;LOOP ON TEST
:DO:E4ENOUGH ?

:NO

#100,aSwR
1%

:CHECK FOR PRE=-SELECTED TES!

TRAP+4

013064

001232
004064

000
200
000
100
000
040
000
020
000
010
000
004
000
002
000
001

001

005037
052777

001420
040000

170Ww:
1%:

CHARO:
CHAR1:

CHARZ:

CHAR3:
CHARG:

CHARS:
CHARG:

012612

BIT
BEQ
JMP
JMP

.NLIST
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

(HAR7:

.BYTE
.BYTE
.EVEN

WAITT:

(LR
B1S

Nos

000100

032777
001402
000137
000137

o a—

003126

0001>.

170ww

016610

17001
DEC
BEQ
JMP

0025¢4"
0053~
0014

JSR

BNE
JMP
BIC

sHAVE WE DONE

.- s

003702
003712
003722

042700

DEC

INC

000200

:BRANCH IF NO
JSET UP WALT
;WALT SOME TIME

RO,3CHAR
#15..R1
(R2)+,3CHDR
R1

MOvB
MOV
MOVB

BPL
MOV

004024

(6
L TIME
PC.WAITT

003532
003542
003552
003562
003572
003602
003612
00362¢
003632
003642
003652
003662
003672

€ 4

;LOAD CHARACTER DATA

—-OoONO
SO —

003522
03526

JSR

SEQ 0029

#15..R1
(R2)+,3(HDR

003512
003520

000001
003732

MCvV
MOvB
DEC
BPL
MOV

003474
003476
003500
003504
003506

004024

013146
000017
013134

003422
003426
003432
003435
003440
003442
003450
003454
003456
003462
003464
003470

(6:

15:27

s s s s
O
MnNOHrO—~—0O-

003404
003406
003410
003416

012701
112277
005301
100374
012737
004737

06=SEP=79
TEST?

RN AR AR RS I

28832
2R R R

- —

-l

s s

- —h — — — —
—
-

~N N — =

1202
1205
1204
1205
1206

003374
003400

30A(1052)

IF AN INISSELS WSS NN
283
-

il
D il
il
el

Dl —h

D —l —h -l ot

D el il

VOO0

il il

B el

D il il

il il

N~I~NNNN~NNN~

D il il i

D il

il il il il

D il il A

ol o B

B el il il il

1157
1158

VIV VISUAL TES 1S
CVVTBA.SRC
06-SEP-79

SRS

0
PAGE ?22-i

INTFLG

#40000,3CSR

;CLEAR FLAG

;SET

INTERRUPT ENABLE

003744
003760
003764
003766
003772
003776
004000
004006
004022

005737
001775
005037
005337
001370
062777

30A(1052)

001420

06=-SEP=79
1t S17
1%:

001420
004024
040000

BNE
BIC

012550

PSWSET
R1S

000207

00402¢

000000

004026
004034
004040
004042
004046

0 13777
1 05777
1 00375

004050
004052
004054
004056
004060
004062

000000
000C00
000000
000000
000000
000000

110077

000207

TIME:

004060
01251¢
012512

012526

15:27

PSWSET
181
3EQ
CLR
DEC

LDADPS: MOV
1STB
LDPS:
BPL
MOVB
RTS

TEMPX:
TEMPY:

TEMPX1:
TEMPY1:

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

*CLEAR FLAG
*BRANCH IF MORE T0 DO
;CLEAR ENABLE
;TURN OFF INTERUPTS
;WAIT OVER

COOO0O0OO

—

W =00~V
VS w
VONONS

VN
Voo~

— —
R
R
R
e
e
B

NNV
N NN NN NN NN NN N ~

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

TMPADD ,aCAR
a(SR
LOPS
RO,aDBUF
PC

;LOAD ADDRESS
.TEST FOR READY

;BRANCH IF NOT

;LOAD PICTURE STORE
:9ETURN

B
i—

MACYT
VIV VISUAL TESTS
CVVTIBA.SRC
06-SEP-79 15:23

1266

1267
1268

1269

1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296

15:27

.SBTTL

PAGE 23

SEQ 0031

TEST10
:"""""""""'

;THIS TEST PATTERN DEMONSTRATE.
:THE OPERATION OF BLINK AT
;EVERY CHARACTER POSITION.

:""""""Q"""

004064
004072
004074
004076

012737

000010

004102
004737

016756

004102
004106
004112
004116

005037

104402

004122
004126
004132
004136
006144
004150
004154
004160
004164
004166

004170
004174
004200
004204
004206
004212
004220
004224
004226

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

005077
012703
012701
005000
012702

116177

110077
005200
005302
001370
11¢777
112777

16177
110077

005290
062789
0053
001366
112777

112777

005301

100352

005363

TEST10: MOV
TRAP+2
110000
JSR

#10,TESTNO

;SET UP TEST

PC,TESTR

;OUTPUT

016706
000004
017444

110009:

ERRDIS

016610

MOV

016576
001356
000340
001404
000200
012420
005403
001746

110001: MOV

0166V2

000315
000312
000007
000100
000120
004642
012260

CLRB
110003: MOV
JSR
DEC
BNE
(LR

012340

012320
012312

:
:
:
:

MOV
MOV
CLR
MOV
MOVB
MOvB

INC
DEC
BNE
MOvVB

MOVB

DEC
BPL

T110008: MOV

110009: MOv

012264

000200

000315
000312

MOV
MOV
MOV
Mov

012412

012366
000003
000007

000120
004642
012334

CLR

MOV

JSR

—

1265

ST10

(=L =)

1241
12642
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
156
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

.'»0M1()52)'E 06-SEP-79

2240
2232

MOV

110010: MOVB
MOvVB
INC
BIC
DEC

BNE

MOVB
MOvVB

DEC
BPL
DEC

#6 R4
PC,FASTSW

NO.

TEST NO

R4 ,REPCNT

:SET UP TEST

INTVEC,RO

;*SET UP

ITERATION COUNT

#TIMEY,(RO)+
#340, (RO)
¥1404,9CSR
#200,R1
oCHAR

s*INTERRUPT
;*VECTOR
;SET 6V,6H B INC BITS
i
H

Pg.LDCH

:*WITH SAME

#PREZ2 RO

;*LOAD ALL CHARACTERS
PATTERN

aCAR

:SET CURSOR TO ZERO

110003

#3,R3
#7.R1
RO
#80. ,R2

:
:
:
;CHARACTERS PER LINE

sNEXT

BKCOL(R1) ,aDBUF
RO,aDBUF

;LOAD A COLOUR
:LOAD CHARACTER

110007
#315,3DBUF
;?IZ.SDBUF

CHARACTER

:BRANCH IF
;D0 (R
b

MORE ROWS

110005
"7 ,R1
#100,R0
#80..R2

;BRANCH
:
2
:

Rg.iDBUF

;LOAD (HARACTER

BXCOL(R1),aDBUf

#312,308BUF

110009
R3

COLOURS

;LOAD COLOUR

#200,R0
R2
"10C10
#315,aDBUf

;SET UP CHARACTER
;ANY MORE
:BRANCH IF YES
;CR

sLF

;
.
s

viv VISUAL TESTS
MACY1 SOA(IOSZ)‘Eg?;3EP-79
CVVIBA.SRC
06-SEP=-79 15:23
1297

1298

004334

001321

15:27

BNE

1299

1300

1301

1302
1303
1304
1305
1306
1307

004336

000303
000057
004640
002172
002172
000020

004412
004416
004422
004426

042700
052700
110077
000300

000100
000200
012132

110077

012124

105777

012126

105377
127737
001404
105277
000137

012120
012116

004737

003732

004430

1315

004434

1317
1318
1319
1320
1321

004442
004446
004454
00445¢
004462

004440

1322

004466

1324
1325

004500
004506

1326
1327
1328
1329
1330
1331

1332
1333
1334
1335
1336
1337
:ggg

004474

004510
004514
004520

004526
004530
004534
004540
004546
004552
004560
004562
004570

004572

017700

001412

012737
123727
001404
105237
000137
123737
001404
105237
000137
012737
004737
032737
001404
042737
000403

052737

1340
1341
1342
1343
:g‘g

004600
004602
004604
004610
004612

1346

004616

138
}g;g

004632
004634

001407
000137

1351

004640

000000

1347

1352

001401

012737
012737
113777
005037
013777
052777

}g}g

1323

012777

0043445
004352
004360
004366
004372
004400

004406

1316

110004

SEQ 0032
:

;THE PICTURE

STORE

R
e R R
L

1308

1309
1310
1311
1312

6 3
PAGE 23-1

004624

104404
004360
005337
001402

012146

012106
004400

MOV

004640
002170
012172

BxO:

012162
012150

Bk1:
Bk4:

004024

00217¢

000117

002172
004372
002173

002170

002173
004372
000500
003732
000001

004024

000001

004640

000001

004640

Bk2:

BKS:
5

BK6:

004640

BK7:
BkS8:

016610

004360

112777

80050

0010

011752

RO,aDBUF

;BLINK ON CODE
sMAX NUMBER OF ROWS
;LOAD BLINK ON/OFF COMMAND
:
;LOAD ADDRESS
;READ STORE
:
sMAKE COLOUR COMMAND
;LOAD COLOUR
;GEY CHARACTER

sLOAD 17

1STB

aCARX

sTEST X ADDRESS

DECB
(MPB
BEQ
INCB
JMP

aCARX
oCARY ,MAX
BK2
aCARY
BK&

:DECREMENT X ADDRESS
;CHECK Y ADDRESS
:BRANCH IF =
s INCREMENT Y ADDRESS
;DO SOME MORE

MOV
JSR

CMPB
BEQ
INLE
JMP
(MPB
BEQ
INCB
JMP
MOV
JSR
BIT
BEQ
BIC
BR

BIS

TRAP+4
Bk0
DEC
BEQ

BIT

BEQ
JMP
BLINK:

sSAVE CONTENTS

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

T100ww: MOVB

001232

aDBUF ,RO

BIC
BIS
MOVB
SWAB

MOV

JMP

01‘724

sSET 6V,6H & DISPLAY ON

#303,BLINK
#a7. MAX
BLINK ,aDBUF
ADDR
ADDR ,aCAR
#20,aCSR

BEQ
002170

:NOW START SETTING & CLEARING BLINK

#1401 ,39CSR

MOV
MOV
MOVB
CLR
MOV
BIS

MOVB

000004

000137

032777

912212

IS NOW LOADED

Bx?2

#6,T1IME

PC,WAITT

ADDR ,#79.
BKS .
ADDR
BK1
ADDR+1,MAX
BK6
ADDR+1
BK1
#50",TIME
PC,WAITT
#1,BLINK
BK7
#1,BLINK
Bk8

#1,BLINK

;BRANCH 1F ZERO

JSET UP WAIT
sNOW WAIT

sHAVE WE FINISHED
;BRANCH IF YES
:
;ALL DONE ?
;BRANCH IF YES
s INCREMENT Y ADDRESS
;GO AND DO SOME MORE
;SET UP FOR WAIT BEFORE
sNEXT PASS
i
i
L
:*

;*MOD BLINK COMMAND

Bx0

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

#300,aDBUF

sCLEAR BLINK FLAG

REPCNT
T100ww

#100,3S5WR
TESTI
START?

sCHECK FOR PRE=-SELECTED 1EST

PEM NS

viv VISUAL TESTS
MACY11
CVVTBA.SRC
06-SEP-79 15:23
1353
1354
1355

1356

1357
1358

004642
004645
004650

270
245
212

267
234
201

30A(1052)
2 32
2

06-SEP=79
TESTIO

BKCOL:

.BYTE

15:27

H 3
PAGE 23-2

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

SEQ 0033

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

30A(10%52)

06-SEP-79
TE ST

15:27

LSBTTL

PACE 24

SEQ 0034

TESTI
;"""""""'"""

004656

012737
004737

000011
016756

004670

005037
012704
004737
010437

016706

004664

004674
004700
004704

004736
004742
004746
004752
004754

390
1361
1392
1393

004756
004764
004770
004776

1394
1395

1396
1397
1398
1399
1400
1401
1402
1403
1404
1405

005002
005010

005014
005022
005026
005034
005040
005046
005052
005060
005064
005072

112777

004737
112777
004737
112777

004737

112777

004737
112777

004737

112777
004737
112777

004737

112777

004737

016602

000204
005134
000246
005134
000262

005134
000227
005134
000275
005134
000253
005134
000231
005134
000210
005134

MOV

#11,TESTNO
PC,TESTR

;SET UP TEST NC
;OUTPUT TEST NO

CLR

ERRDIS
#REPCT3,
R4
PC,FASTSW
R& ,REPCNT

;SET UP TEST ITERATION COUNT

INTVEC,RO

;*SET UP

JSR

111000:

000002
017444
016610

016576
001356
000340
001400
000200
011632
005372
001746

004710
004714
004720
004724
004732

386
385
386
87
88
89

004670

TRAP+2
111000

MOV

JSR

MOV

T11001: Mov

011624
T1102:

011574
011562

011550

011536

T1103:

MOV
MOV
MOV
MOV
(LRB

MOV
JSR
DEC
BNE

#1400,aCSR
#200,R1
a(HAR
#PREO,RO
PC,LDCH
Ri

JSR

PC,PRESUB

MOVB

011466

MOVB

JSR

005076
005100
005102
005106
005110

004756
005337
001402
000137

004756

1415

005114

032777

000100

104404

11103

016610

DEC
BEQ
JMP

011462

T110ww: BIT

;*VECTOR
;SET 6V B 6H BITS
b

;*LCAD ALL CHARACTERS
:*W1TH ZERO
.x

;LOAD COLOUR
; CHANGE

PICTURE

#227,30DBUF
PC,PRESUB

#275,30BUF
PC,PRESUB

#253,30BUF
PC,PRESUB
#231,3DBUF
PC,PRESUB
#210,aDBUF
PC,PRESUB

;SET SWR BIT 8 10

TRAP+4

1409
1410
1411
1412
1413

;*INTERRUPT

11102

#204 ,aDBUF
PC,PRESUB
#246,2DBUF
PC,PRESUB

011500

011512

#340, (RO)

MOvVB
JSR
mOVB
JSR

MOVB
JSR
MOovB
JSR
MOVB
JSR
MOVB

011524

FTIMET, (RO)+

et TV

1379
1380
1381
1382
1383

TEST11:

104402

(NT

Dl
*J

374

1375
1376
1377

004652
004654

—

9
0
1
72

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

— -t
O

;THIS TEST PATTERN USES PRESET
;71O DEMONSTRATE THAT THE SCREEN
;WILL PRESET TO ANY FORGROUND
:OR BACKGROUND COLOUR.

Oww
03

#100,aSWR

;LOOP ON TEST
sDONE ENOUGH ?
JYES
:NO

;CHECK FOR PRE=-SELECTED TEST

FKACYIT
VIV VISUAL TES 1§
CVVTBA.SRC
06-SEP-79 15:23
1416
1417
1418
1419
1620
1421
1622

16423
1624
1425
1426
1427

1428
1429
1430
1431
16432

005122
005124

001402
000137

005434

005134

000001
000010
11402

005150
005156

000001
011404
005372
001746
000200

005156

005164
005170

005174
005200

003732
011356
005376
001746
000004
003732
011330
005403
001746
000004
003732
011302
005411
001746
000004
003732
011254
005417
001746

1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444

1445
1446
1467
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1“1
1 e

1463
1464

1465

1466

001232

005130
005142

000004

005342
005346
005352

005370

000207

005372
005376
005403
005411
005417
005425

000
000
000
060
170
374
005434

SOA(IOSZ)1 06-SEP=79
ESTI

003732
011226
005425
001746
000200
003732

T110wy:

)11414

J11406

011372

15:27

START?2

JMP

TEST12
#1,3CSR
#10,3CSR
a(SR
PRES1
#1,3CSR
aCHAR
#PREO,RO
PC,LDCH
#200,TIME
PC,WAITT
a(HAR
#PRE1,RO

JSR

MOV
JSR
CLRB
MOV

JSR

PC,LDCH
6, TINME

MOV

JSR
CLRB
MOV
JSR
MOV
JSR
CLRB
MOV
JSR

004024

PC.WAITT
a(HAR
#PREC RO

PC,LDCH
#6,T1ME
PC,WAITT

aCHAR
#PRE3 RO

MOV

JSR
CLRB

004024

MOV

JSR
CLRB

MOV

JSR

004024

MOV

JSR

RTS

000
060

PREO:
PRE1:

374
374
374

PRE3:
PRE&:
PRES:

170

PRE2:

SEQ 0035

;:TURN DISPLAY OFF

;D0 PRESET

;TEST

FOR READY

;LOAD

CHARACTER

WALT

SHORT TIME

;LOAD

CHARACTER

;BRANCH IF NOT READY
; TURN DISPLAL BACK ON
s LERO CHARACTER ADDRESS

;LERO CHARACTER ADDRESS

TWALT SHORT TIME

: 7ERO CHARACTER ADDRESS
:LOAD

CHARACTER

TWALT

SHORT

TIME

;LERO CHARACTER ADDRESS

PC,LDCH
6, TIME
PC.WAITT

;LOAD

CHARACTER

SWALT

SHORT

PC,LDCH

:LOAD

CHARACTER

a(HAR
#PRE4L,RO

MOV

JSR

1110wy

MOV

004024

PAGE 24-1

BEQ
JMP

PRESUB: BIC
BIS
iSTB
PREST:
BPL
BIS
CLRB

024

W6, TIME
PC,WAITT
a(HAR
#PRES RO

TIME

: 1ERD CHARACTER ADDRESS

TWALT SHORT

TIME

; ZERO CHARACTER ADDRESS
;LOAD

CHARACTER

sWALT SHORT
: FINISHED

TIME

.NLIST
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.EVEN
LLIST

-l

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

1486
1487
1488
1489
1490
16491
1492
1493
1494

1500

TR
S8IIRER
oNOoOw

SN =O

—.fldddl‘addflddd-

VWA AWV
WNWA N WNVNWNLLA LA
ol
il - —lt
OO0

1468
1469
16470
1671
1472
673
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485

30A(1052)

06-SEP-79

TESTIZ

15:27

.SBTTL

PAGE 25

TEST1Z2

SEQ 0036

;""""""""".

:THIS TEST DEMONSTRATES THAT
:THE CONTROLLER TIMING IS WURKING
;FOR ALL COMBINATIONS OF
;68 8, VvE AN,
:""'.".""t"..'

TEST12:

TRAP+¢
112000

005434
005436

104402
005452

005440
005446

012737
004737

000012
016756

005452
005456
005462
005466

005037
012704
004737
010437

016706
000001
017444
016610

112000:

005472
005476
005502

013700
012720
012710

016576
001356
000340

11200%: MOV

005506
005512
005516

011044
011056
002000
000000

000110
012572
012550

011032

005546

005077
105077
012700
112777
005300
001373
112777
012700
004737

005552
005560
005564

112777
012700
004737

00012¢
012602
012550

011014

MOVB
MOV
JSR

#'v,3CHAR
#112v.RO
PC,LDCHBY

005570
005576
005602

112777

012700
004737

000070

010776

MOVB
MOV

#'8,3CHAR
#7128,R0

005606
005614
005620
005624
005632
005636

112777
012700
004737
112777
012700
004737

010760

MOvVB
MOV

010742

MOVB
MOV

JSR

#'6,3CHAR
#1126,R0
PC,LDCHBY

JSR

#11250D,R0
PC,LDCHBY

012612
012550
000066
012622
012550
000177
012632
012550

016602

MOV

#12,TESTNO
PC,TESTR

;SET UP TEST NO
;OUTPUT TEST NO

CLR

ERRDIS
#1,R6
PC,FASTSW
R4, REPCNT

SSET UP TEST ITERATION COUNT

JSR

MOV

JSR

MOV

MOV
MOV

CLR
CLRB

011042

MOV

112004: MOVB
DEC
BNE

MOvB
MOV

JSR

RO
INTVEC
#TIMEY, (RO)+
#340, (RO)
aCSR
a(HAR
#2000,R0
#0,3CHDR
RO
112004

#'H,3CHAR

#T1124,R0
PC.LDCHBY

PC,LDCHBY

#177 ,3CHAR

;eSET UP
e INTERRUPT
eVECTOR

*CLEAR CHARACTER ADDRESS
“SET ALL CHARACTERS TO ZERO
.

*LOAD M

322

$58

005756
005762

005772

004737
004737
004737
004737

012550
012550
012550
012550

005776

112777

000041

006004

006010
006014
006020

004737
004737
004737
004737

012550
012550
012550
012550

006024

12777

000051

006032
006036
006042
006046

004737

012550
012550
012550
012550 -

005766

0106'6

010570

010542

MOVB

#21 ,3CHAR

JSR
JSR
JSR
JSR

PC.LDCHBY
PC,LDCHBY

MOvVB

#41,3CHAR

JSR
JSR
JSR
JSR

PC.,LDCHBY
PC.LDCHBY
PC.LDCHBY
PC.LDCHBY

MOvVB

#51,3CHAR

JSR

PC,LDCHBY
PC.,LDCHBY
PC,LDCHBY
PC.LDCHBY

JSR

PC.LDCHBY
PC,LDCHBY
PC,LDCHBY
PC,LDCHBY
PC.,LDCHBY
PC,LDCHBY

PC.,LDCHBY
PC.,LDCHBY

;eexsvsvesvvecneeNOWw

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

014514

112006:

000006
000040
000005
000050
014520
002170

1%:

2%:

002170

000247
000010
010406

9%:

L525

JSR
JSR
JSR
JSR
JSR
JSR

[« AV

#11,3CHAR
b s

MOVB

;CHARACTER 1

. b o

PC.,LDCHBY
PC.LLCHBY
PC,LDCHBY
PC,LDCHBY
PC,LDCHBY
PC.,LDCHBY

Se s

JSR
JSR
JSR
JSR
JSR
JSR

000021

#vBoH1
RO

START

112777

;SET 6H

#1,30HAR

005750

;****NOW LOAD SPECIAL CHARACTERS

#400,9CSR

NN
—

005720
005724
005730
005734
005740
005744

Se9 0057

onun

010654

005712

Sesa Lo

MOvB
MOV

PAGE 26

112005: MoV

15:27

06-SEP-79
TESTIZ

vcuuuuugww
NNNNNN
~N~

30A(1052)

SNNSNINNNNNYN

005642
005650
005656
005662
005666
005672
005676
005702
005706

—t
-

s
el
il
il
i
il
il
s

A
R
A A
—D i

VWA

N
N~

—s Sl
. —

(W LW LW LW N LW W LW W IV LW W LV I
IV W TV LW TV TN LW IV ]
NN
NN NN NN =

\I‘\l\x
AN VAW
WV VWAV WA \‘I:U‘U‘\l‘
FERE
oo
g\h\l‘\fiwm\fil‘l“bbb
W) VB WUN = O OV ~NO W SN
o1 et v atved oot S PN
S

1516
1517

§o§§oco-o
FRRFRrmmm

CVVTIBA.SRC

MACY11
06-SEP-79 15:23

TR TR

VIV VISUAL TESTS

LOAD

PICTURE

%
#6,VCNT
#32. ,HONT

#5,VONT

#40. ,HCNT
HALFBV
, MAX

MAX
MAX

#247 ,3DBUF
#10,9C5R
a(SR
%

PARAMATERS FOR 525L1%k

;COLOUR WHITE ON BLUE
;DO PRESE!

MACY11
VIV VISUAL TESTS
CVVTBA.SRC
06-SEP-79 15:23
010404
000004
000120
000021

06-SEP-79

15:27

CLR
BIS

TEST12

010372

010362

3%:

006202
006206
006214
006220
006226
006230

010360
002170
000120

006232

000004
010316
002170
000023
000312

000022

010354

010332

4$:

010316
010302
010274

010264

010250
010242

aCARX
MAX,3CARY

BIC

¥4 ,3CSR
acAR

MOvB
MOvVB
DEC

010226

Moy

MOovS

MOV

DEC
BPL
112007: MOV

1%:

MOV

JSR
DEC
BEQ

INCB
INCB

2%:
—

-t

3%:

010142
L%

012272

010102

INCB

MOV

B1S

MOVB

DEC
BNE
BIC
INCB
MOV

JSR
DEC
BEQ
INCB
INCB
BR

5%:

MOV

6%:

JSR

;SET CURSOR TO ZFRO
;SET INC BIT

SLOAD ====== LINE

#81.,R0
#2¢,90BUF
RO

MoV

SEQ 0038

BNE

mUV

6%:

(SR

(LRB

MOvB
MOV
move
DEC

BPL

000117
002170
000024
000312

aCAR

#80.,R0
#21,308Uf
RO

CLR

5%:

n3
PAGE 26-1

MOV
MOvE
DEC

BNE

wo
o

005077
052777
012700

006152
006156
006164
006170
006176
006200

BIIIFS
OO~V

R
I
T
B

VANV
A

1572
1573
764

30A€1052)

MAX RO
#23,3DBUF
#312,30BUF
RO
5%
#79.,.CAR
MAX,RO
#24 ,3DBUF
#312,30DBUF
S
6%

;CLEAR INC BIT

1LOAD

LINE

LOAD

1 LINE

VCNT ,RO.

#0,3CAR

PC,TLBRBY

LOAD \

LINE

SCARX
aCARY
1%
SCARX
HCNT RO
#4,9CSR

#22,3D8BUF
RO

#4,aCSR

aCARY

VCNT,RO

PC,TLBRBY

:SET INCREMENT BIT
LINE
:LOAD __

“CLEAR INCREMENT BIT
*LOAD

\ LINE

LOAD

* LINE

5%
aCARX
SCARY
«$

VCNT RO

#7959, ,9CAR
PC,BLTRBY

010076
010074

013700

012570

112777
105377
005300
00137

000021
010050

010046

013700
004737

8%:

005300

001405
105377
105277

006767

NN NN

1666

1674

1675

1676

1077
1678

167
167

35
oo

1670
1671

QOO

1669

1667

007736
007720

007712

001000

G07674
007670
007672
007656
007654
007640
007632
007624
00766

S
His
L

1665

NN NN SNNNNNNNNNYNY ~
~N N NNNNYNNNNNYN ~

1663

007770
007762
007756
007746
007740

1444
7

1659

--u~z-~uu~
NNNNNNNYN SNNNNNNNNNYNY

010000

166)

7%:

DECB
INCB
DEC
BNE

SCARX
aCARY
RO

MOV

HCNT RO

MOvB

#21,30BUf
SCARX
20
7%

DECB
DEC
BNE
MOV

JSR
DEC
BEQ
DECB
INCB
BR

T112008: BIS
CLR

MOvB
MOvB
MOV

MOvB
MOove
CLRE
MOve

MOvB

MOVB
MOove
MOve
MOvB

VONT RO

L INE

PC.BLTR8BY
RO
112008
SCARX
SCARY

LOAD /

#4,3CSR

SET INCREMENT BIT

CAR
#41,30BUF
#42 ,30BUF
#78. ,9CAR
#53,30BUF
#54 ,20BUF
CARX
, 3CARY
MAX
#51,30BUf
#52,30BUF
#78. ,9CARX
#43,30BUF
#44 ,DBUF
,3CARY
BVLF
HA

#1000,3CAR
#35. ,8CARX
#177,908BUF
#0,308UF
#'8,30BUF

105377

SEQ 0039

006464
006470
006474
006476

PAGE 26-2

1628
1629
1630

15:27

MACYI 30‘(1052)‘£g233$r-79
viv VISUAL TESTS
06-SEP-79 15:23

CVVTBA.SRC

XY¢

SET UP MESSAGE

#'v,a08UF
#0,308BUF
#0,30BUF

#'6,30BUF
#'n,30BUF

#0,30BUF

#177.308UF

TCLEAR INC BIT

#4,9CSR
#1,3CSR

STURN ON DISPLAY

PC wALTY

SWALT A SHORT T1ME

#500,
T im

viv VISUAL TEST'S
MACYIY S0AC1052) O06-SEP=-79
CVVTIBA,SRC
06=-SEP=79 15:2%
TEST12

15:27

PAGE 27

SEQ 0040

1680
1681
1682
1683
1684
1685
1686
1687
1688
}:gg

00703
007042
007050
007056
007060
007064
007070
007076
007100

012777
112777
012700
004737
004737
004737
004737
004737
004737

001000
000001
013142
001746
001746
001746
001746
001746
001746

007514
007524

T112010: mOv
mOvB
MOV
JSR
JSR
JSR
JSR
JSR
JSR

::z;

007106

112777

000011

007462

*OvVB

#11.3CHAR

16593
1696
1695
1696

007112
007116
007122
007126

004737
004737
004737
004737

001746
001746
001746
001746

JSR
JSR
JSR
JSR

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

3
3
3

};8?

007142

112777

000021

MOvVB

#21,3CHAR

1702
1703
17064
:;82

007150
007154
007160
007164

004737
OF«737
004737
004737

001746
001746
001746
001746

JSR
JSR
JSR
JSR

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

3
'y
:
3

21
22
23
26

};8;

007170

112777

000041

MOVB

#41 ,3(HAR

1709

007176

004737

001746

JSR

JSR
JSR
JSR

PC,LDCH

PC,LDCH
PC,LDCYH
PC . LOCH

};}g

007216

112777

000051

MOVB

#51 ,3CHAR

;

1716
1717
1718

0072264
007230
007234

004737
004737
004737

001746
001746
001746

JSR
JSR
JSR

PC,LDCH
PC,LDCH
PC.LDCH

f
3
3

1721
1722
1723
17264
1725
1726

007244
007250
007252
007260
0C 266

005737
0010067
012737
012737
000406

014514

112011: 187
BNE
MoV
MOV
ER

1729
1730
1731

007304
007312
007316

013737
006337
005337

014516
002170
002170

1697
}:gg

1710
1711
:;}g

};53

1727
1728

1782

1733
17%

1735

007132
007136

007202
007206
007212

007240

007270
007276

007322

007330
007330

007342

004737
0N0~737

004737
004737
004737

004737

001746
001746

JSR
JSR

007424

007376

001746
001746
001746
007350

001746

JSR

000006
000034

012566
012570

012737
012737

000005
000042

01256
012570

112777

000247

052777
105777

100375

000010
007214

002170

1%:

2%:

007230

007220

MOV
MOV

PC.LOCH
PC,LDCH

PC,LDCH

#5,VONT
#36, ,HONT

HALF6V ,MAX
MAX
MAX

BIS
1S1B

#10,9CSR
a(SR

BPL

:
:

¢
:
3

]

1"
12
13
14

15
16

42
43
44

N
52
53

;eevweeecreenveeeNOW START TO LOAD PICTURE
LS25
1
1%
:
:
#6,VONT
#28. ,HCNT
:
2%
:

MOV
ASL
DEC

mMOv8

9%:

;eeeeNOW LOAD SPECIAL CHARACTERS 6v BM
#1000,3CSR
:SET 6V
#1,0(HAR
:
#V68H1 RO
:
PC,.LDCH
sCHARACTER 1
PC,LD(TM
3
2
PC,LDCH
3
3
PC,LDCH
3
4
PC,LDCH
i
b
PC,LDCH
3
6

#247,30B1'F
13 3

:PARAMATERS FOR S52SLINE
:
:
:
e

:LC.OUR WHITE ON BLUE

;DO PRESET
:

RO RSSO

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

761
762
763

007424
007432
C07436
007442
007450
007456

007460

007462
007470
007474

007502
007510
007512

TEST1?

(LR
BIS

007200
007170

3%:

= BN

[=]

T -F
8==28f 8 [«
O

007422

8 WVININ WV

756
5
58
59
60

007620

06-SEP-79

007166
002170

000100
000023

000004
007124
002170
000021
000312

007140

4%:

007124
007110
007102

777

000077
002170
000022
000312

012566
000000
012364

007034

5%:

6%:

776
777

778

779
780
781
782
783
786
785

1786
1787

007576

007600
007606
007612
007616
007622
007624
007626

007632
007636

1789

007640

1791

007652

1790

000023

007566
007574

007644

005300
001405
105277
105277
000767
013700
012777
004737

000004
006756
012566
012364

1%:

000077
012456

MOV

MOVB
MOVB
DEC
BPL

MOV
MOV
MOVB
MOvB
DEC
BPL
MOV

JSR
DEC
BEQ
INCB

INCB

2m
006770
006764

3%:

006750
4%:

006734
006732

012566

DEC
BNE

1T12012: MOv

007024
007022

007012
012570
000004

MOvVB
MOV
MOvB

BIC
(LR

007072
007056
007050

MOV
MOve
DEC
BNE

CLRB

007162

1750
1751
1752
753
756
755

007374
007400
007406
007412

62
43
17644
1745
1746
1747
17648

007362
007370
007372

007212
000004
200100
000024

Ot it OO

39
40
41

0073«4
007350
007356

[ I

1736
737
738

30A(1052)

006710

5%:

6%:

INCB

MOV

BIS
MOvVB
DEC
BNE
BIC

15:27

&
C
PAGE 27-1

aCAR

#6 ,3CSR
#64. PO

#24 ,30BUF
RO

CARX
MAX ,@CARY
#64. RO

#23,30BUF
RO
(33
#6,3CSR

aCAR
MAX RO
#21,30BUF
#312,30BUf
RO

#63. ,3CAR
MAX,RO
#22,30DBUF
#312,30BUf
RO

L INE

ELOAD

J LINE

VCNT RO

#0,3CAR
PC,TLBROV
RO

LOAD \

L INE

aCARX
aCARY
1%
aCARX

HCNT RO
¥4 ,3CSR

#23,30BUFf
RO

;SET INCREMENT BIT
L INE
:LOAD

#4,9CSR

SCLEAR INCREMENT Bl

VCN1,RO

JSR
DEC
BEQ
INCB
INCB
BR

PC,TLBRG6V

JSR

TLOAD [

INCB

MOV
MOV

;CLEAR INC BIT

aCARY

MOV

;JERO CURSCR
;SET INC BIT

VCNT RO
#63. ,3(AR

P, BLTRGY

LOAD

\ LINE

*LOAD

/ LINE

012570

007676
007704
007710
007712

112777
105377

000024
006656

013700
004737
005300
001405
105377

012566
012456

000044
000312
000043
006542
002170

006532

SNNNNNNNNYNYNNNNSNINNNYN NN~
SONNNNNNNNNNNNNNNTGe NNN

000042

it
i
I I I gY
TM el TM Ll
s \ N s it s ) el lh s

s s O

R
e e e

010174
010202
010210
010216
010224
010232
010240
010246
010254

s il il il il il it il

010044
010052
010060
010066
010074
010100
010106
010114
10122
010130
010136
010144
010152
010160
010166

000053
000077

7%:

8%:

006632
006630
006614
000054
000312

010036

000767

007742
007746
007754
007762
007770
007776
010004
010012
010020
010024
010032

105277

006654

006604
006576

006570
006564
006554
006546
006540
006536

000312
000041
000077
002170

006514
006506
006500
006500
006474

000110
000000
000177
000004
000001

006452
006444
006436
006426
004432
0064'6
006414
006400
006372
006364
006356
006350
006342
006334
006326
006320
006312
006302
006274

15:27

DECB
INCB
DEC
BNE

aCARX
aCARY
RO

HCNT RO

MOvB
DECB
DEC
BNE

#24 ,30BUF

MOV

JSR
DEC
BEQ
DECB
INCB
BR

112013: CLR

MOvB
MOvB
MOvB
MOV
MOvB
MOvB
MOvVB

CLRB

MOVB
DECB
MOvVB
MOvVB
MOVB
mOvB
MOvVB
DECB
MOVB
MOvE
MOvVB
BIS
MOVB
SUB
MOvVB
MOVB
MOvB
MOv8
MOVE
MOvVB
MOvVB
MOvVB
MOVB
MOVB
MOvB
BIC

BIS

0_4

PAGE 27-2

(31

SCARX
RO
7%

VONT RO

FC,BLTROV

RO
112013
SCARX
aCARY

SEQ 0042

013700

007714
007720
007724
007726
007730
007734
007740

O06-SEP-79
TESTI2

007672

sl BN
~N

1817

105377

005300
001371

30A(1052)

006704
006702

007656
007662
007666
007670

= l=

— -

—_——

OO 0o

ow SPWN-O

©Oo OO 0o 0o

EREECHEE
L 33333333
ERRFERS

MACY11
VIV _VISUAL TESTS
CVVTIBA.SRC
06-SEP-79 15:23

;LOAD ==ee=- L INE

*LOAD /

L INE

ACAR
#54
, 3DBUF
#312,308BUf
#53, 3DBUF

00 L.

#63. ,aCAR
#44
, DBUF

#312,3DBUF
#43, 3DBUF

CARX
MAX ,3CARY
aCARY
#42 ,3DBUF
#312,30BUF
#41,308UF
#63. ,aCARX
MAX 2CARY
SC4ARY
#52,3DBUF

#312,3DBUF
#51, a0BUF

#4,3CSR
F
6V ,aCARY
HAL

#1000,2CAR
. 3CARX
#27.
#177.30BUF
#0,30BUF
-

TxvZ

;SET INCREMENT BIT
;SET UP MESSAGE

#'6,a0BUF

#'V.30BUF
#0,308UF
#0 ,30BUF

#'8,a0BUF
#'H.DBUF
#0,30BUF

#177,308Uf
#4,3(SR

#1.3C5R

TCLEAR INC BIT

“TURN ON DISPLAY

VIV VISUAL TESTS
MACY11 30A(1052)
06-SEP-79
TEST12
CVVTBA.SRC
06-SEP=-79 15:23
1848
1849

010262
010270

012737
004757

000500
003732

004024

MOV

JSR

15:27

PAGE 27-3

#500, 1 1 ME
PC,WA l 1 1

SEQ 0043

‘WwAlT SHORT TIME

§ KONGRSO

NN
N NN NN

06-SEF-79

TEST12

(LR

MOVB
MOV
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR

[=lelelelelelalele]le)

b
s
2
b

VWY
A
UA VWY

[=lelelelelelelelelo]le]

s
s
s
b
s
s
e~

[=lelelolelele]le]e]

004737

15:27

PAGE 28

a(CSR

SEQ 0044

;eeeeveeNOW LOAD SPECIAL CHARACTERS 8v 8H
H

#1,3CHAR
#V88H1,RO
PC.LDCHBY

:SET CHARACTER ADDRESS
:
;CHARACTER 1

PC,LDCHBY
PC,LDCH8Y
PC.LDCHBY
PC,LDCHBY
PC,LDCHBY

3
3
3
-

PC,LDCH8Y

PC,LDCH8Y
PC.LDCHBY

PC,LDCH8Y
PC,LDCH8Y

3
3

010366
010372
01C37¢4
010402
010404
010412
010420
01042¢

010430
010436
010444
010450
010452
010456
010464
010470
010476

il
il

014514

112777

052777

105777
100375
005077
052777

012700
112777
005300
001373
062777
013700
006300
112777
112777
005300
001370
005077
013700
006300

112777

112014:

000034

012570

000042
014520
002170
002170

012570
002170

000247
000010
006106

006122
006112

006104

000004
000100
000005

3%:

006072
006062

000004
014520

006046

000004
000312

006034
006026

4%:

5%:

006002
005774

D —

000004
000100
000006

6%:

1STB

BPL
CLR
BIS

MOV
MOvVB

DEC
BNE
BIC

MOV
ASL
MOVB
MOVB

MOV
ASL

MOvVB
MOvVB

DEC
BNE
BIS

005760
005750

BIS

DEC
BNE
CLR

006020
014520

000003
000312

187

BNE
MOV
BR
MOv
MOV
ASL
DEC
MOVB

il el

10514

005737
001004
012737
000403
012737
013737
006337
005337

7%:

MOV
MOVB

DEC
BNE

L525

2
3

b
5
6
4
10
1
12

:
-

;evevexeeesNOW START

-l

1901

1902
1903
1904
1905
1506

30A(1052)

006266

010342

[elelelelelelelelelelelelelelele]le]

1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900

OO0 O0O0O0O0O0O

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

TO LOAD PICTURE

#34 . ,HONT

:SET FOR 525 LINES

MAX

#247 ,3DBUF
#10,9CSR
a(SR
3%
oCAR
#4,a(CSR
64, RO

;COLOUR WHITE ON BLUE
;DO PRESET
:
:
:

5%8.,NCNT
HALF 8V ,MAX

MAX

#5,3DBUF

4%
#4,aCSR

HALF8V,RO
RO

;SET FOR 625 LINES
)+

;LAST

Y ADDRESS

:LOAD ===cecccee LINE

:
;CLEAR

INC BIT

:
3

#4 ,aDBUF

;LOAD

oCAR
HALF8V,R0

sZERO CURSOR ADDRESS
:

sLOAD [

#312,3DBUF

RO
#3,3DBUF
#312,3DBUF

#4 ,aCSR

#64. RO

#6,0DBUF

RO
7%

;DO LINE FEED

] LINE

.
3
;DO LINE

JSET

S
-

FEED

L INE

INC BIT

L INE

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

30A71052)

005742
000007
005736
000001
005724
(05720

010654
010660
010666
010670

012570
000005

010672
010700
010704
010712
v10714

000001
005664
005660

005660

000011

005636

010722
010726

005640

h i i

014520

005672

108:

#1,30BUF
aCARY
aCARY ,MAX
10%
#11,30DBUF

112015: CLRB

MOVB
MOvB

1%:

005600
2%:

BEQ
DECB
BR
DECB

MOV
MOVB

oCARY ,HALF 8V
2%
aCARY
1%
aCARY

HCNT RO

¥6,aDBUF

.
.
.
.

RNV

eceecececae=

SSET UP MESSAGE

;CLEAR INCREMENT BI1T

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOvB
MOvB
MOVB
MOVB
“OvB

#1000,aCAR
#27. ,3CARX
#177,3DBUF
#0,3DBUF
#'8,3DBUF
#'v,aDBUF
#0,3DBUF
#0,30DBUF
#'8,30BUf
#'H,aDBUF
#0,aDBUF
#177,aDBUF

000004
000001
000500
003732

005374
005366
004024

BIC
B1S

¥4 ,aCSR
¥ ,a(SR

JSR

PC.WAITT

~
~

*LOAD / LINE

HALFBV,aCARY

MOVB

:7ERO X ADDRESS

“SET Y ADDRESS
*LOAD BOTTOM LEFT

DECB
BNE
MOvB

005524
005510
005506
005472
005464
005456
005450
005442
005434
005426

*LOAD BOTTOM RIGHT

#2 ,3DBUF
aCARY
43
#12,30DBUF

014520
001000
000033
000177
000000
000070
000126
000000
000000
0u0070
000110
000000
000177

NNNN

;LOAD \ LINE

MOvVB

BNE

005522

005420
005412
005404

*LOAD \ LINE

000012

372

4%:

‘LOAD TOP LEFT

DEC

005550

DECB
MOVB
(MPB

aCARX
MAX ,aCARY
#10,30DBUF
aCARY
#2 ,aDBUF

NNNNNNNNNNNNYN

005572
012570
000006

MOvB

MOvVB

;LERO CURSOR ADDRESS

.31

HCNT RO
5 . 208UF
RO
9%

INCB

SEQ 0045

SCARY ,HALFEY

MOV
MOvVB

(MPB
BNE

005616

005604
014520

INCB
(MPB
BNE

DEC
BNE

002170

005634

INCB

MOvVB

NNNNNNNNNNNNNYN
SNNNS NNNNNNNNN

~N~ OoONO
-~
-~ o
NWw OoONO
~
~o

8%:

aCAR
#7,30BUF
aCARY
#1,aDBUF
aCARY

NNNN
WWNNN

O =t O et i
RO
-t Dt et DO
—
—
—
—
—
—
—

055720

6 &
PAGE 23-1

005536

il il il il it s it O
NN
NNNDN N W

—

CLR
MOVB

00% 732

15:27

000002
005542

(=l=le
L]
O =
S oo

s —h it
O

PR WNN==O
OSSO ON

—

NNOW
oo

—_— s
—s

—

il s
il
il
il o
il
il
-t
s
s
8

—

002170
000010
005622
000002
005610

N = N =N
VN W
w N~ WN~N
~NNW ~

010734

010742
010746
010754

—OO—'OO-‘—'OgoON—‘O—'—‘O

010614
010620
010626
010632
010640
010644
010652

06-SEP=79
1 EST12

SuB

MOV

#500, T1ME

*LOAD / LINE
*LOAD TOP RIGHT

;TURN ON DISPLAY

“WAIT SOME TIME

viv VISUAL TESTS

CVVTIBA.SRC
1963

MACYIT

06-SEP=-79 15:23%

30!(1052)1 06=Sewr=¢v
EST12

1S 27

PAGE 28-2

SEQ 0046

00402¢

JSR

001400
000000

005324
005334

MOV

JSR
JMP

LD6X6:

MOV
MOVB

MOV

JSR
MOvB
MOV
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR

005316

001746

15:27

PAGE 29

PC,LD6X6

#500, T1ME
PCWAITT
112018

»
W
~N

000040

012570

000050 012570
014516 002170
002170 002170

005152
005142

112777
052777

000247
000010
005136

005077
052777
012700
112777
005300
001373
062777
013700
006300
112777
112777
005300
001370
005077
013700
006300
112777
012777

005134
000004
000120
000005

005112

000004
014516

005076
.

105777
100375

P —————

[elelolelolelelalaeleleleleleleleleleloleloBeleleleelelol]

112016:

0146514

000004
000312

MOV

13:
2%:

3%:

005122

005064
005056

BR
MOV

PC,LDCH
#1,3CHAR

#V66H1 RO

PC,LDCH
PC,LDCH
PC,LDCH
PC,LDCH
PC,LDCH
PC,LDCH
PC,LDCH
PC,LDCH

4%:

5%:

MAX
MAX

MOVB
BIS
1STB
BPL
CLR

#247 ,aDBUF
#10,3CSR
a(SR
3%
aCAR

MOV
MOVB

#80.,RO
#5.,30BUF
RO
4%
¥4 ,aCSR

BNE
CLR

005032
005024

o6$%:

#32. ,HONT
2%

ASL
DEC

MOV
ASL
MOVB
MOVB
DEC
MOV
ASL
MOVB
MOV

*CHARACTER ZERO

:LOAD WITH ALL 0'S

“SET CHARACTER ADDRESS
SCHARACTER 1

START

LOAD

PICTURE

L525

#60. ,HONT
HALF6V ,MAX

DEC
BNE
BIC

:SET 6V & 6H BITS

PC,LDCH
PC,LDCH
PC,LDCH

MOV

BIS

005050
014516

000003
000312

187
BNE

SWAIT SOME TIME

ceesvseeNOW LOAD SPECIAL CHARACTERS 6V 6H

#1400,aCSR
#0,3CHAR
#PREO,RO

;evvennereeNOW

005737
001004
012737
000403
012737
013737
006337
005337

SEQ 0047

NNV

2?;3EP-79

000001

004737
004737

30A(1052)

VBN
E DN

— ottt
W
= O

004737

roorNO N8NONSNOOI~O~1~ Obgs
NN
= -

i
D
i e
D i
D
i
D
i
D i
i
i
i
D
)t

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

e
=
=
i RP

1967

1965
1966

=l=lelolelelelelelelelololelelele BNelele]-]

VIV VISUAL TESTS
CVVTBA.SRC
06-SEP-79

“SET FOR 625 LINES
“SET FOR 525 LINES

“LAST Y ADDRESS
;COLOUR WHITE ON BLUE
;DO PRESET

¥4 ,aCSR

HALF6V,RO

RO
¥4 ,aDBUF

#312,30DBUf
RO

(AR
HALF6V,RO
RO
#3,3DBUF
#312,aDBUF

TCLEAR INC BIT

‘DO LINE FEED
:LOAD

J LINE

*JERO CURSOR ADDRESS
‘DO LINE FEED

06-SEP-79
TEST12

15:27

DEC

RO
6%

MOV
MOVB

#80. ,R0

005300
000004
000120
000006

BNE
BIS

005010
005000

7%:

014516

011624
011630
011636
011640

012570
000005

004722

011642
011650
011654
011662
011664

000001
004714
004710

004710
002170

MOvVB
INCB
(MPB

000017

004666

MOvB

MOVB

8%:

9%:

INCB

MOVB

INCB
(MPB
BNE

004670
002170
000010
004652
000002
004640

004664
004646

004634
014516

108:

MOvVB
DEC

BNE

112017:

CLRB
MOVB
MOvVB

1%:

MOVB

004630

000002
004572

004566

4%:

000012

004552

SNNNNNNNNNNYN
NNNNNNNTINNYN

014516
001000
000043
000177
000000
000066
000126
000000

004554
004540
004536
004522
004514
004506
004500
004472
004464
004456
004450

3%:

=WV
NOMNPRONNNNNDNNW

e
e
el
el
)
e
e
e

000000
000066
000110

DECB

(MPB
BEQ
DECB

JLOAD [

LINE

“SET INC BIT

“7ERO CURSOR ADDRESS
*LOAD TOP LEFT
“LOAD \ LINE

#1,30BUF
aCARY
, MAX
@CARY
108
#11,30BUF

;LOAD \ LINE

dCARX
MAX ,3CARY
#10,aDBUF
aCARY
#2 ,30BUF
aCARY ,HALF 6V

:2ERO X ADDRESS
“SET Y ADDRESS
*LOAD BOTTOM LEFT

*LOAD BOTTOM RIGHT

SLOAD / LINE

aCARY
1%
aCARY
HCNT RO

2%:

004600

300

012006

004622
012570
000006

SEQ 0048

HCNT RO
#5,30BUF
RO
9%

MOV

BNE

011672
011676
011704
011712
011716
011724
011732
011734
011740
011742
011746
011752
011760
011762
01176«
011772
011776
012000

012014
012022
012030
012036
012044
012052
012060
012066
012074
012102

004750

#6,30BUF

RO
7%
aCAR
#7,30BUF
aCARY
#1,30BUF
aCARY
8CARY HALF 6V
8$

CLR

004762

PAGE 29-1

#6 ,9CSR

DEC
BNE

004772
000007
004766
000001
004754
004750

P
I
Y e )

2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2066
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2Jd7¢

011534
011536
011540
011546
011552
011560
011562
011564
011570
011576
011602
011610
011614
011622

— e

2021
2022
2023
2026
2025
2026
2027
2028
2029
2030
2031
2032
2033
2036
2035
2036
2037
2038
2039
2040
2041
2042
2043
2046
2045

30A€1052)

#6,3DBUF

#2,3DBUF
aCARY
4%
#12,30BUF

HALF6V,3CARY
#1000,aCAR
#35. ,9CARX

TLOAD / LINE
*LOAD TOP RIGHI
SSET UP MESSAGE

#177 ,30BUF

#0,a0DBUF
#'6,30BUF
#'v,a0BUF
#0,30BUF
#0,30BUF
#'6,3DBUF
#'H,3DBUF

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

vIv VISUAL TESTS
MACY1 30A(1052)u(s)?;3£9-?9
CVWIBA.SRC
06-SEP-79 15:23

2077

112777

000000

PAGE 29-2

SEQ 0049

gg;g

012116

112777

000177

004434

004442

MOVB

#0,aDBUF

;

2080
2081
gggg

012126
012132
012140

042777
052777
000207

000004
000007

004424
004416

BlC
RIS
RTS

#4,39CSR
#1,3CSR
PC

sCLEAR INCREMENT BIT
:TURN ON DISPLAY
;

012110

15:27

MOVB

#177,30BUf

;

viv VISUAL TESTS
MACY1T 30A(1052) O06-SEP-79
CVVTBA.SRC
06-SEP-79 15:23
TESTI2
2085
2086
2087
2088
5883

012142
012144
012146
012152
012154

104404
005472
005337
001402
000137

2092
2093
2096
2095
2096
2097
2098
2099
2100
2101
2102
2105
2106
2105
2106
2107
2108
5}?3

012166
012170
0121764

001402
000137
000137

012200
012206
012212
012220
0122264
012232
012236
012244
012250
012256
012262
012270

112777
105277
112777
105277
112777
105277
112777
105277
112777
105277
112777
000207

000001
004354
000002
004344
000003
004330
000004
004320
000005
004304
000006

004352

2111
2112
2113

012272
012300
012304

112777
105377
112777

000016
004262
000015

004260

T12018: TRAP+4
112001
DEC
BEQ
JMP

2115
2116
2117
2118
2119
2120
2121
2122
2123
2124

012316
0123264
012330
012326
012342
012350
012356
012362
012364
012372

112777
105377
112777
105277
112777
105377
112777
000207
112777
105277

000014
004236
000013
004226
000012
004212
000011

004234

000016
004172
000015
004156
000014
004146

004166

016610
005472

2091 012160 032777 000100 004416 T120ww: BI°

2114

2125
2126
2127
2128
2120
2139
2131
2132

2133

g}gg

2136
2137
2138
2139
2140

012312

012376
0124064
012410
012416
012422
012430
012434
012442

105277

112777
105277
112777
105277
112777
105277
112777
105277

001232
013576

004252

1$:

004340
004326
004314

004302
004270

004246

004222

004210
004176

004154
004142

000013

004130

000012

004116

012454

112777

000207

000011

004104

012456
012464
012470
012476
012502

112777
105277
112777
105377
112777

000006
004100
000005
004064
000004

004074

012446

004132

004122

15:27

004062
004050

B'"
Jry
JmP

PAGE 30

REPCHT
1120ww
112001

#100,35wR
1%
START?
TEST13

SEQ 0050
;SET SWR BIT 8 TO
;LOOP ON TEST
;DONE ENOUGH ?
; VES
:NO

;CHMECK FOR PRE-SELECTED %ESI

TLA&Bv: MOVB
INCB
MOvB
INCB
MOvB
INCB
MOve
INCB
MOvB
INCB
MOVB
RTS

#1,30BUF
aCARX
#2,30BUF
SCARY
#3,30BUF
aCARX
#4,30BUF
SCARY
#5,30BUF
SCARX
#6,30BUF
PC

:
:
:
:
:
:
:
3
:
:
:
:

BLTRBv: MOvB
DECB
MOVB

#16,aDBuf
SCARX
#15,30BUf

:
:
:

MOvB
DECB
MOv8
INCB
MOvB
DECB
MOVB
RTS
TLBRO6V: MOVB
INCB
'

#14,30BUF
SCARX
#13,30BUF
aCARY
#12,30BUt
SCARX
#11,30BUf
PC
#16,30BUf
aCARY

:
:
:
:
:
:
:
:
:
3

#13,30BUF

INCB

MOVB
INCB
MOvB
INCB
MOVB
INCB
MOv8
INCB

MOvVB
RTS

BLTR6V: MOVB
INCB
MOVB
DECB
MOVB

aCARY

#15,3DBUF
aCARX
#14,30BUF
SCARY
aCARX

#12,3DBUF

aCARY

;

:
3
:
:
:

#11,3CBUF

#6,30BUF
aCARY
#5,30BUF
SCARX
#4,30BLF

:
:
:
:
:

012550
012554
012560
012562

012701
112077
005301
001574

000010
004012

000207

DEC
BNE
RTS

012566
012570

000000
000000

0
0

012564

012572
012602
012612
012622
012632

104
104
070
070
377

012642
012652
012662
012672
012702
012712

200
000
040
000
010
000

2173
2176
2175

012722
012732
012742

000
100
000

012772

004

2178
2179
2180
2181
2182
2183
2184

2185
2186
2187
2188
2189
2190
2191
2192
219%
2194
2195
2196

012752
012762

INCB

004036

MOvB
DECB
MOvVe
INCB

004024

004012

MOVE
RTS

MOV

rOovB

NLIST

174

.BYTE
.BYTE

377

020
000

013002
013012
013022
013032

374
000
200
004

vBoH21:

013042
013052
013062
013072

37«
374
010
004

VBOHG:

013102
013112
013122
013132

200
100
374
374

vB6HS1:
014

013142

004

010

i"C

#10,R1
(RO)
¢ ,3CHDR
R1
1%

BEX
104,104,1746,1046,104,104 .0
104.104,106,104,50,20,0 .0

70,104, 70,104,104, 70 .0,
70,100,170,104,104, 70 Oo'

377,377,377,377,377,377 .37

.BYTE
.BYTE
.BYTE

200,100, 40, 20,

10,

«0, 20, 10,

10.

‘p

10, 2C, 40,10

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

.BYTE

.BYTE
.BYTE

voBnl:

SCARY
#3,308UF
SCARX
#2,30BUF
SCARY
i"1,3DBUF

.BYTE

.BYTE
.BYTE

vBOM11:

SEQ 0051

.BYTE
BYIL
BYTE
BYTE

8V 6H CHARACTER )

0o,

.00

0,200,100,
¢

0,200,100, &0, 20, 1

100,200,
0,
O,
g
0.
8.
8.
20, «0,100,200,

€.
O,
&% .2
0O,
O,

oo oa oo o' oa 0.
&, 10, 20, 40,109,200,

0. 6. 8. 0. 0. 0.
200,200,200,200,200,200,20
374,300,240,220,210,204,20
sts,
0.
9.
0.
0.
0.20
&,

SHfOO0OC0COO

006054
000003
004040
000002
004030
000001

PAGE 30-1

6,206,104, 44, 26,1

200,200,204,210,220,240,30
100,200, 0,
0,
0, O,
4,
8.
8.
8.
0,
0,
374,

14, 24, 44,106,204,

10, 20, 40,100,200

OOO0OO0OO0CO

105277
112777
105377
112777
105277
112777
000207

15.27

SFOr0

012510
012514
012522
012526
012534
012540
012546

2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
g};!

5176
177

06-SEP-79
TEST12

2141
2162
2143
2144
21645
2146
21647
2148
2149
2150
2151
2152
5}22

30A(1052)

SrOrsr

MACY11
VIV VISUAL TESTS
CVVIBA.SRL
06-SEP-T79 15:23

2209
2210 013252
2211 013260
2212 013266
2213 013274
2214
2215 013302
2216 013310
2217 013316
2218 013324
2219 013332
2220 Q013340
2221 013346
2222 01335
2223
2224
2225 013362
2226 013370
2227 013376
2228 013404
2229 013412
22%0 013420
2231
22%2 013426
2233 013434
22% 013442
2235 013450
22%6
22%7
22%8 01%56

22640
22641
22642
2245
2246
2245
22646
2247
2248

2249
2250
2251

.BYTE

40, 20, 10,

1
4

OooooOomrN

00 oo oo 0.
20, 40,100,200,
]
.
oo 00
100,200, 0, 0O,
‘o 2' l'. 10. 2

001
000
004

.BYTE
.BYTE
.BYTE
.BYTE

COro—

100

000

SEQ 0052

—_c
s~

0\2206
013214
013222
013230
013236
013244

000
040
000
200
002

010
000
002
200
000
040

voBH11:

200
001
000
000

veBn21:

LBYTE
.BYTL
.BYTE
.BYTE

200.200.200.200 200 200

220
200
001
005
on
001
200

: .BYTE
VOBMTG

204,210,220,240,300,377
200,200,200,200,201,202

040

VOb6HI:

.BYTE
.BYTE
.BYTE

.BYTE

VOBHST:

240

020

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE

040

013476
013508
013516
013520

200
001

013536
013506
013556
013566

240
204

000

00%

vBBN1:

.zoo100
0.

. 0.20, 100 «0, 28
200, 100 0, 20, 10,

osn
0. 0. 0. oZ
8 5 8

101,201,
3.
377

o 210 W,

1}
41
5.377

0,
%,
1.
5.1, 21,

1,201,101

202-201.200,200,200,200
377.300,240,220,210,204
;6V 6H CHARACTERS

200,100, 40, 20, 10,

&, 10, 20, 40,100,200

202 202
200 200,202.200,
376
0.

0.
0.

0.
0,

0. 0
0,37

.BYTE

374,300,240,220,210,204
204.210.220,240,%00, 374
206,104, &4, 24, 14,374
374, 14, 24, 46,106,204

LBYTE
.BYTE
.BYTE

200 100, 40, 20. 10, &, 2.
2. &, 10, 20, 40,100, 200
200 200,200,200, 200 200 200 200

.BYTE
.BYTE

576.

.BYTE
.BYTE
.BYTE
BYTE

377,3%00,240,220,210,204,202,201

.BYTE
.BYTE

024

2206
2207
2208

013150

013156
013164
013172
013200

PAGE 30-2

ONO

2197

2165
2179
2200
2201
2202
2203
2206
2205

15:27

MACY11 30A(1052)
06-SEP-79
viv VISUAL TES'S
TESTIZ
06-SEP-79 15:23
CVVIBA.SRC

;8v BH CMARACTERS

LEVEN
L1810

0.7

201,202,204,210,220,240,300,577
201,101, &1, 21, 11,
377,

S5,

S.37m7

11, 21, 41,101,201

viv VISUAL TESTS

CVVTBA,SRC
225%

MACY1Y 30A(1052)

- EP=T79 *"125

06-SEP=79

TEST12

15:27

B 5
PAGE 30-3

SEQ 0053

Vv VISUAL TESTS

CVYVIBA.SRC

MACYY SOA(IOSZ)'Eg?;gtP-79

06-SEP=-79 15:2%

2255
2256

15:27

.SB11

2257
2258
2259

PAGE

SEQ 0054

b ;eerereTRRRRI RIS

TESTI

:THIS TEST DEMONSTRATES THAT
:THE CURSOR CAN BE DISPLAYED
;AT ALL X & Y ADDRESSES

SS:?

erEERTRRITR IR IR R RS

2262
gsgz

013576
013600

104402
013614

TEST13: TRAP+?2
113000

2265
g%g?

013602
013610

012737
004737

000013
016756

2268
2269
2270
5%;;

013614
013620
013626
013630

05037
012704
004737
010437

2273
22764
g%;z

013634
013640
013644

sg;;

MOV
JSR

#13,1ESTNO
PC,TESTR

;SET UP TEST NO
;OUTPUT TEST NO

016706
000001
017444
016610

113000: CLR
MoV
JSR
MoV

ERRDIS
#1,R4
PC,FASTSW
R&,REPCNT

;SET UP TEST ITERATION "OUNT

013700
012720
012710

016576
001356
000340,

T13001: mov
MOV
MoV

INTVEC,RO
#TIME1,(RO)#
#340, (RO)

;*SET UP
s*INTERRUPT
;*VECTOR

013650

004737

01122¢

JSR

PC,LD6X6

;LOAD °ICTURE

2279
ggg?

013654
013660

005077
052777

002702
000002

CLR
BIS

aCAR
#2,3CSR

;lERO CURSOR
: TURN ON CURSCR

2282
2283
2284
2285
2286
2287
Sggg

013666
013674
013700
013704
013712
013714
013720

012737
004737
105277
127737
001403
105277
000762

000015
003732
002664
002660

014516

T113002: MOV
JSR
INCB
CMPB
BEQ
INCB
BR

#15,TIME
PC,WAITT
aCARY
@CARY ,HALF6V
2%
9CARX
113002

s
:SHORT WAIT
:
.
:
$
3

2290
2291
2292

013722
013730
01373&

000015
003732
002630

004024

2%:

013740
013744

012737
004737
105277
105377
001366

#15,T1ME
PC,WAITY
aCARY
aCARX
2%

:
:SHORT WALT
:
:
3

2296

013746

012737

000015

004024

#15,T1IME

2293
sggg

2297
2298
2299
S;g?

013754
013760
013764
013772

004737
105277
127727
001365

016602

002670

004024

002646

002622

003732
002602
002576

DECB
BNE

3%:

000117

2302 013774 012737 000015 004026 &$:
2303
2304
2305
2306
2307
2308

014002
0164006
014014
014016
014022
014026

004737
127737
001405
105377
105377
000762

003732
002556

2310

014030

105377

00253«

MOV
JSR
INCB

014516

002544
002542

5%:

MOV

JSR
INCB
CMPB
BNE

PC,WAITT
aCARX
aCARX,#79,
3%

MOV

#15,TIME

JSR
(MPB
BEQ
DECB
DECB
BR
DECB

:SHORT WA|T
:

:
3

;

PC,WAITT
9CARY ,HALF OV
5%
aCARX
aCARY
48

:SHORT WALT
3
:
:
:
;

ol ARY

:
.

ViV VISUAL TESTS

CVVIBA.SRC

MACY11 30A(1052)

06-SEP-79 15:23

2311
2312
2313
2314
Sg}z

014034
014042
016046
014052
014056

012737
004737
105277
105377
001366

000015
003732
002514
002512

004024

2317
2318
2319
%gg?

014060
014066
014072
014076

012737
004737
105377
001370

000015
003732
002470

00402¢

2322

014100

2323
23264
2325
Sgg?

104404

013666
005337
001402
000137

2328
2329

014116
014126

032777
001402

000100

000137

001232

2332

014132

000137

014136

014126

TE. 13
6$%:

7%:

15:27

#15,TIME
PC,WAITT
SCARX
aCARY
6%

:
;SHORT 4
:

MoV
JSR
DECB
BNE

”15,T1ME
PC,WAITT
aCARX
4]

:
;SHORT WAIT
:
:

013666

002460

1
'

’

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

T1130ww: BIT
BEQ

#100,aSwR
T130wY

;CHECK FOR PRESELECTED TEST
3

T130wy: JMP

TEST14

JMP

START?2

2 g7
;

SEQ 0055

i
REPCNT
T130ww
113002

MoV
JSR
INCB
DECB
BNE

113002
DEC
BEQ
JMP

016610

D 5

PAGE 31-1

TRAP+4

014102
0141064
014110
014112

Sg;?

"S=SEP=79

30A(1052)

06-SEP-79

TESTI14

SIFHF

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

15:27

LSBTTL

PAGE 32

SEQ 0056

TESTI4
;""""""""""""'.

;X=HATCH FOR SETTING UP TV MONITOR

NOWVS WA —-0 O

012737
004737

000014
016756

014154
014160
014164
016170

005037
012704
004737
010437

016706
000001
017444
016610

114000:

014174
014200
0146204

013700
012720
012710

016576
001356
000340

T1400': MOV
MOV

#TIME1, (RO)
#340,(RO)

;
5

014210
014214

004737
014352

021172

JS?

PC,TYPOUT
XMES

;
;

0146216
014222
014226
014232
014236
0142642
014244

005077

002334
002346
014342
000010
002330

aCSR

:PICTURE SIZE 8 X 8 MATRIX

#XHATCH,RO
#10,RS
(20)0.3(HDR

:LOAD CHARACTER ZERO

;

0146246
014254
014262
014270
014274
014276

112777
112777

BIS
1STB

#207,aDBUF
#300,aDBUF
#10,3CSR
?gsa

;SET WHITE ON BLACK
:CLEAR BLINK FLAG
:DO PRESET
:WAIT FOR READY

BIS

#1,3CSR

STURN ON DISPLAY

#4000, TIME
PC,WAITT

;
:WAIT

o
WN
NN ~~

wn —_ OOVe~N

333134

VN
VI W

LN LN N N NN NN NN
VWAV
AW

FREFFEFREFE

014136
0146140
014142
014150

=0V

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

104402

0146154

10,077
012700
012705
112077

005305
001374

TEST14:

016602

CLR

MOV

"ov

CLR

CLRB

2%:

052777

000001

002252

014304
014312

012737
004737

004000

004024

014316
014320

104504

014304

014322
014330
014332

032777
001402
000137

000100

014336

000137

017224

014342
014345
014350

020
377
020

020

020
020

014352

020133

026530

040510

003732

JSR

002304
002276
002266

105777
100375

MOV

000207
000300
000010
002262

052777

TRAP+2
114000

MOV
MOV

MOVB
DEC
BNE

MOVB
MOVB

1%:

BPL

T14003: MOV

JSR

#14,TESTNOD

;SET UP TEST NUMBER

ERRDIS
#1,R4
PC.FASTSW

;
;
:

INTVEC,RO

PC,TESTR

R4, REPCNT

ACHAR

BIT
BEQ

001232

020
020

JMP

TEST NO.

SSET UP TEST

ITTERATION COUNT

;

SOMC

TIME

:SET SWR BIT 8 TO STAY

TRAP+4

:ON THIS TEST PATTERN

114003

002254

SOUTPUT

#100,3SWR
114004

START?

:CHECK FOR PRESELECTED TEST
3

114004: JMP

ENDIT

XHATCH:

.BYTE

20,20,20,377,20,20,20,20

XMES:

NLIST
LASCII

BEX

/L X=HATCH FOR SETTING UP Tv MONITOR (a/

- ——

= )

VIV VISUAL TESTS

CVVTIBA.SRC
2388
2389
2390

MACY11

06-SEP-79 15:23

30A(1052)

06-SEP-79
TEST14

15:27

.LIST BEX

F
5
PAGE 32-1

SEQ@ 0057

VIV VISUAL TESTS

CVVTIBA.SRC
2392
2393
2394
2395
2396
2397
2398
2399
2600
26401
2602
26403
26406
26405
26406
2407
2408
ga?g
A

26411

2412
2413

MACY11

06-SEP-79 15:23

014620
014424
014426
014432
014436
014440
014446
014456
014462
014464
014470
014472
014476
014504

004737
014522
004737
020027
001012
012737
012737
012737
000207
020027
001353
005037
012737
012737

014514

000000

014512

014516
014520

000207

000030
000022

30A(1052)

06-SEP-79

UTILITY ROUTINES

PC,TYPOUT
ASKS6
PC,READ
RO,#'S
SET56A #A77777,L525
#15. KALFBY
#20. HALFOV
PC
RO,#'6
SET56
L525
#18. HALFBV
W24, HALFOV

JSR
(MP
BNE
MOV
MOV
MOV
RTS
SETS56A: (MP
BNE
CLR
MOV
MOV

014514
000022
000030

014520
014516

RTS

1%2%:

JSR

020444
000065

000066

UTILITY KOUTINES

SETS56:

014514
014520
014516

PAGE 33

LSBTTL

021172

177777
000017
0000264

15:27

HALF6V: 24.
HALFBv: 18.

SEQ 0058

;ASK 525 625
:
;READ
JWAS 1T 5
;BRANCH IF NO
;YES, SO SET FLAG
:
:
: DONE
SWAS 1T 6
;BRANCH IF NO AND ASK AGAIN
;CLEAR FLAG
:
:
: DONE

MACY11
viv vISUAL TES'S
CVVTBA.SK{
06-SEP-79 15:23

2616
2617
2418
2419
2620

30A(1052)

06-SEP-79

ASCIT

STRINGS

LNLIST

020133
040
053133

ASKS6:
GOMSG:

15504

e
e
NN
N N W N
NN
NN
W
W N N W NN W
NN

bbug rNNN-‘-‘QON
NNNU‘&NNN
OWwWw
oo
O NONWWO

VN~

il
i
D
il
i
i

VWD (VL LV IV IV IV IV IV T IV F

050133

2669

2470
267

042176
040522
047522
051117
051117
047516

016456
016475
016520
016526
016530

000000
000
042523

W
W

2668

040505

054524
051127
020040
020057
020052
051111
051111
04,11
042104
044506
054105
047516
047111
064124
043105
046120
060043
052101
047517
020040
052101
020040
052123
046101
020040

2463

2667

PAGE 35

ASCIT

10%

2665

15:27

040502
016540

041505
052123
047440
020120
020115
052040
052040
020116
042520
036440
100
100

040040
052123
052123
040526
042522
051522
02012¢
020116
040526
020105
052501
040505
050040
020104
040502
020101
042101
052101
062514
051105

WMSG:
TESMSG:
PASMSG:

ILVMSG:

FRMMSG:
FIRVMS:
NXTVMS:
NOMEMA:

ASCI!
.ASCII
.ASCI1I

.ASCII

.ASCII
_ASCII
_ASCII
.ASCII
.ASCII

MODADM:
MODSPA:
MODPRM:

_ASCI!I
.ASCII
.ASCII

BAMSG:
VAMSG:
UDAMSG:
OVAMSG:
PRMSG:
NPRMSG:
NXMSG:

BADPRI:
NODEFM:

EMSG1:
EMSG2:

EMSG3:
EMSG4:

EMSGS:
EMSGH:
EMSG7:
EMSG8:
EMSG9:

000000

OCTNUM:

030061

BASE11:

“They

SEG 0059

STRINGS

BEX

/0 1S THE CONTROLLER JUMPERED FOR 525 OR 625/
.ASCII
/ LINES,L TYPE 5 OR 6 ..... e/
LASCIH]
.ASCII
'CVTv30-H/J OR VI30-H DIAGNOSTIC AND!
/EXERCISER/
LASCII
/[(PART2===== DISPLAY TESTS/
LASCII
/CSTART ADDRESS 1S 1000, OR 200/
LASCII
/CRESTART ADDRESS 1S 1200/
LASCII
/LYOU ARE STRONGLY ADVISED TO READ THE/
LASCII
LASCII® /(OPTION DESCRIPTION BEFORE PROCEEDING,/
/CANY FURTHER./
LASCII
/(FOR DETAILS GF BUS AND /ECTOR ADDRESSES/
LASCII
/EE%EASE REFER TO THE OPTION """FRIPTION/
LASCIHI
/
LASCII !

REDMES:

SWRMSG:

.ASCII

.ASCII
LASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII

.ASCII
LASCII
.ASCII
LASCII

L.ASCII
.ASCII

.ASCII

LASCII
LASCII
.ASCII
.ASCII
L.ASCII
_WORD
.BYTE
_ASCII
EVEN

/USELECT DESIRED SWITCH REGISTE

JPTIONS(a/

/LTEST NO3/
/LEND OF PASS[a/
/LTRAP TO ILLEGAL VECTOR
@/
/[FROTM ADDRESS
@/
/LFOR THE FIRST VECTOR GROUP®’
/JLFOR THE NEXT VECTOR GROUP?,
/UNON EXISTANT MEMORY HAS NOT BEEN FOUNDa/
/LTYPE CNTRL=C
/[SWR =
8/
/(%
&/
R

TO CONTINUE @/

7 7

/[
@/
/LFIRST BUS ADDRESS IS

/LFIRST VECTOR ADDRESS

..... 8/

..... a/

/LINVALID ADDRESS
@/
/[ADDRESS EXCEEDS 772 [a/
/CFIRST PRIORITY LEVEL IS ..... o/
/INEYXT PRIORITY LEVEL IS ...... o/
/INON EXISTANT ADDRESS
@/
JUINVALID PRIORITY, PLEASE RE-ENTER/
/LTHE PRIORITY..... o/
/[DEFAULT SETTINGS ARE NOT ALLOWED/
/[PLEASE RE-ENTER THE VALUE ..... o/
/LENS/
/
A1 PC
@/
/(GOOD : &/
BAD :9/
/
/(DATA : @/
:9/
ADDRESS
/

:9/
/CSTATUS
/LCALLED FROM :3/
/

ERROR COUNT

= @/

0,0,0

100.0
/BASE 109/

— —eee. S

viv VISUAL TESTS
MACYTT 30AC1052)
U6=-SEP=79 15:27
CVVIBA.SRC
06-SEP-79 15:23
ASCI] STRINGS
26472
26473
2674
2675

016560
016546

000C00
000000

000000
000000

000000
O00COO0

DECMSG:
OCTMSG:

.wORD
.wORD
LEVEN
IS8T

5
1
PAGE 35-1

O, 0.0
O, 0.0.0
BEX

SEQ 0060

MACY11
viv VISUAL TESTS
CVVTBA.SRC
05-SEP-79 15:23

06-SEP-79

15:27

PROGRAM VARIABLES

.SBTTL

016556
016560
016562
016564
016566
016570
016572
016574
016576
016600
016602
016604
016606
016610
016612
016616

016620
016622
016624
016626
016630
016632
016634
016636
016640
016642
016644
016646
016650
016652
016654
016656
016660
016662

lNTVé(:

000170
000004
000000

000000
000000
000137
000001
000000
000000

001000

SWR:
SSWR:
REPCNT:

JM600:

FSTCNT:
TRPARG:
:
TRPSEL
TRPMEM:

SAVP(:
SAVPC1:
SAVSTA:

TYPOTA:
:
RAND

TYPD1:
MODADR:
MODSAV:
:
MASK

BASADD:
TRPERR:

CHWORD:
ERR:
PARITY:

BCCHAR:
RANDN:

:
RANSEL
RANMTA:
RANST:
GOO0D:
BAD:

DATA:
STATUS:
ADDRES:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

PAGE 36

164000
164002
164004
164006
164004
164005
164006
164007
170

ERRDIS:
ERRARG:
CALLPC:
TRXVAD:
TRXPAR:
TRXEXM:

NXMADR:
SAVEXM:
SAVPAR:

SAVLTAG:
SAVLTe:

HSWR

0
JMP

2525

PROGRAM VARIABLES

VECLEV: 4
TESTNO: 0

177570

016664
016666

016670
016672
016674
C1667
01670
016702
016704
016706
016710
016712
016714
016716
016720
016722
016724
016726
016730
016732

CSR:
:
DBUF
CAR:
CHSR:
CARX:
CARY:
CHDR:
(HAR:

164000
164002
1646004
164006
164004
1646005
166006
1646007

[elelelelelelelelelelelelelelalaJV
]. PV leleleleleleleoleleoleleolelelele]ele
e Py

2677
2478
2479
2480
2481
2482
26483
2484
2485
2686
2487
2488
2489
2490
2491
2492
2493
2494
2495

30A€1052)

a#START

SEQ 0061

016734
016736
016740
016742
016744
016746
016750
016752
016754

30A€1052)

06-SEP-79

15:27

PROGRAM VARIABLES

CNVFLG:
STRADD:
STRLEN:
LOWCHR:
UPP(HR:
RUBFLG:
:
RANDC
FSAVPY:

BCOUNT:

cagooocococo

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

PAGE 36-1

5
SEQ 006C

VIV VISUAL TESTS

CVVTIBA. SRC

RACY1T 30A(1052)

06-SEP-79 15:23

2543
2564
2545
2546
2547
2548

O06-SEP-79

PRINT TEST NUMBER
:
:
:
3
:

5223

15:27

LSBYTL

PAGE 37

SEQ 0063

PRINT TEST NUMBER

DESCRIPTION:

ROUTINE

TO PRINT

TWE

3
:
3
:

CALLING SEQUENCE:
JSR

PC,TESTR

INPUT PARAMETERS:

ngg

2558

522%

2564
2565
2566
2567
2568
2569
2570
257

:
:
:
:
:
:
3
;

OUTPUT PARAMETERS:

2573%
gg;g

2
3

.
IMPLICIT OUTPUT PARAME TERS:

2576

;

2578
2579
2580

:
3
3

2599
2560
2561

:
:
:

2572

TESTNO CONTAINS THE OCTAL TEST NUMBER T0 BE

PRINTED

IMPLICIT INPUT PARAMETERS:
THE LABEL TESMSG 1S THE START ADDRESS OF AN
ASC11 STRING *TEST NO'

RO wWiLL BE CORRUPTED
:

THE MESSAGE 'TEST NO N' WILL BE PRINTED ON THE

CONSOLE TERMINAL

;

2577

2581
2582
583

:
5
3

COMPLETION CODES:

2586
2587
2588

:
:
:

POSSIBLE ERROR CODES:

TESTR:

JSR
TESMSG

PC,TYPOUT

JSR

PC,CRLF

2584
2585

2592
2593

2594
2595

2596

2597

IN OCTAL

2551
2552
2553
2554
2555

2589
2590
2591

TEST NUMBER

5
3

016756
016762

004737
015347

016764
016770

013700
004737

017000

000207

016774

004737

021172

016602
021262

02113%

3
:
3

NONE

MOV
JSR

TESTNO,RO
PC,PROCT

RTS

;TEST NO
:PRINT OCTAL TEST NO
(EX]T

VIV VISUAL TESTS
MACY11 30A(1052)
06-SEP=79 15:27 PAGE 38
CVVTBA.SRC
06-SEP-79 15:23
*SILLSI® SUBROUTINE

P TRTR TR TR T L R L T T

0;.. LTI R TR T A T TN TN T TSI L TSI U T T I S U N T

LSBTTL

2599
2600
2601
2602
2603
2604

2629

2633
2635

2637

2639

SEQ 0064

"SILLSI" SUBROUTINE

DESCRIPTION:
ROUTINE TO ESTABLISH WHETHER OR NOT THE
DIAGNOSTIC IS RUNNING ON A PROCESSOR
WHICH POSSESSES ONLY ONE
PRIORITY LEVEL.

INTERRUPT
‘

BUS

CALLING SEQUENCE:

JSR

PC,SILLSI

INPUT PARAMTERS:
NONE

IMPLICIT

INPUT PARAPETERS:
NONE

OUTPUT PARAMETERS:

THE VARIABLE 'LSIFLG' WILL BE SET UP TO
REFLECT WHETHER OR NOT THE PROCESSOR HAS
A SINGLE INTERRUPT PRIORITY LEVEL.

LSIFLG

<> 0

=> MULTIPLE

INT. PRIORITIES

=> SINGLE INT. PRIORITY

IMPLICIT CUTPUT PARAMETERS:
NONE

COMPLETION CODES:

017044

000340

017032

NONE
POSSIBLE ERROR CZODES:
NONE

7LR

R TT e e I N e

2642

000004

000006

ILLS]: CLR

MOV

LSIF LG
ns “

9340 .0

;5ET UP FLAG FOR NON-LSI
INSTALL

TRAP THRU & VECTOR

;AND CORRESPONDING PRIORITY

2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671

017022
017026
017030

005737
000240
000404

017032
017034

022626
012737

017042

000207

017044

000000

30A(1052)

177776

151

PSW

B8R

“Ir NOT THERE, TRA® THRU &
;WILL OCCUR, ELSE SRANCH.

(mP

MOV

(SP)+,(SP)+

#-1,L81FL6

;PERFORM A DUMMY RTI

;RETURN TO MAINLINE CALL.

*SILLSI* SUBROUTINE

017044

)

is:

NOP

LSIFLG: 0

PAGE 38-1

15:27

177777

O06-SEP-79

SEQ 0065

==
NG PSW
:TRY ADDRESSITHE
;PROCESSOR HAS ONE

INT.LEVEL

:0 =» MULTIPLE® INT.PRIORITIES
:=1=> SINGLE INT. PRIORITY
4

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

viv VvISUAL TESTS

CVVIBA.SRC

MACY1Y 30AC1052)

06-SEP=79 15:23

2673

O06-SEP-79

:
:
:
3

2679

2680
2681
2682

sggz

2685
2686
2687
2688

:
:
:
:

sbg;

2693

2695

:
3

3
3

2697

2698
2699
2700
2701

}
:
3
:

g;g%

s;gg

2706

2707

;

2709

2712

2708

2. 10
2T

3
3

2713
2714
2715
2716

3
:
:
3

2718
2719

2720

2721
2722
2723

2725
2726

3
:

ADDRESS OF THE SOF TWARE SWITCH REGISTER SSWR
ENTRY POINT

CUNSET

INPUT PARAMETERS:

OCCURS 1F A HARDWARE SWITCH REGISTER IN NOT
PRESENT

017046
017056

IMPLICIT INPUT PARAMETER.:
NONE

OUTPUT PARAME TERS:
THE LOCATION SWR WiLL BE SET TO CONTAIN SSWR

IMPLICIT OUTPUT PARAME TERS:
NONE

COMPLETION CODES:
AN RT1 1S PERFORMED

POSSIBLE ERROR CODES:

{
'
1

NON EXISTANT SWR TRAP

THE TRAP WHEN TESTING FCR THE HARDWARE
SWITCH REGISTFR WILL OCCUR MFRE
THE LOACTION SWR WILL BE SET TO CONTAIN THE

2696

NONE

3
3

012737
000002

016606

016604

DESCRIPTION:

2696

2724

LSBTTL

.
8
:

2689
2690

PAGE 39

NON EXISTANT SWR TRAP

2674
2675
2676
2677

2678

15:27

SWRSET: MOV
RT1

#SSWR, SWR

SEQ 0066

SIFRFLRZSE O 0o

.SBYTL

SEQ 0067

SET UP ILLEGAL VECTOR TRAPS

R
R
T

DESCRIPTION:

ROUTINE TO SET CATCHES FOR _TRAPS TO ILLEGAL

VECTORS IN THE RANGE O TO 772, DURING THE
THE

TESTS.

RUNNING OF

}:EP(ATCH 1S TO FORCE THE EXECUTION OF AN 10T

THE VECTOR 14

(ODT VECTOR)

34 (TRAP VECTOR)

IS LEFT FREE,

IS SET TO THE ADDRESS TRAPSV

T0 SERVICE THE TRAP INSTRUCTION.

20 (107T)

THE VECTOR

IS SET TO ILLVEC TO SERVICE

ILLEGAL

VECTOR TRZ?S, AND THE ADDRESSES 200 AND 202

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

I IS

AND HENCE READ THE PROCESSOR PRIORITY.

LOCATION 40 IS LEFT FREE TO CONTAIN THE LOAD
INDICATORS, LOCATION 42 1S LEFT FREE TO CONTAIN

TS S

THE XXDP RETURN ADDRESS (IF PRESENT). LOCATION
46 1S SEY TO POINT TO A RETURN TO XXDP AND

CALLING SEQUENCE:

I TR TR

LOCATION 52 1S SET TO ZERO.

NONE

LT
T ETR TR
I
I I
T

PC,VECTOR

INPUT PARAMETERS:

TE TR

TR T

T T

JSR

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:
RO AND R1 wWiLL BE

CORRUPTED

ADDRESSES O THRU TO 774 wiLL BE SET WiTH

W= OO

w
s

oo
NI NN N RN NN N ~

VIV VISUAL TESTS
MACY11 30A(1052)
06-SEP-79
15:27 PAGE 40
CVVTBA.SRT
06-SEP-79 15:23
SET UP ILLEGAL VECTOR TRAPS

APPROPRIATE

VALUES

IMPLICIT OUTPUT PARAMETERS:
NONE

30A(1052)

06-SEP=-79

15:27

PAGE 40-1

SEQ 0068

SET UP JLLEGAL VECTOR TRAPS
COMPLETION CODES:

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

POSSIBLE ERROR CODES:

MONE

cocococooooooOoo0ooocooboocooco

NONE

000002
000014

VECTOR: CLR

sFILL 0-572 WITH 10T TRAPS

FILL:

RO, #14

;00T TRAP?

(RO)+,(RO)+

;YES BUMP RO

RO, #40

;XXDP RETURN ADDRESS

e
)

d‘d:ddd—dddddd

SERFFESNGNSER
~
F

b
—

cmMp

BNE

(mMp

SNNNNNNNNNNNNNNNNSN

b
b

MOV

1%:

000040

2%:

000004
000004
000774

017464
000340
017314
000340
017364
000340
016612
016614
017300
000052

FILLY:

000034
000036
000030
000032
000020
000022
000200
000202
000046

FILL2:

cmp

BNE
CMP
BR
MOV
MOV
ADD

(MP
BLT

MOV
MOV
MOV
MOv
MOV
MOV
MOV
MOV
MOV

(LR

RTS

¥R

FlLLl

2%
(RO)+,(RO)+
FlLu
R1,(RO)+
#4,(RO)+
¥, R1

RO, #774
° FILL

#TRAPSV,
34
#340,36
#7TADR,
30
#340,32
#ILLVEC,20
#340,22
JM600,200
JM600+2,202
#SENDAD,
46

i?gs BUMP RC
:I.‘zl

;*10%°

:TRAP

(LOOP CONTROL)

; PLUG EMT FOR READING
;

THE

PROCESSOR

STATUS

;PLUG 20 FOR 10TS

;SET UP JMP START N LOC 200
;POINT TO RETURN TO XXDP
;CLEAR 52
s THEN EXIT

VIV _VISUAL TESTS
MACY11 30A(1052)
06=-SEP=79
15:27 PAGE 41
XXDP END O7 PASS HOOKS
CVVTBA.SRC
06-SEP-79 15:23
XXDP END OF

SEQ 0069
PASS HOOKS

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

XXDP ARE 40, AND &1 FOR THE LDAD MEDIUM AND &2, 43 FOR

THE RETURN ADDRESS.

I S ST I

.SBTTL

GO AND SELECT THAT TEST.
ENTRY POINT:

T IS

IF A PRESELECTED TEST IS IN OPERATION THE PROGRAM WILL

INPUT PARAMETERS:

TN T

T T

S T

ENDIT

IMPLICIT

INPUT PARAMETERS:
NONE

T T T

R I T

TR T

LOCATION 42/43 CONTAINS THE XxXDP RETURN ADDRESS

OUTPUT PARAMETERS:

T T T

T T E TR TRTETETE TE

NONE

IMPLICIT OQUTPUT PARAMETERS:
NONE

COMPLETION CODES:

IF LOCATIONS 42/43 ARE NON ZERO THEY ARE

ASSUMMED TO CONTAIN THE
POSS'BLE ERROR CODES:

2824
2825
2826
2827
2828
2829
2830
2831
- 2832
2833

NONE

XXDP MONITOR RETURN ADDRESS

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

2880
2881

2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903

017224
017230
017244
017252
017254

012706

001000

032777
001402
000137

000100

30A(1052)

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

ENDIT:
177332

001232

SE@ 0070

MOV

#START,SP

RESET THE STACK

Bl
BEQ
JMP

#100,aswR
1%
STARTZ2

PSWSET

AND PROCESSOR PRIORITY
lg THERE A PRESELECT ON

#340

YES GO SELECT

THE

TEST

* NO PRESELECT ON SO SIGNAL END OF PASS
017260
017264
017266
017272
017274

004737
015360
013700
001002
000137

017300
017302
017304
017306
017310

004710
000240
000240
000240
000137

021172

i $:

PC.TYPOUT

; END OF PASS

000042

PASMSG
MOV

anru? RO

001232

JMP

START?

; GET ReTURN ADDRESS TO XxXDP
; 1F 1T 1S ZERO THERE 1S NO

BNE

$ ENDAD:
001232

JSR

NOP
NOP
NOP
JMP

$ENDAD

PC.(RO)

START?

;

MONITOR SO RESTART

DIAG

; CALLED VIA XXDP SO RETURN

;

THERE

:
;

ALLCW A SLIGHT PAUSE
THEN RESTART THE DIAGNOSTIC

30A(1052)

06-SEP-79

15:27

PAGE 42

SEQ 0071

READ PROCESSOR PRIORITY

T I

T I I T T T S S I I I

N T

viv VISUAL TESTS
MACYIT1
CVVTBA.SRC
06-SEP=-79 17:23

SBTTL READ PROCESSOR PRIORITY
DESCRIPTION:
THIS

IS THE

EMT HANDLER AND

THE PROCESSOR PRIORITY OFF
IT IN FSAVPW

IS USED

TO READ

THE STACK AND RETURNING

CALLING SEQUENCE:
CALLED BY

ISSUING AN EMT

INPUT PARAMETERS:

IMPLICIT

INPUT PARAVETERS:

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

OUTPUT PARAMETERS:
THE CONTENTS OF THE PROCESSOR PRIORITY
ARE RETURNED IN THE LOCATION FSAVPW

COMPLETION CODES:

R I

I B I T T T T I I

I T

NONE

2945

gg&g

017314

017322

0i6637

000002

016752

o LI T T T

NONE

POSSIBLE ERROR CODES:

NONE

ADR:

MOV
RT1

2(5P) ,FSAVPW

;
:

READ PRIORiTY
RETURN TO CALLER

V-

.
_ AT

viv VISUAL TESTS

CWVTIBA.SRC

MACY1Y

06-SEP=-79 15:2%

30AC1052)

O06-SEP=79

RING TTY BELL

2949
2950
2951
2952

LSBTTL

2953
2954
2955
2956
2957
2958
2959
2960

3
3
3
3
:
:

2972
2973
2974
2975
2976
2977
2978
2979
2980
2981

2
I
3
:
4
:
3
2
3
-

:
:
2

:
3
3

gg;?

2982

2983
2984
2985
2986

3
:
z
3

2987

2988
2989
2990
2991

3
s
3
:

2
:
2

2992
2993
2994

2995

2999
3000
3001
3002
3003
3004

PAGE 43

St@ 0072

RING TTY BELL

DESCRIPTION:

2961
2962
2963
2964
2965
2966
2967
2968
2969

2996
2997
2998

15:27

ROUTINE TO RING THE BELL ON THE

TERMINAL,
REGISTER.

CONSOLE

IF BIT S IS SET IN THE SWITCH

CALLING SEQUENCE:

JSR

FC.BELL

INPUT PARAMETERS:
NONE

IMPLICIT INPUT PARAMETERS:
THE SWITCH REGISTER MUST HAVE BEEN
SET UP
OUTPUT PARAMFTERS:
THE TELETYPE BELL WwlLlL BE RUNG IF
APPROPRIATE

IMPLICIT OUTPUT PARAMETERS:

NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:

NONE

017324
017332
01733&
0°7336
01732
017350

032777
001401
000207
004737
112737
004737

000040
.

017434
000007
017434

177252

177566

BELL:

BELLY:

BI
BEQ
RTS
JSR
MOVB
JSR

#40,35WR
BELL]
PC
PC,TPREDY

#7,1PB
PC,TPREDY

;WAIT FOR PRINTER READY
:WALT FOR PRINTER READY.

ViV VISUAL TES'S

CVWIBA.SRC

3005 01735

3006

017362

MACY11

30A(1052)

000000

177566

06-SEP-79 15:23

11273/

000207

O06-SEP=-79

RING TTY BELL

MOVB
R1S

15:27

1
6
PAGE 43-1

#0.1PB
PC

SEQ 0073
sPRINT NULL

;60 0out

06-SEP=-79 15:27 PAGE 44
VIV VISUAL TESTS
MACY11 30A(1052)
CVVTBA.SRC
06-SEP-79 15:23
ILLEGAL VECTOR TRAP CATCH
.SBYTL

SEQ 0074

ILLEGAL VECTOR TRAP CATCH

DESCRIPTION:
TRAPS TO ILLEGAL VECTORS WILL BE
REPORTED HERE, THE VECTOR TO WHICH
THE TRAP OCCURRED WitLL BE PRINTED
AS WELL AS THE ADDRESS IN THE MAIN

LINE CODE FROM WHICH THE TRAP OCCURRED.
A PROGRAM RESTART

IS THEN PERFORMED,

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

ENTRY POINT

ILLVEC

INPUT PARAMETERS:

TN R R T

ENTRY IS CAUSED BY AN ILLEGAL
VECTOR TRAP

T T T R

OUTPUT PARAMETERS:
THE

VECTOR AND MAINL INE

wiLL BE PRINTED

ADDRESS

IMPLICIT OQUTPUT PARAMETERS:

T R TRT

NONE

COMPLETION CODES:

3050

INPUT PARAME TERS:
NONE

T P T P R

3039
3040

IMPLICIT

5063

A PROGRAM RESTART OR A NEW

TEST

SELECTION

R
T ETR

3059

3055
3056

POSSIBLE

ERROR (ODES:
NONE

MACY1
Viv _VISUAL TESTS
CVVTBA.SRC
06 -SEP-79 15:23

30A(1052)

06-SEP=79

15:27

PAGE &4~

SEQ@ 0075

JLLEGAL VECTOR TRAP CATCH
.

3065

:A TRAP TO AN UNRELOGNISED VECTOR WiLL
:BE REPORTED FROM MERE.
004737
015376
012600
162790

3082

017430

004737
004737
015430
005726
012600
004737
005726
004737
000137

021172
000004
021262
021172

ILLVEC: JSR

PC,T1YPOUT

MOV
SUB

(SP)+ RO
% RO

ILVMSG

JSR

PC,PROCY

JSR
FRMMSG

PC,TYPOUT

021262

MOV
JSR

(SP)+,RO
PC,PROCT

017704
001200

JSR
JMP

P{,MONIT
RSTART

187

181

(SP)+

:PRINT VECTOR
:PRINT MAINLINE ADDRES

viv VISUAL TESTS

CVVIBA.SRC

MACYIT 30A(1052)

06-SEP-79 15:23

3084
3089
3036
3087
3088
3089

O06-SEP-79

15:27

WAIT FOR PRINTER READY
LSBTTL

WAIT FOR PRINTER READY

DESCRIPTION:

3090

ROUTINE TO WAIT UNTIL THE PRINTER

3091

ON THE CONSOLE TERMINAL IS READY,

1E: 1T 1S READY TO PRINT THE NEXT

3092

3093
3094
3095
3096
3097
3098
3099

CHARACTER.
CALLING SEQUENCE:
JSR

PC,IPREDY

INPUT PARAME TERS:
NONE

IMPLICIT INPUT PARAMETERS:

N U W W U W

)

coo

PAGE 45

s O O O

NONE

bttt et b et et s

NONE

N U U U

OUTPUT PARAMETERS:

NONE

N U\ U U U U U W U U W U AN LU U

IMPLICIT OUTPUT PARAMETERS:

NN PN NN NINONUININ) =

COMPLETION CODES:

NONE

POSSIBLE ERROR CODES:

NONE

017434
017440
017442

105737
100375

000207

177564

PREDY: T1S1B
BPL

R1S PC

TPS
TPREDY

:ROUTINE 10 WAIT FOR PRINTER READY

SEQ 0076

VIV VISUAL TESTS
MACY11 30A(1052) 06-SEP-79 15:27 PAGE 46
CVVTBA.SRC
06-SEP-79 15:23
SET ITERATION COUNT
3135
313
3137
3138
3139
3140
3141
2142

:
:
:
:
:
3
5

DESCRIPTION:

3147

RG.

3143
3144
3145
3146

3
3

g}z?

3152
3153

:
3

g}gg

2156
3157
3158
3159
g}b?

|
:
H
5
:

2162
3163

3
2

3164
3165
3166
g}bg

3
3
3

3169

3170

317%
3174
3175
3176
3177

:
S
s
3
3

3178

3179

3180
3181
3182

33
5
}

3183

3190

:
:
3
:
:

017444

032777

020000

177132

SET ITERATION COUNT

JSR

PC,FASTSW

INPUT PARAMETERS:
R4 CONTAINS THE PROPOSED ITERATION
COUNT
IMPLICIT

INPUY PARAMETERS:

SETTING BIT 13 IN THE SWR WILL INDICATE
FAST ITERATION, AND A SINGLE PASS

WiLL BE REQUESTED
'
OUTPUT PARAMETERS:

RS WILL CONTAIN THE ACTUAL ITERATION

COUNT

3172

SEQ 0077

CALLING SEQUENCE:

ROUTINE 70 SET UP THE TEST ITERATION
COUNT. A PROPOSED CCUNT IS SET IN R4
THEN UNLESS BIT 13 IN THE SWITCH REGISTER
IS SET, THE SAME VALUE IS RETURNED.
IF BIT 13 1S SET THEN FAST ITERATION IS
ASSUMED AND A VALUE OF 1 IS RETURNED IN

3
3
-

5148
3149

3184
3185
3186
3187
3188
3189

LSBTTL

B
IMPLICIT QUTPUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:

FASTISW: BIT

NONE

#20000,95uWR

—

15:27

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

ViV _VISUAL TESTS

CVVTBA.SRC
3191
3192
3193
3194

017452
017454
017456
017462

001001
000207
013704
000207

BNE
016616

1$:

RIS

MOV
RTS

PAGE 46-1

FSTCNT,RG
PC

/’

SEQ 0078

VIV VISUAL TESTS
MACY!T 30AC) ysz)
06-SEP=-79 15:27 PAGE &7
TRAP SERVICE ROUTINE
CVVTBA.SRC
06-SEP-79 15:23
Be Be s So Ba Be e Bs Bs B We Se 8 s 00 0, B0 B L B B VL Ve BE B e Ve B B Ve B e S e S B e B e B e B e B S S S S e S S e e

LSBYTL

SEQ 0079

TRAP SERVICE ROUTINE

DESCRIPTION:
TRAP HANDLING ROUTINE.

THE

TRAP HANDLER IS

ENTERED UPON THE EXECUTION OF ANY TRAP
INSTRUCTION. 1T COMPARES THE LOWER BYTE OF

THE

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

THE ADDRESS FOLLOWING THE TRAP INSTRUCTION AS THE

THE

EXPECTED FORMAT

RETURN ADDRESS.

|[S:

TRAP+N
ADDR

WHERE ADDR IS TME ADDRESS TO PROCEED TO IF N MATCHES
THE SWITCH REGISTER SETTINGS.

THE

TRAP ARGUEMENT

RELATED TO THE SWITCH REGISTER SETTINGS THUS:
TRAP ARG

SWR SETTING

200

400

10
20
30
40
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 IS OUTSTANDING ON THE CONSOLE TERMINAL
IFf

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

ENTRY POINT
TRAPSV

INPUT PARAMETERS:

VIV VISUAL TESTS

CVVTBA. SRC

MACY11 30A(1052)

06-SEP=79 15:23

15:27

TRAP SERVICE ROUTINE

:
:

3254
3255

i%%?

3258

c 7
PAGE 47-1

SEQ 0080

ON EXECUTION OF ANY TRAP INSTRUCTION

;gg%

06-SEP=-79

IMPLICIT INPUT PARAMETERS:

THE SWR HWAS BEEN SET UP

3259
3260

:
:

OUTPUT PARAMETERS:

3263
3264
gggz

:
:
;

EXIT TO THE CONTENTS OF THE ADDRESS FOLLOWING
THE TRAP INSTRUCTION IF A MATCH WAS FOUND, ELSE THE
PROGRAM WILL CONTINUE FROM THE ADDRESS AFTER THAT.

3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284

:
:
IMPLICIT OUTPUT PARAMETERS:
:
3
NONE
:
:
;
COMPLETION CODES:
:
3
NONE
:
:
;
POSSIBLE ERROR CODES:
:
:
NONE
3
;
:
TRAPSV: JSR
PC,SAVREG
:SAVE REGS

gggl

3285
3286
3287
3288
3289
3290
3291

3292
3293
3294
3295
3296
3297
3298
3299
3300

017464
017470
017472

017500
017504
017506
017512
017516
017520
017524
017526
017532
017534
017540
017546
017554

017556

004737
011600
016037

105737
100015
004737
120027
001003
004737
000405
120027
001002
004737
017737
132737
001012

020076

177776
177560
020444
000017

021522
000C07

1$:

017704
177040
000020

016622
016623

013737

016622

016624

132737
001412
013700
006000

000016

01¢023

3301 017564 042737 170777 016624

3302
3303
3304
3305
3306

3307

017572
017600
017602
017606
017610

017612

006000
000300

MOV
MOV
1518
BPL
JSR
(MPB
BNE

016620

3%:

JSR
RR
(MPB
BNE
JSR
MOV
BITB
BNE

MOV

BIC

8118
BEQ
TRPSCP: MOV .
ROR
ROR

SWAB

(SP),RO
-2(R0O),TRPARG
1KS
18
PC,READ
RO, 717
18

PC,MODIFY
38
RO, #7
3
PC,MONIT
aSWR, TRPSEL
#20, TRPSEL+1
TRPSCP
TRPSEL,TRPMEM

;GET TRAP CALL
:LOOK FOR MONITOR CALL

;1S 1T CNTRL=0 ?
:NO
;YES CALL MODIFIER ROUTINE

:1S 1T CTRL=G?

;YES, GO TO SWR MONITOR

;1S 1T PRESERVE SCOPE
JYES
;NO SO SAVE SWITCH SETTING

#170777,TRPMEM :GET IT SO WE CAN COMPARE
#16, TRPSEL*1
TRPLP
TRPARG,RO
RO
RO

;ANY SCOPE LEVELS SET
:NO
JYES
:GET TO POSITICN FOR COMPARE

;FOR 10 & ABOvVe
;ONLY FOR SCOPE BITS(9=11)

.
VIV VISUAL TESTS

CVVTBA.SRC
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319

3320

3321
3322
3323
33264

MACY11 30A(1052)

06-SEP-79 15:23

017614
017620
017624
017626
017632
017634
017636
017640
017044
017652
017656
017660

042700
020037
001422
013700
006100
006100
000300
142700
142737
130037
001005
004737

017670
017672
017676
017702

000002
004737
017616
000002

017664

062716

06-SEP=79

TRAP SERVICE ROUTINE

170777
016624
016622

000371
000370
016520
020174

000002

.
020174
000000

TRPLP:

016620

15:27

BIC
CHP
BEQ
MOV
ROL
ROL
SWAB
81(B
BICB
BlTB
BNE
JSR

ADD

RTI
TRPBAK: JSR
MOV
RTI

r
7
PAGE &47-¢

#170777,R0
RO, TRPMEM
TRPBAK
TRPSEL ,RO
RO
RO
RO
#371,R0
#370, TRPARG
RO, TRPARG
TRPBAK
.
PC,RSTREG

#2,(SP)

FC,RSTREG
a(SP), (SP)

SEQ 0081

;ARGUMENT SCOPE BITS
;AS SELECTED ?
;YES, 6P BACK
;NO, TEST LOOP
;FOR BITS 788
'
;CUT OUT SWO06°
;ONLY SWITCHES 7 OR 8 NOW
;ANY SELECTED ?
JVES

:NO SCOPE OR LOOP,SO RUN

;PAST ARGUMENT AND RETURN
;RESTORE REGS
;RETURN ADDRESS TO STACK
;EXIT, LOOPING

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

30A(1052)

06-SEP-79

15:27

PAGE 48

SEQ 0082

SWITCH REGISTER MONITOR

DESCRIPTION:

T
I
R
R
I
R
I
R

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.

OTHERWISE, 1T PRINTS THE CURRENT
(ONTENTS OF

THE SOFTWARE SWITCH REGISTER,

FOLLOWED BY A PROMPT

(>).

1HE NEW SWITCH

AN OCTAL NUMBER, TERMINATED £V CARRIAGE RETURN.
TYPING CARRIAGE RETURN ALONE WILL CAUSE THE
SWITCH REGISTER CONTENTS TO REMAIN UNCHANGED.

1F THE SWITCH REGISTER IS UP!ATED TO SELECT

A TEST (BIT 6 SET) THE NEW TEST WILL BE
ENTERED IMMEDIATELY.

CALLING SEQUENCE:

3342

SIFRF wrN
- OO0

N W

LSBTTL

PC,MONIT

JSR

INPUT PARAMETERS:
OF

THE

BY TYPING CNTRL=G DURING THE RUNNING

TESTS.

IMPLICIT

INPUT PARAMETERS:
THE

SOFTWARE

SWITCH REGISTER,

MUST HAVE BEEN SET UP.

BEING USED

OUTPUT PARAMETERS:

WN =00~
—_-OVkE~N VS

TPV

P P

PV TP

uwuwwuwwwuwngg
OO NN NNNNNNNN

3365

IF RUNNINC UNDER SOF TWARE SWITCH REGISTER MODE

A NEW SETTING OF

THE SWR COULD HAVE BEEN SET UP.

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

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

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

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

016604

30A(1052)

177570

021172

v
¥
06-SEP-79
15:27 PAGE 48-1
SWITCH REGISTER MONITOR

MONIT:

SEQ 0083

MOV

RO,=(SP)

;SAVE RO

BEQ

MONITA

;1F YES, GO TO END

cmp
JSR

SWRMSG

SWR, ¥HSWR

PC,TYPOUT

;HARDWARE

SWR?

;SWR=

016606
021262
000076
021250
020272
016636

MOV
JSR
MOV
JSR
JSR
181

#76,R0
PC,PCHR
PC,OCTIN
RAND

016606
000100

MOV
BIT

RO,SSWR
#100,SSWR

;YES UPDATE

SSWR

START?2
PC,TYPCTC

;YES GO DO

BEQ

016606

BEQ

001232
020014

JMP
MONITA: JSR

021136

MONITX: JSR

MOV
RTS

SSWR,RO
PC,PROCT

MONITX

MONITA

PC,CRLF

(SP)+,RO

JGET NEW SETTING
sANY

INPUT?

;TEST SELECTED?

sCTRL=C TO CONTINUE

;RESTORE RO

MACY1T

VIV VISUAL TESTS

CVVTBA.SRC

06-SEP-79 15:23

30A€1052)

06-SEP-79

15:27

WAIT FOR CNTRL-C

3407
3408

LSBTTL

WALIT FOR CNTRL=-C

DESCRIPTION:

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

I1F NONE OF

THESE ARE WIT, THE ROUTINE WILL RETURN

TO THE NEXT LOCATION AFTER THE

CALL.

CNTRL-C WAS

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

3 FREFFRERERER
i vrviapet—

PAGE 49

CALLING SEQUENCE:

3622

INPUT PARAMETERS:

PC,TYPCTC

JSR

NONE

IMPLICIT

INPUT PARAMETERS:

IS REQUESTED FROM THE

CONSOLE

OUTPUT PARAMETERS:

INPUT

IS CORRUPTED

IMPLICIT OUTPUT PARAMETERS:

COMPLETION CODES:
THE

CALL

A RETURN TO THE
IS PERFORMED.

FIRST OR SECOND LOCATION AFTER

POSSIBLE ERROR rA"ES:
NONE

TRI

TRTETETE

NONE

3459
3460
3461
3462

020014

020020
020022
020026
020032

004737
015607
004737
020027
021005

021172

TYPCTC:

020444
000003

QEX]T:

JSR

PC,TrPOUT

:PRINTS TYPE (TRL/C WHEN READY

JSR
(MP

PC,READ
RO,#3

;CTRL/C ENTERED

REDMES

BNE

QEX1T12

:NO

at
8

3458

viv VISUAL TESTS
CVVTBA.SRC
06-SEP-79

020034
020040
020044
020046
020052
020054
020060
020062
020066
020070
020074

004737
062716
000207
020027
001003
004737
000755
020027
001366
004737
000747

n;(m S0AC1052) 06-SEP-79 15:27 PAGE 49-1
15:23

0c1136
000002

000017
021522
000007
017704

WAIT FOR CNTRL-Ci

JSR

QEX]ITY:
QEX]T2:

ADD
RTS
(mpP

BNE
JSR
BR
QEX]T3: CMP
BNE
JSR
BR

PC,CRLF

#2,(SP)

RO, 717
QEXITS
PC,MODIFY

SEQ 0085
;YES SO JUMP OVER NO FIND RETURN

;60 BACK
sCNTRL=0 ?
:NO

TYPCTC

;YES CALL MODIFY PROGRAM
;THEN GO BACK TO START
;CTRL=G?

PC,MONIT
TYPCTC

;GO TO SWR MONITOR
;LO0K FOR (IRL-} AGAIN

RO, #7
QEXIT

RPN

VIV VISUAL TESTS

CVWVTIBA,SRC

MACY11 30A(1052)

06-SEP-79 15:23

O06-SEP-79

SAVE REGISTERS

36477

.SBTTL

3478
3479
3480
3481

SEQ 0086

SAVE REGISTERS

)

3486
3487
3488

ROUTINE TO SAvE ALL THE GENERAL PURPOSE
REGISTERS ON THE STACK, AND LEAVE THE ADDRESS OF

:
3
:

3489
3490
3491

CALLING SEQUENCE:

3493
34C,
3’0 95
2496
3497
3498

:
5
M
3
:
:

3502
3503

:
:
:

3499
3500
3501

;;3?

3506
3507
3508

NONE
b

IMPLICIT INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

IMPLICIT QUTPUT PARAMETERS:

3513
3514
3515
3516
3517
3518 3519
3520
3521
3522
3523
3524
3525
3526
3527

H
:
:
3
:
:
3
:

NONE

012637
012637
010546

016626
016630

COMPLETION CODES:

NONE
;

POSSIBLE ERROR CODES:

NONE

SAVREG: PSWREA

020076

020106
020122
020126
020132

INPUT PARAMETERS:

:
s
3
:
2
:

PC,SAVREG

REGISTERS O THRU S ARE SAVED ON THE STACK
AND THE RETURN ADDRESS OF THE CALLING ROUTINE IS
SET AS THE LAST ENTRY ON THE STACK

:
:
:

—

JSR

;
.
:

3509
3510
3511

3512

THE

CALLING ROUTINE ON THE STACK. THE ROUTINE WILL RUN AT
PRIORITY 7 TO AVOID ANY INTERRUPTS

:
3
:

3492

3529
3530
3531
3532

PAGE 50

DESCRIPTION:

3482
3483
3484
3485

3528

15:27

PSWSET
MOV
MOV
MOV

SAVSIA

#340
(SP)+ ,SAVPC
(SP)+,SAVPC
RS,=(SP)

:SAVE PC FOR RETURN FROM THIS ROUTINE

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

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

020134
020136
020140
020142
020144
020146
0201%2
02C156
020172

010446
010346
010246
010146
010046

013746
013746

000207

30A(1052)

06-SEP-79

15:27

SAVE REGISTERS
MOV

016630
016626

PAGE 50-1

SEQ 0087

RG,=(SF)

MOV
MoV
MOV
MOv

R3,-(SP)
R2,=(SP)
R1,-(SP)
RO,=-(SP)

PSWSET
RTS

SAVSTA
44

MOV
MOV

SAVPC1,-(SP)
SAVPC,=(SP)

;PUT PC READY FOR

:REYURN

—

VIV VISUAL TESTS
CVYVIBA.SRC

MACYLT 0A(1052)

06-SEP-79 15:23

3546

3547

06-SEP-79

15:27

RESTORE

REGISTERS

LSBTTL

3548

ggg?

PAGE 51

RESTORE REGISTERS
|

’
-

3549

;

DESCRIPTION:

3552
3553

:
;

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

WAS WHEN SAVREG WAS CALLED.

3556
3557

:
;

CALLING SEQUENCE:

§2§§

.
:

3559
3560
3561
3562
3563
3564
3565

;
}
:
:
:

;

3566

3567
3568
3569
3570
3571
3572

:
:
:
:

3574
3575

:
:

3573

3576
3577
3578
3579
3580

3581
3582
358%
3584
3585
3586
3587
3588
3589
3590
3591

3592

3567
3504
3595
3596
1597
3598
3599
3600
3601

JSR

;

3558

020204
020220
0202264
020230
020232
020234
020236
020240
020242

INPUT PARAME TERS:
NONE

IMPLICIT INPUT PARAME TERS:
NONE
OUTPUT PARAMETERS:

RO THRU RS RESTORED

;
:
:
:

IMPLICIT OUTPUT PARAME TERS:
NONE

COMPLETION CODES:

NONE

POSSIBLE ERROR CODES:
NONE

RSTREG: PSWREA

012637
012637
012600
012601
012602

012603

012604

012605

016626
016630

PC,RSTREG

;
;
3
2
:
;
:
3
;
:
:
2

020174

PSWSET
MOV
MOV
MOV
MOV
MOy
MOV
MOV
MOV

SAVSTA

#340
(SP)+,SAVP(
(SP)+,SAVP(1
(SP)+,RO
(SP)+ R
(SP)+ ,R2
(SP)+,R3
(SP)+,R4
(SP)+ RS

SEQ 0088

0020264
020250
020254
020270

013746
013746
000207

016630
016626

MOV
MOV
PSWSET
RTS

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

;PUT PC READY FOR

;RETURN

3602
3603
3606
3605

SEQ 0089

VIV VISUAL TESTS
MACY11 30A(1052) 06-SEP-79 15:27
CVWIBA.SRC
06-SEP-79 15:23
RESTORE REGISTERS

¥
B
PAGE 51-1

VIV VISUAL TESTS
MACY1T 30A(1052)
O06-SER-79 15:27 PAGE 52
CVVTBA.SR(
06-SEP-79 15:23
ENTER AN OCTAL NUMBER
3607

SEQ 0090

DESCRIPTION:

ENTER AN OCTAL NUMBER

1S SET TC NON ZERO IF ANY CHARACTERS WERE ENTERED.

TYPING CARRIAGE RETURN, LINE FEED OR ESCAPE WiLL
TERMINATE

THE LINE BEING ENTERED.

RUBOUT WILL DELETE THE LAST CHARACTER ENTERED,
CNTRL-U WILL RUBOUT THE WHOLE LINE, AND CNTRL=R
WILL TYPE OUT THE CHARACTERS SO FAR ENTERED.

RAND WILL BE SET TO NON ZERO IF ANY CHARACTERS
WERE HIT AND RANDC WILL CONTAIN THE TERMINATING
CHARACTER.

A *'* WILL BE PRINTED IF

AN OVERFLOW CONDITION IS

DETECTED AND A *2° IF AN INVALID CHARACTER WAS
ENTERED.

TRTR

ROUTINE TO ENTER AN OCTAL NUMBER ON THE CONSOLE.

THE NUMBER ENTERED IS RETURNED IN RO, AND THE VALUE RAND

CALLING SEQUENCE:

JSR

PC.OCTIN

INPUT PARAMETERS:
NONE

IMPLICIT INPUT PARAMETERS:

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

IMPLICIT OUTPUT PARAMETERS:

IEIECECETETETE

NONE

(TR

SEEEEEE S SEEEEEEEES
R385
4804 ¢ VN
NS WN—=O

SBTTL

NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

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

06-SEP-79

15:27

N 7
PAGE 52-1

PC,SAVREG
RO

020272
(=]l
=)

RAND
#OCTMSG,STRADD

16736
16740
16742

#6,STRLEN

#60, LOWCHR
#67 .UPPCHR
CNVFLG

16744

PC,GETSTR

STRLEN,R1

016740
016546
000060

SEQ 0091

ENTER AN OCTAL NUMBER

TYPOTD

#OCTMSG,R2

(R2)+,RS

TYPOTC:

960,83

:SAVE THE REGISTERS
:CLEAR RO
;CLEAR FLAG WORD
SET START ADDRESS OF STRING
ITEIEIETE
DR TR TR TR TR T

MACY11 30A(1052)

TETEIE

TYPOTE

0'6636

020434
020440

016634
020174
016634

MOV

000041
021250
020276

TYPOTE:

MOV
RTS
MOV

JSR

JSR
JMP

RO,TYPOTA
PC,RSTREG
TYPOTA,RO

PC,PCHR
TYPOTB

YES

*NO GET START ADDRES OF STRING
GET A CHARACTER
PUT

IN RANGE

SHIFT OUT RESULT
C BIT SET ERROR
TIMES &

C BIT ERROR
TIMES 8
SET NEW BITS IN
SET GOOD

GET RESULT
\

GET A STRING
ZERO LENGTH ?

RESTORE REGISTERS

#41,R0

DON'T CONVERT TO UPPER CASE

LOOP IF MORE TO COME
SAVE FINAL NUMBER

TYPOTC

TYPOTD:

AND 1TS SIZE
MINIMUM CHAR
MAXIMUM CHAR

OVERFLOW
PRINT A '
THEN GO AGAIN

MACY1T
viv VISUAL TES'S
CVVTBA.SRC
06-SEP-79 15:23

30A(1052)

06-SEP-79

READ A SINGLE

3699
3700
3701

15:27

8
PAGE 53

READ A SINGLE CMARACTER

DESCRIPTION:

CALLING SEQUENCE:

R T T T T R T T T

NN —
VI
N

PR D D

OOV

PC,.READ

INPUT PARAMETERS:
NONE

IMPLICIT

INPUT PARAMETERS:
NONE

OUTPUT PARAMETERS:

THE

CHARACTER

COMPLETION CODES:
NONE

e
e
e

POSSIBLE ERROR CODES:
NCNE

020444

020450
020452
020456
020462
020466

105737
100375

015700
042700
004737
000207

(HARACTER READ

IN.

IMPLICIT OUTPUT PARAMETERS:

T L T PR TR TR

RO CONTAINS THE

b - D

NN NN NN

SNNNNNNNNNN
[) N
—

N T

ROUTINE TO READ A SINGLE CHARACTER
FROM THE CONSOLE. TME (MARACTER IS RETURN IN RO
AND HAS THE 200 BIT STRIPPED OFF.

JSR

1S1B

BPL
MOV

BIC

JSR

R1S

READ
T1k8,R0

#177600,R0

PC.PCHR
PC

—

SEQ 0092

CHARACTER

.SBTTL

IS ECHOED ON THE

TERMINAL

06-SEP=79 15:27 PAGE 54
VIV VISUAL TESTS
MACY11 30A(1052)
CVVIBA.SRC
06=-SEP=79 15:23
ENTERING A CHARACTER STRING
LSBTTL

SEQ 0093

ENTERING A CHARACTER STRING

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

e S

e B

S e

ESCAPE, CARRIAGE RETURN AND LINE FEED ARE USED
TO TERMINATE THE STRING. RUBOUT WILL DELETE

THE

LAST CHARCTER ENTERED, CNTRL-U WILL PELETE THE
ALL

THE CH/RACTERS ENTERED, AND CNTRL=-R WILL ECHO

THOSE CHARACTERS ALREADY ENTERED.

ON ENTRY THE FOLLOWING POINTERS ARE USED:
STRADD TO INDICATE THE START OF THE (“ARACTER STRING
STRLEN TO INDICATE ITS SIZE
" CUNFLG SET TO CONVERT LOWER CASE TO UPPER CASE
UPPCHR TO INDICATE THE HIGHEST CHARACTER CODE
LOWCHR TO INDICATE THE LOWEST CHARACTER CODE
ON EXIT THE
LOCATION STRLEN WILL INDICATE THE
NUMBER OF CMARACTERS ENTERED AND RANDC WILL CONTAIN
THE

TERMINATING CHARACTER

IF AN INVALID CHARACTER WAS HIT A "?"

IS PRINTED

CALLING SEQUENCE:

PC.GETSTR

JSR

INPUT PARAMETERS:

STRADD
STRLEN
UPPCHR
LOWCHR
CNVFLG

THE START ADDRESS OF THE STRING
THE NUMBER OF CHARACTERS TO READ
THE MIGHEST CHARACTER CODE ALLOWED
THE LOWEST CHARACTER CODE ALLOWED
TO INDICATE LOWER TO UPPER CASE CONVERSION

IMPLICIT INPUT PARAMETERS:
NONE

3807

3805

OUTPUT PARAMETERS:

e
B e
s Ba By

e W

e By

e B

B Ve N L B

B . e B

e B

S B B B

B B

3752
3753
3754
3755
3756
3757
X758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768

RANDC

STRLEN THE NUMBERS OF CHARACTERS READ
THE

TERMINATING CHARACTER

VIV VISUAL TESTS

CVWIBA.SRC
3808
3809
3810
3811
3812
3813
1814
3815
3816
3817
3818
3819
3820

MACY11 30AC1052)

06-SEP-79 15:23

3828
3829
3830
3831
3832
3833
>34,
ggiz

020470
020474
020500
020504
020506
020512
020514
020520

004737
005037
013702
005001
105737
100375
013700
042700

020076
016746
016736

177560
177562
177600

SEQ 0094

A *?' 1S PRINTED IF AN INVALID CHARACTER IS ENTERED

:
:
:
:
;

GETSTR: JSR.
GETCH1: CLR
MOV
CLR
GETCH2: TSTB
BPL
MOV
BIC

PC,SAVREG
RUBFLG
STRADD ,R2
R
T1KS
GE TCH2
KB, RO
#177600,R0

:SAVE REGISTERS
: CLEAR RUBOUT FLAG
* GET STARTING POINTER
P SET INTITAL LENGTH
* ANY TTY INPUT
© NO WAIT FOR IT
* GET CHARACTER
* CLEAR RUBBISH

* CHECK FOR CONTROL CODES

3839
3840
3841
38,2
3843
3844
3845
3846
3847
38,8

020526
020530
020532
020536
020542
020544
020550
020554
020556
020562

020027
001002
000137
020027
001002
000137
020027
001002
000137
020027

000015

3850
3851
3852

020570
020574
020600

3854
3855
gggg

020606
020612
020614

020566

021114
000012
021114

18:

000033

021114
000177

5%:

000137
020027
001002

020742
000022

020027
001002
000137

000025

001002

3853 020602 000137 021040
021010

9%:

M
BNE
JMP
CMP
BNE
JMP

CMP
BNS
JMP
CMP
BNE
JMP
(MP
BNE

JMP

CMP
BNE
JMP

RO,#15
18
CHRF IN
RO,#12
38
CHRFIN
RO,#33
X3
CHRFIN
RO, #177

: WAS 1T <CR> ?
S NO

RUBCHR
RO,#22
9%

L OYES
(NTRL-R
)

: WAS IT <LF>
: NO

: WAS 1T <ESC>
)

; RUBOUT ?
1 NO

LINECH

" YES EXCO LINE

RO,#25
GETCH3
L INDEL

P IT Wi NOT A CONTROL CODE CHECK
* FOR LEGALITY ?

3858
3859

3862
3863

ENTERING A CHARACTER STRING

: POSSIBLE ERROR CONDITIONS:
:
;
'

ggg;

3849

15:27 PAGE S4-1

: IMPLICIT OUTPUT PARAMETERS:
:
:
NONE
:
:
: COMPELETION CODES:
:
:
NONE
;
:

i%%}
3823
3824
3825
3826
3827

06-SEP-79

D 8

[}

020620
020624

020027
002405

000140

GETCH3: CMP
BLT

RO, #140
3%

: 1S 1T LOWER CASE
: NO

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

020626

005737 016734
001402
042700 000040
020037 016742
002002
000137 021074
020037 016744
003402
000137 021074

30A(1052)

E
15:27
PAGE 54-2
06-SEP-79
ENTERING A CHARACTER STRING
181

3%:

5%:

BEQ
BIC
CMP
BGE
JMP
CMP
BLE
JMP

SEQ 0095
YES DO WE

CNVFLG

3%
#40,R0

CONVERT

TO UPPER

YES STRIP 40 OFF
;3 THE CHAR TOO SMALL

RO,LOWCHR
5%
ILLCHR
RO,UPPCHR
GETCH4
ILLCHR

YES
£3 THE CHAR T00 BIG ?
YES

ITS

ILLEGAL

SAVE

CHAR

* WE HAVE A LEGAL CHARACTER

021114

021250

5%:

INC

cmpP
BLE
CLR
JMP
MOV
JSR

MOVB
JMP

R1
R1,STRLEN

RO
CHRFIN
PC,PCHR

RO, (R2)+

GETCHZ

YES PRINT A

020506

016740

3%:

JSR
CLR

000137

110022

021250

016746

PC,PCHR
RUBFLG

1S RUBOUT SET
*/°

CLEAR RUBOUT FLAG

UPDATE CHAR COUNT
sgb OF

STRING SEEN

000057

MOV

RO,R3
§U8FLG
$
#57,R0

012700
004737
005037
005201
020137
003403
005000
000137
010300
004737

MOV
157
BEQ

016746

GETCH&:

010003
005737
001406

CEL

020664
020666
020672
020674
020700
020704
020710
020712
020716
020720
020722
020726
020730
020734
020736

YES, FORCE A NULL
AND COMPLETE
RESTORE CHAR

ECHO 17
SAVE IT
NO GET

TERMINATOR

IN BUFFER

ONE

RUBOUT WAS HWIT
020742
020744
020746
020752
020756
020760
020764
020770
020774
020776
021002
021004

005701
001002
000137
005737
001006
012700
004737
005237

1146200

004737
005301
000137

RUBCHR:

021030
016746

000057
021250
016746
021250
020506

3%:

TST
BNE
JMP

181

BNE

MOV

5%:

JSR
INC
MOVB
JSR
DEC
JMP

ANY CHARACTERS TO RuUBOUT

3%
LINDLT

YES

RUBFLG

PC,PCHR
RUBFLG

-(R2),R0O
PC,PCHR
R1

GETCH2

YES

IS RUBOUT SET ALREADY ?

NO PRINT A '/°
SET RUBOUT

GET LAST

CHAR ENTERED

PRINT IT
REDUCE COUNT

GET ANOTHER CHAR

* RUBOUT LINE WAS HIT
021010
021014
021020
021024
021030
021034

012700
004737
012700
004737

000136
021250
000125
021250
021136
020474

LINDEL: MOV
JSR

MOV

JSR

LINDLY: JUSR

JMP

PC,PCHP

#125,R0
PC,PCHR
PC,CRLF

GETCHI

A *

THEN U

START ON A NEWLINE
A GO BACK

TO BEGINNING

* (NTRL=R WAS HIT
021040
021044

000100

021136

LINECH: MOVB
JSR

#'a,(R2)
PC,CRLF

PUT IN A TERMINATOR
START ON A NEW LINE

F_8
Viv VISUAL TESTS
MACY11 30A(1052)
06-SEP=79 15:27 PAGE 54-3
CVVIBA.SRC
06-SEP=79 15:23
ENTERING A CHARACTER STRING

3920
3927
3922

3923
gg%g

021050
021056
021062

021066
021070

013737
005037
004737

000000
000137

016736
01£746
021172
020506

3926
3928

3929
3930
ggg}

021066
3%:

MOV
CLR
JSR

STRADD, 38
RUBFLG
PC, TYPOUT

: SET START ADDRESS
. CLEAR RUBOUTS
: PRINT LINE

JMP

GETCH2

: AND GET ANOTHER CHAR

021100
021106
021110

004737

012700
004737
000137

021250

000077
021250
021040

gggz

ILLCHR: JSR

MOV
JSR
JMP

PC,PCHR
#'7,R0
PC,PCHR
LINECH

“
: ECHO 1T

: PRINT A ?

;

THE ECHO LINE

: A TERMINATOR WAS FOUND

3935

021114

010037

016750

CHRFIN: %ov

RO, RANDC

: SAVE TERMINATOR

3937

021124

010237

016740

MOV

R2,STRLEN

: SET IT FOR RETURN

3936

3938
3939

021120

021130
021134

163702

004737
000207

016736

020174

SUB

JSR
RTS

STRADD ,R2

PC.RSTREG
PC

SEQ 0096

: CALCULATE BYTE COUNT

. RESTORE REGISTERS
: AND EXIT

'
g

VIV VISUAL TESTS

CVVTBA.SR.

MACY11

06-SEP=-79 15:23

30A(1052) » 06-SEP=79

:
:

3944

3946

3945

3647

3948
3949
3950
3951

H
:
:
-

3954
3955
3956
3957
3958
3959
3960
3961

:
b
3
i
3
3
4
:

3952
3953

:
3

3962

3964
3965
3966
3967
3968
3969
gg;?

;
:
$
$
3
:
s

gg;g

3974
3975
3976

:
:
3
:

3963

3978

3979

3980
3981
3982
3983
3984
3985
3986

3987

3988

3989

3990
3991
3992
3993
3994
3995
31996

LSBTTL

021136

021147
021144

021130
021152
021156
021162
021166
021170

010046

012700

004737

005000
004737
012700
004737
012600
000207

000015

3
3
:
:
3
3
2

CRLF:

021250
000012
021250

ROUTINE T0O DO A <CR> <LF> ON THE

CONSOLE TERMINAL

CALLING SEQUENCE:
JSR

PC,CRLF

INPUT PARAMETERS:

NONZ
IMPLICIT

INPUT PARAMETERS:
.

NONE

‘a
'

OUTPUT PARAMETERS:
NONE

IMPLICIT OUTPUT PARAMETERS:

THE CARRIAGE wiLL BE PLACED ON A NEW LINE

COMPLET]ON CODES:

NONE
-

POSSIBLE ERROR CODES:

NON:

MOV

JSR

021250

SEQ 0097

CARRIAGE RETURN LINE FEED

DESCRIPTION:

’

PAGE 55

CARRIAGE RETURN LINE FEED

3941
3942
3943

3977

15:27

(LR
JSR
MOV
JSR
MOV
RTS

RO,=(SP)

5,7

PC,i .HR

RO
PC,PCHR
#12,R0
PC,PCHR
(SP)+,RO
PC

;PRINT A RETURN = LINE FEED
;DUMMY

H 8
viv VISUAL TESYS
MACY11 30A(052)
O06-SEP=79 15:27 PAGE 55-1
CVVIBA.SRC
06-SEP-79 15:23%
CARRIAGE RETURN LINE FEED

SEQ 0098

5997

———
e
e

VIV VISUAL TESTS

CVVTBA.SRC

MACY1T1

06-SEP-79 15:23

30A(1052)

06-SEP=-79

3999

PAGE 56

SEQ 0099

AN ASCII1 MESSAGE

PRINT AN ASCII MESSAGE

CESCRIPTION:

SBTTL

ASCII

AS CONTROL CODES,

THESE ARE:

ROUTINE TO PRINT A STRING 9F

CHARACTERS ON THE CONSOLE TERMINAL. CERTAIN
CHARACTERS WITHIN THE STRING ARE INTERPRETED
133 (D)
100 (@

WILL GENERATE A <(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
TO THE ROUTINE,

JSR

IE:

PC,TYPOUT

ADDR

CALLING SEQUENCE:

PC,TYPOUT

INPUT PARAME PERS:

JSR

THE

THE ADDRESS OF
SUBROUTINE CALL.

THE

MESSAGE

STRING FOLLOWS

INPUT PARAMETERS:
NONE

IMPLICIT

OUTPUT PARAMETERS:
NONE

IMPLICIT OUTPUT PARAMETERS:
e

4000
4001
4002
4003

15:27

THE

SPECIFIED MESSAGE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
NONE

WlLL

PRINTED

AVIV VISUAL TESTS
CVVTBA. SRC

MACY11

06~SEP-79 15:23

30A(1052)

06-SEP-79

15:27

AN ASC11

PAGE 56-1

8
SEQ 0100

MESSAGE

6055

4056
6057
4058
4059
40¢0
4061
6062

021172

4063

021246

004737
017601
062716

111100
022700
001412
022700
001003
004737
000402
004737
005201
000762
004737
000207

020076
000000
000002
000100

TYPOUT:

PMSG1:

000133
021136

021250

PMSG2:
PMSG3:

020174

PMSG&:

JSR
MOV
ADD
MOVB
cmp

BEQ
Cmp
BNE
JSR
BR
JSR
INC
ERd
JSR
R1S

a($P) R

: SAVE REGS
;R1 POINTS AT STRING

ari,RO

;PRINT

PC,SAVREG
2,(SP)

#100,R0
PMSGL
#133,R0

:JUMPS OVER ARGUMENT

THE MESSAGE POINTED

;70 BY R1

UNTIL @,

;[ MEANS CR-LF

WHICH

IS END.

PMSG2

PC,CRLF

PMS53

PC,PCHR
R1
PMSG]
PC,RSTREG
PC

;RESTORE

REGS

viv VISUAL TESTS
MACY11 30A(1052)
O06-SEP=79
15:27
CVVTBA.SRC
06-SEP-79 15:23
PRINT A CHARACTER
6074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
«086
4087
4088
4089
4090
409N
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
€102
4103
6104
4105
4106
6107

LSBTTL

PRINT A CHARACTER

ROUTINE TO PRINT A CHARACTER ON THE

TR TR T
T TT N

CONSOLE. RO (ONTAINS THE CHARACTER TO BE PRINTED
CALLING SEQUENCE:
JSR

PC,PCHR

INPUT PARAMETERS:
RO CONTAINS THE

IMPLICIT

CHARACTER TO BE

PRINTED

INPUT PARAMETERS:
NONE

‘OUIPU! PARAMETERS:
NONE

PRTR TR DR TR T

;

IMPLICIT OUTPUT PARAMETERS:
L

THE

CHARACTER SELECTED wiLL BE PRINTED

COMPLETION CCDES:

NONE

ERROR

CODES:

POSSIBLE

NONE

021250
02125
021260

004737
010037
000207

017434
177566

e R

4119
6120
4121

SEQ 0101

DESCRIPTION:

4108

6109
4110
1M
6112
4113
6114
64115
4116
«117
4118

PAGE 57

(HR:

JSR
MOV
RTS

PC,TPREDY
RO, TPB
PC

;PRINTER READY

MACY1T

viv VISUAL TESTS

CYVIBA.SRC

06-SEP=-79 15:23%

30A(1052)

06-SEP-79

SBTTL
B

6125
6126

3
:

:}%;

6129

613
6132

:
3

6133

L1465

THE CONSOLE TERMINAL. RO CONTAINS THE BINARY

REPRESENTATION ON THE NUMBER THAT
PRINZED.

4
£
3
3
b4

PRINTED

IMPLICIT

6147

S TO BE

PC,PROCT

INPUT PARAMETERS:

6146

ROUTINE TO PRINT AN OCTAL NUMBER ON

JSR

PRINT AN OCTAL NUMBER

CALLING SEQUENCE:

:
3
3
:

RO CONTAINS THE NUMBER THAT

IS TO BE
3

INPUT PARAMETERS:

NONE

4148
6149

4150
£151
6152
4153

:
:
3
:
:
3"

klgg

OUTPUT PARAMETERS:

NONE

L156
4157
4158
4159
4160
4161
6162
4163

L164

IMPLICIT OUTPUT PARAMETERS:

.
3
3
3
3
:
3
3

THE NUMBER SPECIFIED WILL BE PRINTED

COMPLETION CCDES:
NONE

4165

4167
4168
4169

3
3
H

L1166

POSSIBLE

021262
021266
021272

021276
021302
021304
021306

004737
012701
112721

020127
001373
0002641
010002

4177 021310 042702
4178

‘

6140
{141
6162
4143
L1644

SEQ 0102

DESCRIPTION:

6135
6136
L1%7
a}gg

6134

4173
41764
4175
4176

413%0

PAGE 58

PRINT AN OCTAL NUMBER

612%

6124

4170
4171
4172

15:27

021314 MN62702

020076
016520
000040

016526

177770

000060

ERROR

CODES:

NONE
'

PROCT:

JSR
MOV
PROCT1: MOVB
CHpP
BNE
PRCTIA: CLC
PROCT2: MOV

BIC

ADD

PC,SAVREG
#OCTNUM,R]
#60,(R1)+

R1,#0CTNUM+6
PROCT?
RO,RZ

sALL DONE
:NO
;CLEAR AT START
;SAVE CHARA

017777082
#60,R2

;s SAVE REGS
sPOINTER TO MESSAGE
:FILL WITH SPACES

SCLEAR ALL BUT BOTTOM 3 BITS
:NOW ASCII

6179
4180
4181

4182
6183
6184
4185
4186
6187
4188
4189
6190
&N
6192
4193
4194
6195
6196
6197
4198
4199
4200
6201

110261

021346
021352

062700
001404
006000
006000
006000
000763
004737
016520
004737
000207

30A(1052)

0Q6-SEP=-79

15:27

021172

R2,=(R1)

#7,R0

SEQ 0103

;STORE 1T IN MESSAGE
sNOW CLEAR BOTTOM 3 BITS
sALL DONE
;ROTATE NEXT 3 BITS

ROR
ROR
ROR
BR

PROCT?2

JSR
RTS

PC,RSTREG
PC

PROCTS: JSR
OCTNUM

020174

N
PAGE 58-1

AN OCTAL NUMBER

MOvVB
BiC
BEQ

000007

PC,TYPOUT

;60 DO NEXT

; TYPE MESSAGE
;MESSAGE ADD.

;RESTORE REGS

*ROUTINE TO PRINT LEAST $16.9 BITS OF RO
02° 3564
021360
021364
021372
021400
021404

004737
042700
012737
012737
012701
000737

PRNT3:

029076
177000

002040
040040

016523

- -

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

016520
016522

JSR
BIC
MOV

MOV
MOV

PC,SAVREG
#177000,R0
#2040,0CTNUM

;CLEAR UNWANTER
sSET UP MESSAGE

#40040,0C TNUM+2 ;WITH END CODE
#OCTNUM+3
R
;& POINTER
PRCT1A
;JUMP INTO MAIN ROUTINE
;WITH POINTERS SET uP

viv VISUAL TESTS

CVVTIBA.SRC

MACY11 30A(1052)

06-SEP=-79 15:23%

4203

06-SEP-79

6205
4206

:
:

4208

4207

4209
4210

LSBTTL

3
3

ROUTINE TO PRINT A SIGNED, OR UNSIGNED
DECIMAL NUMBER ON THE (ONSOLE. RO CONTAINS THE

BINARY REPRESENTATION ON THE NUMBER TO BE PRINTED
CALLING SEQUENCE:

4216
6%};

3
-

JSR
JSR

6219

INPUT PARAMETERS:

6221

6224

6226

4228

3
}

6222
4223

4225

PC,BASEN0
PC,BASMI0

IMPLICIT INPUT PARAMETERS:
NONE

£229

OUTPUT PARAMETERS:

NONE

4%;‘;

423%0

42%2
4233

5
3

:
H

42%7
4238

42%9

4240

4243

4245

L2462

COMPLETION CODES:
NONE

L244

L2406

THE NUMBER SPECIFIED WiLL BE PRINTED

6241

POSSIBLE ERROR CODES:

NONE

4247
4248

:
5

4250
4251
4252 021406
425% 021410
&25% 021412
42595 0214164
aszg 021422

:
BASMI0: T1S7
BPL
NEG
[ [AY:]
]

ROUTINE TO PRINT A SIGNED DECIMAL NO.
ENTER WITH IT HELD IN RO
;1S 1T =vE
RO
:NO
BASEN0
:YES SO MAKE +vE
RO
:PUT "="' IN MESSAGE
#55,BASET
;60 90 |7
BAS10A

ROUTINE 1O PRINT UNSIGNED DECIMAL NO.

6249

«258

005700
100005
005400

112737
000403

000055

016530
;

IMPLICIT OUTPUT PARAMETERS:

423%

FOR UNSIGNED
FOR SIGNED

RO CONTAINS THE NUMBER TO BE PRINTED

6227

2%}?

4220

SEG 0104

PRINT A DECIMAL NUMBER

“

DESCRIPTION:

6213

:g};

PAGE 59

PRINT A DECIMAL NUMBER
:

6204

15:27

6269
270
6271
6272
6273
6274
6275
£276
Q277
6278
27

NN
NN NN

000040
020076
016531
000040
016536

]
N

4263
6264
6265
6266
4267
4268

021424
021432
021436
021442
021446
021452
021454
021456
021462
021464
021470
021472
021474
021500
021502
021504
021506
021512
021516
021520

38383335888 ¢:-—¢>§5-

4261
6262

o
o

6259
4260

N =
e
NN
SN
WNNSNNNSN

mA r11
viv VISUAL TESTS
CVVTBA,SR(
06-SEP-79 15:2%

000012

00Mo1?2

002050

020174
021172

30ACY052)

016530

06-SEP-79

15:27

8 9
PAGE 59-1

MOv
BASE1A: MOvB
(P
BNE

BASE D CLR
BASE 1B: (mp
BLO
SuB
INC
BR
BASE1C: ADD

Move
MoV
BNE

240 ,BASEN

PC,SAVREG

#BASE11+1,R3

#40,(R3)¢
#8ACE1146,R3
BASET1A
R1
RO,#12

s SAVE REGS

;REST OF MESSAGE WITM SFACES
sALL DONE

;NO
sR1 IS RECEJVER

;MORE THAN 10
sYES SO DONE THIS TIME
NG SO SuB 10 &8 ADD 1 TO RI

BASE1B

;60 DO AGAIN

#60,R0
RO,=(R3)

;MAKE ASCI1

& STCRE

R1,RO

BASETD

JSR
JSR

PC,RSTREG
PC,TYPOUT

RTS

BASE1

;PUT SPACE 25> 1ST (HARA

BASE1C

O}Z.IO
3

—

SEQ 0105

A DECIMAL NUMBER

BASEN0: MOvB
BAS10A: JSR

;RESTORE REGS
;TYPE MESSAGE
;ADDRESS OF MESSAGE

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

30A(1052)

06-SEP-79

T T TN T T T

SEQ 0106

MODIFY THE PROGRAM

DESCRIPTION:

ROUTINE TO MODIFY A LOCATION IN MEMORY

PROMPTS ($) FOR AN ADDRESS TO EXAMINE
AND PRINTS IT IN YHE'FORH
ADDR CONTENTS /

THEN A NEW VALUE CAN BE ENTERED

vis:
ADDR CONTENTS 7/ NEW VALUE

THE NEW VALUE

<CR>,

<LF>

CAN BE

OR <ESC>

TERMINATED USING

TO EXAMINE THE NEXT LOC
TO SELECT ANOTHER ADDRESS
TO EXIT

e v

R T

TN T TR TS

T T

T T TN TR T

T T T I

T TN TSI T

Eg;g?SRL?V TYPING CNTRL-0 ON THE‘CONSOLE

CALLING SEQUENCE:

4288
4289
4290
6291
4292
4293
6294
4295
6296
4297
4298
4299
4300
«301
€302
6302
6304

JSR
T T T ETE TETE TR TR TR T

4286
6287

.SBTTL

PC,MODIFY

INPUT PARAMETERS:
NONE

IMPLICIT INPUT PARAME TERS:
ENTERED BY TYPING CNTRL=0 DURING

THE RUNNING OF

THE

OUTPUT PARAMETERS:
P

4284
4285

PAGE 60

MODIFY THE PROGRAM

4281

(282
4283

15:27

NCNE

TESTS

VIV VISUAL TESTS

CVVTBA. SRC

MACY11 30A(1052)

06-SEP=-79 15:23

4337

06-SEP=79

MODIFY THE PROGRAW
3

2%%3

6340

;

6342

6341

6343

6344

6345
4346
6347
4348

6349
4350
4351
6352
6353

:
:
H
:

6354

021522

1356
6357
4558
4359
4360
4361
6362
4363
6364
4365
4366
367
4368
4369
4370
4371
4372
4373
374

021536
021552
021556
021560
021564
021570
021572
021576

¢355

021526

4380
4381

021604
021606
021612
021614
02161v
0216264
021632
021636
021642
021646
021650
021654
021660
021664
021670
021674
021700
021704

4383
4384

021712
021716

4375
4376
4377
4378
4379

4382

4385
4386
4387
4388

021710

021722
021724
021730
021734

4389 021736

4390
4391
4392

021742
021744
021750

:
:
:
;
3

MODIF LD

NONE

004737
015654
004737
005737
001506
010037
032737
001404
004737
015765
000756
012737
012737
005037
005777
005737
001341
004737

021172

MODI1:

000004
000006

TMMODI3:

PSWSET
JSR
MODADM
JSR
181
BEQ
MOV
BIT

004737
004737

021136
016642
021262
000040
021250
174742
021262
021172

BEQ
JSR
ODAMSG
BR
MOV
MOV
CLR
ST
187
BNE
JSR
MOV
JSR
MOV
JSR
MOV
JSR
JSR

004737
005737

020272
016636

JSR
181

013700
004737
012700
004737
017700

015661

001402
010077
013700
001706

020027
001703
020027
001006

021172

022572
000340
016652
175000
016652

174712
016750

000015
000012

MODSPA

MODl4&:

POSSIBLE FRROR CODES:

PSWRE?

MODI12:

THE 'OCATIONS SPECIFIED WILL HAVE BEEN

NONE

MODIFY: JSR

016642

COMPLETION CODES:

020076

020272
016636

0D 9
PAGE 60-1

IMPLICIT OUTPUT PARAMETERS:

004737

016642
000001

15:27

PC,SAVREG

MODSAV

#340
PC,TYPOUT

PC,OCTIN
RAND
MODX1T

RO,MCDADR
#1,MODADR
MOD13
PC,TYPOUT
MoD11
INXMTRP 4
#340,6
TRPERR
aMODADR
TRPERR
MOD 11
PC,CRLF

MODADR , RO
PC,PROCT
#40,R0
PC,PCHR
aMODADR ,RO
PC,PROCT
PC,TYPOUT

PC,OCTIN
RAND

;SAVE REGISTERS

;PROMPT $ FOR AN ADDRESS
;70 HAVE A LOOK AT
;READ REFLY
;ANYTHONG READ ?
;NO, SO EXIT
;ELSE SAVE OUR ADDRESS
;1S 1T EVEN ?
JYES WE CAN USE 17
;ELSE SAY 11 IS AN ODD
;ADDRESS, AND REPROMPT

:PLUG TRAP THRU &
;FOR NXM TESTS
;CLEAR NXM FLAG
;TEST OUR ADDRESS
:DOES IT EXIST
:NO TRY AGAIN
;START ON A NEW LINE
;PRINT OUR ADDRESS
:THEN A SPACE
:AS A SEPARATOR
:THEN PRINT THE CONTENTS
;PROMPT FOR THE NEW

;CONTENTS */°

;READ REPLY
;ANY THING GIVEN

BEQ
MOV
MOV
BEQ

MOD 14
RO,3MODADR
RANDC ,RO
MOD11

:NO, DON'T UPDATE
;ELSE SET NEW VALUE
: GET TERMINATOR
; NULL MEANS <CR>

BEQ
(MP
BNE

MOD11
RO,#12
MoD1S

;YES GET NEXT ADDRESS
SWAS IT <Lf> ?
:NO

CmMP

RO,#15

(WAS 1T <CR> ?

SEG 0107

VIV _VISUAL TESTS
CVVTBA.SRC
06-SEP-79
6393
6396
6395
6396
6397
4398

4399

4400
460
4402
6403
64604
4405
6406
4407

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

000207

30A€1052)

06-SEP-T79

MODIFY

ADD

MOD1S:

000006
000004
021136

020174

THE PROGRAM

JSR

016642

000077
021250

15:27

BR
CMP
BEQ
MOV

000004
000006

JSR
BR

MODXIT: MOv
MOV

JSR

PSWSET

JSR

RTS

9
E
PAGE 60-2

PC,CRLF

#2 ,MODADR
MOD12
RO,#33
MODXIT

#77,R0

PC,PCHR
MOD14
"6,4
#,6
PC,CRLF
MODSAvV

PC,RSIREG
PC

SEQ 0108

; NEWLINE

;UPDATE THE ADDRESS BY 2
: THEN TRY THIS ADDRESS
sWAS IT EXIT ?
;YES DISSAPPEAR
;ELSE GIVE A 2
:AS AN ERROR

s THEN TRY AGAIN
;PLUG BACK TRAP THRU &
;WITH WHAT

S WAS

;PUT OURSELVES ON A NEW LINE
;RESTORE

REGISTERS

:AND GO AWAY

——

F
VIV VISUAL TESTS
MACY11 30A(1052)
06-SEP=-79 15:27 PAGE 61
CVVTIBA.SRC
06-SEP-79 15:23
SET BUS AND VECTOR ADDRESSES

L4%63

YA
A

)
I
R
I
R
R
L
L
TR
L

TO INDICATE THE NUMBER OF

BUS AND VECTOR ADDRESSES AND

THE * _MBER OF PRIORITIES REQUIRED, AND THE LOCATIONS
WHER.
HE VARIOUS PARAMTERES ARE TO BE STORED
IT

IS CALLED THUS:

JSR

.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD

UNDER TEST. THE VALIDITY OF THE VARIOUS ADDRESSES
ARE CHECKED. THE ARGUMENTS AFTER THE CALL MUST BE SET

RS ,BUSSET

A,B
(
D.,E
F,G
W,
K,L

THERE ARE &4 OR _LESS BUS ADDRESSES

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

SUBSEQUENT BUS ADDRESSES WIL BE LOADED INTO THE LOCATION
FOLLOWING THE ADDRESS C.HENCE IF THERE A & BUS ADDRESSES

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

E IS THE NUMBER OF PRIOR.TY LEVELS, AND IF THE VECTCR
1S TO BE ON A 10 BYTE BOUNDARY, BIT 7
OF E 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

T ET T

T TR

T ETR T T

SEQUENCE 1S TERMINATED By SETTING H AND J TO ZERO

T T

G647
4448
4449
4450
4451
4452
4453
44654
4455
4456
4457
4458
4459
4460
4661
4462

4446

T R

AANA

L4645

SEQ 0109

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

N
L
L
L
L
L

4437
4438
4439
4440
L4461
4442
4443

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

4434
4435
4436

SET BUS AND VECTOR ADDRESSES

WHERE A 1S EITHER 7 IF

4415
L4616
4617
4418
4419
4420
4621
4422
4423
4424
4425
4426
4427
4428
4429
4430
463
4432
4433

(AR
A

.SBTTL

4409
4410
(AR
4412
L4613

—————

CALLING SEQUENCE:

JSR

RS ,BUSSET

INPUT PARAMETERS:
THE ARGUMENTS TO SET UP THE

‘
ADDRESSES,

V%(YORS AND PRIORITIES MUST BE SET UP, AS DESCRIBED
ABOVE

IMPLICIT INPUT PARAMETERS:

——————

CVVTBA. SRC

MACY11 30A(1052)

06=-SEP=-79 15:23

L4665

06-SEP-79

:
:
:

4470
W

44672
22;2

3
3

4475

4478
4479

:
:

4481
4482
4483
4484
4485

3
:
:
:
;

4480

4486

OUTPUY PARAMETERS:
NONE

IMPLICIT OUTPUT PARAMETERS:

BE SET UP AS SPECIFIED BY THE ARGUEMENTS
COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:

NONE

BUSSET: JSR
MOV
MOV

PC,SAVREG
INXMTRP,4
#340,6

:SAVE REGISTER CONTENTS
:SET UP MEMORY ERROR TRAP

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

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

022050
022056
022062

004737
012737
012737

020076
022572
000340

4494
zzgz

022070
022074

012537
012537

016646
016650

MOV
MOV

4497

022100

004737

021172

BUSSE1: JSR

PC, TYPOUT

020272
016636

1$:

PC,OCTIN
RAND
2%
PC,TYPOUT

4503

4504

4505

022104
022106
022112
022116
022120
022124

022126

016252

000767

021172

BAMSG
JSR
ST
BNE
JSR

NODEFM
BR

001406

133700

016646

2%:

4508
4509
510
42};

022136
022142
022144
022150

004737
015765
004737
000753

021172

JSR
ODAMSG
BUSS1A: JSR
B

PC,PROCT
BUSSE 1

513

022152

005037

016652

BUSSE2: CLR

TRPERR

6514
6515
4516
4517
4518
4519
4520

022156
022162
022166
022170
022172
022176
022200

113701
013702
010022
005710
005737
001362
062700

021262

016647
016650

016652

000002

BITB

022134

:ggg

022130

015672
004737
005737
001004
004737

;

4490
4491
2:g§

4498
4499
500
4501
6502

THE BUS AND VECTOR ADDRESSES WILL

;
:
:

000004
000006

SEQ 0110

NONE

;
;

:2;?

6 9
PAGE 61-1

SET BUS AND VECTOR ADDRESSES
:

L4606
o7
468
4469

4487
4488
4489

15:27

BEQ

MOVB
MOV
BUSSE3: MOV
181
£}
BNE
ADD

MASK RO

BUSSE?2

PC,TYPOUT

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

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

;CHECK INPUT

:INVALID ADDRESS

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

;UPDATE TO NEXT ADDRESS

VIV VISUAL TESTS

MACY1Y 30A(1052)
VIV VISUAL TESTS
06-SEP-79
15:27 PAGE 61-2
CVVIBA.SRC
06-SEP-79 15:23
SET BUS AND VECTOR ADDRESSES
521
6522
452%
5264
4525
4526
64527
4528
4529
453%0
4531
6532
4533
6534
4535
453%6
4537
4538
4539
4540
6561
4542
4543
6544
4545
4546
6547
4548
A0
"l

{

A
«9553
4554
4558
4556
4557
4558
4559
4560
4561
4562
.

4563

L4564
4565
4566
4567
4568
4569
4570
457
4572
457%
4574
4575

4576

9
SEQ 0111

022204
022206
022210
022214

005301
001367
004737
015450

022216
022222

012537
012537

016646

016659

022226
022232
022234
022240
022244
022246
022252
022254
022256
022262

004737
015726
004737
005737
001004
004737
016252
000767
005737

0222¢4
022270

032700
001404

000007

BIT

022272
022276
022300

004737
015765
000752

021172

BUSSES: JSR

022302

022306

032700
00137

000003

BUSSEG: BIT
BNE

BUSSES

#3,R0

s CHECK ADDRESS

022310
022314

€22700
002004

000774

CMP
BGE

#774 ,R0

;CHECX ADDRESS LESS THAN 772

022316
022322
022324

004737
016010
000740

021172

JSR
OVAMSG
BR

022320
022332
022336
022340
022342
022344
022346

» 13701
13702

016646

022354
022360

113701

022364
022370
022372

100097

010022
022020
005301
001374
042737

DEC
BNE
JSR
FIRVMS

BUSSE3

PC,TYPOUT

; PROMPT FOR VECTOR GROUP

BUSS3A: MOV

MOV

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

;GET NO OF VECTORS
;GET BASE VECTOR ADDRESS

021172

BUSSE4:

PC,TYPOUT

020272

1%:

JSR
VAMSG
JSR
18T
BNE
JSR
NODEFM
BR
181
BPL

021172

016636

021172
2%:

016646

BEQ

ODAMSG

010650

PC,OCTIN
RAND

MASK

BUSSE®G
#7,R0
BUSSEG
PC,TYPOUT

BUSSE4

BUSSE?7

PC,TYPOUT

BUSSES

TYPE

s CHECK ADDRESS

:INVALID ADDRESS

;SET UP COUNT

BUSS10:

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

;SET UP ADDRESS

BASADD,R?

B
e

;ADDRESS EXCEEDS 772

MASK,R1

MOV
MOV
(MP

:SET

UP ADDRESS BASE

MOVB
MOV
'

MASK+1,R1
(R5)+ ,BASADD

017044

LSIFLG

000004

157
BEQ

022376

005737
001403
012700
000416

MOV

BUS11B

022400
022404
022406

004737
016037
013702

021172

'oR
PRMSG
MOV

PC,TYPOUT

016650

;CHECK MASK

BUSSE7: MOVB

016647
016650

012537

;INPUT OCTAL ADDRESS

1IS....

PC,TYPOUT

BUSS10

016640

VECTOR ADDRESS

DEC
BNE
BIC

100000

;FIRST

#100000,MASX

¥ RO

BASADD,R?

;GET BASE PRIORITY ADDRESS

JSINGLE INT.LEVEL PROCESSOR ?
;1F NOT THEN BRANCH AWAY,
ELSE SET PRIORITY LEVEL AT &
;THEN GO

;FIRST

INSTALL

PRIORITY

IT.

LEVEL

1S...

MACY11
VIV VISUAL TESTS
CVVTBA.SRC
06-SEP-79 15:2%
6577
6578
6579
4580
4581

022412
022416
022422
022626
022430
022432
022434
022440
022442
022446
022450
022452
022456
022460
022462

101404

021172

JSR

022466
022470
022472

005301
001412

022474
022500
022502
022506

005737
001403
012700
000752

017044

022510
022514
022516

004737
016076
000735

021172

022520
022524
022526
022532
022534
022540
022544
022552

012537
001405
004737

016646

000137
010537
012737
012737

022222
016646
000006
000004

022560
022564

020174

022570

004737
013705
000205

022572
022576
022600
022604

004737
016135
005237
000002

021172

015504

15:27 PAGE 61-3
SET BUS AND VECTOR ADDRESSES

BUSS11: JSR
1571
BNE

NODEFM

021172
2%:

177770

PC,OCTIN
RAND

;INPUT OCTAL PRIORITY

PC,TYPOUT

BUSSIT

BLOS

BIC

SEQ 0112

BUS118B

BUS11B: (WP

000007

06-SEP-79

020272
016636

004737
016165
000760
042700
000300
006200
006200
006200
010022

022464

4625
4626

004737
005737
001004
004737
016252
000767
020027

30A{1052)

RO, #7

PC,TYPOUT

BUSS11

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

;1S THE PRIORITY LEGAL ?
s 1ES
;NO,

RE-ENTER VALUE

;CLEAR UNWANTED BITS

;SET UP PRIORITY

-R1

BUSS12
LSIFLG

4%
24,10

000004

BUSiI1B
PC,TYPOUT

BUSS11

BUSS12: MOV

021172

PC,TYPOUT

000004
000006

BUSS13: MOV
MOV

JSK

016646

016652

(RS)+,MASK

BUSS13

NXMTRP:

BUS ‘3A

NOT

THEN BRANCH AWAY

;ELSE SET UP PRIORITY AS &
;AND GO INSTALL

IT.

sNEXT PRIORITY LEVEL

IS....

’

. GET NEXT VECTOR PAIR
* JERO MEANS END

; ELSE PROMPT FOR NEXT GROUP

RS,MASK

06,4
0,4

PC,RSTREG

MOv
RTS

MASK RS
RS

JSR
NXMSG

PC,TYPOUT

INC

;SINGLE INT.LEVEL PROCESSCR ?

;1F

TRPERR

;RESTOURE

NON-EX]ISTANT ADDRESS

RT1

4630
4631

S samt————

VIV VISUAL TESTS
MACY11 30A(1052)
06-SEP-79 15:27
NUMBER GENERATOR
CVVIBA.SRC
06-SEP-79 15:23

L647
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661

L4666

4672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
468¢
4687
4688

T T E T ETR TR TETE TE TETE

4670
4671

L667
4668
4669

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

G0O0D.

CALLING SEQUENCE:

PC,GENER

JSR

INPUT PARAMETERS:

R3 CONTAINS THE PATTERN NUMBER

R3=0

IMPLICIT

ALL ZEROES

ALL ONES

010101 ETC BIT PATTERN

101010 ETC BIT PATTERN
ROTATING 1 IN A ZERO WORD

ROTATING O IN AN ALL ONE WORD
PSEUDO RANDOM NUMBER
INCREMENTING DATA PATTERN, GOOD
CONTAINS THE VALUE TO BE UPDATED

INPUT PARAMETERS:
NONE,

OUTPUT PARAMETERS:
THE NUMBER GENERATED
RO AND GOOD.

IS HELD

IMPLICIT OUTPUT PARAMETERS:
NONE

COMPLETION CODES:
NONE

POSSIBLE ERROR CODES:
P

4665

4664

T T T T I

4662
4663

SEQ 0113

NUMBER GENERATOR

NOWVESs
W
-

4646

4645

TS TSI T T TR T I T TN T T I

Lb44

.SBTTL

R I T T T TS M TSR TR TSR T T T TR T T T TR

633
463
4635
4636
4637
4638
4639
4640
4641
4642
4643

PAGE 62

—

NONE

o ——

PRORE———

viv VISUAL TESTS
MACYIT1 30AC1052) 06-SEP=-79 15:27
CVVTIBA.SRC
06=SEP=-79 15:23
NUMBER GENERATOR

L4689

4690
4691

022606
022612
022616
022620
022624
022626
022630

042703
004737
006303
000173
022644
022650
022656

4702
4703

022640
022642

022740
023060

4704

022632
022634
022636
022644

4705

022646

4710
4711

022662
022664

4706
4707
4708
4709
4712
4713

022650
022652
022654
022656
022670
022672

177770
020076
!
022624 *=-

GENER:

BIC
JSR
ASL
JMP
GENSEL: GENO
'
GEN1
GENS2

022664
022672
022702

005000
000507
005000
005100
000504
012700

000501
012700
000476
000241

GENDO:
-~ GENT1:

052525

GENS2:

125252

GEN25:
GENRY:

004737

022714

4716
4717

022702
022704

022714

4719

022710

4720
4721
4722
4723
4726

022712

000241
004737
005100

022714
022720
022722
022730
02273&

006037
001003
012737
013700
000207

022736
100000
022736

022736

4726
4727
‘4728

022740
022746
022752

012737
004737
013700

000005
022760
016664

016666

013702

016664

4725

4729

4730

&731
4732
4733
«7%
47%5
«73%
4737
4738
47%9
47640
4741
4742
474%
4744

022700

022736

022756

022760

022764
022766
022772
023000
023002
023010
023034
023020
023024
023026
025030
023034
023036
023040

000472

000465

000001

000443

001002
013702
032737
001003
012737
013703
013702
033702
001405
005102
033702
001401
000402
000241

#177770,R3
PC,SAVREG
R3
@GENSEL(R3)

;ALL ZERO WORD
;ALL ONE WORD
:52 PATTERN
:25 PATTERN
:ROTATE '1' EACH CALL
:ROTATE '0' EACH CALL
:RANDOM NUMBER
s INCREMENTING COUNT
:0>R0

GEN2S
GENR1
GENRO

022674

4718

SEQ 0114

;

S
:

4714

4715

PAGE 62-1

4692
4693
4694
4695
6696
4697
4698

4699
4700
4701

016672
000777
090001
016666
Cl16664
016670

016670

‘GENRO:

GENRAN
GENINC

CLR

CLR
COM
BR
MOV

BR
MOV

GENE
X

GENEX

JSR
CLC
JSR

GENROT: ROR
BNE
MOV
GENER1: MOV
RTS

:5252>R0

PC,GENROT

;SHIFT 1 > RO

PC,GENROT

:SHIFT 0 > RO

GENEX

:ROTATE
1 PATTERN
= 0?
;YES, SET MSB
:PUT 1 IN RO
:AND EXI1T

GENRAN: MOV
JSR
MOV

#5,RANSEL
PC,RANGEN
RANDN,RO

:SET SELECT VALUE T0 S
:GENERATE RANDCM NUMBER IN RO
3

RANGEN: MOV

RANDN,R?2

GENISH:

RAN1:
RAN2:

BNE
MOV
BIT
BNE
MOV
MOV
MOV
BIT
BEQ
COM
BIT
BEQ
Hw

RANCLC: CLC

:125252>R0

GENISH
GENER
#100000,GENISH
GENISH,RO
PC

016666

:NOTC>RO

GENEX
#125252.,R0

BR
CLC

COM

016666

RO
GENEX
RO
RO
GENEX
#52525.R0

GENEX

RAN1
RANST ,R2
#777 ,RANSEL
RAN2
#1,RANSEL
RANSEL ,R3
RANDN,R2
RANMTA,R2
RANCLC
R2
RANMTA,R2
RANCLC
RANSEC

:1S RANDOM = 0
:YES, PUT RANDOM START VALUE IN
;NO; 'S RANSEL SELECT VALUE = 0
:NO
:YES: SET RANSEL = 1
:

:GET R2 <0 AND 1>
3

:
i

—
e
—

4745
4746

o767
4748

4749
4750
4751
4752
4753
4754
4755
4756

0
023072
023076
023102

000401
261
037
005303
001357
000207
013700
005200
010037

010066
004737
000207

016664

016674

016674
000002
020174

30A(1052)

O06-SEP=-79

15:27

NUMBER GENERATOR
SEC
ROR
DEC
BNE
X:
kTS
RANE
GENINC: MoV
INC
X:
MOV
GENE
LY
JSR
RTS

L_9

PAGE 62-2

RANSEC:
RANG:

* e

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

SEQ 0115

;ROTATE C 10 BI15

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

EXIT

;s INCREMENTS LOC. 'GOOD’
RO.GOOD‘.

RO,2(SP)
PC,RSTREG
PC
3

;LOAD RC MAINROUTINE

viv VISUAL TESTS

CVVIBA.SRC

MACYIT

06~SEP=-79 15:23

30A(1052)

O06-SEP-79

4758
3
:
:
:

4769
4770
&7

3
:
-

&77%

4772

4774
4775
4776

&777
4778

&779

4780
4781

4782
4783
L7864
4785
‘;g?

3
:
:

4797

ERROR MESSAGES

DESCRIPTION:

¥
ROUTINE TO PRINT ERROR MESSAGES
I1F BIT 14 IN THE SWR IS SET NO MESSAGES wiLL BE
PRINTED, IF BIT 15 IS SET THE PROGRAM WiLL NO WAIT
AFTER AN ERROR HAS BEEN PRINTED. IT IS CALLED THUS:
JSR
ARG

PC,ERROR

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

FLAG SETTING

3
3
3
:
3

C
S
A
D
G

3
:

IN ADDITION THE ERROR NUMBER WILL BE COMBINED WITH
THE TEST NUMBER TO INPICATE IN WHICH TEST THE ERROR

3
3

o
3

4796

:
5
:

4790

4795

3
;
:
3
3

3
3

AS FOLLOWS:

NUMBER

LOCATION

MESSAGE

4000
10000
20000
40000
100020

CALLPC
STATUS
ADDRES
DATA
GOOD, BAD

CALLED FROM
STATUS
ADDRESS
DATA
600D= BAD =

OCCURRED.

AN ERROR COUNT IS MAINTAINED AN ON EACH ERROR THE
COUNT 1S UPDATED. 1F RUNNING UNDER A SOFTWARE SWITCH
REGISTER, 1T 17 POSSIBLE TO SELECT NEW OPTIONS
CALLING SEQUENCE:

JSR

4800

INPUT PARAMETERS:

4801

4802

4803

PC,ERROR

THE LOACTION FOLLOWING THE CALL

CONTAINS THE ERROR CODE AND ¥ LAG ScTTINGS

<806

;

IMPLICIT INPUT PARAMETERS:

4808

NONE

«812

OQUTPUT PARAMETERS:

4804
4805

4807

<809
4810
4811

4813

g
3

3
]
3

THE FORM

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

4798

4799

SEQ 0116

WHERE ARG CONTAINS THE ERROR CODE AND IS GF

4791
6792
4793
L&79¢4

4788
4789

PAGE 63

ERROR MESSAGES
LSBTTL

4760
&761
§762
4763
L764

4765
L766
6;g;
-

15:27

N9
MACY1T 30A(10%2) 06-SEP-79 15:27 PAGE 63-1
viv VISUAL TESTS
PRINT
ERROR MESSAGES
06-SEP-79 15:23
CVVIBA.SRC

SEQ 0117

NONE

4814
4815
«816
«817

IMPLICIT OUTPUT PARAMETERS:

«818’

4819
4820
4821
822
4823
824
4825
4826

THE APPROPRAITE ERROR MESSAGE WILL BE PRINTED

IF PERMITTED.

COMPLETION CODES:
NONE

«827

POSS!BLE ERROR CODES:

4828
4829
4830
4831

NONE

4832

4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
(844
4845
4846
«847
4848

020076
016706
040000
000000
021172

3
173462

016710

016711

021172
016674
021262
021172

023276

001407
004737

021172

a(SP) ,ERPARG

JSR

016711

ERRDIS
#40000,aSwR
ERHALT

s INC _COUNT
: SUPPRESS PRINTOUT
s VES

PC,TYPOUNY

:TYPE MESSAGE

:NO

TESTNO,RO

RO
RO

ERRARG,RO
PC,PROCTY
PC,TYPOUT
(SP) RO

;PRINT 6 DIGITS

PC,PROCT

B1TB
BEQ
JSR
EMSG3
MOV
JSR
JSR

#200,ERRARG*1
ERRSVI
PC,TYPOUT

MOV
JOR
ERRSV1: BI1B
BEQ
JSR
EMSGS
MOV
JSR
2:
BITB
SVZ
ERR
BEQ
JSR

BAD,RO
PC,PROCT
#100,ERRARG*1
ERRSV?
PC,TYPOUT

EMSGL

021172
016700
021262
000040

MOv

INC
BIT
BNF

MOV
SWAB
ASL
BISB
JSR
JSR
EMSG2
MOV

016710
021262
021172

016676
021262
000100

JSR

15/11/78
PC,SAVREG

EMSGI

016602

02126:
000200

RROR:

600D, RO
PC,PROCT
PC,TYPOUT

DATA,RO
PC,PROCT

#40,ERRARG*!
ERRSV3
PC,TYPOUT

30 S8t

:NO

SA SET 2
“NO

|—

* (B3

8 10
ViV VISUAL TESTS
MACY1Y 3S0AC1052)
O06-SEP=79
15:27 PAGE 63-2
CVVIBA.SRC
06-SEP-79 15.23
PRINT ERROR MESSAGES
4870
4871
4872

023302
023304
023310

016425
013700
004737

<874
4875
4876
4877
4878
4(B79
4880
4881
4882

023322
023324
023330
023332
023336
023342
023350
023352
023356

001407
004737
016443
013700
004737
132737
001407
004737
016456

4884
4885
4886
4,887
4888
4889
4890
4891

023364
023370
023374
023400
023402
023406
023412
023420

004737
004737
006737
016475
013700
004737
032777
001004

021262
021136
021172

4893
4896
4895

023426
023432
023436

004737
004737
062716

017704
020174
000002

4897
4898

023444

«873

023314

132737

016704
021262

000020

016711

021172
016702
021262
000010

016711

021172

4883 023360 013700 016712

4892

4896

023422

023442

013700

000207

000000
001000

016706
021424

100000

016706

EMSG6
MOV
JSR

ERRSV3: BI11B

#20,ERRARG#1

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

MOV

173164

ADDRE
S , RO
PC,PROCT

JSR
ERRSVS: JSR
JSR
EMSGY
MOV
JSR
ERHALT: BIT
BNE

BUFF1:

INO

sC SEV
NO

PC,PROCT
PC.CRLF
.
PC.TYPOUT£°R’D1S,RO
P. 3ASE10

#1()000,aSWR

MOV

RTS

0
.END

;S SET
?

CALLPC,RO

NOH: LT
ERRD.S,RO

JSR
NOHALT: JUSR
ADD

SEQ 0118

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

;DISPLAY ERROR COUNT

;60 TO SWR

;PROGRAM END, SELF=START,

VIV VISUAL TESTS
MACY11 30A(1052) 06-SEP=-79 15:27
CVVTBA.SRC
06-SEP-79 15:23
SYMBOL TABLE

PAGE 64

&
= 020000
ADDR
002172
ADDRES 016704
ALL
002462
ASKS6
014522

021114
016564
016654
016734
001412

BACO
BAC1
BACID
BAC10
BACI10D
BAC11
BAC11D
BAC2
BAC2D
BAC3
BAC3D
8ACS
BAC4D
BACS
BACSD
BAC6
BACOD
BAC7
BAC7D
BAC8
BACBD

BACY
BACOD
BAD
BADPRI
BAKGND
BAMSG
BASADD
BASEIA
BASEIB
BASE1C
BASEID
BASET0

BASE11
BASM10
BASI10A
BCCHAR
BCOUNT
BELL
BELLS
BELLY
BF1
BF2
BF3
BF&
BF4B
BFS5

BF6

002426
002425
002454
002414
002443
002413
002¢42
002424
002453
0024¢3
002452
002422
002451
002421
002450
002420
002447
002417
002446
002416
002445

002415
002444
016676
0%6165
002174
015672
016650
021442
" 1456
021474
021454
021426

016530
021406
021432
016662
016754
017324
001422
017336
002222
002306
002216
002230
002254
002344

002364

BKCOL
Bk0
BK1
Bk?2
BK&

BKS
BK6
8K7
3x8
BLINK
BLTR6V
BLTR8v
BUFF1
BUSSET
BUSSET
BUSSE2
BUSSES
BUSSE4
BUSSES
BUSSE6
BUSSE7
BUSSTA
BUSS10
BUSS11
BUSS12
BUSS13

004642
004360
004372
004466
004400

004520
004540
004572
004600
004640
012456
(012272
023444
022050
022100
022152
022166
022226
022272
022302
022326
022144
022336
0c2412
022520
022540

CHRFIN
CHSR
CHWORD
CNVFLG
COUNT1

EMSG6
EMSG?
EMSGB
EMSGY
ENDIT
ERHALT
ERR
ERRARG
ERRDIS
ERROR
ERRSV]
ERRSV2

016425
016443
016456
016475
017224
023412
016656
016710
016706
023104
023240
023266

(HDR

FOR10D

002430

016572

SEa 0119
FOR11
FOR11D
FOR2
FOR2D
FOP3

COUNT2 001414
CRLF
021136
CSR
016556
X
003126
0
003144
1
003176
€2
003230
3
003262
C4
003314
€5
003346
cé
003400
c7
003432
0
= 040000
DATA
016700
DBUF
016560
DECMSG 016540
EMSG1
016354
EMSG2
016360
EMSG3
016372
EMSG4
016403
EMSGS
016414

BUSS3A 022222
BUS11B 022434
C
= 004000
CALLPC 016712
CAR
016562
CARX
016566
CARY
016570
CAR1
002614
CARIB
002644
CAR?
002676
CAR3
002600
CAR4
002742

CARS
002756
CARSA
003006
CARG
003040
CAR7
003072
CA1170= 177746
CHAR
016574
CHARO
003532
CHAR1
003552
CHAR2
003572
CHAR3
003612
CHARG
003632
CHARS
003652
003672
CHARG
(HAR?
003712

c10

ERRSV3
ERRSV4L
ERRSVS
FADR
FASTSW
FILL
FILLY
FIlLL2
FIRVMS
FORGND
FORO
FOR1
FORID
FOR10

023314
023342
023370
017314
017444
017064
017116
917130
015450
001764
002413
002412
002441
002401

002400
002427
002411
002440
00241

HSWR =
ILLCHR
ILLVEC
ILVMSG
INTFLG

177570
021074
017364
015376
001420

FS
002134
Fé
002154
6
= 100000
GENER
022606
GENERY1 022730
GENEX
023066
GENINC 023060
GENISH 022736
GENRAN 022740
GENROT 022714
GENRO
022702
GENR1
022672

MAX
MODADM
MODADR
MODIFY
MODI1
MmoDl2
MODI3
MmODI&
MOD1IS
MODPRM
MODSAV
MODSPA
MODXIT
MONIT
MONITA
MONITX
NODEFM

002170
015654
016642
021522
021552
021576
021616
021730
021766
015665
016644
015661
022006
017704
017776
020004
016252

HONT

PAR1

= 172342

FOR3D
FOR&
FOR4D
FORS
FORSD
FOR6
FOR6D
FOR7
FOR7D
FOR8
FOR8D
FOR9
FOR9D
FRMMSG
FSAVPW
FSTCNT
F1
F2
F3
Fé
F&B

GENSEL
GENO
GEN1
GEN25
GEN52
GETCH1
GETCHZ
GETCH3
GETCHG
GETSTR
GOMSG
600D
HALF6V
HALFBV

00243
002407
002436
002406
00243%
002405
002434
002404
002433
002403
002432
002402
002431
015430
016752
016616
002012
002076
002006
002020
002044

022624
022644
022650
022664
022656
020474
020506
020620
020664
020470
014630
016674
014516 °
014520

012570

INTVEC 016576
JR600
016612
LDADPS 004026
LDCH
001746
LDCH1
001752
LDCHBY 012%%v
LDPS
054034
LD6X6
111226
LINDEL 021010
LINDLY 021030
LINECH 021040
LKS
= 177546
LOWCHR 016742
LSIFLG 017044
L525
014514
MASK
016646

NOMALT (23432
NOMEMA 015537
NPRMSG 016076
NXMADR 016722
NXMSG
016135
NXMTRP 022572
NXTVMS 015504
OCTIN
020272
OCTMSG 016546
OCTNUM 016520
ODAMSG 015765
OvAMSG 016010
PARITY 016660
PARQ = 172340

005403

PRE&
PRES
PRMSG

005417
005425
016037

PROCT

021262

PRNT3

PROCTY1
PROCT2
PROCTS
PSk
QEX1T
QEXIT1

QEXIT2
QEXIT3

RANCLC
RAND
RANDC
RANDN

. ABS.

021354

021272
021306
021340
177776
020022
020044
020046
020062

023040
016636
016750
016664

R6
R7
S

SAVEXM
SAVLT4

SAVLT6
SAVPAR
SAVP(C
SAVPC1
SAVREG
SAVSTA
SECOND
SE156

SET56A
SILLSI

SRO
SR1
SR2

SSWR

START
START1

START2
STARTS
STATUS

023446

ERRORS DETECTED:

CVVTIBA.BIN,CVVTBA,.SEQ=CVVTBA,SRC
RUN-TIME: 1% 29 1 SECONDS
RUN-TIME RATIO: 197/45=4.3
(23 PAGES)
12K
CORE USED:

a8
A
o
2
B
8

weron

]
>

16003
16004
T170ww
17000
17001
UPPCHR

=%000006
=2 000007
z

R
e R

16000
16001
16002

REPCT 1=

REPCT2=
REPCT3=
ROWSS

RSTART
RSTREG
RUBCHR
RUBFLG

(=lelelelelelelelele]

RAN4
READ
REDMES
REPCNT

RANI1
RAN2

SWR
SWRMSG
SWRSET
TABLE
TABLE1
TEMPX
TEMPX1
TEMPY
TEMPY1

€O elelelelelelwlel.
o
o =lelolelalol
&~ W—=ON
—=O <

005411

PRE?2

STRADD
STRLEN

RANGEN
RANMTA
RANSEC
RANSEL
RANST

LPRE3

PMSG2
PMSG3
PMSG4

SEQ 0120

— B

PRCTIA
PRESUB
PRES1
PREO
PRE1

172300
172302
172304
172306
172310
172312
172314
172316
021206
021232
021236
021242
021304
005134
005150
005372
005376

PDR4
PORS
PDR6
POR7
PMSG1

=
=
=
=
=
=
=
=

RANCX

15:27

VAMSG

010000
016724
016730
016732
016726
016626
016630
020076
016632
001416

014420
014464
017002

177572
177574
177576
016606

001000
001226
001232
001266
016702

TRPBAK
TRPERR
TRPLP
TRPMEM
TRPSCP
TRPSEL
TRXEXM

TRXPAR
TRXVAD
TYPCTC

[olelolelelelelele
)
—,
b e
s e
e
s
s —b o
CONO
NS W —O oo

PORO
PDR1
PDR2
PDR3

172344
172346
172350
172352
172354
172356
015360
021250

06-SEP-T79

SYMBOL TABLE

*e
e

PAR2
=
PARY
=
PARG
=
PARS
=
PARG =
PAR7
=
PASMIG
PCHR

30A(1052)

P
e
et
[« 2 e
or S5

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

VCNT
VECLEV
VECTOR
V66H1
V68N
V6BHI1
v68NK21
VOBHGI
V68HSI
VB6HI
vB6H1
v86M21
VB6H4

VB6KS

V88H1
WAITT

WMSG

XHATCH

XMES
$ENDAD

3
3
2 642
2
3
3042
3
3456
3
5