Digital PDFs

AH-E769A-MC

August 1981

256 pages

Original

12MB

view download

OCR Version

11MB

view download

Document:	CVVSAA0 VSV11 VSV11 CSS DIAG AUG 1981 bw
Order Number:	AH-E769A-MC
Revision:	000
Pages:	256
Original Filename:	CVVSAA0__VSV11__VSV11_CSS_DIAG__AH-E769A-MC__AUG_1981_bw.pdf

OCR Text

t
s
O
SAR
~__CVV

i
ie
fe
C_
-M
9A
76
-E
AH
FICHE 1 OF 2 waoe v usa

29-JAN-B81 17:22

PAGE 2

SEQ 0007
.REMX

el RV 1e SV N3 LVE Tairel. BNTy XV ;

51174511 == RASTER GRAPHIC Di MACRO M1113

D ikt

IDINTIFICATION

PRODUCT CODE:

AC-E768A-M(

PRODUCT NAME:

CVVSAAD VvSV11 CSS DIAG

MAINTAINER:

CSS PRODUCTS

AUTHORS :

DON MACOMBER
GUS PASQUANTONIO

BILL WEISKE

DATE :

23 FeB 81

THE INFORMATION IN THIS DOC.MENT IS SUBJECT TO (HANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIRILITY IS ASSUMED FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE USE
SUPPLIED

OR
BY

RELIABILITY Of
DIGITAL OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

¢Sv11/VS11 =< RASTER GRAPHI( DI MACRO M1113

29-JAN-81 17:22

PAGE 3

SEQ 0002

1 .0

THE VvSV11 DIAGNOSTIC PROGRAM PROVIDES A SERIES OF TESTS
DESIGNED TO VERIFY THE INTEGRITY AND OPERABILITY OF THE
vSv11/vS11 Q-BUS VIDEO IMAGE PROCESSING SYSTEM.
SOME OF THE TEST SEQUENCES ARE VISUAL ONLY. HOWEVER ALL
TESTS WILL RUN WITH OR WITHOUT A DISPLAY MONITOR

CONNECTED 70 THE SYSTEM.
THE TESTS DESIGNATED
"DPU-ONLY'' WILL RUN WITHOUT THE 'DBUS'' CONNECTED
TO THE DISPLAY PROCES30R MODULE (M7064).

THE PROGRAM WILL SUPPORT UP TO 16 VSV11 SYSTEMS.
HOWEVER, MULTI-UNIT CONFIGURATIONS ARE TESTED ONE AT
A TIME BY THE PROGRAM.
ANY LOGIC ERRORS ENCOUNTERED ARE REPORTED ON THE
CONSOLE DEVICE.
-

s T

SYSTEM

DPU ONLY TESTS:
TEST

TEST
TEST
TEST
TEST
TEST
TEST
TEST

TEST

2
3
&4
5
6
7
8

TEST 10

STATIC

RESET

RESET ONES
SOFT INIT ONES
REGISTERS UNIQUE ADDRESS
INCREMENTING REGISTFRS
DPU START-STOP
DPU OPCODES
INCREMENTING HISTOGRAM BASE ADDRESS

INCREMENT
ING CHARACTER BASE ADDRESS

DJMS/DPOP

TEST 11
TEST 12

MAIN MEM MGT ACCESS (OVER 28K)
AUX MEM MGT ACCESS (OVER 28k}

TEST 14

DPU TIME-OUT INTERUPT

TEST

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

15
16
17
18
19
20
21
22

STOP INTERUPT

ERROR CODES
ADDRESS RELOCATE
CHARACTERS
ABSOLUTE POINTS
LONG VECTORS
RELATIVE POINTS
SHORT VECTORS
RUN=~LENGTH

IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS:
TEST
TEST
TEST
TEST

23
24
25
26

TEST 27

TEST 28
TEST 29
TEST 30

CURSOR REGISTERS/SWITCH/MAT(H
GRAPH-HISTOGRAM X
GRAPH-HISTOGRAM Y
BIT MAP (1)

BIT MAP (0)

IMAGE MEMORY CLEAR-SET
IMAGE MEMORY INTERLACE
IMAGE MEMORY PATTERNS

D i o

1
SEQ 0003

SPARE
SYSTEM VERIFICATION DISPLAY

)

STAND ALONE TESTS & ROUTINES:

ek el el

b = O

TEST 33
TEST 34
TEST 35

JOY=STICK VERIFICATION (STAND ALONE)
SELECTED DISPLAYS (STAND ALONE)
SYSTEM CONF JGURATION (STAND ALONE)

2.0

it i

el o

nd ol e b ecd od b
nono PONININD

PAGE 3-1

29-JAN-81 17:22
TEST 31
TEST 32

0-‘

oomwo\n»wm—-ogg W

vSV11/vS11 == RASTER GRAPHIC DI MACRO M1113

(2 FVI8

—

i e

THIS PROGRAM IS STRUCTURED TO RUN UNDER THE DIAGNOSTIC
SUPERVISOR (REV D) AND THE XXDP+ MONITOR.
A BRIEF OVERVIEW OF OPERATING INSTRUCTIONS IS PROVIDED

IN SECTION 3.1 OF THIS DOCUMENT.

THE XXDP+ USERS MANUAL

REFER TO CHAPTER 5 OF

FOR FURTHER DETAILS.

126
2.1

PDP-11/LSI-11

PROCESSOR WITH 28K OR MORE OF MEMORY

CONSOLE DEVICE (LA30, LA36, vI50, vI100, ETC.)
XXDP+ LCAD DEVICE (RX, RP, RL, TM, DT, ETC.)
1 70 8 vSV11 SYSTEMS, EACH CONSISTING OF:
M7064 DISPLAY PROCESSER

M7062 IMAGE MEMORY (1 TO & CHANNELS)
M7061 SYNC GENERATOR WITH CURSOR CONTROL

DISPLAY MONITOR, COLOR OR MONOCHROME (OPTIONAL).
DW11 UNIBUS TO LSI-11 BUS CONVERTER (OPTIONAL, VS1i
SYSTEMS ONLY).

- G

2.2
XXDP+ USERS MANUAL

(

CHQUSA )

= O VO~V
NN

i
el
D
e
D el
i
el
——

[0 Yo SE T IV IV IV, IV IV, 1V )

vSV11 OPTION DESCRIPTION (YM-C183()
VSV11 DIAGNOSTIC LISTING (SEC 7 OF THIS DOCUMENT).

3.0
THIS PROGRAM IS LOADED AND STARTED FROM ANY XXDP+ MEDIA

JSING THE STANDARD XXDP+ OPERATING PROCEDURES.

AT START UP, THE SUPERVISOR WILL IDENTIFY ITSELF AND THE
NAME OF THIS PROGRAM ON THE CONSOLE DEVICE, AND THEN
DISPLAY A (OMMAND MODE PROMPT ( DR> ) WHICH INDICATES
READY TO ACCEPT ANY OF THE FOLLOWING COMMANDS.

/Sv11/vS11 == RASTER GRAPHIC DI MACRO M1113
163

164
165

29-JAN-81 17:22

PAGE &

SEQ 0004

3.1

166

THIS SECTION PRESENTS A BRIEF OVERVIEW OF THE COMMANDS

167

NECESSARY TO CONTROL THE OPERATION OF THIS DIAGNOSTIC

168
169

UNDER THE REV D DIAGNOSTIC SUPERVISOR.

STA(RT)
RES(TART)
CON(TINUE)

INITIAL START-UP -- BUILD P-TARLES.
RESTART -~ USE EXISTING P-TABLES.
CONTINUE AFTER <*(> OR ERROR HALT.

EXI(T)

RETURN TO XXDP+ MONITOR.

PRO(CEED)

CONTINUE AFTER ERROR HALT.

THE FOLLOWING SWITCHES APPLY TO THE ABOVE:
/TESTS: <TEST NUMBERS TO RUN>
/PASS: <NUMBER OF PASSES TO RUN>
/FLAGS: <SEE FLAG LIST BELOW>

/EOP: <NUMBER OF PASSES 'TIL END-OF=-PASS>

ADDITIONAL COMMANDS AVAILABLE ARE:

REMOVE UNIT N FROM TEST LIST
ADD UNIT N (PREVIOUSLY DROPPED).
PRINT UNITS P-TABLE AND STATUS.
PRINT STATISTICS (PER-UNIT STATUS).
CLEAR ALL FLAGS.
PRINT CURRENT FLAG SETTINGS.

DRO(P)/UNIT:N
ADD/UNIT:N
DIS(PLAY)/UNIT:N
PRI (NT)
ZFL (AGS)
FLA(GS)

THE GENERALIZED COMMAND STRING FORMAT IS:

COM(MAND) /SWITCH:VALUE/SWITCH:VALUE ... <(R>

3.2

THE FOLLOWING FLAGS AREF USED IN LIEU OF THE OLD
HARDWARE SWITCH REGISTER TO FURTHER DEF INE
PROGRAM BEHAVIOUR:

HOE

HALT ON ERROR

IEK
IBE
IXR
PRI
PNT
BOE
UAM

INHIBIT ALL ERROR REPORTS
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS
SEND ALL REPORTS TO LINE PRINTER.
PRINT TEST NUMBERS (AND 1.D'S) AS EXECUTED
GOOD OLD 'BELL~ON-ERROR''
RUN IN "UNATTENDED'' MODE (NO MANUAL)

Praiirairgih-gihglrihr-girgiieg

ASLVT VT T, N 1R 1S 1N 1V

Vold . RNTe SV RO RV ) S L

LOE

ISR
IDY
ADR
LoT

Evil

LOOP ON ERROR

INHIBIT STATISTICS (PER-UNIT STATUS EACH PASS)
INHIBIT '"‘AUTO-DROP’'' (EXCEPT FOR NON-EXISTENT REG.)
EXECUTE '‘AUTO-DROP'' (USER SUPPLIED CODE)

LOOP ON TEST

EVALUATE ERRORS (NOT IMPLEMENTED)

29-JAN-81 17:22

PAGE 4-1

SEQ 0005

FLAG SETTINGS ARE ALTERED BY USING THE /FLAGS: SWITCH
.E. STA/FLAG:IER:BOE <(R>
IN ANY COMMAND STRING.
WILL START THE PROGRAM, RUN ALL TEST IN ORDER, INHIBIT
ERROR TYPEQUT, RING BELL ON ERROR.

3.3

WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) (OMMAND,
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER
233

CHANGES:

CHANGE HW (L)
#UNITS

UNIT O

(D)

DEVICE ADDRESS
1ST INTERUPT VECTOR
INTERRUPT PRIORITY
LUT INSTALLED

239

FREQUENCY = 50HZ

(0)
(0)
(0)
(L)

172010 ?
320 ?
& ?
N?

(L) N?

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
REQUESTS CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS
FOLLOWS:

CHANGE SW?

RUN DPU TESTS ONLY

LONG MEMORY TESTS
INHIBIT ITERATIONS
MANUFACTURING MODE
PER TEST ERROR LIMIT
PER UNIT ERROR LIMIT

(L) N?

(L)
(LY
(L)
(D)
(D)

N?
N?
N ?
25 ?
200 ?

IF "RUN DPU TESTS ONLY?'' IS ANSWERED ''YES'', NO COMMUNICATION

WITH THE IMAGE MEMORIES OR SYNC CHANNELS IS MADE; THE PROGRAM

CAN BE RUN WITH THE 'DBUS'' CABLE DISCONNECTED.

IF "LONG

MEMORY TESTS'* IS SELECTED, 15 DIFFERENT PIXEL DATA VALUES ARE
USED DURING TEST 28 (IMAGE MEMORY CLEAR-SET) RATHER THAN THE
STANDARD 5 VALUES. INHIBITING ITERATIONS CAUSES THE PROGRAM
TO RUN FASTER, EQUIVALENT TO THE FIRST PASS AFTER STARTUP.
IF "MANUFACTURING MODE’' IS SELECTED, PREDEFINED PARAMETERS ARE

USED FOR THE IMAGE MEMORY AND SYNC CHANNEL CONFIGURATION DATA.
THE ERROR LIMITS DEFINE THE NUMBER OF ERRORS ALLOWED TO OCCUR
BEFORE A UNIT IS DROPPED (UNLESS THE /FLAG:IDU FLAG IS SET TO
INHIBIT DROPPING OF UNITS). FOR EXAMPLE, IF 25 ERRORS OCCUR
IN TEST 3 WHILE TESTING UNIT 2, UNIT 2 wlLL BE DROPPED. OR,
IF UNIT 2 ACCUMULATES 200 ERRORS OVER THE COURSE OF SEVERAL TESTS
OR PASSES, IT WILL BE DROPPED.

/Sv117y511 == RASTER GRAPHIC D! MACRO M1113

/SV11/vS11 == RASTER GRAPHIC D MA(RO M1113

29-JAN-81 17:22

PAGE 5

4.0

LOGIC ERRORS ARE REPORTED BY THE DIAGNOSTIC SUPERVISOR

AS THEY OCCUR, HOWEVER, IT MUST BE NOTED THAT CAREFUL
ORSERVATION OF THE VARIOUS VISUALS FRAMES IS ALSO
REQUIRED TO VERIFY TOTAL SYSTEM PERFORMANCE.

EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES OF
TEXT, DESCRIBING THE ERROR, AND INCLUDES EXPECTED VS

RECEIVED DATA WHERE APPLICABLE.

THE FIRST LINE IS THE SUPERVISORS HEADER (BASIC), WHICH
INCLUDES PROGRAM NAME, ERROR TYPE (HRD, SFT, DEV FATAL,
OR SYS FATAL), ERROR NUMBER, TEST AND SUB-TEST NUMBERS,
THE HEADER WILL NCRMALLY BE FOLLOWED BY ONE OR
AND PC.
MORE (EXTENDED) LINES FURTHER IDENTIFYING THE ERROR.
EXAMPLES:

CVVSA DEV FTL ERR 00002 ON UNIT 00 TST 000 SuB 001 PC:

‘BUS-INIT"' DIDN'T INITIALIZE DPU
ggIT 0 DROPPED
>

CVVSA HRD ERR 00801 ON UNIT 00 TST 008 sus 001 PC:

LONG VECTOR FAILURE
DXR,DYR EXP'D: 1776,0000
DXR,DYR REC'D: 0000,0000

ORIGIN: 00060,0000

Dx,DY:041776,000000

NOTE THAT THE ERROR NUMBER IS IN THE FORMAT ‘'TTTEE"’

WHERE EE IS THE E'TH ERROR (ALL WITHIN TEST TTT.
WHEN ERRORS OCCUR OUTSIDE THE CONFINES OF A GIVEN TEST
(INITIALIZE, OR SOME GLOBAL SUBROUTINE), TTT - 0.

W N AN AN LN N N

N b md b b D o d
NN BN
oO

I1.E.

ERR 00002 = 2ND ERROR IN PROGRAM INITIAI [ZATION.
1ST ERROR [N TEST 8.
ERR 00801

4. 1

ERROR HALTS ARE CONDITIONED BY THE HALT~ON-ERROR

SWITCH ( /FLAG:HOE ).
HALT IN THIS CONTEXT MEANS RETURN TO COMMAND MODE.
THERE ARE NO OTHER PROGRAM HALTS.
PRO(CEED) TO RESUME FROM THE POINT OF THE ERROR CALL.

CON(TINUE) TO RESTART AT THE BEGINING OF THE TEST IN
IN WHICH THE ERROR QCCURED.

SEQ 0006

29-JAN-81 17:22

PAGE 6

SEQ 0007

327

328

\NW&WU‘U‘WU‘W
AN
NN NN
[V,]
wy\‘ww—-'o

325

4.2

UNDER SOME CONDITIONS OF FATAL OR EXCESSIVL ERRORS,
A UNIT WILL BE 'DROPPED'‘' FROM THE LIST OF DEVICES

&I&

BEING TESTED. FOR EXAMPLE, IF A DEVICE REGISTER IS
NON=EXISTENT, THE UNIT IS DROPPED BEFORE ACTUAL TESTING
COMMENCES. IN ADDITION, A UNIT WILL BE DROPPED IF 25
OR MORE ERRORS OCCUR WITHIN ANY ONE TEST (UNLESS THE

THE DROPPED UNIT IS REPORTED
/FLAGS:IDU SWITCH IS SET).
IN SOME
STATISTICS REPORT.
PER-UNIT
THE
IN
AND APPEARS
OF
END
THE
UNTIL
TESTED
NOT
IS
COUNT
ERROR
CASES, THE
BEFORE
OCCUR
CAN
ERRORS
25
THAN
MORE
SO
LOOP,
TEST
A

THE UNIT IS DROPPED.

5.0

NORMAL PROGRESS THROUGH A GIVEN TEST SEQUENCE IS
INDICATED BY THE PRINTING OF EACH TEST'S NUMBER AND
TITLE ON THE SYSTEM CONSOLE DEVICE (IF THE /FLAGS:PNT
SWITCH IS USED), FOLLOWED BY AN END-PASS WHEN ALL TESTS
IN ADDITION, IF THE
HAVE BEEN EXECUTED ON ALL UNIFS.
/FLAGS:ISR SWITCH IS NOT SET, AND IF MULTIPLE UNITS ARE
BEING TESTED, THE PER=UNIT STATUS IS PRINTED AT THE END
OF

EACH PASS.

IF RUNNING WITH ERRORS INHIBITED (/FLA:IER), AN ERROR
COUNT IS KEPT FOR EACH TEST, AND DISPLAYED AT THE END
THERE ARE NO OTHER PROGRESS REPORTS.
OF THAT TEST.

EXECUTION TIMES WILL VARY SOMEWHAT, DEPENDING ON CPU
TYPE AND OPERATING MODE.

THE FOLLOWING ARE TYPICAL

EXECUTION TIMES OBSERVED ON A PDP-11/34 SYSTEM:
NORMAL MODE
DPU ONLY MODE
L ONG MEMORY TEST MODE

1ST _PASS

4.5 MIN
0.4 MIN
5.6 MIN

SUBSEQUENT PASSES

8.6 MIN
2.3 MIN
9.7 MIN

ho el

;Sv11/yS11 == RASTER GRAPHIC DI MACRO M1113

vSv11/7VS11 == RASTER GRAPHIC DI MACRO M1113
375
376
377

29-JAN-81 17:22

PAGE 7

SEQ 0008

6.0

THERE ARE THREE CATAGORIES OF TESTS, AS FOLLOWS:
1. DPU ONLY TESTS (SEC. 6.1)

2. IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS (SEC. 6.2)
3. STAND-ALONE TESTS (SEC. 6.3)

THE FOLLOWING PARAGRAPHS PROVIDE A BRIEF DESCRIPTION Of
REFER TO THE PROGRAM LISTING FOR
THE TESTING SEQUENCE.
DETAILS. DURING PROGRAM INITIALIZATION, CERTAIN

MINIMAL TESTING IS DONE IN ORDER TO:

A. VERI:YIBHAT THE DEVICE ADDRESS FOR THIS UNIT
IS VALID.

8. VERIFY THAT THIS UNIT IS PROPERLY INITIALIZED
FOLLOWING A BUS-RESET.

THE FOLLOWING ERRORS MAY OCCUR OUTSIDE THE CONFINES OF
THE NORMAL

TEST SEQUENCE:

ERR 00000
ERR 00001
ERR 00002

UNEXPECTED DPU ERROR INTERRUPT.
NON-EXISTANT DEVICE REGISTER.
BUS-INIT DIDN'T INITIALIZE DPU.

ABORT.

THE FOLLOWING NOTES APPLY TO ALL TEST SEQUENCES:
7. UNLESS OTHERWISE NOTED, TESTING CONTINUES
AFTER ANY ERROR.

2. ALL UNSOLICITED KBD INPUTS ARE IGNORED
EXCEPT FOR:

<*0>
<t 0>

SUPPRESS TTY QUTPUT

HALT

(RETURN TO COMMAND MODE)

YSv11/7VS11 == RASTER GRAPHIC D] MACRO M1113

29-UAN-81 17:22

PAGE 8

SEQ 0009

L16
L17

418
619
620
21
422
423

6.1

THE TESTS IN THIS SECTION ARE THE 'DPU ONLY'' TESTS.
THEY ARE RUN WHENEVER THE PROGRAM IS RUN AND THE

SWITCH DOE5> NOT EXCLUDE THEM.

&24
425
26
&27
428
29
430
RS
432
33

THESE ARE

FOR ITS CORRECT STATIC

&47
448
449
450
451
452
453
454

455

456
457
458

CORRECT STATIC STATE.

6.1.

SET ALL REGISTERS TO ONES, CHECKING THAT ONES GOT SET, THEN
EXECUTE A SOF TWARE INITIALIZE AND CHECK EACH REGISTER FOR ITS
CORRECT STATIC STATE.

6.1 A

«60

L64
AN
L6€

Lh7

TEST 4.

ALL REGISTERS ARE SET TO THEIR NORMAL STATIC STATE VIA SOFT INIT.
EACH APPLICABLE REGISTER, IN TURN, IS SET TO ITS CAPACITY FOR ONES.
THEN ALL OF THF OTHER REGISTERS ARE CHECKED THAT THEY REMAINED STATIC.

459

461
462
463

STATE.

SET ALL REGISTERS TO ONES, CHECKING THAT ONES GOT SET, THEN
EXECUTE A RESET INSTRUCTION AND C(HECK EACH REGISTER FOR ITS

463

4460

(WILL) BE RUN.

6.1.2

&4
642

LL4
445

WHEN IN THE 'DPU ON.Y'' MODE

THE ONLY TESTS THAT MAY

EXECUTE A RESET INSTRUCTION AND CHECK EACH APPLICABLE REGISTER

434
435

43
437
438
439
&40

TEST

6.1 .5

INCREMENT AND (HECK EACH REGISTER TO THE LIMIT OF

ITS CAPABILITY.

JSY11/VS11 == RASTER GRAPHIC DI MACRO M1113
“69

470
o7

29-JAN-81 17:22

PAGE 9

6.1.6

47
47

TEST 1 VERIFIES THAT THE DISPLAY PROCESSER (DPU) (AN

EXECUTE START, STOP, RESUME, NOP, AND JUMP INSTRUCTIONS.

&746
475
47

477
“78
479
480
48]
482
483

6.1.7

ALL OPCODES WHICH TRANSFER PIXEL INTENSITY DATA TO THE
DPU (100000 THRU 130000) ARE EXECUTED AND THE DSR IS
TESTED TO VERIFY THAT THE PIXEL DATA WAS RECEIVED AND
RETURNED BY THE DPU. ALL POSSIBLE VALUES OF PIXEL DATA

4B
485

ARE PASSED WITH EACH OPCODE.

THEN ALL REMAINING OPCODES EXCEPT BIT MAPS (134000 AND
136000), JUMP (160000), AND STOP (172000) ARE EXECUTED
WITH BITS <9:0> OF THE OPCODE WORD SET TO ZERO AND WITH
IN THIS CONFIGURATION, EACH
NO FOLLOWING DATA WORD.
OPCODE (INCLUDING THOSE UN-DEF INED) 3SHOULD APPEAR AS
A ‘NOP'' AS FAR AS FINAL REGISTER CONTENT IS CONCERNED.

486
487
488

489

490
491
492
493
494
495
496
497
498
499

500
501
502
503

6.1.8

SET BASE HISTOGRAM AND INCREMENT THE BASE ADDRESS REGISTER 1O
1TS CAPACITY.

6.1.9

SET BASE CHARACTER AND INCREMENT THE BASE ADDRESS REGISTER TO

W) = OV ~NONH
W=

(W IV IV TV, NV, VLIV, TG TV LV RV, LV, AV, |

1TS CAPACITY.

CHECK THE OPERATION OF THE JUMP TO SUBROUTINE INSTUCTION,
INCLUDING THE ENABLE BIT AND THE PCSAVE REGISTER.

6.1.11

CHECK MAIN MEMORY MANAGEMENT ACCESS FOR ALL AVAILABLE MEMORY

OVER 28K.

SEQ 0010

/SV11/VS11 == RASTER GRAPHIC DI MACRO M1113

29-JAN-81 17:22

6.1.12

T -

PAGE 10

1
SEQ 0011

T W

D G

D e

e - -

CHECK AUX MEMORY MANAGEMENT ACCESS FOR ALL AVAILABLE MEMORY

OVER 28K.

6.1.13

THIS TEST VERIFIES THAT THE STOP INTERRUPT LOGIC IN
THE DPU FUNCTIONS CORRECTLY. VARIOUS COMBINATIONS OF
STOP INSTRUCTIONS WITH INTERRUPT ENABLED AND DISABLED

ARE EXECUTED.

6.1.14
-

- e T

G T

e e M

- W

IN THIS TEST. A NON-EXISTANT MEMORY ADDRESS IS PASSED TO
THE DPU PC. 1T SHOULD RESPOND WITH A TIME~QUT INTERRUPT

BACK TO THE CPU.

6.1.15

GENERATE EACH ERROR CONDITION POSSIBLE (TO SOF TWARE)
AND CHECK FOR APPROPRIATE ERROR CODE GENERATION.

6.1.16

THIS TEST VERIFIES THAT THE DPU CAN CALCULATE AN 18 BIT
PC FROM AN INITIAL 16 BIT PC, PLUS THE CONTENTS OF THE
12 BIT RELOCATE REGISTER.

SINCE THE 2 HIGH ORDER ADDRESS BITS ARE INVISIBLE, THE
TEST RELIES ON THE FACT THAT ANY CALCULATED PC WHICH
EXCEEDS 18 BITS IN LENGTH WILL BE TRUNCATED TO 18 BITS
(I.E. WRAP AROUND TO 000000).

THE TEST USES ALL COMBINATIONS OF RELOCATE FACTOR AND
INITIAL PC THAT YIELD A FINAL PC WITHIN THE TEST BODY.

VSV11/VS11 == RASTER GRAPHIC DI MACRO M1113

29-JAN-81 17:22

PAGE 11

IN THE VSV11, THERE IS NO HARDWARE CHARACTER GENERATOR.
INSTEAD, CHARACTER MODE CAUSES A SUBROUTINt CALL TO A
SUBPICTURE DISPLAY FILE WHICH CONTAINS THE CODE TO DRAW

THE CHARACTER SUB-PIX
THE DESIRED CHARACTER OR SYMBOL.
CHAR CODE TO
ASCII
THE
USING
BY
OBTAINED
ADDRESS IS
THE STARTING
CONTAINS
WHICH
TABLE
ADDRESS
AN
INDEX INTO
ADDRESSES OF THE CHAR SET.

THE STARTING ADDRESS OF THE ADDRESS TABLE IS SET WITH
THE ''SET CHAR BASE'' INSTRUCTION, AND EACH CHAR SJUB-PIX
IS TERMINATED WITH A 'DPOP'' INSTRUCTION.
THIS TEST USES 1 COMMON SUBROUTINE AS A PSUEDO=-CHARACTER
AND SETS A UNIQUE BASE ADDRESS FOR EACH CHARACTER CODE
SUCH THAT: BASE + 2(CODE) =_SUBROUTINE ADDRESS.
THE FULL ASCII SET (000 = 177) IS TESTED IN THIS MANNER.

IF THE PROGRAM 1S NOT RUNNING IN DPU-ONLY MODE, THE FULL
IN
CHARACTER SET IS THEN DISPLAYED ON THE SCREEN TWICE:

THE TOP DISPLAY, THE CHARACTERS ARE SITUATED ON EVEN-NUMBERED SCAN LINES, WHILE IN THE BOTTOM DISPLAY THEY ARE ON
ODD-NUMBERED SCAN LINES.

6.1.18

THIS TEST VERIFIES THAT THE DPU CAN EXECUTE ABSOLUTE
POINT MODE INSTRUCTIONS UTILIZING THE FULL RANGE OF X/Y.
(1) PLOT ALL X POINTS, HOLDING Y AT 0.
(2) PLOT ALL Y POINTS, HOLDING X AT O.
(3) PLOT ALL POINTS WHERE X =Y.

THE X AND Y POSITION REGISTERS ARE TESTED AS EACH POINT
1S EXECUTED.

BY DEFAULT, PIXEL DATA ARE TRANSFERRED TO THE IMAGE

MEMORY, AND DISPLAYED ON THE MONITOR (IF THERE IS ONE).
THE IMAGE MEMORY AND VIDEO DISPLAY MAY BE INHIBITED

BY RESPONDING <YES> TO THE ‘RUN DPU TESTS ONLY'' QUERY
AT START TIME.

6.1.19

GENERATES LONG VECTORS WITH POSITIVE DELTA X/Y FROM
X,Y = 0,0 TO ALL POINTS WHERE X = Y (FANS DJAGONALLY
THEN A SIMILAR PATTERN
FROM BOTTOM TO LEFT EDGE).
USING NEGATVE DELTA X/Y STARTING AT X,Y = MAX MAX.
THE X AND Y POSITION REGISTERS ARE TESTED AS EACH
VECTOR IS DRAWN.

VIDEO DISPLAY IS INHIBITED IF "DPU ONLY'' WAS SPECIFIED.

\J(

SEQ 0012

VSV11/VS11 == RASTER GRAPHIC DI MACRC M1113

PAGE 12

29-JAN-81 17:22

SEQ 0013

VERIFY THAT THE DPU CAN GENERATE RELATIVE POINTS FROM
X,Y = 1000,1000 USING THE FULL RANGE OF DELTA X/Y
(=76 TO +76)

(1) PLOT ALL X POINTS, HOLDING Y AT =76.
(2) PLOT ALL Y POINTS, HOLDING X AT =76.
(3) PLOT ALL POINTS WHERE X = Y.

THE X AND Y POSITION IS VERIFIED AS EACH POINT IS DRAWN.

VIDEO DISPLAY IS INHIBITED IN 'DPU ONLY'' MCDE AS BEFORE.

6.1.21

6.1.22

CHECK ALL ASPECTS OF THE RUN LENGTH MODE.

IF RUNNING 'DPU ONLY'' MODE, YOU WILL SEE ''EMD-PASS"

AT THIS POINT.

ALL OF THE REMAINING TESTS REQUIRE

THE SERVICES OF THE IMAGE MEMORY.

6.2
-

THE TESTS & DISPLAYS IN THIS SECTION REQUIRE THE SERVICES
OF THE IMAGE MEMORY AND SYNC GENERATOR MODULES.
IF THE PROGRAM [S BEING RUN IN
THE 'DPU ONLY'' MODE, THESE TESTS MAY NOT (WILL NOT) BE RUN.

OTHERWISE, THEY WILL BE RUN [N SEQUENCE AS LONG AS THEY
ARE NOT INHIBITED BY THE TEST SWITCH.

€.7.23

TEST 23.

(URSOR REGISTERS/SWIT{H/MAT(H

THE (URSOR POSITION REGISTERS, JOYSTICK STATUS ENABLES,
THE 'SOFT'' SWITCH, SWITCH INTERRUPT AND MAT(H [NTERRUPT
ARE TESTED FOR EACH A AILABLE SYNL GENERATOR “HANNE..

V¢

PAGE 13

6.2.1

GRAPH PLOT ALL X POINTS BETWEEN 200 AND 1600 (IN 30
UNIT INCREMENTS) USING ALL VALUES OF Y INCREMENT.
I.E. X 200, Y INCR 2
X 230, Y INCR 4

X 1600, Y INCR 76

THEN REPLOT EACH POINT IN HISTOGRAM MODE TO A RELATIVE
BASE LINE WHERE BASE = X=20.
THE X AND Y POSITION REGISTERS ARE TESTED AS EACH POINT
1S PLOTTED (IN BOTH MODES).

IF RUNNING ‘DPU ONLY'' MODE, THIS AND ALL FOLLOWING TESTS

ARE NOT RUN.

6.2.2

6.2.3

VERIFIES THAT BIT MAP MODE 1 FUNCTIONS CORRECTLY FOR
ALL POSSIBLE RUN LENGTHS (0 TO 511.) AND IN BOTH 4 BIT
AND 8 BIT PIXEL MODES.

A 256 WORD BUFFER IS FILLED WITH THE VALUE 000377, WHICH
WILL YIELD A 2 ON, 2 OFF PATTERN OF 4 BIT PIXELS AND/OR
A 1 ON, 1 OFF PATTERN OF 8 BIT PIXELS.

THE X AND Y POSITION IS VERIFIED AT THE END OF EACH

B1T MAP OPERATION.

6.2.4

VERIFIES THAT BIT MAP MODE Q FUNCTIONS
CORRECTLY IN ALL IT'S VARIATIONS.

SEQ 0014

I VSV11/VS11 == RASTER GRAPHIC D] MACRO M1113
7%
7%7
738
739

29-JAN-81 17:22

"'SET TO DATA’" INSTRUCTIONS FUNCTION CORRECTLY.
(1) THE IMAGE MEMORY IS ''CLEARED'' AND SELECTED

(2)

PIXELS ARE READ-BACK AND VERIFIED.

THE IMAGE MEMORY IS "'SET TO ALL 1'S'' AND

SELFCTED PIXELS READ-BACK AND VERIFIED.

IN ''SHORT MODE'’, TEST ALL X ADDRESSES FOR Y = 0 AND 2
(EVEN VS OD®Q, THEN TEST ALL Y ADDRESSES FOR X = 0.
IN

"LONG MODK,

TEST ALL PIXEL ADDRESSES.

NOTE: PART 2 OF T
THE VIEW]
ALL 1°'S.

BLANK SPOTS ARE EITHE

TEST FILLS THE IMAGE MEMORY WITH
AREA SOULD BE ALL WHITE == ANY

BURNED SFOTS ON THE C(RT

D IMAGE MEMORY LOCATIONS OR
W{OSPHOR.

6.2.6

763

CHECK FOR MEMORY INTERLACE BY WRITING A HORIZONTAL, EVEN
NUMBERED LINE, AND CHECKING THAT BA(K THE ‘LINE'' ABOVE THE ONE
WRITTEN READS BACK AS ZERO.

76/
768
769
770

771
772
773
774
775
776

IES THAT A GIVEN PIXEL CAN BE SET TO ALL PGSSIBLE
81T (OMBINATIONS, AND THAT THE READ-BACK FUNCTION CAN
CORRECT.LY READ THAT DATA.

'SHORT'F}NP "LONG'‘ MODE OPTIONS APPLY AS BEFORE.

777
778
779

784

THE

VERIFIES THAT THE IMAGE MEMORY ''CLEAR TO ZERQ'' AND

764
765
766

782
783

SEQ@ 0015

NOTE: THIS TEST AND THE ONE FOLLOWING REQUIRE
SERVICES OF THE PIXEL-READ-BACK FUNCTION.

743
7464
745

780
781

6.2.5

740
741
742

746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762

PAGE 14

—

6.2.8

RUNS AS A BLANK TENT

VSV11/VS11 == RASTER GRAPHIC DI MACRO M1113
786
787
788
789

29-JAN-81 17:22

WY —

EDGE CLIPPING AT LOWER LEFT AND UPPFR RIGHW.
. THREE OCTAGONS USING LONG VECTORS (LARGE O
SHORT VECTORS (2 SMALL ONES), AND SOME

6. BIT MAPS -- MODE 1 AT BOTTOM, MODE O AT TOI
7. A CIRCULAR VECTOR SWEEP AT CENTER, SHOWING

800
801
802
803

829
830
831

. CHARACTERS AT BOTTOM CENTER.

RELATIVE POINTS INSIDE THE SMALL ONES.
4. GRAPH-HISTOGRAM Y AT UPPER LEFT.
5. GRAPH-HISTOGRAM X AT LOWER RIGHT.

799

826
827
828

SEQ 0016

THIS TEST PROVIDES ONE TEST PATTERN IN WHICH ALL
GRAPHICS FUNCTIONS ARE EXERCISED:

793
794
795
796
797
798

823
824
825

6.2.9

790
791
792

804
805
806
807
808
809
810
811
812
813
814
815
816
81/
818
819
820
821
822

PAGE 15

COLOR/INTENSITY LEVELS.
8 . A PERIMETER OUTLINE OF THE DISPLAY.

STATIC FOR 2 SECONDS, THEN BLINKING FOR 2 SEONDS.

6.3

THE TESTS AND ROUTINES IN THIS SECTION ARE STAND-ALONE.
THEY ARE NOT INCLUDED IN THE NORMAL TEST SEQUENCE AND

MUST BE RUN BY UNIQUE START COMMAND

JE. START/TEST:NN<CR> OR RESTART/TEST:NN<CR>

6.3.1

) -

- G S

THIS IS A TEST FRAME FOR THE JOY-STICK, AND INCLUDES
3 NESTED BOXES(CO-ORDINATES LASELED), AND AN IN-LINE

READ-OUT OF THE CURRENT JOY-STICK POSITION,

A 'ggégCH” INTERRUPT IS MARKED BY AN "X'' AT THE CURRENT
(0=

A 'MATCH'® INTERRUPT (ON THE BOXES ONLY) IS MARKED BY
AN X AS ABOVE, AND BY THE WORD 'MATCH'' DISPLAYED AT
UPPER RIGHT.

VSV11/VS11 == RASTER GRAPHIC DI MACRO M1113
833

29-JAN-81 '7:22

PAGE 16

SEQ 0017

6.3.2

THIS IS A PATTERN GENERATOR FOR COLOR MONITOR CONVERGENCE
SET=UP. IT INCLUDES THE FOLLOWING PATTERNS SELECTABLE BY
THE USER AT WILL.

— = 2 =3 00O NN
W=
O

NOTE :

“TYPE THIS''
COLOR BARS
7 X 7 DOTS

7X7 CROSSHAT(H
PERIMETER OUTL INE

BASIC COLOR ID

GUNS ID
ALL WHITE SCREEN

ALTERNATING WHITE SCREEN & PERIMETER OUTLINE
ALL RED SCREEN
ALL BLUE SCREEN
ALL GREEN SCREEN

SELECTIONS &4 THRCUGH 6 ALSO INCLUDE A PERIMETER
OUTLINE OF THE SCREEN, IN WHICH EACH SIDE OF THE
OUTLINE INCLUDES 3 'DOTS''. SELECTIONS 3, 7 AND 8
INCLUDE A SOLID WHITE PERIMETER OUTLINE.

6.3.3

7.0

PROGRAM LISTING FOLLOWS:
NLIST
.DSABL

BEX
GBL

(ON CONSOLE)

TURN ON BL INKING
TURN OFF BLINKING

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

PROGRAM HEADER

29-JAN-81 17:22

.SBTTL

892

893
894
895 000000
896
897
898
899

PAGE 17

SEQ 0018

PROGRAM HEADER
MCALL

Sv(

SV(

; INITIALIZE SUPERVISOR MA(CROS

2 22
3379
3 ¥ Y3332
33343
483322
33%33
2345283
33%344444444342%443444434
IF STRUCTURED MACROS ARE 10 BE USED, YOU MUST ADD
SPMAC.SML (OR THE CURRENT EQUIVALENT)
.REQ
.MCALL
STRUCT

000001
000001
000001
000001
000001

Sv(GBL=
SV(TST=
SvCsSuB=
SVCTAG=

SVCINS=

STRUCT

; LIST GLOBAL TAGS AT RIGHT MARGIN.
TEST TAGS.
DITTO
:
TAGS.
SUBTEST
DITTO
:
TAGS.
OTHER
ANY
DITTO
;
INSTRUCTIONS AND DATA.
DITTO

1
1
1
1
1

;. THESE SYMBOLS CONTROL THE LISTING FIELD OF ALL SVC MACRO
YOU MAY (HANGE THEM AT ANY TIME OR PLACE.

: EXPANSIONS.

RIGHT=JUSTIFY (MAKES IT EASY TO DISTINGUISH

;

0 = LEFT-JUSTIFY (ALIGN IN A NORMAL FASHION).
=1 = DON'T LIST THE EXPANSIONS AT ALL.

;

SVC'S MACRO CODE FROM YOUR OWN).

352
32 33312222
3333
42 %%222223
3433
58388822
334344553444 44%24244424%

002000

.ENABL

ABS,AMA

2000

<44

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN

: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

174561

000000
000000

928

929 002000
930 002000
002000
002000
002001
002002

002003
002004
002005
002006
002007
002010
002010
002011
002011
002012
002012
002014
002014
002016

103
126
126

PRGSIZ- <LSLAST>/16.

gVE?B|§= 8
VCINS=

LASCII /C/
LASCII
LASCIL
LASCII
LASCI1

101

060

000000

001217

: ALIGN THE HEADER STUFF.

RPT
SF
GNDU,BGN
BGN
T ,BGNAU,B
POINTER BGNSW,
HEADER (VVSA,A,0,655..,0
;DIAGNOSTIC NAME
LSNAME : :

123

000
000
000

: PROGRAM SIZE IN 1/8 K UNITS (OCTAL).

LSREV::
LSDEPO: :

LSUNIT::
LSTIML::

LSHP(P::

BYTE
BYTE
BYTE

/v/
/V/

7S/
/A/

0
O
O

LASCIT

/A/

LASCIT

70/

.WORD

655.

;REVISION LEVEL
HY

;NUMBER OF UNITS
JLONGEST TEST TIME

;POINTER TO H.W. QUES.

PROGRAM HEADER

002016
002020

002024
002024

002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040
602042
002042
002044
002044

002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060

002062
002062

002064
002064
002066
002066

002070
002070
002072
002072
002074

002074
002076
002076

002100
002100
002102
002102
002104
002104
002106
002106

002240

002522
002224
002502
113404

000000
000000

000000
000000
106760

000000
000000

€00000
003
003

000000

000060

29-JAN-81 17:22

L$SPCP:

.WORD

:.UORD
:.HORD
LE$SPTP:
:.UORD
LSLADP:
:.UORD

LSHPTP:

L$STA::
L$CO::

LSDTYP:
LSAPT::

LEDTP::
L$PRIO:

.WORD
.WORD

:.WORD
.WORD

.WORD

:.NORD
LSENV]:
:.WORD
LSEXPT:
i.NORD
LSMREV:
LSEF::

L$SPC::
LS$DEVP:

".BYTE
"BYTE

L $HARD
T
LS$SOF

LSHW
L$SW

LSLAST

002122
104035

000000

032014

033220

LBLUN::

L$DESP:

LSETP::

LSICP:: )

;RESERVED FOR APT STATS

TO DISPATCH TABLE

;DIAGNOSTIC RUN PRIORITY

CSREVISION
CSEDIT

.WORD

:.wORD
LSLOAD::
.EMT

;DIAG. END ADDRESS

:SVC REV AND EDIT #

.WORD

PTABLE

;EXPANS]ON WORD

L$DU

000000

TO S.W.

.WORD

L$DUT::

;PTR.

;FLAGS DESCRIBE HOW IT WAS SETUP

033012

033110

PTABLE

L $AU

T
LSAU::

H.W.

;PTR.
LSDISPATCH

.WORD

000000

TO DEF.

;APT EXPANSION

QUES.

;PTR.

000000

033272

;POINTER TO S.W.

;DIAGNOSTIC TYPE

.WORD
.WORD

LSREPP:

SEQ 0019

:.HORD
:.WORD
LSEXP4:
:.HORD
S:
LSEXP
:.WORD

002162

G_¢

PAGE 17-1

LEDVTYP

LSRPT

;DIAG. EVENT FLAGS

; POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT (CODE

;PTR.

TO ADD UNIT

;PTR.

TO DROP UNIT CODE

0
0

LS$DESC
ESLOAD

LSINIT
L$CLEAN

CODE

;LUN FOR EXERCISERS TO FILL
;POINTER TO DIAG. DESCRIPTION
;GENERATE SPECIAL AUTOLOAD EMT

;POINTER TO ERRTBL
;PTR. TO INIT CODE
;PTR,

TO CLEAN-UP (ODE

«7

ySV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

WSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
PROGRAM HEADER

002110
002110
002112
002112
002114

002114
002116
002116

002120
002120
002122
002122
002122

002162
002162
002162
923

934
935

936
937
938
939
940

LSACP::

033216

L$PRT::

032004

LSTEST::

000000

LSDLY::

000000

LSHIME::

000000
052

126

000001

1727777

29-JAN=-81 17:22

062

123

052

126

L$DESC::

SEQ 0020

;PTR.

TO AUTO (ODE

;PTR.

TO PROTE(CT

.WORD

L$AUTO

.WORD

L$PROT

.WORD

. WORD

.WORD

LASCIZ

/axxx ySV11-VS11 DIAGNOSTIC %2/

DEVTYP

<vSV11-vS11, AND DISPLAY MONITOR>

CASCIZ

/VSV11-VS11, AND DISPLAY MONITOR/

TABLE

;TEST NUMBER
;DELAY COUNT

;PTR. TO HIGH MEM

DESCRIPT <x#xx ySV11-VS11 DIAGNOSTI( w#=+>
.EVEN

LEDVTYP:

PAGE 17-2

.EVEN

SviGBL= 1
SVCINS= 1
Sv(GBL=~1
SV{TST==1
Sv(SuB=~1
SVCTAG==-1
SVCINS==1

; SHOVE EVERYTHING BACK TO THE RIGHT.
; KILL ALL SVC STUFF.

VSV11/vS11 == GRAPHIC SYS. DIAG MACRD M1113

‘ DEFAULT HARDWARE P-TABLE

29-JAN-81 17:22

[

PAGE 18

SEQ 0021

gag

_SBTTL

944

gzg

* IS IDENTICAL TO THE STPUCTURE OF THE RUN-TIME P-TABLE.

323 002222

’

945
946

951 002224
952
953 002226

954,

955 002230
956 002232
957 002234
958
959 002236

*
*

DEFAU_T HARDWARE P-TARLE

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES Of
THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE

BGNHW

DFPTBL

:DEFAULT HARD-P-TABLE

172010

.WORD

172010

000320

.WORD

320

:
;
L

000200
000000
000000

.WORD
WORD
.wWORD

PR]O4
O
0

ENDHW

1ST (OF 4) REGISTER(S).
( 7 IF LUT INSTALLED ).
1ST (OF &) VECTOR(S).

( S IF LUT INSTALLED ).

* INTERRUPT PRIORITY.
* LUT AVAILABLE (IF NONZERO)
; SYNC FREQUENCY: O
60H7
NZ = 50HZ

VSV11/vS11 == GRAPHMIC SYS. DIAG MACRO M1113

HARDWARE PARAMETER (ODING SECTION

29-JAN-B1 17:22

PAGE 19

2
SEQ 0022

HARDWARE PARAMETER (ODING SECTION

321

.SRTTL

966
967
968

: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARt
: INTERPRETED BY THE SUPERV]SOR AS DATA STRUCTURES. THE
* MACRQOS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICAT]ONS

. THE HARDWARE PARAMETER (ODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE

964
965

; WwlTH THE OPERATOR.

969

J=--

970

3;1 00223%6

GPRMA

002240
97§
974 0022590

GPRMA

979 002310
980 02340
981 002370
982 002620

ggz 002450

985 002500

1ST REGISTER ADDRESS.
,177776,YES ;GET
H“PM1,0.0,160000
:GET 1ST VECTOR ADDRESS.
,776,YES
HPM?2,2,0.0

GPRMD HPM3,4,0,340,0,7,YES
GPRML HPM6 ,6,-1,YES
HPMS . 10,-1,YES
GPRML

975 002260
976 002272
977 002300

978 002306

BGNHRD

04
061
m
116

106

105
12%
116
125

122

126
124
126
126

105

HWPM):
HPMQ:
HPM3:
HPM4:

HPMS:

EXIT HRD

.ASCI2
JASCIZ
LASCIZ
JASCJ2

'?SEIZ

EVEN

ENDHRD

:GET INTERRUPT PRIORITY,
;ASK IF LUT AVAILABLE
:ASK [F FREQUENCY = S50 HZ.

/DEVICE ADDRESS
/1ST INTERRUPT VECTOR
/INTERRUPT PRIORITY
/LUT INSTALLED

/FREQUENCY = SOMZ

/
/
/
/
/

’

I VSV11/VS11 == GRAPHI( SYS. DIAG MACRO M1113
- SOF TWARE P-~TABLE

.SRTTL

987

; PARAMETERS THAT (AN BE CHANGED BY THE OPERATOR.

000000

DPUMOD::

000000

.WORD

000031
000310

[

O
N,

LERRMAX: :
GERRMAX : :

ENDSW

.WORD
.WORD

NZ = lONG TEST.

."TEST ID'S.

.WORD

N= RUN DPU ONLY.

MFGFLG::

.WORD

0 - RUN ALL.

. "IMAGE MEMORY TEST MODE...
.. 0 = SHORT TEST...

TIDFLG::

000000

1012
1013

; DPU/MEM TEST MODE.

[

NOITS::

1009 002514
1010 002516
1011 002520

SFPTBL

000000

1008

.WORD

IMTMOD::

1003 002510

1007

BGNSW

000000

1004
1005
1006 C02512

SOF TWARE P-TABLE

1000 002506
1001

1002

SEQ 0023

25.
200.

997 002504
998
999

996

PAGE 20

988
989
990
991
992
993 002500
994 002502
995

29-JAN-81 17:22

. . 0 = rvpe TEST 1D AT EACH TTET START...

...NZ = DON'T,
INHIBIT ITERATION OPTION.
... 0 = ITERATE.
...NZ = INHIBIT ITERATE.
MANUFACTURING TEST MODE...
. 0 = USER/FIELD SVC...

"""NZ = MANUFACTURING.

LOCAL (PER TEST) ERROR LIMIT
GLOBAL (PER UNIT) ERROR LIMIT

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

SOF TWARE PARAMETER CODING SECTION

29-JAN-81 17:22

%8}2

_SBTTL

1017

;==

10246

1025 002520

1026 002522
1027 002530
1028
1029 002536

GPRML
GPRML
:GPRML
GPRML

1031 002552

GPRMD

GPRML

1030 002544

GPRMD

1032 002564

1034 C02600
1035 002630
1036
1037 002660

122
114

125
117

116
116

1040 002770
1041 003020

111
115
120

120

116
101
105

110
116
122

1038 002710
1039 002740

SEQ 0024

SOFTWARE PARAMETER CODING SECTION

: WITH THE OPERATOR.

1023

1033 002576

: THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

1018
1019
1020
1021
1022

PAGE 21

105

122

SPM1:
SPMZ:
:SPM3:
SPM4:
SPMS5:
SPM6:

SPM7:

BGNSFT

SPM1,0,-1,YES
SPM2,2,-1,YES
SPM3,4,-1,YES
SPM4,6,-1,YES

SPMS5,10.,-1,YES

: GET OPTIONAL DPU ONLY FLAG.
; GET MEM TEST MODE.
; GET TEST ID CONTROL.
: GET ITERATION CONTROL.
: GET MANUFACTURING MODE.

SPM6,12,D,7777,0,7777 ,YES

SPM7.,14,D,7777,0,7777 ,YES

EXIT SFT

: GET LOCAL ERROR LIMIT

: GET GLOBAL ERROR LIMIT

JASCIZ
.ASCIZ
_ASCIZ
JASCIZ

/RUN DPL TESTS ONLY
/LONG MEMORY TESTS
/INHIBIT TEST ID'S
/INHIBIT ITERATIONS

/
/
/
/

JASCIZ
ENDSFT

/PER UNIT ERROR LIMIT
: UNUSED.

ASCIZ
LASCIZ

/MANUFACTURING MODE
/PER TEST ERROR LIMIT

/
/

p——

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL EQUATES SECTION

29-JAN-81 17:22

1043

.SBTTL

1045
1046
1047
1048
1049
1050 003020

s
4

1044

PAGE 22

SEQ 0025

GLOBAL EQUATES SECTION

: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
; ARE USED IN MORE THAN ONE TEST.

: GET STANDARD EQUATES.

EQUALS
; BIT DIFINITIONS
100000

BIT15== 100000
BIT14== 40000
B8IT13== 20000
BIT12== 10000
B81T11== 4000
B8I710== 2000
81709== 1000
BIT08== 400
B8I1T07== 200
B8I1T06== 100
BIT05== 40
BIT04== 20
BIT03%3== 10
BITQ2== &
BIT01== 2
BIT00== 1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==

BIT09

BIT1==
BITO==

BITO1
BIT00

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT8==
BIT7==
BIT6==
BIT5==
BIT4==
BIT3==
BIT2==

BIT08
BIT07
BIT06
BIT05
BITO4
BIT03
BIT02

; EVENT FLAG_DEFINITIONS

:
000040

000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==
EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PWR==

32.
31.
30.
9.
28.

; PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100

PRIO7==
PR106==
PRIQS==
PRI04==
PRI03==
PRI02-=

340
300
240
200
140
100

;
;
;
;
;

START COMMAND WAS ISSUED
RESTART COMMAND WAS [SSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER~UP OCCURRED

V¢

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

| GLOBAL EQUATES SECTION

000040
000000

29-JAN-81 17:22

PRIO1=
PR]00=

“OPERATOR FLAG BITS

1051

BOE==
PNT==

MM
D MMie—
Houaunn
wnnnoan

100000

ISR==

UAM==

X rresr—er—T

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

EVvi=
LOT
ADR
IDU==

oOoOMID XD

000004
000010

100000

N_2

PAGE 22-1

SEQ 0026

—

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

29-JAN-81 17:22

.SBTTL

1055

;*KT11 VECTOR ADDRESS

}82;

000250
177572
77574
177576
172516

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;*KERNEL ‘'I'* PAGE DESCRIPTOR REGISTERS

1829
1068
1069
1070
1071
1072
1073
1074
18;2

250

;*KT11 STATUS REGISTER ADDRESSES

}828
1061
1062
1063
}8g§

MMVEC=

172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDRG= 172314
KIPDR7= 172316

;*KERNEL ''I'* PAGE ADDRESS REGISTERS

18;;
1079
1080
1081
1082

172340
172342
172344
172346

KIPAROKIPAR1=
KIPAR2=
KIPAR3=

1086

172356

KIPAR7= 172356

1083
1084
1085

MEMORY MANAGEMENT DEF INITIONS

;822
1056

PAGE 23

172350
172352
172354

172340
172342
172344
172346

KIPAR4L= 172350
K]PARS= 172352
KIPAR6= 172354

SEQ 0027

29-JAN-81 17:22

VSV11/VS11 == GRAPH]I(C SYS. DIAG MACRO M1113
INSTRUCTION EQUATES.

1094

1095

LSBTTL

VSV=11

3
SEQ 0028

INSTRUCTION EQUATES.

*PLOTTING INSTRUCTIONS.
100000
104000
110000
114000
120000
124000
130000

(HAR
SVEC
LVEC
APNT

ann
nn

1088
1089
1090
1091
1092
1093

i
W

VSv=11

PAGE 24

100000
104000
110000
114000
120000
124000
130000

; CHARACTER MODE.
s SHORT VECTOR MODE.
;LONG VECTOR MODE.
;ABSOLUTE POINT MODE.
; GRAPH/HISTOGRAM X MODE.
. GRAPH/HISTOGRAM Y MODE.

;RELATIVE POINT MODE.

BB
BN NN
WO LCONAVNE W00 N
B AWANL=20O00V00
NN
NN — COONONE

b D d D md D
o e e o o
b

D b od e oD d o
b o D b e d d

D md b d b d e
b b md md D e e

D md D d md D e ed el e
b e
b o e b D d md d b d d e

) D md =
h
h D e d e

=
b =
b d b ek d b

:PIXEL DATA FIELD <10:2> FOR THE ABOVE OP(CODES.
002000
003774
003774
003774
003374

003774
002400
003000
003400
002200
002100
003600
003500
003300
003200
002300

LO==
L255==

BIT10
LgSEZSS.*BIT2>

: LEVEL 0 (BLACK) IS JUST THE ENABLE.
: LEVEL 255 IS THF MAX POSSIBLE.

ALLB==

3774

: ALL

ALL =-

ALLNB== 3374

INTENSITIES

(WITH BLINK).

: ALL INTENSITIES (WITHOUT BLINK).

;COLOR DEFINITIONS:

WHITE == *~03774 ; ALL
GRN1 == ~0<400'2000>

; BIT8.LO

REDG == ~0<200!'2000>

: BIT7'LO

GRNZ2 == ~0<1000!2000>
GRN3 == GRN1!GRNZ

BLUEG == *0<100!2000>
YELLOW == GRN3'REDG
EGGBL == GRN3!BLUEG

; BIT9.LC
: BIT8!BITS
: BIT6.LO

VIOLET =— GRNZ'REDG'BLUEG
GOLD == GRNZ2'REDG

MAGEN == REDG'BLUEG

: COLOR LOOK=-UP-RAM DEFINITIONS.
010000
002000

LREAD== 1+B]T1?2
LDI==
1«B1T10

: CSR -- READ DATA FROM ADDR <7:0>.
M
INTERRUPT ON READ/WR]JTE DONE.

010000

LSET==

: DATA REG =-- SET ALL ADDRESSES TO...
:...DATA PATTERN IN <11:0>...
:...BLUCT1:8>, GRN<7:4>, RED<3:0>.

000100
000040
000020
000010
000004
000000
000001
000002

GCOFF== 1+B]T6

: MAINT REG -- GAMMA (CORRECT OFF.

REDC==

;

000003

(v(C==

GRNC==
BLUC==
MDVO-=
MDV'==
MDV2==
MDV3~=

1«B]T12

1*B]TS

1+BIT4

1+B]T3
1+B!T?2
0
1
2
3

;

M
.
:

:
;
;

COMP VIDEO > MDAC (READ-ONLY).

RED DAC > MDAC

(READ~ONLY).

GRN DAC > MDAC (READ-ONLY).
BLU DAC > MDAC (READ-ONLY).
SET MAINT DAC 10 0.0 V.
0.5 v.
1.0 V.
1.35 v.

; BIT MAP MODE DEFINITIONS.
136000
137000

BM14-BM18-=

136000
137000

: MODE 1 WITH & BIT PIXELS.
; MODE 1 WITH 8 BIT PIXELS.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

VSV=11 INSTRUCTION EQUATES.
;}22
1147
1148
1149

000010
000020
000050
000060

10
Ex2==
20
Ex4==
EXSM2== 50
EXSM4== 60

1157
1158

000100
000400

%}28

1161
1162
1163
1164
1165
1166

1167

000200

SEQ 0029

Mb4==
M128==
M256~-=

R256==
RND8==

: MODE O WITH 4 BIT PIXELS.
: MODE O WITH 8 BIT PIXELS.
;32 SQUARE PIXEL ARRAY,

134000
135000
0

BMO4==
BMO8==
M32==

000001
000002
000003

PAGE 24-1

; PIXEL COUNT IN <8:0>.

134000
135000
000000

1150
1151
1152

1153
1154
1155
1156

29-JAN-81 17:22

;64 SQUARE.
: 128 SQUARE.
: 256 SQUARE.

1
2
3

; EXPAND BY 2, NO SMOOTHIMG.
: EXPAND BY 4, NO SMOOTHING.
; EXPAND AND SMOOTH BY 2.
: EXPAND AND SMOOTH BY 4.
: 256 X 256 RESOLUTION.
: ROUND FOR 8-BIT-WIDE IMAGE MEMORY

100
400

. SKIP ODD-NUMBERED LINES ON SCREEN (FOR NON-INTERLACED) awal

0DDSKP== 200

144000
000100
000040
000400

RNLN== 144000
DBRLPIX==
YDOWN== BIT5
RLSKIP== BIT8

162000

IMREAD-= 162000

BIT6

;OP-CODE FOR RUN-LENGTH MODE
; DOUBLE THE PIXEL COUNT
; DISPLAY LINES TOP=TQ-BOTTOM
“SKIP LINES, WITHOUT THROWING THE DATA AWAY
(FOR RUN-LENGTH MODE ONLY)
;:
SKIPS EVEN LINES IF START ON EVEN, & VICE-VERSA
>

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
INSTRUCTION EQUATES.

PAGE 25

SEQ 0030

:CONTROL AND STATUS INSTRUCTIONS.
146040
146060
146100
146016
146013
146012
175000
175000
146000
175400

000002

175401
175400

CUOFF== 146040

146060
CUON==
CURD== 146100
CUIM== 146016
CUlS== 146013
CUIOFF== 146012
CUWT== 175000
175000
LDCP==
LDJSS== 146000
LDECC== 175400
SWCHON== B]T1
BLINK== 175401
MBL INK==175400

;CURSOR (JOY-STICK) VIDEO OFF.

; CURSOR VIDEO ON.

JREAD JSX,JSY => DXR,DYR.

s INTERRUPT ON MATCH (SWITCH DISABLED).

s INTERRUPT ON SWITCH (MATCH DISABLED).
; INTERRUPTS (BOTH) OFF.
; CURSOR WRITE.

; LOAD CURSOR POSITION (-CUWT)
;LOAD JOYSTICK STATUS DISPLAY INSTRUCTION
;LOAD EXTENDED CURSOR CONTROL
; SOFT SWITCH ON.
; BLINK,
; NO BLINK.

JOYSTICK SWITCH-ENABLE WRITE ENABLE
JOYSTICK SWITCH-ENABLE WRITE DATA
CURSOR MATCH-ENABLE WRITE ENABLE
CURSOR MATCH-ENABLE WRITE DATA
CROSSHAIR-INTENSITY WRITE-ENABLE
CROSSHAIR-INTENSITY WRITE DATA

JSWE == BIT1
JSWD == BITO

150000
152000

SETHB== 150000
SETCB== 152000

160000
160001
164000
165000
164001

DJMP==
DJMS==
DNOP==
DPOP==
SYNC==

1204

000001

AUXSEG== BITO

;...(16.6MS @ 60HZ OR 20MS @ S0H2).
;SPECIFY AUX. SEGMENT IN DISPATCH ADDRESSES.

170200
170140
170100

SWTCH== 170200
CLRMEM== 170140
SETMEM== 170100

;CLEAR IMAGE MEMORY TO O'S.
;SET IMAGE MEMORY TO CURRENT PIX DATA.

172000
171000
171400
173000
173400

172000
STOP-=
SIOFF== 171000
171400
SION-=

;STOP INTERRUPT DISABLE.

GXI==

JMWE == BIT3
JMWD == BITZ2
JCWE == BITS
JCWD -= BITé

160000
160001
164000
165000
DNOP+1

= OV NN
NN =

NNt

d
D
D
d
e
b e}
d
—d e

INSIASLSLSLNT,NIaC1\NTpN
1,V )0 1, 0)

b —d

et e

b b d

000002
000001
000010
000004
000040
000620

n NN
=o o e
OO0
o OO

D ad eh D D D D

D b D =D

D ek e

D oh D d

OO 00OV V0000000000000V
N N NNNNNNNNO

_-I-J_A_)—-I_J—I-J.J_l—-'—-l_l—l_h.J—l_a—-l.-l—J—l_a_a—l—l—l_a.J_h—l_J—l—l_l

VSV=11

29-JAN-81 17:22

174100
174100

000001
000010
176000
176050

176034
176036
176074

STOPN== STOP!SIOFF
STOPI== STOP!SION

;SET GRAPH/HISTO BASE LINE.
;SET CHARACTER BASE ADDRESS.
:DISPLAY JUMP,
INE
;DISPLAY JUMP-TO-SUBROUT
;DISPLAY NO-OP.
;DPOP = RTS FROM (HARACTER SUB-PIX.
;PROCEED IN SYNC = DNOP + N <8:0>.
;WAITS FOR N OCCURRENCES OF VERTICAL...
:...SYNC START, THEN PROCEEDS...

;SWITCH READ/WRITE STATUS.

;DISPLAY STOP.

;STOP INTERRUPT ENABLE,
;STOP, DO NOT INTERRUPT.
;STOP AND INTERRUPT.

Gyl==

174100

GXxI

;SET X INCREMENT <5:0> FOR GRAPH/HST Y,
:SET Y INCREMENT <5:0> FOR GRAPH/HST X.

HCPY==

BIT0

;ENABLE HARD-COPY.
;ENABLE SWITCH RD/WRT,

SweE==

BJT3

PROTEC=- 176000
READ=176040 SWE
WRT==
176024.5WE
WRT1==
176026 SWE
RDWRT== READ'!WRT

JPROTECT MEMORY

(OFF).

;READ MEM (D]SPLAY), SWI"(H ENABLED.
;WRITE MEM (1'S AND 0°'S), SWITCH ENAB_ED
JWRITE MEM (1°S ONLY), SWIT(H ENABLED.
;READ, WRITE ALL DURING RETRACE.

aaa|

! vSv=11 INSTRUCTION EQUATES.

29-JAN-81 17:22

1226
}ggg

176076
176051

RDWRT1== READ.WRT1
HCOPY== READ.H(PY

1229

000000

(HO==

1230

000400

001000
001400

12%6
1235
1236

000000
000400
001000

123
;Sg%

1237

001400

PAGE 25-1

SREAD, WRITE 1'S DURING RETRA(E.
:READ MEM => HARD (OFY DEVIC(E.

;CHANNEL SELECT BITS...

(H2==
(H3==

BIT18

BIT9
BIT8.8]719

:...FOR MEMORY (ONTROL...

JSO==
JS1==
JS2==

(MO
(M1
(H2

;JOY=STICK UNIT SELECT BITS...
:...FOR CURSOR CONTROL...
:...INSTRUCT]JONS (146XXX).

(H1-=

.S3--

(M3

;... INSTRUCTIONS (176XXX).

SEQ 0031

VSV11/vS11 == GRAPHI( SYS. DIAG MACRO M1113

VSv=11

INSTRUCTION EQUATES.

1261

1242
1263
1244

1245

1246

12647

1248
1249
1250

1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261

1262
1263
1264
1265

1266
1267

1268

1269
1270
1271
1272

1273

1274
1275
1276

1277

1278

1279
1280
1281

1282
1283

1284
1285
1286

1287
" 288
1289

1290

1291
1292

1293
1294
1295

PAGE 26

3
SEQ 0032

;OTHER USEFUL DEFINITIONS.

1239

1240

29-)AN-81 17:22

040000
020000
000100
020000
020000
040000
020000
060000
010000

I==

MSX
MSy==
Mxy==
==
HST==

BIT14

;INTENSIFY VECTOR OR POINT.

BIT13
BIT6
BIT13
BIT13
BIT14

*MINUS SIGNS FOR...
;...SHORT FORM VECTOR DATA.
sMINUS SIGN FOR LONG FORM DATA,
;ANOTHER MINUS SIGN
;USE GHX/GHY DATA AS HISTOGRAM.

FHST== HST!BI"13
GHIINH== BIT1?2

(GRPH== BJT13

JUSE GHX/GHY DATA AS CONNECTED GRAPH
;USE GHX/GHY DATA AS FILI.ED HISTOGRAM (BAR=GRAPH)
; INHIBIT ERROR DURING PLOT.

001776
001776
000776
000776

MAXX==

511,#2

;MAXIMUM X ADDRESS (512 X 572 X ?).

HAFX

;SAME

001776
000776

MAXYS50== 517.#2

;MAX VISIBLE Y ON S0HZ SYSTEM.

001676
000736

MAXY60=- <511.,-32.>+2

;MAX VISIBLE Y ON 60HZ SYSTEM,

000002

DXx==
Dyl==
DYNI==

;DELTA X (1 PIXEL UNIT).
;DELTA Y, INTERLACED MODE.
;DELTA Y, NON-INTCRLACED MODF.

000002
006004

MAXY==
HAF X==

HAFY==

MAXX
<MAXX/2>-1

HAFY50== <MAXY50/2>-1
HAF Y60== <MAXY60/2>=1

2
DX
DX#?2

;SAME FOR Y,
sHALF MAX X (CENTER SCREEN).

;HALF

JHALF

.DSR REGISTER SELECT CODES:

FOR Y.

VISIBLE

REAL DSR
PCSAVE
FLAGS
CSR
MAIN RELOC
MAIN PROTECT
AUX. RELOC
AUX. PROTECT

000000
000001
000002
000003
000004
000004
000006
000006

SELDSR==
SELP(CS==
SELFLG==
SELCSR==
SELMRR==
SELMPM==
SELXRR==
SELXPM==

0
1
2
3
4
SELMRR
6
SELXRR

;SELECT
JSELECT
sSELECT
sSELECT
JSELECT
;SELECT
sSELECT
;SELECT

000005
000007
000010
000014

SELHBA==
SEL(BA==
Wk -BIT3

5
7

;SELECT H-BASE
;SELECT C-BASE
;DSR WRITE-ENABLE

000015
020016
000017
000013
000012
000010

SETMPM=-15
SETXRR-=SELXRRWE
SETXPM==17

000013
000012

SETMRR==SELMRR.WE

WRTCSR==SELCSR!WE
CLFLGS==SELFLG.WE

SETDSR==SELDSR.WE
SETCSR==WRT(SR

SETFLG==CLFLGS

;SET AUX.-SEG RELOCATION REGISTER
;SET AUX.=-SEG PROTECTION MASK

;WRITE THE CSR REGISTER
;CLEAR THE FLAGS REGISTER
;
;

SET REAL DSR.
SET THE CSR REGISTER,

CLEAR THE FLAGS REGISTER.

J'WRITE®® FUNCTIONS FOR DXR (BITS 15-14):

000000
042000

PIXRBK=- 0+B]T14
WRTJSS== 1+BJT14!B]T10

040000

GT,SSw=- B]T1

100000
140000

;SET MAIN-SEG RELOCATION REGISTER 10 O...
;...0R SETMR!<ADDR/2> TO RELOCATE.
;SET MAIN-SEG PROTECTION MASK

RSTPOS== 2+B]T 14
WRT(PX== S'BIZ 14

;PIXEL READBACK == <15:14>=00

JWRITE JOYSTICK STATUS REGISTER == <15:14>=01

JRESTORE TRUE X-Y POSITION TO DXR,DYR == <15:16>=10 ;a3aal

JWRITE CURSOR POSITION X=COORDINATE <= <15:14>=11
JGET JOYSTICK SWITCH INTERRUPT COORDINATES

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

~ VSv=11 INSTRUCTION EQUATES.
1296

1297
1298

100000

140000

000040
000100
000200

FORCSI== BITS
ENECHK== BIT6
CHPROT== BIT7

040000

}%8}
1303

1304
1305
1306
1307

1308

1309
1310
1311

}%1%

000001
000002
000004

000010

PAGE 26-1

SEQ 0033

SWRITE'' FUNCTIONS FOR DYR (BITS 15-14):
: PIXEL READBACK [S THE SAME - 00

WRTMSR== 1+B]T14
SINIT== 2+B]T14
WRT(PY== 3*B]T14

1299

1300

29-JAN=-81 17:22

:CSR BIT DEFINITIONS:

;283

:WRITE MEMORY STATUS REGISTER BA == <15:14>=01
“PERFORM ''SOFT=INIT'' == <15:14>=10Q
*WRITE CURSOR POSITION Y-COORDINATE == <15:14>=11

;FORCE STOP INTERRUPT
;ENABLE ERROR CHECKING
; CHANNEL PROTECT

SFLAGS REGISTER BIT POSITIONS:

PINTRA== BIT0
PINTRB== BIT1
PVEC2== B]T?

B]T3

JSLCKO==

;PENDING INTERRUPT, CHANNEL A
SPENDING INTERRUPT, CHANNEL B
:VECTOR BIT 2 FOR INTERRUPT

:JOYSTiCK INTERRUPT LOCKOUT

: ERROR CODE DEFINITIONS.

1%}2

: ERROR (COMPOSITE).
100000
; NONEXISTANT MEMORY ERROR.
CSR
ERR'4000'SEL
ERR'14000'SELCSR ; MEMORY PROTECTION ERROR.

1316
1317
1318

100000
104003
114003

ERR==
NXME==
MPE-=

1320

120003

SEQERR== ERR!'20000!SELCSR ; SEQUENCE ERROR.

1319

1321

1322

1352

1246003

RSVDOP== ERR'24000'SELCSR : RESERVED OPCODE, RESERVED OPERATION.

140003

SYNCTO== ERR.40000!'SELCSR ; SYNC TIMEOUT FROM IMAGE MEMORY.

150003

DRDYTO== ERR'S0000!SELCSK ; DATA READY TIMEOUT (JOYSTICK STATUS).

144003

DAVTO== ERR.44000.SELCSR ; DATA AVAILABLE TIMEOUT (PIXEL READBACK).
:DXR, DYR BITS

}ggg

132/
1308

010000
010000

CHIE
JSMIES

==B]T1?2
==R]T12

: CROSSHAIR INTENSITY ENABLE STATUS (1=0N)
. JOYSTICK MATCH INTERRUPT ENABLE STATE

1330

042000

wJSS

=-BIT14 .B]T10

: WRITE JOYS1]ICK STATUS REGISTER

1329

}ggg

004000

160000

1333
1334

000403
000402
000401
000400

; WRITE EXTENDED CURSOR CONTROL

SKP3=
SKP2=
SKP1=
SKPO=

BR+3
BR+?2
BR+1
BR+0

:SKIP NEXT 3 WORDS.
:SKIP NEXT 2 WORDS.
:SKIP NEXT WORD.
;SAME AS A NOP.

;

1343
1344

1346

==160000

> JOYSTICK SWITCH INTERRUPT ENABLE STATE

:SOME HANDY =11 OPDEF'S.

1342

1345

WwECC

-~=RITI

}%gg
1337
1338
1339
;gzg

JSSIES

; SOME GENERAL EQUATES.
;

000004

ERRVE (==4

: POINTER TO ERROR VECTOR FOR BUS TIME OuUT.

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

SPECIAL MACROS AND OPDEFS.

LSBTTL

;;ég
1351

1352

1353
1354
}ggz

000000

1363

PAGE 28

SEQ 0034

SPECIAL MACZROS AND OP DEFS.
EN=0

;

.MACRO SETUP FUNC N1 N2 N3 N
fFUNC! (H'N1
JI1F NB <Ni>,
FUNC! CH'N?
1IF NB <N2>,
FUNC! CH'N3
JIIF NB <N3>,
JIIF NB <NG>,
SETUP
.ENDM

FUNC. CH'N4

1364
1365

: MACROS FOR ASSEMBLING VECTO R
: CALLING ARGUMENTS ARE:

1368

1366
1367

1369

1370
1371
1372
1373
1374
1375
1376
1377
1378

1379

;
:
:

, e

DX = B

1387
1388

IUIU.

;ASSEMBLE SHORT (1 WORD) DATA,
.MACRO SXY A,B,C(
.1 - 40000
.DX = B+200
DY = C
J1F IDN <U> <A>, .
0
JIF LT B, .DX = <-Bx 200>!20000
LIIF LT C, DY = <=(> 1100
L1..DX.DY
.WORD
SXy
.ENDM

1382

1384
1385
1386

DITTO

C = DELTA Vv,

.MACRO

1383

DATA.

A = INTENSIFY BIT, ']
B = DELTA X, +/-0 THR U 1776 (76 1F SHORT TYPE).

1380

1381

INITIALIZE ERROR NUMBER

: MACRO TO XCT MEMORY SETUP F UNCTIONS (STAT ( INSTRUCTIONS)
: VAILD FUNCTIONS ARE:
: PROTEC, READ, WRT, WRT1, RD WRT, RDWRT1, H(OPY.

1357
1358
1359
1300
1361
1362

29-JAN-81 17:22

LXY A,B,C

.1 = 40000

;ASSEMBLE LONG (2 WORDS) DATA.

DY = €

JIIF IDN <> <A>, ] =0
JIIF LT B, .DX = <=B> 120000

JIF LT ¢, DY = <=(> .20000

.WORD
.ENDM

J1..DX,
XY

.DY

VSVI1/vS11 == GRAPHI( SYS. DIAG MA{RO M1113

SPECIAL MACROS AND OPDEFS.

1390

1392
1393
139¢
1395

1398

1399

16400
1401

1402
1403

SETS AN ITERATION COUNT FOR THE (URRENT TEST.

.MACRO
LRADIX 10

TSTITLE

1414

\TNeT, <TEXTD>, <LK>

BONTST

TN-TSTESTNUM
JTEST NUMBER
EN-TN=100.
;INIT ERROR NUMBER SEQUENCE.
.J1F B <Lk>, MOV #1,[00PK
JDEFAULT = 1,
LJIF NB <LK>, MOV #LK,LOOPK

MOV

1609
1410

1415

BEGIN.TEST TEXT,LK,?TAG?,?TAG?

NLIST
LIST MC

1406
1407
1408

1413

SEQ 0035

SUBSEQUENT PRINTING (IF REQ'D) VIA "PRINTF TNAM_ TNUM'' (ALL.

1405

1611

ALSO INITS A SEQUENTIAL ERROR NUMBER SEQUENCE, AND

1604

1612

PAGE 29

MACROS TO STANDARDIZE THE INITIALIZATION OF EA(CH TEST.
PROVIDES AN ASCIZ TITLE STRING, AND POINTER FOR

12391

1396
1397

29-_AN-81 17:22

;TAGY:

MOV
B8R

(ASCIZ

TAGY:

TAG?:

#TN, TNUM

JSET

#TAGT, TNAM
TAG2

TEST NUMBER...

J...AND NAME POINTER.
JSKIP OVER THE AS(II.

\INXATEST XZD2XA: TEXT\

LASCIZ
.EVEN

\YA

TEXTA

.ENDM

BEGIN.TEST

LSBTTL

eee TEST

TSTITLE

‘'A°

A ASCI,!

AS(C]

LLIST ME
LLIST
:t..'tt.'."t'.t"....""...."'.'....."..".'t.....'..'.'."i'....."
4

BEGIN TEST °*A*

ASCI

143
1432

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

1435
1436
1437
1438
16439

NLiST
LNLIST ME
LLIST
JENDM

1440
1441
1642

1443
1444

1445
1446

C(ITERATION COUNT

TST]TLE

> MACROS TO STANDARDIZE THE END OF EACH TEST,
CNLIST

.RADIX

.MACRO

END,TEST

| SPECIAL MACROS AND OPDEFS.

1463

1464
1465

1466

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503

3
SEQ 0036

\TN

)I X

ME
S
LIST
T

ENDTST

.ENDM

END.TEST

THIS MACRO IS USED BY "END.TEST'' MACRO, ABOVE.

1459

1460
1461
1462

) e

M(C
S
LIST
IST 7 ME
IS T
ENDTN
LIST
N

1647
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458

PAGE 29-1

.MACRO

ENDIN

;ttt't't’ttt'ltfi.fittt't".t'.Ql'tt.fi"iit!t'*"t'.t"‘Q.t't'ttt"fi""tt
‘-'

.
o

END TEST

‘A L

"'tt'tttfififit'tttttfittt"tttitt.'tlttfi‘tttl'ttt'*'ttfitfi'fi'tttt*t'it""tttt

.ENDM

ENDTN

: MACROS TO DEFINE SEQUENTIAL ERROR NUMBERS FOR
: SUBSEQUENT SUPERVISOR ERROR CALLS.
: REQUIRES PRIOR USE OF "BEGIN.TEST'' MA(CRO.

.MACRO

SFERR ADDR,PNTR

.MACRO

DFERR ADDR.,PNIR,(CK

.IF
(xLOOP
.ENDC
.ENDM

NB, (K

.MACRO

SFTERR ADDR,PNITR,(CK

EN-EN+1
PC., INCERK
JSR
EN,ADDR,PNTR
ERRSF
PC,CKDROP
JSR
SFERR
.ENDM

EN-EN+1
PC.,INCERK
JSR
EN,ADDR,PNTR
ERRDF
P(C,CKDROP
JSR

: DEVICE FATAL.

DFERR

EN-EN+1
JSR
ERRSOFT
JSR
IF

PC,CKEMAX
NB, (K

.ENDM

SFTERR

.MACRO

HRDERR ADDR,PNTR,(K

(KLOOP
LENDC

; SYSTEM FATAL.

: SOFT ERROR.

PC, INCERK
EN,ADDR,PNTR

: HARD ERROR.

[ X

29-JAN-81 17:22

VSVI1/VS11 == GRAPMIC SYS. DIAG MACRO M1113

p—

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

SPECIAL MACROS AND OPDEFS.

1504

PN
—=O 000NN
W

d emd

D cd

d e

W
VW TN
PONININD
—b =3 =D b 2 d b d b

29-JAN-81 17:22

PAGE 29-2

SEQ 0037

NLIST
NLIST ME
LLIST
EN=EN+1
PC, INCERK
JSR
EN,ADDR,PNTR
ERRHRD
PC, CKEMAX
JSR
.IF

CKLOOP
.ENDC

.ENDM

N8, (K

HRDERR

* MACRO - DO SOME COMMON STUFF AT THE BEGINNING OF A TEST.
’

LNLIST
LIST ME
LLIST

.MACRO

COMBEG

JSR

PC,TSTGO

JSR

NLIST ME
.ENDM

PC.DPRESET

TITLE.
; DO SOFT INIT.

;

COMBEG

* MACRO - DO SOME COMMON STUFF AT THE END OF A TEST.
_MACRO

COMEND

JSR

PC.LOOP

B8R

’

NLIST
CLIST ME
LIST

BCS

TAG,?L,?X

JMP

TAG

x:usT

JSR

PC,TSTEND

. REPEAT 'TIL LOOPER EXPIRES.

. PRINT ERROR SUMMARY, IF REQ'D.

CNCIST ME
LIST

.ENDM

COMEND

* MACRO TO CONTROL ITERATION LOOPS.
_MACRO LOOPTO TAG
’
.NLIST
.LIST ME
LIST

JSR
BCS

.NLIST
NLIST ME
LIST
.ENDM

PC,LOOP
TAG

LOOPTO

29-JAN-81 17:22

| wSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
* SPECIAL MACROS AND OPDEFS.

PAGE 29-3

SEQ 0038

1561

MACRO - WRITE FROM SPEC'D DATA SOURCE INTO SPEC'D DSR ACCESS REGISTER.

ggLYOgSR, FLG, CSR, MRR, MPM, XRR, XPM ARE VALID ARGUMENTS FOR 'DSRREG"'.

=WORK.

.MACRO

JNLIST
.LIST MEB
LLIST

NTYPE

WTDSRA

DATSRC,DSRREG

.NT,DATSR(

.IF
M?!F

EQ, .NTR*077-%027
DATSRCRAC17!SET'DSRREG,aDSR

MOV

,RO ; WRITE DATSRC INTO DSRREG .
#SET'DSRREG'

(0)%

RO,aDSR

.ENDM

WTDSRA

BIS

.ENDC
.NLIST
NLIST MEB
LLIST

DATSRC,RO

MACRO - READ FROM SPEC'D DSR ACCESS REGISTER INTO SPEC'D DATA DESTINATION.
ONLY DSR, PCS., FLG, CSR, MRR, MPM, XRR, XPM, HBA, (BA ARE VALID
"DSRREG'' ARGUMENTS.

DSRREG,DATDST

.MACRO

RDDSRA

MOV

#SEL "DSRREG' ,aDSR

T ME

—

N U=

-2z

g
s

RO=WORK.

MOV

.NLIST
NLIST ME
LLIST

.ENDM

aDSR,DATDST

;

READ DSRREG INTO DATDST

RDDSRA

* MACRO - IF R1-R2, BRANCH TO OK, ELSE CALL HARDWARE ERROR.
’

.NLIST
LLIST ME

LIST

_MACRO

IFERROR ARG1,ARG2,?0KS$,CK

CMP
BEQ
HRDERR

R1,R2
0K$
,
ARG1,ARGZ(K

.ENDM

IFERROR

LNLIST
LIST ME
LLIST
0KS$:
CNLIST ME

; OK?
; YES.
; NO.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

SPECIAL MACROS AND OPDEFS.
1618

%g}g
1627

1622
1623
1624

1625

29-JAN-81 17:22

NLIST
LLIST ME
LLIST

.MA(RO

IFERRXZ2 ARG1,ARGZ,?0K$,?ERR,(K

CMP

R1,R2

: 1ST ITEM 0OK?

cMP

R3 R4

: ZND ITEM 0OK?

BNE

1628

BEQ

1635

1636
1637

1638

1639
}gz?

1642

ERR:

.ENDM

IFERRX?2

NLIST
LIST ME
LLIST
0KS:
.NLIST ME
:

: IN TWO WAYS.
: NOT HUNG UP,

INITDP

JSR

PC.DPINIT

DPSTART ADRS

MOV
JSR

ADRS ,aDP(
PC,WAITF

.ENDM

DPSTART

.MACRO

DPCONT

BIS

#B170,aDPC

NLIST
LIST ME
LLIST

1659
1660
1661

LNLIST
NLIST ME
LLIST

1663
1664

1665

1666

1667
1668
1669

1670

1671

1672

1673

1674

; NO.

NLIST
LLIST ME
LLIST

JSR

CNLIST
CNLIST ME
LIST

THIS DIFFERS FROM 'DPINIT"

: GO DO SOFT INIT, CHECK THE STATE.

INITDP

.MACRO

1654
1655
1656

1662

: YES.

FJIRST, IT IS ASSUMED THAT THE DPU IS STOPPED AND
SECOND, NO CHECKING IS DONE BY THIS CODE.

.MACRO

1647
1648
1649
1650

1657
1658

: NO.

: MACRO - SOFTWARE INITIALIZE YHE DPU.

.NLIST
.NLIST ME
.LIST
.ENDM

1653

0K$

ARG1,ARGZ,(CK

1643
1644
1645

1651
1652

ERR

HRDERR

NLIST
.LIST ME
LIST

1646

SEQ 0039

;

1626

1630
1631
1632
1633
1634

: MACRO - [F R1=R2 AND R3=R4, BRANCH TO OK, ELSE CAL{ HARDWARE ERROR.

1627

1629

PAGE 29-¢4

PC, WAITF

: START THE DPU.
; WAIT FOR DISPLAY STOP.

: CONTINUF THE DPU.

: WAJT FOr D]SPLAY STOF.

———

VSV11/V§11 == GRAPHIC SYS. DIAG MACRO M1113

SPECIAL MACROS AND OPDEFS.
1675

1676

1677

1678
1679
1680
1681
1682
1683
1684
1685
1686

1687

1688
1689
1690
1691
1692
1693
1694

1695
1696
1697
1698
1699
1700

29-JAN-81 17:22
. ENDM

.MACRO

NLIST
.LIST MEB
LIST
NTYPE
MOV
BIS

.IFF
MOV

BIS

MOV

.NLIST
.NLIST MEB
LLIST
. ENDM
-.MACRO

.NLIST
.LIST MEB
LLIST
NTYPE
.IF

= OVONFNDUWN—=O
VNN WN—=OY

B —b —b

BIC
MOV

wwr\:mmmam\

b
md
d b e
b =D o
b d
) e
b
o

SEQ 0040

DPCONT

BISW3

S1,S2.DST

.NT,DST

EQ,.NTE*070
S2,DST
$1.DST

S2,-(SP)
S1,(SP)

(SP)+,DST

BISW3

;MACRO TO DO A 3-OPERAND BIT-(LEAR:

MOV

ed d D

.ENDC

BIC
.IFF

SNNNNNNSNINN SNINNNNNNNNNNNNNY
P U SR

PAGE 29-5

:MACRO TO DO A 3-OPERAND BIT-SET:

MoV

b o

—

-ENDC

NLIST
.NLIST MEB
LLIST
.ENDM

BICW3

§1,52.0ST

v 4§ ~

‘

.NT,DST

£Q,.NT&*070
S2,DST
$1,DST

$2,=(SP)
$1,(SP)

(SP)+,DST

BICW3

:MACRO TO SET UP THE INTERRUPT MASK AND PRIME THE INTERRUPT FLAG:
.MACRO
NLIST
.LIST MEB
.NLIST ME
LLIST
.1F
MOV
.IFF
MOV

.ENDC
.NLIST
.NLIST MEB
LLIST
.ENDM

INTSET

IEX

NB,IEX

INTMASK
JOK* TEX, 0!
7740
JOKCKIN.
#%01
#20177400! JOKCKIN, INTMASK

INTSET

; PRIME FLAG, EXPECT JEX

; PRIME FLAG, NO INTR., EXPECTED.

Yo YWad

- VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN=-81 17:22

SPECIAL MACROS AND OPDEFS.

NV
— N

—t—

)

SEQ 0041

MOV
RT]

LIST
LIST ME
.LIS
-

I’y
(V]

741

740

——
2

7
7

" MACRO TO FORCE IN-LINE RETURN FROM REAL OR IMAGINED INTERUPT.
.MACRO FORRTI
’

—r2Z

;gg
736

PAGE 29-6

.ENDM

#.+6,(SP)

FORRT]

: FORCE RTI RETURN TO * < NEXT LOC.

—c

.SBTTL

1747

1748
1749
1750
1751
1752

1767

1768
1769
1770

FORCER:

001700

MFGMO:

1700

MANUFACTURING MEMORY O MASTER SPECIFICATION.
IN MANUFACTURING MODE, MEMORY O IS COMPARED
WITH THIS VALUE WHEN SYSTEM CONFIGURATION IS
DISCREPANCY IS REPORTED.
EXECUTED.
Y
(CURRENTL SHOWN FOR 4 BIT MEMORY.)

120000

MFGSO:

120000

MANUFACTURING SYNC CHAN O MASTER SPECIFICATION.
IN MANUFACTURING MODE, SYNC CHAN O IS COMPARED
WITH THIS VALUE WHEN SYSTEM CONFIGURATION IS
DISCREPANCY IS REPORTED.
EXECUTED.

-~ BY THE MACRO ''IFERROR''). AN ERROR NEED NOT - EXIST, JUST ASSUME AND TYPE THE MESSAGE.

0,0,

1766 C03024

: FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

000000

1756
1757
1758
1759
176C 003022
1761
1762
1763
1764
1765

THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER
T0 OBTAIN THE RESULTS DESCRIBED FOR EA(H.

1755

USER PAT(CHABLE FLAGS

1753

1754 003020

PAGE 30

(CURRENTLY SHOWN FOR INTERLACED SYNC (HAN.)

SEQ 0042

—

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

USER PAT(HABLE FLAGS

29-JAN-81 17:22

GLOBAL DATA SECTION

.SBTTL

1772

1773

1274
1775
1776
1777
1778

PAGE 31

SEQ 0043

GLOBAL DATA SECTION

+¢

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
IN MORE THAN ONE TEST.

1779

THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIMF,

1780

1781
1782
1783 003026
1784 003030
1785
1786
1787

1788

29-JAN-81 17:22

: SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE.
000000
000000

UNITN::
QVP::

;UNIT # UNDER TEST.

0
0

;QUICK VERIFY FLAG.

"DEVICE REGISTER ADDRESSES +#* KEEP IN THE ORDER GIVEN wx+
172010

;DISPLAY PC

172012

172014
172016

DPC::
DRR::
DSR::
DXR::
DYR::

172012
172014
172016

;DISPLAY STATUS REGISTER (ALSO REL REG).
;DISPLAY X POSITION REGISTER.
:DISPLAY Y POSITION REGISTER.

003042
96 003044
1797 003046

172020
172022
172024

LSR::
LDR::
LMR::

172020
172022
172024

; LOOK=-UP-RAM STATUS.
DATA.
:

003050
003052
003054
003056
003060
1804 003062

000200
000320
000324
000330

DPRI]::
STPV::
JSMV::

003032
007724
~ ,034
v0303k
003040

1798

1799
1800
1801
1802
1803

1805
1806 003064

JSSv::
LtuTv::

040000

OPTI::

AND MAINT REGISTERS.

; INTERRUPT PRIOCRITY.
:STOP VECTOR
;JOY=STICK MATCH VECTOR.

;TIME-OUT VECTOR

TOTV::

000334
000340

;

1 JOY=STICK SWITCH (DEMAND) VECTOR.

: LUT READ/WRITE DONE VECTOR.

OPTIONAL “'INTENSIFY'' BIT FOR DPU.

.IF DPUMOD - O, OPT] = 1(NTENSIFY).

:...OTHERWISE, OPTI

0 (UNINTENSIFY).

* AND THESE ARE SET BY THE IMAGE MEMORY SIZER.
PDI::
PDF ::
PDM:
;

1+B]T¢€
17+-B]T6

A(<17+B]T6>

;NUMBER OF PIXEL BITS (2, 4, 6, OR 8).

JPIXEL DATA INCREMENT (MIN INTENSITY).
tPIXEL DATA FIELD (MAX INTENSITY).
;PIXEL DATA FIELD MASK.
Y

176077

PDBITS::

IR YR

000004
000100
001700

003066
003070
003072
003074

[Vele aNTe RV, PRV 1)V)

putr Gt Gt Ghir Gt Gur guiir St

00 00 0o 0o Co 0o 00 Co

[P NN
SN

1807
1808
1809
1870
1811

172010

LYK

1789
1790
1791
1792
1793
179%
*795

STANDARD CONF I GURATIONS

BITS
2
4
6
8

PD]
0400

0100

0020
0004

PDF
1400
1700
1760
1774

—

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 32

SEQ 0044

GLOBAL DATA SECTION
1825

; STORAGE FOR DEVICE REGISTERS
1%3?
;DUMMY DEVICE REGISTERS...
1828 003076 000000 100000 000000 DuMMY: 0.100000,0,0
0,0,0,0
0.,0,0.,0,
000000
1829 003106 000000 000000
:...FOR MULTI=UNIT CHECKOUT.
1%%?
1832 003126

1833 003130
1834 003132
1835 003134
1836 003136

1837 003140
]ggg 003142
1840
1841 003144

1842 003146
1843 003150
1844 03152
1845 003154

“846 003156
1847 003160
;gzg 003162
185C 003164
1851 003166
1852 003170
1853 003172
1854
1855 003174
1856 003176
1857 003200
1858 003202

1859 003204

1860 003206

1861 203210

}gg% 003212

000000

IDPC::

:SAVED DPC ON ANY INTERRUPT.

000000

ILDR::
[LMR::

0
O

000000
000000
000000
000000
000000

000000

000000
000000
000000
000000

000000
000000
000000

IDSR::
IDXR::
IDYR::
ILSR::

DITTO LUT MAINT.
:SAVED "‘INTERNAL'® REGISTERS ON AN INTERRUPT (IN ORDER OF SELECT CODE):
ISDSR:: 0

IPCSAV::
IFLAGS::
ICSR:: O
IMAIN:: 0

JHBASE : :
IAUX:: O
ICBASE::

;SAVED PCSAVE
:SAVED FLAGS
:SAVED CSR
:SAVED MAIN SEG. MMGT.

: SAVE HISTOGRAM BASE
:SAVED AUX. SEG MMGT.
:SAVED CHARACTER BASE

000000

SMAIN:: O

000000

SCSR::

SHBASE : :

SAUX::

SCRASE : :

:SAVED MAIN SEG. MMGT.

:SAVE HISTOGRAM BASE

;SAVED CHARACTER BASE

:SAVED AUX. SEG MMGT.

; AND FINALLY SOME MISCELLANEOUS REGISTERS.

: SYS CONFIG FLAG (0=1ST TIME, NZ=SUBSEQUENT).

SCFLG:: 0

LUTAV:: 0
SHADLY:: O
NTS(8+2
HUE::

1871
1872

;STIK:: .BYTE
.BYTE
N
:
;

1873
}g;g

:SAVED CSR

1867 003216 000000
1868 003220 000000
;ggg 003222 110070

1880 003230
1881 003232

0
0

DSR
:SAVED °‘'SELECTED''

000000

00C000
000000

1866 003214 000000

1877
13;8 003226

DITTO DSR
DITTO DXR
DITTO DYR
DITTO LUT (SR
DITTO LUT DATA

SAVED DPC AT ANY OTHER TIMF.
SDPC:: 0
DITTO DSR
;
SDSR:: O
DITTO DXR
:
SDXR:: O
DYR
DITTO
SDYR:: O
TIMES
OTHER
AT
:SAVED INTERNAL REGISTERS
:SAVED ''SELECTED'' DSR
SSDSR:: 0
:SAVED PCSAVE
0
SPCSAV::
FLAGS
:SAVED
0
SFLAGS::

000000
000000
000000
000000

;ggé

1876 003224

:
;
:
:
;

0
O
O
0

.BYTE
BYTE

: LUT AVAILABLE FLAG (NZ= USE LUT).
: SHADING DELAY COUNTER (OPTIONAL).
: CURRENT COLOR POINTER (OPTIONAL).
-1, =1
-1, =1
-1, -1
-1, =1

; 8 JOY-STICK AVAILABLE FLAGS...
;... =1 -1 DUNNO...
;... 0 -NO...
;... +1 - VES.

; "DROPPED UNIT'' FLAG.

(00000

DUFLG:: O

000000

NODEV:: 0

.CODE IN ''CLEAN=UP''.
“FLAG 1O SAY NO DEVICE.

000001
000000

INTLAC:: 1
TEMP1:: O

: INTERLACED MODE
:SOME TEMP LOCATIONS.

INHIBITS DPU...

OuOBAL DATA SECTION

000000

000000
000000
000000
177777

1907
1908

1918 003502

SY(CTAR::
(TARS::

u,
0,
G
%4
e

; END OF SYNC CHAN TABLE.
; END OF CONFIG WORK AREA.

TABLE

T
T
N

¢,
0,
0,0,

CONF 1GURATION TABLES.

; SYNC CHAN (ONFIG WORK.

160001
TLXXXX
.BLKW

%R,

0
100000
TOXXXX
160000

ERTARE- O

SYNC CHAN FLAGS (1'S IN BITS 0=3 REFLECT SYNC CHANS AVAIL)

END OF MEM TABLE.

(TARE::

:
ERTABL

000000

MEM FLAGS (1°'S IN BITS 0-3 REFLECT MEMS AVAIL).

MEMORY (ONFIG WORK.

:ERROR STATISTICS

1909
1910
1911
1912
191%

1614
1915
1916
1917 003302

MEMTAR::
:
(TABM:

003266
1900 003270
1901 03270
1902 003272
1903 003274
1904 003276
1905 003300
1906 003302
1899

CTAR::

1898 003264

000000
000000
000000
000000
177777

MEMFLG::
SYCFLG::

1894 003256

1855 003256
1896 003260
1897 003262

HZ::
:
YMAX:

[od

1893 003256

000074
000000
000000
000000

: KT11, MEM AVAIL FLAG ; = 0 = <24K OR NO KT ; = NZ = >24K AND KT,
LINE FREQUENCY.
MAX Y ACCORDING TO LTNE FREQENCY.

:...AND SIZE C(IN WORDS).

FRESIZ::
KTFLG:: O

1889 003246

1890 003250
1891 003252
1892 003254

; XXDP+ (OMM BLOCK POINTER.
1ST FREE MEMORY ADDRESS...

1 OO0

1888

SEQ 0045

TEMPZ:: 0

—

1887

:
XX(OMM:
FREE::
0

1 OOOO

"883 003236
- 884 003240
1885 003242
1886 003244

000000
000000
000000
000000
000000

PAGE 32-1

-—

1882 003234

29-JAN-81 17:22

(1 WORD PER UNIT), 64 UNITS MAX:
UNIT NOT TESTED

UNIT
UNIT
UNIT
UNIT
UNIT

ONLINE, NO ERRORS
ONLINE, ENCOUNTERED XXXX ERRORS
DROPPED, NON-EXISTENT DEVICE REGISTER
DROPPED, NOT IDLE AT START
DROPPED, ENCOUNTERED XXXX £PRORS

[y P

,Sv11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

| GLOBAL TEXT SECTION

.SBTTL

1920

1921
1922
1923
1924
1925
1926
1927

SEQ 0046

TEXT SECTION

THE GLOBAL

TEXT

SECTION CONTAINS FORMAT STATEMENTS,
| NFORMATION THAT ARE USED

MESSAGES, AND ASCII
MORE THAN ONE TEST.

)

XYX:

LASCI2
JASCIZ
LASCII
LASCIZ
LASCII

/
NON-EXISTANT DEVICE REGISTER/
/%A
ADDRESS: X06/
/%A
DPC,DSR EXP'D: XZ06XA,%06%N/
/%A
DPC,DSR REC'D: Z06XA,X06/

FUSI:

LASCII

/ANXA/

1928 003504
1929 003543
1930 003564

NXR :
NXRX :
PCSX:

1932
1933
1934
1935
1936
1937

1931

GLOBAL

PAGE 33

29~JAN-81 17:22

003622
003657
003715
003752
003756

LASCIZ

/%A
/%A

DXR,DYR EXP'D:
DXR,DYR REC'D:

Z06%A,%06%N/
Z%06XA,%06/

JSI:
NSI:

JASCl1Z
.ASCIZ

1938 004072
1939 004135

uT0:
NTO:

LASCI2
.ASCIZ

/
UNEXPECTED ''STOP'' INTERRUPT/
/
‘'STOP'' INTERRUPT EXPECTED, NOT RECEIVED/
/XANZA/
/
UNEXPECTED DPU 'ERROR'‘ INTERRUPT/
/
DPU "ERROR'* INTERRUPT EXP'D, NOT REC'D/

1941 004212
1942 004251

UMI :

LASCIZ

FUTO:

FUM] :

1940 004206

1944 004315

1945 004321
1946 004356

004400
004434
004503
004534
004566
004612
004642
004676
004724
004746
1957 004773
1958 005047
1959 005073
1960 005121
1961 05175
1962 005221
1963 005250
1964 005314
1965 005344
1966 005374
1967 005431
1968 005453
1969 005475
1970 005521
1971 005556
1972 005574
1973 005641
1974 005677

1947
1948
1949
1950
1951
1952
1953
1954
1955
1956

1975 005733
1976 006010

OO—= =200 ===
au QOO —
SN BONOROO/MNVINS
SO
NESNOSNNES
S 2N
V.lat Y a¥ RV IVIV, [ NIV, LYRVIV JUNL NIV, F IV, LVIV.Te NIV [ .S LVIVI S fe Yo XV, IV, |

“943 004255

045

FUSWI:

USw] :

FNOINTR:

NOINTR:

IFAULT:
INTX:

NOINIT:
SSF:
RJF :
JSF:
ESF:

LASCII

.ASCI]

LASCII

.ASCIZ
.ASCIZ

,ASCIZ
JASCIZ

_ASCIZ
ASCIZ
LASCI12Z
.ASCIZ
JASCIZ

PDX] :

JASCIZ

OPCFX:
RELF :

.ASCIZ
LASCIZ

APF :

LASCIZ

OP(CF :

RELFX:

LASCIZ

.ASCIZ

/INXA/

UNEXPECTED 'MATCH'' INTERRUPT/

/XINZA/

UNEXPECTED ‘'SWITCH'' INTERRUPT/
/
/ANZA/
LASCIT
/
/

NO INTERRUPT WAS GENERATED/
INTERRUPT FAULT/

NNNNNN
N

004014
004066

"BUS-INIT'* DIDN'T INITIALIZE DISPLAY/
START-NOP-STOP FAILURE/

/%A

CPU PC:

Z06%A

DPC:

206/

RE SUME -NOP-JUMP FAILURE/

JUMP SELF FAILURE/
EXTERNAL STOP FAILURE/

PIXEL DATA XFER INCORRECT/
NULL OPCODE FAILURE/
/XNXA
OPCODE: %06/
/
RELOCATION FAJLURE/

/XNXA

INITIAL DPC:

Z06XA, PELOC(DSR):

/XNXA

ORIGIN:

X042A,%04%A

DX.DY:

/XNXA

ORIGIN:

X04%A,X04%A

DXY:

/
/

ABS POINT FAILURE/
LONG VECTOR FAILURE/

/
/

REL POINT FAJLURE/
SHORT VECTOR FAILURE/

GRAPH-HISTO X FAILURE/

BIT MAP FAJLURE/

CHAR MODE FAILURE/

TEST ABORTED/

LVF:
LONGX:
RPF :
SVF:
SHRTX:
GHXF :

.ASCI1Z
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
JASCIZ

GHXYX:

LASCIZ

GRAPH-HISTO Y FAILURE/
/
/XINYA
AMPL: X06%A
INCR: 202/

LASCIZ

/%NXA

OPCODE:

L_ASCI2

/ANXA

BASE:

GHYF :

B8MF :

8MX ;

CHRF :

CHRFX:

LASCIZ

JASCIZ

LASCIZ

PRBHNG:
FRBH:

.ASCI]
LASCI2Z

IMDIX2:

.ASCI1Z

IMD]:
IMDIX:

LASCIZ
.ASCII
JASCIZ

XO6%A,%06/

%06/

X062A

C(HAR:

203/

/
PIXEL-READ-BA(K FAILS OR MANGS DPU/
IMAGE MEMORY DATA INCORRE(CT/
/
/%A
ADDRESS (X,Y): X04%A,%04/

/AINXA
/ANXA

XO6IN/

FIELD: XO4%A
EXP'D: Z04XA
REC'D: 204/
SUSPECT RAM GROUP X012%A, IMAGE MEMORY C(HANNEL
: 01/

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL TEXT SECTION

040

040
040
040
040
040
040

040
040
040
040
040
049
040
040

D
R
D
b —d
d
D and
d
ed ek e
e
b
D od

PAGE 33-1

SEQ 0047

ADDRESS (X,Y): X04XA,%04/

IMDIXC:

.AS

/INYA

NLRI]:
NLW]:
ULRI:

.AS
LAS
.AS
.AS
.AS

/
/
/

LUT WRITE INTERRUPT EXPECTED, NOT RECEIVED/
UNEXPECTED LUT READ INTERRUPT/
UNEXPECTED LUT WRITE INTERRUPT/

LUT AUTO-INCR INCORRECT ON WRITE/

ULWI:
LINTX:
LAIER:
LAJEW:
LDINC:

LRWX:
NSINIT:
BRINIT:
IDPCE:
IDSRE:

:
MRPCE
MRFLE:
MR(SE:
:
MRMPE
:
MRXRE
:
MRXPE
:
MPDSE
:
MPP(E
LE :
MPF
:
MP(SE
MPMRE:

(SR: 206/
/XA
LUT AUTO-INCR INCORRECT ON READ/
/
/

/%A

:
1CSRE
:
IMRRE
IMPWPE: .
:
IMPME
:
IXRRE
:
IXPME
:
I XPWPE
:
JHBAE
:
1(BAE
JPDPCE: .
JPPCSE:
DPDSE:
:
DSDPE
:
DSDXE
DSDYE:
DSPCE:
DSFLE:
DSCSE:
:
DSMRE
:
DSMPE
:
DSXRE
:
DSXPE
(SDSE:
CSPCE:
CSFLE:
:
({ SMRE
CSMPE:
(SXRE:
:
CSXPE
MRDSE:

/AINYA FIELD: T04%A EXP'D: %04%A REC'D: %04/
[MAGE MEMORY (HANNEL: %01/
/INXA SUSPECT RAM GROUP X01%A,
/ LUT READ INTERRUPT EXPECTED, NOT RECEIVED/

N~ NN N N NN NN NN NN NN NN NN NNNNNNNNNNNNNR
R R BRI
RN

040

D e and

040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040

b —d —d ——

88000?

040
040
040

D e

b —d D

loleolele]

D —d
b
b
b ad
b ad
v
ed e
el eod e

-l

2026
2027

ek ik b ek =D =d =2 OO

e e ——d

(oleolelololalelololelalolelalelolalolelold
o)

2025

040

007277
007326
007355
007404
2000 007447
2001 007476
2002 007525
2003 007557
2004 007611
2005 007651
2006 007711
2007 007751
2008
2009
2010
201
211
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024

1996
1997
1998
1999

104

d —d —d

1993 007156
1994 007205
1995 007234

006760
007030
007100
0C7127

114
114

006555
006617
006662
006707

114

1985
1986
1987
1938
1989
1990
1991
1992

125
125
040

1983 006477
1984 006540

040
040
040
040
045
040
040
040
045
040
040
040
040
040
040
040
040
040

1Me
114

P NWW— 2O
D edmd
b ed D —d b B ed 2 OO OOQOOCO OO0 OO0OO0OOOCOOOOOOO
o3 o S8BT NOOOOWVMWNIINWN
AN
NN
NA NN
N N N WNN [WVP

1980 006306
1981 006362
1982 006437

045
045
045

et e ed

"978 006137
1979 006214

045
045
045

1977 006101

29-JAN-81 17:22

LUT DATA INCORRECT/

C(SR: Y06%A EXP'D: X06XA REC'D: %06/
"'SOFT=INIT'' DIDN'T INITIALIZE THE DPU/
"BUS~RESET'' DIDN'T INITIALIZE THE DPU/
DPC READ/WRITE ERROR#
DSR READ/WRITE ERROR#
(SR READ/WRITE ERROR#

MRR READ/WRITE ERROR#

MPM WRITE/MWP (HBASE) READ ERROR#
MPM READ/WRITE ERROR#
XRR READ/WRITE ERROR#
XPM READ/WRITE ERROR#

XPM WRITE/XWP (HBASE) READ ERROR#

H3A READ/WRITE ERROR#

(BA READ/WRITE ERROR#
DJMS/DPOP FAILURE (DPC)A#

DJMS/DPOP FAILURE (PCS)#
DPC (W) ,DSR(R)
DSR(w) ,DPC(R)
DSR(W) ,DXR(R)
DSR (W) ,DYR(R)
DSR(W) ,PCS(R)
DSR(W) ,FLG(P®
DSR (W) ,CSR(K)
DSR (W) ,MRR(R)
DSR (W) ,MPM(R)
DSR (W) ,XRR(R)
DSR(W) ,XPM(R)
CSR(W) ,DSR(R)
(SR(W) ,PCS(R)
CSR(W) ,FLG(R)
CSR(W) ,MRR(R)
CSR(W) ,MPM(R)
(SR(W) ,XRR(R)
(SR(W) ,XPM(R)
MRR (W) ,DSR(R)
MRR (W) ,PCS(R)

MRR (W) ,FLG(R)
MRR (W) ,CSR(R’
MRR (W) ,MPM(R)
MRR (W) ,XRR(R)
MRR (W) ,XPM(R)
MPM (W) ,DSR(R)
MPM (W) ,P(S(R)
MPM (W) ,FLG(R)
MPM (W), CSR(R)
MPM (W) ,MRR(R)

ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAUL T/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULTY/
ADRS FAULT/
ADRS FAUL T/
ADRS FAULT/
ADRS FAULT/
ADRS FAULY/
ADRS FAULT/
ADKS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
ADRS FAULT/
DUAL ADRS FAULT/
DUAL ADRS FAULT/
DUAL ADRS FAUL Y/

DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL
DUAL

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

PCSERA:
FLGERA:

(SRERA:

MRRERA:
MPMERA:
XRRERA:
XPMERA:
HBAERA:
{BAERA:

_ASCIZ
.AS(CI]Z
.AS(CI1?Z
.ASCIZ

.ASC]Z
.AS(C]2

.AS(C]2

.AS(CI2
.ASC(C]Z
.AS(CI12
.ASCIZ
.ASC(C]Z
.ASC(C]2Z

MPM (W), XPM(R)
XRR (W) ,DSR(R)
XRR (W) ,PCS(R)
XRR (W) ,FLG(R)
XRR(W),(SR(R)

DUAL
DUAL
DUAL
DUAL
DUAL

ADRS
ADRS
ADRS
ADRS
ADRS

FAULT/
FAULT/
FAULT/
FAULT/
FAULT/

XRR (W) ,MRR(R) DUAL ADRS FAULT/

XRR (W) ,MPM(R® DUAL ADRS FAULT/
XRR (W) ,XPM(R) CUAL ADRS FAULT/
XPM(W) ,DSR(R) DUAL ADRS FAULT/
XPM(W) ,PCS(R) DUAL ADRS FAULT/
XPM(W) ,FLG(R) DUAL ADRS FAULT/
XPM(W) ,(SR(R) DUAL ADRS FAULT/
XPM(W) ,MRR(R) DUAL ADRS FAULT/
XPM(W) ,MPM(R) DUAL ADRS FAULT/
XPM(W) ,XRR(R) DUAL ADRS FAULT/
MAIN MEM MGT ACCESS FAULT/
AUX MEM MGT ACCESS FAULT/
MAIN MEM MGT NON-EX]ST MEH FAULT/
EXP'D: XO6XA, REC'D: %06/
(DPC)
EXP'D: XO6YA, RE(C'D: 206/
(DSR)
EXP'D: 1062A, REC'D: %06/
(DXR)
EXP'D: XO6XA, REC'D: Z06/
(DYR)
EXP'D: X06XA, RE(C'D: %06/
(PCS)
EXP'D: Y06XA, REC'D: Z06/
/ZA (FLG)
EXP'D: Z06XA, REC'D: 206/
(CSR)
EXP°'D: XO6XA, REC'D: %06/
(MRR)
EXP'D: Z06XA, REC'D: %06/
(MPM)
EXP'D: T06XA, REC'D: Z06/
(XRR)
EXP'D: X06XA, REC'D: 206/
(XPM)
EXP'D: Y06XA, REC'D: 206/
(HBA)
EXP'D: X06XA, REC'D: X06/
((BA)

NNNN;
>P>>>

DPCERA:
DSRERA:
DXRERA:
DYRERA:

/
DIDN'T GET EXPECTED ERROR CODE/
JASCI12
ECE:
;MORE ERROR MESSAGES ~--

ONW— O N =200 NLRNORO NN NU N N N NN

D
d e med
b o
b e md e
D
b e
b
b cd

AS(I2
_AS(C]I2
.AS(]Z
.AS(CI2
L.ASCI2
.ASCIZ
_ASCI2
_ASCI2
XPXRE:
_AS(CIZ
MMMACE: _ASCIZ
XMMACE: .ASCI2
MMMNXE: LASCIZ

(RWRZ: .AS(CIZ
(RWRO: .AS(]2
CRDAX: .ASCI2
(RDAY: .ASC(CI2
C(RWRE: .ASCIZ
JSEWRZ: ,AS(]
JSEWROD: .AS(]
CEZWE: .ASCIZ
CESWE: .AS(C]Z
JENOCL: .AS(]
CSRGSNE: .ASC

040
040
040
040
040
040
040
040
040
040
040
040
104

ASCIZ

MPM (W) ,XRR(R) DUAL ADRS FAULT/

NNNNNN§
PPpPD>P>

101

115
040

XRDSE:
XRP(E:
XRFLE:
XRCSE:
XRMRE:
XRMPE:
XRXPE:
XPDSE:
XPPCE:
XPFLE:
XP(SE:
XPMRE:
XPMPE:

.AS(CIZ
(AS(I]Z
.AS(CIZ
.ASCIZ
.AS(]Z
.AS(lZ

SEQ 0048

NN N L

130

130
130
130
130
130
115

MPXRE:
MPXPE:

130

2063

'30

130

NOCM]:
NOMST:

ON—=OO=NIN 2222200000

2061
2062

'30

130

2053 (72643
2054 012706
2055 01275
2056 013014
2057 013057
2058 013122
2059 013165
2060 013230

130

2052 012600

20
130

=D —

2049 072451
2050 0125M1
2051 0125645

11§

2048 012411

115

_—

20% 01151
2035 011551
2036 0116M1
2037 011651
2038 011711
2039 0117%1
2040 012011
2041 012051
2042 012111
2043 012151
2044 012211
20«5 012251
2046 012311
2047 ¢ 2351

PAGE 33-2

NONNN
NN N

VSV11/vS11 == GRAPHMIC SYS. DIAC MACRO MI1113

. GLOBAL TEXT SECTION

0= AN=-81 17:22

CSRGENS:

(SIFC:

.ASC

LAS(I]

NOSWP]: .ASCI
NOSWI:
.AS(!
SWIRV:
.AS(]
SWNOHLT: LASC(
SWNOCU: .ASC(CI]

_ASC(]
LAS(]

{MNOM]. _AS(C]

CURSOR REGISTER WRITE/READ ZEROS ERROR"’
CURSOR REGISTER WR]TE/READ ONES ERRTR'
CURSOR REGISTER DUAL ADDRESS - WRITE Y (HANGED x'°
CURSOR REGISTER DUAL ADDRESS - WRITE X C(HANGED Y''
CURSOR REGISTER WRITE/READ ERROR'®
JOYSTICK ENABLES WRT/RD 0°'S ERROR''
JOYSTICK ENABLES WRT/RD 1°'S ERROR'’
JOYSTICK ENABLES ZERO-THEN-WRITE ERROR'’
JOYSTICK ENABLES SET-THEN-WRITE ERROR''
J.S. CHANNEL DECODE ERROR - ENABLES DIDN'T C(LEAR'
REGISTER ERROR AFTER J.S. SWITCH SET, NO ENARLE"'
REGISTER ERROR AFTER J. S. SWw ENABLE SET, NO SWITC(H'
INTERNAL REG. ERROR AFTER CLEARING J.S. SW INTR'
ERROR [N FLAGS REG. == SHOULD SHOW PENDING SW INTR'
FAULTY J.S.

SWITCH INTERRUPT''

INCORRECT VECTOR ON J.S. SWITCH INTERRUPT''
SWITCH INTR REQ DiDN'T HALT DISPLAY PROCESSING - BAD DPC*’

FAULTY CURSOR RETRIEVAL ON J.S. SW INTR REQ"
MATCH INTFRRUPT FAULTY OR NOT RECE]VED"
NC STOP ON MAT(H INTERRUPT''
MAT(H BUT NO MAT(H [NTERRUPT"'

040
045
045
045
045
045
045
045
045
045
045
045
045

NUL(R:
RLXIE:

RLX2IE:
RLYUE:
RLYDE:

RLY2UE:
RLYZDE:
EXPGOT:

DUAD12:

INLE:
INLEXF:
:
SCPRE
SCIDE:
:
SCME
SCMFG:
SCM:

.AS

SCS:

JAS
.AS

NOMAN:

g St
B
g S
B

RIS RN R NI N N

g () Bmg S

SEQ 0049

INCORRECT VECTOR ON CURSOR MAT(H INTERRUPT''

WRONG DPC OR DSR FOR MATLH STOP''
WRONG DXR OR DYR FOR MAT(CH STOP’

*
*

INTERNAL REGISTER INCORRECT FOR MAT(CH''
INTERNAL REGISTER INCORRECT AFTER SETUP FOR MAT(H''

‘
*
Z (] *

>>
> >

wnununn

[}
et Dt Bt B

.ASC
.AS
.AS

'
*

WRONG DXR OR DYR AFTER POSITJON-RESTORE'’
FLAGS REGISTER INCORRECT FOR MAT(H''

UNEXPECTED INTERRUPT ON RESUME AFTER MAT(H''
DPC OR DSR WRONG ON AFTER RESUME FOI LOWING MAT(H''
CURSOR MATCHED AT WRONG POSITION''

‘ NO
/INXA
/AINYA
/AN%A

LASCIZ

CURSOR MATCH DETECTED''
EXP'D: X06X%A, XO6XNXA REC'D: 206%A, %06/
- X06%A, 206/
(X,Y)
CURSOR
REC'D DXR, DYR = X06XA, %06/

“"XN%A

SYNC GEN/JOYSTICK CHANNEL = %01

/ AN/
RUN-LENGTH
RUN-LENGTH
RUN-LENGTH
RUN-LENGTH
RUN-LENGTH
RUN-LENGTH
NN

:
NUL

(%]

FSYCHAN:

LBPPPP B>

OOOQOO
=222 222 222
BB
OONNO — 2NN —
VIV IV TV, Yo SWYP NV To A
R
i Ve N

045

MATPCS: .
MATXYE: .
:
MATPOS
RE:
LAS(
MATI
LASC
MEREG:
MATFLE: LASC
:
.AS(
MATU]
MENDPCS: .AS
:
.ASC
CMPE
:
LASC
NOMAT
EXPGT?2: .ASC
FCOORD: .ASC

P3P

040
045
040
040

(MIVB:

[ XY X XY e XY XV 2 XV e X e RV N V2 N Ve RV e R Vo RV RV R V|

0
040
040
045
045

elolelalelolelolelole] —a_n_.lo_aoo...\_a_a_a.a_ao
wviawn
S S
S S oOroru &S = arorornINN 1
sHHE20oONMSH
SO WN0 WWO OwWVnoonnnNNO

016715
016751
017010
017051
017105
017207
017235
017326
017355
017416
017461
017534
017552
017565
017601
017615
017632
017653
017666
017702
017716
017735

040
040

016663

000
045

016547
€16552
016613

)

016546

D e

Nr\,r\,_a_...a_a_aa_n_a_a_a00080
= OVONOPNSWN OO0V

PSSl

G- G

S-S S

Ry G

PORL AL NI AL RN RN N AD RNV NNV PO

016322
016377
2104 016437
016500

040
045
045
045
045

016267

040
040
040
040
040

016141
016224

040
040

040
040
040
040
040

=000 2000
[0 o R
R
Yo N
]

015663
015733
016017
016064

040
040
040

—

2091 015430
01550%
015547
015611

YYD

VSV11/vS11 == GRAPHIC SYS. DIAG MA(RO M1113

GLOBAL TEXT SECTION

PAGE 33-3

29-jaN-81 17:22

X=INCREMENT FAILURE/

X=DOUBLE

INCREMENT FAILURE/

Y-UP FAILURE/
Y-DOWN FAILURE/
Y-SKIP UP FAJLURE/

Y-SKIP DOWN FAILURE/

/%A EXP'D: X06XA, REC'D: %06/

/%A REG(W) WRITTEN TO: XO6XA REG(R) READ; EXP'D: Z06%A, REC'D: %06/
/

MEM INTERLACE ERROR/

PIXEL READBACK ERROR/

/%A
/
/

/%A

PIXEL READBACK EXP'D: %06XA, REC'D: X06XA, (HAN: %01/

SYNC CHAN INTERLACE DIFFERENCE/
CONFIG DOESN'T MATCH MFG. MASTER/

MFG MEM 0: X06%A, MFG SYNC CHAN 0: 206/

MEMORYS:/
/XNXA
0 = %06/
/XA
1 = 206/
/XA,
2 = %06/
/%A,

3 = %06/
/XA,
SYNC CHANS:/
/ANXA
0 = %06/
/XA
1 = 06/
/XA,
2 = X06/
/%A,
3 = X06AN/
/%A,

/INZA*x++ MANUAL INTERVENTION NOT ALLOWED =-- ABORTING =*e=**%N/

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

| GLOBAL ERROR REPORT SECTION

29-JAN-81 17:22

PAGE 34

SEQ 0050

GLOBAL ERROR REPORT SECTION

S}%g

.SBTTL

2139

2141
%}zg

* CALLS THAT ARE USED IN MORE THAN ONE TEST.
* ASCIT TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

* THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX

2140

2144

2145 020032
2146 020032
2147 020056 004737
S;Zg 020062

2150 020064
2151 020064
2152 020120
5;22 020124

2155 020126
2156 $20126
2157 020162

S}gg 020166

:NON-EXISTANT DEVICE REGISTER.
BGNMSG NXRERR
:NODEV = NEXM ADDRESS.
PRINTX A#NXRX ,NODEV
* PRINT EXTENSION IF REQUIRED.
PC,EXTEND
JSR

022276

ENDMSG

BGNMSG

004737

022276

022276
BGNMSG

BGNMSG

2165 020226

2170 020304

2171 020324

000465

2173 020334

001411

2175 020356

000450

2177 020366
2178 020370
2179 020410

001411

2181 020420
2182 020422
2183 020442

001411

2185 020452

001412

2172 020326
2174 020336

2176 020360
2180 020412
2184 020444

2186 020454
2187 020474
2188 020500
g}gg 020504

000377

132737 000002

000433

026107

000416

132737 000004
023516
022276

2192 020506 010137 072350
006237

072350

PC.EXTEND

:DISPLAY INTERRUPT ERROR SIGNATURE.

INTERR

PRINTX #INTX,R1,38DPC
PRINTX #NULCR
C(MPB ~ #~0377.INTFLAG
1$
BNE
BR

; PRINT EXTENSION IF REQUIRED.

#FNOINTR
208

;R1 = CPU PC
* PRINT A NEWLINE
-WAS ANY INTERRUPT GENERATED?
‘BR IF YES

: NO -= REPORT THE FA(CT

BITB

HIOKSTP,INTFLAG ; WAS IT AN UNEXPECTED ‘'STOP'' INTERRUPT?

PRINTX

#FUSI

BITB

#IOKJSM,INTFLAG ; WAS IT AN UNEXPECTED ‘MATCH'' INTERRUPT?

BITB

#]OKJSS,INTFLAG ; WAS IT AN UNEXPECTED '‘SWITCH'' INTERRUPT?

BITB

#IOKERR,INTFLAG ; WAS IT AN UNEXPECTED ‘‘ERROR'’ INTERRUPT?

20$:

PRINTX
JSR
JSR

4FUTO
PC,ERTCHK
PC.EXEND

BGNMSG

IMDERR

1%:

026107 2%:

132737 000010 026107

2191 020506

2193 020512

:BAD DXR AND/OR DYR SIGNATURE.
: R1,R3= EXP, R2,R4= REC.
#XYX,R1,R3,R2,R4

PRINTX

132737 000001

004737
004737

RLXYE
PRINTX
ENDMSG

S}gz 020224

122737

;BAD DXR AND/OR DYR SIGNATURE.
#XYX,R&4,RS,aDXR,aDYR ;R4 ,R5 = EXP X,Y
; PRINT EXTENSION If REQUIRED.
PC.EXTEND

JSR

2162 020220 004737 022276

001011

XYERR
PRINTX
JSR

ENDMSG

2160 020170
2161 020170

2166 020226
2167 020254
2168 020274
2169 020302

:BAD DPC AND/OR DSR_SIGNATURE.
#PCSX,R2.R3,aDPC,aDSR ;R2,R3 = EXP PC,SR
*"PRINT EXTENSION IF REQUIRED.
PC.EXTEND

ENDMSG

BGNMSG

004737

PCSERR
PRINTX
JSR

3%:

026107 4$:

BEG
BR

BEQ
PRINTX
BR
BEQ
PRINTX
BR
BEQ

ENDMSG

MOV

ASR

: BR IF NO.

: YES -- REPORT IT

20%

3$
#FUM]

: BR IF NO.
: REPORT IF YES.

4$
AFUSWI
20$

: BR IF NO
* REPORT IF YES

20%

REPORT IT.
“CHECK THE ERROR CODE
* PRINT EXTENSION If REQUIRED.

: IMAGE MEM DATA ERROR.

R1, IMCRAM
[MCRAM

: TRANSLATE X ADDR.

;...7T0 RAM NUMBER.

—

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL ERROR REPORT SECTION

29-JAN-81
PRINTX
PRINTX
JSR

2194 020516

2195 020552
2196 020602
2197 020606
2198
2199 020610
2200 020610
2201 020634

2202 020640
2203
2204 020642
2205 020642
2206 020672
2207 020676
2208
2209 020700
2210 020700
020724
020730

020732
020732
020756
020762
020764
020764
021010
021014
021016
021016
021042
021046

021050
921050
021074
021100

2233
2234 021102
2235 021102
2236 021126
2237 021132
021134
021134
021160
021164
021166
021166
2246 021212

2247 021216
2248
2249 021220
2250 021220

004737

022276

ENDMSG

BGNMSG

004737

JSR

022276

ENDMSG

BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG

BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG
BGNMSG6

004737

022276

LRWERR

PRINTX
JSR

ENDMSG

BGNMSG

004737

LINTER

PRINTX

ENDMSG
BGNMSG

EXPREC

17:22

PAGE 34-1

SEQ G051

,R3 R4
#IMDIX,R1,R2,PDF

#IMDIXZ2, IMCRAM, IMC. (H

PC.EXTEND

; PRINT EXTENSION IF REQUIRED.

; LUT INTERRUPT ERROR.

#LINTX,QLSR

PC.EXTEND

;

SHOW CSR.

; PRINT EXTENSION IF REQUIRED.

; LUT READ/WRITE ERROR.
#LRWX,ALSR,R1,R2 ; CSR, EXP'D, REC'D

PC.EXTEND

; PRINT EXTENSION IF "REQUIRED.

PRINTX
JSR

#EXPGOT ,R1,R2
PC,EXTEND

; R1=EXP'D, R2=REC'D.
; PRINT EXTENSION IF REQUIRED.

DPCER
PRINTX
JSR

#DPCERA,R1,R2

; R1I=EXPECTED, R2=RECEIVED.

PRINTX
JSR

#DSRERA,R1,R2
PC.EXTEND

; R1=EXPECTED, R2-RECEIVED.
; PRINT EXTENSION IF REQ'D.

DXRER
PRINTX
JSR

#DXRERA ,R1,R2
PC.EXTEND

; R1=EXPECTED, R2=RECEIVED.
; PRINT EXTENSION IF REQ'D.

#DYRERA ,R1,R2

: R1=EXPECTED, R2=RECEIVED.

H#PCSERA,R1,R2
PC,EXTEND

; R1=EXPECTED, R2=RECEIVED.
; PRINT EXTENSION IF REQ'D.

#+LGERA,R1,R2

; R1=EXPECTED, R2=RECEIVED.

PRINTX

#CSRERA,R1,R2

; R1=EXPECTED, R2=RECEIVED.

MRRER
PRINTX

#MRRERA,R1,R2

; R1=EXPECTED, R2=RECEIVED.

DSRER

DYRER

PRINTX

JSR

PCSER
PRINTX

JSR

FLGER
PRINTX
JSR

CSRER

JSR

PC.EXTEND

PC,EXTEND

PC,FXTEND

; PRINT EXTENSION IF REQ'D.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL ERROR REPORT SECTION

2251 021244
021250
021252
021252
021276
021302

021304
021304
021330
021334
021336
021336
021362
021366

004737

022276

021422
021422
021446
021452

021454
021454
021502
021506
021510
021510
021514
921516
021546
021606
021646

ENDMSG

BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

021370

G21370
021414
021420

29-JAN-81 17:22

ENDMSG

BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

ENDMSG
BGNMSG

004737

022276

005737
001414

002512

ENDMSG
BGNMSG

1%:
ENDMSG

021650
021650
021674
021714
021740
021760

BGNMSG

021762
021762
022006
022026
022052
022072

BGNMSG

ENDMSG

PAGE 34-2

SEQ 0052

JSR

PC.EXTEND

;

MPMER
PRINTX
JSR

AMPMERA ,R1,R2

; R1=EXPECTED, R2=RECEIVED.
; PRINT EXTENSION IF REQ'D.

XRRER
PRINTX
JSR

#XIRERA,R1,R2
PC,EXTEND

; R1-EXPECTED, R2=RECEIVED.
; PRINT EXTENSION IF REQ'D.

JSR

H#XPMERA ,R1,R2
PC.EXTEND

; R1=EXPECTED, R2=RECEIVED.
; PRINT EXTENSION IF REQ'D.

HBAER
PRINTX
JSR

#HBAERA ,R1,R2
PCLEXTEND

(BAER
PRINTX

#(BAERA ,R1,RZ

; R1=EXPECTED, R2-RECEIVED.

JSR

#DUAD12,R3,R1,R2
PC,EXTEND

: R3=WRITTEN, R1=EXP'D, RZ2=REC'D.
; PRINT EXTENSION [F REQ'D.

SYSCON
TST
BEQ
PRINTX
PRINTX
PRINTX

MFGFLG
: MFG MODE?
1%
: NO.
#SCMF
G ,MF GMO ,MF GSO
#SCM,MEMTAB
,MEMTAB+2 ,MEMTAB+4 ,MEMTAB+6
#SCS,SYCTAB,SYCTAB+2,SYCTAB+4,SYCTAB+6

XPMER

PRINTX

JSR

DUADRE

PRINTX

MMMAE
PRINTX
PRINTX
PRINTX
PRINTX

PC,EXTEND

PC.EXTEND

PRINT EXTENSION IF REQ'D.

RI=EXPECTED,

PRINT EXTENSION IF REQ'D.

ANUL CR

#DPCERA ,R1,R2

ANULCR

#XRRERA
,R3 R4

PRINTX

#NUL (R

JPRINT BLANK LINE

#NUL CR

#DPCERA,R1,R?

R2=RECEIVED.

; PRINT EXTENSION IF REQ'D.

AMRRERA ,R3,R4

XMMAE
PRINTX
PRINTX

PRINTX

ENDMSG

JPRINT BLANK L INE

Ve
GL

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL ERROR REPORT SECTION

~NOWNESWNn
OV

[NV ,N1, ST, N1, V1, V1, V] [a"]
(NWN NN N INNWN W
—
N) = —d b b
2

2308 022074
2309 022074
2310 022124
231 022130

022132
022132
022172
022176

29-JAN-81 17:22

BGNMSG

004737

(22276
BGNMSG

004737

022276

EXPR(2

PRINTX
gngSG
PNTCOOR

PRINTX
JSR

ENDMSG

022200
022200
022224

BGNMSG

022226
022226
022254
022274

BGNMSG

ENDMSG

PNTSYCH

PRINTX
ENDMSG
INLEX

PRINTX

PAGE 34-3

SEQ 0053

#EXPGTZ2,R1,R3,R2,R4
PC.EXTEND

;R1,R3 = EXP'D, R2,R4 - REC'D
; PRINT EXTENSION, IF REQ'D.

#FCOORD,(SMF4X,CSMF4Y,SDXR,SDYR
PC,EXTEND

#FSY(CHAN,(CSCHAN

#INLEXF,R1,R2,R5

ANULCR

;PRINT BLANK tINE

: THIS ROUTINE APPENDS A UNIQUE EXTENSION (I+ REQUIRED)
:

022276
022300
022302
022304
022310
022330

005727
000000
001402
004777
000207

TO ANY OF THE ABOVE ERROR SIGNATURES.

EXTEND: TST
EXTA:

177770

1%:

BEQ

JSR

g?gNTX

(PC)+

PC,aEXTA
g?ULCR

; 0 = NU EXTENSION.

; APPEND EXTENSION TEXT.
; PRINT A BLANK LINE

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

29-JAN-81 17:22

INTERNAL REGISTER CHECKER, ERROR (ODE HANDLER, DPINIT
S%%g

.SBTTL

2339

PAGE 35

SEQ 0054

INTERNAL REGISTER CHECKER, ERROR (ODE HANDLER, DPINIT

:ROUTINES TO CHECK CONTENTS OF INTERNAL REGISTERS.

UPON ENTRY, THE EXPECTED DATA SHOULD BE [N LOCATION '‘GDDAT'’

S%:?

2342

;MACRO TO ASSEMBLE REGISTER CHECK FRONT-END:

2343
2344
2345
2346
2347

99%:

23«8
Sggg

DSRCHK:
PCSCHK:
FLGCHK:
CSRCHK:
MMCHK:
HBCHK:
XMCHK:
(BCHK:

2351 022332
2352 022360
2353 (022410
2354 022440
2355 022466
2356 (22526
2357 022566
2358 022624
2361 022664
2362 022736
2363 022775
2364 023012

040
045
045
045

2367 023054

000000

S%gg

2368 023056
2369 023060
2370 023062
S%;} 023064

2373
2374 023066
2375 023072

2376 023076
2377 023104
2378 023112
2379 023120
2380 023122

ggg; 023142

040
116
116
116

045
045

000000
000000
000000
000000

012637
012677
017737
012777
023737
001410

023062
157736
157732
000000
023056

000207

023060
157722
023060

CHECK
CHECK
CHECK
CHECK
CHECK
CHECK
CHECK
C(HECK

CHECK

DSR,<DSR>
PCS.<PCSAVE>
FLG,<FLAGS>
CSR,<CSR>
MRR,<MAIN MEM MGMT>
HRBA ,<H]ISTOGRAM BASE>
XRR,<AUX MEM MGMT>
(BA,<CHARA(CTER BASE>

;CHECK THE DSR
. ...PCSAVE
I...FLAGS
;...CSR
:...MAIN-SEG MEM. MGMT.
:...HISTOGRAM BASE
:...AUX-SEG MEM. MGMT.
:...CHARACTER BASE

/
INCORRECT DATA IN INTERNAL REGISTER .../
/INXA EXP'D: Z06XA REC'D: %206/
/XNXA TEST: /
/AINXZA
... AFTER DOING SOFT INIT./

LOOPFL: :

.EVEN

0
0
0
O

:STORAGE
:STORAGE
;ADDRESS
;FLAG TO

:FLAG OR DATA FOR TEST=LOOP-DEPENDENT STUFF.

FOR EXPECTED DATA.
FOR ACTUAL DATA.
OF REGISTER NAME STRING.
SAY DOING SOFT INIT.

;COME HERE WITH (SP)=ADDRESS OF NAME STRING, 2(SP)=SELECT CODE.
IREGCK: MOV
(SP) + ,REGNAM
:GET STRING ADDRESS.
MOV
(SP) +,aDSR
;SELECT THE REGISTER.

1%:
BGNMSG

(005737
001410

.EVEN
. ENDM

RGS ,RNAM
C(HECK
NSEL'RGS,~-(SP)
;GET REGISTER~SELECT CODE ONTO THE STA(K.
#99% ,~(SP)
;AND THE ADDRESS OF THF REGISTER~NAME MESSAGE.
IREGCK
;THEN GO TO COMMON HANDLER.
/%A ''RNAM'Y/

RGE:
JASCIZ
GDBAD:
.ASCIZ
TINERR: .ASCIZ
SIMSG:
.ASCIZ

GDDAT::
BADDAT:
REGNAM:
SIFLAG:

2383 023144

2384 023144
2385 023164
2386 023214
2387 023234
2388 023254
2389 023260
2390 023262
2391 023302
2392 023322
2393

111

MACRO
MOV
MOV
JMP
LASCIZ

023064
2%:

MOV
MOV
CMP
BEQ

aDSR,BADDAT
#SELDSR,aDSR
GDDAT ,BADDAT
1%

RTS

HRDERR
REGERR

PRINTX
PRINTX
PRINTX
PRINTX
TST
BEQ
PRINTX
PRINTX
ENDMSG

RGE ,.REGERR

:GET THE DATA.
;SELECT THE REAL DSR
:COMPARE EXPECTED W/ ACTUAL.
;0K IF EQUAL; JUST EXIT.

:1F NOT, SAY SO & PRINT DATA.

REGNAM
;PRINT THE REGISTER NAME.
#GDBAD,GDDAT ,BADDAT
:AND THE DATA,
#TINERR
TNAM
:PRINT TEST NAME
SIFLA
JSOFT INIT?
2%
;BR IF NO
#SIMSG
JPRINT IF YES
#NULCR
JPRINT BLANK |INE

29-JAN-81 17:22

INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT
PTINER:

2394 023324

2395 023324

2397 023364

Sggg 023404

SEQ 0055

#TINERR

;PRINT "'TEST:"

PRINTX

#NULCR

JPRINT BLANK LINE

RTS

000207

PRINTX
PRINTX

2396 023344

PAGE 35-1

TNAM

JPRINT NAME OF TEST

2600

;ROUTINES TO CHECK FOR THE INITIALIZED STATE OF INTERNAL REGISTERS:

2402
2603
3282

;
:
:

;

2401

24606 023406

012737

2608 023420
26409 023422

000414
(12737

2611 023434
2412 023440

004737
012737

2607 023414

2610 023430
2413 (023446

2614 023452
2615 023460
2616 023464
2617 023470

2618 023474
2419 023500
2420 023504
2421 023510

Szgg 023514

2424

100000

004737

022410

004737

022410

004737

012737
004737
005037

004737

004737
004737
004737
005037
000207

100000

023524
000003
022440

000001
022360
023056

26425 023516
2428 023526
2629 023534

012777
017746

000003
157274

011637
042716

023060
177760

2426 023522
2427 023524

2430 023540

2431 023546
2432 023552
2633 023556
2434 023562

2435 023564

2436 023566

24637 023570
2438 023610
2439 023612

000401
005046

012777

022627
001424

005737
100052
000337

006237

24646 023652

006237

2648 023664
2649 023670
2450 023674

013746
062716
013637

2447 023656

023056

BR
IIRCHK: MOV

TIRNF(
#(HAR,GDDAT

;BYPASS (SR CHE(CK.
JSEE IF FLAGS HAS ''CHAR'' MODE ONLY.

023056

IIRCNF: JSR
MOV

PC ,ERRCHK
#SELCSR,GDDAT

;SPECIFICALLY CHECK FOR AN ERROR CODE.
;WE SHOULD ONLY SEE SELECT CODE IN CSR.

IIRNFC: MOV
JSR
CLR

#1.,GDDAT
PC,PCSCHK
GDDAT

;EXPECT TO SEE '"EMPTY'' STATUS IN P(SAVE.
;...G0 CHECK IT.
JREMAINING REGISTERS S/B (LEAR.

JSR
JSR
JSR
CLR

PC ,HBCHK
PC ,XMCHK
PC,CBCHK
SIFLAG

023056

JSR

RTS

042737

PC,FLGCHK

PC,CSRCHK
PC,MMCHK

J...MAIN MEM MGMT

. ...HISTOGRAM BASE
;.. .AUX MEM MGMT
;...CHARACTER BASE.
;CLEAR SOFT=INIT FLAG.

;ERRCHK: CHECKS THE CSR FOR AN ERROR CODE & REPORTS IT.

ERICHK: MOV
157300

157266

BR
ERRCHK: (LR
ERRCK1: MOV
MOV

MoV

MOV
BI1C
CMP

000003

BEQ

#1,-(SP)

; SET FLAG TO INHIBIT USE OF 'DFERR'

#SELCSR,aDSR
aDSR,~=(SP)

; CLEAR FLAG
;SELECT THE CSR.
JREAD IT.

(SP) ,BADDAT
#%C17,(SP)
(SP)+ ,#SELCSR

;STORE CSR CONTENTS.
JEXTRACT THE SELECT.WE FIELD.
;WE SHOULD SEE THE (SR REG SELECT CODE.

ERRCK1
=(SP)

#SELDSR,aDSR
1%

JSELECT REAL DSR SO PEOPLE WON'T GET MIXED UP..

(SP)

; SHOULD WE DO DFERR?

PRINTX

NOCSR
2%
A#FNOCSR

;IF NOT, SAY WE CAN'T READ [T.
; GO TO EXIT
; PRINT MESSAGE ‘‘CAN'T READ (SR"

023060

TST
BPL
SWAB

BADDAT
2%
BADDAT

;TEST THE ERROR BIT.
;OK IF CLEAR; JUST EXIT.
;IF SET, GET ERROR CODE

023060

ASR

BADDAT

i...INTO BITS<4:1>,

BADDAT ,~(SP)
HERCTBL, (SP)
d(SP)+,ERCNAM

:SAVE ERROR CODE * 2 ON STA(K
JGET TO THE MLSSAGE ADDRESS TABLE.
;GET THE ADDRESS OF THE REG NAME MESSAGE.

TST

BNE

000466

2462 023634
24463 023640
2644 023642

CHECKS ALL BUT FLAGS AND (SR,

;SEE IF FLAGS HAS ''CHAR'' MODE ONLY.

001011

000455

CHECKS ALL BUT THE FLAGS REGISTER.
CHECKS ALL BUT THE CSR

#(CHAR,GDDAT

005716

Szz? 023632

2645 023646

000000

CHECKS THEM ALL.

IIRCNC: MOV

022526
022566
022624
023064

000001

IIRCNF
J[IRCNC
IIRNFC

023056

022466

012746

IIRCHK

20%:
1%:

023060

177741

ASR

023060

023060
024266
024264

DFERR
BR

023060

BIC

MOV
ADD
MOV

20%

BADDAT

#~C36,BADDAT

; BR IF NO

; GO TO EXIT

s ZAP OUT JUNK.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

29-JAN-81 17:22

INTERNAL REGISTER C(HECKER, ERROR UODE HANDLER, DPINIT

2651 023700

2652 023702
2453 023704
2656 025724

2455 023726

2456 023746

001011

000420

2457 023766
gzgg 023770

005726
000207

2460 023772
2661 024003
c462 024030
2663 024061

045
040
045
040

2464
2465 024074
2466 024074

2667 024114

2468 024122

2469 024124

2470 G24154
2471 024174

2472 026214
2473 024220
2474 024222
2475 024242

2476 024262
2477 024264

TST

005776

11%:
2%:

040
116
040

045
103
045
103

FNOCSR:
NOCSR:
FERCM:
ER(M:
BGNMSG

023727
001014

023060

000026

023064

2%:

000000

SEQ 0056

; USE ‘DFERR'?

(SP)

11%
ERCM,ERCOD
2%

. BR IF NO
JREPORT THE BAD NEWS.

ERCNAM

; ... AND THE ERROR NAME.

; PRINT '‘CSR ERROR CODE DETECTEC ="'

PRINTX

A#FER(M

TST
RTS

(SP)+
PC

.ASCII
.ASCIZ
ASCII
.ASCIZ

/XNXA v/
/ CAN'T READ THE C(SR/
/INXA x2e/
/ (SR ERROR CODE REC'D - /

CMP

BADDAT ,#13+2

PRINTX

A#GDBAD,aDXR,aDYR

PRINTX

.EVEN
ERCOD
PRINTX

BNE
1%:

005737
001410

BNE
HRDERR
BR

PAGE 35-2

PRINTX
PRINTX

TST
BEQ
PRINTX
PRINTX

ENDMSG
ERCNAM: 0

ERCNAM

; IS IT "DBUS DATA R/W ERROR'"?

#TINERR
TNAM

;BR [F NO

; YES -- DXR - EXP'D, DYR - REC'D

JSOFT INIT?
;BR IF NO
JPRINT IF YES
;PRINT BLANK LINE

SIFLAG
2%
A#SIMSG
#NULCR

ERCTBL: 77%,1%,2%,38,48,55,68,7%

024735

024365

025004

024430

2482 024326
2483 024365
2484 024430
2485 024467
2686 024531
2487 024562
2488 024617
2489 024662
2490 024735
2491 025004

045
045
045
045
045
045
045
045
045
045

101
101
101
1
101
101
101
101
101
101

056
056
056
056
056
056
056
056
056
056

77%:
1%:
2%:
3%:
4%:
5%:
6%:
7%:
10%:
11%:

LASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ
ASCIZ

/%A...
/%A...
/XA...
/XA...
/%A...
/%A...
/%A...
/XA...
/XA...
/%A...

0:
1:
2:
3:
&:
5:
6:
7:
10:
11:

(ILLEGAL ERROR CODE)/
NXM TIMEOUT ON DMA X'FER/
(ILLEGAL ERROR CODE)/
MEMORY PROTECTION ERROR/

2493 025143
2494 025211
2495 025245
24696 025301
2697 025341

045
045
045
045
045

101
101
101
101
101

056
056
056
056
056

13%:
14%:
15%:
16%:
17%:

LASCIZ
LASCIZ
ASCIZ
LASCIZ
LASCIZ

/%A...
/%A...
/%A...
/%A...
/%A...

13:
14:
15:
16:
17:

DBUS DATA READ-WRITE ERROR/
DBUS SIGNAL HUNG/
VBUS SIGNAL HUNG/
(ILLEGAL ERROR CODE)/
(JL.EGAL ERROR CODE)/

2478 024266

gzgg 024306

2481

2492 (25067

2498

024326

045

101

025067

056

2499

2502 025402
2503 025406
2504 025414

004737
012737
012777

031412
000001
000000

2507 025430

004737

026756

2505 025422
2506 025426

;ERROR CODE EXPLANATIONS:

12%:

LASCIZ

.EVEN

/%A... 12:

SEQUENCE ERROR/

RESERVED OPERATION/
VECTOR ENDPOINT MISMAT(H/
U-PROC EXECUTED UNUSED MICROWORD/
IMAGE MEMORY ‘'SYNC'' TIMEOUT/

PIXEL READBACK 'DATA AVAILABLE'' TIMEOUT/

J.S. STATUS 'DATA READY'' TIMEGUT/

JROUTINE TO DO A ‘'SOFT'" INIT ON THE DPU:

2500
2501

10%$,118,12%,°38,14%,15%,168,17%

005777
100423

155406

.ENABL

023064
155412

LSB

DPINIT: JSR
MOV
MoV

PC, SAVERS
#1,SIFLAG
#0,aDSR

; SAVE RO-RS.
; SAY DOING SOFT IN]IT
JSELECT THE REAL DSR

JSR

PC,RELEAS

;SEE IF WE'RE HUNG.

TST
BM]

aDSR
11%

JARE WE STOPPED?
;BR IF YES

VSV11/VS11 == GRAPHI{ SYS. DIAG MACRO M1113

29-JAN-81 17:22

INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT

oI NNV
(VAW AV TV, TV, LV, )

2508 025634
025440
025444
025450
025454
025456
025476
025476

025504
025510
025514
025520
025524
025530
025534
025536
025540
025546
025552
025560
025564
025566
025572
025574
225600
025604
025606
025612
025614
025634
025642
025646
025650
025652
025656
025660
025664
025666
025706
025712
025716

MoV

017700
057700
057700

057700
001010

012777
004737
012703
012704
010477
004737
062704
005303
001370
012777
004737
012777
004737

040000
027454
000004
160000
155314
027454
000400

155332

040000
027454

155270

004737
005002
012703
005777
001003
027703
001410

026756

103402

100000

027454

155260

155222

012737
004737
005004
005005
005777
001003
005777
001410

000001
023422

004737
005037
000207

031436
023064

023064

2%:

JSR
CLR
MOV
TST
BNE
cMP

BEQ
DFERR
MOV

JSR

CLR

155160
155154
A
5%:

CLR
TST
BNE
TST
BEQ
DFERR
JSR
CLR
RTS

.DSABL

BGNMSG

101

004737

000207

025402

104
040

VSHUNG:
:
vSHGE

; REPORT HUNG, ALL REGISTERS 0

AGTJISSW,aDXR
PC.WAITF

;CLEAR PENDING INTERRUPT

VSHNG

R3
12%

#GTJSSW,aDXR
PC,WAITF
#100000,aDYR
PC.WAITF
1%
PS.RELEAS
R

#BI1T15,R3
abP(

2%
aDSR,R3
3%
NSINIT,PCSERR
#1,SIFLAG
PC,IIRCHK
R&

R5
aDXR
3
aDYR

PC,RESTRS
SIFLAG

;DO THE INIT.

JWAIT FOR A COMPLETE
;0K IF STOPPED.
s TRY TO UNHANG.

;EXPECT DPC TO BE O.
JEXPECT DSR TO BE 100000.
;TEST THE DPC,

S/B -0.

;ERROR [F NOT O.

;CHECK DSR.

;REPORT ERROR IN DPC OR DSR.
;SAY DOING SOFT INIT.
;CHECK THE INTERNAL REGISTERS

; RESTORE RO-RS.
sRETURN TO CALLER

LSB

LASCIZ
LASCIZ
.EVEN

/%A

DPU HUNG -- ALL REGISTERS READ ZEROQ/

BAD M7064 OR NO B-(LOCK OR VBLANK FROM M70612ZN/

€CCLCLLLLLLLLLLLLLLeCCC<<<s BEGIN SEGMENT,

(€L LCLLLLLLLLLLLLLLCLLLC<<<< END SEGMENT,

JSR

PC,DPINIT

RTS

ENDSEG

;CLEAR PENDING INTERRUPT

; DXR AND DYR SHOULD BE 0.

5%
NSINIT XYERR

#VSHGE

DPRESET: BGNSEG

;SET COUNTER FOR # OF SWITCHES TO (LEAR
JSET UP OP TO CLEAR SWITCHES
;CLEAR A SWIT(CH

PC,WAITF

PRINTX

ENDMSG

025742
026010

026074
026076
026102
2564 026104

JSR
BCS

155226

11%

#CH1,R4

MOV

SEQ 0057

NG
, VSHNG
VSHU

ADD

DPSINI: MoV
JSR

aDPC,RO
aDSR,R0O
aDXR,R0O
aDYR,RO

#4 ,R3
#WECC ,Ra
Ré4,aDYR

JSR

PAGE 35-3

MOV
MOV
MOV

DEC
BNE

1%:

100000

MOV

JSR

10%:

025720
025720
025740

2557
2558

11%:

BIS
BIS
BIS
BNE
DFERR

; DO SOFT INIT,

DIAG MACRO M1113
== GRAPHIC S Y S.
I
SUBROUTINES SECTION

YSV11/vS11

2584
2585
2586
2587

2588 026106

2589
2590 026107
25N
2592
2593 026110
2594
2595 026112
2596
259/

2598 026114
2599 026116

2600 026122
2601 026126
2602 026132
2603 026136
2604 026142
2605 026146
2606 026152
2607 026156
2608 026162
2609 026164
261C 026166
2611 026174
2612
2613
2614 026176
2615 026200
2616 026206
2617
2618
2619 026210
2620 026216
2621 026222
2622 026230

LSBTTL

5
SEQ 0058

GLOBAL SUBROUTINES SECTION

* 44

THE

SUBROUTINES

SRI

THE GLOBAL SUBROUTINES SECTION (ONTAINS
THAT ARE USED IN MORE THAN ONE TEST.

2566
2567
2568
2569
2570
2571
2572
2573
c574
2575
2576
2577
2578
2579
2580
2581
2582
2583

PAGE 36

DEFAULT DISPLAY INTERRUPT HANDLERS.

IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.
OTHERWISE, SAVE DPU REGISTERS AND DISMISS.

GLOBAL

29-JAN-81 17:22

; BIT DEFINITIONS FOR ''INTMASK'' AND ‘'INTFLAG'' BYTES:
[OKCKIN=B]T?7
JI0KSTP=BIT0
JI0KJSM=BIT1
IOKERR=BITZ2
I0KJSS=RIT3

000200
000001
000002
000004
000010

INTMASK :
.BYTE
; INTERRUPT FLAG =-- SAYS WE GOT ONE
O
BYIE
INTFLAG:

000

INTVEC: .WORD
;SAVE (CPU PC

INTCPC:

000000

003052
026242
000340

MOV

000340
026210
000340
026326
000340

000000

105037

132737

001053

.WORD

:SUBROUTINE TO ENABLE INTERRUPTS:
ENAINT: MOV
RO,-(SP)
s SAVE RO
MOV
STPV,RO
JGET POINTER TO VECTORS
MOV
#DSTP, (RO)
JSET UP STOP VECTOR
MOV
#PRI07, (RO)+

026274

013737

(IF POSITIVE)

s SAVED INTERRUPT VECTOR:

000000

011646
012766
000002

DON'T (HECK FOR BAD INTERRUPTS == TEST WILL.
EXPECT "'STOP'' INTERRUPT.
EXPECT JOYSTICK 'MATCH'' INTERRUPT,
EXPECT 'ERROR'' INTERRUPT.
EXPECT *'JOYSTICK SWITCH'' INTERRUPT,

L INTERRUPT MASK == SAYS SXPECTING INTERRUPTS

000

010046
013700

:
;
;
;
;

MOV
MOV
MOV
MCV
MOV
MOV
MOV

000007

:?Y

#DJM, (RO) +

#PR107,(RO)+
#DT0, (RO) +
#PR107, (RO) +
#DJS, (RO)+
#PR107, (RO)
(SP)+,R0O
(SP) ,=(SP)

#0,2(SP)

JSET UP MAT(H VECTOR
JSET UP ERROR VECTOR

JSET UP JOYSTICK SWITCH VECTOR
JRESTORE RO

;SET (PU TO LEVEL O

;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)

000340

0060002

00305¢
026107
000004

026110
026106

DSBINT: MOV

Q?Y

(SP) ,=(SP)

#PR107,2(SP)

JERROR (TIME-GUT) INTERRUPT SERVICE:
MOV
TOTV,INTVEC
JSAVE THE VECTOR
CLRB
INTFLAG
JCLEAR FLAG TO SAY wE GOT INTERRUPT
BITR
#]OKERR, INTMASK ;EXPECTING ERROR INTERRUPT?

DTO:

BNE

DPUSAV

;BR IF

YES; NO ERROR.

026110

152737
000432

000001

026107

013737

003054
026107
000002

026110

000002

026107

003060
026107
0C0010

026110

000010

026107

105037
132737

001036

105037
132737
001021
152737
000415

026326
026334
(26340
026346
026350
026356

013737

0263()
026364
026366
026372
026400
026404

011637
010146

026412
026420

026424
026430
026434
026440
026444
026450
026454
026460
026464
026470
026474
026500
026504
2669 026510
026514

026520
026524
026526
026532
026534
026540
026546

2679 026552

105037
132737

001004
152737
000400

013701
017737

026106

154426
154422

000001
003146
000002
003150
000003
003152
000004
003154
000005
003156
000006
003160
000007
003162
000000
003144
026107

026106

022300
023324
026112
030216

MOV

STPV,INTVEC
INTFLAG

CLRB
BITB
BNE
B1SB
BR

DM:

026106

DJS:

MoV

(LRB
BIT8B
BNE
BISB
BR
MOV

(LRB
BITB
BNE
BISB
B8R

DPUSAV: MOV

026112
003034
154434
003130

DSTP:

003126

003132
003134

MOV
MOV
MOV
MOV
mMov
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

BIT1B

1518

BEQ

TSTR

MOV
MOV
MOV

JSR

#]OKSTP, INTMASK

DPUSAV

#]OKSTP,INTFLAG

DPUSAV

;SAVE THE VECTOR

;CLEAR FLAG TO SAY WE GOT INTERRUPT
JEXPECTING STOP INTERRUPTM?
;BR IF YES
;NO. SET THE ERROR FLAG.
;GO FINISH UP.

;SAVE THE VECTOR
:CLEAR FLAG TO SAY WE GOT INTERRUPT
#10KJSM, INTMASK JEXPECTING MATCH INTERRUPT?

JSMV, INTVEC
INTFLAG

;BR IF YES
DPUSAV
#10KJSM, INTFLAG ;NO. SET THE ERROR
;GO FINISH UP.
DPUSAV

FLAG.

;SAVE THE VECTOR

JSSV, INTVEC
INTFLAG

:CLEAR FLAG TO SAY WE GOT INTERRUPT

(SP)
, INTCP(
R1,-(SP)

:SAVE CPU PC.
;SAVE R1

aDP(C, IDPC
(R1) ,IDSR
aDXR, IDXR
aDYR,IDYR
#SELPCS, (R1)
(R1) ,IPCSAV

:SAVE DISPLAY P(C...

#]0KuSS, INTMASK SEXPECTING SWITCH INTERRUPT?
DPUSAV
;BR IF YES
#]0KJSS, INTFLAG ;NO. SET THE ERROR FLAG.
DPUSAV
;GO FINISH UP.

DSR,R1

HSELFLG, (R1)
(R1),I1FLAGS
#SELCSR, (R1)

(R1) ,1CSR
#SELMRR, (R1)
(R1) ,IMAIN
#SELHBA, (R1)
(R1)
, IHBASE
#SELXRR, (R1)
{R1), 1AUX
#SELCBA, (R1)
(R1) ,1CBASE
#SELDSR, (R1)
(R1),1SDSR

#]OKERR, INTFLAG

INTFLAG

INTMASK

19
EXTA,=(SP)

#PTINER,EXTA

INTCPC ,RY
PC, INCERK

:GET DSR ADDRESS INTC R1

J...STATUS...
2...X POSITION...
J...Y POSITION...
;SAVE P(CSAVE...

*SAVE FLAGS...

SSAVE CSR...
“SAVE MAIN MEM=MGMT..
“SAVE HISTO. BASE...
“SAVE AUX. MEM-MGMT..
“SAVE CHAR. BASE...
JEND UP AT DSR...
T

003052
026107
000001

#]OKERR, INTFLAG ;NO. SET THE ERROR FLAG.
DPUSAV
;GO FINISH UF.

013737

000447

BISB
BR

026316
2638 026324

026107

2625 026262
2630 026264
2631 026272
2632
2633 026274
026302

000004

SEQ 0059

2628 026254

152737

2623 026232
2624 026240
2625
2626 026242
2627 026250

PAGE 36-1

GLOBAL SUBROUTINES SECTION

29-JAN-81 17:22

YSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

...AND SAVE

[T,

DID WE GET AN ERROR INTERRUPT?

ANY ERROR FLAGS SET?
BR IF NO
YES. IS CHECKING TURNED OFF?
BR If YES

SAVE ERROR EXTENSION ADDRESS.
SET EXTENSION TO PRINT TEST [N ERROR.

;GET (PU P(C.

; INCREMENT THE ERROR COUNTS

Sv11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION
2680 026556
2681 026566
2682 026572
2683
2684 026576
2685 026600

012637
004737

29-JAN-81 17:22
ERRDFf

MOV
JSR

(22300
03025¢
19%:

012601
000002

MOV
RT]

PAGE 36-2

SEQ 0060

O,IFAULT,INTERR ;REPORT ERROR...
(SP)+ ,EXTA

JRESTORE EXTA

(SP)+ ,R1

JRESTORE R1
J...AND DISM]SS.

PC, (KEMAX

A SIMILAR CNE FOR THE LUT INTERRUPTS.
: AND
2689 026602
2690 026604
2691 026606
2692 026614
2693 026622
269% 26636

000137
C26606
017737

017737
017737
000002

iDUN:
154230
154224

156220

003136
003140
003142

JMP

LUTSAY

LUTSAYV: MOV
MOV
MOV
RY]

a(~()

aLSR,ILSR

aLDR, ILDR
alLMR, [LMR

; SAVE LUT REGISTERS.
; AND DISMI]SS.

VSY11/vS11 == GRAPM]( ;. DIAG MACRO M1113 29- AN-81 17:22

GLOBAL SUBROUTINES SE(TY
2696

4.5

PAGE 37

SEQ 0061

SUBROUTINE TO INITIALIZE THE CURRENT UNIT DISPLAY,
CALL "'CLRW'' TO INIT WITH IM'S IN WRITE MODE.

CALL “'CLRRW'' TO INIT WITH [M°S IN WRITE-IN-RETRACE MODE.
CALL '‘CLRRW1° TO INIT WITH IM'S [N WRITE-IN~RETRACE, 1°S-ONLY MODE.
.ENABL

LSRB

:THE OPERATIONS ARE PERFORMED VIA PROGRAMMED [/0 SO THAT EXECUTION OF A DISPLAY
2708 026632
2709 026636
2710 026640
27N 026646
2712 026650

2713
2714 026656
2715 026664
2716 026670

2717 026674
2718 026676
026704

005037
000407

;

FILE DOES NOT HAVE

(LRwW:

026754

géQ

:SAY CLEAR TO "WRITE-ONLY'' MODE.

012737

176076

026754

(LRRw1: ggv

:§DURT1,CLMFCN

:SAY CLEAR TO READ/WRITE-1'S-ONLY.

012737

176074

026754

100000

154154

(LRRwW:
;1%
1¢:

MOV
JSR
MOV

#RDWRT ,CLMF(N
PC,DPINIT
#31T15,aDYR

;SAY CLEAR TO READ/WRITE
DO INIT (CLEARS MEM, WRITE MODE, DISABLES J.S.)
; DO SOFT INIT TO CLEAR MEMORIES

1ST

(LMFCN

;ANY THING ELSE 10 DO?

000403

012777

004737
005737
001426
062737
052737

07454
026754

176000

040000

JSR

BEQ
BIC
BIS

026754
026754

2%:

026712

JEXIT IF NOT.
;ZAP OUT OP-CODE.
;INSERT CODE FOR WRITING INTO DYR.

; €CLKCLLLLLLLLLLLLLLCLLLLLCLC BEGIN SEGMENT,

JSR
JSR
ENDSEG

CLMFCN,aDYR

;WRITE MEMORY STATUS-BA REGISTER

ADD
8IT
B8NE

#CH1,CLMFCN
#(H3,CLMF(N

;BUMP THE CHANNEL #.
:DONE ALL CHANNELS?

026754
027456

154116

MOV

026734
026742
026750
026752
026754

062737
032737
001360
000207
000000

000400
001400

026754
026754

3s:

3%
#176000,CLMF(N
NMJRTMSR,CLMFCN

:WAIT FOR NOT BUSY.
PC,WAITF
;(HECK FOR ERROR
PC,ERR(CHK
: CLLCLLLLLLLLLLLLLLLLLLLLLC END SEGMENT,

013777
004737
004737

023524

PC,WAITF

BGNSEG

0c6714
026722
026726

026732

TO TAKE PLACE.

%;MFCN

RTS

.DSABL

LSB

CLMF(N: C

ANOTHER TO RELEASE

:LOOP IF NOT.

:RETURN WHEN DONE ALL 3 CHANNEL>S

;FUNCTION FOR CLEARING MEMORY.
THE DPU.

- EXECUTE “EXT STOP'' IF HE'S RUNNING, 'BUS=INIT'' IF HE'S HUNG.

2750
2751
2752

005077
004737

154036

(LR

JSR

027454

8(S

004737
000207

TST
8MI]

103403

154044

éELEAS MOV

100410

154050

2749

000000

2748

012777
005777

026756
026764
026770
2741 026772
2742 026776
2743 027002
2744
2745 027004
2746 027006
2747 027012

BRESET
JSR
RTS

#SELDSR,aDSR
aDSR
1%

aDSR

PC,WAITF

JMAKE SURE WE SELECT REAL DSR

;EXIT If DPU IS STOPPED.
SEXIT IF HE'S FREE.

JXCT "EXTERNAL STOP'".

JEXIT IF STOP WORKED.

PC,WwAITF

: BUS RESET.
AGAIN.
WAIT
;...AND

P(C

;IT DIDN'T, XCT BUS-INIT.

SUBROUTINE TO FILL ALL OF FREE CORE WITH PIXEL DATA

FOR BIT MAP FUNCTIONS.

REGISTERS ARE NOT SAVED.

(RO) - DATA PATTERN.

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION
275% 027014
27%6 027016
2755 027020
2756 027022
2757 027024
2758 027030
2759 027034
2760 027040
2761 027042
2762 027044
2763 027050
2704 027052

010001
000402
010001
005101
013702
013703
062703
010022
010122
162703

003373
000207

29-JAN-81 17:22

FILLY:

FILLe:

003240
003242

100003

000002

MOV
SKP?
MOV
COM
MOV
MOV

1%:

BIC

MOV
MOV

SUB
BGT
RTS

K_$5

PAGE 37-1

RO,R1

SEC 0062
;

RO,R1
R1
FREE ,R2
FRESIZ,R3

WITH

‘RO).

FILL WITH ALTERNATE WORDS.

POINTER.

WORD COUNT.

#100003,R3
RO, (R2)+
R1,(R2)+
#2.R3

FILL

; INSURE W( IS EVEN.

1ST WORD...

;.. .NEXT WORD.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION
2821

2822
2823

29-JAN-81 17:22

PAGE 38

S
SEQ 0063

2824 027056
2825 027060

012701
012746

107066
000001

LUMIN:

MOV
MOV

#LUMTBL ,R1
#1,-(SP)

; GREY-SCALE TABLE ADDRESS.

2827 027066
2828 027072

012701
012746

110066
000040

NTSC:

MOV
MOV

#NTSC8,R1
#32.,-(SP)

; BASIC 8 COLOR TABLE ADDRESS.

012701
012746

110106
000020

EXPR:

MOV
MOV

#EXPRM,R1
#16.,-(SP)

; EXPERIMENTAL 16 COLOR TABLE.
; LUT WORDS / COLOR.

005737
001424
005077
052777
011600
012177
005777
100375
105777
001406

003216

TST

LUTAV
3%

; RETURN IF NO LUT INSTALLED.

2826 027064

2829 027076

2830 027100
2831 027104

2833 027110
2834 027114
2835 027116
2836 027122
2837 027130
2838 027132
2839 027136
2840 027142
2841 027144
2842 027150

2843 027152
2844 027154
2845 027156
2846 027164
2847 027166
2848 027170

000404

005300
001765
016177
000764
005726
000207

153720
000100

153716

153706
153700

1%:

2%:

153672

177776

153660

SKP2+2
SKP2+2

BEQ
CLR
BIS

MoV
~ov

“ST
BPL
TSTB
BEQ
DEC

alL SR

#GCOFF ,aLMR

(SP) ,RO
(R1)+,aLDR
QLER

; LUT WORDS / COLOR.

ADDR 0O, NO INTERRUPTS.
GAMMA CORRECTION OFF.
SET ITERATION K.
BLAST THE RAM.

;
;
;
;

WAIT FOR READY.

;

; LAST ADDRESS DONE ??
; EXIT IF SO.

BEQ

; GET NEXT COLOR.
;

REPEAT

BR
TST

;

FIX THE STACK...

MOV

3s:

; LUT WORDS / SHADE.

THIS COLOR.

*...AND RETURN.

RTS

. BLAST 16 SHADES OF THE BASIC COLOR IN (R1).

: LOCATION ‘'SHADLY'® SET BY CALLER TO PRODUCE A PLEASING
: VISUAL EFFECT.

2354 027172
2855 027176

005737
001433

003216

2857 027202
2858 027206
2859 027214
2860 027220
2861 027222
2862 027226
2863 027232
2864 027236
2865 027240
2866 027244
2867 027246
2868 (027250
2869 027254
2870 027256
2871 027260
2872 027262
2873 027264
2874 027266

005077
052777
042701
005002
012703
010277
005777
100375
013700
005300
001376
105777
001404
005303
001362
060102
000756
000207

153634
000100
177356

2856 027200

SHAD16: TST

BEQ
BREAK
CLR
BIS
BIC
CLR
MOV
MOV
TST
BPL

153632

000020
153612
153604

003220

MOV

DEC
BNE

153566

1STB

BEQ
DEC
BNE
ADD

3%:

RTS

LUTAV
3%

; RETURN IF NO LUT INSTALLED.
ADDR 0, NO INTERRUPTS.
GAMMA CORRECT OFF.

alL SR
#GCOFF ,aLMR
#~C421,R1
R2

SET DIMMEST SHADE THIS COLOR.
1ST SHADE IS ALWAYS BLACK.
16 LUT WORDS / SHADE.

#16. ,R3
R2,aLDR
BLER

SHADLY RO

WRITE

DATA.

; DELAY.

; LUT RAM FULL ??

L EXIT IF SO.

;

THIS SHADE DONE ??

* NOT YET, LOOP.

; YES, INCREMENT THE SHADE...
..AND CONTINUE.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION
2876
2877
2878
2877
2880

29-JAN-81 17:22

PAGE 39

SEQ 0064

; SUBROUTINES TO TRANSLATE AN ABSOLUTE X OR Y TO SHORT FORM
: DELTA X OR Y.

USED IN SVEC AND RPNT TESTS.

; INPUT RO = ABS CO-ORD, IN THE RANGE (1000 +/=76).

: OUTPUT RO = DX OR DY CORRECTLY POSITIONED AND SIGNED.
027270
027274
027276
027300
027304
027310

020027
103003
005400
062700
042700
000207

001000

027312
027316
027320
027322

004737
000300
006200
000207

027270

sDy:

000100
177600
SDX:

CMP
BHIS
NEG
ADD
BIC

RO,#1000

.+10
RO

#100,R0

#%C177,RO

RTS

JSR

PC,SDY
RO
RO

SWAS

ASR
RTS

:SKP3 IF POS DELTA.

;MAKE NEG DELTA.
JSET SIGN BIT.

;RO = +/=DY IN <6:0>.
;MAKE A DY...

:...MOVE TO HI BYTE.
;RO = +/-DX IN <13:7>.

: SUBROUTINE TO CONVERT 12 BIT OCTAL TO ASCII FOR DISPLAY.
; R1 = OCTAL X OR Y CO-ORD AT ENTRY.

: R1,,R2 = 4 DIGIT ASCII EQUIVALENT AT EXIT.
; RO, R1, AND R2 NOT SAVED AT ENTRY.
027324
027332
027340
027344
027346
02735C
027352
027356
027362
027364
027370
027372
027374
027376
027402
027406
027410
027414
027416
027420
027422
027426
027432
027436
027442
027446
027452

012737

013737

042701
010102
000302

004202
04270c¢
150237
010102
012700
006202
005300
001375
042702

150237

010102
012700
006202
005300
001375
042702
150237
042701

150137
013701
013702
000207

030060
003232

170000

003232
003234

CNVRT:

177770

177770
003234
177770
003235
003232
003234

;ASCII 00

BIC

#~C7777
,R1

:STRIP ANY (RAP BITS.

TEMP1 ,TEMP?

R1.R2

BIC
BISB

1%:

177770
003233

000003

#' ‘00, TEMP1

MOV

mMov
SWAB
ASR

005c32

000006

MOV

2%:

JHERE

TOO.

;1ST (Hl ORDER) DIGIT.

MOV
MoV

ASR
DEC
BNE
BIC
BISB

JSHIFT OFF

ASR

JSHIFT OFF 3 BITS.

;2ND DIGIT.

MOV
MOV

DEC
BNE
BIC
BISB
BIC
B1SB
MOV
MOV
RTS

6 BITS.

;3RD DIGIT.
TEMP1 R
TEMPZ ,R2

;4TH (AND LAST)
JHI HALF => R1.

;LO HALF => R2.
JAND EXIT.

DIGIT.

§—

—

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION
'

2927
2928

2929
2930
2931
2932 027454
2933 027456
2934 027462
2935 027464
2936 027470
2937 027472
2938 027476
2939 027502
2940 027504
2941 027506
2942 027510
2943 027512
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953 027514
2954 027520
2955 027522
2956 027526
2957 027530
2958 027534
2959 027536
2960 027542
2961 027546
2962 027550
2963 027552
2964 027556
2965 027556
2966 027560
2967 027562
2968 027564

29-JAN-81 17:22

PAGE 40

SEQ 0065

: SUBROUTINE TO WAIT FOR DISPLAY STOP FLAG.

: RETURN WITH "'C"" = 1 AS SOON AS STOP OCCURS.

: OTHERWISE, "'C''= O AND RETURN AFTER APPROX 300 MSEC.

012727
005670
005777
100407
004737
005337
001370
000241
000401
000261
000207

005670
153344

WAITF:

BREAK

1%:
2%:

3000.
TST

027530
027462

3%:

MOV

#3000., (PO)+
aDSR

; DO A SUPVSR BREAK FIRST.

; 300 MSEC TIMER.

SE?

?E.US1OO

; EXIT ON STOP FLAG.

BNE

;...AND TRY AGAIN.

8MI]

cLC
SkP1
g?g

; OTHERWISE, WAIT 100 USEC...
; € = 0, DPU STILL RUNNING...
J...0R HUNG-UP AFTER 300 MSEC.
; C -1, DPU IS STOPPED.

: SUBROUTINES TO PAUSE (WAIT) IN INCREMENTS OF 100 USEC.
: BASED ON AVERAGE TIME (CPU DEPENDANT) TO EXECUTE
DEC RO
BNE

;
;

: DELAY CONSTANT (K1OOUS) SHOULD BE ADJUSTED AS FOLLOWS:
;

:
012746
000402
012746
000402
012746
011646
010066
013700
005300
001376
005316
001372
005726
012600
000207
000010

FOR SLOW CPU'S (11703 THRU 1Q), K100US

FOR FAST CPU'S (11/34 THRU 70>, K100US = 32.

023420

PAUSE1: gggz

#10000.,-(SP)

: 1 SEC TIMER.

011610

PAUS.5: ?ng

#5000. ,-(SP)

: 1/2 SEC TIMER.

000001

us100:

000002
027564

1%:

MoV

#1,-(SP)

DEC

MoV
MOV
MOV

BNE

DEC

BNE
TST
MOV
RTS
K100uUs: 8.

; 100 USEC TIMER.

(SP) ,-(SP)
RO,2(SP)
K100US ,RO

; SAVE THE COUNT
; SAVE RO

.=2

; 100 USEC (MORE OR LESS) LOOP.

1%
(SP) +
(SP)+,RO
PC

; VARIABLE LOOP.
; FIX STACK...
; RESTORE RO
;...AND RETURN.
; 100 USEC TIMER.

(SP)

]

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
2970
29N
2972
2973
2974
2975

2984
2985 027606

2986 027610
2987 027612
2988 027616
2989

29¢9 027620
2991 027622

2992 027626
2993 027630

2994 027636

2995 027640
2996 027642
2997 027644
2998
2999
3000
300|

012737
012737
005003

027620
000200

020102
001407
062701
000772

005103
012716
000002

3008 027654
3009 027660

3010 027662
3011 027666
3012 027670

3013 027672
014 027674
3015 027676
3016 027700

#2S, NG

; SET BUSERR VECTOR.

(LR

JFLAG.

3%:

005337
001002
000241
000401
000261
000207
000000

027700

;TEST THE ADDRESS(ES).

;IF ANY TRAP, CONTINUE AT 2$.

ADD
BR

#2,R1
1%

COM

;GOT ONE, SET FLAG...

MOV

RTI

CLRVEC

TST
BEQ

RTS

002510

(R1)

;OTHERWISE, CONTINUE HERE.
;BR IF FINISHED (NO NEXM'S).

SEC

005737
001006
005737

, Q46
#PRIOG

R1,R2
3%

CMP
BEQ

2%:

;TEST *°C'" AND PROCEED.

Mov
MOV

000261
000207

100403

MOV ADR1,R1
MOV ADRZ,R?
JSR PC_,NXM

RETURN

000002

005703
001401

THRU (R2).

l'cl'

TST

027630

SEQ 0066

TO TEST FO R A NEXM [N THE RANGE (R1)
1, (R1) = NEXM ADDRESS.
ON RETURN, IF °''C''
0., ALL ADDRESSES OK.

005711

3002

3003
3004
3005 027646
3006 027646
3007 027652

000004
000006

Mo 88,8, %, 8,

2980 027566
29381 027574
298¢ 027602
2983 027604

PAGE 41

ROUTINE

CALL:

2976

2977
2978
2979

FATRPR
T TR FIL EE R RN P T

GLOBAL SUBROUTINES SECTION

29-JAN-81 17:22

#3%, (SP)

R3
.+4
FC

JSET NEXT ADDRESS...
:...AND CONTINUE.

;... AND DISMISS INTERRUPT...

;...AND GIVE BACK THE VECTOR.
;DID WE CATCH ONE ??
;NO, *'C'' = 0, SKIP NEXT.

JYES, ''C'" = 1, (R1) - NEXM ADDR.

SUBROUTINE TC EXECUTE TEST ITERATIONS.

FXIT WITH *'C’" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERG.
LOOP COUNTER S SET BY 'BEGIN.TEST'' MACRO.
CALL:
Q0P

LOOPTO

ARG

TST

NOITS

TST

QVP

BNE

003030

1%:

2$:
:
LOOPK

BM]
DEC
BNE
(L

1%
LOOPK
2%

SKP1

SEC
RTS

; ITERATIONS INHIBITED?
. YES.
; NO.

;LOOPS DISALLOWED IN QUICK PASS.
; BUMP LOOP COUNTER.
;LOOP DISALLOWED, OR DONE.
;LOOP ENASBLED.

; LOOP (ITERATION) COUNTER.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION
3018
3019
3020

29-JAN-81 17:22

C_6

PAGE 42

SEQ 0067

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.

INCREMENT ‘‘TESTK'' TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

»*x NOTE: REQUIRES PRIOR USE OF THE 'BEGIN.TEST'' MACRO
TO SET NAME AND NUMBER POINTERS.

027702
027706
027712
027716
027722
027726
027730
027734
027736
027740
027746
027756
027760
027766
027776
030004
030012
030014
030016
030020

030024
030026
030052
030056
030062
030064
030066
030070

005037
005037
005037
105037

013700
006300
005737
001430
100010

TSTGO:

023064
030130
022300
026106
003026

052760

160000

003302

000407
052760

160001

003302

012737

177777

003224

2%:

000422
032700

A ¥

001000

;

001412

005237
004737
000207

030070
026114

000000
000000
000000

ASL
TST
BEQ
BPL
BIS
gSRDF

: ... AND MAKE IT A WORD OFFSET.
RO
: DID STARTUP FIND THE DEVICE?
NODEV
; BR IF YES
49
: BR IF NOT IDLE
3%
#160000,ERTABL(RO) ; FLAG ERROR [N THE ERROR TABLE
: NO DEVICE HERE == PRINT IT
}iNXR,NXRERR

BIS

#160001,ERTABL (RO

2.NOINIT
#-1,DUFLG

DOCLN
B8R

DODU

RFLAGS

; GET THE UNIT NUMBER,

UNITN

; FLAG ERROR IN THE ERROR TABLE

: DEVICE NOT IDLE
; DROP THE UNIT

: ABORT THE PASS
: GET THE OPERATOR FLAGS.

PRINT THE TEST NUMBERS?
WANNA TYPE THE TEST ID?
NAH!
BR IF NO

BIT
TST
BNE
BEQ

#PNT ,RO
TIDFLG
1
1%

:
;
;
:

JSR

PC,ENAINT

; ENABLE INTERRUPTS

1%:
5%:
TNUM:

RTS
0

TESTK:

UNITN,RO

ERRDF
MOV

PRINTF
INC

TNAM:

CLEAR ''SOFT INIT"' FLAG
CLEAR LOCAL ERROR C(OUNTER.
CLEAR ERROR EXTENSION FLAG.
CLEAR INTERRUPT MASK (CHECK ERROR)

SITLAG
ERRK
EXTA
INTMASK

MoV

003226

;
;
:
;

CLR
(LR
CLR
CLRB

TNAM, TNUM
TESTK

: PRINT NUMBER AND TITLE.
: BUMP TEST COUNTER.

: NUMBER OF TESTS RUN THIS PASS.

. AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED
; IF NORMAL ERROR REPORTING 1S DISABLED (FLA:IER).

030151

BEQ

000207
000000
045

ERRK:
ESUM:

—

N30132

BIT

1%:

105

—

030130

TSTEND: RFLAGS

020000

122

RO,#IER

PRINTF

#ESUM,ERRK

0
.ASCIZ

/%A XD%A ERRORS’

RTS

EMAXDT .?3&*2

; BR IF "'IER'" NOT SET.
; PRINT ERROR COUNT.

; LOCAL ERROR COUNT.

/ERROR LIMIT REACHED == DROPPING UNIT/

: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:

030102
030126

030027
001412

030072
030074
030100

SEQ 0068

023737

103417

032700
001013
012737

032700
001011
012600
012737
000401
012600
000207

(KEMAX: MOV
MOV
ASL
MOV

003026
003302

170000

002516

030130

002514
1%:

000040
177777

003224

BIC
CMP
BHIS
cMP
BLO
RFLAGS
BIT
BNE
MOV

ERRDF

DODU
DOCLN
MoV
RTS

RFLAGS

BIT
BNE

000040

177777

003224

MOV
MOV
DODU
DOCLN

B8R

MOV
RTS

(S?)+,R0O

RO,=(SP)

UNITN,RO

(RO) ,RO
ERTABL
#170000,R0

?g.GERRMAX

AX
RK
, LERRM
ER
2%

RO
#1DU.RO

#-1,DUFLG
4 ,EMAXDU
UNITN

(SP)+ RO

T
PR I
IR
PR
PO
I
TR
T

MOV
RTS

1%:

)

CKDROP: MOV

103004

007777

BIT
BNE
DEC

010046

006300
016000
042700
020037

ADD
INC

UNITN,RO

RO
HERTABL ,RO
(RO)
#7777,(R0O)
1%
(RO

... AND MAKE IT A WORD OFFSET.

RO GETS ADDRESS OF ERROR TABLE ENTRY,

INCREMENT THE DEVICE ERROR COUNT

DID WE OVERFLOW THE FIELD?

BR IF NO.

YES == BACK [T UP TO 7777.

RESTORE RO

RETURN TO CALLER.

SAVE RO
GET UNIT NUMBER

... AND MAKE IT A WORD OFFSET

N I R

030354
030356
030360
030364
030366
930370
030376
030404
030406
030410
030412

010046
013700

003302 ~=—=-=-

MOV
MOV
ASL

INCREMENT LOCAL ERRCR COUNT

SAVE RO
GET UNIT NUMBER,

GET ERROR TABLE ENTRY

2%:

006300
062700
005210
032710
001CM
005310
012600
000207

003026

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT?

T N

012600
000207

010046
013700

ERRK
RO,-(SP)

EXTRACT ERROR COUNT FIELD
BR IF

YES

IS LOCAL LIMIT EXCEEDED FOR THIS TEST?

BR IF NO
R EE

INC

005237

INCERK:

030130

3075 030216
3076 030222
3077 030226
3078 030230
3079 030232
3080 030236
3081 030240
3082 030244
3083 030246
3084 030250
3085 030252
3086
3087 030254
3088 030256
3089 030262
3090 030264
3091 030270
3092 030274
3093 030300
3094 030302
3095 030310
3096 030312
3097 030314
3098 030320
3099 030322
030330
030340
030346
030350
030352

GLOBAL SUBROUTINES SECTION

GET OPERATOR FLAGS

IS DROPPING INHIBITED?

BR IF YES.
NO -- DROP THE UNIT

RESTORE RO
RETURN TO CALLER

RO,=-(SP)
RO
#1DU,RO
1%

(SP)+,R0O

UNITN

2%
(SP)+,R0O

;JABORT

THE PASS

D_6

vSv11/vS11 == GRAPHIC SYS. bIAG MACRO M1113 29-UAN-81 17:22 PAGE 62-1

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION

3123 030420

004737

012700

040000

010077
004737
062700
032700
001367

152410
027454
000400
001400

3130 030446

012777

000000

3132 030460
3133 030462

103410

3134 030502

3135 030510

004737

012737

004737

3136 030514 005005
3137 G30516 012777
3138 030524 005065
3139 030530 010501
3140 030532
3141 030534
3142 030536
3143 030542
3144 030546

006201
000301
052701
010177
004737

3146 030560

004737

2145 030552
3147 030564

3148 030572

3149 030576

027454

144003

022440

000013
003256

000003

152242

017702

100440

3154 030620 010265
3155 030624 012703

003256
000010

032702
0014601

000001

005102

3156 030630
3157 030632
3158 030634
3159 030636
3160 030642

005004
006202
006202

3162 030646
3163 030650
3164 030652
3165 030656
3166 030660

005303
001371
032704
001410

3161 030644

3167 030700
3168 030704

3169 030710

3170 030714
3171 030720
3172 030724

152310

012777

012777
017702
052702

3153 030616

023056

152256

152236

005204

042701

010177

004737

062705
020527
001274

PC,DPINIT

MOV
JSR
ADD
BIT
BNE

RO,aDYR
PC,WAITF
#CH1,RO
#(43,R0
108

152362

012777

027454

CONMEM: JUSR
10$:

040060
152272
027454
000000

000000
152222
176003

3150 030600
3151 030606
3152 030612

CONF I1G:

025402

3124 030424
3125 030430
3126 030434
3127 030440
%}Sg 0306444
3131 030454

1%:

2%:

012701

#0,aDXR

; TRY A PIXEL READ.

B(CS
DFERR

1%
PRBH

; BR IF UNSUCCESSFUL.
: PIXEL READBACK HANGS UP.

MOV
JSR

MOV

#0,aDXR

: PIXEL READ.

000002
000010

PC,WAITF

#3,aDSR

: IS MEM THERE?

MOV
MOV
BIS

#0,aDSR
aDSR,R?2
#176003,R2

: YES. GET PIXEL DATA.
:
: INVFRT PIXEL DATA.

MOV
MoV

R2.,CTABM(RS)
#8. ,R3

COM

5%:

R1
R1
#40060,R1
R1,aDYR
PC,WAITF

aDSR,R2

BMI

3%:

#1644003,GDDAT

PC,CSRCHK

: INIT MEM TABLE PTR.
: CLEAR (CSR.
: CLEAR TABLE ENTRY.
: ENABLE MEM R/W.

MoV

152226

PC,WAITF

RS
#13,aDSR
CTABM(RS)
RS.,R1

CLR
MOV
CLR

MOV

027454

003256

MOV

JSR

000001
152130

: PROTECT ALL MEMORIES

ASR
SWAB
BIS
MOV
JSR

4%:

000060

#40000,R0

MOV

JSR

23173 030726 072737 000010 003252 ¢6%:
3174 030734

SEQ 0069

; SUBROUTINE = CONF]GURE VvSV11 SYSTEM.

%%;g

3122 030414

PAGE 43

;

2118

3121 030414

29-JAN-81 17:22

CLR
ASR
ASR
BIT
8EQ
INC

DEC
BNE
BIT
BEQ
HRDERR

8IC

MOV

R4
R2
R2
#1,R2
4%

#60,R1

R1,aDYR

PC,WAITF

MOV

#RIT3 MEMFLG

: PUT PIXEL DATA [N MEM TABLE.
: GOT AN EVEN NUMBER OF PIXEL BITS?

R3
3%
#1,R4
5%
SCPRE,SYSCON

JSR

ADD
(MP
BNE

; NO.

: YES. RE-PROTECT THE MEM.

#2,RS
RS,#10
2%

: NEXT MEM,
: ALL MEMS CHECFKED?
; NO.

#MEMTAB,R)

: YES. SET ONE FLAG TO INDICATE MEMS AVAIL.

VSv11/vS11 == GRAPHIC S¥S. DIAG MAC{RO M1113

GLOBAL SUBROUTINES SECTION
3175 030740
3176 030742
3177 030744
3178 030752
3179 030756

7%:

005721
000020
003252

003252
CONSY(C:

025402

380 030760
3181 030764
3°82 030766
3183 030770
3184 030776
3185 031002
3186 031004
3187 031006
3188 031010
3189 031014
3190 031020
319 031024
3192 031032
3193 031036
3194 €31042
3195 031046
3196 031050
3197 031056
3198 031062
3199 031066
3200 031072
3201 031074
3202 031100
3203 031104
3204 031106
3205 031112
3200 031116
3207 031122
3208 031124
3209 031126
210 031130
3211 331132
3212 031136
3213 031142
031144

000013

003270

152036

031172

031174
031202
031204
031212
031214
N ANANINL
N

031234

1242
1246
1250
1252
1260

1%:

042100

151776

BIS

003270
2%:

000002
000010
003270
003230
100000

3%:

A
Y

000002

003300

002512

012737
012701
005721
001403
052737
006237

000010
003270

003256

003022

003270

003024

000020
003254

B8EQ

cMp
BNE
ADD
(MP

N
.

: INIT SYNC CHAN TABLE PTR.
CLEAR (CSR.
CLEAR TABLE ENTRY,
; READ CURSOR STATULS.

;

CTABS (RS)

R1
R1
#42100,R1
R1,aDXR
PC.WAITF
#3,aDSR

; GOT A DATA READY ERROR?

aDSR,R2

#3777 .R2

R§,41SOOOO
2

#BIT1S,CTABS(RS)
aDYR,R?

#157777 ,R2
R2.CTABS(RS)
#2 ,R5
R5,2#10
1%
#CTABS,RS

R3, INTLAC

YES.

SET IT IN TABLE.

; NO. SET CHAN EXISTS IN TABLE.
; GET INTERLACE BIT.

; REMEMBER IT IN R3.
; NEXT SYNC CHAN,

; AbL SYNC CHANS CHECKED?

;

NO.

; YES. ALL INTERLACE BITS THE SAME?

; REMEMBER INTERLACE/NON-INTERLACE STATUS
(R3 HAS LAST INTFRLACE BIT FOUND).

#RIT15,R3

. NO.

(RS)

(RS),R3
5%

#2,R5

(NO CHAN HERE).

;;

; GOT AN ENTRY IN TABLE?

: vgs.
; NO.
: YES.

; DONE?

INTERLACE BIT

SAME?

TABLE ENTRY.

BNE
BR

5¢:

HRDERR

SCIDE.SYSCON

6%:

TST

MFGFLG

: MGNUFACTURING FLAG SET?

(MP
BNE
(MP
BEQ
HRDERR

gEMTAB,MFGMO

MOV
MoV
TST

#BIT3,SYCFLG
#SYCTAB,R1
(R1)+

B1S

#B1T4,SYCFLG
SY(FLG

9%:
10%:

003254

MEMFLG
7
$
PC,DPINIT

R5,#CTABS+10
3%
6%

7%:

003254

B1S
ADD
CMP
BNE
MOV
MOV
BIS
TST

SEG 0C70
;

#IT4L MEMFLG

RS.R1

BIS
MOV
BIC

003270

(R1)+

MoV

BIC
CMP
BEQ

MOV

CLR

PAGE 43-1

R3
RS
#13,aDSR

MOV
MOV

150000

005737
001420
023737
001004
023737
001410

JSR
CLR
(LR

JSR

152002

003777
100000
151756
157777

ASR
BCC

MoV

152016

027454
000003

1ST

BEQ
BIS

ASR
SWAR
8IS

031146

031166

29-JAN=-81 17:22

11%:

BEQ

BEQ
ASR

SYCTAB,MFGSO

9%
SCME ,SYSCON

;.
;

NO.

YES.

;

NO.

;

NO.

YES.

YSS. NEW MEM 0 = MFG MEM O MASTER?

N Ngg SYNC (HAN O = MFG MASTER SYNC (HAN Q?
s NO.

N
:
:
;

SET ONE FLAG TU INDICATE SYNC (HANS AVAIL.

JSv11/7yS11 == GRAPMIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION

3232 031264

103370

352% 031266 000207

303,
235
323

29-JAN-81 17:22

BCC

RTS

108

PAGE 43~2

SEQ 0071

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION

005737
001403
012737
000207

003244

000001

KTON:

17757¢

1%:

TST
BEQ
MOV
RTS

KTFLG
1%
#1,SR0
Pr

; GOT KT?
: NO.
: YES. ENABLE KkT11,

;

gg;g

: SUBROUTINE - DISABLE MEM MGT,

3251 031306
3252

KTOFF:

3253 031306
3254 031310

000240
000240

3256 031320

000207

258 031312

SEQ 0072

: SUBROUTINE = ENABLE MEM MGT,

ggzg

3245
3246
3247
248

PAGE 44

£238

3241 031270
3242 031274
3243 031276
3244 031304

29-JAN-81 17:22

012737

000000

177572

:TST
;BEQ

KTFLG
1%

: GOT kT11?
: NO.

MOV

#0,SR0O

. DISABLE kT,

NOP
NOP

1%:

RTS

JSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

GLOBAL SUBROUTINES SECTION

KTBKGD: TST
BEQ
JSR

32¢2 031322
3263 031326
3264 031330

005737
001430
004737

003244

3266 031360

012737

001600

2268 031352
3209 031356
3270 031360
3271 031%62
3272 031364
3273 031372
22764 031376

(12702
010021
020102
001375
023737
001406
062737

150000
172354

003244

000200

172354

2277 (31404

C04737

(21306

012700

3567 031346 012701

7278 031410

SEQ 0073

: SUBROUTINE = FILL ALL MEMORY QVER 28k WITH ‘'STOPN''.
: (NOTE = ENABLE KT BEFORE CALLING THIS).

3259
ggg?

%ggg 031402

PAGE &5

3258

2265 031334

29-JAN-B1 17:22

000761

000207

031270

173000

140000

172354

MOV

#STOPN,RO
,
84K ] PARG
#1600
#150000,R1

B8R

MOV

1%:
2s:

3¢

9%:

KTFLG
9
PC,KTON

MOV

MOV
MOV
CMP
8NE
cMP
BEQ
ADD

JSR

RTS

: GOT KT1?
: NO. GET OuT.
: YES. ENABLE KT,

: FILL ALL MEM (>28k) WITH BACKGROUND.

#150000,R2
RO, (R1)+
R1,R2
2%
4K [ PARG KTFLG
3s
a#Kx | PARG
#200,

PC.KTOFF
PC

: DISABLE KT,

?IS. DIAG WA . RO M1113
ON
I

[

[0
)
TM

VvSV11/yS1Y == GRAPM
GLOBAL SUBROUT
INE
3280

3285 031422

3286 031424
3287 031426
3288 031430
289 031432
3290 031434
3291
3092

3 13
3294
3298 031436
2296 031442
3297 031444
3298 033446
2299 C31450
3300 031452
3301 031454
3302 031460
330%

031462
031464
031466
031470
031472
031474

010037
012700

010120
010%20
010320
9210420
010520
000207

031462
031464

SAVERS: MOV

MoV
MOV
MOV
MOV

MOV
MOov
RTS

J
6
PAGE 46

RO, SAVED
#SAVED+2
RO
R1,(RO)
R2,(R0O)»

R3,(RQ)

RG, (RO)
RS,(RO)

SUBROUTINE 10 RESTORE RO-RS.
02700
012001
012002
012003
012004
012005
013700
000207

000000
000000
000000
000000
000000
000000

031464

RESTRS: MOV

MOV
MOV
MOV
MOV
MOV
MOV

031462

RTS

SAVED:

lelalelelole

3283 031412
3284 N31416

3306
7307
3308
3309
3310
331,

17:22

1 SUBROUTINE TO SAVE RO-RS.

1281
3282

3704
3305

D9« AN=81

#SAVED+?2
RO
+ R
(RQ)
(RQ)+ ,R?2

(RO) +,R3
(RO)
¢ R4
(RO)+ RS

SAVED RO

SEQ 0074

’

K_6

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 47

SEQ 0075

GLOBAL SUBROUTINES SECTION

. SUBROUTINE TO SET=UP VARIOUS ENVIRONMENTAL PARAMETERS.

3313

%112

3316 031476

ENVIRN: MEMORY

MOV
ADD
MOV
SuB
MOV
SuB

RO,FREE
#2 FREE
(RO) ,FRESIZ
#4 ,FRESIZ
LSUNIT ,R2
#7 ,FRESIZ

: GET 1ST FREE ADDRESS...
:...AND WORD COUNT.
; GET NUMBER OF UNITS
: TAKE AWAY 7 WORDS PER UNIT

3326 031542 012737 000010 027564

MOV

#8.,K100US

: ASSUME LSI FOR 100US TIMER.

3328 031552

#32.,K100US
#60. ,HZ

; NOT LSI == CHANGE TIMER.
: ASSUME 60 HZ SYSTEM.

3317 031500
3318 031504
3319 031512
3220 031516
7321 031524
3322 031530

3323 0,1536
%%Sé 031540

010037
062737
011037
162737
013702
162737

005302
001373

003240
000002 003240
003242
000004 003242
002012
000007 003242

10%:

DEC
BNE

READBUS

3327 231550

R2
108

BCOMPLETE 1%

3329 031554 012737 C00040 027564
3330 031562

1%:

MOV
MOV

3334
3335

N
;

CLR
MOV

a0 (RO)
6(R0O) ,HZ

; INSURE (LOCK IS OFF.
: SET ACTUAL FREQUENCY.

JSR

PC,KTINIT

: INIT KT11 MEM MGT.

332
3332
3333

3336
3337
2338

:
:
.

;
;
;

HMAXYE0, YMAX
MoV
L ,RO
cLock
2%
TE
BNCOMPLE

cMP
GEQ
MOV

HZ,#60.
2%
MMAXYSO, YMAX

;

;
;
;

3339 031562 004737 031656

2%:

3341

: NOW THE FOLLOWING CODE PROVIDES A KEY RESTART FOR
: THE DIAGNOSTIC SUPERVISOR (DRS), AND FOR XXDP+ MONITOR.
. IF EITHER ONE CHANGES, THIS WILL PROBABLY TURN TO SHIT ..
: BUT FOR NOW == IT'S CONVENIENT FOR DEBUGGING PURPQSES.

3340 031566

000240

3342
3343
3344
§§25

3348
3349
3350

025570
026050
026072

3354 031574

010037

003726
%%g;
3353 031572 104042

3355 031600 042700
3356 031604 162700
3357 031610 062700
3358 031614 010037

: THE FOLLOWING OFFSETS APPLY TO DRS REV D.

XX.ENTRY- 25570
SUPVSR= 26050
XX.EXIT= 26072
003236

007777

027000
026050
100206

3359 031620 012737 000137 000204
3360 031626
3361 031632
3362 031636

013700 003236
042700 007777
062700 003726

3365 031654

000207

3363 031642 010037 000212

3364 031646 012737 000137 000210

3366

3367

:*tifitttttttttttttttttttttttttttfittttttfittttttttttt'tttttttt'tt!

3406

3347

240,240

3726
XXDP=
42
KLUDGE: EMT

: DRS (REV D) ENTRY FROM XXDP+.
: DRS (REV D) SUPERVISOR RESTART,
: DRS (REV D) EXIT TO XXDP+.

; XXDF RESTART ADDRESS (XX3726).
: XXDP+ COMM BLOCK POINTER -> RO

MOV

RO, XXCOMM

SuB
ADD
MOV

#27000,R0O
#SUPVSR,RO

MOV
BIC
ADD

MOV

XXCOMM, RO
#7777 ,RO
#XXDP ,RO
RO,a#21?2

RTS

BIC

MOV
MOV

#7777 .k

RO,a#206

#1357 .a#204

#157,24210

; SAVE IT.

; MASK TO 2K PAGE...
:...MINUS DRS SIZE (5.75K)...
:...PLUS DRS RESTART OFFSET...
... — DRS RESTART ADDRESS.
; LOC 204 = JMP DRS-RESTART.
: GET POINTER AGAIN.
; MASK TO 2K PAGE...
:...PLUS RESTART OFFSET...
... = XXDP+ RESTART ADDRESS.

; LOC 210 = JMP XXDP+

'-ttttttttttttt*tttttttt'tittttttttttttttt'tttttttttttt't'ttttttt

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
GLOBAL SUBROUTINES SECTION
3369
3370
3371
3372 031656
3373 031662
3374 031670
3375 031672
3376 031676
3377 031704
3378 031710
3379 031712
3330 031720
3381 031726
3382 031732
3383 031734
3384 031740
3385 031746
3386 031750
3387 031754
3388 (31760
3389 031762
3390 031766
3391

3392 031770
031770

031774
3393 031776
339,
3395 032002

29-JAN-81 17:22

PAGE 48

SEQ 0076

* SUBROUTINE - IF OVER 28K & KT11 AVAIL,
005037
023727
101444

013700
012737
005737
000240
013737
042737
010037
005000
012701
012761

010021
062700

020027
001367
012741
000405
012716
000092
010037
000207

003244
002120
00004
031770
177572

002120
000177
000004
172340
077406

001577

KT INIT:

MOV
MoV
TST
NOP
MOV

000004
003244
003244

BIC

MOV

CLR

177740

1%:

000200
002000

MOV
MOV
MOV
ADD

(MP
BNE
MOV
BR

177600

031776

CLR
CMP
BLOS

2%:

000004
9%:

FORRTI
MOV
RT]
MOV
RTS

KTFLG

INIT KT11.

LSHIME #1577

; GgT ENOUGH MEMORY (>28K)?

RO
4ERRVEC

; SAVE OLD ERR VEC PTR.

;

NO.

#2% ,0#ERRVEC

3#SRO

; SET ERR VEC PTR.
; GOT KT11?

LSHIME KTFLG

% YES. SET KT FLAG.

#1177 ,KTFLG
RO, a#ERRVEC
RO
#K IPARO,R1
#77406,-40(R1)
RO, (R1)+
#200,R0

R2,k2000

1
#177600,-(R1)

#.+6,(SP)
RO,a#ERRVEC
PC

(TRAP IF NO).

; RESTORE OLD ERR VE(C PTR,
;

RO = AR DATA.

;

SET DESCRIPTOR REG.

; R1 = KI REGS PTR.
; SET KIPAR REG.

; BUMP AR DATA BY ‘4K’
; AT "'1/0'7?
.

NO.

; YES. SET KTPAR7 FOR /0.

:
:

FORCE RTI RETURN TO -

= NEXT LOC.
RESTORE OLD ERR VEC PTR.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
INITIALIZE SECTION

29-JAN-81 17:22

.SBTTL

3397

PAGE 49

SEQ 0077

INITIALIZE SECTION

s+t

; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
; AT THE BEGINNING OF EACH PASS.

032004
032006
032014

177777

B?NPR?T

177777

ENDPROT

=1, =1

; NO DEVICE PROTECTION REQUIRED.

BGNINIT

032014

. IF ''START'' OR 'RESTART'', SET QUICK-PASS FLAG AND BUS-INIT.

—

P RRERRRR

b o) =D

S NoTo . RNTo RV, P YW V]

; IF "'CONTINUE'', NOTHING IS REQUIRED.

032014
032020
032026
032030
032036
032040
032044
032046
032052
032054
032060
032062
032070
032072
032076
032104
032106
032114
032116
032124
032126
032126
032130
032136
032142
032146
032152
032154
032160
032162
032164
032170

032174
032174
032202
032206
032210
032214
032222
032224
032232

005037

023737
103056
005737
100460

013701
006301
005761
001504
032761
001046

CLR

023064

003026

READEF

BNCOMPLETE 1%
UNITN,LSUNIT
(MP
4%
BHIS
DUFLG
TST
NXTU
BM]
UNITN,R1
MOV

002012

003224
003026

003302
040000

SIFLAG

#EF .CONTINUE

ASL
TST
BEQ

R1
ERTABL (R1)
SETU

BNE

NXTU

BIT

003302
1%:

EXIT

;CLEAR ''SOFT INIT'' FLAG
JUNIT IN RANGE?
;BR IF NO.
;DROPPED UNIT?
;BR IF YES

#B1T14 ,ERTABL (R1)

INIT

READEF #EF .NEW
BNCOMPLETE NXTU
H#EF.START
READEF

: DROPPED?

;DO NOTHING IF ''CONTINUE''.
;TAKE NEXT UNIT

IF NOT NEW PASS.

BCOMPLETE 2%
READEF

2%:

012737
005037
004737
012700
005020
020027
103774
000404
005037
000137

177777

030070
031476
003302

003030

30%:

003502

31%:

003030
032240

012737
005037

032726

005237
023737

003026
003026

002012

012737
000401

177777

003224

103423

177777

003026

BRESET
MOV
CLR
JSR

MOV
CLR
CMP
BLO
BR
CLR
JMP

4%:
NEWPAS: MoV
NXTU:

#EF .RESTART

BNCOMPLETE 318%

CLR

BREAK
INC

CMP

BLO
MOV

#-1,QVP
TESTK
PC,ENVIRN
H#ERTABL ,RO
+
(RO)
RO,#ERTABE

;

1ST PASS, BUS<INIT...

; BUS RESET.
VERIFY...
ICK
;...QU
TOTAL TEST COUNT.
EAR
;...CL
ONMENT.
ENVIR
; SET

;CLEAR THE ERROR TABLE

30%
4%
QvpP
PASRPT

;GO REPORT THE STATUS

#-1,UNITN
DEVCNT

JINIT UNIT NUMBER...
;CLEAR COUNT OF DEVICES RUNNING

UNITN

;...AND SET NEXT UNIT NUMBER.

UNITN,LSUNIT
SETU
#-1,DUFLG
1%

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
INITIALIZE SECTION

3454 032234
3455 032236
3456 032240
3457 032240
3458 032246
3459 032250
3460 032254
3461 032256
3462 032260
3463 032264
3465 032266
3466 032270
3467 032272

3469 032272
3470 032300
3471 032302
3472 032306
3473 032312

3474 032314
3475 032320
3476 032322
3477 032326
3478 032332
3481 032334
3482 032336
3483 032340
3484 032344

023727

002012

005737
001747

032726

032700

000100

101752

001343

000001

PASRPT:

SETU:

005037
005237
012001
012702
010122
062701
020227
101772

012001
011002

003224
032726

003032

20%:

000002
003046

012037
010137
012721

003050
003052
026242

010137
012721

003054
026274

010137
012721
010221
010137
012721
010221
010137
012721
010221
012037
012737
012737
005720
001406
012737
012737

003056
026210

005037
005737
001003
012737

003064
002502

010221

CMP

003060
026326

003216
001676
000074

BNE

NE WPAS

000062
001776

040000

003246
003250

;BR IF ONLY 1

JARE ANY STILL RUNNING?

:BR IF NO

;SHOULD WE PRINT STATISTICS
;BR IF NO

GPHARD

UNITN,RO

;JGET UNIT N P-TABLE POINTER.
;BR IF UNIT NOT AVAILABLE.
;CLEAR 'DROPPED'' FLAG.

MOV
MOV
MOV
ADD
CMP
BLOS

(RO)+,R1
#DPC,R2
R1,(R2)+
#2.R1
RZ2.,#LMR
20%

; GET 1ST REGISTER ADDRESS.

MOV
MOV
MOV

(RO)+ ,R1
(RO) ,R2
(RO)
+ ,DPRI]

; GET 1ST VECTOR ADDRESS.
; GET INTERRUPT PRIORITY
; SET INTERRUPT PRIORITY.

BNCOMPLETE NXTU
DUFLG
CLR
DEVCNT
INC

; SET STOP VECTOR POINTER...

MOV
MOV
Mov
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R1,STPV
+
#DSTP,(R1)
R2,(R1)+
R1,JSMV
#DJIM, (R1)+
R2,(R1)+
R1,TOTV
#DTO,(R1)+
R2.,(R1)+
R1,JSSV

MOV
MOV
MOV
MOV
MOV

R2,(R1)+
R1,LUTV

; DITTO LUT DONE.

#MAXYE0, YMAX

; GET '"LUT AVAILABLE'' ENTRY
; ASSUME 60H7 FREQUENCY.

MOV

#DJS,(R1)+

#LDUN, (R1)+
RZ2,(R1)+
(RO)+,LUTAV
#60. ,HZ
(RO)+
21%
#50. ,HZ

#MAXYSO, YMAX

CLR

OPT!

BNE

TST

003064

#1SR,RO

JHOW MANY UNITS SELECTED?

NEWPAS

MOV
TST
BEG
MOV

21%:

SEQ 0078

B8R

MOV

003250
003246

21
LSUNIT

NEWPAS
DEVCNT
NEWPAS
RO

MOV

003062
026602

;ABORT, NO MORE UNITS.

BLOS
TST
BEQ
RFLAGS

DORPT

10%:

PAGE 49-1

DOCLN
NOP

BIT

000741

010221

3507 032466
3508 032472
3509 032476
3510 032500

11%:

000240

29-JAN-81 17:22

MOV

DPUMOD
#1,0PT]

;...VECTOR...

;...AND PRIORITY.

; DITTO JOY=STICK MAT(CH.
; DITTO TIME-OUT.

- DITTO JOY-STICK SWITCH.

WHAT IS SELECTED FREQUENCY?

" BR IF &0HZ

: SAY 50 HZ
* AND SET UP FOR 512 VISIBLE LINES
; DPU ONLY?
SKIP NEXT IF DPU-ONLY.

*SET OPTIONAL I(NTENSIFY) BIT.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
INITIALIZE SECTION
WY

3511 032506
51
51

1%:
;
:

29-JAN-81 17:22
TST
BEQ

QvP
5%

B 7
PAGE 49-2

SEQ 0079
;1ST PASS

:NO, SKIP THE PASS 1 STUFF.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
INITIALIZE SECTION
3515
3516
3517
3518
3519 032506
3520 032512
3521 032514
3522 032522
3523 032526
3524 032534
3525 032536
3526 032540
3527 032544
3528 032546
3529 032572
3530 032572
3531 032576
3532 032602
0326%6
032612
032614
032620
032622
032630
032634
032636
032642
032644
032650
032656
032664
032670
032672
032676

032702
032706
032710

PAGE 50

SEQ 0080

1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.
013701
006301
052761
005037
023727

003026

032700
001412

001000

005037
013701
013702
004737
103003
010137
000416
012777
005777
100413
013701
006301
005261
012737
012737

003226
003032
003040
027566

005737
001412
013701
013702
004737

003216

012737

000000

101416

103003

100000
022300
002012

000001

815
(LR
CMP

; SAY DEVICE RUNNING
#R]T15,ERTABL (R1)
EXTENSION fLAG.
ERROR
CLEAR
;
EXTA
MULTIPLE UNITS?
TESTING
WE
ARE
;
LSUNIT, #1

BIT

BEQ
PRINTF
CLR
()%
MOV

150204

2%:

3%:

4%:

003042
003046
027566

10%
#PUNIT,UNITN

; BR IF NOT.
; PRINT THE UNIT #

#PNT ,RO
NODEV
DPC.RI]
DYR,R?

; SHOULD WE PRINT UNIT #?

#0,3aDSR

;SELECT REAL DSR

BM]

TST

aDSR

UNITN,RT

ERTABL (R1)

MOV

#-1,DUFLG

Mov

#1 ,NODEV

TST

LUTAV

MOV

LSR.R]

JSR
BCC
MOV

PC.NXM
5%
#0,LUTAV

BEQ

;DROP THIS UNIT.

;IS UNIT STOPPED?

;BR IF DISPLAY INITIALIZED OK.

INC

10}

003216

; BR IF NO.
; YES =- GET OPERATOR FLAGS.

MOV

ASL

003226
003224

103
RO

;TEST ALL 4 DPyU REGISTERS...
;...AND BR IF ALL OK.
;FLAG DEVICE AS NON-EXISTENT

MOV

003026

PC,NXM
2%
R1,NODEV

JSR
B8CC
MoV

003226

003302
000001
177777

UNITN,R1

BLOS
RFLAGS

108

000000
150200

MOV
ASL

003302

LMR ,R2

;FLAG AS NOT IDLE

; NOW, SEE IF LUT INSTALLED.

; BR IF NO

; TEST ALL LUT REGISTERS...
;...BR IF IT'S THERE.
; CLEAR "LUT AVAILABLE'' FLAG.

; FINALLY, SET CPU PRIORITY AND WE'RE DONE.
;ENABLE INTERRUPTS.
SETPRI #PRIOD
5%:

032716
032724
032726
032730

29-JAN-81 17:22

ENDINIT

000000
045

116

045

DEVINT: O
PUNIT: .?3%&2

;COUNT OF RUNNING DEVICES
/AININZA*exxs TESTING UNIT ZD2XA xexxe/

- SUBROUTINE - IF USER PATCHABLE FLAG 'FORCER'' IS SET (NON-ZERO),
- THEN FORCE RETURN TO THE NEXT ERROR CALL (HRDERR) IN SEQUENCE.

3569 032776

033002
3571 033004

005737
001402
062716

003020
000004

FORCET: TST

BEQ

ADD

FORCER

; FORCE ERROR TYPOQUT?

#4,(SP)

: YES. FORCE RTN TO THE HRDERR CALL.

;;

NO.

INITIAUIZE SECTION

3572 033010

000207

18:

29-)AN-81 17:22
RTS

PAGE 50-1

SEQ 0081

| vSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

ADD AND DROP UNITS SECTIONS

.SBTTL

3574
3575
3576

3577
3578
3579
3580
3581 033012
3582 033012
3583 033014
3584 033016
3585 033024
3586 033032
3587 033054

3588 033060

29-JAN-81 17:22

PAGE 51

7
SEQ 0082

ADD AND DROP UNITS SECTIONS

c44

: THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME,
OR (B) RE-INSERTED iF IT HAD GEEN PREVIOUSLY DROPPED.
;

010001
006301
052761
042761
045

BGNAU

00000
040000
116

045

RO,R1

BIS
BIC

#100000,ERTABL (R1)
#40000,ERTABL (R1)

EXIT

PRINTF

1%:

#1%,R0

LASCIZ
.EVEN

/%NX¥A

; SET THE "ACTIVE'' BIT
; CLEAR THE 'DROPPED'' BIT

UNIT ZDXA ADDED/

; UNUSED.

ENDAU

3591 033106

; MAKE IT A WORD INDEX

ASL

003302
003302

; GET UNIT 70 BE ADDED (RO)

MOV

: THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE

8,8,

0.0,

;

012737
010001

3607 033120
3608 033122
3609 033130
3610 033136
3611 033160
3612 033164

3613
3614 033214
3615
3616
3617
3618 033216
3619 033216

177777

TO BE REMOVED FROM THE TEST LIST.

THIS IS JUST TO TELL THE MAN.
SUPVSR DOES THE ‘DROPPING''.
"DROPPED'* UNITS ARE RE~SELECTED ON OPERATOR ''STA'* OR ''ADD'’
COMMAND, OTHERWISE REMAIN INACTIVE. THE 'DISPLAY'' COMMAND
wILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE
WHICH ARE

BGNDU

003224

MOV
MOV

ggVB

;

006301
052761
000240

000240

003302
000240

045

116

045

140000

STILL ACTIVE.

UPON ENTRY, RO CONTAINS THt UNIT TO BE DROPPED.

#4-1,DUFLG
RO,R1

g;1,STIK(R1)

;REMOVE "'JOY-STICK'' FLAG.

#140000,ERTABL (R1)
BIS
N
240,240,240
1%:

PRINTF
EXIT

LASCIZ

.EVEN
ENDDU

#1%,R0O
Dy

/%NZA

UNIT XDXA DROPPED/

;00

AUTO-DROP CODE

BGNAUTO

ENDAUTO

; SAY DROPPED

SECTION.

; UNUSED.

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

CLEAN=UP AND REPORI CODING SECTIONS
2621

3622
3623

3636 033244

3637 033252
3638 033256
3639 033262

3640 33264

3641 033270

005737
1004164

004737

012777

004737
005737
001402

005077

027454

100000

027454
003216

147552

3649 033314
3650 033316

3654 033330

001467

012704
005003
011402

100066

3656 €33334
3657 033340
3658 033342
3659 033346

032702
001015
042702

3661 033374

020227

3660 033372

000446

3662 033400
3663 033402

001012

3664 033424

000431

3665 033426

(020227

3668 (033456

000414

3666 033432
3667 033434

3669 033460
3670 033464
3671 033510
3672 033514
3673 033516
36746 033522
3675 033524
3676 033526
3677 033530

DUFLG
1%

147576

JSR
MOV

PC,RELEAS
#GTJSSW,aDXR

:CHECK FOR "HUNG'' DPU.
;CLEAR PENDING SWITCH INTERRUPT

147506

MOV

#100000,aDYR

;DO SOFT INIT.

aLSR

: IF LUT, CLEAR STATUS.

JSR

1%:

. SR
TST
BEQ

2%:

ENDCLN

CLR

PC,WA]ITF
PC,WAITF
LUTAV
2%

: THE REPORT CODING SECTION CONTAINS THE
: "PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

010246
010346
010446

3655 033332

CLEAN=UP AND REPORT CODING SECTIONS

]
;' DROPPED'* FLAG IS SET ON...
:...AND GROSS DPU FAULT...
:...DON'T TRY TO XCT DPU (CDE.

3643
%gzg

3651 033320
3652 033324
3653 033326

SEQ 0083

B8GNCLN
TST
BM]

003224

3642

3646 033272
3647 033272
3648 033312

: THE CLEANUP (ODING SECTION CONTAINS THE CODING THAT IS
: EXECUTED AT THE END OF EA(CH PASS (OR SUB=PASS).
: USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE.

%2%}
3633 033226 004737 026756
3634 033232 012777 040000
3635 033240

LSBTTL

PAGE 52

see

3624
3625
%g%g
3628 033220
3629 033220
3630 033224

29-JAN-81 17:22

001012

BGNRPT
PRINTS
MOV

003302
1%:

170000

160000

2%:

160001

3%:

042702

170000

30%:

062704
005203
020427
103701
012604

000002

4%:

012603
012602

BEQ

MOV
CLR
MOV
BPL

040000

003502

MOV
MOV

#DEVSUM
R2,-(SP)
R3,-(SP)
R4 ,=(SP)

#ERTABL ,RG
R3
(R4) ,R?
4%

: GET START OF ERROR TABLE.
: CLEAR UNIT NUMBER
: GET ERROR TABLE ENTRY & TEST [T.
; ZERD [F UNIT NOT RUN

BIT
BNE
BIC
PRINTS

#BIT14,R2
2%
#~C7777 ,R2
#DEVONL.R3,RZ

: WAS UNIT DROPPED?
; BR IF YES
: GET ERROR COUNT FIELD
: PRINT

CMP

R2.,4160000

: WAS UNIT NON-EXISTENT?

BNE
PRINTS
BR

CMP

BNE
PRINTS
BR

BIC
PRINTS
ADD
INC
(MP
BLO
MOV
MOV
MOV

3%
#DEVNXR,R3
43

R2 ., 42160001

30%
#DEVNRD,R3
4%

#~C7777 ,R2
#DEVDRO,R3,R2
#2 ,R4
R3
R4 ,#ERTABE
1%
(SP)+ R4
(SP)+ ,R3
(SP)+ ,R2

; BR IF NO

: WAS UNIT NOT READY AT STARTUP?
; BR IF NO.

,AV117y511 == GRAPHIC SYS. DIAG MACRO M1113

CLEAN=UP AND REPORT CODING SECTIONS

29-JAN-81 17:22

3681 033534

3682 033571
3683 (33641
3684 033723
%ggg 034C04

045

045
045
045
045

116

101
10?
101
101

045

040
040
040
040

DEVSUM: .ASCIZ

DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

.ASCIZ
.ASCIZ
.ASCIZ
.?Sgél
EV

SEQ 0084

; UNUSED.

ENDRPT

378 033532

3679
3680

6.7

PAGE 52-1

/INXADEVICE STATUS SUMMARY:IN/

/%A
/%A
/%A
/%A

NIT XD3XA
1 IT %¥D3YA
UNIT ¥D3%A
UNIT %D3%A

ONLINE, ERRORS - XDIN/
DROPPED, NON-EXISTENT REGISTERIN/
DROFPED, NOT READY AT STARTUPZIN/
DROPPED, ERRORS - XDAIN/

N7
53
PAGE
2
17:2
1
AN-8
29-J
3
M111
D
MACR
VSv11/vS11 == GRAPHIC SYS. DIAG

2688
3689
3630
i
392
3693
3694
3695

000000

LSBTTL
"SBTTL HARDWARE TEST SECTION.
TSRTTL
ONPTI
CRI
DES
#
TEST
TTL
.SB
mea
emc
mcm
mee
=mm
‘BITL
“SRTTL
IN=0
NLIST MC.ME

Je
SEQ 0085

JSY11/vS11 == GRAPMIC SYS. DIAG MACRO M1113

eee TESY 1

STATIC RESET

%9?

29-JAN-81 17:22

[

PAGE 54

7
SEQ 0086

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

BEGIN TEST 1

STATIC RESET

:'l.'."'.".".....".""'Q""Ql""....Q..O..'..'..'.'.....'.."....'
:

(ITERATION COUNT

1.)

3698

3701

: EXECUTE A BUS RESET INSTRUCTION AND (HE(K THE STATE OF THE DPU.
: THIS TEST IS ALMOST IDENTICAL TO THE SOFT=INJT"' ROUTINEIN (DPINIT:)
THIS
: USED TO INIT THE DPU AT THE START OF MANY OF THE TESTS

;;82

: INSTEAD OF °'‘SOFT=INIT".

2699

3700
3702
3703

: PROGRAM. THE DIFFERENCES ARE THAT INSTEAD OF A SOf TWARE DPU INIT,
: A BUS RESET IS USED, AND THAT THE ERROR ME SSAGE READS "BUS RESET',

¥8? 036122 004737 027702

STRSET: JSR

3708 C34126

1$:

3709 034126

3710 034130
3711 034132
3712 034136

004737
205002

3715 034150

001003

027454

3713 034140 C12703
3714 036146 005777

100000
146662

3716 034152
3717 034156

027703
001410

146656

3719 034200

004737

3721 034206

Q05005

3718 034160
3720 034204

3722 034210
3723 034214
3724 034216
3725 034222
g;gg 034224

0C5004

005777
001003
005777
001410

023422

034256

000137

0341726

648 :

034262

004737 030C72

65%:

g;;? 034266

PC,1IR(HK

:(HECK THE INTERMAL REGISTERS

:DXR AND DYR SHOJLD BE O.

DFERR

BRIN]T,P(SERR

CLR

JSR

ENDSEG

027646

103401
000402

;(HECK DSK.

5%:

004737

034252
034254

aDSR,R3
33

4%:

03462646

CEXPECT DSR 10 BE 100000.
:TEST THE DPC, S/B -0.

(MP
BEQ

TST
BNE
ST
BEQ
DFERR

146676

; BUS RESEY.
;WAIT FOR A COMPLETE
JEXPECT DPC TO BE 0.

MIT1S5,R3
aDP(

(LR

146627

3728 034244

3729 034246

b1 ¥

PC,WAITF
R2

MOV
1ST

BNE

2%:

; €CCECCLCCLLCLLLLLLCLLLCLLLC< BEGIN SFGMFNT,

BGNSEG
BRESET
JSR
(LR

; TITLE.

PC,TSTGO

aDXR
43
aDYR
5%
BRINIT,_XYERR

(OMEND

PC,LO0P

JMP

JSR

PC,TSTEND

Ex]T

648
65%

187

:REPORT ERROR [N DPC OR DSR.

; €CCLCLLLLLLLLLLLCLLLLLLCLC<< END SEGMENT,

JSR

BCS
BR

:ERROR IF NOT 0.

: REPEAT °*TIL LOOPER EXPJRES.

: PRINT ERROR SUMMARY, [F REQ®D.

J EXIT THIS TEST >3>5333533533335>535552550

END.TEST

3732 03272

E PRI NNEANREARNNOEOORORCOORORORARCRORRROERRACOCONRROOROROIORRERTIOTROORCETOITOTS

@30,

.
|

END TEST 1

:..'......'Q'.....Q'...""..........'.C.'........Q".l.'..".'..t'.'...

Sy11/7y511 e GRAPMIC SYS, DIAL MAIRO M'113 29= ,AN=81 17:22 PAGE ‘64

eoe

TEST

STATI{

RESE?

SEQ 0087

VSV11/vS11 == GRAPHI(

RESE T

vee TEST 2

SYS.

ONES

29-JUAN-81 17:22

DIAG MACRO M1113

3734

PAGE 55

7
SEQ 0088

"t'."'..""""'t"tl""""i".tt'fitttt'fi"t'l."t.t"'t"ttt'.t""'
b

[

BEGIN TEST 2

A
b

]

RESET ONES

"'t."'fi'..'t"'ifi't't't"t.ttt't'tt".tfitt'tltt"' 2222222022 SRRl RN
.

(ITERATION COUNT = 1.)

3735
3736

SET, THEN
; SET ALL APPLICABLE REGISTERS TO ONES, CHECK THAT ONES GOT
DPU.
THE
OF
; EXECUTE A BUS RESET INSTRUCTION AND CHECK THE STATE
EXCEPT THAT

3737

3738
3739
3740
3741
3742 034340
3743 034344
3744
3745 034346
3746 034352
034352
034356
034360
3747 034364
034364
034372
3748 034376
034376
034400
034402
034424
3749
3750 034424
034424
3751 034432
034432
3752 034440
034440
034446
2753 034452
3754 034454
3755 034460
3756 034464
034464
034466
034470

034512

3757 03512
3758 034514

%4520

524
524
526

V%530
3761

034552

; THIS IS THE SAME AS THE ''STATIC RESET'' TEST ABOVE,
:

THE REGISTERS ARE SET TO ONES FIRST.

: R1-EXPECTED, R2=RECEIVED, RO,R3-WORK REGS.
PC,TSTGO

TITLE.

004737

027702

RESET1: JSR

012701

177763

MOV

,R1
8177763

012700
050190
010077

000013

MOV
81S

#5ETCSR,RO
R1,R0O

: WRITE R1

012777
017702

000003

#SELCSR,aDSR

: READ CSR INTO R2 .

BGNSEG

1%:

WTIDSRA

[0}V
RDDSRA

146450
146436

MOV

166462

MOV

020102
0014611
6468

012777

172774

1646402

012777

170015

146374

012777
017702
010203

000004

146366

0462702
012701

146362

010302

062702
012701

WIDSRA
MOV
WTDSRA
MOV
RDDSRA

170000

0201902
001411

o8
(Ao

ICSRE,EXPREC,,CKLOOP
; 0K?
R1,R2
: YES.
648
JCSRE,EXPREC,CKLOOP

; NO.

#177760,MRR
#1777608~C17!SETMRR,aDSR
#170000,MPM
#1700008C17!SETMPM,aDSR
MRR,R?2

8IC

#170000,R2

: MRR 0OK?

aDSR,R2
R2,R3

#7777 ,R1

]MRRE ,EXPREC, ,CKLOOP
. 0K?
R1,R2
: YES.
65%
IMRRE ,EXPREC,(CKLOOP

MOV

R3,R2

MOV

#170000,R1

BIC

007777

aDSR.,RZ

; READ MRR INTO RZ .

IFERROR
(MP
BEQ
HRDERR

65$

RO,aDSR
(CSR.R2

INTO CSR .

A#SELMRR,aDSR

MOV

007777

R1,CSR

MOV

MOV
MOV

170000

020102
001eM

IFERROR
cMP
BEQ
HRDERR

; €<LCCLLLLLLLLLLLLLLLLLL<<< BEGIN SEGMENT.

IFERROR
(MP
BEQ
HRDERR

#7777 .R2

; NOC.

; MPM 0k?

]MPME ,EXPREC,,CKLOOP
. 0K?
R1,R2
: YES.
66%
|MPME ,EXPREC,CKLOOP

. NO.

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

ewe TEST 2

3762 034552
034552
3763 834560
3764 034566

3765
3766
3767
3768

034600
034602
034606
034612

RESET ONES

012777

177776

146254

012777

170017

146246

012777
017702
010203
0462702
012701

000006
146234

WIDSRA
MOV
WIDSRA

MOV

RDDSRA

146240

170000

3772 034652

007777

67%:

007777
170000

020102
001411

034700

68%:

3774 034709
3775 034702
3776 034706
3777 034710
3778 034714

10%:

3779 034720

3780 034722
3781 034726
3782 034730

3783 034750
3784 034754
3785 034756
3786 034760
3787 034764
3788 034766
3789 034772
3790 034774

004737
005002
012703
005777
001003
027703
001410

027454

004737
005004
005005
005777
001003
005777
001410

023422

100000
146112
146106

3794 035016

11%:

#177760,XRR
#1777608~C17' SETXRR,aDSR
#170000,XPM

#170000€4C17! SETXPM, aDSR
XRR,R2

#SELXRR,aDSR

: READ XRR INTO R2 .

MOV
8IC

R2,RS
2170000,R2

: XRR OK?

BEQ
HRDERR

. YES.
67%
IXRRE,EXPREC,CKLOOP

aDSR,R2

BRESET
JSR
CLR
MOV
TST
BNE
CMP

PC,WAITF
R2
#BIT15,R3
aDP(C
11%
aDSR.,R3

. BUS RESET.
;WAIT FOR A COMPLETE
SEXPECT DPC TO BE O.
:EXPECT DSR TO BE 100000.
:TEST THE DPC, S/B =0.
:ERROR [F NOT O.
;CHECK DSR.

DFERR
gsg

BRINIT,PCSERR
SE,IIRCHK

:REPORT ERROR IN DPC OR DSR.
:CHECK THE INTERNAL REGISTERS

:DXR AND DYR SHOULD BE 0

BEQ
L

12%

TS7

aDXR

TST

aDYR

BNE

146046
13%:

BEQ
DFERR

14%:

ENDSEG

13%

14%
BRINIT,XYERR

COMEND

; €<LCLCLLLLLLLLLLLLLLLLLLLL< END SEGMENT.
1%

JSR

PC,LOOP

035016
035022
035024

004737

035026

000137

034344

69%:

JMP

035032
3795 035036

004737

030072

70%:

JSR

PC,TSTEND

3796

3797 035042

103401

027646

B8(S
BR

000402

. NO.

; XPM 0OK?
R3.R2
MOV
#7777 ,R2
BIC
#170000,R1
MOV
iFERROR IXPME ,EXPREC, ,CKLOOP
; 0K?
R1,R2
CMP
. YES.
68%
BEQ
. NO.
HRDERR IXPME ,EXPREC, CKLOOP

CLR

146052

3792 035014

SEQ 0089

#7777 .R1
MOV
IFERROR IXRRE ,EXPREC,,(KLOOP
; 0K?
R1,R2
(MP

020102

010302
042702
012701

MOV
MOV

001411

3769 034640

29-JAN-81 17:22

PAGE 55-1

EXIT

69%
70%

: REPEAT °'TIL LOOPER EXPIRES.

: PRINT ERROR SUMMARY, IF REQ'D.

JEXIT THIS TEST D335355535553>35>53>53>55>>

END.TEST
"ttitt'tlttfitttttttl’tt'tt"titfit"fi‘ttttttlittttttt'tfi'ttt"'t"tttttttt

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
eev TEST 2

RESET ONES

i
o %

29-JAN-81 17:22

PAGE 55-2

END TEST 2

:tt'tt'.i.Q!"'t‘fi.tt't't't.iti.fi.'t'ttt.t'."t""fi'ttttt.'...t't'.'t"

SEQ G090

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
ver TEST 3

SOFT INIT ONES

3799

29-JAN-81 17:22

PAGE 56

SEQ 0091

"ttttlttktttitt*'ttfitt'tt'it't'ttttfitfiittt'tttittttttttfi'tifi'tttit'tt't.
. %

BEGIN TEST 3

SOFT INIT ONES

. %

:t*tttttfi't't*t*tfi!tl’ti"'ttttttfitttttttttttt*ttti!ttttttfitttttttttttttt
.

(ITERATION COUNT = 10.)

Yy
IR TR LRI

3800
3801
3802

3803
3804
3805

3806
3807 035114
3808 035120
3809
3810 C35122
3811 035126

035126
035132
035134
3812 035140
035140
035146
3813 035152
035152
035154
035156
035200
035200
035200
035206
035206
035214
035214
035222
035226

035230
035234

035240
035240
035242
035244
035266
035266

3826

035270
035274
035300
035300
035302
035304
035326

004737

027702

012701

177763

012700
050100
010077

000013

012777
017702

SET ALL APPLICABLE REGISTERS TO ONES, CHECK THAT ONES GOT SET, THEN

EXECUTE SOFT INI~ AND CHECK THE STATE OF THE DPU.
THIS IS THE SAME AS THE 'RESET ONES'' TEST ABOVE, EXCEPT THAT
A SOFT INIT IS EXECUTED INSTEAD OF A RESET INSTRUCTION.
R1=EXPECTED, R2=RECEIVED, RO,R3=WORK REGS.

1 NIT1:
$:

145674

000003

145662

145666

64%:

177774

145626

012777

170015

145620

012777
017702
010203
042702
012701

000004
145606

145612

170000

007777

mMov
WTDSRA
MOV
BIS
MOV
RDDSRA
MOV
MOV

#177763,R1

BEQ

: YES.
648
ICSRE ,EXPREC,CKLOOP

WTDSRA
MOV
WTDSRA
MOV
RDDSRA
MOV
MoV
MOV
BIC
MOV

#177760,MRK
#1777608~C17!SETMRR,aDSR

HRDERR

IMRRE ,EXPREC,CKLOOP

MoV
MoV

R3,R2
#7777 ,R2
#170000,R1

HRDERR

IMPME ,EXPREC, CKLOOP

R1,CSR

#SETCSR,RO
R1.R9
RO,aDSR

CSR,R2

#SELCSR,aDSR

: WRITE RT

INTO CSR .

: READ CSR INTO RZ .

HRDERR

65%:

007777

BI1C

170000

aDSR
#1700008~C17!SETMPM,
MRR,R2

#SELMRR,aDSR

: READ MRR INTO RZ .

R2,R3
#170000,R2

: MRR 0OK?

aDSR,R

#7777 .R1

001411

66%:

; NO.

;. MPM 0OK?

IFERROR IMPME ,EXPREC, ,CKLOOP
: 0K?
R1,R2
MP
YES.
.
66%
BEQ

020102

. NO.

#170000,MPM

1FERROR IMRRE ,EXPREC, ,CKLOOP
. OK?
R1,R2
CMP
: YES.
65%
BEQ

020102
001411

010302
042702
012701

PC,TSTGO

aDSR,R?Z
IFERROR ICSRE ,EXPREC,,CKLOOP
; 0K?
R1,R2
CMP

020102
001411

012777

; TITLE.
5 €CLCCLLLLLLLLLLLLLLLLLLKLL< BEGIN SEGMENT.

JSR
BGNSEG

; NO.

L2]

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
TEST

3827 035326
035326
3828 035334
035334
3829 035342
035342
025350
3830 035354
3831 035356
3832
3833

SOFT

INIT ONES

C12777

177776

145500

012777

170017

165472

012777
017702
010203
042702
012701

000006
145460

145464

WTDSRA
MoV
WTDSRA
MOV
RDDSRA
MOV

MOV
MOV

8IC

170000

007777

MoV

010302
042702
012701

3837

67%:

007777
170000

001410

004737
005004
005005
005777
001003
005777
001410

004737
103401

MOV

#177760,XRR

#170000,XPM

#1700008C17SETXPM,aDSR
XRR ,R2

#SELXRR,aDSR
aDSR R2

: READ XRR INTO RZ .

#170000,R2

; XRR 0K?

RZ2,R

R1
#7777

R3,R2

68%
IXPME ,EXPREC,

; 0K?
: YES.
. NO.

#100000,aDYR
PC,WAITF

;DO SOFT INIT.
;WAIT FOR STOP

?ggR,RS

:CHECK DSR.

R2
#3I1T15,R3
aDP({
1%

145334

145330

13%:

CLR
CLR
TST
BNE
TST
BEQ
DFERR

14%:

ENDSEG

145270

000402

:EXPECT DPC TO BE O.
:EXPECT DSR TO BE 100000.
:TEST THE DPC, S/B =0.
;ERROR IF NOT O.

NSINIT ,PCSERR

:REPORT ERROR IN DPC OR DSR.

:DXR AND DYR SHOULD BE O.

EE.IIRCHK
aDXR

COMEND
JSR
B(S
BR

027646

: MPM 0K?

CMP
BEQ
HRDERR

145360

145274

: NO.

MOV

100000

023422

IXRRE ,EXPREC,(KLOOP

#7777 ,R2
#170000,R1

L
22

035500
035504
3848 035506
035526
035532
3851 035534
035536
035542
3854 035544
3855 035550
3856 035552
3857
3858 035572
3859
3860 035574
035574
035600
035602

001003
027703

100000
027454

—

035476

SEQ 0092

#17776084C17! SETXRR,aDSR

iFERROR IXPME ,EXPREC
R1,R2

68%:

012777
004737
005002
012703
005777

HRDERR

BIC

020102
001410

035452
035460
035464
035466
035472

IFERROR IXRRE ,EXPREC, ,CKLOOP
0OK?
:
R1,R2
: YES.
67%
BEQ

020102
00141

3834
3835

PAGE 56-1

(MP

n) —

see

29-JAN-81 17:22

13¢

aDYR
148

NSINIT,XYERR

; €CCCLLLLLLLLLLLLLLLLLLLLL END SEGMENT.
1%

zgiLOOP

000137

035120

69%:

JMP

035610
3861 035614
3862
3863 035620

004737

030072

70%:

JSR

PC,TSTEND

END.TEST

: REPEAT 'TIL LOOPER EXPiRES.

70%

035604

EXIT

;CHECK THE INTERNAL REGISTERS

TST

: PRINT ERROR SUMMARY, IF REQ'D.

2 EXIT THIS TEST >333>53533535>5>5>5,5>555)

eee TESY 3

SOFT INIT ONES

29-JAN-81 17:22

"'.Qt"'.i.".i.'.t‘.'t'i'ttt."tQ't"ttt't't"t't."Q'Q"Qttt"'.t""'
'-t

.
:'

END TEST 3

""t"'t'.'."..!’.Qfi"t't"'.ttfitt'ttt'."t".".Q'tt"i".'.'.'tt.."'

VSV11/VS11 == GRAPHIC SYS. DJAG MACRO M1113

PAGE 56-2

SEQ 0093

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST &

REGISTERS UNIQUE ADDRESS

3865

29-JAN-81 17:22

PAGE 57

SEQ 0094

"t"t'.l’*'ttt't"t"l'ti"Q'I'tt..'tt"fit'!t'!.itt'.tt'*tttttttttttt.t'
bR

BEGIN TEST 4

e
.

REGISTERS UNIQUE ADDRESS

3870
3871
3872 035704
3873 035710
3874 035712
035712
3875 035716
3876 035722
3877 035726
3878 035732
3879 035736
035736
035740
035742
035762
3880 035762
3881 035766

035766
035770

035772
036012
7882 036012
3883 036016
036016
036020
036022
036042
3884 036042
3885 036044
3886 036046
036046
7
388 036052
3888 036056
036056
036062
036064
3889 036070
3890 036074
036074
036102
3891 036106
036106
036110
036112

004737

027792

004737
012703
010377
012701
017702

025402
177760

(ITERATION COUNT = 10.)

ALL REGISTERS ARE SET TO THEIR NORMAL STATIC STATE VIA A SOFT INIT.
EACH APPLICABLE REGISTER, IN TURN, IS SET TO ITS CAPABILITY FOR ONES,
AND THEN AL OF THE OTHER REGISTERS ARE ChECKED THAT THEY REMAINED

Y
o LNI PR

3866
3867
3808

;
I B

. Q'tttttt*"t"t.'tt"t"tt'ttttfit't'tt*itfit'ittti't*tttttt'ttt'tttttt't

AT THEIR STATIC STATE.

UADR:
$:

MOV
MOV
MOV
MOV

165106

000000
145074

020102
001410
017702

64%:

145050

020102
001410
017702

65%:

145022

020102
001410
66%:

004737
012703

025402

012700
050300
010077
012701

000010

012777
017702

000001
144726

020102
001410

JSR
BGNSEG
INITDP
JSR

177760

144732

PC,DPINIT

#177760,R3

R3,aDSR
#0,R1

aDPC ,R2

aD¥R,R2
ROR
DSDXE ,DUADRE
IFER
R1,RZ
P
CM
65%
BEQ
HRDERR
DSDXE ,DUADRE,

MOV

aDYR,R2

IFERROR DSDYE ,DUADRE
R1,R2
CMP
66%
BEQ
DSDYE ,DUADRE,
HRDERR

ENDSEG
BGNSEG
INITDP
JSR

BIS

144744

;

9%
MOV
RDDSRA
MOV
MoV

HRDERR

TITLE.

; GO DO SOFT INIT, CHECK THE STATE.

;

WRITE DSR.

;

READ DPC

INTO RZ.

0K?

YES.
NO.

; READ DXR INTO RZ.
0K?

YES.
NO.

; READ DYR INTO R2.
;
;

0K?
YES.

* NO.

; €CCLLLLLLLLLLLLLLLLLLLLL<L< END SEGMENT.
;€< CCLLLLLLLLLLLLLLLLLLL<< BEGIN SEGMENT.
PC,DPINIT

#177760,R3

R3.,DSR
#SETDSR,RO
R3.RO
RO.aDSR

; GO DO SOFT INIT, CHECK THE STATE.
WRITE R3 INTO DSR .

#1.R1

PCS,R2

#SELPCS,aDSR

aDSR,R2
IFERROR DSPCE ,DUADRE
R1,R2
cMp

BEQ

; <CCLLCLLLLLLLLLCLLLLLLLLLLLL BEGIN SEGMENT.,

IFERROR DSDPE ,DUADRE
R1,R2
CMP
64%
Q
BE
DSDPE ,DUADRE,
HRDERR

MOV
WTDSRA
MOV

000001

PC.TSTGO

67%
DSPCE ,DUADRE,

READ PCS INTO RZ .
0K?

YES.
NO.

eee TEST &

036132

3892 036132
3893 036136

REGISTERS UNIQUE ADDRESS
012701

100000

036136 012777 000002

036146
3894 036150

017702

144664

036150
036152
036156

020102
001410

3895 536174
3896 036200

012701

000003

036206
3897 036212
036212
036214
036216

012777

017702

000003

036174

036200

036236

3898 C36236
3899 036242

0362642

036250
3900 036254
3901 036260
036260
036262
036264

67%:

144622

68%:

012777 000004
017702
042702

69%:

144560
170000

020102
001410
70%:

036304

3902 036304

036304

036312
3903 036316

3904 036322
036322
036324
036326

012777 000004

017702
042702

144516
007777

020102
001410
71%:

3905 036346

036346

012777

000006

3906 036360

042702

170000

036356

3907 036364
036364
036366
036370

017702

144454

144460

72%:

036410

3908 036410

036610

036416

012777
017702

000006

144412

144416

036452

3911 036452

020102
001410
73$:

#SELFLG.ADSR

#3,R1
(SR,R2

#SELCSR.aDSR

#0,R1
MRR,RZ2

#SELMRR.ADSR

aDSR,R2
MOV
#170000,R2
BIC
IFERROR DSMRE ,DUADRE
R1,R2
CMP
70$
BEQ
HRDERR DSMRE,DUADRE,
RDDSRA

MPM,R2

#SELMPM,aDSR

aDSR,R2
MOV
#7777 R2
BIC
., DUADRE
IFERROR DSMPE
R1.R2
CMP
71%
BEQ
HRDERR DSMPE ,DUADRE,
RDDSRA

XRR,R2

SEQ 0095
; READ FLG INTO R2 .
; 0K?
*YES.
; NO.

; READ (SR INTO R2 .
; 0K?
L YES.
. NO.

; READ MRR INTO R2 .
: MASK OUT MPM.
; 0K?
L OYES.
: NO.

: READ MPM INTO R2 .
: MASK OUT MRR.
: 0K?
©YES.
; NO.

MOV

#SELXRR,aDSR

: READ XRR INTQ R2 .

BIC

#170000,R2

: MASK OUT XPM.

aDSR,R2

, DUADRE
1FERROR DSXRE
R1,R2
CMP
72%
BEQ
HRDERR DSXRE ,DUADRE,

RDDSRA

XPM,R2

: 0K?
L OYES.
: NO.

MOV

#SELXPM,aDSR

. READ XPM INTO R2 .

BIC

#7777 ,R2

; MASK OUT XRR.

MOV

3909 036422 042702 007777
3910 036426
036426
036430
036432

MOV
RDDSRA

MOV

020102
001410

#100000,R1
FLG.R2

aDSR,R2
MOV
E
. DUADRE
IFERROR DSCS
R1.R2
CMP
69%
BEQ
HRDERR DSCSE ,DUADRE,

MOV

144522

036346

MOV
RDDSRA

MOV

144564

E_8

PAGE 57-1

aDSR,R2
MOV
IFERROR DSFLE,DUADRE
R1,R2
(MP
¢8%
BEQ
HRDERR DSFLE.DUADRE,

MOV

1464626

0C0000

MOV
RDDSRA

MOV

144670

020102
001410
012701

29~JAN-81 17:22

aDSR,R2

IFERROR DSXPE ,DUADRE
R1,R2
CMP
73$
BEQ
HRDERR DSXPE,DUADRE,

ENDSEG

; 0K?
. YES.
; NO.

; <CCCCCLCLLLLLLLLLLLCc<<c<c<c< END SEGMENT,

» &

ySV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
ese

TEST 4

3912 035454
3913 026456
036456
3914 036462
3915 036466
36466

(036472

)36474
3516 036500
3917 036504
036504
036512
3918 036516
036516
036520
036522
036542
399 036542
3920 036546
36546
036554
3921 036560
036560
036562
036564
036604
3922 036604
3923 036610
036610
036616
3924 036622
036622
036624
036626
036646
3925 036646
3926 036652
036652
036660
3927 036664
3928 036670
036670
036672
036674
035714
3929 036714
036714
036722
3930 036726
39N 036732

036732
036734
036736
036756
3932 036756
036756
036764

REGISTERS UNIQUE ADDRESS

004737
012703

025402

012700
050300
010077
012701

000013

012777
017702

BGNSEG
INITDP

100000

144376

000001

012777

0C0001

017702

144254

74%:
144260

020102
001410
012701

100000

012777
017702

000002

144212

75%:
144216

020102
001410

012701

000000

012777
017702
042702

000004
144150
170000

76%:

144154

77%:

012777
017702
042702

144106

1646112

007777

020102
001410
:
/8%

012777
017702

000006
144044

144050

DSR.R2

; GO DO SOFT INIT, CHECK THE STATE.
WRITE R3 INTO CSR .

MOV
MoV

#SELDSR,aDSR

READ DSR INTO R2

CMP
BEQ

R1,R2

0K?

HRDERR

, DUADRE,
CSDSE

MoV
RDDSRA
MOV
MOV

#,R1

74$

PCS,R2

#SELPCS,aDSR

aDSR,R2

IFERROR CSPCE ,DUADRE
R1,R2
(MP
75%
BEQ
HRDERR
CSPCE,DUADRE.
MOV
RDDSRA
MOV
MOV

#100000,R1
FLG,RZ

#SELFLG,aDSR

aDSR,R?
IFERROR CSFLE ,DUADRE
R1,R2
CMP
76%
BEQ
HRDERR
CSFLE ,DUADRE,
MOV
RDDSRA
MOV
MOV

#SELMRR ,aDSR

CMP
BEQ

R1,R2

RDDSRA
MOV
MOV
BIC

MPM,R2

HRDERR

77%
CSMRE ,DUADRE,

#SELMPM,aDSR

aDSR,R2

#7777 .R2

, DUADRE
IFERROR C SMPE
R1,R2
cMP
78%
BEQ
HRDERR
C SMPE , DUADRE
,
RDDSRA
MOV
MOV

YES.
NO.

READ PCS

INTO R2 .

CcK?

YES.
NO.

FLG

INTG R2 .

READ MRR

INTO R2 .

READ

0K?

YES.

NO.

#0 ,R1

MRR,RZ

aDSR,R2
#170000,R2
8IC
IFERROR (SMRE ,DUADRE

020102
001410

000004

#177760,R3

aDSR,R2
, DUADRE
IFERROR CSDSE

020102
001410

012701

BIS

R3,CSR
#SETCSR,RO
R3,R0
RO,aDSR
#100000,R1

RDDSRA

164722

SEQ 0096

. CCLLLLLLLLLLLLLCLCLCLLLC<<<< BEGIN SEGMENT,

PC,DPINIT

MOV
MoV

144334

JSR

MoV
WTDSRA
MoV

177760

000000

29~JAN-81 17:22

PAGE 57-2

XRR ,R2

#SELXRR,aDSR

aDSR,R2

MASK ouT MPM,

0oK?

YES.
NO.

: READ MPM INTO R2 .
MASK ouT MRR.

0K?

YES.

NO.

READ XRR

INTO R2 .

JSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

eee TESTY 4

3933 036770

793¢ 036774
036774
036776
037000
037029
3935 037020

037020

037026
2936 037032
3937 037036
037036
037040
037042

037062
3938 037062
3939 (037064
3940 037066

REGISTERS UNIQUE ADDRESS
042702

170000

79%:

017702
042702

000006

1440062
007777

025402
0C7777

012700
050300
010077
012701

000014

037114
037122

012777
017702

000000
143706

037126
037130

020102
001410

037132
037152

3946 037152
23947 037156

037156
037164

3948 037170
037170
037172
03717«
037214

3949 037214
3950 037220

012701

000001

012777
017702

000001
143644

012777
017702

000002
143602

037232
037234
037236
037256
3952 037256
3953 037262

(020102
001410
(12701

000003

012777
017702

000003
143540

020102

ENDSEG
BGNSEG
INITDP

RDDSRA
MOV
MOV

143712

#170000,R?2

(SXRE ,DUADRE
R1,RZ
79%
(SXRE ,DUADRE,

XPM,R?
#SELXPM,aDSR

(SXPE ,DUADRE,

B1%:

143650

PC.DPINIT
#7777 ,R3
R3,MRR
#SETMRR,RO
R3,R0
RO,aDSR
#100000,R1

143606

143544

: READ XPM [NTQ R? .
;. MASK OUT XRR.

. 0K?
: YES.
.

NO.

; GO DO SOFT INIT, (HECK THE STATE.
; WRITE R3 INTO MRR .

; 0K?
: YES.

MOV
RDDSRA

”,.R1
PC(CS.,RZ

#SELPCS,aDSR
aDSR,R2

HRDERR

MRPCE ,DUADRE,

MOV
RDDSRA

#100000,R1
FLG,R?

. NO.

; READ PCS INTO R?2 .
. 0K?
: YES.
;

NO.

#SELFLG,aDSR
aDSR,R2

; READ FLG INTO R2 .

(MP
BEQ
HRDERR

R1,R2
83%
MRFLE ,DUADRE,

; 0K?
: YES.
; NO.

MOV
RDDSRA

#3 ,R1
(SR,R?

IFERROR MRFLE ,DUADRE

83%:

; 0K?
: YES.
s NO.

R1,R2
81%

MRDSE ,DUADRE,

MOV
MOV

; MASK QUT xPM,

; READ DSR INTO R2 .

IFERROR MRPC(CE ,DUADRE
(MP
R1,R2
BEQ
82%

82%:

SEQ 0097

DSR.,RZ2
#SELDSR,aDSR
aDSR,R2

HRDERR

MOV
MOV

5 €CCLLLCLLLLLLLLELCLLLCe<<<<< END SEGMENT,
5 <<<LLCLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT,

IFERROR MRDSE ,DUADRE

020102
0014610

037220
037226

3954 037274
037274

HRDERR

(MP
BEQ

100000

037262
037270

RDDSRA
MOV

JSR
MOV
WIDSRA
MOV
BIS
MOV
MOV

143724
100000

012701

3951 037232

1FERROR
(MP
BEG
HRDERR

PAGE 57-3

MOV
aDSR,R?
BIC
#7777 ,R2
IFERROR (SXPE ,DUADRE
R1,R2
(MP
BEQ
80%
80%:

004737
012703

3945 037126

144006

020102
001410

037066
3941 C37072
3942 037076
037076
037102
037104
3943 037110
3944 037114

BIC

020102
001410

012777

29-JAN-81 17:22

MOV
MOV

#SELCSR,aDSR
aDSR,R2

1FERROCR MR(SE ,DUADRE
(MP
R1,R2

: READ (SR INTO RZ2 .
; OK?

/Sv?1/vyst1 == GRAPHIC SYS. DIAG MACRO M1113 29- AN-81 17:22

aew

TEST

037276
037300
037320
3955 037320
3956 037324
037324
037332
3957 037336
2958 037342
037342
037344
037346
037366
3959 037366
037366
037374
3960 037400
3961 037404
037404

£37606
037410
037430
3962 037430
037430
037436
3963 037442
3964 037446
037446

037450
037452
037472
2965 037472

037474
7
396 037476
037476
3968 037502
3969 937506

037506
037512
037514
3970 037520
3971 037524
037524
037532
3972 037536
037536
037540
037542
037562
3973 037562
3974 037566
037566
037574
3975 037600
037600
037602
037604

REGISTERS UNIQUE ADDRESS

001470
0127C1

000000

012777
017702
042702

000004

163476

R4S
143502

007777

042702

143440

170000

86%:
000006
143372

143376

007777

012700
050300
010077
012701

000015

012777
017702

000000

143314
100000
143302

012777
017702
020102
001410

88%:

000001
000001
143234

RDDSRA

BIC
1F ERROR
(MP
BEQ
HRDERR
RDDSRA
MOV
MOV

143240

HRDERR

ENDSEG
BGNSEG
INITDP

MOV
MOV

020102
001410
012701

CMP
BEQ
HRDERR

JSR
MOV
WTDSRA
MOV
BIS
MOV
MOV
RDDSRA

170000

143276

SEQ 0098
YES.

NO.

MPM,R2

READ MPM

#SELMPM,aDSR
aDSR,R2

MASK JUT MRR.,

R1,R2

0K?

YES.
NO.

85%

MRMPE
, DUADRE ,

XRP ,R2

XRR

#SELXRR,aDSR

;

READ

#170000,R?
MRXRE ,DUADRE
R1,R2

MASK ouT

aDSR,RZ

86%

MRXRE ,DUADRE,

XPM_ R2

#SELXPTM,aDSR

aDSR,R?
#7777 ,R2

MRXPE ,DUADRE ,

[NTO R2

xPM,

oK?
YES.

* NO.
:

READ XPM INTO R2
MASK OUT

XRR.

; 0K?
:

YES.

* NO.

s
;

LCLLLCLLLLLLLELLLLLLLLLL<C END SEGMENT,
€CLCLLLLLLLLLLLLLLLCLLLCC< BEGIN SEGMENT,

PC,DPINIT

: GO DO SGFT INIT, CHECK THE STATE.

#170000,R3
R3,MPM

#SE TMPM, RO
R3,R0
RO,aDSR
#100000,R1

WRITE R3

INTO MPM |

#SELDSR,aDSR

READ DSR

INTO R¢ .

DSR,R2

aDSR,R2

[FERROR MPDSE ,DUADRE
R1,R2
G
88$
BEQ
HRDERR
MPDSE ,DUADRE ,
MoV

#1.R1

MOV

#SELPCS,aDSR

RDDSRA

PCS,R2

MOV

aDSR,R2

IFERROR MPP(E ,DUADRE
R1,R2
(MP
85%
BEQ
HRDERR

INTO R .

#7777 ,R2

, DUADRE
IFERROR MRXPE
R1,R2
CMP
87%
BEQ

87%:

025402

#0.R1

BIC

020102
001410

004737
012703

MOV
RDDSRA
MOV
MOV

MOV
MOV

020102
001410

012777
17702
042702

849
MR(SE ,DUADRE ,

HRDERR

, DUADRE
IFERROR MRMPE

BSS:
000006
143434

BEQ

BIC

020102
001410

012777
017702

PAGE 57=6

MPPC
, DUADRE
E,

0oK?

YES.

NO.

READ PCS

oK?
YES.
NO.

INTO R2

012777

017702

000002

143172

000003

037672
037700
3981 037704
037704
037706
037710

012777
017702

000003

012701

0C0009

012777

000004

037776

040004
31987 040010
1988 040014

FLG,RZ

163176

143130

(SR,R2

#SELCSR,@DSR

dDSR,R2

B8EQ

1463066

91%:

16307¢

MOV

BI(

042702

1462766

007777

020102

O
o

1462704

000016

1997

[e]lelelo N o]

1995
3396

HRDERR

100000

#SELMRR ,3DSR

READ MRR

#170000.R2

MASK ouT MPM,

aDSR,R2

#SELXRR,3DSR
@DSR R2

RDDSRA

ox?

YES.

w—
.

READ

XRR INTO R? .

#170000,R?

MASK OuT

R1,R2

m’

xPM,

YES.

93¢
MPXRE ,DUADRE ,
XPM_R?

INTC R?2 .

NO.

XPM INTO R2 .

MOV
MOV
8I(

#SELXPM,3DSR

;

8777% R2

; MASK ouUT YRR,

(MP
8tQ

R1.R2

., OX?
; VES.
. w.

HRDERR

969:

02540¢
007777

£0.R1

MRR,R?

S0SR,R2

. DUADRE
[F ERROR MPXPE

001410

3992
3993
3994

MP( SE ,DUADRE
,

E
E
, DUADR
IF ERROR MPXR

(M
8EQ

162762

91$

XRR ,R?2

8I(

020102

000006

ox?

R1 ,R2

IFERROR MPMRE , DUADRE
R1_R?2
(mP
928
8taQ
MPMRE , DUADRE ,
HRDERR

1643030

27%:

3990
1991

MOV

92%:

012777
017702

HRDERR

RDDSRA

170000

000006
143024
170000

: READ (SR INTO RZ .

MP( SE , DUADRE

001410

3989

ox?

#3,.R1

163134

020102
001410

017702
0462702

MPF LE ,DUADRE
R1,R?

FLG INTO R2 .

MPF LE ,DUADRE
.,

908:

001410

012777

READ

@DSR,R?2

020102

017702
042702

#SELFLG,8DSR

90§

12701

037730
37730
3983 03773%
037734
037742
3984 037746
3985 037752
037752
037754
0377%6
037776
1986 037776

#100000,R1

020102
001410

037666

2679

3980 037672

89%:

100000

SEQ 0099

ENDSEG
BGNSEG
INITDP
JSR
MOV

WIDSRA
MOy
81S
MOy
4
MC

9§

MPXP
, DUADRE
E
,

READ

;€O
-

CCLLLLLLCLLCLLLLLLCCCCC FND SEGMENT,
(e €CCLLLLLLCLCLCLCCCCc<<<< BEGIN SEGMENT,

L s—

012701

PC . DPIN]T

: GO DO SOFT INIT, (MECK THME STATE.

——

037624
2976 037624
Q7?7 037630
037630
03763
3978 037642
037642
037644
037646
037666

PAGE 57=5

e ————————
s S ¢ %

Sv1174511 == GRAPHIC SYS,. DIAG
"EST &
REGISTERS UNTQUE ADDRESS

eee

29~ aN=81 17:22

RY, XRR
#SE TXRR RO

; RITE R3 INTC XRR .,

87777 R3
R3,RC

RO, SR

#100600,F"

(RO M1113

“ESY 4

REGISTERS UNIOUE ADDRESS

1998 040134
06C13%
060162

012777

2999 040146
060166

040150
040152
060172
«000 060172
«001 060176
C4C176
060204
«QC2 060210
060210
060212
040216
06023

017702

(00000

162666

C12701

000001

c12777

000001

142626

040266

012777

017702

0C0002

142562

060252
040254
060256
000276
4006 040276

012701

000003

040302

012777

000003

040310

4008 040314

142520

020102
001410
012701

000000

040344
040352

012777
017702
0462702

000004

4011 040356
4012 040362

040362
0460364
040366
040406

020102
001410

040406
040414

012777
17702
042702

040424
040426
060430
040450

020102

4013 040406

4014 040420
4015 040424

4016 040450

040450
040456

XRP(E ,DUADRE

R1‘R2
%
XRP(E ,DUADRE ,

968

162414

aDSR R2

XRFLE ,DUADRE ,

97%:

(SR,R?

#SEL(SR,a8DSR

aDSR,R2

XR(SE ,DUADRE
R1,R2
XR(CSE ,DUADRE,

Q8$:

YES.

: READ (SR INTO R2
. 0K?
: YES.

MRR,R?

READ MRR

#SELMRR,aDSR

aDSR,R2

001410
:
1008
142356

.m?

#0,R1

142462

162420

INTO

#3.R1

142526

007777

000006
142352

READ FLG

#SELFLG,80SR

XRF LE ,DUADRE
R1,R?

INTO R2

ox?
vES.

#100000,R1
FLG,R?

162566

96%:

000004

READ PCS

@DSR, R

98%

142656
170000

NO.

ASELPLS @DSR

14263

97%

040314
040316
040320
040340

4009 040340
4010 060344

ox?
vES.

. ,R1
PC5.R2

020102
001410

077702

READ DSR INTO R?

XRD
, DUADRE
SE,

9cs:

020102
0014610
100C00

4007 060302

DSR.R2
#SELDSR.0SR
SR R2

9sé

012701

4005 060252

SEQ 0100

XRD SE , DUADRE

020102
001410

017702

R1_R2

«00% 04023
40046 0460260

(40240

RCDSRA

162672

PAGE 57-6

MASK ouT MPM,

#170000,R2

BEQ

99%

. 0K?
. YES,
. NO.

RDDSRA
MOV
MJIV

MPM_R?

HRDERR

XRMRE
, DUADRE
R1,R2

XRMRE ,DUADRE ,

#SELMPM_aDSR

aDSR,R2

#7777
R2
BIC
, DUADRE
[F ERROR XRMPE
R1,R2
(MP
1008
BEQ
HRDERR
XRM
, DUADRE
PE,
RDDSRA
MOV
MOV

XPM_ R?

#SELXPM,aDSR

aDSR,R?2

INTO

READ MPM

INTC RC

; MASK ouT MPM,
;

Ox?

;

NO.

;

READ

:VES.
XPM

INTC

117951 e GRAPMIC SYS., DIAG MALRC M11°3 2G« jAN=B81 17:22

VSV11/7VS11 == GRAPHIC SYS. DIAG MACRO M1113
ves

TEST &

4017 040462
4018 0460466
0460466

040470
040472
040512
4019 040512

REGISTERS UNIQUE ADDRESS
042702

29-JAN-81 17:22

007777

BIC
IFERROR
(MP
BEQ

020102
001410
101%:

4020 040%14
4021

040516

040516
4022 040522
4023 040526
040526
040532
040534

004737

025402

HRDERR

ENDSEG
BGNSEG
INITDP
JSR

PAGE 57-7

SEQ 0101

8?7777 ,R2

: MASK OUT XRR.

R1,R2
101%

; CK?
. YES.

XRXPE ,DUADRE

XRXPE ,DUADRE ,

. NO.

.,
;<L LLLLLLLLLLLLLLLLLCLCLLL< END SEGMENT

; €CCLLCCLLLLLLLLLLLLLLLLCLLL< BEGIN SEGMENT.,

PC,DPINIT

: GO DO SOFT [Ir.IT, CHECK THE STATE.

#170000,R3
R3,XPM

170000

[0}

012700
050300
010077
012701

000017

MOV

#SETXPM,RO

; WRITE R3 INTO XPM .

1462274
100000

040544
040552

012777
017702

000000

MOV
MOV
RDDSRA
MoV
MOV

#SELDSR,aDSR
aDSR,R2

: READ DSR INTO RZ .

040556

020102
001410

4024 040540
4025 040544

4026 C40556

040560
040562

040602

012703

142256

4027 040602

012701

000001

040606
040614
4029 040620
040620
040622
040624
040644

012777
017702

000001

012701

100000

040650
040656
4032 040662
040662

012777
017702

000002
142152

4028 040606

4030 040644
4031 040650

040664

040666
040706

142214

040712
040720

012777
017702

000003

040724
040726
040730
040750
4036 040750
4037 040754
040754
040762

020102
001410

4,038 040766
4039 040772

162262

102%:

142220

103%:
142156

142110

012701

000000

012777
017702
042702

000004
142046

170000

R3.R0
RO.,aDSR
#10G000,R1
DSR,R2

IFERROR XPDSE ,DUADRE
R1.R2
CMP
102%
Q
BE
XPDSE ,DUADRE,
HRDERR
MOV
RDDSRA
MOV
0%

IFERROR
(MP
BEQ
HRDERR
MOV
RODSRA
MOV
MoV

#1,R1
PCS.R2

#SELPCS,aDSR
aDSR,R2

XPPCE ,DUADRE

104%:
142114

142052

XPPCE ,DUADREL,

; NO.

#100000,R1
FLG.RZ2

#SELFLG,aDSR
aDSR,R2

HRDERR

XPFLE ,DUADRE,

mMov
RDDSRA
MOV
MOV

#3,R1

CSR,R2
#SELCSR,aDSR
aD5SR,R2

HRDERR

XPCSE ,DUADRE,

MOV
RDDSRA
MOV

#0,R1

MOV

: READ PCS INTO RC .
; OK?

103%

IFERROR XPCSE .DUADRE
R1.R2
CMP
105%
BEQ

105%:

; 0K?
: YES.
; NO.

R1,.R?

IFERROR XPFLE ,DUADRE
R1,R2
CMP
104%
BEQ

020102
001410

000003

4035 040724

B1S

020102
001410

012701

4033 040706
4034 040712

WTDSRA

MRR,R?

#SELMRR,aDSR
aDSR,R2
#170000,R?2

BIC
, DUADRE
IFERROR XPMRE

;

YES.

; READ FLG INTO R2 .
. 0K?
; YES.
. NO.

: READ (SR INTO RZ .
; 0K?
: YES.
. NO.

: READ MRR INTO RZ .
: MASK OUT MPM,

vSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
sax

TEST &

040772
040774
040776

REGISTERS UNIQUE

020102
001410
106%:

0461016
4040 041016

061016 012777 000004
0461024

ADDRESS

017702

1642004

142010

041034
041036
041040

107%:

041060

041066
L0446 0641072

4045 041076

041076
C41100
041102

017702
042702

000006

141742
170000

4047 061124

027646

041134

000137

035710

109%:

041140

004737 030072

110$:

4048 041144

CMP
BEQ
HRDERR

RDDSRA

: READ MPM INTO R? .

R1,R2
107%
XPMPE ,DUADRE,

; 0K?
; YES.
. NO.

XRR,RZ

#SELXRR,aDSR
aDSR,R2
#170000,R2

ENDSEG

R1,R2
108%
XPXRE ,DUADRE,
1%

PC.,LOOP

JMP

JSR

PC,TSTEND

END.TEST

109%
110%

TST

; READ XRR INTO R2 .
: MASK OUT XPM.,

; 0K?
: YES.
2 NO.

; CLCLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

JSR

BCS
BR

4049 041150

; 0K?
: YES.
. NO.

; MASK OUT MRR.

(MP
BEQ
HRDERR

EXIT

SEQ 0102

#7777 ,R2

COMEND

004737

103401
000402

aDSR,R2

#SELMPM,aDSR

IFERROR XPXRE ,DUADRE

061124

041130
041132

MOV

MOV
BIC

108%:

041122

MPM,R2

MOV

141746

020102
001410

4046 061122

RDDSRA

BIC

020102
001410

012777

R1,RZ
106%
XPMRE ,DUADRE,

IFERROR XPMPE ,DUADRE

041060

4043 041060

L_8

PAGE 57-8

CMP
BEQ
HRDERR

MOV

4041 041030 062702 007777
4042 0461034

29-jAN-81 17:22

: REPEAT 'TIL LOOPER EXPIRES.

: PRINT ERROR SUMMARY, [fF REQ'D.

; EXIT THIS TEST >>>53353333>>>3>3>>>3>>>>>

:tttttitttttttttt*ttttttttttfil-tttttfitititttfitttfitttt'fitit'fi"til‘ttt"t
. %

P
* N

END TEST 4

;ttt*t'ttitttttttt*tt'ttiti't*ittktitttiittfittttfittittttttttt.tt!'tt"'t
.

sz}é\S’?% —- GRAPHIC SYS. DIAG MACRO M1113
ING REGISTERS
INCREMENT

LA
2

4051

29~JAN-B1 17:22

AR AR AR
- %

o
. %

[

SEQ 0103

AR AR AR

RR AN

NAN AR AR AR R R RN

A RR

AR AN

AR R R nnn

(ITERATION COUNT = 10.)

. THE READ/WRITE CAPABILITIES OF THE REGISTERS WILL BE CHECKED

: BY "'INCREMENTING'' EACH REGISTER FROM ITS LOWEST POSSIBLE

4054

4055
4056
4057
4058
4059 041232

041232
041236
4060 041242
4061

4062 041246
4,063 041250
041250
041254

041256
4064 041262
041262
041270
4065 041274
041274
041276
041300
041320
4066 041320
4067 041322
4068 041326
4069 041332
4070 041334

: VALUE, MINUS ONE, TO ITS HIGHEST POSSIBLE VALUE, PLUS ONE,
; 1E. 110 177777 10 0.

; R1=EXPECTED, R2=RECEIVED, RO,R3=WORK REGS.
004737
004737
012701

012700
050100
010077

000013

012777
017702

000003
141540

2%:

012701
012703

000001
000020

041354
041356
4077 041362
041362
041370
4,078 041374
041374
041376
041400
041420
4079 041420

050300

WIDSRA

R1,CSR

MOV
RDDSRA

R1,RO
RO,aDSR
(CSR,R2

000014

010077

141452

012777
017702

000004
141440

; C<LLLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.
: WRITE R1 INTO CSR .

#SELCSR,aDSR

; READ CSR INTO R2 .

BEQ
HRDERR

648
ICSRE,EXPREC,

. 0K?
; YES.
: NO.

CKLOOP
ADD
CMP
BNE

: LOOP IF ERROR.
: INCREMENT.
#20,R1
. DONE?
R1,#SELCSR
. NO.
2%

MOV

#1,R1

MOV

3%:

BGNSEG

5 €<LLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.
;.

#20,R3

R3,MRR
#SETMRR,RO

MOV

RO,aDSR

RDDSRA

MOV

R3,R0

MRR.RZ

655

CKLOOP

: WRITE R3 INTO MRR .

#SELMRR,aDSR

: READ MRR INTO R2 .

R1,R2
65%
IMRRE,EXPREC,

; CK?
: YES.
. NO.

aDSR,R2
MOV
IFERROR IMRRE ,EXPREC

CMP
BEQ
HRDERR

INCREMENT MRR.

5 CKCLLLLLLCLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

WTDSRA
MOV
BIS

141444

; TITLE.
; DO SOFT INIT.
: INCREMENT (CSR.

#SETCSR,RO

MOV
BIS

ENDSEG

012700

020102
001410

BGNSEG

PC,TSTGO
PC.DPRESET
#SELCSR+20,R1

aDSR,R2
MOV
IFERROR ICSRE,EXPREC
R1,R2
CMP

4072 041336
4073 041342
4074
4075 041346
4076 041350

COMBEG

JSR
JSR
MOV

MOV

141544

020102
001410

000020
000003

041350

1%:

141552

062701
020127
001346

4071

I NCREG:

027702
026074
000023

R AN

INCREMENTING REGISTERS

R AR AR AR A

4052
4053

BEGIN TEST S

[

;

R R

PAGE 58

; LOOP IF ERROR.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
eer TEST 5

40B0 041422
4081 041426
4082 041432
4083 041436
4084 041440
4085 041444
4086

ING REGISTERS
INCREMENT

062703
062701
020127
001403
042701
000741

ADD
ADD
CMP
BEQ
BIC
BR

000020
600001
000001
170000

4$:

4087 041446
4088

4089 041450

4091 041454
4092 041456
041456
041462
041664
4093 041470

4094 061472
4095 041476
041476
041504
4096 041510
041510
041512
041514
041534
4097 041534
4098 041536
4099 041542
4100 041544
4101 041550
041550
041556
4102 041562
041562
041564
041566
041606
4103 041606
4104 061610
4105 041614
4106 041620
4107 041622
4109 041624

4110 041630

4112 041634
4113 041636
041636
041642
041644
4114 041650
041650
041656
4115 041662
041662

29-JAN-81

MOV

012700
050300
010077
010301
042701

000015

BGNSEG
WTDSRA
MOV
BIS
MOV
MOV

012777
017702

000004
141324

141344
007777

141330

020102
001410
005001

668:

032703
001402
052701

001000

012777
017702

000005
141252

100000
141256

50$:

020102
001410

67%:
062703
020327
001316

000020
00002C

012701

000001

012703

012700
050300
010077

000016

012777
017702

000006
141152

020102

CLR

MOV

141164

141156

;

R1.,41
4%

; DONE?
; YES.

# ,R1

#170000,R1

INCREMENT.

;

NO.

.,
; <<CLLLLLLLLLLLLLLLLLLLLLLL END SEGMENT
;

#20,R3
R3,MPM

INCREMENT MPM.

; €<LLLLLLLLLLLLLLLLLLLLL<<< BEGIN SEGMENT.

#SETMPM,RO

: WRITE R3 INTO MPM .

R3,R1

;GET WRITTEN DATA

R3,.R0O
RO.aDSR

R1
#BIT9,R3

BIT
50%
BEQ
:gAT1S'R1
BIS
R
RDDSRA
#SELHBA,aDSR
MOV
aDSR,R2
MOV
, EXPREC
IF ERROR IMPWPE
R1,R2
P
67%
BEQ
HRDERR IMPWPE ,EXPREC,

CKLOOP
ADD
CMP
BNE
ENDSEG

SEQ 0104

#20 ,R3

#7777 ,R1
BIC
RDDSRA MPM, R2
#SFLMPM,aDSR
MOV
aDSR,R2
MOV
IFERROR IMPME ,EXPREC
R1,R2
cMP
66$
BEQ
HRDERR IMPME ,EXPREC,

MOV

000020

N 8
PAGE 58-1

ENDSEG

000620

012703

17:22

#20,R3
R3,#20
5%

21 ,R1

#20,R3

;LEAVE MASK BITS IN R1

: READ MPM INTO RZ2 .
; 0K?

. YES.
; NO.

:ASSUME WRITE-PROTECT BIT ]IS O
:DID WE WRITE IT 10 1?
;BR IF NOT.
:SET BIT 15 FOR HBASE COMPARE IF YES.
: READ HBA INTO RZ .
; 0K?
s YES.
. NO.

; LOOP IF ERROR.

; INCREMENT.
; DONE?
s NO.
€CLCLLLLLLLLLLLLLLLLLLLL<< END SEGMENT.

;

INCREMENT XRR.

; <CCLLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.
3
BGNSEG
WTDSRA R3,XRR
#SETXRR,RO
; WRITE R3 INTO XRR .
MOV
R3,R0O
B!~
RO,aDSR
MOV
RDDSRA XRR,R2
: READ XRR INTO RZ .
#SELXRR,aDSR
MOV
aDSR,R2
MOV
IFERROR IXRRE ,EXPREC
; 0K?
R1,R2
(MP

ySV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
TEST

ING REGISTERS
INCREMENT

001470
68%:

e ard
sl
i
b
—

see

062703
062701
020127
001403
042701
000761

012700
050300
010077
010301
042701

012777
017702

000020
000001
000001

8%:

000017

005001
032703
001402

141042

MoV
MoV

4139

001000

012777
017702

000005
140764

140770

80%:

70%:

062703
020327
001316

000020
000020

042112
042116
042120

004737

027646

042122

000137

041242

042126
4147 042132

004737

030072

4146 042112

103401

68%
IXRRE ,EXPREC,

#20,R3

21 .,R1

SEQ 0105

: YES.
; NO.

: LOOP IF ERROR.
: INCREMENT,
: DONE?

R1.,.41

7%
#170000,R1
6%

;
;
:

YES.
NO.

LCCCLLLLLLLLLLLLLLLLCLLCL<< END SEGMENT.,

INCREMENT XPM,

;

#20,R3

R3,XPM
#SETXPM,RO

L] BEGIN SEGMENT.

<€

; WRITE R3 INTO XPM .

R3.R1
#7777 ,R1

;GET WRITTEN DATA

#SELXPM,aDSR

; READ XPM INTO R2 .

;JLEAVE MASK BITS IN Rl

XPM_ R2

aDSR,R2
ROR
IXPME ,EXPREC
IFER
R1,R2
(MP
69%
BEQ
HRDERR
IXPME ,EXPREC,
CLR
BIT
BEQ
BIS

RDDSRA
MOV
MOV

#3179 ,R3
80%
#31T14 ,R1
HBA,R2

#SELHBA ,aDSR

aDSR,R2
I1FERROR IXPWPE ,EXPREC

020102
001410

4140
4161
4742
4143
4144 042110
4145

MOV

BIC
RDDSRA

69%:

040000

WTDSRA

MOV
MOV

007777

052701

BGNSEG

PAGE 58-2

BIS

141056

020102
001410
6134
4135
4136
4137
4138

17:22

ENDSEG
MoV

000020

141036

CkLOOP

(Mp
BEQ
BIC
BR

170000

000006

BEQ
HRDERR
ADD
ADD

7%:

012703

29-JAN-81

CMP
BEQ
HRDERR

CKLOOP

ADD

CMP
BNE

ENDSEG

R1,R2
70%

IXPWPE ,EXPREC,

#20,R3
R3,4#20

YES.
NO.

;ASSUME VRITE-PROTECT BIT IS C

;DID WE WRITE IT TO 1?
;BR IF NOT.

;SET BIT 146 FOR HBASE COMPARE IF YES.
;

READ HBA INTO R2 .

;

0K?

.
;

YES.
NO.

; LOOP IF ERROR.
;

.
INCREMENT

DONE?

NO.

AP <<LLLLLLLLLLLLLL<< END SEGMENT.,

COMEND
JSR
BCS
BR

1%
PC,LOOP
1%

71%:

JMP

72%:

JSR
EXIT

PC,TSTEND
1ST

000402

0K?

;

;
;

; REPEAT 'TIL LOOPER EXPIRES.

72%

- PRINT ERROR SUMMARY,

[F KEQ'D.
< EXIT THIS TEST >>33335333535333>>5>>,505)

|
|

—

—
e

JSVIT/VST1 == GRAPHIC SYS. DIAG MACRO M1113

eee TEST §

ING REGISTERS
INCREMENT

6148

29-JAN-81 17:22

cC 9

PAGE 58-3

END.TEST

6149 0462136

.'t"t'.ttt't't."".t'"""QQ.""QRQ'.Q'Qt'l'ttQt"'.."t.tt't'.Qt""
]

R
.« W

END TEST S

.'.""tttt't"tt.t.t""""..'.*""."...t'QQ""QQ.t""""..'.".'.
[

SEQ 0106

—

VSV11/vS11 == GRAPHI( SYS. DIAG MACRO M1113

eee TEST 6

DPU START=STOP

6151

29-JAN-81 17:22

PAGE 59

2222232223222 3222223X322232222
bl

BEGIN TEST 6

bR4

SEQ 0107
222232222222

22222222

iRl

Ritnlldl)

DPU START-STOP

R22X22223F22222222XX2232323
2228232222 2222222 222820 2RRRRRRRX2RRRaRAdRRRAl

6152

6153

042210
042214

4158
4159 042220
4160

4161 042222
4162 042226

4163 042232

4164 042236

4765 042242
4166 042250
4167 042254
4168 042260
4169 042262
«170 042302
67N 042304
4172 042310
4173 042314
4174 042320
6175 042324
4176 042326
4177 042346
4178 042352
64179 042356

4180
4181
6182
4183
4184
4185
4186 042360
4187 042362

4188
4189
4190
41N
4192
4193
4194
4195

042362
042370
042374
042400
042404
042406
042426
042430
042434
042440

(ITERATION COUNT = 20.)

;

FIRST

;

IF NOT, ABORT, NO POINT IN CONTINUING.

INSURE

THAT START, RESUME,

; ALL FUNCTION CORRECTLY.’

4154

6155
4156
£157 042210

;

004737
004737

SSTST:

027792
026074

JSR
1%:

012702
017703
042703
052703
012777
004737
027702
001411
000421

012702
005277

042516
027454
140552

140562

004737
027702
001412

027454

004737
004737

026756
02342°2

140506

4%:

;

#SST2 ,RZ
aDSR,R3
#~C1777 ,R3

AND STOP

s TITLE.
: DO SOFT INIT.
CLLLLLLLLLLLLLLLLLLLLL<<< BEGIN SEGMENT.,

JSET 1ST EXP'D DPC...

#STOP,R3

;...AND DSR.

CMP
BEQ

@DP(C ,R2
2%

;DPC SHOULD POINT TO 'RTZ2'.
JBR IF IT'S RIGHT.

MoV
JSR

’%:

140516

;

DJMP,

BIS

DFERR

042550

PC,TSTGO

PC.DPRESET

BGNSEG

MOV
MOV
81C

042526
140602
176000
172000

(COMBEG

JSR

DNOP,

MoV
INC

#SST1,aDPC
PC,WAITF

SSF,F{SERR

;XCT _START, DNOPS, AND STOP.
JWAIT 1/2 SEC (MORE OR LESS).
;START-NOP-STOP FAILS.
;...BYPASS RESUME TEST.

;OK, SET NEXT EXP'D DPC.
sXCT RESUME, DNOP'S, AND DJUMP.

#SST3,R2
aDP(

PC,WAITF
JSR
;NOW DPC SHOULD BE AT 'RT3''.
CMP
aDPC ,R?
BEQ
4%
JBR IF SO
;RESUME -NOP-JUMP FAILS.
DFERR RJF ,PCSERR
JSR
PC,RELEAS
JUNHANG [F HUNG
JSR
PC,I1IRCHK
JVERIFY THAT INTERNAL REGS REMAIN STATIC
ENDSEG
; €LLLCLLLLLLLLLLLLLLLLKLLLL END SEGMENT.

SO FAR,

SO GOOD.

NOW LET'S PUT HIM IN A JUMP-SELF

; LOOP, AND SEE IF WE CAN STOP HIM FROM THE CPU.
.

BGNSEG

012777
004737
005277
004737
103011
000417
200240
005077
004737

042526
027454
140432
027454

000240
140374

027454

DPSTART #SST2
MOV
#SST2,aDP(

140442

JSR
INC

PC,WAITF
aDP(

HRDERR

JSF

JSR
BCC
5%:

PC,WAITF
5%

BR
6%
260,240
CLR
JSR

aDSR
PC,WAITF

€CLLLLLLLLLLLLLLLLLLLLL<<< BEGIN SEGMENT.,

;
;

START THE DPU.
WAIT FOR DISPLAY STOP.

JRESUME, XCT DJMP SELF.

sBR IF HE'S DOING IT.
;JUMP SELF

FAILS.

;XCT "EXTERNAL STOP'',

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

ven TEST 6

6196 0462444
6197 042446
4198 042465
4199 042472
LSOO 042476

DPU START=STOP
103470

004737
004737

6%:

023422
026756

4201

4202 042500

0642500

042504

4203 042506

L%Og 062512

004737

027646

004737

030072

103645

PAGE 59-1

SEQ 0108

JBR IF HE STOPPED.
6%
JEXT STOP FAILS.
ESF
:MAKE SURE INTERNALS STILL OK.
PC,I1IRCHK
;1T DIDN'T, GO RELEASE DPU.
PC.RELEAS
; €CCLCCLCLLLLLLLLLLLLLLLLLLL END SEGMENT.

JSR

PC,LOOP

JSR

PC,TSTEND

B(CS

EXIT

4290

TST

; REPEAT °'TIL LOOPER EXPIRES.

: PRINT ERROR SUMMARY [F REQ'D.

; EXIT THIS TEST >>33>333033535333>>>>>>>%>

;

: DISPLAY FILE FOR THIS TEST.

4208 042516
4209 0425246
4210 042526
6211 042534

164000
173000
164000
160000

4213 042546

173000

4214 042550

164000

25}9 042560

173000

4215 042554

B(S
HRDERR
JSR
JSR
ENDSEG

LOOPTO

2%8?

4212 042540

29-JAN-81

17:22

160000

164000

SST1:

164000

SST2:

173000

042546

164000

042554

DNOP,DNOP,DNOP
STOPN
DNOP,DNCP,DNOP
DJMP,.+10

STOPN,STOPN,STOPN

SST3:

STOPN

DNOP ,DNOP

DUMP, =2

STOPN,STOPN

173000

:SHOULD SKIP OVER THESE...
:...AND LAND HERE.

:JUMP SELF FOR 'EXT STOP''.

: INSURANCE .

END.TEST

4218 042564

"tttt'Qtt'i'l’tttitttfitttt"*ttfitli"fi'fifi'*!tfittttt'ttfit’t‘.tt't't't"tt'
.

P
.

[

END TEST 6

"tl'itt.ttttifit'ttttttt"'"'tttttttflt.fifitit'.fiifii'fitQfii.fifitfi‘ttfit'.t."QQ

VSV11/v511 == GRAPHIC SYS. DIAG MACRO M1113
TEST

DPU OPCODES

6220

29-JAN-B1 17:22

PAGE 60

SEQ 0109

;ttttfi..l’t"'t"'t"""‘"t't.t.i'fi'..Qt"'."fi't'.Q!"."tt"tt".t'.'
bR4

’

BEGIN TEST 7

DPU OPCODES

]

"It"tt.tt't!tfi'.t""t"t"'t'..lfi"tt'i'ti'.fit'.'tt..""fi"t..t""i'

(ITERATION COUNT = 5.)

:
6221

[0 LI TR NI T Y

eee

4222
4223
6224

4225

6226 042632

042632

042636
4227 042642

4228
4229
4230
4231
4232
4233
4234

042646
042654
042660
042666

027792
026074
023054
043412
043446

102000
172000

022300
043440

4236 042702
4237 042706
4238 042712
4239 042714
4240 042734
424| 042742
4242 042750
4243 042754
6244 042762
4245 042766
4246 042774
6247 043000
4248 043006
4249 043012
4250 043016
4251 043022
4252 043026
4253 043032
4254
4255 043034
4256 043040
4257 043042
4258 043044
4259 043050
4260
4261 043052
4262 043060

4263 043062
4264 043070
4265 043076

012777
004737

043440
027454

140130

013737
042737
004737
012737
004737
012737
004737
013737
004737
005037
004737
004737
004737

043440
003777
022410
000001
022360
000003
022440

023056
023056

020327
001404
005203
005237
000710

173777

027703

001410

023727
001407
062737
042737
000673

14%:

022624
023056
022466
022566
022526

COMBEG

JSR
JSR
(LR
MOV
10)%

1¢:

410}
MOV

2%:

BGNSEG
MOV

140122

023054

TEST ALL

3%:

JSR
CMP
BEQ
HRDERR
MOV

BIC
JSR

023056

MOV

023056

MOV

023056

MOV

JSR

043440
133777

004000
001777

063440
043440

PC,TSTGO
PC,DPRESET

;

#0OPC1+6,R2

;SET EXPECTED DPC.

:CLEAR 'LOOP-FLAG'' FOR C~-BASE DATA,.
: SET ERROR EXTENSION ADDRESS.

#CHAR'LO,0PC1

#STOP,R3

aDSR,R3
3¢

PDX],PCSER R

OPC1,GDDAT

#3777 .GDDA T

PC, FLGLHK
#1.GDDAT

PC.PCSCHK
#SELCSR,GD DAT
PC.,CSRCHK

L , GDD AT
LOOPF

JSR
CLR
JSR
JSR
JSR
ENDSEG
rMP

R3,4STOP!1 777
3

CMP
BEQ
ADD

Bi(
BR

OPCODE = CHAR, LEVEL 0.

;SE1 EXPECTED DSR.

sSTART,

XCT OPCODE+DATA.

:DOES DSR = STOP + DATA ??
JYES
;sPIXEL CATA XFER WRONG.

;GET OPCODE

;CLEAR OUT INTENSITY

IS IN FLAGS.
EXPECT "EMPTY'' ON PCSAVE...

;SEE _THAT OPCODE
.AND
EXPECT
.AND
EXPECT
.AND

GO CHECK FOR IT.
CLEAR (SR (EXC. SEL).
CHECK FOF IT.
(BASE EITHER O OR DNOP.
CHECK FOR [T.

EXPECT 0 IN REMAINING REGS...

GDDAT

R3
oPC1

;INI7

LLLLLLLLLLLLLLLLLLLLLLLL BEGIN SEGMENT
.

#0PC1,aDPC
PC,WAITF

PC,MMCHK
P( . XMCHK
PC.HBCHK

TITLE.

; DO SOFT INIT.

L
LOOPF
#20% ,EXTA

PC,CBCHK

BEQ
INC
INC
BR

043440

THOSE OPCODES WHICH XFER PIXEL DATA TO THE

DPU, OPCODES 100000 THRU 130000, (CHAR THRU REL POINT).
USE ALL 10 BITS OF THE PIXEL DATA FIELD.

PCOD

042672

4235 042674

4266

004737
004737
005037
012737
012702
012737
012703

FIRST,

.MAIN MEM MGMT.

:...AUX MEM MGMT.
;...HISTOGRAM BASE.

. <<<<<<<2<<<<<<<<<<<<<<<<<< END SEGMENT,
;ALL DATA BITS DONE
;BR [F SO.

;NO BUMP DATA BITS...
J...HERE T0O0...

J...AND CONTINUE.

OPC1,#RPNT '3777 ;DONE THRU RPNT ?2?
5%
;BR IF SO.
NO SET NEXT OPCODE...
#B1T11,0PC 1
#1777,0PC1
.LEVEL O...
1%

AND

CONTINUE.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

see TESY 7

DPU OPCODES

(268
4269
4270
L2

4272

L%;E
4

017704
017705
(12737

137732
137730
140000

(28

012777
004737
027702
001003

4,286 C43144

0074110

4285 043140

«287 043146

027703

043440
027454
137674

130000
043440

023056
144000

4297 063242
4298 043250

012737
004737

144000
022410

023056

4300 043262

004737

022440

4301 043266

4302 043274
4303 043300
6304 (43304
4305 043310

2%89 043314

4308 043316

012737

004737
005037
004737
004737
062737

4309 043324
4310 043332

023727
001771

4312 043342
4313 043344

001765
023727

4311 043334

4314 043352

023727

001761

137636

000003

023056

000001

023056

022360
023056
022466
022566

063440

043440

172000

0463440

162000

043440

4318 043362

013737

043442

0643370
043374
4320 043376

004737
103404
004737

027646

4321 043402

030072

9% :

11%:

BEQ

SEQ 0110

160000

023054

aDSR,R3
8%

OPCF ,XYERR

:XR OR YR WRONG AFTER NULI.

MOV
(MP
MOV
JSR

1%
aDXR R4
9%
aDYR,RS
11%

#RNLN,GDDAT
PC,FLGCHK

:SAY WE SHOULD SEE "RPNT'' OP IN FLAGS.
;G0 TO RUN-LENGTH YET?
:BR IF NOT
;IF YES, EXPECT TO SEE [T.
:CHECK FLAGS FOR THE GRAPHIC OP.

PC.,CSRCHk

;...CSR

#RPNT ,GDDAT
OPC1,#RNLN
10%

MOV

#SELCSR,GDDAT

MOV

#1,GDDAT

ADD

(MP
BtQ
(MP

:...CHECK OTHER REGS, EXCEPT HBASE & CBASE

PC,PCSCHK
GDDAT
PC,MM(CHK
PC ,XxM(CHK

;...PCSAVE
OTHERS S/B 0
:
:...MAIN MEM MGMT

#IT10,0PC1

:SET NEXT OPCODE.

I .. JAUX MEM MGMT

5 €<LLCLLLLLLLLLLLLLLLLLLLL< END SEGMENT,

OPC1,ADJMP
15%
OPC1,4#STOP

; BYPASS DUMP. ..

15%
OPC1,#1IMREAD

:...AND STOP,
: BYPASS DMA PIXEL READ.

TST
BNE

oPC1
6%

: DONE THRU LAST OPCODE ??
;CONTINUE IF NOT,

MOV

OP(C1+2,L00PFL

JSR
B(CS
JSR
EXIT

PC,LOOP
13%
PC,TSTEND

BEQ
(MP
BEQ

30$%:

#0P(C1,aDPC
PC,WAITF
aDPC,R2
7%

HRDERR

BR
CMP
BNE
(MP
BEQ

JSR
(LR
JSR
JSR

12%:

;€KL LLLCLCLLLLLCLLLLLCLLCLCLLKLKL BEGIN SEGMENT,

:PC OR SR WRONG AFTER NuLL.

JSR

15%:

; ALL REGISTERS SHOULD REMAIN...
:...UNCHANGED.
: FIRST OPCODE = 1ST SPARE.

OPCF ,PCSERR

8LO

10%:

aDXR,R4
aDYR,RS
#160000,0PC1

HRDERR

ENDSEG

002000

043440

4319 043370

8%:

137642

005737
001256

4315 043354
2%}9 043360

MOV
JSR
CMP
B8NE

Is ¥

012737
023727

4299 043254

B8GNSEG

(MP

4294 043224
4295 043232

103403

6%:

137670

000416
027704
001003
027705
001410

4296 043240

MOV
MOV
MOv

137704

4288 043166
4289 043170
4290 043174
4291 043176
4292 043202

4293 043204

5%:

043440

427'(9) 043116
431 0643120
4282 043126
4283 043132
4284 043136

PAGE 60-1

: NOwW OF THE REMAINING OPCODES (134000 - 17600C), EXECUTE ALL
: EXCEPT 8MO/BRM1(134000/136000), DJMP(160000), AND STOP(172000),
: WITH BITS <9:0> OF THE OPCODE = ZERO, AND NO FOLLOWING DATA,
; THEY ALL (INCLUDING THOSE UNDEF INED/SPARE) SHOULD APPEAR AS
: NOPS, HAVING NO AFFECT ON THE DPU AS FAit AS FINAL REGISTER
: CONTENT IS CONCERNED.
: NOTE: THIS TEST WILL LEAVE IM CHAN O IN A 'PROTECT'’ STATE.

4267

6275 043100
4276 06431046
25;; 043110

29-JAN-81 17:22

LOOPTO

15%

:GET DATA FOR (HAR-BASE

13%

REPEAT *TIL LOOPER EXPIRES. (BRAN(CH OUT OF RANGE) ;aaal

2 EXIT THIS TEST >33353535323553555,55553555

29~ aN=-81 17:22

JSV11/vS11 == GRAPMIC SYS. DIAG MACRO M1113

eve [EST 7

:gg% 043406

DPU OPCODES
000137

2§3g
6326 063612

4327 043636

4328

2§%g

gg; 063460

000207

042654

148

JMP

138

PAGE 60-2

SEQ 0111
:USE JMP TO ET BACK FOR LOOP.

1 ON ERROR, SHOW THE FAILING CPU OPCODE.
PRINTX

208 :

RYS

®OPCFX,0PC1
P(

; EXTENSION SHOWS BAD OPCODE.

DISPLAY CCDE.

102000 166000 173000 OPC1:

C(HAR!LO, DVOP, STOPN

; DISPLAY CODE.

END.TEST

4333 043446

Y e

xxxxrxrryrryy x rr axaxxx2 2 22 XXX

AR R RN A R AR A A AR N AR A R AR AR

AL AN

®s

[}

0.
O

END TEST 7
ey

x s

a2 22 AR A

AR R A A A A R

AR A A R A

AR A

PSV11/7yS1Y == GRAPWMIC SYS, D JAG MACRO M1113

eee TEST §

29~ AN=81 17:22

ING H]STOGRAM BASE ADDRESS
INCREMENT

433%S

PAGE 6'

SEa 0112

.'...'..'...'.'.'...'.'."..Q.'...."0......Q.'..Q.'...'O".'.....'.....'

:®

BEGIN TEST B8

(NG H]STOGRAM BASE ADDRESS
INCREMENT

; (JTERATION COUNT = 5.9
«33%

«337

: THE READ/WRITE CAPABILITY OF THE BASE M]STOGRAM COORDINATE wWiLL BE
; CHECKED BY “"INCREMENTING'® 1T FROM 2 T0 1776 10 0.
)}
: (NOTE THAT THE WRITYEN DATA WiLlL APPEAR SHIFTED 1 PLACE TO 1€ RIGMT

4338
«339
&30
4.;:;

; R1- EXPECTED, R2=RECEIVZD, RO,R3-WORK REGS.
:

&
633

6366 063544

18:

010337 043712

Pe ¥

006737
004737
012703

4350 043572
4351 063600

012777
004737

&352 063%604

—
s
¢

027702
0c6074
000002

063544
043550
43465 063554
L3466 063560
4367 063562
<38 0643566
4349 064357C

063606

065612

4353 043616

063616

INCHRA: (OMBEG

010301
006201

043710
027456

137232

012777 000005

137222

017702

137216

MOV
JSR

RDDSRA

MmOV

MOyY

(020102

64%:

04 3642

6354 063642
«355 3044

062703

000002

4357 063654
4358 043660

020327
001340

000000

0.3666

006737

027646

063672

000602

023676

000137

2108 ,80P(
PC.WAITF

: WRITE HBA,

SSELMBA ,3DSR

: READ HBA INTO R? .

HBA_,R?

aDSR _R?

30%:

R1_R2

o4f

o OVES.

(x{ O0P
ADD

o2 R3

: LOOP ON ERROR,
: INCREMENT.

HRDERR

(wp
BNE

ENDSEG
(OEND

[+BAE EXPREC,

8176001 RS

R 20
Pg ]
18

JSR

P( LOOP

B8R

(73

8CsS

65§

65%:

004737 030072
06
4361 063704

668 :

JSR
Ex]?

P, TSTEND
1£4

4364
4365

: DISPLAY (0Df.
:

4366 063710 150000
4367 063772
4368 06371¢

000000
173000

108:

118:

SETIG®

STOPN

: NO.

: MASK UNMANTED.
: DONE?
: ND.

; €CCLLLLLLLLLLLLLLLLLLC<<<C END SEGENT,

063554

bi%i

; om?

BEQ
81

4356 043650 062703 176001

063670 103401

R3,R1
R1

£ XPRE (
IFERROR [HBAF

063620 001410

4360 (43664

MoV
ASR

d, 4

043622

4359 043662

; VITLE.
PC.TSTGO
JSR
: DO SOFT NiT,
PC.DPRESET
JSR
,R3
82
MmOy
; €CCCCLLLLLLLLLLLLLCLCLC<<< BEGIN SEGMEN".
BGNSEG
: SET VALUE FOR MBA (0DE.
R3, 118
MOV

; REPEAY °TIL LOOPER EXPIRES.

: PRINT ERROR SUMMARY, [F REQ°D.
SENIT THIS TEST >>>>33>>3>3>>5>3>3333535s

SS
ING #]STOGRAR BASE ADDRE
INCREMENT

IR ocsre

"7:2;

J 9
PAGE €7

s¢€0 0113

€. TEST
«®

- @

END TEST B
0000000000000 000000CR00R000000000000C000ECCCRR0RCO00R0000C000000000000

Se—

eee 157 @

29~ w81

Sill7y5'1 o= GRAPMIC SYS, DIAG MAIRQ W11Y

MACRO M1113 29-JAN-81 17:27
VEVI1/VS1T == GRAPHIC SYS. DIAG
T (HARA(TER BASE ADDRESS
ING
INCREMEN
eee TESY O
872

PAGE 62

SEQ 0114

".t.t'.."".""t""l"'.'.fi"'.Q'Qtt'."'....'.'.'.'.t"Q't't'.t'..'

BEGIN TEST 9

]

ING (HARA(CTER BASE ADDRESS
INCREMENT

"t"t".t't'...tt.."""'..Q.QQ'.'.'tQlt't'tt.."t..'.".'tt..t.'.t"t

;

(ITERATION COUNT

- 2.)

4373
6374

;

4377

: R1= EXPECTED, R2=RECEIVED, RO,R3=WORK REGS.

: THE READ/WRITE CAPABILITY OF THE BASE CHARACTER ADDRESS WILL BE
. CHECKED BY ''INCREMENTING'' IT FROM 1 10 177777 T0 0.

4375
4376
4378
4379

;

4380 044014

044014
044020

Q04737
004737

INCCBA: COMBEG

027702
026074
0C0001

1%:

004737

044152
044150

027454

136766

°%:

044050

012777

000007

136756

044062
044064
064066

020102
001410

4381 (044024

«382 044030
4383 044032
4384 044036

4385 044044
4386 044050

044056
4387 044062

012701

010137
012777

017702

136752

4389 044110
4390 044114
4391 044120
4392 044122
4393 064124

062701
020127
001344

000001
000000
30%:

044124

004737

027646

044134

000137

044024

044140

004737

030072

044130
044132

4;32 044144

103401
000402

435

4399 044150
4400 044152
228; 044154
4403 044156

#1,R1

JSR
RDDSRA

PC,WAITF
(BA,R?

; <<CCCLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.
: SET VALUE FOR CBA (ODE.
R1,11%
; WRITE (BA.
#10%,aDPC

#SELCBA,aDSR

aDSR,RZ2
MOV
IFERROR ](CBAE ,EXPREC
R1,R2
CMP
64%
BEQ
HRDERR 1(BAE,EXPREC,
(KLOGP

ADD
CMP
BNE

ENDSEG
COMEND

#1,R1
R1,#0
2%
1%

65%:

JMP

66%:

JSR

PC,TSTEND

65%
66%

EXIT

s 0K?
s YES.
; NO.
; INCREMENT.
; DONE?
; NO.

; <<KLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

PC,LOOP

TST

: READ CBA INTO RZ .

; LOOP ON ERROR.

JSR

B(CS
BR

. TITLE.
; DO SOFT INIT.

; REPEAT 'TIL LOOPER EXPIRES.

: PRINT ERROR SUMMARY, [F REQ'D.

2 EXIT THIS TEST >>>53353>>55533>>55>55>>3>)>

4396

4397

4398

PC,TSTGO
PC,DPRESET

MOV

BGNSEG
MOV
MOV

MOV

64%:

044106

4388 044106

JSR
JSR

; DISPLAY (ODE.

152000
(00000
173000

;

10%:
11%:

SET(CB
0
STOPN
END.TEST

:tttil't*ttti"ttti!t.i.'."‘."'..'fi'fi'."'ttl'tt't'itt'ttttttttt't!ttt

——

—_—

;

L_9

VSVI1/vS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 62-1
eee TEST O

ING (HARACTER BASE ADDRESS
INCREMENT
[

END TEST 9

.'Qt!t'.t'tt't"!t..ttt'fi"'tfitt‘t.ttt'.""'tQ"".Qfi"."..i"'tt.'..tt

SEQ 0115

v
o

JE—

—

J—

—_—

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 10

DJMS/DPOP

4405

29-JAN-81 17:22

PAGE 63

SEQ 0116

.ttt'tttfltttttt'ttttt'ttttttt*ttttttttttttt'tttQttttt'tttttttttt.'ttttit

BEGIN TEST 10

- %

DJMS/DPOP

:tttttfittt*t*tttttt'ttt"'tttttttltttttttttttt*tt*tt"ttfittt'tttttfittti'
:
4406
4407

(ITERATION COUNT = 10.)

; CHECK THE OPERATION OF THE DJMS AND DPOP OP CODES.

248%

4410 0644222

044222
4611 044226

004737
004737

JMSPOP: COMBEG

JSR
JSR

027702
026074

1%:

441% 044232
441

4414 C44234

044234
064242

4415 0442646

4416 044252

4417 0464256

044256

012777
004737

012701

017702

044630
027454

136570

136554

020102

044310

044316
4420 044322
044322

044634

012777

000001

017702

136512

64%:

4422 044362
4423 044366
4424 044372
044372
044374
044376

65%:

012701
017702

000001
027454

136454

020102
001411
66$%:

4426 044432

4427 044436

4428 044442
044442

052777
004737

012701

017702
020102

044444 0014611
064446

R1,R2

; 0K?

HRDERR

JPDPCE ,EXPREC, CKLOOP

MOV
RDDSRA

000001
027454

044647

136370

64$

#7118 R1
PC(CS.R2

; YES.

; NO.

#SELPCS,aDSR

; READ PCS INTO RZ .

HRDERR

65$

: YES.

DPCONT

JPP(CSE ,EXPREC,CKLOOP

s NO.

; NOW DO A DPOP.

; CONTINUE THE DPU.
: WAIT FOR DISPLAY STOP,

BIS
JSR

#31T0,aDPC
PC,WAITF

HRDERR

JPDPCE ,EXPREC,CKLOOP

DPCONT
BIS
JSR

.
#81T70,aDPC
PC,WAITF

; DO A DJMS (WITH AUX SEG BIT SET).
: CONTINUE THE DPU.
: WAIT FOR DiSPLAY STOP.

MOV

aDP( ,R2

: READ DPC INTO RZ.

67%

- YES.

#12%,R1
MOV
; READ DPC.
aDPC ,R2
MOV
LOOP
,EXPREC,,CK
IFERROR JPDPCE
0K?
;
R1,R2
(MP
YES.
;
66%
BEQ

044636
136440

044420

4425 044420
044420
044426

CMP

BEQ

044350

052777
004737

; READ DPC INTO RZ2.

#218% ,R1

aDSR,R2
MOV
IFERROR JPPCSE EXPREC..CKLOOP
0K?
R1,R2
CMP

020102

044326

044350
044356

aDP( R2

MOV

136516

044324 0014611

4421 044350

MOV

BEQ

012701

: START THE DPU.
: WAIT FOR DISPLAY STOP.

#4108 ,aDPC
PC,WAITF

IFERROR JPDP(CE ,EXPREC,,CKLOOP

044262
044304

; DO A DJMS.

MOV
JSR

MOV

044646

;. TITLE.
; DO SOFT INIT.

; €CCLLLLLLLLLLLLLLLLLLLLLLLC BEGIN SEGMENT.

BGNSEG
DPSTART #10%

044260 001411
4618 044304
4419 044310

PC,TSTGO
PC,DPRESET

136404

MOV

%
! AUXSEG.R
#21

; NO.

IFERROR JPDPCE EXPREC..CKLOOP
; 0K?
R1,R2
CMP

BEQ

HRDERR

JPDPCE ,EXPREC,CKLOOP

; NO.

[

== GRAPHIC SYS. DIAG MACRO M1113
VSVT1/YS11
DJMS/DPOP

044470
6429 0464470
4430 0446474
044474
044502
w3 044506
044506
044510
044512
044534
044534
044534
044542
4433 044546
6434 044552
4435 044556
044556
044560
044562
044602
64636 044602

012701

044642

012777

000001
136326

017702

29-JAN-81 17:22

67%:

RDDSRA
MOV
MOV

136332

001411

68%:
004737
012701
017702

000001
027654
046644
136254

HRDERR

DPCONT

BIS
JSR

136270

#SELPCS,aDSR
aDSR,R2

69%:

HRDERR

abDPC,R2

; READ DPC.

JPDPCE EXPREC,
1%

PC,LOOP

004737

044614

000137

044232

70%:

JMP

044620
4439 044624

004737

030072

71%:

JSR
EXIT

PC,TSTEND
TST

4451
4452 044652

160001
173000
160001
173000

4443 044630
444l 044634
4445 44636
4446 044642
4447
4448 044644
4449 044646
4450 044650

: NO.

70%
71%

; REPEAT 'TIL LOOPER EXPIRES.

: PRINT ERROR SUMMARY, IF REQ'D.
+ EXIT THIS TEST >>>>>3>333>33>3>>5>>>>>>>>>

! DISPLAY CODE
044644

044645

4440
4441
4442

; OK?
; YES.

; €CLLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

044604
044610
044612

000402

; NOW DPOP AGAIN.

; CONTINUE THE DPU.
; WAIT FOR DISPLAY STOP.

ENDSEG
COMEND
JSR
BCS
BR

027646

: NO.

#8170,aDPC
PC WAITF

IF ERROR JPDPCE ,EXPREC
R1,R2
CMP
69%
BEQ

020102
001410

103401

: READ PCS INTO R2 .

JPPCSE ,EXPREC, CKLOOP

#20% ,R1

MOV
MOV

L4637

4438 044604

#13%,R1
PCS,R2

SEQ 0117

1FERROR JPPCSE ,EXPREC, ,CKLOOP
; 0K?
R1,R2
(MP
: YES.
68 3
BEQ

020102

052777

MOV

PAGE 63-1

173000
165000
173000

DJMS, 208
STOPN

AUXSEG
! 20%
DJMS,
STOPN

STOPN

DPOP
STOFN

END.TEST
S

.
. W

[

. 2 2

2222222222222 2722222 232322322228 d0 20

Rttt

END TEST 10
Al
1122 2 2223232222223 2232220223823 2232022220ttt

VSV11/VS11 == GRAPHIC SYS. DIAG MACKO M1113
eee TEST 11

20~ aN-RT 17:02

MAIN MEM HGY ACCESS (OVER Bb

456

8 10

PAGE 64

SEQ 0118

...'..."l.'.'!Q"Q.t."""....."'."'.t.'t.".'QQ"'.t""."'..".'

11
BEGIN TEST

MAIN MEM MGT ACCESS (OVER 28k)

"'.".'..'..'l....""".'.'t..'t."."t.-.'."t""'t"ti."t""""

;
4455
4456
L4657
4458
4459
4460 064744

044744
044750
4461 044754
4462 044760
4463 044762
4464 044764
4465 044770
4466 044772
4467 045012

(1TERATION COUNT - 10)

(HECK THAT A DISPLAY FILE CAN BE ACCESSED VIA MAIN MEM MGT.

IN MEMORY OVER 28K.

004737
004737
005737

0277922
026074

032700
001410

001000

001016

:
MMMA(

003244

COMBEG
JSR
- SR

; TITLE.
; DO SOFT INIT.

#PNT RO

TST
BNE
RFLAGS

KTFLG
MMMACA
RO

BEQ
PRINTF

BIT

1%:

PC,TISTGO
PC,DPRESET

EXIT

: GOT KT & >28k?
; YES.
: ARE WE PRINTING TEST NOS.?
: BR IF NO == DON'T PRINT

MMNOK T

NO.

;

SET UP BACKGROUND.

2 EXIT THIS TEST >>>55>>>>5>3>>33>>>>>>>>>>>>

TST

4468

4469
4470 045016

4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4681

045022

004737
012703

031322
001600

045026

; <CCLCLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.,

MOV
MOV

RO,aDSR

012777
004737
000413

000000
027454

004737
012715
004737

031270

052777
00473%7
010501

000001

045130
045136
4493 045142

#1600,R3

135754
140000

012700
050100
010077
012705
00473%7
012715
004737

4490 045120
4491 045124
4492 045130

BGNSEG

: INIT BANK PTR. (TO START OF 28K PAGE)

000014

045046
045052
045054
4482 045060
4483 045064
44684 045070
4485 045074
4486 045100
045100
045106
4487 045112
4488
4489 045114

2s:

PC,KTBKGD

R3,3#K ]PARG

010337

045046

JSR
MOV

MOV
MOV
ASL
ASL
ASL
ASL
WTIDSRA
MOV

045030
045034
045036
045040
045042
045044

010301
006301
006301

MMMACA:
1%:

172354

006301
006301

BIS

JSR

031270
164000
031306

MOV

3¢

031306

027454

R1
R1
R1
R1
R1,.MRR

#SETMRR ,RO

JSR

#140000,RS
PC,KTON

135674
4%:

INTO MRK

: DISABLE KT.

START

THE DPU

. WAIT FOR DISPLAY STOP.
K
; ENABLE

PC, KTOFF

: DISABLE KT.

DPCONT
BIS
JSR

#8170,aDPC
PC,WAITF
R5,R1

: REPLACE ''STOPN'' WITH "DNOP'' IN TEST LOC.

PC.,KTON

#DNOP, (RS)

MOV

SET UP MRR.

; INIT LOC PTR.
; ENABLE KT,

#DNOP, (RS)

MOV

JSR

: WRITE R1

R1,R0O

Pg,KTOFF
JSR
DPSTART f 4
#0,aDPC ;
MOV
zg,wAITF
JSR
BR

135724

164000

R3.R1

; SET KT TO TEST PAGE.

; REPLACE ”STOPN“ WITH 'DNOP'* IN TEST LOC.
; CONTINUE THE DPU.
WAIT FOR DISPLAY STOP.
R1

= EXPECTED DPC, AND -

YSV11/VS11 == GRAPHIC SYS. DIAG MACRQ M1113

vee TEST N

MAIN MEM MGT ACCESS (OVER 28K)

L4946 045144
6495 045150
4496 045154

042701
062701
017702

065160
045166
4498 065172
045172
0465174
045176
045200
045202
045222
4499 045222
4500 045226
4501 045232

012777
017704

4503 045236

L4697 045160

4502

045242
045246
045250
045252
045256
4509 045260
4510 045264

4505
4506
4507
4508

5N
4512 045266

29-JAN-B1 17:22
8I(

170000

000004

135642

#170000,R1

aDPC ,R2

1ST
NO.

¢5%:
648

031270

PC,KTON

173000

062705
020527
001322

000002

#2 RS

020337
001403
062703
000660

003244

147774

000200
9%:

ENABLE KT,

REPLACE 'DNOP'' WITH ''STOPN'',
DISABLE KT.

;

ADVANCE LOC

PTR.

R3.KTFLG
9%
#200,R3
2%

000137

045022

66%:

JMP

045302
4513 045306
4514 045312

004737
004737

030072
031306

67%:

JSR
JSR
EXIT

PC,TSTEND
PC,KTOFF

045

116

LASCIZ

/ANXA

.EVEN
END.TEST

TST

NO.

;

YES. ALL BANKS DONE?

YES.

; NO. ADVANCE BANK PTR.

REPEAT

PC,LOOP

045276

000402

MNOKT:

;

PPIII CCLLCLLLLLLLLLLLLC END SEGMENT.,

66%
67%

045

YES.
~0.

* DONE ENOUGH LOCS?

045266
045272
045274

027646

ITEM OK?

RS.#147774
33

COMFND

ND ITEM OK?

R3,.R4
648
MMMACE ,MMMAE ,

004737

4515
4516
4517 045316
4518
4519 045366

READ MRR INTO R4

65%

031306

103401

- (R3 ALREADY = EXPECTED MRR).
READ DPC INTO RZ.

#6 ,R1

#STOPN, (RS)
PC.KTOFF

012715
004737

SEQ 0119

MRR R4
#SELMRR,aDSR
aDSR,R4
, MMMAE
IFERRX2 MMMA(CE
R1,R2

135646

020102
001002
020304
001410

004737

ADD
MOV
RDDSRA
MOV
MOV

000004
135652

c 10

PAGE 64~1

'TIL LOOPER EXPIRES.

PRINT ERROR SUMMARY,
DISABLE KT11.

[F REQ'D.

EXIT THIS TEST >>>>5>>333D55>53>>55>>3>3>>>

!l NO KT, OR <32K - NO TEST

!../

'ti't"'ttttt'tt'tttt't"t'fitfi'**'tt'fi'tttt'it.tttt'.ttttfittttltitti'it'

.
.

. W

END TEST 11

't'fit."tfi'fitt.itt't*""t!'t'tt'tt!ttfilt.'tt.tfit.'ttt'l'.'ti'tt'ttt!"'

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

| eee TEST 12

AUX MEM MGT ACCESS (OVER 28k)

521

29-JAN-81 17:22

0D 10

PAGE 65

SEQ 0120

"Q".."..."."".'."""'.'.....'."QQQ.QQ"'."'"'..Q."'tt'."'.'
|]

BEGIN TEST 12

AUX MEM MGT ACCESS (OVER 28K)

‘tt""t.'.'....Q'.'.""".‘Q'.""..'tt'.".".i.lfifi"t."t"'."'t'i'

; (ITERATION COUNT = 1.)
4522
4523

: CHECK THAT A DISPLAY FILE CAN BE ACCESSED VIA AUX MEM MGT.

4524

: IN MEMORY OVER 28K.

4525

4526

4527 045456

045456
045462
4528 045466
4529 045472

4530 C45474

4531 045476
4532 045502
4533 045504
ngg 045524

004737
004737
005737
001016

032700
001410

XMMAC:

027792
026076
003244

(OMBEG

JSR
JSR
TST

PC,TSTGO
PC,DPRESET
KTFLG

RFLAGS

BNE

001000

1%:

BIT
BEQ
PRINTF
EXIT

XMMACA

; TITLE.
: DO SOFT INIT.
: GOT KT & >28k?
. YES.

ARE WE PRINTING?
RR IF NO
NO.

#PNT RO
13
MMNOKT
TST

:
.
;
2

PC,KTBKGD

; SET UP BACKGROUND.

EXIT THIS TEST >>>>3>>3>3>>5>>5>5>>>35>>>>>

4536

4537 045530

zggg 045534

004737

012703

XMMACA: JSR

031322

001600

4%4? 045540
454

45642 045542

4543 045546

4544 045550
4545 045552
4546 045554
4547 045556
4548 245560

045560

045564
045566
4549 045572
4550 045576

4551 045602

010337
010301

012700

050100
010077
012705
004737

012715

4556 045626

004737

031270

4558 045636

004737

031306

052777
004737
010501

000001
027454

012715

ASL
ASL
ASL
ASL
WIDSRA

R1
R1
R1
R1
R1,XRR

BIS
MOV
MOV
JSR

MOV

164000

046030
027454

R3,a#K |PARG

MOV

3%:

164000

R3,R1

#SETXRR,RO
R1.RO
RO,aDSR
#140000,RS
PC,KTON

#DNOP, (RS)

PC KTOFF
JSR
DPSTART #10%

135212

: SET UP XRR.

: WRITE R1 INTO XRR .
: INIT LOC PIR.
. ENABLE KT,

: REPLACE ''STOPN'' WITH "DNOP'' IN TEST LOC.
: DISABLE KT.

#10%,aDPC
PC,WAITF
(3 3

: START THE DPU.
: WAIT FOR DISPLAY STOP,

JSR

PC,KTON

; ENABLE KT,

PC,KTOFF

; DISABLE KT,

MOV

DPCONT

4%:

: SET KT TO TEST PAGE.

MOV
JSR
BR

JSR

135162

: INIT BANK PIR.

; €CCLCLLLLLLLLLLLLLLLLLLLLL BEGIN SEGMENT.

MoV
MOV

135242
140000
031270

012777
004737
000413

045642
045650
4560 045654

BGNSEG

000016

045612
045620
2?22 045624

4559 045642

2%:
006301
006301
006301
006301

031306

4557 045632

MOV

172354

004737

4552 045606
4553 045612

1%:

#1600,R3

BIS
JSR
MOV

#DNOP, (RS)
#3170,aDPC
PC,WAITF
R5.R1

: REPLACE ''STOPN'' WITH 'DNOP'' IN TEST LOC.
: CONTINUE THE DPU.
: WAIT FOR DJSPLAY STOP,
; R1 = EXPECTED DPC, AND -

JSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

vee

TEST

456"

4562

4563

4564

6565

045656
045662
045666
045672
0465672
045700
045704
045704
045706
045710
045712
045714
0465734

4566 045734
4567 045740

4568 045744

4569

4570 045750
4571 045754
4572
572
4574
4575
4576
4577
4578
4579

045760
045762
045764
045770
045772
045776

AUX MEM MGT ACCESS (OvVER 28k)
042701

(00005
135140

012777

000006

017704

135130

020102
001002
020304
001410

012715

004737

031306

062705

000002

020527
001322

020337
001403

000137

045534

046014
4580 046020
4581 046024

004737

030072

004737

031306

4582
4583
4584

#5,R1
aDP( ,R2
XRR,R4

#SELXRR,aDSR

; = (R3 ALREADY = EXPECTED XRR).
: READ DPC INTO RC2.
: READ XRR INTO R4 .

(MP
BNE
{MP
BEQ

R1,R2
65%
R3,R4
643

;
5
;
;

JSR

PC,KTON

; ENABLE K.

JSR

PC.KTOFF

; DISABLE KT.

HRDERR

MOV

, XMMAE,
XMMA(E

#STOPN, (RS)
%2 .R5

1ST ITEM OK?
NO.
OND [TEM OK?
YES.

. NO.

: REPLACE 'DNOP'' WITH ''STOPN'',
: ADVANCE LOC PTR.

RS 4147774
3

; DONE ENOUGH LOCS?
: NO.

(MP

R3.KTFLG

; YES. ALL BANKS DONE?

ADD

#200,R3

ENDSEG

BEQ
BR
9%:

;o=

MOV

(mMpP
BNE

003244

046010

103401
000402

#170000,R1

SEQ 0121

aDSR,R4

ADD

147774

004737

000660

E 10

PAGE 65-1

IFERRX2 XMMA(CE ,XMMAE

173000

027646

4588
4589 046036

RDDSRA

MOV

135734

004737 031270

000200

4585
4586 046030
4587 046034

ADD
MOV

gzg:

062703

046000
046000
046004
046006

81(

170000

062701
017702

29-JAN-81 17:22

.,
5 €CCCCLCLCLLLLLLLLLLLLLCLLLLL< END SEGMENT

COMEND

’3

; YES.

: NO. ADVANCE BANK PTR.
: REPEAT °TIL LOOPER EXPIRES.

JSR

PC,LO0OP

66%:

JMP

iR3

67%:

JSR

PC,TSTEND

: PRINT ERROR SUMMARY, [F REQ'D.

TST

J EXIT THIS TEST >>>>>3>533>>33>3>>53555>>>>

B8(S
BR

JSR

Ex]T

66%
67%

PC . KTOFF

; DISABLE KkT11,

DISPLAY CODE.
160001

173000

000001

108:

DJUMS,AUXSEG
STOPN

END.TEST
:ttlt'tt"tt.tt.t."ttttttttttt'tttt'ttt!tttt'tt'.t'tt!tttttttt"t'tt"t
.-'

e
"

END TEST 12

".'t'!tt.t.t't"..'.l"t"..QQfi'.""'ttt".'t".'.."!""""t"'t"t.
”

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113 29- AN=81 17:22
eee TESY 13
STOP INTERRUPT
594

RN R

P AR R RN R R

F 10

PAGE 69

NN RN TR N RN N TR R AN AR AN NI IR RN AR

.
R

BEGIN TEST 13

SEQ 0122

ORI R

T RN

NIRRT RS

STOP INTERRUPT

.'.'."...."..."..."""'.....'t".'..Q'.'.'.""....Q."l".'.tt.'..'

; (ITERATION COUNT = 40.)
4595

4596
4597

; CHECK THE ACTION OF THE STOP INTERRUPT,
: ALSO CHECKED IS THE ACTION OF THE (SR ‘FORCE STOP INTR'' BIT.

2223

: REPEAT 40 TIMES AFTER QUICK PASS.

228? 0646110

004737

027702

STPTST: JSR

468% 065114
L6

19%:

4604 046116

004737

025402

046122
L606 066130

012737
012777

177601
046742

4608 046142
4609 046146

105737
001412

026107

4605 046122

4607 046136

4610 046150

0046737

027454

012701

046136

004737

023422

046200
L6146 046206

012737
012777

177601
06466746

4617
4618
4619
4620

001412
012701

4611 046154
4612 046174

4613 046200

4615 0466214
4616 066220

046226
046226
046232
046252

004737
105737

027454
026107

02610¢
134674

2%:

026106
134617

046214
023422

0646256
L622 066264

012737
012777

177600
046752

026106
134540

6624
4625
4626
4627
4628

123727
001412
012701

026107

000377

046256

462% 046272

046276
046304
046306
046312
046332

004737

027454

023427

046336

012737

177600

4631

046352

004737

4633
4634
4635
4636

046364
046366
046372
0464612

(001412
012701
_
012777

046420

012737

4630 066344

4632 046356

4637 046420

4%:

5%:

046272

004737

4629 046336

3%:

012777

046760

123727

026107

027454

6%:

026106
134460

000377

7% :

046352

000053

1344746

177601

026106

8%:

JTITLE

: €<LLLLLLLLLLLLCLLLLLLLCLCLLC< BEGIN SEGMENT
.,

JSR

PC,DPINIT

MOV
MOV

#*0177600! JOKCKIN. JOKSTP, INTMASK
#STP1,aDP(
JXCT "'STOP AND INT'’,

TSTR
BEQ

INTFLAG
2%

: DID WE GET AN INTERRUPT?
;BR IF INTERRUPT REC'D.

NSI,INTERR
PC,IIRCHK

JINT EXP'D, NOT REC'D.
;CHECK INTERNALS FOR INIT'ED STATE.

JSR

MOV

004737

4621

BGNSEG
INTSET

A ¥

PC,TSTGO

HRDERR
JSR
INTSET

STP

PC,WAITF
#18 ,R1
STP

INIT THE DPU SO WE CAN CHECK INTERNAL REGS.

:aadl

; PRIME FLAG, EXPECT STP

JPC AT WAIT TIME.

MOV
MOV

#*0177400! JOKCKIN! IOKSTP, INTMASK
;. PRIME FLAG, EXPECT STP
#STP?2 ,aDPC(
JXCT ''STOP'', ENABLE STILL SET.

BEQ
MOV
HRDERR
JSR

A 3
#3%$ R1
NSI.,INTERR
PC,I1IRCHK

MOV
MOV

#20177400! IOKCKIN, INTMASK
; PRIME FLAG, NO INTR, EXPECTED.
#STP3,aDPC
JXCT '] OFF'" AND *'STOP''.

(MPR
BEQ
MOV
HROERR
JSR

INTFLAG, #0377
6%
#5% R1
USI,INTERR
PC,1IRCHK

JSR
TSTR

INTSET

JSR

INTSET

PC,WAITF
INTFLAG

PC,WAITF

;DID WE GET AN INTERRUPT?

;BR IF INTERRUPT REC'D.
;SET PC AT WAIT TIME.
JINT EXP'D, NOT REC'D.
JCHECK INTERNALS FOR INIT'ED STATE

:DID WE GET AN INTERRUPT?
JBR IF NO INTERRUPT,
JINT REC'D, NOT EXP'D.
JCHECK INTERNALS FOR INIT'ED STATE

MOV

#201776400! IOKCKIN, INTMASK

JSR

PC,WAITF

MOV
(MPR

BEQ
MOV
HRDERR
MOV
INTSET

MOV

H PRIME FLAG, NO INTR. EXPECTED.

#STP4 ,aDP(

:XCT "'1 ON'* AND

“'STOP N''.

INTFLAG, #0377

:DID WE GET AN INTERRUPT?

8
;BR IF NO INTERRUPT,
#7% ,R1
USI,INTERR
JINT REC'D, NOT EXP'D.
#FOR(S] 'WRT(SR,aDSR
JSET BIT TO FORCE
S TP

#40177400! JOKCKIN! JOKSTP, INTMASK

STOP INTR,

; PRIME FLAG, EXPECY STP

/Sv11/74511 == GRAPHIC SYS., DIAG MAJRO M1113 29= AN=81 17:22

eee TESY 13

G638 066426

STOP INTERRUPT

012777 046752

6639 0466434

004737

L6461 0664646

0014612

66460 06646460
G642 0464646
LE66T 0466452

(27454

13637¢

105737 026107

012701

066434
108

0664672 012737 177601 (26106
4645 066500 012777 046760 134324
11¢:
4646 066506 0046737 027454
(6B 046516

105737

001612

026107

4650 046524
4651 0465644
4652 046552

012701

046506

012777

000013

4655 0646572

105037
012777

004737

(26106
066742

64649 066520

4653 066560
L6564 0466564

027454

4657 046604

4659 046416
(660 046624

L661 046630

004737

012777

012737
004737

046630 012737

4662 046636

L663 04666446

000260

4665 0646650
4666 066652
4667 066654

002240
0( 240
(004737

4669 0466646
4670 046666

100412
012701

L664 066646

L668 066660

L4671 066672
4672 66712
46;3 046716

0224610

000012

10000C
022410

1342¢2

1'2%:

134240

004737

066720
046724
4676 046726

4677 0466732
22;3 066736

13%:

4684

4L685 046752
L686 066760
4688 046766

JMCT "'I=0FF'° AND STOP

P(,wWwA]TE

HA17 FOR DONT

108

“BR [F YES == OK

:DID WE GET AN INTERRUPT?

INTFLAG

#9% R1
NS],INTERR
STP

:GET CPU PC FOR ERR REPORY
JINTR EXP'D, NOT REC'D

TSTR

INTFLAG

:DID WE GET AN INTERRUP

MOV

#7118 R

:GET P(

{LRB
MOV
JSR

INTMASK
#STP1,aDPC(
PC,WA]TF

HRDERR
MOV
SETPR]

:...BR IF YES == OK

12%

NS, INTERR
#0'WRT(SR,aDSR
#PR]O7

:REPORT ]F NOT
;CLEAR THE (SR
LOCK OUT INTERRUPTS

;DON'T EXPECT ANY INTERRUPTS.
JXCT ''STOP AND INTR''
UAIT FOR DONE

#BIT15 PINTRA,GDDAT

SEXPECT PENDING INTR

PC.FLGCHK

;CHECK FLAGS FOR IT.

MOV
JSR

#100000,GDDAT
PCFLGCHK

:...AND VERIFY [T,

MOV

#%0177600! JORCKIN, INTMASK

INTSET

177600 026106

aSTP3, DPC

SEQ 0123

: PRIME F{AG, EXPECT STP
801776400 JOKCKIN! JOKSTP, INTMASK
N'°
''STOP
AND
T'1-ON'*
SXCT
85TP4 ,@DPC
“WAIT FOR DONE.
PC,WAITF
T?

MOV

1342'6

SETPR]

NOP

#CLFLGS,aDSR

:CLEAR THE INTERRUPT,

: PRIME FLAG, NO INTR. EXPECTED.

:ALLOW INTERRUPTS

#PR]00

.....AND SEE IF WE GET INTR

NOP

0274654

(046644

14%:

023434

030072

000137

046114

PC.WAlTF

BM]
MOV

14%
#13%.R1

‘8%:

:DID WE GET AN INTERRUPT?

INTFLAG

:0K IF NO INTR
:SAVE CPU PC

HRDERR
JSR
ENDSEG

:SAY UNEXPECTED INTIR
USI],INTERR
SCHECK INTERNALS FOR INIT'ED STATE
PC,]1IRCNF
: €CCCCCCCLLLLLLLLLLLLLLLC<< END SEGMFNT,

LOOPTO

18%

JSR
8(s
JSR

027646

004737
103404
004737

JSR

TSTR

026107

Ex]T
JMP

P(,LOOP
18%
PC,TSTEND

TST
19%

: REPEAT °*TIL LOOPER EXPIRES.

2 EXIT THIS TEST >3>>533353>5>53>>>35>>555>>>
:JUMP TO START OF LOOP

. DISPLAY (ODE

228?

4582 046742
4683 046746

INTSET

MCv
MOV
JSR

JSR

4674

4675 066720

MmOy
HRDERR

MOV

023056

000240

105737

1578

8E0

4656 C46576 012737 100001 023056
4658 046610

JSR

8tQ

L64L4 0664672

66467 066512

MOy

9-1
PAGE 6

164002
166002
164002
166002

173400
172000
171000
171400

172000
173000

STP1:
STP2:

SYN(+1,STOPI
SYN(+1,STQP

:STOP AND [NTERRUPT,
SAGAIN. ENABLE SHOULD HAVE...

STP3:
STPG:

SYN(+1,SIOFF,STOP
SYNC+1,SION,STOPN

SENABLE OFF AND STOP (NO INT).
JENABLE ON, STOP WITHOUT INTERRUPT,

:...BEEN SAVED,

END.TEST
:.'.."....".'QQ.I.".."""'.'""l"'......"..'..OQ.'......"..".'

* ee SRAPM]T SYS, DIAG MAIRQ M11°T

®o

5T P INTERRUPT

20e AN=B1 72,

H 10

PANGE L9=

SEQ 0124

END TENT C7
.

....'....."..'..'."'..I..Q.'Q..Q.".""'......'....'.'."'.0...'.'.

cee "5t T,

V.,

:-_.‘

‘-1”":

[PRELRE

_"l‘_?'

“‘“JE

."-L

110
s:

SEG 0125
o..o-Qooo'oo..o.'o'ooocooo.oo.t..oo....t.'..O.QQ.Q..o.'.t......t....'..

B 0N 61T e

DRy TIME=QUT [NTERRUPT

.c0...0.'.'...........O.'....'.'O..'.0...'.Q.'.Q....'.."..'Q...........

JTERATION JONT = TUOL)
:

b’

92
33

S OSEND "TME DISPLAY TO A NON=EXNISTENT MEMORY LOCATICN
T AND (ERJFV TMAT Mf RESPONDS w]TH A TIME~OUT INTERRUPT,

: REPEAT 100 TIMES ASTER QuUICK PASS,

«egts.

9% (47250
0-705C X237 117752

Y0TeST: (OMBEG
PCTSTGO
JSR

98 047060

‘$:

2SR

w97 06/3°6 J047%7 C2607%

699 (67062 012777 1450 133744
c%

4702 047070 012777 oooovi 13373
133730
«7C3 07076 012777 GOOG'S

067106 012737 177604 0%3106

a;;i 067140

012777 16000¢ 133772
108
005000
1¢
005300
oomg
105737 026°C7
001612
012707 067120

&76 067160

715 J7160 012737 106003
«7°6 067166

4717 067172
¢718 067200
4719 067206
721 067216
4722 067222
728

067226

";‘;«‘; 0672%2

006737

022640

06737

22:566

012737
006737
012777
006737
0G&737

22305

reB

100000 023056
02240
00003 1336722
02252¢
(022624

4726 067.3%

rwmdwmwam -

0672%
(%7260

:;% 047262

006737
03797

127646

000620

729 067264 (12727 Q000'&6 13356¢ S8:
o730 067252 012777 000007 133%5¢4
;
473
4.;355 760 6737 0%C7C
&

: TITLE.
S DO SOFT INIT.

. (CCCCCLLCLCLLLLLLLCLLLCC<<<< BEGIN SEGMENT,

:SET RELOC TO 600000, SINCE THE...

"0y

#5¢ T 140000, aDSR

Oy
ROV

SCLEAR THE FLAGS & PENDING INTERUPTS,
8CLFLGS,3DSA
00 ATCSR,IOSR :(LEAR THE ERROR CODE.

INTSET

«706 067106

4705 067112
<706 067120
<707 067122
4708 047124
708 047
¢ 7
4711 067136

8 MNSEG

PC.DPRESET -

MOV

"0y
QR
DEC
o
33
ota
WOy

EAR

v
_SR
"0y
JSR
3R
3R

ENDSEG

L2010

: PRIME FLAG, ENPECT EPR

820177600 . JOXCK [N JOXERR, INTRMASK
8160000, 30P(
)
L)
g
INTELAG
be |
2108,

WDERR NTO, INTERR

%0y

5...170 PAGE IS REALLY 760000.

.,
ST DISPLAY START,
S ... SMOWD GET "ImME-QUT.

: DID wWE GET PROPER INTEGRUPT?
: BR [F VES
S1° DIDN®Y, GET ERROR PC...
SNO TIME~QUT INTERRUPT,

SELCSR,GDDAT
1>C1eBIT
SBITIS!
PC,(SRCHK

;SET UP GDDAT W/ ERROR ODE.

S(HECK FOR THE ERFOR (NXM)

#100000.GDDAT :SAY FLAGS SHMOULD HAVE NO PENDING INTRS
c...CHECK FOR |7,
PC.ELGCM
80 RTCSR, ISR :C EAR ERROR (ODE
© .. =BASE
P( . MB(H
:...(~=BASE
P, (B
P’

L. MDD AUN MGT,

I €€ CCCLLLLLCLLLCCCeC<<<c< END SEGRENT,

..
: REPEAT,

:...TIL LOOPER EXPIRES.

SR
5. S

®( 1L 00P
1%

w0,
0y
MOy
ISR

S INSURE MAIN=SEG RELOC IS O...
8SE TR 10, 3DSA
-SELECT REAL DSR
8SELDSR, ADSR
se..AND RESTORE VECTOR.
oTC,aT0%y
PC,TISTEND

)

R
REZ
W%

S, TIA, MATRD WUTTE

P
B Timged” INTERR

LT e

D% aA=f' '7:02
I,

SEQ 0126

817

Y T T

410

PAGE Tl-T

R R

LA A LR DA L AL

ENL CEST Ce

-QQ.....'...'.............'...Q...........Q..Q...'......O.....'...O'....

TEST

ERROR (ODES

«7%

NN NN NN

R IR

SEQ 0127

RN NP E NN R RPN RR A RARNRNIARANCRANRADRANRACRRNROERNREPAANRRARONRAROONS

BEGIN TEST 15

K 10

PAGE 71

ERROR (ODES

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

;
fTI®s. 8¢ 8, @0 8,

4737
L4738
4739

4740
L7461
4762

4763 047332

047332
047336

o744 047342

004737
004737

027702
026074

GENERATE ALL ERROR CODES NOT TESTED ELSEWHERE IN THE PROGRAM
(HECK FOR THE RFTURN
AND POSSIR.E TO GENERATE WITH SOFTWARE.
OF THE APPROPRIATE ERROR (ODE.

RCODS

1%:

4745
G746

L7647 0477342
L7648 0467344

(ITERATION COUNT = 10.)

COMBEG

JSR
+SR

PC,TSTGO
PC.DPRESET

s
;

TITLE.
DO SOFT

INIT.

TEST MPE - MEMORY PROTECTION (MAIN SEGMENT).
;€L

BGNSEG
INITDP
JSR

PC,DPINIT

LLLLLLLLLLLLELLLLLLLLL BEGIN SEGMENT
.,

; GO DO SOFT INIT, CHECK THE STATE.

047344

004737

025402

047350

012777

170015

133456

MOV

g;;OOOO&‘C17!SETMPM,aDSR

047356
4751 047364
047364
047372

012737

177604

026106

MOV

#201776400! IOKCKIN! IOKERR, INTMASK

012777
004737

052264
027454
026107

133440

MOV

;

4749 047350
4750 047356

4752
4753
4754
4755
4756
4757
4758

047376
0474602
047404
047410
047430
047430
047434

047434
047442

4759 047446
047446

047450
047452
047472

105737
001412
012701

4768 047516

INTSET

012701

114003

012777
017702

000003

133366

10%:

133372

646%:

;

025402

012777

170017

133324

012737

177604

026106

TSTR
BEQ
MOV
HRDERR

MOV
RDDSRA
MOV
MOV

CMP
SEQ
HRDERR

; LIMIT MAIN SEG TO 4K

;

; PRIME FLAG, EXPECT ERR

FORCE MPE ON MAIN SEGMENT
START

THE DPU.

; WAIT FOR DISPLAY STOP.

INTFLAG

: DID WE GET THE EXPECTED ERROR INTERRUPT?

NTO,INTERR

108
#.-12,R1

; BR IF YES.
; NO. SO GET PC FOR ERROR REPORT,

... AND REPORT THE PROBLEM.

#MPE LR

(SR,R2
#SELCSR,aDSR

aDSR,R?2
IFERROR ECE,CSRER

020102
001410

004737

#170000,MPM

DPSTART #ECMPEN
#ECMPE
1 ,aDPC
PC,UAITF
JSR

047372

4760 047472
4761
4762
4763
4764 Q47474

4765 047476
047476
4766 047502
047502
4767 047510
047510

WTDSRA

R1,R?2

. 0K?
; YES.
. NO.

64%

ECE.,CSRER,
5

ENDSEG

; READ CSR INTO RZ2 .

CCLCLCLLLLLLLLLLLLLLLLLLL<<< END SEGMENT,

TEST MPE - MEMORY PROTECTION (AUXILIARY SEGMENT).
BGNSEG
INITDP
JSR
WTDSRA

;€€

CLLLLLLLLLLLLLLLLLLL<< BEGIN SEGMENT
.

PC,DPINIT

: GO DO SOFT INIT, CHECK THE STATE,

#170000, XPM

MoV

g;;ooooz*c17'ssrxpn,aosn

MOV

#%0177400' IOKCKIN' IOKERR, INTMASK

INTSET

DPSTART

#ECMPE?2

; PRIME FLAG, EXPECT ERR

. FORCE MPE ON AUXILIARY SEGMENT.

VSV11/yS11 == GRAPHIC S¥S. DIAG MACRO M1113

eee

29=,AN~81 17:22

4780
4781
4782
4783
4784 047634
4785 047636

105737
001412
012701

012701

114003

012777
017702

000003
133234

005737
001132

INTFLAG

#.-12,R1
NTO, INTERR

MOV
RDDSRA
MOV
MOV

#MPE R1

(MP

R1,R2

CSR,R2

HRDERR

ENDSEG
7S7

002502

BNE

;
;

65%
ECE,CSRER,
5
DPUMOD
3%

START THE DPU.
WAIT FOR DISPLAY STOP.

DID WE GET THE EXPECTED ERROR INTERRUPT?

BR IF

VYES.

NO. SO GET P(C FOR ERROR REPORT,
. AND REPORT THE PROBLEM.

READ (SR INTO RZ

#SCLCSR,aDSR

aDSR,R2
IFERROR ECE,CSRER

65%:

0K?

YES.

* NO.

€CCCLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.,
; ARE WE [N DPU-MODE ONLY?

; BR IF YES == CAN'T DO READBACK

; TO CHECK FOR WRITE-PROTECT VIOLATIONS.

: TEST MPE - MEMCRY WRITE PROTECTION (MAIN SEGMENT).

012777

001015

047670
047674
047676
047702
047722
047722
047726
047726
047734
4796 047740
047740
047742
0467744
0467764
4797 047764

105737
001412
012701

047770
4804 047774
0467774

133240

#ECMPE2,aDP(
PC,WAITF

MOV
HRDERR

BEQ

025402

4798
4799
4800
4801
4802 047766
4803 047770

11%:

020102
001410

004737

047664

JSR
TST8
8EQ

047524

047636
4786 047642
047642
4787 047650
047650
4788 047656
047656
4789
4790
4791
4792
4793
4794
4795

MOV

133306

052270
027454
026107

012777
004737

BGNSEG
INITDP
JSR

PC,DPINIT

INTSET

ERR

133164

WTDSRA
MOV

012737

177604

026106

MOV

012777
004737

052302
027454
026107

133146

; PRIME FLAG, EXPECT ERR
JOKERR, INTMASK
7400!
JOKCKIN!
#4017
FORCE MPE BY TRYING DMA READBA(K
3
DPSTART #ECMPE
START THE DPU.
#ECMPE3,aDP(
MOV
WAIT FOR DISPLAY STOP.
PC,WAITF
JSR
DID WE GET THE EXPECTED ERROR INTERRUPT?
TSTB
INTFLAG
BR IF YES.
12%
BEQ

047664

012701

114003

012777
017702

000003
133074

; GO DO SOFT INIT, CHECK THE STATE.

; SET MAIN-SEG WRITE PROTECT
31719, MPM
#3]1T98~C17!SETMPM,aDSR

12%:

133160

MOV
HRDERR

#.-12,R1
NTO,INTERR

NO. SO GET PC FOR ERROR REPORT,
. AND REPORT THE PROBLEM.

MoV
RDDSRA
MOV
MOV

HMPE ,R1

SET EXPECTED ERROR CODE ‘MPE'’

#SELCSR,aDSR

READ (SR INTO R2 .

CMP
8EQ
HRDERR

R1,R2

CSR.RZ

aDSR,R2

IFERROR ECE,CSRER

020102
001410
66%:

66%
ECE,CSRER,

0K?

YES.
NO.

ENDSEG

; TEST MPE - MEMORY WRITE PROTECTION (AUXILIARY SEGMENT).

004737

025402

012777

001017

BGNSEG
INITDP
JSR
133032

WTDSRA
MoV

PC,DPINIT

; GO DO SOFT INIT, CHECK THE STATE.

; SET AUX-SEG WRITE PROTECT
#B1T9,XPM
#B1T9L*C17!SETXPM,aDSR

® <

SEQ 0128

047516
047524
6769 047570
4770 04755
4771 047536
6772 047542
4773 047562
G774 047562
6775 047566
047566
047574
4776 047600
047600
047602
047604
0476264
4777 047624
4778 047626
4779 047632

ERROR CODES

L. 10

PAGE 71-1

e TEST 15

29-JAN-81 17:22

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

ERROR CODES

Tew

4805 050002

050002
4806 050010
050010
050016
4807 050022

4808
4809
4810
4811
4812

4813
4814

29-JAN-B1 17:22
INTSET

M 10

PAGE 71-2

SEQ 0129

ERR

; PRIME FLAG, EXPECT ERR

012737

177604

026106

MOV

#%0177400' IOKCKIN! TOKERR, INTMASK

012777
004737
105737
001412
012701

052316
027454
026107

133014

MOV
JSR
TST8
BEQ
MOV

#ECMPEL ,aDPC
PC.uAITF

HRDERR

¥.-12,R1
NTO, INTERR

; NO. SO GET PC FOR ERROR REPORT,
: ... AND REPORT THE PROBLEM.

MOV

f?25§31

: SET EXPECTED ERROR CODE 'MPE’’

MOV
MOV

#SELCSR,aDSR

; READ CSR INTO R2 .

DPSTART #ECMPES

050016

012701

114003

012777
017702

000003
132742

13¢%:

RDDSRA

132746

INTFLAG

BEQ
67%:

050116

4815 C50116

HRDERR

: DID WE GET THE EXPECTED ERROR INTERRUPT?
; BR IF YES.

13%

aDSR,R2

IFERROR ECE,CSRER
R1,R2
(MP

020102
001410

; FORCE MPE BY TRYING DMA READBACK
; START THE DPU.
; WAIT FOR DISPLAY STOP.

; 0K?

: YES.
s NO.

67%
ECE,TSRER,

ENDSEG

4816

4817
4818 050120
4819

3%:

; TEST RSVDOP - RESERVED OPCODE (ILLEGAL INSTRUCTION

4820

4821 050120
4822 050122

050122
4823 050126
050126
4826 050134
050134
050142
4825 050146
4826 050152
4827 050154
4828 050160
4829 050200
4830 050200
4831 050204
050204
050212

4832 050216
050216

050220
050222
050242
4833 050242
4835
4836
4837 050244
4,838 050246

050246
4,839 050252
4840 050260
050260

BGNSEG
INITDP

JSR

004737

025402

012737

177604

026106

012777
004737

052332
027454

132670

012701

050142

105737
001412

124003

012777
017702

000003

132616

132622

177604

HRDERR

#.-12,R1
NTO, INTERR

: NO. SO GET PC FOR ERROR REPORT,
: ... AND REPORT THE PROBLEM.

MOV

#RSVDOP
,R1

MOV

#SELCSR,aDSR

BEQ
HRDERR

68%
ECE.CSRER,

026106

CSR.R2

; BR IF

VYES.

: READ CSR INTO RZ .
;

0K?

s YES.
; NO.

; <<LCLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

ENDSEG

TEST RSVDOP -~ ODD Y COORDINATE (BIT O SET)
BGNSEG
INITDP

132554

148

aDSR,R2
MOV
IFERROR ECE,CSRER
R1,R2
cMP

;

012737

MOV

RDDSRA

68%:

025402
000113

: DID WE GET THE EXPECTED ERROR INTERRUPT?

BEQ

14%:

EXPECT ERR

INTFLAG

TSTR

020102
001410

004737
012777

; GO DO SOFT INIT, CHECK THE STATE.

EgéDPINIT

INTSET
: PRIME FLAG,
#*0177400' JOKCKIN' JOKERR, INTMASK
MOV
:START DPU ON ILLEGAL INSTRUCTION.
DPSTART #ECRSVT
#ECRSV1,aDPC
; START THE DPU.
MOV
; WAIT FOR DISPLAY STOP.
PC,WAITF
JSR

026107

012701

;€< LLLLLLLLLLLLLLLLLLLL<< BEGIN SEGMENT.

;€<

CCLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

JSR
MOV

; GO DO SOFT INIT, CHECK THE STATE.
PC,DPINIT
;ENABLE RSVD-0OP ERROR CHECKING.
HENE CHK .WRTCSR,aDSR

MoV

#20177400. JOKCKIN! JOKERR, INTMASK

INTSET

ERR

; PRIME FLAG, EXPECT ERR

vsv1}€§$1}s-- GRAPHIC SYS. DIAG MACRO M1113

eve TEST 15

ERROR CODES

4841 050266
050266
050274

012777 (52336
004737 027454
4842 050300 105737 026107
(843 050304

001412

4844 050306 012701
4845 050312

4,846 050332

4847 050332
4848 050336

050336
050344

4849 050350

050350
050352
050354

132536

T1ST8

BEQ

050274

012701

124103

012777

000003

017702

DPSTART #E(SVZ
#ECRSVZ2,aDPC
MOV
PC,WAITF
JSR

132464

15%:

69%:

050374

4%20 050374
4351

: DID WE GET THE EXPECTED ERROR INTERRUPT?
: BR IF YES.

15%

: NO. SO GET PC FOR ERROR REPORT,

#.-12.R1

MOV
RDDSRA

,R1
#RSVDOP!ENECHK
(SR,R?2

MOV

aDSR,R2

HRDERR

NTO,INTERR

#SELCSR,alr <R

IFERROR ECE,CSRER

020102
001410

:START DPU ON ODD Y VALUE.
: START THE DPU.
: WAIT FOR DISPLAY STOP.

MOV

132470

INTFLAG

SEQ 0130

CMP
8EQ
HRDERR

R1,R2
65%
ECE,CSRER,

. AND REPORT THE PROBLEM.

;

: READ CSKk INTO RC .
; 0K?
; YES.
. NO.

;€< CLLLLLLLLLLLLLLLLLLLL END SEGMENT.

ENDSEG

: TEST RSVDOP - ODD X VALUE (BIT O SET)

232%
4855 050400

050400
4856 050404

4857 050412

050412

4858 050420
050420
050426

4859 050432

4860 050436

132422

JSR
MOV

012737

177604

026106

MOV

: GO DO SOFT INIT, CHECK THE STATE.
PC,DPINIT
:ENABLE RSVD-OP ERROR CHECKING.
#ENECHK 'WRTCSR,aDSR
ERR
; PRIME FLAG, EXPECT ERR
#20177400! JOKCKIN! IOKERR, INTMASK

012777
004737

052346
027454

132404

TSTR

INTFLAG

105737

001412

INTSET

DPSTART HECRSV3
#ECRSV3,aDPC
MOV
PC,WAITF
JSR

0261G7

012701

050426

4864 050464
4865 050470

012701

124103

050476
4,866 050502
050502
050504
050506
050526

012777
017702

000003

050470

INITDP

004737 025402
012777 000113

4861 050440
4862 050444
4863 050464

5 €LCCLLCLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

BGNSEG

4854 050376

132332

BEQ

16%:

020102
001410
70%:

zggg 050526

: DID WE GET THE EXPECTED ERROR INTERRUPT?

;. BR IF YES.

; NO. SO GET PC FOR ERROR REPORT,
: ... AND REPORT THE PROBLEM.

MOV
HRDERR

#.-12,R1
NTO, INTERR

MOV
RDDSRA

,R1
#RSVDOP'ENECHK
(SR,R2

MOV

132336

16%

:START DPU ON ODD X VALUE.
; START THE DPU.
: WAIT FOR DISPLAY STOP,

#SELCSR,aDSR

aDSR,R2
MOV
IFERROR ECE,CSRER
R1.R2
cMpP
70%
BEQ
HRDERR ECE,CSRER,

; READ CSR INTO R2 .

. 0K?
: YES.
. NO.

; €CCCLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

ENDSEG

: TEST SEQERR - SEQUENCE ERROR (DJMS FROM SUBROUTINE)

22?3
4872 050532

050532

4,873 050536

050536

4874 050544

050544
050552

4875 050556

5 <CLLLCLLLLLLLLLLLLLLLLLLLKL< BEGIN SEGMENT.

BGNSEG

4(871 050530

004737

025402

012737

177604

012777
004737

052356
027454

105737

026107

INITDP

: GO DO SOFT INIT, CHECK THE STATE.

JSR

PC,DPINIT

026106

MOV

#20177400! JOKCKIN! IOKERR, INTMASK

132260

MOV
JSR

#ECSEQT,aDPC
PC,WAITF

INTSET

ERR

DPSTART #ECSEQ1

TSR

INTFLAG

: START THE DPU.
: WAIT FOR DISPLAY STOP,

: PRIME FLAG, EXPECT ERR

: DID WE GET THE EXPECTED ERROR INTERRUPT?

N 10

VSV11/7VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 71=-3

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

eee TEST 15

4876 050562

ERROR CODES
(001472

4877 050564 012701
(878 050570

(50552

0127017

120003

4879 050610

4(88C 050610
4881 050614

050614 012777 000003

050622
4882 050626

050626
050630
050632

017702

132206

17%:

71%:

012777
004737

052374
027454

012701
017702

18%:

120003

050740 012777 000003
050752
050754
050756

: READ (SR INTO R2 .

CMP
BEQ
HRDERR

R1,R2
71%
ECE,(SRER,

; 0K?
. YES.
. NO.

(SR,R?

; €CLLLLLLLLLLLLLLLLLLLLLLC< END SEGMENT.

ENDSEG

132062

#ECSEQZ,aDPC
PC,WAITF

BEQ

18%

020102
001410
72%:

4%38 050776

INTFLAG

#.-12,R1
MOV
HRDERR NTO, INTERR
MOV

#SEQERR,R1

MOV

#SELCSR,aDSR

RDDSRA

132066

050776

; <CECLLLLCCLLLLLLLLLLLLLLLL<< BEGIN SEGMENT.
: GO DO SOFT INIT, CHECK THZ STATE.
PC,DPINIT

MOV
JSR

TSTR

4894 050714

050746
4898 050752

#SELCSR,aDSKk

DPSTART #E(SEQZ

132134

4891 050702 105737 026107
4,892 050706 001412
4893 050710 012701 (050676
489/ 050740

MOV

: NO. SO GET PC FOR ERROR REPORT,
. AND REPORT THE PROBLEM.
:

JSR
INTSET ERR
#20177400!' IOKCKIN. IOKERR, INTMASK
MOV

C50656 004737 025402
4889 050662
050662 012737 177604 026106

4,895 050734

#SEQERR,R1

iNITDP

(888 050656

4896 050734

MOV

BGNSEG

4,887 050654

050670
050676

; BR [F YES.

17%

: TEST SEQERR - SEQUENCE ERROR (CHARACTER DATA IN (HAR. SUBROUT INE)

4884

zggg

4,890 050670

SEQ 0131

BEQ

aDSR,R?2
MOV
IFERROR ECE,CSRER

020102
(01410

4%%3 050652

8 N

PAGE 71-6

#.-12.R1
MOV
HRDERR NTOQ, INTERR
RDDSRA

132212

050652

29-JAN-81 17:22

(SR.R2

aDSR.,R2
MOV
IFERROR ECE,CSRER
R1,R2
(MP
72%
BEQ
HRDERR ECE,CSRER,

: FRIME FLAG, EXPECT ERR

: START THE DPU.
: WAIT FOR DISPLAY STOP.

: DID WE GET THE EXPECTED ERROR INTERRUPT?
: BR IF YES.
: NO. SO GET PC FOR ERROR REPORT,
:

. AND REPORT THE PROBLEM.

: READ CSR INTO R2 .
; 0K?
: YES.
; NO.

; €<CLLLLLLLLLLLLLLLLLLLLLLL END SEGMENT.

ENDSEG

: TEST SEQERR - SEQUENCE ERROR (DJMS iN CHARACTER SUBROUT INE)

4901

238%

JSR

;<KL LLLNLLLLLLLLLLLLLL<L< BEGIN SEGMENT.
: GO DO SOFT INIT, CHECK THE STATE.
PC,DPINIT

051006 012737 177604 026106

MOV

#20177400! IOKCK IN! ICKERR, INTMASK

132010

MOV
JSR

#ECSEQ3,aDPC
PC,WAITF

BEQ

19%

BGNSEG

4904 051000

INITDP

4905 051002

051002 004737 025402

INTSET

4906 051006

4907 051014

051014
051022

4908 051026
4909 051032

4910 051034
4911 051040
4912 051060

012777
004737

052442
027454

DPSTART #E(CSEQ3

TSTR

105737 026107

001412

012701

ERR

051022
19%:

INTFLAG

#.-12.R1
MOV
HRDERR NTO,INTERR

: PRIME FLAG, EXPECT ERR

: START THE DPU.
: WAIT FOR DISPLAY STOP,

: DID WE GET THE EXPECTED ERROR INTERRUPT?
: BR IF YES.
: NO. SO GET PC FOR ERROR REPORT,
;

. AND REPORT THE PROBLEM.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

wee TEST 15

ERROR CODES

4913 051060
4914 051064

012701

051072
4915 051076

017702

MOV
RDDSRA

120003

051064

012777 000003

051076
051100
051102

020102
001410

131736

MOV

131742

73%:

051122

4319 051122

(91
4918

29-JAN-81 17:22

PAGE 71-5

#SEQERR,R1
(SR,RZ

#SELCSR,aDSR

aDSR,R?2
MOV
IFERROR ECE,CSRER
R1,R2
CMP
738
BEQ
HRDERR ECE,CSRER,
ENDSEG

;

SEQ 0132
: READ CSR INTO R2 .
. 0K?
: YES.
; NO.

€€CLCLLLLLLLLLLLLLLLLCLCLC<L<< END

: TEST SEQERR - SEQUENCE ERROR (BIT-MAP-0 IN SUBROUTINE)
5 €<LCCCLLLLLLLLLLLLLLLLLLL<< BEGIN SEGMENT.
3GNSEG

2313
Z

4921 051124

4922 051126

051126 004737

4923 051132

INITDP

025402

JSR

PC,DPINIT

INTSET

ERR

; GO DO SOFT INIT, CHECK THE STATE.

051132 012737 177604

026106

MOV

#201774600' JOKCKIN! IOKERR, INTMASK

052474
027454
026107

131664

MOV
JSR
TSR

#ECSEQSL ,aDPC
PC,WAITF
INTFLAG

MOV
RDDSRA

#SEQERR,R1
(SR,R2

MOV

aDSR,R2

4924 (51140

051140 012777
051146 004737
4925 051152 105737

4926 051156
4927 051160
4928 051164

001412
012701

4930 051204
4931 051210

012701

120003

051216

012777

017702

000003

4929 051204

051210

4932 051222

051222
051224
051226

SEGMENT.

DPSTART WE(CSEQ4

051146

131612

20%:

BEQ
MOV
HRDERR

MOV

131616

20%
#.-12.R1
NTO, INTERR

#SELCSR,aDSR

IFERROR ECE,CSRER

020102
001410
74%:

051246

43%2 051246
4

4935

cMP
BEQ
HRDERR

R1,R2
748
ECE,CSRER,

: PRIME FLAG, EXPECT ERR

: START THE DPU.
: WAIT FOR DISPLAY STOP.
: DID WE GET THE EXPECTED ERROR INTERRUPT?
: BR IF YES.
; NO. SO GET PC FOR ERROR REPORT,
. AND REPORT THE PROBLEM.
M

: READ (SR INTO RZ2 .
. 0K?
: YES.
; NO.

5 €<LLCLLLLLLLLLLLLLLLLLLLLLL END SEGMENT.

ENDSEG

: TEST SEQERR - SEQUENCE ERROR (BIT-MAP-1 IN SUBROUTINE)

23%9
4939 051252

; €<CCLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

BGNSEG

4938 051250

INITDP

004737

025402

051256 012737

177604

026106

MOV

; GO DO SOFT INIT, CHECK THE STATE.
: PRIME FLAG, EXPECT ERR
#20177400. I0KCKIN! IOKERR, INTMASK

052520
027454

131540

MOV
JSR

#ECSEQS,aDPC
PC.,WAITF

051252

4940 051256

4941 051264

051264
051272

4942 051276

4943 051302

012777
004737

105737

001412

012701

051272

4947 051330
4948 051334

012701

120003

012777

000003

051334

INTSET

ERR

: DID WE GET THE EXPECTED ERROR INTERRUPT?

MOV
HRDERR

#.-12.R1
NTO, INTERR

: NO. SO GET PC FOR ERROR REPORT,
: ... AND REPORT THE PROBLEM.

MOV
RDDSRA

#SEQERR,R1
(SR,R?

BEQ

21%:

: START THE DPU.
: WAIT FOR DISPLAY STOP.

INTFLAG

T1STR

131472

PC,DPINIT

DPSTART HECSEQS

026107

4944 051304
4945 051310
4946 051330

JSR

MoV

21%

#SELCSR,aDSR

; BR IF YES.

; READ (SR INTO RC .

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

eee TEST 15

ERROR CODES

051342

017702

051346

020102

4949 051346

051350
051352

131466

29-JAN-81 17:22

D 1

PAGE 71-6

MOV

aDSR,R2

{MP

R1.,R?

IFERROR ECE,(CSRER

0014610
75%:

051372

4920 051372

BEQ
HRDERR

75%
ECE,CSRER,

SEQ 0133
. 0K?

; YES.
;. NO.

; €CLCLLLLLLLLLLLLLLLLLLL<C< END SEGMENT.,

ENDSEG

4951

4952

: TEST SEQERR - SEJUENCE ERROR (DMA READBACK FROM SUBROUT INE)
; €<CLCLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.,
BGNSEG

2322
4955 051374

INITDP

4956 051376

051376 004737 025402
4957 0514602
051602 012737 177604
4958 051410

0514610

012777

4960 051426

001412

051416
4959 (051422

4961 051430
4962 051434
4963 051454

4964 051454
4965 051460

051460

051466

4966 051472

051472
051474
051476

004737
105737

052542

027454
026107

012701

051416

012701

120003

012777

000003

017702

131342

026106

MOV

: GO DO SOFT INIT, CHECK THE STATE.
PC.DPINIT
ERR
: PRIME FLAG, EXPECT ERR
#20177400' IOKCKIN! IOKERR, INTMASK

131414

MOV

#ECSEQ6,aDPC

JSR

020102
001410
76%:

4L969

051522

004737

025402

051526

012737

177604

051534
051542
4976 051546

012777
004737
105737

052572
027454
026107

4978 051554
4979 051560

4980 051600

001412

012701

120003

051604

012777

000003

051616

020102

051612
4983 051616

: NO. SO GET PC FOk ERROR REPORT,
: ... AND REPORT THE PROBLEM.

MOV
RDDSRA

#SEQERR,R1
(SR,RZ2

MoV

aDSR,R2

22%

#SELCSR,aDSR

CMP
BEQ
HRDERR

R1,R2
76%
ECE.,CSRER,

; BR IF YES.

; READ (SR INTO R? .
. 0K?
: YES.
; NO.

;<KL LLLLLLLLLLLLELLLLLL<<< END SEGMENT,

ENDSEG

017702

INITDP

131216

: GO DO SOFT INIT, CHECK THE STATE.

JSR

PC,DPINITY

026106

MOV

#*0177400' IOKCKIN. IOKERR, INTMASK

131270

MOV
JSR
TSTR

RECSEQ?7,aDPC
PC,WAITF
INTFLAG

: START THE DPU.
: WAIT FOR DISPLAY STOP,
: DID WE GET THE EXPECTED ERROR INTERRUPT?

MOV
HRDERR

#.-12,R1
NTO, INTERR

: NO. SO GET PC FOR ERROR REPORT,
. AND REPORT THE PROBLEM.

MOV
RDDSRA

#SEQERR,R1
(SR.,R?

INTSET

BEQ
23%:

131222

ERR

DPSTART WECSEQ?7

051542

012701

4981 051600
4982 051604

#.-12.,R1
NTO,INTERR

; TEST SEQERR - SEQUENCE ERROR (ILLEGAL DMA READBACK RESTART)
; €CCLLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.
BGNSEG

4972 051520

4977 051552

MOV
HRDERR

IFERROR ECE,CSRER

23;?

4975 051534

: WAIT FOR DISPLAY STOP.
: DID WE GET THE EXPECTED ERROR INTERRUPT?

MOV

131346

: START THE DPU.

PC,WAITF
INTFLAG

JSR
TSTB

22%:

051516

4974 051526

DPSTART #ECSEQ6

BEQ

zggg 051516

4973 051522

INTSET

MOV

23%

#SELCSR,aDSR

aDSR,RZ
MOV
JFERROR ECE,CSKER
R1,R2
CMP

: BR IF YES.

: READ (SR INTO RC .
; 0K?

: PRIME FLAG, EXPECT ERR

vee

TESY

051620
051622

ERROR (ODES

001470

BEQ

274

051642

HRDERR

)

4984 051642
4985
4986

TEST

4987

4988 051644
4989 051646

051646
4990 051652

051652
051660
051660
051666
4992 051672
4993 051676
4994 051700
4991

4995 051704

4997
4998

4999

5000

051724
051724
051730
051730
051736
051742
051742
051744
051746
051766
051766

500¢
5003
5004 051770
5005 051772

004737

025402

012737

177604

026106

012777
004737

052620
027454
026107

131144

105737
001412
012701
012701

012777
017702

000003

131072

004737

5007 052002
5008 052010
5009 052014
5010 052020
052020
052026
5011 052032
052032
052034
05203%6
052056
5012 052056
5013
5014
5015
5016 052060
5017 052062
052062
5018 052066
5019 052074

012777
004737
012701

105037

012777
017702

MoV

RDDSRA
MOV
MOV
IFERROR
HRDERR

131026

000003

131006

131002

;<KL

LLLLLLCLLLLCLLLLLLLLLLLL< BEGIN SEGMENT,

: GO DO SOFT INIT,

ERR

WECSTO
#ECSTO,aDPC
PC,WAITF
INTFLAG
24%
#.-12.R1
NTO,INTERR

.
:
:

CHECK THE STATE.

. PRIME FLAG, EXPECT ERR

START THE DPU.
WAIT FOR DISPLAY STOP.
DID WE GET THE EXPECTED ERROR INTERRUPT?

. BR IF YES.
; NO. SO GET PC FOR ERROR REPORT,
;

AND REPORT

THE

PROBLEM.

#SYNCTO,R

(SR,RZ2
#SELCSR,aDSR
aDSR,R2
ECE,(SRER

READ CSR INTO R2 .

R1,R2

. 0OK?

ECE,CSRER,

78%

;

YES.

NO.

; <<KLLLLLLLLLLLLLLLCLLLKLLLLL END SEGMENT,

ENDSEG

TEST DRDYTO -~ DATA READY TIMEOUT ON CURSOR READBA(K
BGNSEG
INITDP

025402
026106
040000
027454
150003

TIMEOUT FROM IMAGE MEMORY.

#*0177400' JOKCKIN! [OKERR, INTMASK

C(MP

YES.

NO.

MOV

BEQ

288

PC,DPINIT

HRDERR

131076

JSR

DPSTART
MOV
JSR
1STB
BEQ
MOV

140003

SEQ 0134

7 <ELLLLLLLLLLLLLLLLLLLC<<<<e END SEGMENT,

SYNCTO = SYNC

INTSET

020102
001410

051772

5006 051776

051666

77%

ECE.,CSRER,

ENDSEG
BGNSEG
IN]ITDP

PAGE 71~/

29-JAN-81 17:22

VSV11/vS1) == GRAPHIC SYS. DIAG MACRO M11:3

JSR

PC.DPINIT

JSR
MOV
RDDSRA
MOV
MOov

PC,WAITF
#DRDYTO,R1
(SR.R2
#SELCSR,aDSR
aDSR,R?

CLRB
MOV

INTMASK
#GTJSSW,aDXR

IFERROR ECE,CSRER

020102
001410

GO DO SOFT INIT, CHECK THE STATE.

: SAY READ PENDING COORDS (BUT THERE ARE NONE)
: WAIT FOR READY
: SET EXPECTED ERROR CODE ‘DRDYTQO'’ INTO R1
: GET THE CSR
: READ CSR INTO R? .

cMP

R1.,R2

; OK?

HRDERR

ECE,CSRER,

;

8EQ
79%:

;

79%

;

YES.

NO.

ENDSEG

: TEST DAVTO - DATA AVAILABLE TIMEOUT PIXEL READBACK.

004737
012777
004737

025402
040000
027454

BG?SEG
INITDP

130744

JSR

MOV
JSR

€K

CLLLLLLLLLLLLLLLLLLL<K< BEGIN SEGMENT
.,

PC,DPINIT

;2 GO DO SOFT INIT, CHECK THE STATE.

#40000,aDYR
PC,WAITF

; PROTECT ALL MEMORYS.
;

ySV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
eee TEST 15

5020 052100
5021 052106
5022 052112
5023 052120
5024 052124
5025 052132
5026 052136

5027 052144
5028 052150
5029 052152
5030 052172
5031 052176
052176
052204
5032 052210
052210
052212
052214

ERROR CODES

012777
004737
012777
004737
012777
004737
012777

0406400
(27454
041000
027454
0641400
027454
000000

012701

144003

012777
017702

000003
130624

004737
103410

027454

MOV
JSR
MOV
JSR
MOV
JSR
MOV

130732
130720
130706
130672
2%:

130630

020102
001410
80%:

052234
5033 (52234
5034

5035 052236
052236
052242
052244

004737
103401
000402

027646

052246

000137

047342

052252
5036 052256

004737

030072

5037
5038

5042
5043

160001
173000
164000
162000

000001

5058 052316
5059 052320
288? 052330

162000
000001
173000

5062 052332

161777

5063 052334

* BRANCH IF UNSUCCESSFUL.

* PIXEL READBACK HUNG UP.

. READ (SR INTO R2 .
;

0K?

;

YES.

; NO.

€CCLLLLLLLLLLLLLLLLLLL<LKL< END SEGMENT.

COMEND
JSR
BCS
8R

1%
PC,LOOP
81%
82%

81%:

JMP

82%:

JSR
EXIT

PC,TSTEND
: PRINT ERROR SUMMARY, IF REQ'D.
: EXIT THIS TEST >>3>33>335333D333>>>>>>>>>
TST

;

REPEAT

'TIL LOOPER EXPIRES.

RETURN FROM INTERUPT,

052277

173000

ECMPE1: DNOP
STOPN

: MPE - MEMORY PROTE(CTION ERROR.

ECMPE2: DJMS,1%.AUXSEG
STOPN
DNOP
1%:

; CALL AUXILIARY SEGMENT

ECMPE3: IMREAD

;TRY DMA READBA(CK

STOPN

173000

5055 052304

2829 052314

ENDSEG

TRY PIXEL READ.

: DISPLAY FILES.

S0/ 052270
50 . 052274
507" 052276
$054 052302

JSR
B(S
PR3H
DFERR
#DAVTO,R1
MOV
RDDSRA (SR,R2
#SELCSR,aDSR
MOV
aDSR,RZ2
MOV
IFERROR ECE,CSRER
R1,R2
(Mp
80$
BEQ
HRDERR ECE.CSRER,

SEQ 0135

164000
173000

#40400,30YR
PC,WAITF
#41000,aDYR
PC,WAITF
#41400,3DYR
PC,WA]TF
#0,aDXR
PC,WAITF
2%

ECISV.: RT]

000002

5046 052264
2825 052266

gggg 052300

5044

5045

PAGE 71-8

: INTERUPT SERVICE FOR THIS TEST.

2828

5041 052262

29-JAN-81 17:22

000001
000001

1,1.,1,160000

STOPN

;

. ON MAIN SEGMENT

;SHOULD GET MPE ERROR

;...TO WRITE PROTECTED MAIN SEG.

ECMPE4: IMREAD
1,1,1.,160000. AUXSEG
STOPN

;...T0O WRITE-PROTECTED AUX SEG.

ECRSV1: 161777

; RSVDOP - RESERVED OPCODE, OPERATION.

STOPN

; TRY DMA READBA(K

...

JSy11/VS11 == GRAPHMIC SYS. DIAG MACRO M1113
vee TEST 15

5064
5065 052336

5066 05234«

5067
5068 052346
5069 052354
5070
5071 052356
5072 052362
5073 052364
5074 052370
5075 052372
5076

5077 052374
5078 052402

5079 052606
5080 052410
5081 052412
5082 052414
5083 052416

5084 052436
5085 052440
5086

5087 052442
5088 052450
5089 052654
5090 052456
5091 052460
5092 0526462
5093 052466
5094 052470
5095 052472

5097 052474
5098 052476
5099 052504
5100 052510
5101 052512
5162 052514
03 052516

052520
0o 052526
07 052532
08 052534
09 052536
}? 052540
12
13
14
15
16
17
18

052542
052550
052554
052556
052560
052562
052564

19 052566

20 052570

ERROR CODES

29-JAN-81 17:22

PAGE 71-9

SEQ 0136

114000
173000

C00000

000001

ECRSV?Z: APNT 0,1

; RSVDOP - ODD Y VALUE.

114000
173000

C00001

060000

ECRSVS: APNT,1,0

; RSVDOP -~ ODD X VALUE.

160001
173000
160001
173000
173000

052364

ECSEQT: DJMS,1$

;

114000
152000
103774
000000
173000
000000

000C00
052414

000000
165000

STOPN

1%:

052370

2%:
000000

000000

000000
052462

000000

2%:

103774

173000
160001
173000
173000
173000
170140
1140C0

160001

173000

052512

000000

134000
052514
173000
114000

160001
173000
136000

000000

114000
160001

173000
162000

000001
000001
000001
052614

173000

000000

052556

000000

SEQERR.

gHAR!ALL

STOPN

; SEQERR.

1%:

BMO4
2%

STOPN
STOPN
STOPN

STOPN

ECSEQS: APNT,0,0
DJMS, 1%

2%:

173000

0,0,0.0.0,0.0.0

;DATA AS 1ST WORD =-- STILL IN (HAR MODE.

CLRMEM
APNT 0,0
DIMS,1$

1%:

052536

STOPN
0

ECSEQL:

2%:

052534

SEQERR.

;DJMS [N CHAR SUBROUTINE.

000000

DJMS,3$

2%:

052470

;DJMS FROM SUBROUTINE.

SHAR!ALL

ECSEQ3: APNT,0,0
SET(B,Z2$
1%:

000000

STOPN
STOPN

SEQERR - SEQUENCE ERROR.

DPOP
STOPN

173000

114000
152000

DJMS, 2%

ECSEQ2: APNT,0,0
SET(B,Z2%
1%:

0C0000

STOPN

BM14
2%

STOPN

ECSEQG: APNT,0,0
. 1%
DJMS
1%:

; SEQERR.

STOPN

; SEQERR.

;DMA READBA(CK FROM SUBROUTINE.

see TESTY 15
9121

§122 052572

ERROR CODES
114000

§123 052600 162001
§124 052602

052614

5127 052610

16210°

173000

5131 052620
5132 052622
5133 052624
5134 052626
5135 052630

176000
176400
177000
1774600
114000

g}%g 052636

ECSEQ7: APNT,0,0

173000

M 11

PAGE 71-10

SEQ 0137
:ILLEGAL DMA READBA(K RESTART,

IMREAD!1

€CSQ78
STOPN

173000

5128 052612

2;%8 052614

000000

000001

5125 052604

5126 052606

(00000

29-JAN-81 17:22

IMREAD ! 101

STOPN

ECSG7R: .BLKW
ECSTO:
040000

000000

PROTEC!'CHO
PROTEC. CH}
PROTEC!'(H2
PROTEC!CH3
APNT,1.0,0
STOPN

END.TEST

S13R 052640

"""‘t"t'tfit'..Qtfit.""t't."'t'..."t"""...".'."'..t."t"""'
:'

END TEST 15

"".l'.'t.t.'..'tt.t.""""t"fii.‘.'fi'..tt...'t'ti""t"t"'.'..'."'

/Sv11/vS11 == GRAPHMIC SYS. DIAG MACRO M1113

17:22 PAGE ;2
AN-81
29M1113
MACRO
DIAG
SYS.
GRAPMIC
==
VSv11/y511
SS RELOCATE
ADDRE
eee TEST 16
5140

SEQ 0138

BEGIN TEST 16

ADDRESS RELOCATE

S0 B,

..Q"...'..'.""".".."....."'.Q.'.....".".."..".Q".Q.."'.Q.'

..".".."Q"..'."".""...'Q.'."'."...'.'.'..Q.'."Q""".'.Q"'

;

(ITERATION COUNT = 20.)

5142

: TEST ALL COMBINATIONS OF DPC AND RELOCATE FACTOR

5145

: WRAP AROUND IN THE FINAL DPC.

. WHERE DPC ¢ REL = RELT1, A LOCATION W]THIN THE PROGRAM
: TEST RELIES OF THE FACT THAT (DPC + REL) > 18 BITS Wil

5'<3
51464

: REPEAT 20 TIMES AFTER QUICK PASS.

2}‘3

5168 052714

149 52726

(12737

027702
026074
053140

5151 052740

017703

130070

052714
052720

150 052732

006737
004737

012777

000000

RELTIST: COMBEG

052703

172000

5155 052754

012704

053166

5156 052760
2;27 052764

012702
012705

053170
000014

2159 052770
160

5161 052772

010577

130074

565 053012

5167 053020

5168 053022
5169 053C42

001003

027703

0014610

004737

2;;2 053054

0014614

5175 053056
5176 053062

062705
162702

$177 053066

5178 053072
5179 053076
5180 053G76
$181 053100
g;gg 053104

€184 053106

053106
083*12

1627064

10033¢
005705
10073
(S2705
000731
004737
103729

@DSR,R3

#STOP.R3

;... AND STATUS.

5%:

MOV

#REL T ,RG

:SET INITIAL DPC

1¢:

BGNSEG

BIS
MOV
MOV

JSR

PC,wWAITF

&DP( ,R2

(MP

aDSR,R3

:...AND DSR = STOP+PIXEL DATA.

HRDERR
JSR

RELF ,P(SERR
PC,RELEAS

;RELOCATE FAILURE.
JIN CASE HE "HUNG" SOMEWHERE.

g, 2

RS ,#SETMRR . 177760
43

;ALL DONE [F SO.

ADD
SUB

MmIT4L,RS
#°00,R2

:BUMP RELOCATION BY 1 (32 WORDS)
:REDUCE EXPECTED..

BPL
1S7
BMm]
8]S
B8R

1$
RS
18
#140000,RS
18

;CONTIMJE *TIL WE UNDERFLOW
:SEE IF ALREADY FORCED HIGH BITS
JJUST CONTINUE IF YES
FOR(E HIGH RELOCATION BITS
.. THEN CONT INUE

: REPEAT °'TIL LOOPER EXPIRES.

BEQ

ENDSEG
SUR

1460000
“%:

SET 1ST (NEXT) REL VALUE.

_XCT == RELOCATE TO "RELT1"
:CHECK DPC = R4 (INITIAL) ¢ 2

BEQ

000100

:SET INITIAL EXPECTED DPC
SET INITIAL RELOCATION (0)

; CCCCCLLCLLLLLLCLLLLLLLCLCLC<< BEGIN SEGMENT.

RS ,@DRR

BNE

28:
4 ¥

NRELT1+2,R2
#SETMRR .0 ,RS

MOV

000020
000100

027646

: SET ERROR EXTENSION ADDRESS.

#-C1777.R3

130014

g:;? 053046 020527 177774

$172 053050

lSELDSR aDSR

#2038. EXTA

: TITLE.
: DO SOFT INIT.

BIC

130036

026756

MOV

5162 052776 010477 130030
€163 053002 004737 027454
5164 053006 027702 130020
5166 253016

PC,TSTGO
P( ,DPRESET

MOV

022300

§162 052744 042703 176000
2122 052750

JSR
JSR

LOOPTO

JSR
8CS

R4, aDP(
2%

: Qe CLLLLLLLLLLLLLLLLLCLC<< END SEGMENT.

#10C R4

P(.LO0P
5%

:MAX RELOCATION DONE?

AND INITIAL DPC 8y 32 WORDS)

5185 05 11¢ 012777 000016

1277°2

87 0S¥

S;g 058%13%

0046737

030072

msunf RR IS O

JSR

PC,TSTEND

2 EXIT THIS TEST >>3333333>33>3>>>>5>>>>>>>

ExiT

#SELDSR, A0SR
153

S...AND DSR IS SELECTED

: ON ERROR, SHOW RELOCATE PARAMETERS.

smi 053140

508:

5196 053166
$197 05%'70
S198 053172

173000
173000

PRINTX #RELFX.RG,RS

RTS

; EXTENSION SHOWS RELOC FACTORS.

:DISPLAY FILE FOR RELOCATE TEST

RELTY:

STOPN
STOPN
END.TEST

'...."...'....'.Q.'Q."'........'.Q.".......'.....'......'...'.'.....
T

5195

000207

g;g‘ 053164

#SETMRR 0,aDSR

g;g(’)
r—
o
map—
-

L o)}

MOV

2 1%0 012777 (00000 127704

SEQ 0139

END TEST 16

.'.'....'.."...Q.'."'""."..".'.'..'."'......""Q'.....'Q.."..'

17:22 PAGE ';2
AN-81
2GM11°3
MACRO
DIAG
SVS.
GRAPWIC
o=
Se11/7vST1
SS NELOCATE
ADDRE
eee TESY 16

VSV11/VSi1 == GRAPMIC SYS. DIAG MACRO M1113

eee TEST 17

(HARACTERS

5200

29-JAN-81 17:22

K 11

PAGE 73

SEQ 0140

:"".'..'t'.""i""'"""Qttfi.'.'.ttt.ltl!ttt't't'ttl".'.ttttltt'.'
* &

BEGIN TEST 17

(HARA(TERS

.'""..'Q'Q'tfi"fi'tt't'.t"Q'tlttt'tt'tttt't.tt.t't"tit.t"tfit.""it"
.

;

(ITERATION COUNT = 20.)

: USE SETCB, CHAR, AND DPOP AS A SUBROUTINE CALL AND RE TURN.
: USE ALL ASCII CODES (HI AND LO BYTES) ALTERING ThE BASE
: ADDRESS SUCH THAT EA(CH CHAR/BASE (OMBINATION rIELDS THF

5202
5203
5204

: SAME SUBROUTINE ADDRESS.

5205

5208

; VERIFY THE DPC AT EACH SUBROUTINE ENTRY AND AGAIN AFTER
: FINAL DPOP.
: DO THE TEST FOR BOTH MAIN AND AUXILIARY SEGMENT SPECIFIED IN (-BASE.

5211
5212

: NOTE THAT AN ERROR WHERE (HAR CODE = -1 IMPLIES THAT
: CHAR MODE DIDN'T TERMINATE WITH THE FINAL DPOP.

5215

: ALSO., ANY ERROR IMPLIES THAT WE'VE LOST CONTROL AND

5206

5207

: REPEAT 20 TIMES AFTER A QUICK PASS.

2599

» IN EVERY OTHER CASE, EXP DPC - SET(B + 2((C) + 4.

2512

; CAN'T CONTINUE.

gg}g
g%%g

: CHAR ARRAY SIZE = 67. WORDS (OPCODE + 128 CHAR + DJMP,RFTURN).

5220 053240

522

053240
053244

004737
004737

5222 053250 012737 053754
5223 053256 012737 053702
5224 053264 013701 003240
5225 053270 010137 053750
5226 053274 005002
5227 053276
5228 053302

012721
110221

5229 053304

005202

5232 053314

012721

5230 053306
5231 053312

020227
001373

CHRTST: COMBEG

027702
026074

(53732
0,2.00

100000

6%:

JSR
JSR

PC,TSTGO
PC,DPRESET

; TITLE.
; DO SOFT INIT.

MOV
(0}
MOV
MOV
CLR

#(CT.SUB, CHSEG
#208 EXTA
FREE ,R1
R1,CT.ASC
R2

:GET INITIAL BASE ADDRESS, MAIN SEGMENT.
: SET ERROR EXTENSION ADDRESS.
: BUFFER ADDRESS => R1.
: SET 'DJMP FREE'' CODE.
:1ST CHAR (CODE => RZ

MOV
MOVB
INC

CMP
BNE

000200

160000

#CHAR, (R1)+
R2,(R1)+
R2

R2,#128.
6%

MoV

#DIUMP, (R1) +

#CT.RET,(R1)+

;SET CHAR OPCODE...
:...AND 128 CHARACTERS...
:...AND THE RETURN LINK.

gggz 053320 012721

053752

MOV

017703
042703

127504
176000

MOV
BlIC

aDSR,R3
,R3
#°C777

BGNSEG
MOV
MOV

; €CLCLCLLLLLLLLLLLLLLLLLLLL<< BEGIN SEGMENT.
CHSEG,CT.ASC-4 ;INIT INITIAL BASE ADDRESS.
:INIT BASE ADDRESS IN (HAR SUBTRN.
CHSEG,CT.BAS

5235 053324
5236 053330

gsgg 053334

052703

5239 053340
5240 053342
5241 053350

013737
013737

053732
053732

5244 053360
5245 053364
5246 053370

013702
042702
052702

053732
177776
053760

ggz% 053356

005001

BIS

172000

053744
053762

5%:

#STOP,R3

:SET EXP DSR FOR ERROR.

CLR

:R1 = CURRENT CHAR.

MOV
BIC
8IS

CHSEG,R2
#*CAUXSEG,R2
#(T.SUB+4,R2

:GET SEGMENT SELECTOR
:...FOR DPC READBACK
:...AND SET EXPECTED DPC.

eee

TEST

CHARACTERS

5247 053374
5248 053402
5249 053404
5250 053412
5251 053416
5052 053422
5253 053424
5254 053444
5255 053450
5256 053452
5257 053454
5258 053460
5259 053462
5260 053466
5261 053470
5262 053474
5263 053500
5264 053504
5265 053512
5266 053516
5267 053524
5268 053530
5269 053536
5270 053542

012777
000403
012777
004737
027702

053734

127430

000001
027454

127420

013746
005701
100003
062716
000405
062716
060116
042716
012637
004737
012737
004737
012737
004737
013737
004737

003240

053544
053546
053550
053556

005701

5272
5273
5274
5275

5276 053560
5277 053564

5278 053566
5279 053572
5280 053576

5282 053600
5283 053602
5284 053610
5285 053612
5286 053620
5287 053622
5288 053630
053630
053634
5289 053636
5290 053642
5291 053644
5292 053650
053650
053656
5293 053662
5294 053666
5295 053672
5296 053672
5297 053676
5299

001410

100414

162737
005201

020127
001307
012701
012702
000702
032737

127410

2%:

15%:

000004

000001
023056
022360
100000

022410
000003

022440
053762
022624

000002

16%:

023056

MOV

#1,aDP(
PC,WAITF

JSR
mMp
BEQ
HRDERR

MOV

TST
8PL

BR
ADD
ADD
BIC
MOV
JSR
MOV
JSR
MOV

JSR

023056

;JSTART, XCT 1S7 (CHAR.

;SKIP OVER RESUME
JRESUME, XCI NEXT (HAR.

SgPC,RZ

CHRF ,P(SERR

FREE,=-(SP)
R1
15%
#203, (SP)

000001

053732

042737

000001

053732

004737

027646

005737
001013
004737

002502

012777
004737
004737
004737

053766
027454
027514
027514

004737

030072

38:

31%:

adal

16%

J...THEN GO CHECK IT.

adad|

R1, (SP)
#1.,(SP)
(SP) +,GDDAT
PC,PCSCHK
#CHAR,GDDAT
PC,FLGCHK
#SELCSR,GDDAT
PC,CSRCHK

;

#4,(SP)

40%:

.SAY PCSAVE IS EMPTY, WITH FINAL ADDRESS.

: "ADD OFFSET FOR FIRST TRIP,
AND THE CHARACTER,

;MAKE EVEN, 2 CHARS/WORD

EXPECTED DATA FOR P(CSAVE
.CHECK PCSAVE.

NOU CHECK FOR ''CHAR’' OPCODE IN FLAGS
.

AND CSR

TST
B8Ml]
SuB
INC

;HAVE WE TERMINATED ??

CT.BAS,GDDAT

#2,CT.BAS

ENDSEG

BIT
BNE
BIS
BR

BIC

LOOPTO
JSR

JEXIT IF SO.

;NO, DECR BASE ADDRESS.

JINCR CHAR COUNT.

;128 CHARS DONE ??
;LOOP IF NOT.

#-1,R1

#CT.RET+2,R2
1%

JYES, SET TERMINATE FLAG...
;...ADJUST EXPECTED DPC...
;...AND LOOP TO XCT FINAL DPOP.

.,
; <CCLLLLLLLLLLLLLLLLLLLLLLK END SEGMENT

HAUXSEG, CHSEG

31%

#AUXSEG, CHSEG

5$
géUXSEG.CHSEG
PC,LOOP

5%
DPUMOD
40%
PC,DPRESET

DPSTART #CHD1SP
#CHDISP ,aDPC
MOV
PC,WAITF
JSR

127154

:FINAL DPOP?

“CHECK THE CHARACTER BASE
1LOOP ON ERROR.

BCS
TST
BNE
JSR

026074

*GET START OF MAIN DISPLAY FILE,

PC,CBCHK

BNE
MOV
MOV
B8R

177777
053754

;CHECK DPC = R2
ZERROR IF IT'S WRONG.
; CHAR MODE FAILS.
;SKIP AHEAD IF NOT.

(MP

000200

SEQ 0141

JSR
{kLooe

MOV

053762

053732

103641

#CT.aDPC

SKP3

PAGE 73-1

MOV

ADD

000203

000001

001004
052737
000647

1%:

29-JAN-81 17:22

JSR
JSR

PC,PAUSE1
PC.PAUSE1

JSR
EXIT

PC,TSTEND

TST

:DID WE DO AUX SEGMENT?

adad]
:BR IF YES.
;NO. SO DO IT NOW

;LOOP BACK AFTER SETTING SEG BIT.
;DID AUX, SO CLEAR THE BIT
; REPEAT TIL LOOPER EXPIRES.

aaal

; ARE WE IN DPU-MODE ONLY?
; BR=YES.

; DO SOFT INIT. & CHECK STATE
; START THE DPU.

; WAIT FOR DISPLAY STOP.

; EXIT THIS TEST >>>553>3335333535>>53>>>>>

* ON ERROR, SHOW BASE ADDRESS AND CURRENT CHAR (CODE.

VSV11/VS117-- GRAPHIC SYS. DIAG MACRO M1113

r—

wes TEST 17

5300
5301 053702
5302 053730
5303
5304 053732

5305
5306
5307
5308 053734
5309 053742
5310 053746
5311 053750
5312 053752
5313
5314 053754
5315 053756
5316
5317 053760
5318 053762
5319 C53764
5320
5321
5322
5323 053766
5324 053776
5325 054000
5326 054004
5327 054012
5328 054014
5329
5330 054034
5331 054042
5332 054044
5333 054056
5334 054064
5335 054066
5336
5337 054076
5338 054104
054106

054124

CHARACTERS

20%:

000207

tHSEG:

053754

MmN

PAGE 73-2

SEQ 0142

PRINTX

#CHRFX.CT.BAS,R1 ; ERROR EXTENSION.

CT.SUB

:CHARACTER BASE CONTROL, WITH SEGMENT SELECT.

RTS

: DISPLAY CODE FOR CHAR MODE TEST.
164000
152000

160000
000000
173000

164000
053754

164000

cT:

, DNOP
OP
, DNOP
ON

SETCB,CT.SUB
DJMP
CT.ASC: 0

S INITIAL BASE ADDR = (T.SUB.
"XFER PC TO THE CHAR...
L. ..DATA ARRAY.

CT.SUB: .+2

:SUBROUTINE ENTRY PONNTER.

CT.RET: STOPN

053756

152000

CT.BAS:

053754

165000

“FINAL 'DPOP'* SHOULD RETURN HERE
"STOP HERE IF CHAR ADDRESSES...
. .COME OUT RIGHT.

STOPN

173000

"ON RESUME, SET NEW BASE ADDR...

SET(B

CT.SUB

:...AND DPOP TO NEXT CHAR.

DPOP

; DISPLAY FILE FOR CHARACTER DISPLAY:
176074

170140
152000
117774
100000

176474

177074

CHDISP: RDWRT!CHO,RDWRT.CH1,RDWRT!CH2,RDWRT!CH3
CLRMEM

SETCB, ACAT

110146
001000

001500

040

041

042

114000
100000

001000

001400

APNT, 1000, 1400

061

001000

00136

APNT,1000,1300

072

073

074

114000
100000
101

001000

001200

102

103

114000

001000

001100

060

114000
100000

054132
054134

100000

116

117

120

054152
054160
054162

114000
100000
133

001000

134

135

054170
054176
054200

117774
100000
040

001000

000602

041

042

054220
054226

114000
100000
060

061000

000502

061

062

054230

29-JAN-81 17:22

APNT!ALL,1000,1500
CHAR

ASCIT

.EVEN

CHAR

ASCIT

CHAR

LASCID
.EVEN

x+ = /7
2 UA8O%8'

70123456789/
/::<=>% /

APNT,1000,1200
CHAR

LASCII

/ABCDEFGHIJKLM /

-.EVEN
APNT,1000,1100
(HAR

LASCII
_EVEN

/NOPQRSTUVWXYZ /

APNT,1000,1000
CHAR

JASCIT
_EVEN

/0N\I~_ /

APNT !ALL,1000,602
CHAR

ASCIT
.EVEN

xs =, /2
2 VSOORR

APNT,1000,502
(HAR

LASCIT

70123456789/

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

——

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 17

CHARACTERS
114000

001000

000402

072

073

074

114000

001000

000302

101

102

103

5365 054310

114000

001000

000202

5367 054320

116

120

5369 054336

114000

001000

000102

5371 054346

133

134

135

5357 054242

5358 054250

5359 054252
5360

5361 054262

5362 054270

g%gz 054272

5366 054316

5308

5370 054344

5372
2%;2 054354

100000

100000
100000

100000

29-JAN-81 17:22

PAGE 73-3

APNT,1000,402
CHAR

ASCID
.EVEN

/:;<3>?29 /

APNT,1000,302
CHAR

.ESELI
BV

/ABCDEFGHIJKLM /

APNT,1000,202
CHAR

LASCI1
.EVEN

/NOPQRSTUVWXYZ /

APNT,1000,102
CHAR

ASCIT

.EVEN
STOPN

173000

/NI_ /

END.TEST

5375 054356

"t'.ttttti*tt**tfitttttil’*"tt.tttttfittittt*tttttt*t*ttttttttttt'ttti'tttt
"t

M
'-t

END TEST 17

. ttttfittttt*tttttt*fit'ttitttt't.tit"t*'tt*tfitttl‘tttttttt'ttttt*tttt*ttt

SEQ 0143

[ VySV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
ree

TEST

ABSOLUTE POINTS

5377

29-JAN-81 17:22

BEGIN TEST 18

.
.

SEQ 0144

"...'tfifi."fi'Q""'"'"t"t"'Qfit.tt"'tt""""'tQ't't'!.'t.."'.'

> %

8 12

PAGE 74

ABSOLUTE POINTS

"'*'..'*t'"t'."t't"""ttt'ttl"'fi"fi"t.tt"i'ti'tt'."'tttt.t't'

(ITERATION COUNT = 10.)
5378
5379
5380
5381
5382
5383

5384
5385
5386
5387
5388 C54430
5389 054434
5390 054442
5391
5392 054446
5393 054452
5394 054454
5395
5396 054460
5397 054466
5398 054474
5399 054476
5400 054500
5401 054504
5402 054512
5403
5404 054516
5405
5406 054520
5407 054526
5408 054532
54609 054536
5410 054540
5411 054544
5612 054546
5413 054566
054566

054572
5414 054574
5415
5416 054576
5417 054604
5418 054610
5419 054612
5420
5421 054614
5422 054620
5423 054626

: VERIFY THAT WE CAN EXECUTE ABSOLUTE POINTS FOR THE FULL
;

RANGE OF X/Y.

: PLOT ALL X POINTS, HOLDING Y AT 0.
: PLOT ALL Y POINTS, HOLDING X AT 0.
: PLOT ALL POINTS ON THE 45 (X = Y).
REPEAT EACH POINT 10 TIMES AFTER QUICK PASS.
004737
012737
004737

027702
054740
027054

005737

002502

001002
004737

012737
013737
005004
005005
005037
053737
005037

012777
004737
027704
001003
027705
001410

022300

A ) TST:

JSR

177777
027700

003232
003234

055010
003064
055012

055010

8%:

;TITLE

: SET ERROR EXTENSION ADDRESS.
; BLAST LUT (IF THERE IS ONE).

#208 ,EXTA
PC,LUMIN

TST

DPUMOD

.+6
PC,CLRRW

; SKIP NEXT IF DPU-ONLY.
: CLEAR AND SET R/W MODE.

MoV

#-1,TEMPT

;USE AS XFER SWITCH.

BNE
JSR

026650

PC,TSTGO

MOV
JSR

MOV
CLR
CLR
CLR
BIS
CLR

LOOPK , TEMP?2
R4
R5
ABPX
OPT1 ,ABPX
ABPY

:SAVE A COPY OF THE LOOPER.
SEAPECTED X ADDRESS.
JEXPECTED Y ADDRESS.
JINIT X, ..
:...INTENSIFY IS OPTIONAL...
:...AND Y AT O

5 €<CLLLCLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

1%:

BGNSEG

9%:

126300

MOV
JSR
CMP

#ARP ,aDPC(
PC,WAITF
aDXR,R4

;START DISPLAY...
:WAIT FOR DONE FLAG.
;CHECK DXR = R4...

126274

cMP

aDYR.RS

:...AND DYR = RS.

HRDERR

APF _XYERR

JSR

PC,LOOP

055002
027454

126304

BNE

2%:

004737
103752

027€46

013737
005737
003027
001413

003234
003232

062704
062737
020427

000002
000002
001776

BEQ

LOOPTO

B(CS

ENDSEG

027700

055070

;ABS POINT FAILS.

: REPEAT...TIL LOOPER EXPIRES.

; €<CLCLLLLLLLLLLLLLLLLLLLLKLC END SEGMENT.

MOV
TST
BGT
BEQ

TEMPZ2,LOOPK
TEMP
5%
4%

:RESET LOOPER.
;TEST XFER SWITCH.
:INCR BOTH X AND Y,
:INCR Y ONLY.

ADD
ADD

#2 R4
#2 ,ABPX

JINCR X ONLY.

(MP

R4 , AMAXX

29-JAN-81 17:22

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
vev TEST 18

5424 054632
5625 054634
5426 054640
5427
5428 054642
3429 054646
5430 054654
5431 054660
5432 054662
5633 054666
5434
5635 054670
5436 054674
5437 054676
5438 054702
5439 054704
5440 054710
564461 054714

5442
5643 054716
5444 054722
5445 054724
5446 054730
5447 054734
5448
5649
5450
56451 054740
5452 055000
5453
5454
5455
5456 055002
5457 055004
5458 055010
5459 055012
5460 355014
5461
5462 055016

ABSOLUTE POINTS
101731

005237
000715

003232

062705
062737
020527

000002
000002
001776

005237
000702

003232

012700
060004
060037
060005
060037
020527

000002

005737

002502

004737
004737

027514
030072

101716

101700

001002

055012

:...AND LOOP 'T]IL DONE.
:THEN, BUMP SWIT(CH...

ADD
ADD

#2,RS5
#2 ,ARPY

;INCR Y ONLY.

B8LOS
INC
BR

1%
TEMP
8%

:...AND LOOP °TIL DONE.
;THEN, BUMP SWITCH...
J...AND REINIT.

MOV
ADD

#2 RO
RO,R4

;INCR X AND Y.
JINCR X'S...

ADD

RO,RS

;...AND Y'S...

CMP

.
5¢:

ADD

055010

RS ,AMAXY

ADD

055012
001776

CMP

BLOS
10%:

11%:

SEQ 0145

19
TEMP1

BLOS
INC

A ¥

¢ 12

PAGE 74-1

RO,ABPX
RO,ABPY

RS ,AMAXY

TST
BNE

DPUMOD
118

;...AND REINIT.

:...AND LOOP °'TIL DONE.

JSR

P( ,PAUSE1

: PAUSE IF VIDEO ON.

EXIT

TST

2 EXIT THIS TEST >>353>3>5>>>3>5>>>>>>>>>>>>

JSR

PC,TSTEND

* ON ERROR, SHOW ORIGIN AND DELTAS.
20%:

000207

PRINTX

RTS

HLONGX.ABP+2 ABP+4,ABPX ,ABPY ; EXTENSION.
PC

DISPLAY FILE FOR APNT TEST.
117774
000000
000000
000000
173000

000000

ABP :

APNT
. ALL

ABPX :

ABPY :

STOPN

END.TEST
;'l’l’tt!ttt.ttttt'ttttiii't"".tttfittt.'ttttt"'ttlti"t""tt""tfitt"
> %
’

M
"l

END TEST 18

"ttttR'l*'ttttttttfi.t'it'it't'ttti!tfit't.tt'ttt'tttt"fi"fit'lt't"'tt"'

——

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 19

LONG VECTORS

546k

%eWeNa

. %

29-JAN-81 17:22

D 12

PAGE 75

'ttl'.t"‘"'Q"lt""!"".tt.'t.'fi'Q"Q.ttti'.i"'.QQ"".Q"'Q'.'.'

BEGIN TEST 19

®e

*
4

SEQ 0146

LONG VECTORS

l‘tt"'t"ttfi't.ifi'tt'i'ti'fifitt*ttttl’fittt"'Qt'tt.'t'tt'ttttii""'i"'

(ITERATION COUNT = 10.)

5508 055266
5509 055274
5510 055302

004737
012737
004737

027702
055406
027054

005737
001002
004737

002502

005037
005037
012704
005005
010437
053737
010537
012702
012703
013737

055452
055454
001776

055440
003064
055462

177776
000002
027700

055450
027454

004737

027646

013737
033727
001411

162737

062737
060204

022300

GENERATE LONG VECTORS FROM 0,0 VARYING THE LENGTH FROM

MAX (X) TO HALF(XY) TO MAX(Y).
THEN REPEAT FROM MAX MAX USING NEGATIVE DELTAS.

[THIS MAY BE WORST CASE !!!]
REPEAT EACH VECTOR 10 TIMES AFTER QUICK PASS.
v TST:

JSR

#20% ,EXTA
PC,LUMIN

TST

DPUMOD

CLR

003234

125632

:...AND Y AT 0.

R4 ,LVX
OPTI,LVX
R5,LVY
#-2,R2

#2,R3
LOOPK , TEMP?

JINIT X LENGTH...
:...OPTIONAL INT...
:...AND Y LENGTH.
JINIT EXP X...
:...AND Y INCR'S.
:SAVE A COPY OF LOOPK.

;€L LLLLLLLLLLLLLL<< BEGIN SEGMENT.

MOV

ALV,aDP(

:START 'EM UP.

CMP

aDXR,R4

;CHECK DXR = R4...

CMP

aDYR.RS

:...AND DYR = RS.

HRDERR
LCOPTO

LVF ,XYERR
9%

:LONG VECTOR FAILS.
: REPEAT...

JSR

BEQ

JSR
B(S

FNDSEG

000002
000002

SINIT EXP X AT MAX. ..

9%:

2%:
3%:

055460
055462

#MAXX ,R4

CLR

BNE

001777

SINIT ORIGIN AT 0,0.

BGNSEG

125622

027700

LV+2

1%:

125626

003234
055460

: SKIP NEXT IF DPU-ONLY.
: CLEAR AND SET R/W MODE.

LV+4

MOV
BIS
MOV
MOV
MOV
MOV

JTITLE

: SET ERROR EXTENSION ADDRESS.
: BLAST THE LUT.

.+6
PC,CLRRW

CLR

MOV
055460

PC,TSTGO

MOV
JSR
BNE
JSR

C26650

012777
004737
027704
001003
027705
001410

103752

Fm®e

5473

5474 055066
5475 €55072
5476 055100
5477
5478 055104
5479 055110
5480 055112
5481
5482 055116
5483 055122
5484 055126
5485 055132
5486 055134
548/ 055140
5488 055146
5489 055152
5490 055156
5491 055162
5492
5493 055170
5494
5495 055172
5496 055200
5497 055204
5498 055210
5499 055212
5500 055216
5501 055220
5502 055240
055240
055244
5503 055246
5504
5505 055250
5506 055256
5507 055264

s %e8e8,8s8%a0, 0,

5465
5466
5407
5468
5469
5470
5471
5472

MOV
BIT

BEQ

SuB

ADD
ADD

PC,WAITF

PC,LOOP
9%

5 €<LCCLLLLLLLLLLALLLLLLLLL< END SEGMENT,

TEMPZ2 ,LOOPK
LVX, 21777

;RESET LOOPER.

H2,LVX

;OTHERWISE, DECR DX...

:BR IF DELTA X - 0.

H2,LVY
R2.R&

;..AND INCR DY.

JSET NEXT EXP X...

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 19

LONG VECTORS

5511 055304
22}% 055306

060305
000730

§514 055310
5515 055316
§516 055320
5517 055326
§518 055334
§519 055342
5520 055350

033727
001022
012737
012737
052737
012737
005004

§521 055352

5522 055356

5523 055360

012705

005402

055460

020000

001776
001776
021776

(55452
055454
055460

020000

001002
004737
004737

027514

030072

gggg 055446

BIT
BNE
MOV
MOV
BIS
MOV
CLR

LVX, AMXY
108
AMAXX , LV+2
AMAXY LV +4
AMXY 'MAXX,LVX
AMXY 0, LVY
R4

CARE WE IN THE NEG CYCLE ??
“WE'RE DONE IF SO.
"OTHERWISE, REINIT ORIGIN...
L...AT MAX.MAX.
- INIT X LENGTH AT =MAX.
CINIT Y LENGTH AT -0.
CINIT EXP X = 0...

NEG

t...REVERSE EXP INCR'S.

AMAXY ,RS

B8R
ST

BNE
JSR
JSR
EXIT

RTS

00207

1%
DPUMOD

S...AND Y = MAX...

;AND GO "ROUN.

118
PC,PAUSE1

: PAUSE IF VIDEO ON.

TST

; EXIT THIS TEST >>>>333533353>>5>>>>>>>5>>>

PC.TSTEND

DISPLAY FILE FOR LONG VECTOR TEST.
114000

5540 055452
5541 055456

000000
113774

8543 (055462
ggzg 055464

000000
173000

5542 055460

:...AND EXP V.
L. .. AND CONTINUE.

* ON ERROR, SHOW ORIGIN AND DELTAS.
PRINTX #LONGX.LV*2.LV+6,LVX,LVY ; EXTENSION.
20$:

gggg
5539 055450

118

SEC 0147

R3,R5
1%

NEG

108 :

E 12

PAGE 75-1

ADD
BR

MOV

005403

gggg
5534 055406

055462

001776

gggg 055362 000702
§506 055364 005737 002502
§527 055370
5508 055372
5529 055376
22%? £55402

4$:

29-JAN-81 17:22

000000

Lv:
LVX:

LVi:

APNT

0.0
LVEC.ALL
0
STOPN
END.TEST

S46 055466

"tt"ttl.t.'l’Q't'l’tl.'""'.'tit.t".'tQ.t'.tQ't"'ifi"""""""""Q
'-t

s ®

END TEST 19

."t"tt"tt*"tlttt"."'"t"t'.fi'.t"""'t..'t't"l’ttt't't't"t"""t

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M*113

eee TEST 20

RELATIVE POINTS

5548

29-)AN-81 17:22

XXZEXT 22N

F1 [3

PAGE 70

BEGIN TEST 20

SEQ 0148
RZZ AR

RELATIVE

R AAREARRRAR

ARl

POINTS

222223ZZX3XXXX2Z22Z2ZRAXSRARERZRSZRA2
2R
XA
ARl sl

5549

;

ggg;

: FOR THE FULL RANGE OF X/Y (=76 TO +76).

: VERIFY THAT WE CAN EXECUTE RELATIVE POINTS FROM 1000,1000
: PLOT ALL X POINTS, HOLDING Y AT =76.
; PLOT ALL Y POINTS, HOLDING X AT =76.

2222

: PLOT ALL POINTS ON THE 45 (X = Y),

gggg

: REPEAT EACH POINT 10 TIMES AFTER QUICK PASS.

5559 C55540
5560 055544
222; 055552

004737
012737
004737

027702
GS561046
027054

5563 055556
5564 055562

005737
001002

002502

004737

(026650

5567 055570
5568 055576

012737
013737

177777
027700

003232
003234

037576
003064

056152
056152

gggg 055564

5569 055604
5570 055610
5571 055612
gg;% 055620

012704
Q10405
012737
053737

000702

_
022300

22;2 055626

5576
5577
5578
5579

055630
055636
055642
055646

012777
004737
027704
001003

5581 055654
5582 055656
5583 055676
055676
055702
%ggg 055704

001410

5580 055650

027705

056142
027454
125170

027646

5586 055706

013737

003234

gggg 055722

001420

005737
003036

003232

5561 055724
5592 055730

062704
010400

000002

5594 055736

042737

037600

5593 055732

004737

RPTIST:

8%:

027312

JSR
Mov
JSR

PC,TSTGO
#208 ,EXTA
PC,LUMIN

TST
BNE
JSR

DPUMOD
.+6

PC,CLRRW

;
:

MOV
MOV

#-1,TEMP]
LOOPK , TEMP?

JUSE AS XFER SWITCH.
:SAVE A COPY OF LQOPK.

MOV
MOV
MOV
BIS

JINIT EXPECTED X...
J...AND VY,
INIT DX,DY AT -MAX,-MAX.
;OPTIONAL INTENSIFY,.

9%:

MOV
JSR
(MP
BNE

#RPT ,aDP(
PC,WAITF
aDXR R4
2%

BEQ
HRDERR
LOOPTO
JSR
BCS
ENDSEG

3%
RPF ,XYERR
JREL POINT FAILS.
9%
: REPEAT...
PC,LOOP
9%
7 €€LLCLCLLCLLLLLLLLLCLLLLLLL<<< END SEGMENT,

2%:
3%

056152

#1000-76,R4
R4 RS
#37576 ,RPD
OPTI ,RPD

SKIP NEXT [F DPU=-ONLY.
CLEAR AND SET R/wW MODE.

BGNSEG

(MP

02770C

;TITLE
: SET ERROR EXTENSION ADDRESS.
; BLAST THE LUT,.

1%:

125164

004737
103752

5587 055714
5588 055720

125174

]

; (ITERATION COUNT = 10.)

5553
5554

€550

€<CCLCLCLLLLLLLLLLLLLLLLC<<< BEGIN SEGMENT,

;START DISPLAY
;CHECK DXR = R4...

aDYR,RS

:...AND DYR = RS,

TEMP?2,L OOPK

JRESET LOOPER.

BEQ

JINCR Y ONLY.

ADD
MOV

X2 R4
R4 RO

;INCR X ONLY.

BIC

#37600,RPD

:CLEAR OLD...

MOV
1ST
BGT

JSR

TEMP1
5%

PC,SDX

;TEST XFER SWIT(CH.
JINCR X AND Y.

;CALCULATE +/= DX IN RO.

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 20

5595 055744

5596 055750
5597 055754
5598 055756
5599 055762
5600
5601 055764
5602 055770
5603 055772
56064 055776
5605 056002
5606 056006
5607 056010
5608 056014
5609
5610 056016
5511 056022
5612 056024
5613 056026
5614 056032
5615 056034
5616 056036
5617 056040
5618 056042
5619 056050
5620 056054
621 056060
622
5623 056062
5624 056066
5625 056070
5626 056074
5627 056100
5628
5629
5630
5631 056104
5632 056140
5633
5634
5635
5636 056142
5637 056144
5638 056150
5639 056152
5640 056154
5641
5642 056156

RELATIVE POINTS

050037
020427
101724

003232

062705
010500
004737

000002

110037

020527

101707

(MP
BLOS
INC
BR

4%:

027270
056152
001076

005237
000673

003232

062704
010405
010500
004737
010001
000300
006200
050100
042737
050037
020527

000002

005737
001002
004737
0047%7

002502

101662

BIS

056152
01076

005237
000710

5%:

027514
030072

10%:

11%:

PAGE

G 12
76-1

SEQ 0149

RO,RPD
R4 ,R1076
19

J...SET NEX DX.

J...AND REINIT.

TEMP1

JAND LOOP 'TIL DONE.
;THEN, BUMP SWIT(H...

JINCR Y ONLY.

#2.RS

RO,RPD
RS5,#1076
1%
TEMP1

;SET NEW DY.

;...AND REINIT.

ADD

#2,R4

JINCR X AND Y.

RS,RO

PC,SDY

BIS
BIC
BIS
(MP
BLOS

R4 RS
RS,RO
oC,sDy
RO,.R1
RO
RO
R1,RO
#37777 ,RPD
RO,RPD
RS,41076
1%

TST

DPUMOD

MOV
MOV

MOV
SWAB
ASR

056152

17:22

ADD
MOV
JSR
MOVR
(MP
8LOS
INC
B8R

JSR

027270

037777
056152
001076

29-JAN-81

BNE
JSR
JSR
EXIT

PC ,PAUSE1

PC,TSTEND
TST

;CALCULATE +/= DY IN RO,
JAND LOOP
;THEN,

;Y =

'TIL

BUMP

DONE.

SWIT(H...

;CALCULATE +/- DY IN RO.
;SAVE FOR A MOMENT.

JREPOSITION FOR DX.
;COMBINE DX AND DY.
;CLEAR OLD...
J...SET NEW DX,DY.
JAND LOOP ‘TIL DONE.

;

PAUSE

VIDEO ON.

EXIT THIS TEST >2D>333D33>33533>553>5>>>>>

* ON ERROR, SHOW ORIGIN AND DELTAS.
20$:

000207

PRINTX
RTS

RPT+4 RPD ; EXTENSION,
#SHRTX,RPT+2

*DISPLAY FILE FOR REL POINT TEST.
114000

001000
133774

000000
173000

001000

RPT:

RPD:

APNT

1000,7000

JORIGIN AT CENTER SCREEN.

;DELTA X AND DELTA v,

RPNT!ALL

STOPN

END.TEST
"""..'t"".'.t""t""Q".'tl."."t't'."..D..'t"'."..'.'."".'.

END TEST 20

,'t'.".."..'."".'I’"""..'."Q."t.'..."l"""'lt"'t"'l'.""".

VSV11/7yS11 == GRAPHIC SYS. DIAG MACRO M1113 29- AN=~81 17:22

eee TEST 2N

SHORT VE(TORS

5644

PAGE 77

SEQ 0150

."'.."..Q.'.."'Q.'.""'t..'.""Qt"t.."'...'.'t".'.""lt"t."..'

BEGIN TEST 21

SHORT VECTORS

:'."Q'QQ'.'.."'...'."""t".t'Q.'.l..t"'.".t'..Q...'.Q'.'."Q.QQQ"
:

5645

(ITERATION COUNT = 10.)

gg:g

5647

: VERIFY THAT WE CAN EXECUTE SHORT VECTORS FROM 1000,1000
: FOR ALL VALUES OF DELTA X AND VY.
: SWEEP VECTORS FROM MAX,MAX, (CW THRU 360 DEGREES.

gggq

: REPEAT EACH VECTOR 10 TIMES AFTER QUICK PASS.

5646

5652 056226
5653 056232
5654 056240

004737
012737
004737

5656 056250
5657 056252
5658 056256
5659 056262

001002
004737
012704
012705

5655 C56244

5660 056266

5661 056274
5662 056302

2222 056306

005737

012737
053737
005037

013737

027702
050604
027054

022300

026650

001074
001076

017076

056652

027700

003234

003064
003232

5668 056324
5669 056330
5670 056334
5671 056336
5672 056342

5673 056344

012777

004737
027704
001003

027705
001411

5674 056364
5675 056366

000403

056372

103751

056366

%6;9 056374
6

5678 056376
5679 056404
5680 056410
5687 056412
5682 056416
5683 056420
5684 056424
5685 056426

004737

013737
005737
001033
020427
001413
162704
010400
(004737

056642

027454
124502

056652
_

124506

#17076,SVvD
OPT!,SVD
TEMPI

DINIT DX +74, DX +76.

MOV

3%:

027700

027312

5%:

DPUMOD

#1074 R4
#1076 ,RS

LGOPK , TEMP?2
ASVT ,aDP(

PC,WAITF
aDXR, R4
2%

BEQ

JSR

B8CS

ENDSEG

;... INT OPTIONAL.
;USE AS XFER SWIT(CH.

;SAVE A COPY OfF LOOPER.

:...AND DYR = RS.

aDYR,RS
30%
9%

;SHORT VECTOR FAILS.
; REPEAT,
..

PC,LOCP

;START DISPLAY
:CHECK DXR = Ra...

HRDERR SVF ,XYERR

B8R
LOOPTO

SINIT EXPECTED X...
;...AND Y T0O.

; CCCLLCCLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT,

JSR
CMP
BNE

5 €CCCCCLLCLLLLLLLLCLLC<<<< END SEGMENT,

MOV
TST
BNE
{mMpP
BEQ
SUB
MOV
JSR

TEMPZ, L 00PK
TLMP1
7%
R4 ,#1000-76
5%
#2 R4
R4 RO
PC,SDX

JRESET LOOPER.
;TEST XFER SWITCH...
:...BR IF SET.

B8!S
BR

RO,SVD
1%

J...SET NEW DX...
:...AND CONTINUE.

B8l

5686 056432 042737 037600 056652
(00702

BIS
(LR

9%:

000002

020527

; SKIP NEXT [F DPU-ONLY.
: CLEAR AND SET R/W MODE.

BGNSEG

000702

5690 056446

.+6
PC,CLRRW

1%:

30%:

056652

BNE
JSR
MOV
MOV

(MP

027646

050037
000723

sTITLE
: SET ERROR EXTENSION ADDRESS.
: BLAST LUT.

MOV

2%:

5687 056440
gggg 056444

PC,TSTGO
208 ,EXTA
PC.LUMIN

MOV

124476

003234
003232

_SR
MOV
JSR
TST

0C2502

2222 056314
5667 056316

SYTST:

(MP

#37600, SVD

RS, #1000=76

;BR IF X MIN.
;OTHERWISE, DECR X.
: TRANSLATE T10 Dx.

SCLEAR OLD...

® <

" 12

/SV11/7¢S1Y == GRAPHIC SYS. DIAG MACRO M1113

TEST

5691 056452
5692 056454
5693 056460
5694 056462
5695 056466
5696 056472

5697

5698 056474

5699 056500

5700 056504
5701 056506

5702 056512
§703 056514
5704 056520
5705 056526
5706 056532
§707
§708 056534
709 055540
§710 056542
5711 056546
5712 056550
5713 056554
5714 056560
571§
§716 056562
5717 056566
5718 056570
5719 056574
5720 056600
5721
§72¢
5723
§724 056604
5725 056640

SHORT VECTORS

001470
162705
010500

027270
056652

005137
020427
001413

003232
001076

110037
000710

062704

056652

020527
001410
062795
010500
004737

110037

000655

005737
001002
004737
004737

001076

6%:

7%:

056652

8%:

0C0002

027514
030072

+SR

PC.SDY

(oM

108:
11%:

112

PAGE 77-1

#2 RS
RS,R0O

SEQ 0151

:BR IF Y MIN,

JOTHERWISE, DFCR v.

:TRANSLATE T0 Dv.

RO,SVD
1%

;SET NEW DY...
s...AND CONTINUE.

TEMPI

JSET XFER SWITCH.

(TMMP

R4, 21000476

8%
' PRA
R4 RO

JBR IF X IS MAX,
;OTHERWISE, INCR X.

BIC

#37600, SVD

*CLEAR OLD...

BEQ
ADD
MOV
JSR

PC,SDX

: TRANSLATE TO Dx.

8IS
BR

RO,SvD
1%

J...SET NEW DX...
;...AND CONTINUE.

(MP

RS,#1000+76

ADD
MOV

#2 RS
R5.RO

1ST
BNE

DPUMOD
118

JSR

PC,TSTEND

BEQ

JSR
MOvB
BR

027270
056652

002502

MOvB
B8R

000002

027372
037600

BEQ

SUB
MOV

(00002

004737

29-,AN-81 17:22

JSR

EXx]Y

108

:BR (DONE) IF Y IS MAX.

PC,SDY
RO,SVD
19

: TRANSLATE TO Dv.
;SET NEW DY...
;...AND CONTINUE.

JOHTERWISE, INCR V.

P( ,PAUSE

: PAUSF [F VIDEO ON.

TST

; EXIT THIS TEST >>>>>>3>3>3>>3>533>>>>>>>>>

: ON ERROR, SHOW ORIGIN AND DELTAS.
000207

208 :

PRINTX
RTS

M#SHRTX,SVT+2,SvT+4,SvD ; EXTENSION.
PC

: DISPLAY (ODE FOR SHORT VECTORS.
056642
056644

056650
056652
056654

114000

001000
107774

000000
173000

SvT:

SvD:

APNT

1000, 1000

JORIGIN AT CENTER SCREEN.

;DELTA X AND DELTA VY.

SVEC!ALL
STOPN

END.TES!

056656

;"'.."'.‘..Q"..t'.'."'."....'..'...'.tfi'..'t".""'tt't'."'t.t"t
*®

END TEST 21

.'"...'..'*.'...'..".""".".""Q""".".'."'t.'Q"".'I"""l'.
.

SEQ 0152

RUN=LENGTH

5737

"..'.'.'..'."..'.""""...Q.""".'"'.'.."l"'t'."'..‘.'.."'.Q

BEGIN TEST 22

RUN-LENGTH

056730

5744 056734
5745 056740
5746 056744
5747
5748
5749 056746
5750 056752
056752
056760
5751 056764
5752 056766
5753 056772
056772
057000
5754 057004
5755 057006
5756 057010
5757 057014
5758 057020
5759 057024
057G24
057026
057030
057032
57034
057054
5760 057054
5761 057056
5762 057062
5763 057064

5765 057066
5766 057072
057072
057100
5767 057104
5768 057106
5769 057112
057112
057120

(ITERATION COUNT = 10.)

ALL VARIATIONS OF RUN LENTH MODE ARE DONE AND THE t*D POIMTS ARE (HECKED.
IF TESTING IN DPU-ONLY MODE, JUST THE “NEWLINE'" COMMMWDS ARE TESTED.

bIR

5738
5739
57«0
57461
57462
5743 056724
056726

;
TR TR

."'.'.'."-......"."".'..'QQ."l"'.'.'l'.'t."'..'.."'Q.QQ"'.Q.'

004737
004737
004737
005737
007121

012705

000001

012777
004737

057564
0274654

110537

057605

052777
004737

000001
027454

010501
006301
012703
017702
017704

LMOD

027792
026074
026650
002502

RLMOD1:

1%:
124052

2%:

1264032

BNE

MovR

DPCONT
B1S
JSR
ASL
MOV
MOV
MOV

000000
124016
124014

65%:
:
649

000200

000001

012777
004737

057614
027454

110537

057635

052777
004737

000001
027454

IHRDERR

(MP
BNE

DPUMOD
RLNEWL

; ARE WE [N DPU-ONLY MODE?
; IF YES, JUST DO "NEWLINE'" TeSTS.

PC,CLRRW

2%:

TITLE.
DO SaVT

INit.

; CLEAR FOR READ/WRITE.

: IF NO, DO ALL TESTS ( URITE TG SCRLEN ).
;

TEST X

INCREMENT.

INIT COUNT FOR X TEST.

#1,R5

;

RS, XINCB+1

; MODIFY COUNT [N DISPLAY FILE.

#3170,aDPC
PC,WAITF

; CONTINUE THE DPU.
; WAIT FOR DISPLAY STOP.

#0,R3

= EXPECTED DYR.
; R3

g?,RI

aDXR,R?2
aDYR, R4

RLXIE ,RLXYE,

INC

RS, 4200
2%

: R1

= EXPECTED DXR.

; READ DXR INTO RZ2.
; READ DYR INTO R4.

;
;.
:
s

1ST ITEM OK?
NO.
OND ITEM OK?
VYES.

: NO.

; INCREMENT X VALUE.

; DONE?
: NO.
; €CCCCLLLLLLLLLCLLLLLLLLLL<< END SEGMENT.,
;

TEST X2 INCREMENT.

START THE DPU.

INIT COUNT FOR X2 TEST.

MOV

#1,RS

;

MOV
JSR

#X2INC ,aDPC

;

MOVB

R5,X2INCB+1

; MODIFY COUNT IN DISPLAY FILE.

#3170,aDPC
PC,WAITF

; CONTINUE THE DPU.
; WAIT FOR DISPLAY STOP.

DPSTART #X2INC

123732

123712

s
;

IFERRXZ RLXIE ,RLXYE
R1,.R2
65%
R3,R4
649

CMP
BNE
(MP
BEQ

ENDSEG

012705

PC.TSTGO
P(C.DPRESET

MOv
DPSTART #X INC
#XINC,aDPC
; START THE DPU.
MOV
WAIT FOR DISPLAY STOP.
;
PC.WAITF
JSR
LLLLLLLCLLL< BEGIN SEGMERT,
€<CCLCLLLLLLLLL
;
BGNSEG

MOV

020102
00100?
020304
001410

00>205
020527
001341

COMBEG
JSR
JSR
JSR

BGNSEG
DPCONT
BIS
JSR

PC,WAITF

; WAIT FOR DISPLAY STOP.
; €CCLCCLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

LN
-

M1113 29= AN=-81 17:22 PAGE %B
MACRO
DIAG
SVS.
GRAPWI(
==
]
VSV11/v$1
eee TEST 22

8770 057124

5771 057126
§772 057130

5773 057132
5774 057136
5775 057142

5776 057146
057146
057150
057152
057154
057156

057176

5777 0572176

RUN=-LENGTH
010501

006301
006301

012703
017702
017704
020102
001002
020304
0016410
005205

5778 057200 020527

5779 057204

gggo 057206

001340

67%:

66%:

5789 057244

057244
057246
057250
057252
057254

01¢777
004737
012701
012703

017702
0177064

057644
027454
000000
000002

5798 057326
5799 057332
057332
057334

057336
057340
057342

057362

238? 057362
5802

5803 057364

5804 057366

RULXZ2IE,RLXYE,

INC

BNE

MOV
MOV

001410

65%:

64%:
:

012777
00473/
012701

012703
017702
017704

057660
027654

; NO.

5 €CLCLLLCLLLLLLLLLLLLLELLLLLL< END SEGMENT.
; <CLKLLLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

aDXR,R2
aDYR . R4
R1,R2
65%
R3,R4

64%
RLYUE ,RLXYE,

]

BGNSEG
MOV
JSR

; START THE DPU.
: WAIT FOR DISPLAY STOP.

#0,R3
aDXR,R2

: R3 = EXPECTED DYR.
: READ DXR INTO RZ.

#0,R1

123506

aDYR,R4
MOV
IFERRXZ2 RLYDE ,RLXYE
R1.R2
(MP
67%
BNE

001002

6£7%:

66%:

(MP
BEQ
HRDERR

R3.R4
66%
RLYDE,RLXYE,

ENDSEG

; TEST SKIP UP.

BGNSEG

: YES.
; NO.

#YDN,aDP(
PC,WAITF

MOV

000000
123510

: 1ST ITEM 0OK?
; NO.
: 2ND ITEM OK?

; <CCCLLLLLLLLLLLLLLLLLLLLLK< BEGIN SEGMENT.

000000

MOV
MOV

START THE DPU.
WAIT FOR DISPLAY STOP.
R1 = EXPECTED DXR.
R3 = EXPECTED DYR.
; READ DXR INTO RZ.
: READ DYR INTO R4.

:
:
;
:

; <CCLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

ENDSEG
DPSTART #YDN

123524

1ST ITEM 0OKk?
NO.
2ND ITEM 0OK?
YES.
; NO.

; DONE?

#YUP ,aDPC
PC,WAITF
#0.R1
#2,R3

TEST Y DOWN.

020102

020304
001410

BEQ
HRDERR

: R3 - EXPECTED DYR.
: READ DXR INTO RZ2.
: READ DYR INTO R4.

: INCREMENT X VALUE.

RS ,4#200

IFERRXZ2 RLYUE,RLXYE

CMP
BNE
(MP

020102
001002
020304

5793 057276

5796 057316
5797 057722

HRDERR

DPSTART #YUP

123576
123574

5792

5795 €57312

;
:
;
:

MOV
JSR
MOV
MOV

123612

2;3? 057274

057300
057306

IFERRX2 RLXZ2IE,RLXYE
R1,R2
CMP
67%
BNE
R3 R4
(MP
66$%
BEQ

; TEST Y UP.

057274

5794 057300

#0,R3
aDXR R2
aDYR,R4

; R1 = EXPECTED DXR.

:
:

RLNEWL: BGNSEG

5783 57210

5787 057234
5788 057240

MOV
MOV
MoV

SEQ 0153

R1
R1

ENDSEG

5782

057212
057220
5785 057224
5786 057230

RS,R1

{MP

000200

5784 057212

MOV
ASL
ASL

000000
123674
123672

K 12

PAGE 78-1

DPSTART #Y2UP

: R1 = EXPECTED DXR.

: READ DYR INTO R4.

; 1ST ITEM 0K?
; NO.

: 2ND ITEM 0OK?
: YES.
; NO.

;<KL LLLLLLLLLLLLLLLLLL<< END SEGMENT.

; <CCLLCLLLLLLLLLLCLLLLLLLLL< BEGIN SEGMENT.,

JSVIT/VS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 22

29-JAN-B1 17:22

VSV11/7yS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 22

057366

057374
S80S 057400
5806 05740.
5807 057410
S8C8 057414

5809 057420
057420
057422
0574246
057426
057430

RUN=LENGTH
012777

057674

004737 (27454
012701 000000
012703 000004
017702 123422
017704 123420

29-JAN-81 17:22
MoV

123436

L 12

PAGE 78-2

#Y2UP,aDP(

JSR
MOV
MOV
MOV
MOV

PC.WAITF
#0,R1
#4 ,R3
aDXR,R2
aDYR,R4

BNE

69%

HRDERR

RLY2UE,RLXYE,

IFERRXZ RLY2UE ,RLXYE
R1.R2
(MP

020102

001002

020304
001410

69%:

68%:

057450

2%1? 057450

(MP
BEQ

R3,R4
68%

SEQ 0154
; START THE DPU.

; WAIT FOR DISPLAY STOP.
: R1 = EXPECTED DXR.
: R3 = EXPECTED DYR.
: READ DXR INTO RZ.
: READ DYR INTO R4.
: 1ST ITEM 0OK?
; NO.

: 2ND ITEM OK?
: YES.
; NO.

; €CCCLLLLCLLLLLLLLLLLLLLLLLC END SEGMENT,

ENDSEG

: TEST SKIP DOWN.

SR12

BGNSEG

5813 057452

5814 057454
057454

057462
5815 057466
5816 057472
5817 057476
5818 057502

012777
004737
012701
012703
017702
017704

057506
057510
057512
057514
057516

020102
001002
020304
001410

5819 057506

057710
027454
000000
000000
123334
123332

DPSTART #YZ2DN
#YZDN,aDPC
MOV
PC,WAITF
JSR
#0 R
MOV
#0,R3
MOV
aDXR,R2
MOV
aDYR,R4
MOV

123350

IFERRX2 RLYZDE ,RLXYE

71%:

70%:

057536

2%52 057536

5822 057540

(MP
B8NE
CMP
BEQ
HRDERR

R1,R2
71%
R3,R4
70%
RLYZDE .RLXYE,

RLMXIT: COMEND

RLMOD1

JSR

pPC.,LOOP

004737

027646

057550

000137

056740

64%:

JMP

RLMOD1

057554

004737

030072

65%:

JSR

PC,TSTEND

gggz 057560

103401
000402

BCS
BR

5825
5826
5827

64%
65%

EXIT

1ST

000000

XINC:

APNT,0,0

5833 057574

114000

040000

000000

XINCA:

APNT,I1!0,0

5834 057602

5836 057606
5837 057610

: PRINT ERROR SUMMARY, IF REQ'D.

2 EXIT THIS TEST >>>53>>35>>3>>>>>>

114000

5835 057604

: REPEAT °'TIL LOOPER EXPIRES.

; DISPLAY (CODE.

5831 057564

5832 057572

; 1ST ITEM 0OK?
; NO.
; 2ND ITEM 0OK?
: YES.
; NO.

5828

5829
5830

;. START THE DPU.
: WAIT FOR DISPLAY STCP.
: R1 = EXPECTED DXR.
: R3 = EXPECTED DYR.
; READ DXR INTO RZ.
: READ DYR INTO R4.

; <<LLLLLLLLLLLLLLLLLLLLKLL< END SEGMENT.

ENDSEG

057540
057544
057546

5838

;<KL LLCLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

173000
144000

XINCB:

000777

173000
160000

057574

STOPN

RNLN

000777

STOPN
DJMP,XINCA

: X INCREMENT.

VSV11/VS31 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST 22

5839 057614
5840 057622
5841 057624
5842 057632
5843 057634
5844 057636
5845 057640
5846

RUN~-LENGTH

114000
173000

114000

144100

000000

X2INC:

040000

000000

X2INCA: APNT,1!0,0

DJMP ,X2INCA
000000

5851 057660
5852 057666
5853 057672

114000
144040
173000

000000
000377

000002

5855 057674
5856 057702
5857 057706
5858
5859 057710
5860 057716
5861 057722

114000
144400
173000

000000
000377

000000

114000
144440

000000

000004

5862

RNLN.DBLPIX

057624
000000

173000

; X2 INCREMENT.

STOPN

114000
144000
173000

5854

STOPN

SEQ 0155

X2INCB: 000777

5847 057644
5848 057652
5849 057656
5850

PAGE

APNT,0,0

000000

000777
173000
160000

29-JAN-81 17:22

~N 3=

—

000377

YUP:

APNT,0,0

RNLN,377

;Y UP,

STOPN

YDN:

APNT,0,2
RNLN. YDOWN, 377

;Y DOWN.

APNT,0.,0

;Y SKIP UP.

STOPN

Y2UP:

RNLN'RLSKIP,377
STOPN

YZDN:

APNT,0,4
377
KIP!
YDOWN,
RNLN!RLS

; Y SKIP DOWN.

STOPN

END.TEST

5863 0577264

;tittttt*t*tttttt*t*t*tt"*ttt*t*titt*ttfi*fitfitttitt*ttttttti*tt**tttttttt
:t

i
:t

END TEST 22

"tt*fitfitt**ttt\'ttittttttttttttttt*tti**ttttttttttt!t'fitttt*ttitttt'tfitti

VSV11/vS11 == GRAPHIC SYS. DIA G MACRO Mi113
CURSOR REGISTE RS/SWITCH/MAT(H
wev TEST 23
5865

29-JAN-81 17:22

N 12

PAGE 79

SEQ 0156

"tt'ttttt'ttfi"tt*'tt""t*i"'ifitfitt*ttt!ttttttttttfltfi"ttittttttttitttt
. w

BEGIN TEST 23

.¥
. %

CURSOR REGISTERS/SWIT(H/MAT(H

:'ttttttttttttttttttfi'ttt'tttt*tttttltt*tttflttttttttttttttttwtfit'ttttittt

(ITERATION COUNT = 3.)

THIS TEST, USING THE LOADABLE CURSOR POSITION REGISTERS AND ‘'SOFT'' SWITCH,
PERFORMS THE FOLLOWING CHECKS ON THE CURSOR REGISTERS, JOYSTICK SWITCH, AND
CURSOR MATCH AND ASSOCIATED LOGIC FOR EACH AVAILABLE SYNC GENERATOR CHANNEL:
(1)

I
I

WRITE/READ TEST OF THE SWITCH ENABLE, MATCH ENABLE, AND CROSSHAIR
INTENSITY ENABLE BITS USING PROGRAMMED 1/0 TO SET AND CLEAR ALL BITS.

(4)

WRITE/READ TEST OF THE ENABLE BITS VIA DISPLAY FILE INSTRUCTION
kzgSSA§kOAD JOYSTICK STATUS), USING ALL COMBINATIONS OF LOAD-ENABLES

(5)

SET THE SWITCH ENABLE AND MATCH ENABLE BITS, THEN PERFORM A WRITE TO
THE JOYSTICK STATUS REGISTER OF ANOTHER CHANNEL WITH DATA CONFIGURED
TO SET THE ENABLE BITS; VERIFY THAT THE ENABLES OF THE CHANNEL UNDER
TEST WERE CLEARED. FAIJLURE HERE INDICATES A FAULTY CHANNEL ADDRESS

(3)

LIS

5902 060014
5903 060020
5904 060022

WRITE/READ TEST OF THE CURSOR POSITION REGISTERS VIA THE DISPLAY FILE
INSTRUCTION LDCP (LOAD CURSOR POSITION) AND CURD (CURSOR READ), USING
AN INCREMENTING COUNT PATTERN ON THE X POSITION (0 - 3776) AND A
DECREMENTING COUNT PATTERN ON THE Y POSITION (3776 - 0).

(2)

YRR T

DECODER IN THE SYNC CHANNEL UNDER TEST.

5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901

WRITE/READ TEST OF THE CURSOR POSITION REGISTERS USING DATA OF ALL 1'S
AND ALL 0°'S, USING PROGRAMMED I1/0 (VIA DXR AND DYR) TO CHECK FOR STUCK
0'S, STUCK 1'S AND DUAL ADDRESSING.

P E T E T X

;

005737
001402
000137

002502
064660

(6)

TEST OPERATION OF THE JOYSTICK SWITCH INTERRUFT.

(7)

TEST OPERATION OF THE CURSOR MATCH INTERRUPT. FLOATING 1°'S AND 0°'S

PATTERNS ARE USED IN THE CURSOR X AND Y POSITIONS TO VERIFY THE A
MATCH OCCURS ON THE SELECTED POINT WHILE DRAWING A VECTOR THROUGH IT,
AND THAT A MATCH DOES NOT OCCUR WHILE DRAWING VECTORS AROUND THE
SELECTED POINT PARALLEL TO THE X AND Y AXES.
1ST

BEQ
JMP

DPUMOD

CSMTST
CSMXIT

; DPU-MODE ONLY?

; BR IF NOT == OK TO EXECUTE.
; YES == JUST GO TO EXIT.

010237
006302
006302

010237

5932 060152
5933
5934
5935
5936 060156
5937 060169
5938 060164
5939 060166
5940 060172
060172
060176
060202
5941 060206

5942 060212

060212
060216
060222
5943 060226

5944 060232
5945 060234
5946 060236
5947 060240
5948 060242

5949 060244
5950 060246
5951 060266

064620

1%:

065004

ASL
ASL
ASL
ASL
ASL

MOV
ASL
ASL
MOV
ASL
ASL
ASL
MoV

065006

Movs
JSR

026106

;WRITE 0°'S INTO

012701
010103
013705

012746
053716
012677
004737

012746
053716
012677
004737
020102
001002
020304
001412
005305

100352

100000

065012
140000

CSMT1:

1%:

BGNSEG

SYCTAB(R2)

R2,CSCH.6
R2
R2

R2,CSCH.8

MIRTCPX'!0,=(SP)

R1,R3

CSRETRY,RS

CSCH.11,(SP)

140000

MOV

#WRTCPY0,-(SP)

3%:

DEC

ENDSEG

[

TO GET ...

Y
TP TN
TP

. CHANNEL NUMBER INTO RITS <12:11>,

. AND STORE IT FOR FUTURE USE.

; EXPECT CURSOR X = 0 (WITH FLAG SET)
; DITTO FOR CURSOR Y

: SET UP RS AS RETRY COUNTER ;aaaR

CSCH. 11, #WRTCPX'0,aDXR ; WRITE CURSOR X TO 0.

BIS

BPL
HRDERR

. STORE IT FOR FUTURE USE.

; <C<CCLCLCCKLLKL<BEGIN SEGMENT

PC,WAITF

2%:

: SHIFT IT LEFT 2 MORE TIMES TO GET
. IT INTU BITS <9:8>

BOTH CURSOR REGISTERS AND VERIFY THAT ALL 0'S ARE RETURNED.

JSR

065336

; STORE IT FOR FUTURF USE.

. DON'T EXPECT ANY INTERRUPT.
> BUT LOOK FOR BAD ONES.

MOV

122612

: ... CHANNEL NUMBER INTO BITS <7:6>

#0, INTMASK
PC.ENAINT

11
R2,CSCH.

MOV

BIS
MOV
JSR
cMp
BNE
CMP
BEQ

YES.

IF NOT, GO SELECT NEXT CHANNEL.
T 5 MORE TIMES TO GET
SHIFT IT L

...

065010
122630
027454
065010

BR IF

" SHIFT LEFT 3 MORE TIMES ...

#31T15,R1

BISW3

START TESTING AT CHANNEL O.
SET UP TO PRINT (HANNEL NUMBER CN ERROR.
DO SOFT INITIALIZE & CHECK REGISTERS.
GET CHANNEL NUMBER INTO R2
... AND MAKE [T A WORD OFFSET.
IS THERE A MODULE HERE?

R2
R2
R2

MOV
MOV
MOV

BISW3

; IDENTIFY THE AVAILABLE SYNC C(HANNELS.

SR P

7ST
BNE
JMP

(SCHAN,RZ

DO SOFT INIT.

JSR

MoV
ASL

TITLE.

022300

JSR

JSR
(SMITR: CLR
(SMLOOP: MOV

003270

065010
000000
026114

5931 060144

1%:

PC.TSTGO
PC,DPRESET
PC.CONFIG
PC,".MIN
CSCHAN
APRSYCH,EXTA
PC,DPRESET

LYV

001002
000137
006302
006302
006302
006302
006302

027702
026074
030414
027054
065002
065014
026074
065002

(SP)+ ,aDXR

; WAIT FOR READY.

CSCH.11,MJRTCPY'0,@DYR ; WRITE CURSOR Y TO O.
.
11, (5P)
CSCH

(SP)+,3DYR
PC,GETCURS

)

060032
5908 060036
5909 060042
5910 060046
5911 060052
5912 060060
5913 060064
5914 060070
5915 060072
5916 060076
5917 060100
5918 060104
5919 060106
5920 060110
5921 060112
5922 060114
5923 C60116
5924 060122
5925 060124
5926 060126
5927 060132
5928 060134
5929 060136
5930 060140

004737
004737
004737
004737
005037
012737
004737
013702
006302
005762

COMBEG
JSR
JSR

; READ CURSOR, GET DXR.DYR INTO R2,R&

CHECK DXR (X~CURSOR)

BR IF ERROR
2%
CHECK DYR (Y-CURSOR)
R3.R4
[F OK.
BR
3%
ENT THE RETRY COUNTER :aaaR
DECREM
RS
AGAIN [F NOT NEGATIVE ;aaaR
TRY
GO
1%
THE ERROR.
REPORT
CRWRZ ,RLXYE
>>>>>>>>>>>>END SEGMENT
W

060026

(SMTST:

5906

5907 060026

SEQ 0157

CURSOR REGISTERS/SWITCH/MATCH

B 13

PAGE 80

vee TEST 23

2G~JAN-81 17:22

vSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

‘

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST 23

5953
5954
5955
5956 060270
5957 060272
5958 060276
5959 060300
5960 060304
060304
060310
060314
5901 060320
5962 060324
060324
060330
060334
5963 060340
57964 060344
5965 060346
5966 060350
5967 060352
5968 060354
5969 060356
5970 060360
5971 060400

CURSOR REGISTERS/SWITCH/MAT(H

29-JAN-81 17:22

c 13
PAGE 81

SEQ 0158

;WRITE 1°'S INTO BOTH CURSOR REGISTERS AND VERIFY THAT ALL 1°'S ARE'RETURNED.
012701
010103
013705

065012

012746
053716
012677
004737

143776
065010
122516
027454

012746
053716
012677

143776
065010

004737
020102
001002
020304
001412

005305

100352

103776

(smr2:

MOV

LLKLK<BEGIN SEGMENT
; <<
#R1T151203776,R1 ; EXPECT CURSOR X = 3776 (WITH FLAG SET)

MOV

CSRETRY,RS

BGNSEG
MoV

1%:

BISW3
MOV

8IS

MOV

JSR

BISW3
MoV

8IS

122590

MoV
JSR
cMP
BNE

065336

2%:

cMP
BEQ
DEC

ENDSEG

BPL
HRDERR

R1,R3

;

DITTO FOR CURSOR Y

; aaaR

CSCH. 11 ,MIRTCPX!*203776,38DXR ; WRITE CURSOR X TO 3776.

MIRTCPX''*~03776,~(SP)
CSCH.11,(SP)
(SP)
+ ,aDXR
PC,WAITF

WAIT FOR READY.

;

READ CURSOR, GET DXR,DYR INTO RZ,.R4

CSCH.11 #WRTCPY!*03776,aDYR ; WRITE CURSOR Y TO 3776.

MJIRTCPY!*03776,-(SP)
CSCH.11,(SP)
(SP)+,aDYR

PC,GETCURS
R1,R2

R3,R4
3s
RS
1%
CRWRO,RLXYE

;

CHECK DXR

(X=CURSOR)

; BR IF ERROR

;. CHECK DYR (Y=CURSOR)
;: BR IF OK.
;. DECREMENT THE RETRY COUNTER ;aaaR
; GO TRY AGAIN IF NOT NEGATIVE :aadR
; REPORT THE ERROR.

IOO535535>>>>END

SEGMENT

—

VSV11/VS11 == GRAPHIF SYS. DIAG MACRO M1113

060412

060416
5979
5980 060422
5981 060424
5982 060430

060430
060432
060434
5983 060440

5984 060444
060444
060446

060450

5985 060454
5986 060460
5987 060462
5988 060464
5989 060466
5990 060470
599N 060472
5992 060474
5993 060514
5994
5995 060516
95996 060522
5997 060524
5998 060526
5999 060532
6000 060534

SEQ 0159

;CHECK DUAL ADDRESSING == VERIFY THAT Y NOT (HANGED BY WRITING X.
012701
012703

100000
103776

012705
053705

140000

013700
010346
050516
012677

004737
010146
050516
012677
004737
020102
001002
020304
001412
005300
100356

CSMT3:

065012

1%:
10%:

122400

MOV
BIS

MWRTCPX
RS

BGNSEG
MOV

BISW3
MOV
BIS
MOV

JSR

027454

BISW3
MOV

BIS

122362
065234

CSCH.11,RS

; <<CLLKLKLKLKLLLLLBEGIN SEGMENT

Y
RO
CSRETR

R5,R3,aDYR
R3,-(SP)
R5, (SP)

(SP)+,aDYR
PC,WAITF
R5.R1,3DXR
R1,-(SP)
RS, (SP)
(SP) +,3DXR
PC,Cc TCURS

R1.R2

2%:
3%:

032701
001004
010301
012703
000733

#31T15!0,R]

BISW3

065010

; EXPECT CURSOR X TO BE O
#B]T15!403776,R3 ; EXPECT CURSOR Y TO BE ALL 1'S
CSCH.11,#WRTCPX,RS5 ; SET UP WRITE CURSOR W/ CHANNEL

mMov
MOV

2%
R3,R4
3%

BPL
HRDERR

ENDSEG

BIT
BNE

003776
100000
4%:

MOV
MOV
BR

. aaaR

: LOAD CURSOR Y WITH A PATTERN.

;

WAIT FOR STOP.

: LOAD OPPOSITE PATTERN INTO CURSOR X.

TR
IRIR

5973
5974
5975
5976 060402
5977 060406
5678 060412

CURSOR REGISTERS/SWITCH/MAT(H

D 13

PAGE 82

GET THE CURSOR INTO R2 & R4.

(HECK DXR (X=CURSOR)
BR IF ERROR

(HECK DYR (Y=CURSOR)

BR IF OK.

DECREMENT THE RETRY COUNTER ;aadaR
RO
GO TRY AGAIN IF NOT NEGATIVE ;aadaR
108
; REPORT THE ERROR.
CRDAX ,RLXYE
IOOO555555>>>END SEGMENT
TR

wev TEST 23

29-JAN-81 17:22

#403776,R1
A
R3,R1
#R]1T15,R3
1%

;
;
;
;
;

DID WE WRITE 1'S INTO X YET?
BR IF YES, SO WE'RE DONE.
NO, SO SWAP PATTERNS.
... SET UP TO WRITE Y T0 0.
LOOP BACK TO DO IT.

JSV11/vS11 == GRAPHIC SYS. DIAG MACRC M1113

vee TEST 23

CURSOR REGISTERS/SWITCH/MAT(CH

6002

2882

6005 060534 012701
6006 060540 012703
6007 060544
060544
6008 060550

6009 060554
6010 060556
6011 060562

012705
053705

013700

060562
060564
060566
6012 060572

010146
050516
012677
004737

06057¢
060600
C60602

010346
050516
012677

¢013 060576

6014 060606

6015 060612
6016 060614
6017 060616
6018 060620

6019 060622
6020 060624

602] 060626
ggsg 060646

6024 060650
5025 060654
6026 060656
6027 060660
6028 060664

6029 060666

004737

020102
001002
020304

103776
100000
140000
065010
065012

E_13

PAGE 83

SEQ 0160

:CHECK DUAL ADDRESSING =~ VERIFY THAT X NOT (HANGED BY WRITING Y.
#8]1T15!403776,R1 ; EXPECT CURSOR X TO BE ALL 1'S
CSM14: MOV
; EXPECT CURSOR Y 70 BE O
#MIT15'0,R3
MOV
; SET UP WRITE CURSOR W/ (HANNEL
WRTCPX,RS
CSCH.11,#
BISwW3
1%:

10%:

MOV
BIS

MIRTCPX,RS
(SCH.11,RS

BGNSEG
MOV
BISW3

: <K<K <BEGIN SEGMFNT
; aaaR
CSRETRY,RO

RS5,R1.,aDXR

: LOAD CURSOR X WITH A PATTERN.

R5.R3,aDYR

: LOAD OPPOSITE PATTERN INTO CURSOR Y.

PC.,GETCURS

; GET THE CURSOR INTO RZ & R4.

122244
027454

MOV
BIS
MOV
JSR

R1,=-{(SP)
RS, (SP)
(SP)+,aDXR
PC,WAITF

122232

MOV
BIS
MOV

R3,~(SP)
R5, (SP)
(SP)+,aDYR

CMP
BNE
o

R1.R2
2%
R3.R4

: CHECK DXR (X=CURSOR)
: BR IF ERROR
: CHCCK DYR (r=CURSOR)

DEC
8PL

RO
108

: DECREMENT THE RETRY COUNTER ;aaaR
: GO TRY AGAIN IF NOT NEGATIVE ;aaaR

BIT
BNE
MOV
MOV
BR

#~03776,R3
4%
R1.R3
#3IT15,R1
1%

: DID WE WRITE 1'S INTO Y YET?
; BR IF YES, SO WE'RE DONE.
: NO, SO SWAP PATTERNS.
: ... SET UP TO WRITE x TO 0.
: LOOP BACK TO DO IT.

BISW3

JSR

065336

001412

2%:

005300
100356

3%:

032703
001004
010103
012701
000733

29-JAN-81 17:22

003776

100000
6%:

BEQ

HRDERR
ENDSEG

: BR If OK.

: REPORT THE ERROR.
(RDAY ,RLXYE
:>>>>>>5>>>>>END SEGMENT

JSVI1/vS11

eee

TESQY

== GRAPMIC SY 5. DIA G

6031
6032
6033
6034 060666
6035
6036

MACRO M1113

CURSOR R EGISTE RS/SW]TCH/MAT(H

29-)AN-81 17:22

005001
012703

(SMTS:

003776

CLR

#LDCP,=(SP)

175000

065004
065042

CSCH.6, (SP)

012746
053716
012637

146100

#CURD , = (SP)

065006
065050

012777
004737
052701
052703
004737
020102
001002
020304

1A
(SP)+,CSMF

CSCH.8.MCURD.CSMFIR ; ... BY

065042
027454

(SP)+,CSMF1B

122062

2%:

<<(<<(<<((<<(EEGXN SEmENT
BONSEG
#CSMF
1A
: EXECUTE LOAD THEN READ OF
DPSTART
START THE DPU.
:
C
NCSMF1A,@DF
MOV
FOR DISPLAY STOP.
WAIT
*
TF
PC,wA]
JSR

065362

3%:

Mov
MOV

BIS
8IS
JSR
cMP
BNE
cMP
8EQ
DEC
BPL

HRDERR

100002

003776

: INSERT X COORD. TG BE WRITTEN
T ... AND THE Y COORDINATE.

MOV

100000
100000

100002

R1,CSMF1A+2
R3.CSMF 1A+4
CSRETRY,RS

1%:

ENDSEG

062701
162703
032701
001330

~SERTING THE CHANNEL.

CSCH.8, (SP)

065044
045046
065012

001412
005305
100357

061042
6060 061044

: INIT THE X PATTERN T0 0
R1
* INIT THE v PATTERN TO AL 1°S
#-03776.R3
CSCH.6,#LDCP,CSMF1A ; SET UP THE DISPLAv FILE

012746
053716
012637

013705

061036

SEQ 0161

: DO WwRITE/READ TEST USING DISPLAY FILE.

010137
010337

061026
061032

F13

PAGE 84

ADD

SUB
BIT
BNE

CURSOR.

#MmiT15, R

* EXPECT THE CURSOR FLAG BIT IN DXR

PC,RDDXY

1 GET MASKED DXR AND DYR INTO R2 AND R4,

3
R3,R4

* CHECK DYR FOR Y CURSOR.

#BIT15°R3

... AND DYR.

* CHECK DXR FOR X CURSOR.

R1°R2

1 BR IF INCORRECT.

/X3

P BR IF OK.

CRWRE ,RUXYE

ERROR ~- DXR OR DYR WRITE/READ ERROR.

>>>>>>>>>>>>END SEGMENT

#2.BIT15,R1
#2 BIT15,R3

; INCREMENT THE X PATTERN.
; DECREMENT THE Y PATTERN.

; LOOP BACK IF NC.

#~03776 ,R1

; DID WE INCREMENT X AROUND TO O?

YSV11/7VS11 == GRAPHIC SYS. DIAG MACRO M1113

vee TEST 23

CURSOR REGISTERS/SWITCH/MAT(H

6062

29-JAN-81 1/:22

G 13

PAGE 85

SEQ 0162

; es« SPACE HERE FOR TFSTING GENERAL DUAL ADDRESSING (AcL DBUS CODES & CHANNELS)

2822

6065

: VERIFY THAT THE SWIT(H, MATCH AND CROSSHAIR ENABLES (AN BE C(LEARED 10 0'S.

6067 061044

(SMT6:

6068 0610646 004737 026176

BGNSEG

1 €<

JSR

PC, DSBINT
fiBIT1S R1

012701

100000

MOV

R1,R3

061060
061064

012746
053716

042077
065006

#UJSS“077 -(SP)
CSCH.B.(SP)

6072 061074

004737

027454

MOV
8IS
MOV

0127646
053716

042052
065006

6074 061114

013705

065012

6076 061124

020102

6078 061130

020304

6069 061052

6070 061056

6071 061060

061070

607% 061100

061100
061104
061110

010103
012677

012677

121742

6079 061132

6080 061134
6081 061136
6082 061140
2832 061160

(SP)+,3DXR

MOV
BIS

#WJSS'BITS'BIT3.BIT1,~(SP)
CSCH.8,(SP)

MOV

CSRETRY RS

(SP) +,aDXR

PC,GETJSE

001002

BNE

001412

BEQ

2%:
3%:

. WAIT FOR READY.

CSCH. 8,#WJSS.BITS!BIT3!'BIT1,aDXR ; THEN CLEAR THEM,

JSR

005305
100370

DITTO FOR DYR.

(SCH.8, lUJSS"O?? aDXR ; FIRST SET ALL ENABLES.

PC, UAITF

MOV

1%:

: EXPECT DXR TO BE O

JSR

B81Sw3

121722

6075 61120 004737 065404
6077 061126

BISW3

<BEG]N SEGMENT

: DISABLE INTERRUPTS

; aaaR

: GET THE ENABLES [NTO R2 AND R4.

R1,R2

: CHECK DXR (X=CURSOR)

(MP

R3.R4

: CHECK DYR (Y=CURSOR)

DEC
BPL

RS
18

: DECREMENT THE RETRY COUNTER ;aaaR
: GO TRY AGAIN IF NOT NEGATIVE ;aaaR

(MP

HRDERR
ENDSEG

; BR IF ERROR
: BR IF 0OK.

: REPORT THE ERROR.
JSEWRZ,RLXYE
>>>>>>>>>>>>END SEGMENT

2%%2

: VERIFY THAT THE SWITCH, MATCH AND CROSSHAIR ENABLES (AN BE SET TO 1'S.

6087 061162

{SMT7:

6088 061164
6089 061170

6090 061174

061174

061200
061204

6091 061210

6092 061214

061214
061220
061224

6093 061230

6094 061234

6095 061240
6096 061242
6097 061244
6098 061246
6099 061250

6100 061252
6101 061254
6102 061274

012701
012703

114000
110000

BGNSEG

; <<

' JSMIES.RT ; EXPECT DXR TO HAVE SW & MAT SET.
#3IT15'JSSIES
#RIT1S'CHIE,RS ; EXPECT DYR TO MAVE (CROSSHAIR ENABLE SET.

MOV

#WJSS!BITS!'BIT3!RITT,~(SP)

JSR

PC. wAITF

BISW3

CSCH.S,#UJSS!BITS'8113'8171 aDXR : FIRST CLEAR THEM,

012746

0462052

004737

027454

012746
053716

042077
065006

MOV
BIS

#UJSS"07? -(SP)
(SCH.8,(SP)

013705

065012

MOV

(SRETRY,RS

053716
012677

012677

004737

020102
001002

BIS
MOV

065006
121626

BISW3
MOV

121606

0654064

'$:

001412

005305
100370

JSR

(MP
BNE

(MP

020304

2%:
3% :

LKLBEGIN SEGMENT

MOV
MOV

BEQ

DEC
8PL

HRDERR
ENDSEG

CSCH.8,(SP)
(SP)+,aDXR

: WAIT FOR READY.

CSCH. 8,MJJSS!'*077,aDXR ; THEN SET THEM,
(SP)+,aDXR

PC,GETJSE

R1,R2
2%
R3,R4
3%
RS

; oaaR

: GET THE ENABLES INTO R2 AND R4,

: CHECK DXR (X=-CURSOR)
: BR IF ERROR
: CHECK DYR (Y=CURSOR:
: BR IF OK.
: DECREMENT THE RETRY (OUNTER ;aaaR

: GO TRY AGAIN IF NOT NEGATIVE ;aadaR

- REPORT THE ERROR.
JS”.WRO,RLXYE
>>>>>>>)>>>>END SEGMENT

JSV11/7yS11 == GRAPHI( SYS. DI AG MACRO M1113

eee TEST 23

CURSOR REGISTERS/SWITCH/MAT(H

6104

29-JAN-81 17:22

H13

PAGE 86

SEQ 0163

; TEST ENABLES WITH GENERAL WRITE/READ FROM DISPLAY FILE.

2%82
6107 061276

112737

000000

6110 061314

0613164
061320
061322

6111 061326

061326
061332

061334
6112 061340

061360
061344
061346

6*1'% 061352

061352

061356

6114 061360

012746
050416
012637
012746
050416

012637
012746
050416
012637

012746

050416

012637

64115 061364

6116 061366 (12701
6117 06137
6118 061374
6119 061400
6120 061404
6121 061406
6122 061412
6125 061414

6124 061420

026106

6130 061440

6139 061464
061464
061472
6140 061476
6141 061502
6142 061504
6143 061506
6144 061510

6145 061512
6146 061514

013700

012777
004737
004737
(20102
001002
020304
001412

005300
100%653

#0 ., INTMASK

: ENABLE INTERRUPTS, TC FIND BAD ONES.
: GET A COPY OF THE CHANNEL #, FOR INSERTING.

MOV
BIS
MOV

#CUJOFF 'CUOFF ,-(SP)
R4, (SP)
(SP)+,CSMF2A

MOV
BIS

#.DJSS,-(SP)
R4, (SP)
(SP)+,(SMF2B

065060

MOV
8IS
MOV

#CURD ,~(SP)
R4, (SP)
(SP)+,(SMF2C

146077

MOV

#LDJSS.*077,-(SP)

MOV

(SP)+,CSMF2D

BISwW3

1466052

065054

BISW3

146000

MOV
BISwW3

065C56
146100

BISW3
BIS

065064

1%:

100000

065054
027454
065430

121340

: SET UP TG GENERAL WRITE.

R4, #CURD,CSMF2C ; SET UP FOR READ.

R4 ,ALDJSS!*077,CSMF2D

; SET UP TO SET ALL.

R4, (SP)

: CCKCCCKCCKLK<<BEGIN SEGMENT

: ASSUME JSSIE AND JUSMIE WILL BE O.

R1.,R3
(SMF2B,RS
#JSWE RS
2%
#J)SWD RS
2%
#JSSIES,RT

: ASSUME CHIE WILL BE O.
: GET A COPY OfF THE WRITTEN BITS.
: ENABLED TO WRITE SWITCH ENABLE?
: BR IF NO -- LEAVE EXPECTED ALONE.
: WRITE 10 1?
: BR IF NO -~ LEAVE AT 0.
: YES == SET EXPECTED STATUS.

BIT
BEQ
BIT
BEQ
8IS

#JMJE RS
3%
#JMWD RS
3%
#JSMIES R

: ENABLED TO WRITE MAT(H ENABLE?
: BR JF NO -- LEAVE EXPECTED ALONE.
; WRITE 10 1?
: BR IF NO -~ LEAVE AT 0.
: YES == SET EXPECTED STATUS.

BIT
BEQ
BIT
BEQ
BIS

#JCWE RS
A
#JCWD RS
4%
#CHIE ,R3

: ENABLED TO WRITE CROSSHAIR ENABLE?
: BR IF NO -~ LEAVE EXPECTED ALONE.
: WRITE 10 1?
: BR IF NO -- LEAVE AT 0.
: YES == SET EXPECTED STATUS.

4%:

MOV

(SRETRY,RO

; 2aaR

40%:

DPSTART #(SMF2A
#(CSMF2A ,aDP(
MOV
PC.WAITF
JSR
PC,RDJSE
JSR
R1,R2
CMP
419%
BNE
R3,R4
(MpP

3%:

065012

R4 ,ALDJSS,(SMFZ2R

#BIT15,R1

000004

010000

BGNSEG

FF ; SET UP TO CLEAR ALL.
'CUOFF ,CSMF2A
R4 ,#CUIO

MOV

2%:

000010

6131 061440 032705 000040
6132 061444 001405
6133 061446 032705 000020
6134 061452 001402
g}gg 061454 052703 010000
g}%g 061460

MOVR

PC,ENAINT
(SCH.8,R4

010103
013705 065056
032705 000002
001405
032705 000001
001402
052707 004000

6125 061420 032705
6126 061424 001405
6127 061426 032705
6128 061432 001402
6129 061434 052701

(SMT8:

JSR
MOV

6108 061304 004737 026114
6109 061310 013704 065006

41%:

MOV
MOV
BIT
BEQ
BIT
BEQ
BIS

BEQ

439

: EXECUTE CLEAR ALL, THEN GENERAL WRITE.
: START THE DPU.
: WAIT FOR DISPLAY STOP.
: GET DXR, DYR INTO RZ2, R4,
: CHECK DXR (X=CURSOR)
: BR IF ERROR
; C(HECK DYR (Y=CURSOR)
; BR IF OK.

B8PL

40%

; GO TRY AGAIN If NOT NEGATIVE ;aaak

DEC

; DECREMENT THE RETRY COUNTER ;aaaR

6147 061516
6148 061536
6149 061536
6150 061542
6151
6152
6153
6154
6155
656
6157
6158
6159
6160

G MA(RQ M1113

sSv11/7yS11 == GRAPHI( SY S. D
I
CURSOR R EGIS
eee TEST 23

RS/SWITCH/MAT(H
43%:

012701

012703

29-JAN=-8"
HRDERR

MOV
MOV

17:22

[ 13
PAGE 86-1

CEZWE ,RLXYE

RS
#BI1T15.CHIE

BIT

000001

BIT

#JSWE RS
5%
#J)SWD RS

BNE
BIC

5%
#J5SIES,RT

032705
001405
032705
001002
042701

000010

BIT
BEQ
BIT
BNE
BIC

# JMWE RS
6%
#JMWD RS
6%
#JSMIES ,R1

000040

6167

032705
001407
032705

BIT
BEQ
BIT

6169
6170

042703
013700

#JCWE RS
7%
#JCWD RS
7%
#CHIE ,R3

6161
6162
6163
6164

€165

6166

001004

6168
6171

061632

6172 061¢32

061632
061640

6173 061644
6174 061650
6175 061654
6176 061656
6177 061660
6178 061662
6179 061664
680 061666
6" 81 061670
6182
6183 061710
6184 061712
6185 061716
6186 061724
6187 061726
6188 061732

052777
004737
004737

004737

020102
001002
020304
001412
005309

5¢:

000004

610000

6%:

000020

000001
027456
027454

BNE
8IC

7%:

121172

DPCONT

8IS
JSR

065430

72%:

100361

005237
032737
001402
000137

MoV

065056
000077
061364

73%:

065056
BS:

BPL
HRDERR

ENDSEG
INC
BIT
BEQ
JMP

WwRITE TO 0?

BR IF NO -- | EAVE AT 1.
YES == CLEAR EXPECTED STATUS.

; ENABLED TO WRITE MATCH ENABLE?
; BR IF NO -~ LEAVE EXPECTED ALONE.
; WRITE T0 0?
; BR IF NO -- LEAVE AT 1,

; YES =~ (LEAR EXPECTED STATUS.

: ENABLED TO WRITE CROSSHAIR ENABLE?
; BR IF NO =-- LEAVE EXPECTED ALONE.
; WRITE 10 0?
; BR IF NO -- LEAVE AT 1,
; YES == CLEAR EXPECTED STATUS.
; @33R

CSRETRY,RO
;

#R1T70,aDPC

RESTART,

PC,WAITF

PC,WAITF
PC.RDJSE
R1,R2
72%
R3,R4
73%

WAIT FOR DISPLAY STOP.
; WAIT FOR DONE.

:; BR IF ERROR
:; CHECK DYR (Y=CURSOR)
: BR IF OK.
:; DECREMENT THE RETRY COUNTER :aaaR
;: GO TRY AGAIN IF NOT NEGATIVE aaaR
;; REPORT ThHE ERROR.

O35 5>>>>END SEGMENT

#2077,
SMF 2B
1%

: CONTINUE THE DPU.

: GET DXR., DYR INTC RZ2, R4.

CESWE ,PLXYE

TO SET ALL, THEN DO GENERAL WRITE.

;; (HECK DXR (X-CURSOR)

RO
7%

(SMF 2R

; ASSUME SWITCH & MAT(H ENABLES ARE 1.

: ASSUME CROSSHAIR ENABLE IS 1.

ENABLED TO WRITE SWITCH ENABLE?
BR IF NO -- LEAVE EXPECTED ALONE.

000002

004000

: REPORT THE ERROR.

JSM] ES,R1
MIT15.JSSIES.

032705
001405
032705
001002
042701

BEQ

SEQ 0164

;

INCREMENT THE LDJSS WRITE DATA.
; DONE ALL (OMBOS?
; BR TO EXIT IF YES.

: NO, SO LOOP BA(CK FOR ANOTHER ROUND.

VSv11/yS11 == GRAPWI( SYS. DIAG MACRO M1113

(URSOR REGISTERS/SW]ITCH/MAT(H

6191

6192
6193 061732
6194 061736
6195 0617462

004737
105037
013705

026074
026106
065006

6197 061746
6198 061752
6199 061756
6200 061762

062705
042705
020537
001451

000400

6196

6201
5202 061764
6203 061766
061766
061772
061776
6204 062002
€205

6206
6207
6208
6209
&210
6211
62°
2

6213
6214

PAGE €7

SEQ 0165

: CHECK THAT WRITING JS AND UM ENABLES OF OTHER (HANNELS "LEARS ENABLES Of

6190

176377

YS
e B,

eee TEST 23

29-jAN=-81 17:22

THE CHANNEL UNDER TEST,

SMTO:

1%:

065006

JSR
CLRS
MOV

PC.DPRESET

: DO SOFT INITIALIZE.

(SCH.8.RS

: GET CHANNEL # [N R5<9:8>

ADD

M]IT8,RS

8IC
(MP
BEQ

BGNSEG

012746
053716
012677
004737

042057
045006

012746
050516
012677
004737
012701
012703
013700
004737

042017

0201062
001002
020304
001412
005300

MOV
8IS
MOV
JSR

121034

027454

BISw3
MOV
BIS
MOV
JSR

121016

027654

100000
100000

065012
065404

10%:

12%:

105270

00C137

BISw3

061746

13%:

2%:

MOV
MOV
MOY

JSR
(MP
BNE
(MP
BEQ
DEC

B8PL
HRDERR

ENDSEG
JMP

INTMASK

INCREMENT TARGET (HANNEL

RS
#~(<B119'B]T8>

MASK THE (HANNEL FIELD.

BR = YES. DONE

BACK TO THE (HANNEL UNDER TEST?

RS,(S(H.8

1 €CCLCCC<CC<<BEG]IN SEGMENT

CSCH.8,MIRTISS ! JCWE . JMWE . JMWD . JSWE . JSWD ,aDXR

MWRTJISS ' JCWE . JMWE . MWD ! JSWE ! JSWD , = (SP)
(SCH.8,(SP)

; SET ENABLES

+ ,aDXR
(SP)
PC.WAITF

RS, MJRTJSS ' JMWE ' JMJD . JSWE ! JSWD, aDXR
MWRTJISS' JMWE ' JMID ! JSWE . JSWD ,~(SP)
R5,(SP)
(SP)+ ,a8DXR
PC,WAITF

#3]T15,R1

MIT15,R3
(SRETRY RO
PC.GETJSE
R1,R2
12%

; EXPECT ENABLES 710 BE CLEAR.
; aaaR
; LOAD R2 & R4 W/ DXR, DYR.
; (HECK DXR (X=CURSOR)
: BR IF

ERROR

;

OK.

R3,R4

; CHECK DYR (Y=CURSOR)

RO
10%

; DECREMENT THE RETRr (OUNTER :adaR
; GO TRY AGAIN [F NOT NEGATIVE ;aaaR

13%

JENOCL ,RLXYE

BR IF

; REPORT THE ERROR.

2O>>.55>>55>>>END SEGMENT

: LOOP BACK TO TRY ANOTHER TARGET,

VSV11/VS11 == GRAPHMIC SYS. DIAG MACRO M1113

eee TEST 23

CURSOR REGISTERS/SWITCH/MAT(H

6224
6225

29-JAN-81 17:22

K 13

PAGE 88

SEQ 0166

2%%9
6228

STEST THE SOFT JOYSTICK SWITCH INTERRUPT OPERATION:
1 (1) CLEAR SWITCH ENABLE, SET SWITCH, SEE THAT NO INTERRUPT PENDING.

6231

6229
6230

(2)
(3)

CLEAR SWITCH, SET SWITCH ENABLE, SEE THAT NO INTERRUPT PENDING.
SET BOTH SWITCH ENABLE AND SWITCH, SEE THAT FLAGS SHOWS PENDING

REPEAT (3), BUT ALLOW INTERRUPT AND CHECK RESUI TS

233%

(4)

6234

(5)

6236
6237

;

6235

INTERRUPT,

REPEAT (&) BUT FROM DISPLAY FILE, SEE THAT SWITCH INTERRUPT STOPS
PROCESSING AND GETS CURSOR.

%5§g

:(1) TEST THAT NO INTERRUPT REQUEST OCCURS WITH ENABLE CLEAR AND SWITCH SET.

6240 062106
6261 062110
6262 062114
062114
62463 062120

CSMT10: BGNSEG
JSR
INITDP
JSR
BISW3

062120
062124

062130
6244 062134

6245 062140

0621640
062144
062150
6246 062156

6247 062160
6248 062164

004737

026176

004737

025402

012746
053716

042002
065006

012677
004737

012746
053716
012677
004737

120702
027656

160000
065006
120640
027454

6251 062212

004737

027454

062216

6253 062224

MOV
BIS
MOV
JSR

004737 023422
012746
053716
012677
004737

6252 062216

BISW3

160002
065006
120664
027454

062164
062170
062176
6249 062200

6250 062204

MOV
BIS
MOV
JSR

012777

040000

000012

1$:

170624
120610

JSR

BISW3

: CCCCCCLLLKLCKKKBEGIN SEGMENT
. DISABLE INTERRUPTS.
PC,DSBINT
: INITIALIZE THE DPU.
. GO DO SOFT INIT, CHECK THE STATE.
PC.DPINIT
CSCH.8.#WJSS'JSWE.0,aDXR ; CLEAR SWITCh ENABLE.
#4JJSS! JSWE.0,~(SP)
CSCH.8,(SP)
(SP)+,aDXR
PC,WAITF

CSCH.8.#WECC'SWCHON,aDYR

= (SP)
CC
! SWCHON,
HWE
CSCH.8,(SP)
(SP)+,aDYR
PC.WAITF

PC, IIRCHK

CSCH.8,#WECC,aDYR

#GTJSSW,aDXR

:DISMISS INTR REQ, IF ANY

#0.FLG

:CLEAR PENDING INTERRUPT

#WECC,-(SP)
CSCH.8,(SP)
(SP)+,aDYR
PC,WAITF

JSR

PC,WAITF

WIDSRA
MOV

ENDSEG

: CHECK INTERNAL REGS FOR INIT STATE.

STURN OFF THE SWITCH

MOV
BIS
MOV
JSR

MOV

; SET THE SWITCH.

#08~C17.SETFLG,aDSR

2355355553 >>END SEGMENT

VSV11/VS11 == GRAPHIC SYS. DIAG MACRQ M1113
vev TEST 23

€255
6256
6257
6258 062226
6259 062230
6260 062234
062234
6261 062240
062240
062244
062250
6202 062254
6263 062260
062260
062264
062270
6264 062274
6265 062300
6266 062304
062304

6267 062310

CURSOR REGISTERS/SWITCH/MAT(H

29-JAN-81 17:22

L 13

PAGE 89

SEQ 0167

:(2) TEST THAT NO INTERRUPT REQUEST OCCURS WITH ENABLE SET AND SWITCH CLEAR.
004737

026176

004737

025402

012746
053716
012677
004737

160000

CSMT11: BGNSEG
JSR
INITDP
JSR
BISW3

065006

012746
053716
012677
004737
004737

042003
065006

004737

025402

AWECC.0,=-(SP)
CSCH.8,(SP)

BISW3

CSCH.8,#WJSS'JUSWE'JUSWD,aDXR

1%:

(SP)+,aDYR
PC,WAITF

MOV
BIS

#WJSS ! JSWE ' JSWD ,=(SP)
(SCH.8,(SP)

JSR

PC,I1IRCHK

JSR

PC,DPINIT

MOV
SR

120542

027454
023422

MOV
BIS

MOV
JSR

120564

027454

LBEGIN SEGMENT
: DISABLE INTERRUPTS.
: INITIALIZE THE DPU.
; GO DO SOFT INIT, (CHECK THE STATE.
PC,DPINIT
(SCH.8,#WECC'O,aDYR ; CLEAR THE SWITCH.

1 <KL
PC.,DSBINT

INITDP

ENDSEG

; SET SWITCH ENABLE.

(SP) +,aDXR
PC,WAITF

; CHECK INTERNAL REGS FOR INIT STATE.
: GO DO SOFT INIT, CHECK THE STATE.

155535555 >3>>END SEGMENT

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
wee TEST 23

6269
6270
6271
6272 062312
6273 062314
062314
6274 062320
6275 062324
062324

062330
062334
6276 062340
6277 062344
062344
062350
062354
6278 062360
6279 062364
6280 062370
062370
062376

6281 062402
062402
062404
062406
062426
6282 062426
6283 062426

062426
062432
062436
6284 062442
6285 062446
062446
062452
062456
6286 062462
6287 062466
6288 062474

6289
6290 062500
62500
6291 062506
6292 062512
6293 062514

CURSOR REGISTERS/SWITCH/MAT(H

29-JAN-81 17:22

M 13

PAGE 90

StQ 0168

:(3) SET SWITCH AND ENABLE, SEE PENDING INTERRUPT
; <<

(SMT12: BGNSEG

004737
004737
012746
053716
012677
004737

012746
053716
012677
004737
012701
012777
017702

025402
026176

INITDP
JSR
JSR

gE'BgéT§¥

MOV

#WJSS ! JSWE 1 JSWD,~(SP)
(SP)
8,H.
CSC

BISW3

042003
065006

LCLSKBEGIN SEGMENT

BIS

. GO DO SOFT INIT, CHECK THE STATE.

CSCH. 8, #WJSS ! JSWE ' JSWD,aDXR

JSR

(SP)+ ,aDXR
PC,WAITF

120460

MoV
BIS
MoV

(SP)
CC
! SWCHON,=AWE
CSCH.8, (SP)
(SP)+,aDYR

100016

MOV

120476

027454

BISW3

160002

065006

JSR

027454

000002

120432

RDDSRA
MOV
MoV

120436

020102
001410
64%:

012746
053716
012677
004737

160000
065006
120376
027454

012746
053716
012677
004737
012777
004737

042002
065006
120354
027454
040000
027454

012777
004737

000012
023422

004737

026074

JSR
ENDSEG
JSR

0K?

YES.

. NO.

(SCH.8,#WECC,aDYR

#WJSS!JSWE!O,~(SP)
CSCH.8,(SP)

WTDSRA
MOV

2%:

;

MOV

BIS

120326

aDSR,R?2

#WECC,~(SP)
CSCH.8,(SP)

MOV
JSR
MoV
JSR

120342

PC,WAITF

: EXPECT FLAGS TO SHOW PENDING.
#CHAR ' JSLCKO'PINTRB'PVECZ.,R1
: READ THE FLAGS REGISTER INTO RZ2.
FLG.R2
#SELFLG,aDSR
: READ FLG INTO R2 .

MOV
BIS
MOV
JSR

BISwW3

: TURN THE SWITCH ON.

CSCH.8,#WECC'!SWCHON,aDYR

IFERROR NOSWP] ,EXPREC
R1,R2
CMP
64%
BEQ
NOSWP] ,EXPREC,
HRDERR

BISW3

. ENABLE SWITCH INTERRUPT.

; TURN OFF THE SWITCH.

(SP)+ ,aDYR
PC,WAITF

CSCH.8,#WJSS!JSWE !0,aDXR

(SP)+ ,aDXR
PC,WAITF
#GTJSSW,aDXR
PC,WAITF

;DISMISS INTR REQ,

#0,FLG

; CLEAR THE FLAGS AND INTERRUPT.

#08~C17!SETFLG,aDSR

[F ANY

PC.IIRCHK

; CHECK THE INTERNAL REGISTERS

PC,DPRESET

; DO SOFT INITIALIZE.

555555555 >>END SEGMENT

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST 23

CURSOR REGISTERS/SWITCH/MAT(H

29-JAN-81 17:22

N 13

PAGE 91

SEQ 0169

;(4) SET SWITCH AND ENABLE, CHECK FOR PROPER INTERRUPT.
6

6298 062520
6299 062522
062522
6300 062526
6301 062532
062532
6302 062540

062540
062544
062550
6303 062554
6304 062560
062560
062564
062570
6305 062574
6306 062600
6307 062604
6308 062610
6309 062612
6310 062614
6311 062616
6312 062622
6313 062624
6314 062630
6315 062650
6316

004737
004737

025402
026114

012737

177610

012746
053716
012677
004737

042003

012746
053716
012677
004737
012702

160002
065006
120244
027454
0C0100
026107

105737
100002

005302
003373

INITDP
JSR
JSR

INTSET

026106

MOV

BISW3

105737
001414
012701

026107

000137

062654

!
,aDXR
JSS
JSWE ! JSWD
CSCH.8,#W

&
QDN,
CSCH.8,#WECC!SWCHO

PC,WAITF

MOV

#WECC!SWCHON,-(SP)

MOV

(SP)+,aDYR
PC WAITF
#100,R2

BIS

JSR

MoV
TSTB
BPL
DEC
BGT
TSTB

BEQ

MOV
HRDERR

062604

#%0177400! JOKCKIN!IOKJSS, INTMASK

BISW3

JSR

11%:

PC,ENAINT
JSS

; GO DO SOFT INIT, CHECK THE STATE.

MOV

BIS

108:

PC.DPINIT

KBEGIN SEGMENT

#WJSS ! JSWE ! JSWD,=(SP?
CSCH.8,(SP)
(SP) +,aDXR

MoV

065006
120262
027454

JMP

004737

026074

3%:

ENDSEG
JSR

: PRIME FLAG, EXPECT JSS
; ENABLE SWITCH INTERRUPT.

;

TURN THE SWITCH ON.

CSCH.8, (SP)

INTFLAG

: DID WE INTERRUPT?

; BR IF YES.

11%

R2
10%

INTFLAG

; DID WE GET GOOD INTERRUPT?

#10%,R1

; GET CPU PC.

; BR IF YES

WI
, INTERR
NOS

; MIGHT AS WELL QUIT.

2%:

6317 062654

6318
6319 062654
6320 062656

1 <KL

CSMT13: BGNSEG

;O35>5>>>>>>>FEND SEGMENT

PC,DPRESET

: DO SOFT INIT.

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST 23

6322
6323
63264
6325 062662
6326 062664
062664
6327 062670
6328 062674
062674
062700
062704
6329 062710
062710
062714

062720

6330 062724
062724

062730
062734
€331 062740
6332 062746

062746

062754

6333 062760
062764
062770
062774
062776
063002

063022

063026
063030
063034

063054
063054
063060
6346 063064
063064
063070
6347 063074
6348 063100
6349 063102
5350 063106
063106
063110
063112
063114
063116
063136
6351
6352 063136
6353 063142
6354 063144

CUKSOR REGISTERS/SWIT(H/MAT(H

29-JAN-81 17:22

B 14

PAGE 92

SEQ 0170

:(5) CHECK SWITCH INTERRUPT OPERATICN FROM DISPLAY FILE.
; <K<K C<BEGIN SEGMENT

CSMT14: BGNSEG

INITDP
JSR

004737
004737

025402
0261146

012746
053716
012637

175000

065004
065072

012746
053716
012637

146013
065006
065100

012746
053716
012637
112737

175402
065004
065102

0C0377

026107

012777
004737
004737
017702

065072
027454
027454

120056

026107

020227

065114

103412

045106

013701

065074

052701

013703
052703
005737

001416
004737

#LDCP,=(SP)

(SCH.6,#LDCP, CSMF3A

MOV

#CUIS,<(SP)

BISW3

F3C ; ... AND TURN ON SWITCH.
ECC
' SWCHON,CSM
CSCH.6,#LD

BIS
MOV

CSCH.8,#CUTS, CSMF3B
(SP)+,CSMF38

MOV
8IS
MOV
MOVR

#LDECC
| SWCHON,=(SP)

JSR
JSR

PCLWAITF
PC.WAITF

MOV
T1STB

BEQ

CSCH.6. (SP)
(SP)+, CSMF3C

#%0377. INTFLAG

aDP( ,R2

INTFLAG

#.-16,R1
WI
, INTERR
NOS

(MP
BLO

R2,#CSMF3D

BISW3

001002
020304
001410

65%:
64%:

004737

026176

004737

026074

3%:

(MP
BNE
CMP
BEQ
HRDERR

JSR
ENDSEG
JSR

: BR [F NO == 0K
: EXPECT A DPC PRICR TO STOPN.

CSMF 3A+4 R3

ggasrav

. GET MASKED DXR, DYR INTO R2,Ré4.

PC ,RDDXY

IFERRX?Z SWNOCU, RLXYE

020102

: DID THE DPC HIT THE STOPN?

: EXPECT DYR TO HAVE Y CURSOR.

#I1T15,RS

065362

: BR IF GOOD.

#BIT15.CSMF3A+4,R3

MOV
BIS

TST
BEQ
JSR

TEST FOR GOOD INTERRUPT.

: EXPECT DXR TO HAVE X CURSOR.

065076

065012

: SAVE THE DPC.

#RIT15,CSMF3A+2,R1

BIS

100000

WAIT FOR DISPLAY STOP.
. WAIT FOR STOP.

SWNOHLT ,EXPREC

100000

BISw3

5TART THE DPU.
START THE DPU.

2%
#CSMF3C+4 R

CSMF 3A+2 R
#BIT15,R1

MOV

: PRIME THE INTERRUPT FLAG.

.
-

MOV
HRDERR

;... AND SET SWITCH ENABLE

(SP)
8,H.
CSC

LPSTART #C SMF 3A
#CSMF3A,aDPC
MOV

2%:

; SET UP DISPLAY FILE TO LOAD CURSOR,

CSCH.6,(SP)
(SP) +,CSMF3A

BISW3

1%:

; GO DO SOFT INIT, C(HECK THE STATE.
; ENABLE INTERRUPTS.

MOV

BIS

062760

012701

MOV

BISwW3

120042

105737
001412
012701

JSR

PC,DPINIT
P(,ENAINT

R1,R2
659

:. 1ST
. NO.

649
SWNOCU,RLXYE,

; YES.
; NO.

R3 R4

ITEM OK?

; OND ITEM OK?

PC.DSBINT
OOO>555555>>END SEGMENT

PC,DPRESET

; DO SOFT INIT,

WSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

see TESY 23

CURSOR REGlSTERS/SUITCH/MATCH

6356

2%25
6359 063150 004737 026074
6360 063154
6361 063156 112737 000000 026106
6362 063164
063164
063170
063174

012746
053716
012637

146076
065006
065162

063204
063210

053716
012637

065004
065166

6363 063200
063200 012746
6364 063214

29-JAN-81 17:22

MOV
BIS
MOV

lCUIM'CUON -(SP)
CSCH.B.(SP)
(SP)+,CSMF4B

BIS
MOV

CSCH.6,(SP)
(SP)+,CSMF&4LC

BISW3
MOV

175000

BISwW3
MOV
BIS
MOV

012746
053716

012637

146152
065006
065210

012737
012737

020002
020002

065302
065320

6370 063272 112737 000202
6371 063300 032737 000001

026106
027700

MOVB
BIT

6373 063310
063310

117514

MOV
JSR

063234
063240

81Sw3
MOV
BIS
MOV

6366 063244 012737 000002 065264
6367 063252
6368 063260
6369 063266

004737

6372 063306

001406

063316

012777
004737

026176

065%'16
027454

6374 063322

000405

063324
063332

012777
004737

065132
0274654

6378 063340

004737

026114

6381 063360
6382 063366
6383 063374

017737
017737
005737

001302
001272
003230

065172
065170

6385 063402
6386 063410
6387 063412
6388 063420
6389 063426

032737
OO1Q12
012737
0.2737
012737

000002

065172

000004
020004
020002

Q65244
065302
065320

6375 063324

2;;9 063336

117500

6384 063400

6390 063434

001027

000411

11%:

°2%:
3%:

30%:

6395 063460

4%:

6396 063462

112737 000200

CSCH.6,#LDECC ' SWCHON, CSMF4(

#LDECC'SWCHON,-(SP)
CSCH.6,(SP)
(SP)+, CSHF4C

CSCH. 8 #CURD ' JSWE ! JMWE ' JCWE ,(SMF4J
lCURD'JSUE'JMUE'JCUE -(SP)
(SCH.8,(SP)
(SP)+,(SMF&J

#2.,CSMF4F +2

JSR

PC, DSBINT

: ASSUME NON-INTERLACED POSITION

M2, CSMF4G+?2
M2, CSMF4H+?2

#IOKCKIN'IOKJSM INTMASK ; SAY MATCH INTR Ok, WE WILL CHECK.
: ARE WE IN AN ODD-NUMBERED ITERATION?
#81T70,L00PK
: BR IF NO.
11%
BEQ
: YES -=-START THE SETUP FILE FOR VISUAL.
DPSTART #(CSMF4V

6391 063436 012737 000002 065264
6392 063444 012737 020002 065302
2;32 063452 012737 020004 065320
026106

CSCH.6.,#LDCP,CSMF4LC
#LDCP,=-(SP)

MOV

MOV
MOV

1%:

6379 063344 012737 064670 064666
6380 063352 012737 064670 064664

: DO SOFT INIT.

; CCCCCLCCLCCCLCLLBEGIN SEGMENT
BGNSEG
: DON'T EX2ECT INTERRUPTS
”0, INTMASK
MOVB
: INSERT CHANNEL # [N FILE.
BISwW3 CSCH 8,#CUIM! CUO* ,(SMF4B

175402
065004
065156

6365 063230
063230

SEQ 0171

; VERIFY THE CURSOR MAT(H OPERATION.
PC.,DPRESET
C(SMT15: JSR

012746
053716
012637

063214
063220
063224

C.14

PAGE 93

#CSMF 4V ,aDP(C
PC,WAITF
1%

DPSTART #(SMF4U

: START THE DPU.
; WAIT FOR DISPLAY STOP.

; START TO PUT MEMORIES IN WRITE-ONLY MODE.
;. START THE DPU.
: WAIT FOR DISPLAY STOP.

MOV
JSR

H#CSMF LU, aDPC
PC,WAITF

JSR

PC,ENAINT

; ENABLE INTERRUPTS.

MOV
MOV
TST
BNE
BIT
BNE
MOV
MOV
MOV

ACSMPY , (SMF4Y
aCSMPX , CSMF 4X
INTIAG
..
A$
MRIT1,(SMF4Y
30%
#4 ,CSMF4F +2
MM .4, CSMF4G+2
#M!Z CSMF4H+2

: SETUP Y CURSOR POSITION.
: SETUP X CURSOR POSITION.
. ARE WE IN INTERLACED MODE?
: BR IF YES -: NO -- ARE WE ON AN ODD LINE?
: BR IF YES == CAN WRITE ABOVE, NOT BELOW
: EVEN LINE == SETUP FOR Y+4.
: ... AND BACK DOWN BY 4
: ... AND BELOW Y BY 2.

ENDSEG

(10)")
MOV

MOV

MOV
MOV

BGNSEG

MOVB

: CCCLLLLLLLLLLLLLLLLLLLLLLL END SEGMENT.

: CSMPY = TABLE POINTER FOR Y POSITIONS
: (SMPX = TABLE POINTER FOR X POSITIONS

#CSMPTR, (SMPY
#(SMPTB, (SMPX

2 CSMF4F +2

M2, CSMF4G+2
MM .4, CSMF4H+?

aee

: ODD LINE == SETUP FOR Y+2,
: ... AND BACK DOWN TO Y,
. BU DOWN TO Y=4,.
;

; <CCLCLCLCLKKKLKLKBEGIN SEGMENT

fiIOKCKIN INTMASK

; SAY WE'LL CHECK UNEXP. INTR,

vee TEST 23

6397 063470
6398 063474
6399 063500
6600 063504
6601 063510
0402 063514

063514
063520
063524
6403 063530
6404 063534
6405 063542
063542
063550
6406 063554
6407 063560
6408 063564
6409 063566
6410 063570
6411 063574
6412 063614

6413 063616
6614 063616
6415 063622

6416 063624
6417 063626
6418 063630
6419 063632
6420 063634
6421 063636
6422 063656

6423 063662
6424 063662

6425 063670

6426 063676
063676
063704

6427 063710
6428 063714
6429 063720
6430 063722
6431 063724
6432 063726
6433 063732
6434 063740
6635 063746
6436 063752
6437 063754
6438 063756
6439 063760
6440 063764
6441 064004
222% 064006
6444 064012
6445 066012

6446 064020

CURSOR REGISTERS/SWIT(H/MAT(H

013705
013701
013703
052701
052703

065012
065170
065172
100000
100000

012746
053716
012677
004737
112737

160000
065006
117310
027456
000377

012777
004737

065176
027454

017702
105737
002414
010146
012701

026107

117252
026107
063552
403%:

004737
020102
001002
020304
001414
005305
100337

065362

000137

064552

112737

000202

026106

000001
027454
000100
026107

117126

052777
004737
012701
105737
100002
005301
003373
017702
017737
017737
105737
001617
002434
010146
012701

012601
000137
027727
001040

448

000377

117100
117100
117074
026107

45%:

40%:

003170
003172

61%:

063714

064046
117014

065234

MoV
1STB
BLT
MoV
MoV
HRDERR
MoV

5%:

SEQ 0172

#(CSMF4D ,aDPC
PC,WAITF

aDPC,R2
INTFLAG
403%
R1,=(SP)
#.-14. ,R1
IFAULT,INTERR
(SP) +,R1

; CLEAR THE SWITCH

; PRIME THE INTERRUPT FLAG

;

START THE DPU.

;

ANY INTERRUPTS?

; WwAIT FOR DISPLAY STOP.

PC,RDDXY
JSR
R1,R2
CMP
448
BNE
R3,R4
CMP
45%
BEQ
RS
DEC
438
BPL
HRDERR CRWRE ,RLXYE
8%
JMP
; GO TRY THE NEXT COORDINATES.
MOVB

MOVB

026107

D_14

PAGE 93-1

Y
CSRETRRS
MOV
(SMF4X ,R1
MoV
CSMF4Y ,R3
MOV
#IT15,R1
BIS
#8I1T15,R3
8IS
(SCH.8,4#WECC,aDYR
s]SW3
(SP)
= C,
MIEC
MOV
(SCH.8,(SP)
BIS
(SP) +,aDYR
MoV
PC,WAITF
JSR
#0377, INTFLAG
MOVR
DPSTART #(SMF4D
MoV
JSR

117262

012601

112737

43$:

29-JAN-81 17:22

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

DPCONT
BIS
JSR
MoV
TSTB
BPL
DEC
BGT
MOV
MOV
MoV
TSTB
BEQ
BLT
MOV
MOV
HRDERR
MoV
JMP

(MP
BNE

#JOKCKIN!JOKJSM, INTMASK ; SAY WE'LL CHECK FOR MAT(H
; PRIME THE INTERRUPT FLAG.
#%0377,INTFLAG

#B1T0,aDPC
PC,WAITF
#100,R1
INTFLAG
41
R1
40%
aDP(,R2
aDXR, SDXR
aDYR,SDYR
INTFLAG
5%
508
R1,-(SP)
#40% ,R1
NOCMI, INTERR
+ ,R1
(SP)
50%
DPC,#CSMF4K+2
51%

; CONTINUE THE DPU.

; WAIT FOR DISPLAY STOP.
; SETUP A WATCHDOG COUNTER.
; DID WE GET AN INTERRUPT?
; BR IF YES.

: GET DPC FOR ERROR.
; WAS IT A GOOD INTERRUPT?

; BR IF NO INTERRUPT OCCURRED.

;DID WE GET TO THE STOPN (NO MATCH)?
;

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
vev TEST 23

6447 064022
6448 064042

6449
6450 06460466
6451 064046
064052
064054
064074
064076
064116

CURSOR REGISTERS/SWITCH/MAT(H

000137
020227
00101

HRDERR

JMP

064362
50%:

065232

000412
000137

501%:

064362

51%:

064122

0646122
064126
064132
064136
064142
064142
0641446

064146
064150
064152

6466

017704

65%:
64%:

065170
065172

116630
116626

67%:
66%:

100000

;YES

HRDERR

NOMAT ,PNTCOOR

JNO MAT(CH AT ALL.

JMP

51%

027454
000004
116552

116550

020102
001002
020304
001410

69%:
68%:

110000

064332

012777
017702

000002

064336

020102

116476

o%:

116502

: GO CHECK OTHER MAT(H DATA,

: GO SEE IF IT MATCHES ELSEWHERE.

;COME HERE IF wE THINK WE GOT A MAT(H
#( SMF 4K ,R1
#LVEC'ALL,.R3
aDPC ,R2
aDSR,R4
65%

: EXPECT DPC TO BE JUST AFTER MAT(H.
: EXPECT DSR TO SHOW LVEC & ALL PIX 8ITS

: GET ACTUAL DPC.
; AND THE DSR.

: 1ST ITEM 0OK?
; NO.

(MP
BEQ
HRDERR

R3,R4
64%
MATPC(CS,EXPR(C2,

: ZND ITEM 0OK?
. YES.
. NO.

MOV
MOV
MOV
MOV

CSMF4X R
(SMF4Y ,R3
aDXR,R2
aDYR,R4

; GET EXPECTED MAT(H X
: ... AND THE Y.
: GET DXR, SHOULD HOLD MAT(H X
: GET DYR, SHOULD HOLD MAT(CH Y.

IFERRX2
CMP
B8NE
CMP
BEQ
HRDERR

MOV
JSR
ADD

116566

: GO SEE IF OTHER THINGS (HECK OUT.

CMNOM] ,PNTCOOR

BNE

012701

6482 064336

iFERRX2 MATP(CS,EXPR(CZ
R1,RZ
CMP

020102
001002
020304
001410

012777
004737
062701
017702
017704

NOMST ,PNTCOOR

SEQ 0173

HRDERR

MOV
MOV

020102
001002
020304
001410

013701
013703
017702

E_14

PAGE 93-2

: COME HERE IF NO MAT(CH INTERRUPT OCCURRED.
: DID WE DO A MAT(H STOP?
R2 ., #( SMF4K
CMP
. BR IF NO
501%
BNE

MOV
MOV

012701
012703
017702
017704

064172

6467 064172
6468 064176
6469 064202
6470 064206
6471 064212
064212
064214
064216
064220
064222
064242
6472
6473 064242
6474 064250
6475 064254
6476 064260
6477 064264
6478 064270
064270
064272
064274
064276
064300
064320
6479
6480 064320
6481 064324
064324

29-JAN-81 17:22

MATXYE ,EXPR(?
R1,R2
67%
R3,R4
66%
MATXYE ,EXPRCZ,

ARSTPOS ,aDXP
PC,WAITF
24 R

aDXR,R2
MOV
aDYR,R4
MOV
IFERRX2 MATPOS.,EXPR(C?2
R1.R2
CMP
69%
BNE
R3,R4
cMP
68%
BEQ
HRDERR MATPOS,EXPR(CZ2,

MOV

#LVEC,R1

MOV

#SELFLG,aDSR

RDDSRA

MOV

FLG,RZ

aDSR,R2

;
.
;
;
.

;
;
M
;
;
:
:
.

1ST ITEM 0K?
NO.
ND ITEM OK?
VYES.
NO.

: RESTORF GRAPHIC POSITION TO DXR, DYR
; WAIT FOR STOP.
; X SHOULD BE X(MATCH)+4

GET ACTUAL DXR
... AND DYR.

1ST ITEM 0OK?

NO.

¢ND ITEM OK?
YES.
NO.

; GET OP-CODE EXPECTED FOR FLAGS.

; GET FLAGS.

; READ FLG INTO RZ .

JFERROR MATFLE,FLGER,’$
; 0K?
R1,R2
(MP

00140

6495

066452

6496 064456

6497 C64456
6498 064462
0646466
6500 064472
6501 064476
064476
064500
064502
064504
064506
064526
6502 064526

6503
6504 064532
6505
6506 064552

6507 064554
6508 064562
6509 064570
6510 064572

6511
6512 064576
6513 064604
6514 064612

6515 064614
6516 004620
6517
6518 064620
6519 064620
6520 064624
6521 064632
6522 064634
6523 064640
6524 064640
064640
064644
064646

000377

026107

012777
004737
004737

065234
027454
027454
026107

116434

105737

002421
001446
017702
010146
012701
012601
000137
012701
012703
017702
017704

17%:

065334

062737
023727

000002

000137

063352

005237
023727
002002
000137

065002
065002

103002

004737
103401

000402

064666

060052
027646

064664
065000

JMP

18%:

HRDERR

MATUI ,PNTCOOR

8%:

ENDSEG

064666
065000

ADD
(MP

BHIS
JMP

9%:

10%:

{SMNEXT:

000004
1%:
CSMEND:

START THE DPU.
WAIT FOR DISPLAY STOP.

DID WE GET AN INTERRUPT?
; BR IF NO

R1,R2
71%
R3,R4
70%

HRDERR

INTERRUPT FLAG.

MATUI, INTERR
(SP)+,R1

(MpP
BNE
cMp
BEQ

71%:
70%:

THE

R1,=(SP)

; GET EXPECT STOP DPC.

; DSR SHOULD HAVE STOP + GOLD COLOR.

#STOPN.GOLD,R3
aDP(C,R2

GET THE DPC.
GET THE DSR

aDSR,R4

IFERRX2 MENDPCS ,EXPR(?

064552

; PRIME

START AGAIN TO SEE IF WE GET BAD MAT(H

; BR IF GOT ''GOOD'' INTERRUPT.

H(SMF41+2
,R1

116340
116336

NC.

INTFLAG
175
18%
aDPC,R2

MOV
MOV
MOV
MOV

173200

063366

#(SMF
4E ,aDP(
PC,WAITF
PC,WAITF

YES.

4E
DPSTART #CSMF

MOV
MOV
mMov
HRDERR
MOV
JMP

064552

000137

103002

MoV

BLT
BEQ

064404

000002
064664

#0377, INTFLAG

JSR
JSR

116410

062737
023727

MOVB

TSTR

020102
001002
020304
001410
000137

7%:

HRDERR

7%
MATFLE ,FLGER,

6485
6486 064406
6487 066412
6488 066414
6439 066416
064422
6491 066424
6492 064430
6493 064450

112737

BEQ

SEQ 0174

6483
6484

7%:

MENDPCS ,EXPRCZ,

#2,CSMPX

CURZOR REGISTERS/SWITCH/MAT(H

PAGE 93-3

vee TEST 23

29-JAN-81 17:22

/Sv11/yS11 == GRAPHIC SYS. DIAG MACRO M1113

1ST
NO.

YES.
NO.

ITEM OK?

:O555>5>>>>>>END SEGMENT

; BUMP POINTER TO X DATA.
; IS X POINTER AT END OF TABLE?
; BR IF YES == GO DO NEXT Y.

CSMPX ,#CSMPTE
9%
3

; LOOP BACK.

ADD
CMP

#2,CSMPY

(SMPY ,#CSMPTE
108
2%

; IS Y POINTER AT END OF TABLE?

INC
CMP
BGE
JMP

CSCHAN

;
;
;
;

BHIS
JMP

COMEND
JSR
BCS
BR

; BR IF YES -- WE'RE DONE.
; NO == GO DO NEXT Y.

#4
CSCHAN,
1%

CSMLOOP
CSMITR

PC,LOOP

64%
65%

;

REPEAT

INCREMENT TO NEXT CHANNEL
DID WE DO ALL AVAILABLE CHANNELS?
BR IF YES == GO TO EXIT.

NO. LOOP BACK TO TEST NEXT (HANNEL.
'TIL LOOPER EXPIRES.

wee TEST 23

064650

000137

060046

648

JMP

(SMITR

064654
6525 0646660
6526
6527
6528
6529

004737

03007¢

65%:

JSR

PC,TSTEND

6530
6531 064664
6532 064666
6533

6534 064670
6535 064702

6536
6537 064714
6538 064726
6539 064740

6540 064750

€541
6542
6543
6544
6545
6546
6547

6548

$64764
065000

065002
065004

065006
065010

6549 065012
6550
6551
6552 065014
6553 065040
6554
6555
6556
6557 065042
6558 065050

6559 065052

6560
6561 065054
6562 065056
6563 065060
6564 065064
6565 065066
6566

6567 065072

6568 065100
6569 065102
6570 065104
6571 065114
6572
6573
6574
6575 065116
65;9 065126
65

6578 065132

SEQ 0175

CURSOR REGISTERS/SWITCH/MAT(H

CSMXIT: EXIT

18T

: PRINT ERROR SUMMARY, [F REQ'D.

: TABLE OF MAT(CH POINTS == ALL VALUES ARE USED FOR X AND Y:
CSMPX:
CSMPY:

000000
000000

000000
000040
001776
001776
001736
001252
000006
001770
00000C

000002
000100

000004
000200

001774
001676

001772
001576
001462
000036
001740

000524
000016
0C1760

.WORD
.WORD

(SMPTB: .WORD

.WORD

0
0

:ALL 1°'S FOR POSITION

.WORD
.WORD

: THEN, FLOATING O ON 1°S
A1,A184CBIT1,A18~CBIT2,A184CRIT3 A18~(CBITS
T9
A18*(BI
IT8
,A18~CR
IT7
A18~CB]TS,A1 ACBIT6,AT18~CR

.WORD
.WORD

6,16,36,76,176,376
1770,1760,1740,1700,1600,1400

.WORD
.WORD
.WORD

O
0
0

.WORD

000000
000000
000000
000000

CSCHAN:
CSCH.6:
(SCH.8:

000002

CSRETRY:

CSCH.11:

: ... THRU 9,

8]175,81716,8177,BIT8,BIT9

A1=*01776

CSMPTE:

; FIRST, FLOATING 1 ON 0°'S, BITS °

0.8111,81T2.BIT3,BIT4

.WORD

1252,524,1462,636

: ALTERNATING BITS AND PAIRS.

.WORD

: EXTENDED PRINTOUT FOR SYNC CHANNEL:

PRSYCH: PRINTX
RTS

000207

175000
146100
173000
146052
146012
146100
146077
160000
175000
146013
175402
164000
173000

000000

173000

065056

001332

002464

164000

#FSYCHAN,CSCHAN

:DISPLAY FILES FOR CURSOR/SWITCH/MATCH TEST -;LOAD CURSOR POSITION REGISTERS
LbCP,0,0
CSMF1A: .WORD
(SMF1B:

.WORD

CURD

;JREAD THEM BACK

CSMF2A:
CSMF2B:
(SMF2C:
CSMF2D:

.WORD
.WORD
.WORD
.WORD

CUIOFF ! CUOFF
CUIOFF

; CLEAR ALL ENABLES
; DO GENERAL WRITE

.WORD

DJMP, CSMF 2B

CUON!~077

; SET ALL ENABLES

(SMF3A:
CSMF3B:
CSMF3C:

.WORD
.WORD
.WORD

LDCP,*01332,%02464

CSMF3D:

.WORD

STOPN

CURD,STOPN

CUIS
LDECC!SWCHON

: READ CURSOR (ENABLES COME T00), THEN STOP
: THEN GO DO GENERAL WRITE AND READ.

; LOAD CURSOR WITH SOME DATA

; ENABLE SWITCH INTERRUPT
; TURN ON THE SOFT SWITCH

DNOP,DNOP ,DNOP,DNOP ; DO SOME NO-OPS == SHOULD STOP
; STOP == SWITCH DIDN''T WORK
STOPN

;DISPLAY FILE FOR CURSOR MATCH TEST:
176074
160000

176474

065142

177074

(SMF4V:

.WORD
.WORD

176034

176434

177034

CSMF4U:

.WORD

RDWRT ! CHO,RDWRT . CH1,RDWRT ! (H2 ,RDWRT . CH3
DJUMP, CSMF 4A

;

MEMORY SETUP, R/W.

T ; MEMORY SETUP, WRT-ONLY.
H1,WRH3
. (H2,WRT!(
WRT 'CHO,WRT.C

G 14

ySV11/VS11 ==~ GRAPHIC SYS. DIAG MACRQ M1113 29-JAN-B81 17:22 PAGF 93-4

6579 065142
6580 065144
6581 065150
6582 065156

170140
160001
160001
175402
146076
175000

065174
065176

065204
065210
065214
065220
065224
065226
065232
065234
065242
065244
065250
065260
065262
065266

065276
0653C0
065304

065314
065316
065322
065332

(65162
065156
1€5000

165000

160001
160001
113774
040004
173000

114000
113600

160001

065166
173000
065162
065156

160001

00u000
000000

020002
061776
113200
000002
040000

020002
000000

173000

065170

000000

000002
0461776
113300
020002
040000
113500

CSMF4RB: .WORD

CUON.CUIM,DPOP

(SMF4X:
CSMF4Y:

165000
1146000
160001
166152

CSMF4C: .WORD
CSMF4LC:

000000
000000

000002
001776

€20002
023776
173000

065170

041776
040000

.WORD
.WORD
.WORD

.WCRD

LDCP

€
O

DPOP

; ENABLE CURSCR AND MAT(H.

M LOAD CURSOR POSITION.

;X
;Y

RETURN.

; SET MAT(CH POSITION

CSMF4D: .WORD

APNT ,DJMS, CSMF&X

{SMF&.. .WORD

CURD. JSWE.JMWE. JCWE, STOPN

WORD

DJMS, (SMF4B
DJMS., CSMF&(C
LVEC!ALL
.4.,0

.WORD
.WORD

LVEC'YELLOU
2,0

.HORD

(SMF4F:

WORD

.UORD

.WORD

(SMF4]:

STOPN
APNT ,DJUMS, LSMF4X

...

:
.
.
;

. WORD

.WORD

LOAD CURSOR POSITION.
; STOP FOR (HEC(K.

GO TURN ON MATCH ENABLE
GO TURN ON SWIT(CH

SET TO WHITE.
DRAW, SHOULD MAT(H
WITH DPC AT F4K
: RESTART. SET POINT
. CHANGE COLOR

1.MAXX,0,1.M.MAXX,0

LVEC!'VIOLET

_WORD M!2,2
1.0,MAXY,].0,M!MAXY
UORD

C(SMF4G: .WORD
C(SMF4H:

DJMS, CSMFALC

.WORD
.WORD
. WORD
.WORD

(SMF4K: .WORD
(SMF4E: .WORD

061776
040000

SEQ 0176

: CLEAR THE MEMORIES.
CLRMEM
S
CSMF4B
: GO TURN ON CURSOR AND MAT(H ENABLE
,
DJM
; TURN SWITCH ON, AND STOP
DJMS,(SMF4C,STCPN
: TURN SWITCH ON, AND RETURN.
LDECC ! SWCHON,DPOP

(SMFLA:

173000

H 14

PAGE 93-5

VSV11/VS11 == GRAPHIC SY S. DIA G MACRO M1113 29-JAN-81
CURSOR REGISTE RS/SWITCH/MAT(H
vve TEST 23

17:22

LVEC.EGGBL

M2.M.2

1'M'mMAaXX,0,].MAXX,0

LVEC!GOLD

... THEN MOVE TO X+2, V.
. DRAW OUT TO RIGHT AND BA(K.
;

; GO TO ABOVE MAT(H POINT
h
. AND DRAW UP AND BAC(K.

.; DRAW LEFT AND BACK.

2.M!2

['0,M!MAXY, .0, MAXY

STOPN, STOPN

:SUBROUTINES:
027454

065336
6616 065342
065342
065346
065352
17
065356
66
6618 065362
065362
065366
065372
065372
065376
065402

004737

017704
042704
000207

074000

065404
065410
065410
065414

C04737

027454

065420
065424

012746
053716
012677

042100
065006

GETCURS: JSR
BISW3
MOV

BIS

027454

017702
042702

074000

115450

RDDXY:

042100
065006
115412

027454

aDXR,R2

BICW3
MOV

115442

#URTISS'BIT6,=(SP)
CSCH.8, (SP)

MOV

BIC

RTS

#~C<BIT15!403777>,R2

#;C<BIT15"03777>.aDYR, R4
aDYR

MOV

#WRTJISS'BIT6,=(SP)

BIS

JSR

: DXR TO R2, LEAVE FLAG & COORD.
: DYR TO R4, LEAVE FLAG & COORD.

)

PC,WAITF

MOV

WAIT FOR STOP.

#EC<BIT15"03777>Ré

JSR

BISw3

;

#‘C<BIT15'“0377/> aDXR,R2

;GET JOYSTICK ENABLES-

GETJSE:

: RETRIEVE CURSOR FROM SELECTED (HAN.

CSCH.8,#WRTJSS!BIT6,aDXR

(SP)+, SDXR
PC,WAIT

BICW3

; WAIT FOR

PC,WAITF

JSR

Mov

115460

004737

012746
053716
012677
004737

-SGET CURSOR COORDINATES, AND READ MASKED DXR, DYR INTO R2, R4
STOP BIT.

CSCH.8,#MIRTJSS!BIT6,aDXR

CSCH.8,(SP)
)
+ ,aDXR
(SP

PC,WAITF

;

WAIT FOR STOP.

: READ CURSOR

vee

TEST 23

6626 0656430
065430
065434
6627 065440
065440
065444
6628 065450
6629

CURSOR REGISTERS/SWITCH/MAT(H
115602

017702
042702

063777

017704
042704
000207

067777

29-JAN-81 17:22

RDJSE:

SEQ 0177

BICW3

#*C<BIT15!JSSIES!JSMIES>,aDXR,R2 ;DXR TO RZ2, LEAVE ENABLES

BI(
BICW3

#AC<BIT15! JSSIES!JSMIES>,R2
#*C<BIT15!CHIE>,3DYR,R4 ;DYR TO R4.

MOV

MOV
BI(

115374

[.14

PAGE 93-6

RTS

aDXR,R2

aDYR,R4
Ré
#*C<BIT1S!CHIE>
PC

END.TEST

6630 065452

: RN RN RN RN N NN R AN RN RO RN AN AN RN NN AN AN A AN AN AN
:!

I
’-'

IR AN O RAR

AT NN

END TEST 23

" t'ttittQ't.lt.."'.'.""'...'Q'Q....t""Q!.'Q't..tt.t'ti.'t"t."Q.'t

JSVI1/VS11 == GRAPHIC SYS. DIAG MACRO M1113

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
eee

TESY

GRAPH=H]STOGRAM X

6632

> &

29-JAN-81 17:22

PAGE 94

]

BEGIN TEST 26

bl|

[

SEQ 0178

".'Q."'fi""'tt."".'.Q'ttit.tt.t"t't...t.'tQ"'t'l".'t.tt".t'.t

s &

GRAPH=HISTOGRAM X

""."Q"..t'."tt""".tt'Qtfi.t't"t"ifi't"'.'.Qtit'.tt'...'t'."t

(ITERATION COUNT = 10.)
6633 065526
6634 065532
6635 065534
6636
6637
6638
6639
6640
6641
6642

005737
001402

002502

TST

DPJUMOD

;:DPU ONLY 22?

EXIT

TST

; EXIT THIS TEST >3>553>55>>>5>5>>>>>>>>>>>

B8EQ

JNO, EXECUTE.

GHXTST

: PLOT GRAPH X = 1600 TO 200 (DELTA 30), FOR Y = 76 TO 2.
: WHEN DONE, REPEAT IN HISTO MODE, WITH BASE = X-20.

: ?372z§1§efif FOR CONNECTED=-GRAPH AND FILLED HISTOGRAM, BUT AT LOWER

RUN THE MEMORIES IN 'WRITE-1°'S-ONLY'' MODE TO SEE STUFF.
S
.
: REPEAT EACH INCREMENT 10 TIMES AFTER QUICK PASS.

;

065540
065564
065552
065556
065562
065570
065576
065604
065612
065620

065626
065634

004737
012737
004737
004737
013737
012737
012737
013737
052737
012737
012737
012704

07702
066142
027054
026640
027700

123774
000000
066174
001600

001560
174176

001600

022300
003234
066212
066174

066214
066214
066200
066202

065652
065654
065662
065670
065672
065676
065702
065710
065712
065714
065720
065722
065726
065730
065750
065756
065762
065764
065766
065766

8%:

1%:

065640
065642
065646

G H XTST:

013701
042701
005005
052737
012777
000402
005277
004737
032737
001001
060105
027704
001003
027705
001410
042737
020527
103743
004727

177700

2%:

010000
066176

#1600,R4

13 $:

115112

066214

'AH

5¢:

JTITLE

:SET ERROR EXTENSION ADDRESS.
; BLAST LUT.
JINIT IN R/W=1°'S-ONLY MODE.
;SAVE A COPY OF LOOPK.
:SET G/H=-X MODE WITH MAX INTENSITY
:START WITH GRAPH FUNCTION
;SETUP THE FUNCTION IN FILE
:... AND SET IN THE X AMPLITUDE
JINIT BASE = x=20
SINIT Y INCREMENT = 76.
JINIT EXPECTED X.

; €CLCLLLLLLLLLLLELLLLLLLL<<< BEGIN SEGMENT.
YI,R]

;SET CURRENT INCR IN R1.

BI(

#4C77.R1

BIS

#GHI INH, XA

JINIT EXP Y.

#GHXT ,aDP(

;START NEW INCREMENT.

aDP(

;RESUME, PLOT NEXT 2OINT.

ADD

13%
R1.RS

JEXP Y - ¥ + INCR.

BNE

(LR
K

066214

#208 EXTA
PC,LUMIN
PC,CLRRWI
LOOPK , TEMP?2
#GHX'ALL ,XA-2
#0,GHXTYP
GHXTYP XA
#1600, XA
#1560,GHXT+2
#GY1.76,Y]

BGNSEG

INC

115116

027646

MOV

goge

115134

010000
001776

PC,TSTGO

MOV

066202

027454
010000

JSR

MOV
JSR
JSR
MOV
MOV
MOV
MOV
BIS
MOV
MOV

JSR
BIT
BNE

PC,WAITF
#GHI INH, XA

CMP

@DXR,R4

MP
BEQ

aDYR,RS
5%

(MpP
BLO
ENDSEG
LOOPTO

RS ,#MAXY
3%

HRDERR
BIC

sSR

;CHECK RETURNED X = X AMP. ..
;...AND Y = Y ¢+ INCR.

GHXF ,XYERR
#GH] INH, XA

PC,LOOP

;GHX FAILS.

:DONE THIS INCREMENT ?7?
JNOT YET, (ONTINUE.
5 €CCLLLCLLLLLLLLLLLLLLLCLCC<< END SEGMENT,
; REPEAT...

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

eve TEST 24

065772

~H X
] STOGRAM
GRAPH
103722

6682 065774 013737
6683 066002 023727
6684 066010 001414
6685 066012 162737
6686 066020 162737
6687 066026 162704
6688 066032 162737
gggg 066040 000677

003234
066202

027700
1764102

000002
000030

066202
066214

000030

066200

000030

6691 066042
6692 066046
6693 066050
6694 066056
6695 066060
6696 066066
6697 066070

005737 066174
001004
012737 040000
000652
023727 066174
001417
162737 000400

6700 066106

012737

6698 C66076
6699 066104
6701 066114

023727
001004

000633

30%:

066212

MOV
(MP
BEQ
SUB
SUR
SUR
SUR
BR

TEMPZ, L OOPK
Yl,aGYl.2

6%
#2,Y1]
#30,XA

:BR IF LAST INCR DONE.
;OTHERWISE, SET NEXT INCR...
;... AMPLITUDE...

#30,GHXT+?
1%

:...AND BASE LINE.
;DO NEXT SET.

TST
BNE
MOV
BR
CMP
BEQ
SUB

GHXTYP
30%
#HST ,GHXTYP
8%
GHXTYP ,#FHST
10%
#RIT8,XA=2

;JUST DID GRAPKW?
:...BR AHEAD IF NOT.
:YES. SET HISTO MODE
;...AND GO DO IT.
;JUST DID FILLED=-HISTO?
:DONE IF YES.
:1F NOT, DECREMENT INTENSITY.

020000

066174

(MP
BNE
MOV

066174

MOV

060000

6705 066126
6706 066132

004737
00,737

027514
030072

6;8% 066136

060000

31%:
10%:

#30,R4

;RESET LOOPER.

#CGRPH,GHXTYP

:JUST DID HISTO.?
:...BR AHEAD IF NOT.
:IF YES, NOW DO CONN-GRAPH

#FHST ,GHXTYP

:DiD C~GRPH, NOW DO F=HIST

GHXTYP,#HST
31%
8%

JSR
JSR

EXIT

;

SEQ 0179

040000

012737

000427

066174

K 14

PAGE 94-1

B(S

066174

6702 066116
g;gz 066124

6%:

29-JAN-81 17:22

PC ,PAUSE1
PC,TSTEND

TST

Jeen

: EXIT THIS TEST >>>3>333333335>>>>>>>>>>>>>

22?3

: ON ERROR, SHOW X AMPLITUDE AND Y INCREMENT.

6711 066142

20%:

;

g;}% 066172

000207

6719 066204
6720 066206
6721 066212

6722 066214

6723 066216

2;52 066220

RTS

#GHXYX,XA,YI
PC

;ERROR EXTENSION.

:DISPLAY CODE FOR GRAPH/HISTO X TEST.

g;}%
6716 066174
6717 066176
6718 066202

PRINTX

000000
150000
174100

114000
000000
123774

000000
000000

XA:

000000

173000

160000

GHXTYP: 0
SETHR,0
GHXT:
GYI1.0
Yi:
APNT
0.0
GHX .ALL

STOPN

:FUNCTION TYPE
:SET BASE LINE.
:SET Y INCR.

;X AMPLITUDE (BIT 14 = HST MODE).

DuMP, XA-?2

0662172

END.TEST

6726 066224

'ttl’t!!*t'tittfitttl’!’ttt'ittt*t*ttt*tttttttl*tittttttttttt‘ttttfittifit'ttt
*

w
4

END TEST 24

"tfi'tttl’tittttfi*titfil’t*ittt*ttt'ttt.tittttttt!ttt.tlttttttttttltitt'ttt'

r—

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST 25

GRAPH=H]STOGRAM ¥

6728

29-JAN-81 17:22

PAGE 95

6753 066412
6754
6755 066414
6756 066420
6757 066424
6758 066426
6759 066434
6760 066442
6761 066444
6762 066450
6763 066454
6764 066462
6765 066464
6766 066466
6767 066472
6768 066474
6769 066500
6770
6771
6772
6773
6774
6775
066540

GRAPH=-HISTOGRAM Y

tttt'tt.t'itfittfifiit"itttittitttt*tfit'tttt'fitfitttittttltt.t'*tttittitt

(ITERATION COUNT = 10.)
TST
BEQ
EXIT

002502

;DPU ONLY ??
;NO, EXECUTE.
3 EXIT THIS TEST >>>>>55333533333333>5555>>

DPUMOD

GHYTST
TST

PLOT GRAPH Y = 1600 TO 200 (DELTA 30), FOR X = 76 TO 2.
WHEN DONE, REPEAT IN HISTO MODE, WITH BASE = Y=20.
DO THE SAME FOR CONNECTED-GRAPH AND FILLED HISTOGRAM, BUT AT LOWER
INTENSITY. RUN THE MEMORIES IN 'WRITE=1°'S~-ONLY'' MODE TO SEE STUFF.
REPEAT EACH INCREMENT 10 TIMES AFTER QUICK PASS.

004737
012737
004737
004737
013737
012737
012737
013737
052737
012737
012737
012705

027702
066714
027054
026640
027700

127774
000000
066746
001600

001560

174176
001600

022300

H YTST:

003234
066764

066746
066766
066766

8%:

066752
066754

1%:

013701
042701

005004
052737

012777
000402
005277
004737
032737
001001

060104
027704
001003
027705
001410

066766

2%:

3%:

066766
13 $:

114344

042737
020427
103743

010000
001776

004737

027646

066766

#20% ,EXTA
PC,LUMIN
PC,CLRRW
LOOPK , TEMP?2
#GHY 'ALL, YA=2
#0,GHYTYP
GHYTYP,YA
#1600,YA
#1560,GHYT+2
#GX1!76,X1
#1600,RS

xI,R1

: SET ERROR EXTENSION ADDRESS.
; BLAST LUT.

JINIT IN R/W-1'S-ONLY MODE.
:SAVE A COPY OF LOOPK.
:SET G/H-Y MODE WITH MAX INTENSITY
;START WITH GRAPH FUNCTION
;SETUP THE FUNCTION IN FILE

;... AND SET IN THE Y AMPLITUDE
JINIT BASE LINE = v=20.
JINIT X INCREMENT = 76.
JINIT EXP Y.

:SET CURRENT INCR IN R1.

#~C77.,R1

BIS

#GHIINH,YA

CLR

;TITLE

LKL BEGIN SEGMENT.
5 €CLCLLLLLLLLLLLLLLL

BI(

JINIT EXP X...

#GHYT ,aDPC(

:START NEW INCREMENT.

INC

aDP(

:RESUME, PLOT NEXT POINT.

ADD
cmMP

R1.,R4
aDXR,R4

JEXP X = X + INCR.
;CHECK RETURNED X = X + INCR...

aDYR,R5

:...AND Y = Y AMPL.

JSR
BIT
BNE

BNE

CMP

114340

PC,TSTGO

BGNSEG

?0;2

114370

114362

027454
010000

MOV
JSR
JSR
MOV
MOV
MOV
MOV
BIS
MOV
MOV

MOV

066754
177700

010000
066750

JSR

MOV

wa
AP

6749
6750
6751
6752

’

005737
001402

BEGIN TEST 25

6729 066300
6730 066304
6731 066306
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748

SEQ 018C

!‘tt't'"Qt"fi'fit't"ti'tt.tttiit't"tttt*ttittt't!'ttt"titttt"'fit.'

[

BEQ
HRDERR
BIC

CMP
8LO

ENDSEG
LOOPTO
JSR

PC,WAITF
#GHIINH,YA
13%

5%
GHYF ,XYERR
#GHIINH,YA

R4 ,AMAXX
3%
1%

PC,LOOP

:GHY FAI]LS.

:DONE THIS INCREMENT ?2?
JNOT YET, CONTINUE.

5 <<LCCLLLLLLLLLLLLLLLLLLLL< END SEGMENT,
; REPEAT...

—

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

w2 TEST 25

GRAPH-H]STOGRAM Y

066544

103722

6778 066546

013737

6776
6777

6779 066554
6780 066562

6781 066564

023727
001414

162737

6782 066572
6783 066600

162737
162705

g;gg 066612

000677

6784 066604

162737

6787 066614 005737
6788 066620 001004
6789 066622 012737
6790 066630 000652
6791 066632 023727
6792 066640 001417
6793 066642 162737
6794 066650 023727
6795 066656 001004
6796 066660 012737
6797 066666

000633

003234

SuB

#30,GHYT+?2

;...AND BASE LINE.

TST
BNE
MOV
B8R
cMP
BEQ
SuB
CMP
BNE
MOV

GHYTYP
308
#HST ,GHYTYP
8%
GHYTYP ,#FHST
10%
#B1T8,YA-2
GHYTYP,#HST
31%
#CGRPH,GHYTYP

:JUST DID GRAPH?
;...BR AHEAD IF NOT.
;YES. SET HISTO MODE
;...AND GO DO ]T.
;JUST DID FILLED=-HISTO?
;DONE IF YES.
;1F NOT, DECREMENT INTENSITY.
;JLST DID HISTO.?
:...BR AHEAD IF NOT.
;IF YES, NOW DO CONN-GRAPH

MOV

#FHST ,GHYTYP

:DID C~GRPH, NOW DO F-HIST

JSR
JSR

PC ,PAUSE1
PC,TSTEND

066746

060000

000400

066764

020000

066746

SuB

6%:

040000

30%:

040000

066746

31%:
10%:

#30,RS

EXIT

TST

:BR IF LAST INCR DONE.
;OTHERWISE, SET NEXT INCR...
... AMPLITUDE...
;DO NEXT SET.

Jeas

Jee.

: EXIT THIS TEST >>>>>33333533>3>>>>>>>>>>>

: ON ERROR, SHOW Y AMPLITUDE AND X INCREMENT.
20%:

000207

PRINTX
RTS

A
H#GHXYX,YXl
PC

: ERROR EXTENSION.

:DISPLAY CODE FOR GRAPH/H]STO Y TEST.

22}?
6812 066746
6813 066750
6814 066754

000000
150000
174100

000000

6816 066760
6817 066764

000000
127774

000000

6819 066770

173000

225? 066772

174102

066746

2%82

6818 066766

X],#Gx]1!2
6%
#2,X1
#30,YA

JRESET LOOPER.

066752

027514
030072

6815 066756

TEMPZ,LO0OPK

000030

004737
004737

2283 066744

MOV

066766

6801 066700
6802 066704

6807 066714

066754

060000

2%82 066710

BCS

SEQ 0181

000002

000030
000030

012737

000627

M 14

PAGE 95- 1

CMP
BEQ
suB
SuB

066754

6798 066670

2;88 066676

027700

29-JAN-81 17:22

114000

APNT

YA:

000000

160000

GHYTYP: O
SETHB,0
GHYT:
GxI'!0
Xl:
0.0
GHY 'ALL

STOPN

;FUNCTION TYPE
;SET BASE LINE.
:SET X INCR.

;Y AMPLITUDE (BIT 14

HST MODE).

DJMP ,YA-2

066764

END.TEST

6822 066776

"ttttttttttt*ttttttttttttt*tttttttttttttttttttttfittttttttttttittttttttt!
"*

o*
;t

END TEST 25

.'tttttttttt*tttttttttttttttt"tnIttt'tttttiittttttt!ttttttttttt.tttttttl

—

| VSV11/vS11 << GRAPHIC SYS. DIAG MACRO M1113
see TEST 26
BIT MAP (1)
6824

29-JAN-81 17:22

AR AR R RN

N 14

PAGE 96

AN R

N AR

SEQ 0182

R RN AR AR R

AN RN

AN R

R AN RN

AN AR ANA

RS AR AN

. %

[

BEGIN TEST 26

o
X

BIT MAP (1)

"l'lfi'tititttfi'.fi'ttl‘t*tt't'*t*'tttitt"fiit'tttttfitttttit'tt.ttttQttttit

;

6825 067044
6826 067050
2%%; 067052

005737
(001402

(ITERATION COUNT = 10.)

002502

TST
BEQ
EXIT

6829
6830
6831

DPUMOD
BM1TST
TST

;DPU ONLY ??
;NO, EXECUTE.
2 EXIT THIS TEST D>>333333333>3353>>>>5>>>>>

: EXECUTE BIT MAP MODE 1 WITH 4 AND 8 BIT PIXELS FOR ALL
: POSSIBLE RUN LENGTHS (O THRU 777).
TEST FINAL X/Y FOR EACH.
: IF VISUAL, DISPLAYS A WEDGE STARTING AT 0,0 WITH EVERY

6832
6833
2%%2

: OTHER PIXEL (IN X) TURNED OFF.
: REPEAT AFTER QUICK AS BEFORE.
: PIXEL BUFFER SIZE = 256. WORDS (512. 8 BIT PIXELS MAX).

6836
6837 067056
6838 067062
6839 067070
6840 067074

004737
012737
004737
013737

027702
067350
027054
027700

6842 067106

004737

027014

6841 067102
6843

01270C

000377

022300
003234

IN THE NEW DPU, A COUNT
PC,TSTGO
#208 ,EXTA
PC,LUMIN
LOOPK , TEMPZ

OF O DOES 512. PIXELS, SO IT'S LAST,
: TITLE.
: SET ERROR EXTENSION ADDRESS.
; BLAST LUT.
: SAVE A COPY OF THE LOOPER.

JSR

;

BM1TST: JUSR
MOV
JSR
MOV

MOV

#377,R0O

PC,FILLY

..AND FILL THE BUFFER.

; 2 ON, 2 OFF

ggzg

IN 4 BIT MODE.

; 1 ON, 1 OFF IN 8 BIT MODE.

6846 067112
6847 067120
6848 067126
6849 067132
6850 067140
6851 067144
6852 067150
6853 067152
gggé 067156

012777
017737
012701
013737
004737
012704
005005
010137
010537

00001
113710
136001
003240
026650
000002

113714
003146
067412

067410
067406

1%:
2%:

2323 067162

6858
6859
6860
6861
6862
6863
6864

; SET PIXEL DATA PATTERN...

067164
067172
067176
067202
067204
067210
067212

012777
004737
027704
001003
027705
001410

067374
027454
113634

113640

113630
3%:

6865 067232

A¥

6867 067234
067234
6868 067240

Q04737
103744

027646

6869 067242
6870 067250

013737
032701

003234
000777

027700

MOV
MOV
MOV
MOV
JSR
MOV
CLR
MOV
MOV

#SELPCS,aDSR
aDSR, IPCSAV
#BM14+1 ,R1
FREE .BM1PIX
PC,CLRRW
#2 R4
R5
R1,BM1P]X~2
RS.BM1Y

;SAVE PCSAVE...
;
; 1ST OPCODE W/ COUNT=1,
: BUFFER ADDRESS.
; INIT IN R/W MODE.
: INIT EXPECTED X...
J...AND Y,
; SET 1ST/NEXT OPCODE...
;...AND Y CO=ORD.

BGNSEG

;<KL

MOV
JSR
CMP
BNE
(MP
BEQ
HRDERR

#8M1,aDPC
PC,WAITF
aDXR,R4
3%
aDYR,R5
4%
BMF ,XYERR

LOOPTO
JSR
BCS

2%
P(,LO0P
2%

MOV
BIT

TEMPZ2, L 00PK
#777 .R1

;RESET LOOPER.
;DONE 512. PIXELS?

ENDSEG

;

LLLLLLLLLLLLLLLLLLLLLLL BEGIN SEGMENT.,

;START, XCT BIT MAP MODE.
J(HECK DXR - R4,..

:BM1

FAI]LS.

<<KLLLLLLLLLLLLCLLLLLLLLLL< END SEGMENT.

REPEAT...

VS
L8 J

JSV11/VS1Y == GRAPHIC SYS, DIAG MACRO M11°3

see TEST 26

81T MAP (1)

29-JAN-81 17:22

6871 067254 001476
6872 067256 005201
6R73 067260 062704 000002
6874 067264

062705

6876 067274
6877 067276
6878 06730¢

001325
020127
001011

6875 067270 (32701 000777
6879 067304 012701
6880 067310 000720
6881 067312 020127
6832 067316
6883 067320
6884 067324
6885 067326
2339 067332

001406
012701
000705
012701
000707

6888 067334
6889 067340
gggo C67344

004737
004737

B8EQ
INC
ADD

5%
R1
#2 ,Ré

BIT

1777,R1

ADD

000002

BNE
(MP
B8NE

137000

MOV

136000
5¢%:

137000

B 15

PAGE 96-1

22 RS

2%
R1,#8M18
(3

#BM14 R
23

(MP
BEQ
MOV

R1,48M18
109
#BM18+1,R1

SEQ 0183
.IF YES, GO SEE IF ALL DONE.
; NO. INCREMENT RUN LENGTH
: NO, INCR EXPECTED X.
. AND Y,

COUNT OVERFLOU’

;CONTINUE [F NOT,
:INTO BM18?
BR IF NOT.

IF YES, DO BM14 W/ COUNT=0
.AND CONTINUE.
HERE IF ACTUAL COULNT-0.

137000

MOV
B8R

#RM18+0 ,R1
2%

:DONE [F ON BMi8.
GO TO M18
.AND CONTUNUE.
DO BM1.8 W/ COUNT=0
.AND CONTUNUE.

027514
030072

10%:

JSR
JSR
ExIT

PC,PAUSE1
PC,TSTEND
TST

2 EXIT THIS TEST >>>3>3>>>>3>>3>53>>>3>3>>>>>>>

137001

2%3%

: ON ERROR, SHOW THE FAILING BIT MAP OPCODE.

6894 067350

20%:

gggg 067372

(000207

2%3;
6899 067374

164000

6901 0674034
6902 067406

000000
000000

6900 067402

6903 067410

114000

164000

136000

6904 067412 000000

6905 067414 164000 164000 164000

2289 067422

PRINTX
RTS

#BMX,R1
PC

: EXTENSION SHOWS BAD OPCODE.

; DISPLAY CODE FOR BIT MAP MODE 1.
: +** WRITE MODE (176024) =+
DNOP, DNOP, DNOP
BMI:
BM1X:
BM1Y:

APNT

0
0

BM14!0

aMmiPIx: O

DNOF, DMOP, DNOP
STOPN

173000

: 81T MAP MODE.

..PIXEL BUFFER ADDRESS.

; Tane READ MODE ( 176040) =«

END.TEST

6908 067424
MNN

RN T AR RN RANN ANV A RN AN AN R AR RAN AR NN RN AT NANNAARNAANRERENRNRONENNOS

END TEST 26

..t.tt'..'t..Q...."'..""t.......'.."t!!'.t"'.'t"t."Q"tttt"'t'.t

p—

—

- VSV11/vS1] == GRAPHIC SVS DIAG MACRO M1113

eee TESTY 27

81T MAP ()

6910

29-,AN-81 17:22

PAGE 97

SEQ 0184

'".t.""'i..'...'t.""""ttt't'.Q'Q"t't't"".t."'.'t".'.'t'.""

BEGIN TEST 27

(ITERATION COUNT = 10.)

BIT MAP (0)

:.tt."'t."""".""t"".tttt'..t"'t'fl't.'..Q"t't""'.t'.t't'tt"

6911 067472
6912 067476
63}2 067500

005737
001402

002502

1%:

TST
B8€0
EXIT

: INITIALIZE AND FJILL THE BUFFER.

gg}g

6917 067504 004737 027702

BMOTST: JSR

026650
000377
027014
003240
070452

JSR
MOV
JSR
MOV
CLR

6918 067510

6919 067514
6920 067520
6921 067524
6922 067530
23%2 067536

004737

004737
012700
004737
013737
005037

JSR

027054

070426

gg%g

6927 067542 013737 027700 003234
6928 067550

6929 067554
6930 067560

6931 067564

6932 067570
23%2 067574

6935 067576

6936 067600

6937 067606

6938 067612
6939 067614

012701

010137
005037

005037

012704
010405

012777

004737

134000

070320

004737
103766

6941 067622
6942 067630
6943 067634

013737
012701
010137

003234
134100
070424

6946 067654
ggzg 067660

6949 067662
6950 067664

6951 067672

6952 067676

6953 067700

067700
067704

062737

062704
010405
012777

004737
004737
103766

000040

000140
070414

(070320
027646

113224

P(C,CLRRW
#377,R0
PC.FILLT
FREE ,BMOP1+12
BMOP2+12

SINIT IN R/W MODE.
: DATA FOR 2 OR & PIXELS.
: FILL THE BUFFER.
: 1ST FRAME (S) USE BUFFER.
; 2ND USES ABS 0.

PC.LUMIN

; BLAST LUT.

2%:

070420

3%:

BMOP1+6

; ORIGIN 0,0.

#100,Ré
R& RS

BGNSEG
MOV

LOOPTO

Oroe e —— -

; MODE 0, 512 RESOLUTION.

MCY
MOV

JSR

027700

#BM04 ,R1

R1,AMOP1+10
BMOP1+4

ENDSEG

113140

STITLE

MOV
CLR

CLR

000100

067614
6940 067620

6944 067640

MOV

070422

070414

PC,TS'GO

* FIRST TEST THE RESOLUTION BIT ON A 32 SQUARE ARRAY.
; SAVE A COPY OF THE LOOPER.
LOOPK , TEMP?
MOV
1s:

070424
070420

027646

6954

; DPU ONLY ??
; NO, EXECUTE.
2 EXIT THIS TEST >>3>3533>>3>3>>>>>>>>>>>>>>>

DF JMOD
BMOTST
TST

; €<CLLLLLLLLLLLLLLLLLLLLLL< BEGIN SEGMENT.

#BMOP1 ,aDPC

PC ,BMOCHK

: ERROR (CHECK.

: REPEAT...

; CCLCLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.,

JSR
BCS

PC,LOOP
23

MOV
MOV
MOV

TEMPZ2,LOOPK
#BMO4 'R256 ,R1
R1,BMOP1+10

=—ApRD

#40,8M0P1+4

ADD

ADD
MOV

BGNSEG
MoV

JSR

ENDSEG

LOOPTO

JSR
B(S

.THEN RESTORE LOOPER.
; "SHIFT TO 256 RESOLUTION.

#40 ,BMOP1+4

#140,R4
R4 .RS

; €CLLLLLLCLLLLLLLLLLLLLLLL<< BEGIN SEGMENT.

#BMOP1 ,aDPL

PC ,BMOCHK

: ERROR (HECK.

: REPEAT...

PC.,LOOP
3%

; €<LLLLLLCLLLLLLLLLLLLLLLLL END SEGMENT.

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

cex

TEST

6955 067706
6956
6957
6958
6959 067714
6960 067720
6961 067722
6962 067726
6963 067732
6964 067736
6965 067742
6966 067744
6967 067750
6968
6969 067754
6970 067756
6971 067764
6972 067770
6973 067772
067772
067776

6974
6975 070000
6976 070006
6977 070014
6978 070022
6979 070026
6980 070030
6981 070034
6982 070040
6983
6984 070044
6985 070046
6986 070052
6987 070056
6988 070060
.,
07006
070064
6989
6990 070066
6991 070074
6992 070102
6993 070110
6994 070114
6995 070116
6996 070122
6997 070126
€998
6999 070132
7000 070134
7001 070140
7002 070144
7003 070146
070146
070152
7004
7005 070154

BIT MAP (o))

013737

003234

29-JAN-81 17:22
Mov

027700

D 15

PAGE 97-1

TEMPZ, LOOPK

SEQ 0185
;...AND RESTORE.

* NOW CHECK THE EXPANSION OF A 32 SQUARE ARRAY.
012701
000402
012701
005037
005037
012704
010405
010137
004737

012777
004737

134000

¥
'A

MOV

#8MO4 R

; 4 BIT, 32 SQUARE, NO EXP.

135000

5%:

MOV

#3MO8 ,R1
BMOP1 +4

: 8 BIT, 32 SQUARE, NO EXP.
; 1ST BLOCK AT 0,0

#100,R4
R4 RS

SET EXP X AND Y.

SET OPCODE.

070420
070422
000100

004737
103766

027646

013737
062737
062737
062704

003234
000040
000040
000140

042701
052701
010137

000777
000010
070424

010405

005277
004737

070320

004737

027646

013737
062737
062737
062704
010405
042701
052701
010137

003234
000100
000100
000300

103767

JSR

113046

6%:

004737

027646

013737

003234

BGNSEG
MoV

JSR
ENDSEG
LOOPTO
JSR
BCS
MOV
ADD
ADD
ADD
MOV

027700
070420
070422

BIC
BIS

MoV

7%:

027700
070420
070422

BGNSEG
INC
JSR
ENDSEG
LOOPTO
JSR
8CS
MOV
ADD
ADD
ADD
MOV

000777
000020
070424

070320

103767

MOV
MOV

112760

005277
004737

CLR
CLR

MOV

070424
026650
070414
070320

SkP2

BIC
BIS

MoV

8%:

112672

027700

BMOP1+6

R1,BMOP1+10
PC.CLRRW

.
5 €KCLLLLLLLLLLLLLLLLLLLLL<< BEGIN SEGMENT
#8MOP1 ,aDPC(
; ERROR CHECK.
PC,BMOCHK
6%

.,
€<CCLCLLLLLLLLLLLLLLLLLL<< END SEGMENT

PC,LOOP

; REPEAT...

TEMPZ2,
L OOPK
#60 ,BMOP1 +4
#40 ,BMOP1+6

#140,R4

R& RS

4777 ,R1

#EX2 ,R1
R1,BMOP1+10

; EXPAND XZ2.

;€KL LLLLLLLLCLLLLLLLLLL<< BEGIN SEGMENT.,
aDP(

PC,BMCCHK

; ERROR (CHECK.

.,
; €CCCLLLCLLLLLLLLLLLLLLLLLL< END SEGMENT

PC.LOOP

TEMP2,LO0OPK
+4
#100,8MOP1

#100,BMOP1+6
#300,Ré

R& RS

8777 R

HEX6 R
R1,BMOP1+10

;

’

EXPAND Xx4.

; <CCLCLLLLLLLLLLLLLLLLLCLLL<< BEGIN SEGMENT.,

BGNSEG
INC
JSR
ENDSEG
L00PTO
JSR

; ERROR CHEC(K.
PC ,BMOCHK
; <<CLLLLLLLLLLLLLLLLLLLLLL<< END SEGMENT.
; REPEAT
8%

B(S

TEMP2,LOOPK

abDP(

PC.LOOP

VSv11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

eve TEST 27

BIT MAP (0)

7006 070162 020127 135020
;88; 070166 001255

7014 070200

012701
012704
010405

134001
000200

;8}2 070202 010137 070450
7017 070206
7018 070210
7019 070216

7020 070222
7021 070224
7022
7023

012777
004737

070440
027454

29-JAN-81 17:22 PAGE 97-2

(mMpP
BNE

R1.,48M08 .EX4
5%

MAPMEM: MOV
MOV

~aM04 ' M64 LR
#200,R4

1%:

7027 070236
7028 070242

032701

001010

052701

7032 070260
7033 070262

00140i
000747

7034 070264
7035 070270
7036 070272

7037 070274

000754
023727

042701
005201

02752¢

070450

2%:

001000

7041 070304

004737
004737

BIS

#1000,R1

: NO, SHIFT TO 8 BIT MODE.

8EQ
B8R

2%
1%

: QUIT AT 8 BIT, 256 SQ. ..
;... OR WE RUN OUT OF MEMORV

BIC
INC

030072

; *xx OR NOP =«
1%
BMOP2+10,#BM08!M256

#1000 ,R1
R1
R4

J...AND EXP X,Y.

BEQ

: NO, GO 'ROUND.

#4 ,R1

JSR

PC.,PAUSE1

EXIT

JSR

: EXIT THIS TEST >>>>>533>3333>>3>>5>>>>>>>
: WAIT FOR DONE...
;...AND TEST X...

BMOCHK: JSR
(MP

PC,WAITF
aDXR,R4

7048 070332

027705

112502

aDYR,RS

MOV

#38,EXTA

7049 070336
7050 070340

7051 070340

7052 070346
7053 070366
7054 070366

7055 070370

;829 070412

0016413

012737

070370

022300

2%:

000207

3%:

000207

BEQ

HRDERR BMF ,XYERR
RTS

PRINTX
RTS

#8Mx,R1
PC

..AND Y.

: SET ERROR EXTENSION ADDRESS.
: EXTENSION SHOWS BAD OPCODE.

: DISPLAY CODE FOR BMQ TESTS.

;823
7060 070414

164000

7062 070424

134000

7061 070416

1%:

; ALL DONE.

TST

027454
112506

BNE

*"DONE THRU 256 s0. ??

PC,TSTEND

004737
0277046
001003

: RESET 4 BIT MODE.
2...SET NEXT SIZE...

7045 070320
7046 070324

7047 €70330

; YES.,

ASL

BIT
10%:

: BIG ONES wiLL OQUTLAST WAITF TIMER.
: ERROR CHECK 200,200.
400,400 (128 sSQ).
:
1000,1000 (256 SQ).
:
: 8 BIT MODE ??

ASL

027514

: EXP X,Y.

#1000 ,R1

BR
CMP

135003

; 4 BIT, 64 SQ.

; €CCLLLCLLLLLLLLLLLLLLLLLLL< END SEGMENT.

BNE

001000

006305

001737

=4
PC ,BMOCHK +4

PC ,PAUS.S

001000

006304

;828 070302

;843 070314

#RMOP2 ,aDP(
PC,WAITF

JSR

8IT

7038 070276 032701 000004
7042 070310

R4 ,RS

ENDSEG
004737

; 8 BIT MODE DONE ??
: NO, GO °*ROUND.

: SET OPCODE.
R1 BMOP2*10
MOV
;€L CLLLLLLLLLLLLLLLLLL<<< BEGIN SEGMENT.
SGNSEG

B8C(C
JSR

103375
004737 070324

7029 070244

7C30 070250
7031 070252

MOV

MOV
JSR

112614

;8§g 070230
7026 070232

St2 0186

; NOW TEST THt 64, 128, AND 256 SQUARE SIZES 8Y DISPLAYING
: THE CONTENTS OF (PU MEMORV STARTING AT LOC O.

7009
;8;?
7012 070170
7013 070174

E_15

114000

000000

BMOP!:

DNOP

APNT, 0, O

BM04!'0

: 32 SQUARE, NO EXP.

LSV11/yS11 == GRAPMIC SYS, DIAG MACRO M1113

vee TESY 27

BIT MAP (0)

7063 0706426

000000

;822 070643

160000

070416

170140
114000

000000

160000

070440

7064 070430

7067 070440
7068 070442

7069 070450
7070 070652
7071 070454

;8;% 070460

164000

134000
000000
164000

29-JAN-B81 17:22
0

DNOP, STOPN

173000

F15

PAGE 97-3

SEQ 0187
; BUFFER ADDRESS.

DJMP, BMOP1+2

000000

BMOP2:

173000

CLRMEM
APNT, 0, O
8M04 !0
0
DNOP, STOPN

DJMP, BMOP2
END.TEST

7074 070464

""."Q'Q't.'tt"t'ttt'"'QQQQt.tt'tfi't't"".t.""!."t""t"t."'t.'
[

.Y
."

END TEST 27

'-Q'.Q..'tt't"t't"tl't't.'t.t.'t't.'.'fi'.tflfliQ"fifi"fi"'Qfi"t""t"'t'

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
eee TEST 28

IMAGE MEMORY CLEAR-SET

7076

. w

29-JAN-81 17:22

PAGE 98

;

(ITERATION COUNT = 10.)

7079 070554
7080

TST
BEQ
EXIT

002502
TN Y

7078 070552

7081

TE T

7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098

DPJUMOD
CLRTST
TS7T

:DPU ONLY 2?2
JNO, EXECUTE.
; EXIT THIS TEST D33533333>5,333333>>>>>>>>

“'CLRMEM’* TO ZERO, EXECUTE PIXEL-READ-BA(CK, AND TEST DATA.
"'SETMEMTM* TO 1°'S, AND REPEAT.

DISPLAY MODE (INTERLACE/NON-INTERLACE) IS TRANSPARENT.

IF SHORT MODE, CYCLE X FOR Y = 0 AND 2 (ODD VS EVEN),
THEN CYCLE Y HOLDING X AT 0.

7118
7119 070724
7120 070724

070730

IR TR

REPEAT EACH PIXEL READ 10 TIMES AFTER QUICK PASS.

070560
070564
070570
070574
070576
070602
070606
070610
7099 070614
7100 070616
7101 070622
7102 070626
7103 070630
7104 970634
7105 070640
7106 070642
070642
070644
070650
7107 070654
7108 070660
7109 070662
7110 070670
111 070676
7112 070700
7113 070706
7114 070710
7115 070714
7116 070720
7117 070722

7121

IMAGE MEMORY CLEAR=-SET

'Ql"".'t""t"""t'ttt'.'ttt.'tQ'tfit'.tfi!"'t*'fi.Q"Q""'..'.tt.'

005737
001402

*®

7077 070546

BEGIN TEST 28

> %

SEQ 0188

.".."'."'."t"'t"t't.'Q"Q!'t"tQt"..'.Q'.".'Q".".Q"Q'.".'.

[
.

G 15

IF LONG MODE, CYCLE X FOR EVERY Y (512 X 512 ADDRESSES),

READING EACH PIXEL ONLY ONCE.

LRTST: JSR
JSR
JSR

PC,TSTGO
PC,CONFIG
PC,LUMIN

004737
004737
004737

027702
030416
027054

005037
013701

072414

016101
001002

003256

MoV

,R1
MEMTAB(R1)

071116
003072

JMP
MOV

1%
R1,PDF

000137
010137
005101
010137
013701
000301
010146

052716
012637
005737
001403
012737
013737
005003
012777
000402
005277
004737
005001
005002
010277
004737

BGNSUR

CLRT1:

072414

CLR

MOV
ASL

BNE

;TITLE
; CONFIGURE VSV SYSTEM,
. BLAST LUT.

IMC.CH

IMC.CH,RT

: BR IF MEMORY ON THIS (HANNEL

COM
MOV
MOV
SWAR

R1
R1.,PDM
IMC.CH.R1
R1

176074

MOV
BIS
MOV

R1,-(SP)
#RDWRT, (SP)
(SP)+,(CLR.ZA

000001
027700

027700
003234

.+10
#1,L00PK

071424

112124

BEQ
MoV
MOV
CLR
gggz

#CLR.Z.,aDPC

;SKIP NEXT IF SHORT MODE...
:...OTHERWISE, SET ONCE ONLY.
:SAVE A CCTMY OF LOOPK,
:R3 = PATTERN (0'S FIRST).
:XCT "'CLEAR MEM T0 0.

INC

JSR
CLR
CLR

aDP(

PC,WAITF
R1
R2

JRESUME, XCT "'SETMEM TO "'S'’.

MOV
JSR

R2,aDYR
PC,WAITF

JSET v ADDRESS.

003074
072414

BISW3

071434
002504

112116

027454

1ST

1%:

2%:

#RDWRT ,R1,CLR.ZA

IMTMOD

! OOPK , TEMP?2
R3

: INSERT CHANNEL OF MEMORY TO TEST

JWAIT 'TIL DONE
JINIT X ADDRESS...
:...AND Y ADDRESS.

BGNSEG

vee TEST 28

7122 070734

7123 070736
7124 070742

7125 070746

7126 070752
7127 070756

7128 070760

7129 070764
7130 070766
7131 070770

7132 071010

7133
7134
7135
7136
7137

071012
071016
071036

071040
7138 071046
7139 071052
7140
7141 C71054
7142 071060
7143 071062
7144 071066
7145 071070

7146 071074
7147 071076
7148
7149

7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165

010172
004737
004737
017704

003234

020127
001403
062701
000722
020237
001404

0C1776

103006

005001
062702
000707

000004

027700

10%:

BIC
(MP
BEQ
HRDERR
BR
JSR

ENDSEG

9%:

005237
023727

000004

052737
012737
017700

000006
071454

072440
071452

042737
050037
005700

001777
071562

071562

071546

111626

071562
027454

111616

7175 071220
7176 071224
7177 071230
7178 071232

005037
013700
006300
016001

(MP
BEQ

000274

072414
072414

003256

CMP
BHIS

PAGE 98-

1%:

O(,WAITF

P(,ERRCHK

;...T0 R4,
:BR IF DPU HUNG (PRB FAILURE).

aDSR R4
108

R3,Ré

:0K, JUST KEEP THE DATA BITS.
;1S DATA RIGHT ??

IMDI, IMDERR

:DATA INCORRE(CT.

PDM,R¢&
3

3
PC,RELEAS
PRRHNG

;

.,
€€CCLCLLLLLLLLLLLLLLCLLLLLL< END SEGMENT

L OOPK
TEMPZ2,
R, #4

R1,AMAXX

JRESET LOOPER.

;IF ''SHORT'' MODE, HOLD X...
;...AT 0 FOR Y - 4 TO MAX,
;BR IF AT MAX X.

BR
CMP
BEQ
(LR

:DONE IF AT MAX VY,
;OTHERWISE, RESET X...

;... AND CONTINUE.

B8R

J...BUMP Y. ..
2...AND CONTINUE.

8I7
BNE

;RESTART

INC
cMP
BLO
ENDSUB

MOV

49:

;RELEASE "HUNG'®' DPU...
;...REPORT ERROR AND QUIT.

;CTHERWISE, BUMP X...

BIC
BIS
TST
BNE
BR

’%:
3%:

:BR IF WRONG.

ADD

CCTNEW: BGNSUB
B1S
MOV
1%:

SEQ 0189

- €CCLLLLLLLLLLLLLLLLLLLCC<<C BEGIN SEGMENT.
;NOW READ=BA(K PIXEL DATA...
R1,aDXR

ADD

072414
072414

004737

I4 ¥

000002
003074

000404
012777
000403
012777

MOV

8%:

003250

HRDERR

5¢%:
6%:

000002

005103
043703
001275

071174
071176
071204
071206
7173 071214
7174

026756

013737
020227

100515

071172

MOV
EPL

043704
020304
001423
000412
004737

MOv

JSR
JSR

100015

103624

7166 071166

7167
7168
7169
7170
7171
7172

[MAGE MEMORY (LEAR-SET

17:22

29-JAN-81

~3\J

JSV11/yS11 == GRAPWIC SYS. DIAG MACRO M1113

;COMPL IMENT DATA PATTERN.

IMC.CH
,
IMC.CH#4
CLRT!

8%
#1727 ,CLR.D2
RO.CLR.D2
RO
é 3
2%
ngR.Z?.aDPC

;CLEAR OUT OLD PIXEL PATTERN
JINSERT THE NEW ONE
;IS NEW ONE 0?
;IF NO, GO DO ‘'SETMEM'‘ FUNCTION,
;D0 "'SETMEM'* T § UNTIL NEW M]CROCODE READY
;IF YES, DO THE ‘‘CLRMEM’

aCLMPTR,RO

CLR

IMC.CH

ASL

MOV

; LOOP THRU ALL & CHANNELS

#(LMTAB,CLMPTR

3
#CLR.DZ,aDPC

JSR

; DO NEXT CHANNEL

;JLET READ SEE ALL BITS
;START AT BEGINNING OF PATTERN TABLE

#6,]MC.
IR

MOV

1°'S PATTERN.

PC.WALTF

;GET PATTERN TO CLEAR TO
;NEGATIVE IF DONE ALL

;J"'CLEAR'' TO THE PATTERN
;WAIT FOR DONE

IMC.CH,RO

;START (HECKING AT CHANNEL O.
;GET CHANNEL TO CHECK

)
,R1
MEMTAB(R(C

;GET MASK FOR VALID PIXEL BITS

;MAKE A WORD

INDEX

/S9117/511 == GRAPHIC SYS. DIAG MACRO M1113

vee

TEST

071236
7180
071240
7181 071244
7179

7182 071246
7183 071252
7184 071254
7185 071256
7186 071260
7187 071264
7188 071266
7189 071272
7130 071276
7191

071300

7192 071302
7193 071304

7194 071312

7195 071316
7196
7197 071322
7198 071324
7199

071330

7200
7201 071332
7202 071340
7203 071342

071350
071352
071356
071364
071366
071374
071400
071402
071410
371412
071412
071414
071420
071424
071434
071436
071444

IMAGE MEMORY CLEAR-SET

001445

010137
005101
057701
006201
006201
010146

110166

012601
012700
013702
010122
005300
001375
013737
010237
005037

BEQ
MOV

(03072

COM
BIS
ASR

000200

000001
000400
003240

003240
072450
072436

5%:

072416

071600

023737
001404
062737

072436

003250

000002

072436

072414
072414

000004

062737
005737

000002
002504

071452

023727
001260

071452

071470

00164

7%:

BLT

ADD
TST
BNE

cMpP
BNE

176000
176074
116000
117774

030072

176400

177000

170100
170100

173000
173000

ENDSUB
JSR
EXIT

CLR.D:

s INSERT THE PATTERN

*SHIFT IT DOWN TO BITS <7:0>
;PUT PATTERN IN LOW BYTE,
JAND HIGH BYTE.
JPUT IT BACK INTO R1.

R1,1(SP)
(SP)+,R1

SGET COUNT OF NUMBER OF WORDS TO FILL (256.)
;GET ADDRESS TO PUT TEST DATA.

;FILL THE

PC, IMCHK

TEST BUFFER

;TELL CHECK ROUTINE WHERE IT IS.

FREE,IMC.TA
R2,IMC.RA

... AND WHERE TO PUT THE MEM DATA READ.

JSTART AT Y = 0.

7 €€KLCLLLLLLLLLLLLLLLLLLLLL BEGIN SEGMENT.

;READ AND CHECK A LINE OF MEMORY DATA.
: CCLLLLLLLLLLLLLLLLLLLLLLLL END SEGMENT.
;DONE LAST LINE?
*MOVE ON TO NEXT CHANNEL IF YES.
;IF NO, BUMP Y & GO FOR MORE.

IMC.Y, YMAX
7%
#2,IMC.Y
6%
IMC.CH

: INCREMENT THE (HANNEL NUMBER.

DONE LAST CHANNEL?
;IF NOT, GO FOR MORE.

IMC.CH,#4

#2,(LMPTR

SHORT

IMTMOD

NO.
YES.
NO.

%gMPTR.#CLMSHT

JIF YES, MOVE ON TO NEXT PATTERN
TEST?

DONE?

YES.

PC,TSTEND
TST

;CLR.2Z: DNOP, CLRMEM, STOPN

CLR.2Z:
(LR.ZA:

;SAVE VAL ID MASK
;COMPLEMENT T,

R1
R1
R1,=(SP)

CLR

INC
CMP

;IF 0, NO CHANNEL HERE. GO TO NEXT.

R
a(LMPTR1

IMC.Y

ADD
BR

SEQ 0190

73
R1,PDF
R1

BNE

BGNSEG
JSR
ENDSEG

I 15

PAGE 98-2

#256. ,RO
FREE ,R2
R1,(R2)+
RO
5%

CMP
BEQ

8%:

004737

ASR
MOV
MOvB
MOV
MOV
MoV
MOV
DEC
MOV
MOV

6%:

004737

000764
005237
023727
002717

29-JAN-81 17:22

< EXIT THIS TEST >>>3>3>3>>>>>>3>3>>>553>>55>>

;CLEAR [MAGE MEMORY.

EC! CH3
C
' CH2.PROT
PROTEC CHO,PROTEC! CH1, PROTE
RDWRT

EM,
STOPN
APNT!L0,SETM
APNT !ALL ,SETMEM,STOPN

;CLEAR MEMORY THIS WAY UNTIL Ntw MICROCODE READY
;SET IMAGF MEMORY TO 1°'S,

CPAT
.MACRO C(LP.D
<(PAT*B]T6>!<~(PAT-1817+B]T2>
.ENDM

071452

071454

(LMPTR:

071454
071456
071460
071467

000000

CLMTAR: 0

.WORD

(Lp.D
cLP.D

(LP.D

CLMTAB

17
10

J 15

VSV1}€¥?‘}8-- GRAPHIC SYS. DIAG MACRO M1113 29-)AN-87 17:22 PAGE 98-3

SEQ 0191

001774

177777
000000
000000

071546
071556

176074
170140

071562
C71564
C7157¢4

117774

176074
170100

000000
000000

176476
173000

177074

176474
173000

177074

7274 071620

7¢75 071626

7276 071634
7277 C71640

7278 071644
7279 071650

7280 071654
7281 071660
7282 071662
7283 071666
7284 071670
7285 071670
7286 071710
7287 071712
7288 071716
7289 071722
7290 071726
7291 071730
7292 071734

NN
=
)

AV ECR o

CLRMEM, STOPN

(LR.DZ: APNT _ALL

. (H3
(H2
,RDWRT
RDWRT . (CHO,RDWRT . (H1,RDWRT.
SE TMEM, STOPN

. SUBROUTINE - P EAD & VERIFY 1 LINE OF
ENTER W]TH:
IMC.CH
IMC.v
IMC.RA
IMC.TA

7262

7263
7264
7265
7266
7267
7268
7269
7270 071600
7271 071604
7272 071606
7273 071614

:DISPLAY FILES FOR CLEARING MEMORY:
(H3
RT
. (HZ.RDWRT.
O,RDW
.CH1,RDWRT
CLR.Z2: RDWRT'!'CH

013700
000300
042737
050037
013737
012777

004737

013702
062702
013703
027702
001003
027703
001410
005004
013705
062705

027704
001003
027705
001410

IMCHK:

072414

001400
072430
0723%2
072420
027454
072450
001000
072440
111152

072430
072354

111176

MOV

ADD

1%:

111110
111104

SWAR
BIt
8IS

IMCHKR: MOV
JSR
MOV

111146

072436
000002

MOV

2%:

MOV
(MP
BNE
C(MP
BEQ
HRDERR

(LR

MOV
ADD

(MP
BNE
(MpP
BEQ

IMAGE MEMORY.

MEMORY CHANNEL TO READ (0, 1, 2, OR 3)
onon

7249
7250
7251
7252
7253
7256
7255
7256
7257
7258
7259
7260
7261

071506
071510
071512
071526

7245
7246
72«7
7248

7244 071504

071476

72642 071500
7243 071502

jelelelolololoieio)

071464
071466
071479
071472
071474

72641

—_NCNYOIYIYOIYOYOIYOY

7236
7237
7238
7239
72460

S S maNTrr
e
OO
NUVUVDLDDODODODDDO

IMAGE MEMORY CLEAR-SET

tew

Y POSITION OF

LINE TO BE READ

ADDRESS OF 512.-BYTE BUFFER TO READ DATA NTO
ADDRESS OF 512.-BYTE BUFFER TO TEST AGAINST
(DATA MUST INCLUDE 1°'S IN NON-EXISTENT BIT POSITIONS TO
CATCH BAD DRIVFRS & DBUS LINES)
IMC.CH,RO

:GET CHANNEL #

#3]79'BIT8,IMC.ME

SCLEAR OLD CHANNEL # FROM ENABLING INSTR.

T
RY
, IMCRC
IMCT
#]MC.SR,aDPC

:START THE READ.

RO, IMC .ME

PC.WAITF

IMC.RA.R2

:... INTO HIGH BYTE OF RO.
sSET IN THE NEwW CHANNEL

I... WAIT FOR [T TO FINISH.

#512. ,R2

:R2 GETS FINAL ADDRESS

?gpc.nz

;1S DPC CORRECT?

aDSR,R3

;1S DSR CORRE(T?

IMRF ,PCSERR

SPRINT IF NOT.

IMC.IR,R3

IMC.Y,RS

:R3 GETS WHAT DSR SHOULD BE.

:DXR SHOULD BE 0.

#2.RS

:DYR SHOULD BE Y+?

aDYR,RS

;TEST DYR

ggxn,n«

:TEST DXR

vev TESY 28

7¢93 071736
7294 071736
7295 07175¢
7296 071762
7297 071766
7298 071772

7299 071774
7300 071776
7301 072002
7302 072006
7303 072010
7304
7305 072012
7306 072016
7307 072020
7308 072024
7309 072030
7310 072036

072040
072046
072054
072060
072064
072070
072074
7318 072102
7319 072110
7320 072130
7321 072136
7322 072140
7323 072146
7324 072154
7325 072156
7326 072164
7327 072172

7311

7312
7313
7314
7315
7316
7317

7328
7329
7330
7331
7332
7333
7334

972174

072176
072176
072216
072224
7335 072230
7336 072274
7337 072324
7338 072344
7339
7340 072346
7341 072350
7342 072352
7343 072354

7344
7345 072356
7346
7347
7348
7349 072414

IMAGE MEMORY (LEAR-SET

29-JAN-81 17:22

3%:

012701
013704
013705
022425
001006
062701
020127
002771
000471

000000
072416
072450

(%:

000004
002000

6%:

005337

072354

000137
010137

071626
072346

100402

12 465

001440
116437
116537

006337
006337
006337
006337

042737
042737

032737
001317
062737
126465

001710
116437
116537
000730

177776

023056
023056
023060
023060
176003
176003

5%:

10%:

072346

000002
177777

072346
177777

177777
177777

023056
023060

000207

013737
006237

072346
072350

11%:

MOVR
MOVR

-2(R4) ,GDDAT
-2(R5) ,BADDAT

163000

000000

104

;BR [F

BIC
BIC

#~C1774 ,GDDAT
#*C1774 ,BADDAT

NOT.

;IF YES, GET THE DATA
JSHIFT IT TO LOOK LIKE DBUS DATA

BADDAT

IMDI,IMCERR

#2.,1MCBDA
6%

;DONE HIGH BYTE?

CMPB
BEQ

; COMPARE HIGH BYTES

MOVB
MOVB
BR

-1(R4) ,=-1(RS)
6%
-1(R4) ,GDDAT
-1(R5) ,BADDAT
11%

0%:

RTS

BGNMSG

IMCERR
PRINTX

TNAM

12%:

ADD

MOV

ASR

ENDMSG

040

;JGET POSITION OF BAD DATA
;LOW BYTE BAD?

GDDAT

GDDAT
BADDAT

;IF YES, GO BACK TO MAIN LOOP.

#2.IMCBDA

IMCRDA, IMCRAM
IMCRAM

PRINTX

,BADDAT
,GDDATDA,
IMCB
IMC.Y,PDF
#IMDIXC,

PRINTX

#NULCR

JPRINT BLANK LINE

;X POSITION FOR PRINTOUT

PRINTX

040

; EXIT WHEN DONE WITH LINE.

BIT
BNE

072350

000000
000000
000000
000000

;BUMP THE X ADDRESS

=2(R4) ,=2(R5)
12%

ASL
ASL

HRDERR

;R1 = X ADDRESS UNDER TEST.
;R4 POINTS TO EXPECTED DATA
;RS POINTS TO RECE!VED CATA
;CHECK THE DATA

IMC.RA,RS
(R4)+,(RS)+
108
#4 R
R1,AMAXX+?2
5%
9%
IMCRCT
.+6
IMCHKR
R1,IMCBDA

ASL

SEQ 0192

IMRF _XYERR
#0 ,R1
IMC.TA,RG

DEC
BM]
JMP
MoV

ASL

023056
023060

000002

MOV
(MP
BNE
ADD
(MP
BLT
BR

CMPB
B8EQ

177776

023056
023060

HRDERR
MOv
MOV

K 15

PAGE 98-4

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

#]MDIXZ2,IMCRAM, IM(.CH

IMCBDA:
IMCRAM:
IMCTRY:
IMCRCT:

. WORD
L.WORD
. WORD
.WORD

0
O
0
0

:
IMRF

JASCIZ

.EVEN

IMR8=1¢3000
IMC.CH: O

;SUSPECT RAM

DMA PIXEL READBACK FAJLURE/

VSV11/¥5311 == GRAPHIC SYS. DIAG MACRO M1113

- wee TEST 28

IMAGE MEMORY CLEAR-SET

7350 072416

000000

7352 072430

176074

7354 072436

000000

7356 072442

001000

7358 072450
7359 072452

160000
173000

7361 072420

7353 0726432

7355 072440

7357 072446
7360 072454

176000

176400

114000

000000

163006

000400

000001

177000

L 15

PAGE 98-5

29-JAN-81 17:22

SEQ 0193

IMC.TA: O

;ADDRESS OF TEST BUFFER

IMC.ME: RDWRT

JENABLE SELECTED MEMORY

IMC.SR: PROTEC!CHO,PROTEC.CHI,PROTEC.CH2,PROTEC!(H3

IMC.Y:

;START AT x=0

APNT,0

;READ, 2 8-BIT PIXELS/WORD, ALL BITS

IMC.IR: IMR8!6

;1 FULL LINE

512..1

256.

1600CO

IMC.RA: .WORD
STOPN

END.TEST

AR AR AR

R AR

;WORD COUNT = 256.

;READ BUFFER
; (SHOULD STOP BY ITSELF)

AR R R AR

A AR R AR R AR AN TR RN

NRTANNR TR AR O TR AR

END TEST 28

R R AR

R AR

AR AR AR

R AR TRANNEANR TR AN AR

R NRRT TR RR RS

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
TEST

IMAGE MEMORY INTERLACE

7362

T Y

. %

M 15

PAGE 99

SEQ 0194

il d)
2
22l
222
202 22222
222
2322222322
2 232222

BEGIN TEST 29

. &

IMAGE MEMORY INTERLACE

ttt'ttt"ttt'ttt"ttt't'tt!'tt'fitt*ttitt"ttttit*tt"tt't'.tti'.'tfitt"

; (ITERATION COUNT = 10.)

7402

MOV

BEQ

MOV

SWAB
BIS
MoV

176034
072776

072766
027454
020000
000002
027454
000000
110140

110200

003270
110162

3%:

110144

<<<<<<<<<<<<<<<<<<<<<<<<<< BEGIN SEGMENT.

,R1
MEMTAB(R4)
R1,R3
4%
R5,Ré

R4
AWRT R4

aDSR,R2

#176003 ,R2

BIC
IFERROR INLE, INLEX
R1,R
cMP
645
BEQ

020102
001410

000004

648:
4%:

HRDERR

INLE, INLEX,

INC

R5
RS, 44
2%

CMP
BNE

GET MEMORY TABLE ENTRY FOR THIS CHAN.

)

R4,11%
DPSTART #10%
#10%,aDPC
MOV
PC,WAITF
JSR
#BIT13,SYCTAB
BIT
3%
BEQ
R1
CLR
#2,3DYR
MOV
PC,WAITF
JSR
#0,aDSR
MOV
MOV
31C
XOR

176003

;

MoV

003256

R5.,R4

(SAVE IT IN R1 & R3). IS THERE A MEM?

MOV
ASL

CLEAR ALL MEMORIES.

L NI NI

BGNSEG

DO SOFT INIT.
CONF IGURE VSV SYSTEM.
INIT CHAN PTR.

I R

JSR
JSR
CLR
JSR

(ZERQ).

TITLE.

PC,TSTGO
PC,DPRESET
PC.CONFIG
RS
PC.CLRRW

COMBEG
JSR

NLAC

PIXEL DATA AT 0,2 SHOULD BE

012777
004737
032737
001401
005001
012777
004737
012777
017702
042702
074203
040302

THE ?&éEL DATA AT 0,2 SHOULD BE (NON-ZERO) .

iF MEM IS INTERLACED,
.F MEM [S NON-INTERLACED,

2%:

010504

006304
016401
010103
001450
010504
000304
052704
010437

CHECK MEMORY INTERLACE / NON- INTERLACE BY WRITING A POINT AT 0.0.

1%:

026650

EXIT THIS TEST D>333333>3335335553>>>>5>>>

N T

027702
026074
030414

[T EYETYTEYETTEIEEE

072620
7387 072624
072624
072632
7388 072636
7389 072644
072646
7391 £72650
7392 072656
7393 072662
7394 072670
7395 072674
7396 072700
7397 072702
7398 072704
072704
072706
072710
072730
7399 072730
7400 072732
7401 072736

004737
004737
004737
005005
004737

TST

; DPU ONLY?
; NO. EXECUTE.

NO.

GET (HAN IN BITS 8.9.
SET WRITE INST FOR CURRENT (CHAN - IN DISPLAY FILE.
YES.

START THE DPU.
WAIT FOR DISPLAY STOP.
1S MEM NON-INTERLACED?

YES. (R1 = EXPECTED FOR NON-INTERLACED).
NO. ADJUST R1 TO EXPECT FOR INTERLACED.
PIXEL READ (POINT 0,2) INTO RZ2.

AND PIXEL READ WITH MEM TAB VAL.
0K?

YES.
NO.
.0,

7385 072610
7384 072612
7385 072614

BEQ
EXIT

DPJUMOD
INLAC

®e®,

072554

7373 072560
7374 072564
7375 072566
7376
7377 072572
7378 072574
7379 072576
7380 072600
7381 072604
7382 072606

TST

002502

366
7367
7368
7369
7370
7371
7372 072550
672550

005737
001402

7363 072536
7364 072542
7305 072544

eV
e B,

rae

29-JAN-81 17:22

NEXT CHAN.
DONE?
NO.
YES.

rex

TEST

7603 072740
7404 072742

IMAGE MEMORY INTERLACE

072742
072746
072750

004737

072752

000137

072564

072756
7405 072762

004737

030072

103401

29-JAN-81 17:22
ENDSEG
COMEND

N 15

PAGE 99-1

; €<CLLLLLLLLLLLLLLLLLLLLLL< END SEGMENT.

PC,LOOP

: REPEAT 'TIL LOGPER EXPIRES.

JSR
BCS
BR

65%
66%

65%:

JMP

66%:

JSR

PC,TSTEND

027646

000402

EXIT

TST

SEQ 0195

: PRINT ERROR SUMMARY, [F REQ'D.

: EXIT THIS TEST >>>3333>333353>3>3>3>>>>>>>

7606

7407
7408
7409
7410 072766
76411

072776

7612 073000
76413 073006
7614
7615 C73010

DISPLAY FILE.
176000
176034
117774
173000

176400

177000

040000

000000

108:
11%:

PROTEC ! CHO,PROTEC ! CH1,PROTEC ! CH2 ,PROTEC ! CH3

WRT
! CHO
APNT!ALL,I!0,0
STOPN

END.TEST
Y 2 2

222 222z

22222222 232222222222

ittt

diiil

> *

END TEST 29

2 2 . 3 23 2

222223

ZSYYTIIII2 2222202 20222 R0 Rddd

iRttt h

» <<

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

—

———

[ VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1? 13

! eee TESY 30

IMAGE MEMORY PATTERNS

7617

29-JAN-81 17:22

B 16

PAGE 100

SEQ 0196

"..."..'.'.'Q.t.'..""'Q'.'Q"Q.'Q"'."Q'"'.'!"""'i"t'.'t..'t'
b

]

BEGIN TEST 30

[MAGE MEMORY PATTERNS

> %

."."..'Q'.Q..'."'l"""."t""'."tt"..""".‘Qt"'ttt.'.."""

(ITERATION COUNT = 1.0

76418 073070

7619 073074
7620 073076

005737
001402

TST

002502
AR
X LR AR R L

7621

7424

e AP PR PR
N N

7625
7426
7627
7428
7629
7430
7431
7432
7433

7434
7435

76436 073102
7437 073106
7438 073112
7439
7660 073116
7441 073120
7442 073124
7443 073130
7644 073132
7645 073136
7646 073140

00473/
004737
004737

027702
030414
027054

005037

072414
072414

7448
7449
7450
7451
7452

073150
073152
073156
073164
073170
7453 073172
073172
073174
073200
76454 073204
073204
072212
7455 073216
7456 073220
7457 073222
7458 073230
7459 073234

7460 073240

ExIT
1.
2.
3.
4.

003074
027700
072414

P ATT1:

CLR

BISW3

074126

;START AT CHANNEL O

.+6

; BR IF MEMORY ON THIS (HANNEL.

LOOPK , TEMP2

;SAVE A (COPY OF LOOPK.

11%
R1,PDF
R1
R1,PDM

SWAB

040000
074130
074112

IMC.CH

PC,LUMIN

IMP
MOV
COM
MOV

MOV

IMC.CH,R1

1 $:

. BLAST LUT.

#RDWRT,R1,(CLR.ZA

MOV

R1,-(SP)

MOV

#CLR.Z ,aDPC

; START THE DPU.

R1
R2
#]1,WRT . X
WRT.Y

;JR1 = X POINTER.
JR2 = Y POINTER.
INIT DISPLAY COLE X...
Y
LAND

(R5)+,R3

21ST PATTERN..

#RDWRT, (SP)
BIS
MOV
(SP)+,CLR.ZA
DPSTART #(LR.Z

176074

;TITLE

; CONFIGURE VSV SYSTEM.

IMC.CH,R1
R1
,R1
MEMTAB(R1)

MOY

003234

PC,TSTGO

PC,CONFIG

MOV
ASL
MOV

BNE

107620

0°'S.
1°S
2'S
3's.

IF LONG MODE, CYCLE X FOR cACH Y (512 X 512 ADDRESSES),

BGNSUB

071424
027454

FOUR 2 BIT
FCUR 2 BIT
FOUR 2 BIT
FOUR 2 BIT

READING EACH PATTERN ONLY CNCE.

JSR

012777
004737

INO, EXECUTE.

THEN CYCLE Y HOLDING X AT 7.
READ EACH PATTERN 10 TIMES AFTER GUICK PA>S

JSR

071434

012705
012503

00000000
01010101
10101010
111NN

ATTST JSR

010146
052716
012637

S EXIT THIS TEST >>333>>>3>>3>>>33>>>>>>>>>>>>

DiSPLAY MODE (INTERLACE/NON-INTERLACE) IS TRANSPARENT.
IF SHORT MODE, CYCLE X FOF Y = O AND 2 (ODD VS EVEN),

073506
003072

013737
013701
000301

TST

WRITE, THEN READ-BA(CK AND TEST PIXEL DATA PATTERNS.
USE FOUR DATA PATTERNS PER PIXEL AS FOLLOWS:

003256

7447 073144

:DPU ONLY 22

PATTIST

8EQ

7422
7423

DPUMOD

JSR

PC,VAITF

MOV

APATS RS

CLR
CLR
Mov
CLR

MOV

; WAIT FOR DISPLAY STOP,

PATTEQN POINTER=> RS.

vSv11/vS11 == GRAPHIC SYS. DIAG MACRO M17113
vee TEST 30

7661 073242
7462 073246

76463 073256

74L64
74LES 073260
7666

7667 073262

073270
0732764
073300
073304
7472 073310
7473 073314
76476 073320
7475 073324
76476 073326
74677 073330
7478 073350
073350
73354
7479 073356
7480 073364

76468
7469
76470
76471

7481
7482 073366
7483 073374

7484 073376
7485 073420
7486 073404

7487
7488
7489
7490
7691
7492

073406
073412
073414
073420
073426
7493 073430
7494 073434
7495 073436
7496 073440
7497 073446
7498 073452
7499 073460

7500
7501 073462
7502 073466
7503 073506
7504 073506
7505 073512
7506 073520
7507 073522
7508
7509 073524
7510 073526
7511 073532
7512 073536

7513 073542
7514 073546
7515 073550

IMAGE MEMORY PATTERNS

043703
0462737
050337

003074

001777
074124

29-JAN-81 17:22
BIC

0746124

BIC
BIS

PDM_R3

#1777 WRT.D
R3,WRT.D

020304
001410

074124
027454

107542

107536

0276564

38:

107530
027456
107514
003074

9%:

004737

027646

013737

003234

027700

013737
012503

003234

027700

020227

000004

5%:

020127
001406
062701
062737
000702
020237
001424
005001
012737
062702
062737
000665

001776

6%:

004737

026756

103753

100321

103011

005237
023727
103601

000002
000002

040000
000002
000002

072414
072414

003240
000045
000011
074150

JSR

MOv
BIC
CMP
BEQ
HRDERR

LOOPTO
JSR
BCS
MOV

ENDSEG

0746126
7%:

003250

MOV
JSR
MOV
JSR
MOV

MOV
MOV
BPL
cMP

BHIS

(MP

BEQ
ADD
ADD
BR

CMP
BEQ
CLR
MOV
ADD
ADD

074126

074130
10%:
11%:

000004

2%:

;...NEXT PATTERN => R3,

JSET NEXT PIXtL PATTERN...

;...IN DISFLAY (ODE.

#WRT.D,aDP(

JWRITE NEXT PATTERN,

R1, aDXR
PC.WAITF

;SET THE X ADDRESS.

PC,WAITF
R2,aDYR

PC,WAITF

aDSR R4

PDM, R4

R3,R4
9%
IMDI, IMDERR
3$
PC.LOOP

THIS PIXEL.

;NOW READ-BACK PIXEL DATA...

i... TO R4,

;O0K, STRIP ANY (RAP,
JAND TEST THE DATA,
;BR

[F Ok

:DATA INCORRECT ERROR.

. REPEAT...

3$
;RESET LOOPER.
TEMP?2,LOOPK
. (CCCELLLLLLLLLLLLLLLLLL<<< END SEGMENT,
L OOPK
TEMPZ,
(RS)+,R3
2%

R2, A4
7%

R1,#MAXX
7%
#2 ,R1
#2 ,WRT
X
1%
R2, YMAX
1%
R1

#],WRT
X

JRESET LOOPER.

:GET NEXT PATTERN...

.BR [F NOT TERMINATOR.

HOLD

AT 0, FOR Y 4 TO MAX.

;BR IF AT MAX X.
;OTHERWISE, BUMP X...

;...AND CONTINUE.

JALL DONE IF MAX Y.
JOTHERWISE, RESET X...

#2,R2

J...BUMP Y.,

B8R

:...AND CONTINUE.

JSR

PC,RELEAS
PRBHNG

RELEASE "HUNG'® DPU.
. .REPORT ERROR AND QUIT.

INC
CMP
BLO
ENDSUB

IMC.CH

HRDERR

MPTNEW: BGNSUB

1%:

SEQ 0197

K<< BEGIN SEGMENT,
. CCLCLLLLLLLLLLLLLLLLLC

BONSEG

012777
004737
010177
004737
010277
004737
017704
043704

¢ 16

PAGE 100-1

MOV
MOV
MOV
MOV
MOV

DEC

#2,WRT.Y

,
IMC.CH44

PATTI

FREE RO

:START THE 'WRITE BUFFER'® AT 1ST FREE LOCATION

(R3)+,(RO)+

rOPY PATTERN TABLE INTO WRITE BUFFER

;SETUP # OF TIMES TO REPEAT PATTERN TABLE
#256. /MPLEN+MPLEN,R]
H#MPLEN,R?
GET LENGTH OF PATTERN TABLE
.AND ITS ADDRESS
AMPAT?
R3
R2

JSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

see TEST 30

IMAGE MEMORY PATTERNS

7516 073552
7517 073554
7518 073556
7519 073560
;gg? 073564

001375
005301
001367
010037
005037

7522 073570
7523 073574
7524 073600

004737
013700
000300

7525 073602
7526 073610
7527 073614

7528 073620
7529 073622
7530 073626
7531 073630
7532 073634
7533 073636

7534 073640

7535 (73642
7536 073644
7537 073650
7538 073652
7539 073656
7540 073662
7541 073666
7542 073670
7543 073672
7544 073674
;gzz 073676
7547 073702
7548 073706
7549 073714

7550 073720
;gg; 073726

042737
050037
013700

006300
016001
001516
010137
006201
006201

074174
072614
3%:

026650
072614

001400
074206
072414

074206

003256

012601
013700
012702
013703
012310

074174
000412
(03240

4%:

MoV
MOV
MoV
MOV
MOV

072450

BIS
DEC
BNE
MOV

005037
013737
005037

072436
072436
074172

CLR
MoV
CLR

013737
063737

003240
(74172

074214

5%:

074220
074220

6$:

MOV
ADD

. WE
#CA3,MPT
. WE
RO,MPT
IMC.CH,RO

RO
,R1
MEMTAB(RO)
8%
R1,PDF
R1
R1

074176
027454
074174
074172
071600

7562 073772

005737

003230

001014
032737
001010
062737

004737

162737
062737
023727
002725
062737

MOV
JSR
MOV
ADD
JSR
ENDSEG

107066
072416
072416

TST

000002

072436

000002
071600
000002
000002

072436

074172

0724356
074172
000022

000002

072436

7%:

;DO IT ENOUGH TIMES FOR 1 SCAN LINE, ALL PATTERNS

;NEXT FREE LOCATION IS BASE OF ‘'COMPARE BUFFER'’

JSTART TESTING AT CHANNEL O.
;CLEAR ALL MEMORIES
:GET CHANNEL NUMBER

;... INTO BITS <9:8>

CLEAR OLD CHANNEL FROM 'WRITE-ENABLE'' INSTRUCTION
JAND INSERT THE CURRENT (HANNEL

GET THE CHANNEL AGAIN
.AND MAKE IT A WORD INDEX

;GETY THE MEMORV PARAMETER (PIXEL MASK)
:IF ZERO, NO MEMORY ON THIS C(HANNEL.
. SAVE PIXEL MASK (FOR ERROR REPORTS)
;COMPLEMENT [T, TO ALLOW SETTING OF UNUSED

.BITS IN COMPARE WORDS

R1,-(SP)
R1,1(SP)

BOTH BYTeS.

(SP)+,R1
;START AT BEGINNING Of COMPARE BUFFER
MP(RAS RO
#256. +MPLEN+1 ,R2
JAND AT WRITE BUFFER
FREE ,R3
COPY WRITE BUFFER INTO COMPARE BUFFER,
(R3)+,(RO)
R1,(RO)+
R2
4%
RO, IMC.RA

IMC.Y
.
IMC.Y,MPTWY
MPOFF

FREE.MPT.WB
MPOFF ,MPT . W8

.SETTING UNUSED BITS.

:MAKE NEXT FREE ADDRESS THE START OF READ BUFFER.

;START TESTING AT FIRST LINE (Y 0)
;TELL WRITER WHERE

TO WRITE

;CLEAR THE PATTERN OFFSET
;GET BASE OF WRITE BUFFER
;... AND ADD THE OFFSET

.
: CCCLLLLLLLLLLLLLLLLLLLL<LK< BEGIN SEGMENT

. ST ,aDPC
AMPT
PC,WAITF
MPCBAS, IMC.TA
MPOFF ,IMC.TA
PC, IMCHK

GET BASE OF COMPARE BUFFER
.AND ADD THE OFFSET 10 IT.

INTLAC

s INTERLACED MODE?

PC, IMCHK

JCHECK FOR IT.

;THEN WRITE DATA FROM THERE.

READ THE LINE AND (UMPARE IT TO (OMPARE BUFFER

.,
: CLCLLLLLLLLLLLLLLLLLLLLLL< END SECMENT

BNE
BIT
BNE
ADD

7$
#2,IMC.Y
7%
#2,IMC.Y

SuUB
ADD
CMP
BLT
ADD

#2,IMC.Y
#2 ,MPOFf
MPOF F , #AMPLEN®?
6%
#2,IMC.Y

JSR

SEQ 0198

;GET PIX MASK INTO LOW BYTE

BGNSEG

012777
004727
013737
063737
004737

7567 074016

PC,CLRRW
IMC.CH,RO
RO

050120
005302
001374
010037

7555 073736
7556 073744
7557 073750
7558 073756
7559 073764
;gg? 073770

7568 074022
7569 074030
7570 0764036
7571 074044
7572 074046

JSR
MOV
SWAB
BIC
BIS
MOV
ASL
MOV
BEQ

CoM

zggz 073734

7563 073776
7564 0764000
7565 074006
7566 0764010

2%
R1
1%
RO ,MP(BAS
IMC.CH

MOV
MOVB

000001

D 16

PAGE 100-2

BNE
DEC
BNE
MoV
CLR

Mov
ASR
ASR

003072

005101

010146
110166

29-,AN-81 17:22

;IF YES, SKIP AHEAD.

;IF NONINTERLACED, NEXT LINE SHOULD READ THE SAME
;BUMP THE OFFSET
;DONE ALL PATTERNS?

;1F NOT, LOOP FOR MORE ON TH.S SAME LIiNE.

;1F DONE ALL, BUMP Y

vSV11/VS11 == GRAPHI( SYS. DIAG MACRO M1113

eee TEST 30

IMAGE MEMORY PATTERNS

7673 074054
7574 076062
7575 074064
7576 074070
7577 0764076

023737 072436
101711
005237 (72414
023727 072414
002634

7580 074102

004737

;g;g 074100

7581 074106
7582 074112
7583 074114
7584 074116
7585 074120
;ggg 076122

003250
000004

8%:

030072

PATS:

(000524

001250
001774
177777
116000
040000

7591 076132
7692 C74140
;ggz 074146

164000
164000
173000

000000

WRT.D:
WRT.X:

164000
164000

wRT.Y:

7595

7596

IMC. Y, YMAX
5%
IMC.CH
IMC.CH, #4
f3 9

;DONE LAST LINE?
:IF NOT, GO FOR MORE
;BUMP THE CHANNEL NUMBER.
:DONE ALL CHANNELS?
;1F NOT, DO THEM.

JSR

PC,TSTEND

; XIT THIS TEST >>>3>33>>3>>>>35>>>>>>>>>>>
PA N 1 (00000000)
PATRN 2 (01010101)
PATRN 3 (10101010)
PATRN 4 (11111111)
LIST TERMINATOR,

TST

EXIT
0
0524
1250
1774
-1
APNT.LO
1.0

;PIXEL DATA SET ON THE FLY.
:LIKEWISE ADDRESSES.

DNOP, DNOP , DNOP
DNOP, DNOP , DNOP
STOPN

IN CASE WE WANT TO CHANGE...
.MODE FOR P-R-B DEBUG.
STOP AND TEST THIS PIXEL.

.MACRO

MPAT2:

7600 074150
7601 074152

PAT.D
PAT.D

0
1

PAT.D
PAT.D
PAT.D
PAT.D
PAT.D
PAT.D

4
10
7
13
15
16

PAT.D

7602 074154

7609
;g}?

000011

MPLEN= -MPATZ/?

7612 074172

000000

MPOFF:

7615

7616 074176
7617 074206
7619 074214

000000

7621 074220
7622 074222

000000
173000

7620 074216

7623
7624
7625 0742264

114000

137000

MP(BAS: O

000009
176000
176034

7618 074210

AR AR RS E AR A

PAT.D MDX

.ENDM

;ggg

;g}z 074174

SEQ 0199

<MDX*B]T8>'<MDX*BIT4>.<=-MDX~=1817*B]T12>.<~-MDX-1817>

7597

7603 074156
7604 074160
7605 074162
7606 074164
7607 074166
7608 074170

E 16

PAGE 100-3

(MP
BLOS
INC
(mMpP
BLT

ENDSUB

000000

7588 0741264
7589 074126
7590 074130

29-JAN-R" 1/:22

176400
000000

PUT 4-B]T PATTERN INTO BITS <7:4> AND <11:8>,
AND ITS COMPLEMENT INTO <15:12> AND <3:0>
USE FLOATING 1'S AND 0°S

:USE ODD # OF WORDS TC MAXIMIZE CHANCES OF FINDING
DUAL-ADDRESSING PROBLEMS.

:OFFSET FOR WRITING AND COMPARING

:BASE ADDRESS OF COMPARE BUFFER

:COMMANDS FOR WRITING THE PATTERN INTO THE LINE

' CH2 ,PROTEC.CH3
177000 MPT.ST: PROTEC. CHO,PROTEC.CH1,PROTEC
ENABLE A CHANNEL FOR WRITING
MPT.WE: WRT!CHO
APNT 0

MPT.WY: O

BM18

MPT.WB: O
STOPN

:START AT X=0

:USE BIT-MAP-1, WITH A COUNT OF 512. PIXFLS

.‘00###004#040#40#0#‘*04‘900000#0000004009+§60000+0

END.TEST
t't'.t"t

""""tt'..t't.tt..""'t"t"fittt't't".i'tl'tt't'ltt'ttt.t't
L4

END TEST 30

—

m———

—

L ySV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

ees TEST 30

IMAGE MEMORY PATTERNS

]

e
—

F 16

29-JAN=-81 17:22 PAGE 100-4

:'."..'.""Q"'.'I.."'""..""".Q...'..'..'Q.'Q'.'.""..."'.l".
[

SEQ 0200

[

—

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

eee TEST 31

SPARE

29-JAN=-81 17:22

G 16

PAGE 101

SEQ 0201

:...'.'."..."".'...."'.'......"'....'..'...'........'Q'....O‘.Q.'.'
BEGIN TEST 31 = SPARE
ie

7627

:'.'.'.""'.".'.'..""""'..'Q'.'.'.'.'.Q....'."....'Q".'.Q....'.t'

; (ITERATION COUNT = 1.)

7628 074264

7629 074270
;g%? 074272

7632 074276

;2%2 074302
7635

7636 074306

005737

001402

004737

002502
027702

TSy

DPUMOD

EX]T

187

BEC

SPARTS: JSR

ExIT

SPARTS

PC.TSTGO

:DPU ONLY 2?

:NO, EXECUTE.

: EXIT THIS TEST >>>3>333>3>>3>>3>>>>>>>>>>

: «xsNOT YET CODEDwe»

R
R Ry

END.TEST

.-tt'."'ttlt..'.'.'QQ."Q'"...""..'.".!'.'Q'....Q".'t.'fi.".""'.'
*w

.-.

END TEST 31

"'.'.Q..t'.'t'.'.fi'Q.""".'t."'..."".!'l..'.'..t'."""".'l‘"."'

VSV11/yS11 == GRAPHIC SYS. DIAG MACRO M1113
vee TEST 32

SYSTEM VERIFICATION DISPLAY

7639

PAGE 103

29-JAN-81 17.22

SEQ 0202

"'Q"'.t.Qt""'.."""'.."Q'."'....."."Q""."Q.t'...'QOQ"".'
*

SYSTEM VERIFICATION DISPLAY

BEGIN TEST 32

| ]

.""....".".'.".t"""fit".t'.""Qt'.".'t."t"."t."t'"'t".'

;

7640 074374

7641 074400
7642 074402
7643
7044
7645
7646
7647

005737
001402

027702
026650

7651 074422

004737
004737
004737
004737

7653 074426
7654 074434

012777
004737

074442
027454

T648 074406

7649 0744612
7650 (74416
7652

7655
7656 074440
7657
7658 074442
7659 074450
7660 074456
7661 074456
7662
7663 074474
7664 074502
7665 074504
7666 074510
7667 374514
7668 074520
7669 074524
7670 074532
7671 074534

7672
7673
7674
7675

074540
074544
(74550
074554

(ITERATION COUNT
TST

002502

BEQ
EXIT
XTI IR

I S1:

000446

104

040

114000
110000

000140

114000
110000

001640

103774

173000

110146

JSR
JSR
JSR
JSR

PC,TSTGO
PC,CLRRW
PC.,DBL INK
PC,LUMIN

MOV
JSR

#L0GO,aDPC
PC,WAITF

JSR
BR
000100

001540

;DPU ONLY ??
;NO, EXECUTE.
< EXIT THIS TEST D>>>3>>3>>33>3>D>333>>>>>5>>>

DPUMOD
vIs?
ST

SMORGASBORD, ONE FRAME THAT HAS A BIT OF EVERYTHING.

106376

000540

1.)

FIRST, A DEC LOGO (SORT OF), THEN VIOLATE THE EDGES
AT LOWER LEFT AND UPPER RIGHT.

105222
027054

114000
152000

LO GO:

;

CLEAR.

; DISABLF BLINKING.
: BLAST THE LUT.

PC,PAUS.S
vIS2

; START WITH THE LOGO.
.AND CONTINUE.

APNT, 540, 100
SETCB,ACAT
(HAR'ALL

JASCIZ

/DI GI

TAL/

APNT, 140,140
LVEC

;EXCEED EDGES AT LOWER LEFT...

APNT,1640.1540

;...AND AT UPPER RIGHT,

LXY
LXY
LXY
LXY

LVEC

L XY
LXY
LXY
LXY

-200,0
1.0 =200
1.200.,0
1.0,200

1.200,0
1,0,300
1.-200,0
1.,0.-300

VSV11/VS11 == GRAPHIC SYS. DIAG MACRD M1113

cee TEST 32

SYSTEM VERIFICATION DISPLAY
012777

074616

106246

7682 074570

012777

074670

106234

004737
004737
072777

7688 074576
7684 0764602
7685 074610
7686

004737

;ggg 0746146

000456

7689 074616
7690 074624

114000
113774

7691 074626

;ggg 074666

173000

7701 074670

114000

7702 074676
7703 074702

77064 0764710

7705 074712

7706 074714
7707 074716
7708 074720
7709 074722
7710 0747264
7711 074726
7712 074730
7713 074732
7714 074734
7715 074736

160000
114000
107774

130000

7716 074740

7717 Q74742
7718 Q74744
7719 074746

7720 074750

SEQ 0203

: NOW 1 LARGE AND 2 SMALL OCTAGONS.

7680 074556

7692 074632
7693 074636
7694 074642
7695 074646
7696 £74652
7697 074656
7698 074662

[ 16

PAGE 104

7677

;g;g

7681 074564

29-JAN-81 17:22

027454

0274564
074702
027454

000500

VIS2:

MOV

106222
N
000002

JSR

LOCT:

JSR
MOV
JSR
JSR

PC,WAITF

:...AND 2 SMALL ONES.

vis3

:...AND CONTINUE.

PC,WAITF
#S0CT2,abPC
PC,WAITF
PC ,PAUS.S

LXY
LXY
LXy
LXY
LXY
LXY
LXY

STOPN

074710
001460

000620

SOCT1:

000620

SOCT2:

1.576.0

1.-576.0
1.-436,-436
1.0,-576

1,436,-436

DJMP, .+10
APNT,1460,620
SVEC.ALL

:...AND 2 SMALL ONES.

1.76.0

1.56,56
1.0,76
1.-56,56
1.-76,0
1.-56,-56
1.0,-76
1.56,-56

SXY
SXY
SXY
SXy
SXy
SXy
SXyY
RPNT
SXY
SXy

u,20.50
1,20,50

SXY
SXY
SXY

1.-20.,20
1,-20.,-20
1,20,-20

STOPN

; 1 LARGE OCTAGON...

1,436,436
1,0,576
1.-636,436

APNT,L220,620
SXy

:1 LARGE ONE...

#S0CT1,aDPC

LXxy

000220

#LOCT,aDPC

APNT,500,2
LVEC'ALL

SXY

173000

MOV

1.20,0

:5 REL POINTS IN CENTER.
;CENTER,

SYSTEM yE

SEQ 0204

TESY

[

VSV11/yS1) == GRAPHMI( SYS

eee

7722

1 NEXT, SHOW GRAPH/MISTO v IN UPPER LEFT.

7723

7726
7725 074752
7726 074760
7727 074766
7728 074770
7729 076774

075124
106044

0127%7

012777

18:

7730 075000

7731

Q75006

7732 075014

Cc3727

7733 075022

001362

7735 0750264

012737

77,

773 075032

vis3:

012777

7737 075040

MOV

MHST 1260 GHI INM, HY*2 :NOW, HISTO ¥ STARTING AT 12640.GHIINH.

INC

aDP(

BIC
ADD
(P

¢2
INM MY]
BGH
#10,HY2
HY+2 ,#HST 1550

:...AND LOOP TIL DONE.

JSR
8R

PC.PAUS.S
vISé

... AND CONTINUE.

GRY:

APNT, 100, 1260
LVEC.ALL
1.340,0
LXY

;DRAW BASE LINE.

GX1:!4

X INCR - & FOR GRAPH,

7755

7756 075134
7757 075140
7758 375146

7758 075150
7760 075154

MOV
SkP2
JSR

BNE

114000
113774
176104

000100

001240

LXY

127774
173000

001240

150000
114000
174110
127774
173000

001240
000140

041240
160000

BGH] INM,GY*2

075182
105772

7763 075074

775% 075122
7754 075126

PC.WAITF

BNE

7762 075066

075100
075106
075110
7751 075116
7752 (75120

abP(

JSR

86,GY?2
GY+2,. #1604

77640 075052
7761 C75060

000431

;START GRAPH Y,

ADD
(P

28:

075076

#GRY ,aDP(

8IC

7739 075066

7746
7747
7748
7749
7750

INC

#1260 GHIINH,GY*2 ;PLOT GRAPH Y STARTING AT 12460.GHIINH.

0751264
075124
001604

7738 075042

7764
7745

MmOy

MOV

075122
001240

075150

GY:
HSY:
MY

1} 3

JINCR v AMPLITUDE...

:LOOP UNTIL DONE.

MSY ,@0P(
P(,WA]TF

u.=340.0

GHY 'ALL,0:!1240

JINCR Y AMPLITUDE...

STOPN,DJMP,GY

SETHB, 1240

APNT 40,1240
oxj'fo

GMY 'ALL ,HST!1240
STOPN, DJMP MY

sHISTO BASE LINE.

;X INCR = 10 FOKk WISTO.

YSV11/yS11 == GRAPHMI( SYS, DIAG MACRO M1113
eee TEST 32
SYSTEM vER] FIC ATION DISPLAY
7762

012737
012777

075176
075200
075204
075210
075216
075224
075232

000402
005277
00473/
062737
062737
023727
001362

7775 075234
7776 075262

012737
012777
000402
005277
004737
042737
062737
023727
001362

7767

7768
7769
7770
7771
7772
7773
7774

7777 075250
7778 075252
7779 075256
7780 075262
7781 G75270
7782 075276
7783 075304
7784
7785
786 075306
7787
7788 075310
7789 075316
7790 075320
7791 075324
7792 075330
7793 075332
7794 075336
7795

7796 075344
7797 075350
7798 975356
7799 075360

7800 075364

PAGE 106

SEQ 0205

: NEXT, GRAPH/HISTO X [N LOWER RIGHT.

77¢3

7764
7765 075162
7766 075170

29~ AN--81 17:22

K 16

011340
075310

075334
105634

1$:

105626

0274654
010000
000004
075334

051340
075344
105554
027454
010000
0C0010
075362

ng‘:

113774

174104
123774
173000
150000
114000
1764110
123774
173000

SkP2
INC
JSR

075334
075334
001704

BI(
ADD
CMP
BNE

075362

MOV

105562

2%:

MOV
SKP?2
INC
JSR

BIC
ADD
(MP

075362
075362
041650

BNE

JSR
BR

000431
114000

MOV

001340

001340
160000

000100

075332

001340
001340

000140

041340
160000

075360

GRX:

GX:
HSX:

HX:

MOV

60 ;PLOT GRAPH X STARTING AT 1340!GHIINH.
GHI INH,GX+2
#13

#GRX ,aDP(

:START GRAPH X.

aDP(

PC.WAITF

#GH]I INH,GX+2
n6,GX+2
GX+2,#1704
1%

SINCR X AMPLITUDE...

:LOOP UNTIL DONE.

MHST ' 1340 'GHI INH HX+2 :NOW, HISTO X STARTING AT 1340!GHIINH.

#HSX,aDPC

aDP(
PC.WAITF

HGH] INH, HX+?2
#10 HX+2
HX+2,#HST. 1650

JINCR X AMPLITUDE...

:...AND LOOP TIL DONE.

PC,PAUS.S
VISS

;...AND CONTINUE.

APNT,1340,100

LVEC'ALL
1,0,340
LXY
u,0,-340
LXY
GYI'4
GHX'ALL,0!1340

:DRAW BASE LINE.

;Y INCR = & FOR GRAPH.

,
STOPN,DJMPGX

SETHB, 1340

:HISTO BASE LINE.

Gv1.10

;Y INCR = 10 FOR HISTO.

APNT,1340,140

GHX!ALL ,HST!1340
HX
STOPN,DJ,MP

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
SYSTEM VERIFICATION DISPLAY

7802

7803
7804
7805
7806 075372
7807 075376
7808
7809
7810 075402
7811 075410
7812 075416
7813 075424
7814
7815 075430
7816 075436
7817 075444
7818
7819
7820 075450
7821 C75454
7822
7823 075460
7824
7825 075466
7826 075474
7827 075502
7828

7829 075506

7830 075514
7831 075522
7832

7833 075526
7834 075526
7835

7836 075530
7837 075536
7838
7839
7840
7841
7842

375542
075550
075552
075554

7843 075556
7844 075564
7845 075570
7846 075576
7847 075600
7848 075602
7849 075606

L 16

PAGE 107

SEQ 0206

é NEXT SHOW BIT MAP MODE 1 AT BOTTOM (ENTER,
; AND BIT MAP MODE O AT TOP CENTER.

012700
004737

vIs5:

1772777

027020
003240

012737
012777
004737

137400

075542
027454

012700
004737

000377
027014

013737

003240

075600

012737
012777
004737

075556
027454

134010

075576

012737
012777
004737

136340

075530
027454

135010

075570
027454

000400
075550
000300

000000
164000
173000

MOV

105330

164000

#8146 ,aDPC

JXCT BM14, DRAWS A DASHED...

PC.WAITF

#318,aDPC

JXCT BM18, DRAWS A DASHED...

;...LINE (2 ON, 2 OFF)...
;...FOR 400 PIXELS.

MOV
JSR

#377 ,R0O
PC,FILLY

MOV
MOV
MOV
MOV

: SET BUFFER ADDRESS.
FREE ,B048
'M64 ,B04B-2 ; 4 BIT X 64 SQUARE.
#BMO4
#BMO4 'M32'EX2.B048=~2 ; 4 BIT X 64 SCUARE.
; DO IT.
#3804 ,aDPC

MOV

'M64 ,B048-2 ; 8 BIT X 64 SQUARE.
#RMO8

MOV
MOV

JSR

PC.WAITF

#RMO8 'M32'EX2,B048-2 ; 8 BIT X 64 SQUARE.
: AND DO THAT TOO.
#3808 ,aDPC
PC.WALITF

PC,PAUS.5
VISS5A

1%:

:JSR
BR

000240

B14:

APNT 400,240

; 4 ON & OFF FOR 340 PIXELS.

000340

B18:

APNT, 300,340

; 2 ON 2 OFF FOR 400 PIXELS.

B148:

000540
075576
001040

; SET BUFFER ADDRESS.

#R114'340,8148-2 ; SET OPCODE = BM14 X 340

JSR

075576
105310

FREE ,B148

;... ALTERNATE WORDS.

MOV

105366

; SET PIXEL DATA PATTERN...
;...AND FILL BUFFER WITH...

J...LINE (4 ON, & OFF) ...
;...FOR 340 PIXELS.
#BM18'400,8148-2 ;SET OPCODE - BM18 X 400

JSR

075550

000000
173000
114000
160000
114000
134001

MOV

105406

000430
114000
160000
114000
136340

MOV

075552
075550

013737
012737
012777
004737

JSR

#-1,R0
MOV
PCFILLZ

001340

BO4:

001340

B0O&:
B8048:

DJMP,

.+10

8M14!340
STOPN

APNT, 540, 1340
DUMP, .+10
APNT, 1040, 1340
! M64
BMO4
O

vev TEST 32

29-JAN-81 17:22

DNOP, DNOP
STOPN

;...AND CONTINUE.

—

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113

075610
075616
075624
075626
075634
075640
7863 075646
7864 075650
7865 075654
7866 075656
7867 075656

7868
7869
7870 075660
7871 075666
7872 075670
7873 075672
7874 075700
7875 075710
7876 075720
7877 075730
7878 075732
7879 075734

IEIRX)
TR

7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862

SYSTEM VERIFICATION DISPLAY

vev TEST 32

112737

012777
000403
012777
004737
123727
103003
105237

000764

075671

VISS5A:

000001
027454
075671

105176

1%:
2%:

105206

000024

075671

006020
006100
006200
006300

173000
000000
160000

000300

000320

004
006040
006120
006220
006320

006060
006140
006240
006340

075670

PAGE 108

SEQ 0207

NEXT SHOW RUN-LENGTH MODE D]AGONAL BARS BETWEEN THE BM1 AND BMO L INES.
USES 16 INTENSITY LEVELS, FROM O TO MAX. THE O LEVEL RUN-LENGTH IS VARIED
FROM & TO 24(8) FOR 20 LINES OF DATA, WHILE THE OTHER RUN LENGTHS REMAIN
CONSTANT AT 14. THE LINES ARE DRAWN FROM TOP TO BOTTOM (YDOWN=1).

000004
075660

000430
114000
144040
000

29-JAN-81 17:22

Mov
B8R
MOV
JSR
(MPB
BHIS
INCB
B8R
;JSR
B8R

MOVR

#4 ,VRLF2+1

#VRLF ,aDP(C
2%
#1,aDP(
PC,WAITF
VRLF2+1,#24
3s
VRLF2+1
1%
PC,PAUS.S

viSé6

:SET INITIAL COUNT FOR O-INTENS AT &

;START THE FILE
:SKIP OVER THE RESUME
;RESUME THE DISPLAY
:WAIT FOR DONE
:DONE 20(8) LINES?
;FINISH IF YES.
:BUMP INITIAL COUNT IF NO.
:...THEN XCT AGAIN.
; PAUSE

2...THEN CONTINUE.

:DISPLAY FILE FOR V]SUAL RUN-LENGTH MODE
:START BETWEEN BM1 & BMO
APNT, 300,320
VRLF :
sENTER RUN-LENGTH MODE, GO DCWN THE SCREEN
VRLF1: RNLN!YDOWN
, START AT LENGTH=4
INTENSITY
:0
0,4
.BYTE
VRLF2:
ING INTENSITY, LENGTH-14
:INCREAS
0,6060
6020,604
.WORD
.WORD
.WORD
.WORD

STOPN

6100,6120,6140,6160
6200,6220,6240,6260
6300,6320,6340,6360

0
.WORD
DJMP,VRLF?2

;STOP

:....AND MORE
l....AND MORE
....AND MORE

;COUNT = 0 FOR NEWLINE
;THEN JUMP BACK FOR MORE

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
32

SYSTEM VERIFICATION DISPLAY

IS
W

TEST

eee

29-JAN-81 17:22

N 16

PAGE 109

SEQ 0208

FINALLY, AT DEAD-CENTER:

A CIRCULAR SWEEP FROM 12 0°CLOCK THRU 360 DEGREES.
INCREMENT INTENSITY/COLOR LEVEL SUCH THAT ALL LEVELS
ARE DISPLAYED IN 360 DEGREES.
768 VECTORS TOTAL.
3 VECTORS PER LEVEL * 256 LEVELS
(OCTAL 3 » 400 = 1400)

ACTUAL COLOR/INTENSITY SPECTRUM DEPENDS UPON HOW MANY
PIXEL BITS ARE AVAILABLE, AND HOW THE LOOK-UP=RAM [S
PROGRAMMED (GREY -SCALE BY DEFAULT, IF INSTALLED).

2 BITS <9.8> = & LEVELS.

78%4
7895
7896 075740
7897 075746
898 075754
7899 075762
7900 G75766
7901 075772
7902 075774
7903 076002
7904 076006
7905 076014
7906 076016

7907
7908
7909
7910
7911
7912
79713
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
7924

076022
076024
076032
076040

076042
076046
076050
076056
076064
076066
976072
076074
076102
076110
076112
076116

4 BITS <9:6> = 16 LEVELS
6 BITS <9:4> = 64 LEVELS

8 BITS «9:2> = 256 LEVELS

112000

040000
000300
000003
0C0004

023727
001403
004737
000771
052737
023727
001403
004737
000771
052737

023727
001403
004737
000771
042737
023727

001403
004737
000771

076120
076126
076132
076134
076136
076142

012737
012705
012501
001403
004737
000773

076144
076150
076154
076160
076164
076170
7937 076174

004737
004737
004737
004737
004737
004737
004737

7925
7926
7927
7928
7929
7930
7931
7932
7933
7934
7935
7936

(4 PER QUADRANT).

076372
027454
076404

076400
076402
076404

MOV
MOV
MOV
MOV
MOV

105030

000000

Mov

2%:

076230
020000
076402

3%:

076404
040000

(%:

076402
020000

5%:
6%:

076404
060000

8%:

076266
020000
076404
076230
020000
076402

7%:

076266
004000

110C/70

003220

9%:

10%:

027172

JSR

tMP
BEQ

#]110,RBX
#300,RBY
#3.R1
#4 R3
R1,R2

#LVEC!LO,RBL

#RBO,aDPC

PC.WAITF

RBY 40
3s

JSR
BR
BIS
(MP
BEQ
JSR
BR
BIS
MP
BEQ
JSR
BR
BIC

PC.,Q1
2%
#MXY ,RBY
RBX,#1'0
5%
PC.Q°2
43
AMXY ,RBX
RBY ,#MxY .0
7%
PC.,Q3
6%
#MXY ,RBY

JSR
BR

PC,Q4
8%

CMP
BEQ

RBX,#]1 .MXY!'0
9%

MOV
MOV

#6000, SHADLY
ANTSC8+2
,RS

BEQ
JSR

1%
PC.SHAD16

MOV

B8R
118:

MOV

JSR

JSR
JSR
JSR
JSR
JSR
JSR

(LUT REQ'D).
(LUT REQ'D).

(RS) +,R1

JINIT DISPLAY FILE.

; SET FOR 3 VECTORS PER LEVEL...
;...AND INCR LEVEL BY ‘11
; SCRATCH COPY LEVEL COUNTER.
;START, QUAD 1.

:DELTA Y MIN ??

;DONE QUAD 1
.QUAD 2,

IF SO.

DX POS,

JDELTA X MIN ??

DY NEG.

;DONE QUAD 2 IF SO.
;QUAD 3,

DX NEG,

;DELTA Y =MIN

DY NEG.

;DONE QUAD 3 IF SO.
;QUAD &4,

DX NEG,

DY POS.

;DELTA X -MIN ??
;DONE QUAD & IF SO.

;

FINALLY,

SET

SHADING DELAY...

;...AND CYCLE THRU 16 SHADES...
.OF EACH BASIC (NTSC) COLOR.
;- BR WHEN ALL DONE.

10%

PC,OUTLIN

PC ,PAUSEN
PC ,PAUSE1
PC ,PAUSE1
PC,EBLINK
P{,PAUSE1
P(C ,PAUSE1

; OUTLINE THE SCREEN.
PAUSE 3 SECONDS...

cNABLE BLINKING.
PAUSE

3 SELONS...

\SV11/vS11 -~ GRAPHIC SYS. DIAG MACRO M1113
*ee TEST X2
SYSTEM VERIFICATION DISPLAY
7961
7962
7963
7964
7965
7966

076336
076342
076346
076352
076356
076362

004737
004737
004737
004737
004737

027514
105356
027514
027514
030072

28-0CT-81

JSR
JSR
JSR
JSR
VISXIT: JSR
EXIT

11:23

8 1
PAGE 109-1

PC,PAUSE1
PC,DBL INK
PC,PAUSE1
PC ,PAUSE1
PC,TSTEND
TST

SEQ 0209
;

DISABLE BLINKING.

;

EXIT THIS TEST D>333333333333333O333>>>>>>

VSV11/vS11 -- GRAPHIC SYS. DIAG MACRO M1113

*ve TEST 32

7968 076366
7969 076372
7970 076376
7971 076402
7972 076404
7973 076412
7974 076414
7975 076422
7976
7977 076424
7978 076430
7979 076434
7980 076440
7981 076442
7982 076450
7983 076452
7984
7985 076460
7986 076464
7987 076466
7988 076470
7989 076472
7990 076474
7991 076476
7992 076502
7993 076510
7994 076516
7995 076522
7996 076526

SYSTEM VERIFICATION DISPLAY

076540

28-0CT-81

Q1:Q3:

176000

000300

076540

000002

076542

1%:

Q2:Q4:

176000

000300
000002

076542

162737

000002

076540

012700
005300
001376
005302
001011
010102
060337
042737
052737
005277
004737

000600

000207

076536

176000
112000
104310
027454

MOV

AQXIT:

1%:

076536
076536

2%:

1
SEQ 0210

RBX,RS

sQUAD 1 AND 3,

fig.xsoo

;DELTA X MAX ??

INCR DX

‘TIL...

#~ci777.85

BEQ
ADD

#2 ,RBX

sNO, INCR DELTA X.

axIT

#2 ,RBY

cYES, DECR DELTA Y,
sCHECK FOR LEVEL CHANGE AND EXIT

MOv

RBY,RS
#~C1777
RS
R5,4300

;QUAD 2 AND 4, INCR DY 'TIL...

SKP3
sus

BIC
CMP
BEQ
ADD

1%:

PAGE 110

BIC

CMP

000002

11:23

1%
#2,RBY

SKP3
sus

s...MAX,

THEN DECR DY,

s...MAX, THEN DECR DX.
;DELTA Y MAX ??
;NO, INCR DELTA Y.

#2 ,RBX

;YES,

MOV
DEC
BNE
DEC
BNE
MOV
ADD

#600,R0
RO
1%
R2
2%
R1,R2
R3,RBL

; DELAY APPROX 3 MSEC...
;...BETWEEN VECTORS.

INC
JSR
RTS

aDP(
PC,WAITF
PC

BIC
BIS

DECR DELTA X.

. LEVEL CHANGE REQ'D ??
sNOT YET.

sYES, RESET COUNTER...

#*C1777 ,RBL
#LVEC'LO,RBL

s...AND STRIP LEVEL...
;...REPLACE OPCODE.

..
J...WAIT,
se.AND EXIT.

* DISPLAY FILE FOR CIRCULAR RAINBOW.
8000 076530
8001 076536
8002 076540
8003 076542
8004 076544
8005 076552
8006
8007 076556

114000
112000
040002

000776

164000
160000

173000

000300

076530

000736

164000

RBO:
RBL:
RBX:
RBY:

APNT ,HAF X ,HAF Y60

sSET ORIGIN AT CENTER.
JLEVEL WILL INCREMENT.

LVEC!LO
1!2
300

;DITTO X...

:...AND Y,

DNOP, STOPN,DNOP
DJMP ,RBO

END.TEST
S RARA

AR R AR

AR AR AN R AN

TR AR AR AR RN ANNANRRR A AR ARARRR P AR

NANRNRRRNRARNRARY

* %

.
.

*
*

END TEST 32

SRR AR AR AR A

[

AR AN AN AR

AR A AN AN

A RANA NN RN RN NN RAR NN A RARNNNNRANNNNRNR SRR AR

VSV11/VS11 -~ GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81 11:23
vee TEST 33
JOY=STICK VERIFICATION (STAND-ALONE)
8009

AAEERRRR

BEGIN TEST 33

“x
* %

D 1
PAGE 111

2222202 ddd

SEQ 0211

)il

020 0t2R2Rdd0dR02000d000
20

JOY=STICK VERIFICATION (STAND-ALONE)

;ttttttttt*tttttttttttt*ttttttttttttt*ttt*tttttttttttttttttttttttttttttt
; (ITERATION COUNT = 1.)

8042 077100
8043 077106
8044 077114
8045 077120
8046 077124
8047 077126
8048 077130
8049 077134
805? 077136

6
8057 077140

004737

030070

TST
BEQ
EXIT
C_%e %o %o vy 0,y e,

005737
001402

027702

TESTK
JSV
TST

. BR IF CLEAR TO RUN.
2 EXIT THIS TEST D>2333333D533333>53333>>>>

THIS TEST WILL RUN ONLY IF IT IS SPECIFIED BY ITSELF, AND IF MANUAL
%gTECX?EXéE? IS ALLOWED (UAM=0), AND, OBVIOUSLY, ONLY IF A JOY=STICK

ONCE STARTED,

THERE

Sv:

PC,TSTGO

JSR

IS NO EXIT,

MANUAL

BCOMPLETE
PRINTF

077302
146013
077302
146100

077302
077302
100306
100306

b
e

146016

077302

146072

012737
053737
012737
053737
012737
053737
012737
053737
013737
006237

JSVA:

030414
077302

—b

004737
005037

JSVA1:

MOV

BIS

077302
003026
077302

100431

000414

012777

;

077150

103664

18T
#SCOUT

PC.CONFIG
SELCHA

TITLE.

EXIT THIS TEST >O2335333533333335355355>)>

;
;

FIND THE CHANNELS
SET SELECTED CHANNEL 70 O (DEFAULT).

#CUON'CUIOFF ,JCXA

SELCHA,JCXA

#CURD ,JCXD
SELCHA,JCXD
SELCHA,JSPIXA
JSPIXA
JSPIXA
#CUWT ,JSPIXA
#CURD,10%

TST8

;

MCHAN,SELCHA,0,1400,0,3,YES

MOV
BIS
MOV
ASR
ASR
BIS
MOV

B8M]
B8R

SAVE <*(>.

JSVA1

#CUIM,JCXB
SELCHA,JCXB
#CUIS,JCXC

n]S
MOV
MOV
SWAB
ASL
TST

003270

#NOMAN

MOV
BIS
MOV

BIS

175000
146100

005760

EXIT
PRINTF
JSR
CLR

GMANID

QOOOO0O0VOOO
O==3
=2 =0000
N == = o = YN NN
Qb =
b b P SO
OSSO0 0000

8010 076656
8011 076662
8012 076664
8013
8014
8015
8016
8017
8018
8019
8020 076670
8021
8022 076674
8023 076676
8024 076700
8025 076720
8026 076724
8027 076744
8028 076750
8029 076754
8030 076774
077002
8032 077010
8033 077016
8034 077024
8035 077032
8036 077040
8037 077046
8038 077054
8039 077062
8040 077066
8041 077072

SELCHA,JCXC

SELCHA,10%
UNITN,R1
SELCHA,RO
RO
RO
SYCTAB(RO)

;

STIK(R1)

86T

JSTST

;

240, 240

: BEQ

(BITS 9-8)

; MAKE WORD OFFSET
;s 1S THERE A JOYSTICK HERE?

3s
23

GET CHANNEL NO.

sSTICK AVAILABLE THIS UNIT ??

JYES, GET ON WITH IT.

;tttt*itttttttttt'ttttttttttttttttttttttttttlttttttttttt

AAAEd222 22200200020

MoV

#1$,3DPC

JNO, CAN'T RUN.
dR

2202020202220 32320232323232322232323222¢8

;DON'T KNOW, LET'S FIND OUT.

VSV11/VS11_=-- GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81
s+ TEST 33
JOY=STICK VERIFICATION (STAND-ALONE)
8058 077146
8059 077150

000403
164000

8061 077156
8062 077162

004737
103416

8060 077152

8063

146100

1$:

173000

108 :

027454

8065

;

8066

077164
077170
077172
077214

8072 077220
gg;z 077220

004737
006200

026756

000137

076744

8075 077222
8076
8077
8078

045

8081 077270

103

101

040

JSR
BCS

PC,WAITF
3$

STIK(R1)

CLRB

:BR IF DPU RESPONDS TO STICK.

AR AR AR R R

AR AR NN A N

AN AR NAN AR AR

;OTHERWISE, SET FLAG = NC STICK.

;ttttttttttttttttttttt*tttttttttt*tttttfit*tttttt*ttttttt

PC,RELEAS
RO
#NOSTIK,RO
JSVA

:RELEASE '‘HUNG'' DPU...

3$:

:
BR

MOVB
JSTST

NOSTIK:

.ASCIZ
.EVEN

/%A -- NON-EXISTENT SYNC CHANNEL

:...TELL THE MAN...
: KEEP TRYING (FOREVER)

!'!

#1,STIK(R1)
;SET FLAG = STICK AVAILABLE...
:...AND START 'EM UP.
:

%01/

gggg

8082
8083 077302

:TRY TO READ CURSOR POSITION.

CURD,STOPN

240, 240

SEQ 0212

JSR
ASR
PRINTF
JMP

28:

000431

1
E
PAGE 111-1

SKP3
DNOP

JRRNAARARARE

8064

8067
8068
8069
gg;g

11:23

: CHANNEL SELECTION QUESTION AND ANSWER.

000000

110

101

MCHAN:

.ASCIZ

.EVEN
SELCHA: 0

/CHANNEL /
s USER SELECTED CHANNEL

(DEFAULT=0).

VSV11/VS11_~= GRAPHIC SYS.
S.
28-0CT-81
DI AG ?ACRO M1113
vee TEST 33
JOY=STIC K VER IF ICATION (STAND-ALONE)

11:23

PAGE 112

SEQ 0213

: TURN ON THE CURSOR AND DISPLAY IT'S CO-ORDINATES ON SCREEN.
; ON ''STOP'' INTERRUPT, UPDATE READ-OUT IF STICK IS MOVING.

ON ''SWITCH' INTERRUPT, MARK THE (0-ORD WITH A LITTLE "X
ON 'MATCH'' INTERRUPT, MARK THE SPOT AS BEFORE, AND SAY 'MATCH''

8
8091 077304
8092 077310
8093 077314
8094 077320
8095 077324
8096 077332
8097 077340
8098 077346
8099 077354
8100 077360
8101 077364

ISTST:

s BLAST THE LUT.
sINIT IN READ/WRITE MODE.

JSR
MoV
MOV
MOV
Mov
CLR

PC,FILL
FREE ,BMXX
#28 ,aSTPV
#6S,dJSMV
#58,aJSSV
SDXR
SDYR

. FILL PIXEL BUFFER.
s SET BUFFER POINTER.
'SET STOP...

CLR

103440
103426

004737
023737
001103
023737
001077

077752

2$:

100004

003170

100006

003172

005277
000002

103372

052737
017737

001777
103362

003170

103354

003172

100404
017737
100010

100470

001777
023524
103306

003170

017737

103300

003172

100410

100470

042737
062737

003170
003172

013737
013737
013737
013737
000411

100360
100362

062737
013737
013737

DPSTART
MoV
JSR
MoV
BR

BREAK
JSR
CMP
BNE
CMP
BNE
INC
RTI

000433
042737
004737
017737
100004

1%:

4%:

(VL0
¥
-— AN~
N AN

100306
027454
100316

8104

077640

PC.LUMIN
PC,CLRRW

MOV

8102 077376
8103 077404
8105 077406

JSR
JSR

BIS

MOV
BMI
MoV
8PL
HRDERR

BR
BIC
JSR
MOV

#JISPIXA
#JSPIXA,aDPC
PC,WAITF
#JSPIX,aDPC

PC,GTCURS
MKDXR, SDXR

MKDYR,SDYR

63
aDPC

#1777 ,MATCH
aDXR,SDXR
418
aDYR,SDYR
428
DXYME, JXYPE

54$
#1777 ,MATCH
PC,ERRCHK
aDXR,SDXR

52%

aDYR,SDYR

5
53s:
54%:

538

JSDXYE , JXYPE

CLEAR OLD JSX,JSY CO-ORDS.

; START THE DPU.
;

WAIT FOR DISPLAY STOP.

sSTART THE DISPLAY...
s...AND WAIT FOR INTERRUPT.
; ON ''STOP'’, BREAK...

;GET & MASK HE CURSOR DATA

s...AND CHECK STICK MOTION.

; BR IF STICK IS MOVING.

DITTO
:
; OTHERWISE, JUST RESUME...
:...AND DISMISS.
; "MATCH'' =~ ENABLE TEXT,

SEE THAT NO SIGN BIT SET ON MATCH
.IF SET, REPORT ERROR
AND ALSO FOR DYR
:SKIP IF 0K

:REPORT THE ERROR
:GC PROCESS THE INTERRUPT

; "'SWITCH'® == DISABLE TEXT.
;CHECK FOR ERROR CODE

IN CSR

GET X=COORDINATE & TEST SIGN
.ERROR IF NOT SET,
GET Y=COORDINATE & TEST SIGN
0K IF SET
;REPORT THE ERROR.

#174000, SDXR

#174000.SDYR

:CLEAR SIGN & STATUS ON SAVED X
;CLEAR SIGN & STATUS ON SAVED Y

MARK
, EMK

; ON EITHER...

MARK+2 ,EMK+2
SDXR ,MARK

6$:

. .MATCH..
.AND SWiTCH VECTORS.

.ERASE OLD MARKER...

SDYR ,MARK +2
628

.AND SET A NEW ONE.
GOTO COMMON HANDLER.

#1777 ,MATCH

;STICK MOVING, DISABLE TEXT.

MKDXR, SDXR
MKDYR,SDYR

: SAVE OBSERVED CO-ORDS.

8145 077704

100414
1006416
100434
100436
003170
027324
100414
100416
003172
027324
100434
100436
077376

100336
100340
100352
100354

103060
103054
174000
174000

100004
100006
100004
100006

040
040
040
045

040
040
040
101

000000

62%:

MoV
MOV
MOV
MOV
MOV
JSR
MOV
MoV
MOV
JSR
MOV
MOV
MOV
RTI
GTCURS: MOV
MoV
BIC
BIC
RTS
MKDXR:
0

MKDYR:

127
104
106
040

+
.

SEQ 0214

013737
013737
013737
013737
013701
004737
010137
010237
013701
004737
010137
010237
012716
000002
017737
017737
042737
042737
000207
000000

wunmn
- > >

8140 077654
8141 077654
8142 077662
8143 077670
8144 077676

6 1
PAGE 112-1

11:23

[ SySy

VSV11/VS1]1 -- GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81
wxx TEST 33
JOY=-STICK VERIFICATION (STAND-ALONE)

2.EX+2

JSY+2 ,EY+2

;ERASE OLD X/Y.
sCONVERT X TO ASCII...

;... UPDATE READ-OUT.
:CONVERT Y TO ASCII...
#1$, (SP)

aDXR ,MKDXR
aDYR . MKDYR

:...UPDATE READ-0UT.
s SET PC TO RESTART...
;...AND DISMISS.

#174000,MKDXR

gz7aooo,nxovn

;ERROR MESSAGES FOR JOYSTICK OPERATIONS:
.ASCIZ
/
WAITED TOO LONG FOR J.S. STATUS RETRIEVAL/

JSWTEX:
JSDXYE:
DXYME:
JXYPX:
BGNMSG

.ASCIZ
_ASCIZ
L.ASCIZ

JXYPE

PRINTX

ENDMSG

/
DXR OR DYR SIGN NOT SET ON J.S. RETRIEVAL/
/
DXR OR DYR SIGN SET ON J.S. MATCH INTERRUPT/
/XA
DXR: X06XA
DYR: X06XAIN/

#JXYPX,aDXR,aDYR

VSV11/VS11_~= GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
xve TEST 33
JOY=STICK VERIFICATION (STAND-ALONE)

8174
g};g

H 1
PAGE 113

SEQ 0215

. DISPLAY CODE.

8177 100306
g};g 100314

175000
173000

8180
8181
8182
8183
8184
8185
8186
8187

100316
100320
100322
100326
100334
100336
100342
100350

164000
146072
152000
114000
102000
060
114000
100000

8190 100360

000000

8188 100352
8189 100356

8191 100364
8192 100366

060
114000
104000

000100

JSPIXA:

CUWT.100,100
STOPN

JSPIX:
JCXA:

DNOP
CUON!CUIOFF
SETCB,ACAT
APNT, 1620,1600
CHARLO
LASCII
79000/
APNT 16201540
CHAR

110302
001620

001600

060
001620

060
001540

EX:

060

EY:

000000

EMK:

8193 100370

8194 100372
8195 100374
g}gg 100376
8198
8199
8200
8201
8202
8203

11:23

114000
103774
112
060
115000
100000

8206 100440
8207 100442

114000
000000

8208 100446
8209 100450

112
060

104000

001460

001600

123
060

130
060

001460

001540

123
060

13
060

000000

JSX:

JSY:

MARK:

70000/

0.0

SVEC
SXY
SXY

SXY
SXY
SXY

100400
100406
100410
100414
100420
100426

8204 100430
8205 100434

.ASCII
APNT

1,-10,-10
U.20,0

;...AND NEW MARKER.

SVEC
SXY

SXY

u.20,0

SXY

SXY
001540

001500

115

101

8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230

114000
103774
060
114000
103774
060
114000
103774
060
114000
103774
061

000010

000716

100500
100506
100510
100514
100522
100524
100530
100536
100540
100544
100552
100554

060

000260

000716

062
000530

065
000716

065
001116

062
000716

062

065

MATCH:

;...AND OLD MARKER.

APNT
0,0

/JSY /
70000/

8212 100456

114000
102000
040

;...AND Y NUMERICS...

s...AND Y...

LASCII
LASCII

1.-10,-10
u.20,0

8215 100462
8216 100470
gg}g 100472

sERASE OLD X ...

APNT, 1460,1600
CHARTALL
JASCIT
7JSX /
-ASCII
70000/
APNT, 1460, 1540
CHAR

SXY

gs}z 100460

sASC1I BASE ADDRESS.

1.-20,20
u.20,0
1.<10,-10

8210 100452

8211 100454

;CURSOR ON, INT'S OFF.

;DISPLAY NEW X...

1.-20,20

1.-10,-10

APNT,1540,1500
CHARILD
LASCII
7/ MATCH/

; "'CHAR!ALL'' IF MATCH INTERRUPT

APNT,
10, HAF Y60~20
sNOW LABEL THE BOX VECTORS.
CHARTALL
LASCIT
70000/
APNT
260, HAF Y60-20
,
CHARTALL
LASCIT
70250/
APNT,
530, HAF Y60-20
CHARTALL
LASCII
70520/
APNT, 1256-140,
HAF Y60-20
CHARTALL
ASCIT
71256/

VSV11/VS11_~- GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81
ver TEST 33
JOY=STICK VERIFICATION (STAND-ALONE)
100560
100566

100570
100574
100602
100604
100610
100616
100620
100624
100632
100634
100640
100646
100650
100654
100662
100664
100670
100676
100700
100704
100712

114002
10377

001366

114000
103774

001636

114000
103774
060
114000

000716

000010

060
000716

060
000250

060

062

064

061
061

103774

065

067

000716

062

000510

065
000716

060
001136

114000
103774

000716
000716

001636

100714

114000
103774
061

066

067

100720
100726
100730

114000
103774
107

001706

000010

100732
100740
100742
100750

164000
146016
114000
113774

164000

000000

061
061

061

064

LASCII

71526/

ASCII

71776/

APNT ,HAFX=60,10
CHARTALL
LASCII
70000/
APNT ,HAFX=60,
250
CHARTALL

LASCII

70240/

ASCIT

/711767

LASCIT

71436/

APNT ,HAFX=60,510
CHAR'ALL
LASCII
70500/
APNT ,HAFX=60, 1176=40
CHAR fALL

067

001376

APNT ,HAFX=60, 1436=40
CHARTALL

063

APNT ,HAFX=60, 167640
CHAR'ALL
ASCII
71676/

APNT,1776-70,10
CHAR'ALL
LASCII
/GP/

120
BOXES:
JCXB:

DNOP.,DNOP,DNOP
CUIM
APNT 0,0
LVECTALL
LXY
1.1776.0

LXY

1.0,1676

LXY

1.0,-1676

LXY

114000
[oleoleleloelélelelelele
]
ONOMWNE
B NWWNNIV= = O
NHONONNLIONNLONONNLON

110000

064

000250

00024C

110000

114000
134001
000000
114000
106000

000520

1,1256,0

LXY

1.-1256,0

000756

000736

s%xx FOR DEBUG w=*«
; MATCH ON, SWITCH OFF.

:AND DRAW NESTED BOXES.

1.0,1176

1:0,-1176

APNT, 520,500
LVEC

LXY

000636

:...MY INITIALS.

1.-1776.0

LVEC
LXY

LXY

000500

000676

sFINALLY...

APNT, 250,240

LXY

114000

SEQ 0216

APNT, 1776140,
HAF Y60-20
CHAR'ALL

067

000716

1
I
PAGE 113-1

APNT,1526-140,HAFY60-20
CHARTALL

000716

114000
103774
060
114000
103774

11:23

LXY
LXY
LXY

BMXX.

1,536,0

1.0,476
1.-536,0
1,0,-476

APNT ,HAFX-64. ,HAFY50-64.
BMO4 'M64
; A 646 SQUARE BIT MAP AT CENTER.
0
. POINTS TO FREE CORE BUFFER.
APNT ,HAF X~20, HAF Y60
SVEC!LO
; CROSS AT CENTER (BLK ON WHITE)
SXY
1.40,0

SXY

u.-20,2¢
1,0,-40

VSV11/VS11_ <= GRAPHIC SYS. DIAG MACRO M1113
vex TEST 33

8288
8289
8290
8291
8292
g%gz

101102
101110
101114
101120
101126

28-0CT-81

JOY=STICK VERIFICATION (STAND-ALONE)

164000
146013
146100
164000
160000

164000
164003
173400
164000
100732

164000
164000

JEXC:
JCXD:

8295 101132

1
J
PAGE 113-2

11:23

DNOP ,DNOP, DNOP
CUIS,SYNC+2
CURD,STOPI
DNOP,DNOP ,DNOP
DJMP ,BOXES

SEQ 0217

;%% FOR DEBUG »*+
;SWITCH ON, MATCH OFF.
sREAD JSX/JSY, STOP, INTERRUPT.
sxxx FOR DEBUG w»«
.LOOP

END.TEST
CRR AR AR AR AR AR AN AN AR
*

i
*

RN AN

AR RNRA AR RNARRRRNC AR

END TEST 33

MALALEAASEAAAARS

SRl

RSttt il

ittt iatiitsidiidddliiszisssslsds

VSV11/VS11 ~- GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
vev TEST 34
SELECTED DISPLAYS (STAND-ALONE)

8297

K
1
PAGE 114

11:23

SEQ 0218

:ttttt*ttttttt*ttttttttt*t'tttittttttttttttttttttttttfitttttttt'ttttt*ttt
- %

S
3

BEGIN TEST 34

SELECTED DISPLAYS (STAND-ALONE)

Etttttttttttttttt*ttttttttitttt*tttt*ttttttt*tttttfittttttttttttttQtttttt
:
8298 101224
8299 101230
ggg? 101232

005737
001420

(ITERATION COUNT = 1.)

030070

TST
BEQ
EXIT

TESTK
SELDIS
TST

; BR IF OK TO RUN.
2 EXIT THIS TEST >O333333333335333333>>>>>>

8302

> THIS TEST CONSISTS OF A SELECTION OF DISPLAYS INDIVIDUALLY

gggg

* DISPLAY DISPATCH TABLE.

gggz

: SELECTABLE BY THE USER AS FOLLOWS:

8307 101236

000000

8317
8318
8319
8320
8321
ggsg

104620
104534
104542
104550

8308
8309
8310
8311
8312
8313
8314
8315
8316

101240
101242
101244
101246
101250
101252
101256
101256
101260

101262
101264
101266
101270
101272

DTAB:

102262
102320
102356
102556
102702
103066
103106
103360
104526

: 0 = "TYPE THIS"

BLOOM
SCRRED
SCRBLU
SCRGRN

;10
:11
:12
;13

TBON
TBOFF
BARS
DOTS
HATCH
PERIM
COLID
GUNID
SCRWHT

:
:
:
S
:
:
:
;
:

1
2
3
4
5
6
7
8
9

= TURN BLINKING ON
= TURN BLINKING OFF
= COLOR BARS
=7 X7 DOTS
= 7 X 7 CROSS-HATCH
= PERIMETER OUTLINE
= BASIC COLOR ID
= GUNS 1D
= ALL WHITE SCREEN

=
=
=
=

DTABE:
DTHIL=<DTABE=DTAB>/2-1

000015

'BLOOM'' TEST (ALT. WHITE SCREEN & PERIMETER OQUTLINE)
ALL RED SCREEN
ALL BLUE SCREEN
ALL GREEN SCREEN

8324

P IT WILL RUN ONLY IF IT IS SPECIFIED BY ITSELF., AND IF MANUAL

gggg

: ONCE STARTED, THERE IS NO EXIT, SAVE <*(>.

8329

gggg

; INTERVENTION IS ALLOWED (UAM=0).

: CHANGE MODES VIA KEYBOARD:

g%%?

gg%%

gggé

8336 101272

101272
101276

004737
004737

027702
026074

gggg 101306

004737

102320

8337 101302
8343
8344
8345
8346

101312
101314
101316
101336

004737

027054

SELECT DISPLAY (D) N<CR>

WHERE N = DISPLAY NUMBER (SEE ABOVE).

SELDIS: COMBEG
JSR
JSR

PC,TSTGO
PC.DPRESET

JSR

PC.TBOFF

JSR

PC,LUMIN

MANUAL
BCOMPLETE
PRINTF
#NOMAN
EXIT
TST

; TITLE.
2 DO SOFT INIT.

* BLAST LUT.
;

START OUT WITH BLINKING TURNED OFF.

IDLEX
2 EXIT THIS TEST >2OO533333055055500550055>)

[
VSV11/VS11 -~ GRAPHIC SYS. DJAG MACRO M1113
28-0CT-81
*ve TEST 34
SELECTED DISPLAYS (STAND-ALONE)

000410

IDLEA
IDLEB

101404

;tttB
JaRxB
23]
:tttB

012701
004737
103402
00530
001373

000050
027454

013700
001743
005037
006300
004770
000746

101470

18:

2%:

101470
101236

MOV

JSR
B(CS
DEC
BNE
MOV
8EQ
CLR
ASL
JSR

PC,WAITF

2%
R1
1%

LASCII

071

.ASCII
.BYTE
LASCI]
.BYTE
LASC1I
.BYTE
LASCII

060

061
N62
063

SDASK:

LASCII
.BYTE
.BYTE

\ V)
A S IR AN I

=7 X 7 DOTS/
= 7 X 7 CROSS~HAT(CH/

¥ R

L
e
RV, B
B

e N
Y,|

= COLOR BARS/

= PERIMETER OUTLINE/

AV R

070

TURN BLINKING OFF/

= BASIC COLOR ID/

A U

067

.ASCI11
.BYTE
LASCII

= GUNS ID/

(A I

066

TURN BLINKING ON/

= ALL WHITE

065

SCREEN/

= ALTERNATING WHITE SCREEN & PERIMETER OUTLINE/

= ALL RED SCREEN/

064

st
;%
;e

= "TYPE THIS'"/

= ALL BLUE

.BYTE
LASCII
.BYTE
LASCII
.BYTE

L
V.

063

e (i
IV BV B

LASCI]
.BYTE
LASCII

L
Y,

062

WL
Y

061

LASCII
.BYTE
LASCI1

;BR IF STOPPED.
sNOT STOPPED. BUMP COUNTER.
;LOOP [F NOT STOPPED.

seeeB
s%eeB

; DISPLAY CURRENTLY SELECTED.

L
V.

SDLIST:

THE STOP BIT.

PC,aDTAB(RO)
IDLEA

L
Y

060

sWAIT FOR

DISSEL ,RO
IDLE
DISSEL
RO

DISSEL: 0

040
012
040
012
040
012
040
012
040
012
040
012
040
012
040
012
040
012
040
012
061
012
061
012
061
012
061
012
012

SEQ 0219

SDASK ,DISSEL,D,~1,0,DTHIL,YES
aDSR
:STOP THE DPU (IE., FOR BLOOM)
PC,WAITF
PC,WAITF
PC,WAITF
PC,WAITF
SWAIT FOR STOP
#40. R1
sSET UP A TIMEOUT COUNTER.

040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
040
015
015

114-1

GMANID

BR
GMANID
CLR
JSR
JSR
JSR
JSR

000000

#SCOUT
?gtégT.DISSEL.D.-1.0.DTHIL.YES

e L T
IV IR

005077

PRINTF

SCREEN/

= ALL GREEN SCREEN/

rorO

8406 102212

IDLEX:
IDLE:

PAGE

WAJT FOR KBD ENTRY TO CHANGE MODES.

B e R
L RV

8405 102210

* IDLE LOOP.

.
.
.
.
L)
L N ) —h -—tn -— —d
ek N =B
b ek b ) b D) b OO = N = O =2 AN} = N =D (N = D) b ek =2 0D

8347
8348
8349
8350
8351 101342
8352 101362
8353 101402
8354 101404
8358 101424
8359
8360
8361
8362
8363 101430
8364 101434
8365 101440
8366 101442
8367 101444
8368 101446
8369 101446
8370 101452
8371 101454
8372 101460
8373 101462
8374 101466
8375
8376 101470
8377
8378 101472
8379 101513
8380 101515
8381 101543
8382 101545
8383 101574
8384 101576
8385 101616
8386 101620
8387 101640
8388 101642
8389 101671
8390 101673
8391 101722
8392 101724
8393 101750
8394 101752
8395 101767
8396 101771
8397 102017
8398 102021
8399 102103
8400 102105
8401 102131
8402 102133
8403 102160
8404 102162

11:23

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
28-0(T-81
ver TEST 34
SELECTED DISPLAYS (STAND-ALONE)

8407 102214
8408 102231
8409 102241
8410

050
117
123

102
106
105

114
106
114

SDO:

LASCII
LASCII
.ASC1Z
.EVEN

11:23

LR
PAGE 114-2

/(BLINKING S /
/OFF),
/
/SELECT DISPLAY /

SEQ 0220

———————

—

| VSV11/VS11 == GRAPHIC SYS.
S.
DIAG MACRO M11°'3 28-0(T-81
eve TEST 34
SELECTED DISPLAYS (STAND-ALONE)

84613

gz}g

8616 102262

004737

105330

8418
8419
8420
8421
8422
8423

112737
112737
112737
000207

000051
000054
000040

8417 102266
102274
102302
102310
102316

112737

000116

102232

8429
8430
8431
8432
8433
84634

TBON:

.
102320
102324
102332
102340
102346
102354

004737
112737
112737
112737
112737
000207

105356
000106

(00106
000051
0000546

102232

102233
102234
102235

JSR

(L 0):]
MOvB
MOVB
MOVB
RTS

;

gzgg

PAGE

N1
115

SEQ 0221

TURN BLINKING ON.

102233
102234
102235

8424
8425
8426

11:23

PC,EBL INK

#°'N,SDO+1

#°'),SD0¢?
#',,SD0+3
#' ,5D0+4
PC

ENABLE BLINKING.

;
;

DISABLE BLINKING.
ADJUST PROMPT MSG.

: ADJUST PROMPT MSG.

TURN BLINKING CFF.

TROFF:

JSR
Mov8

MOVB
MOVB
MOVB
RTS

PC,DBLINK
#'F,SDO+1

#'F,SDO+2
#°'),SD0+3
#',,S5D0+4
PC

VSV11/VS11 -~ GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
rex TEST 34
SELECTED DISPLAYS (STAND-ALONE)

8436
8437
8438
8439

8440
8441
8442
8443
8444
8445
8446
8447
8448
8449
8450
8451
8452
8453
8456
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472

:
:
*
*
;
:

004737
004737
012737
012701

026650
027066
112000
000004

,
102466

012777
000402
005277
004737
005302
001411
060137
042737
052737

102460

100420

012702

000761

000400
100412
027454
102466
176000
112060

102452
102456

004737
000207

104762

102460
102466
102470
102474
102500
102504
102510
102512

114000

000000

040000

001776

040000
000002
173000
160000

021776
000000

112000

000002

2
SEQ 0222

ROUTINE DEFAULTS TO 8 BAR NTSC RAINBOW (IF LUT INSTALLED).

OR GRAY-SCALE SHADES DEPENDANT ON PIXEL SIZE AS FOLLOWS:
2 BITS <9:8> = 4 COLORS/SHADES.

BARS:

1%:
28:

102466
102466

000000

PAGE 116

COLOR BAR GENERATOR.
NUMBER AND COLOR OF BARS DEPENDANT ON PIXEL SIZE.

:
:
102356
102362
102366
102374
102400
102404
102412
102414
102420
102424
102426
102430
102434
102442
102450

11:23

4 BITS <9:6> = 16 COLORS/SHADES.

6 BITS <9:4> = 64 COLORS/SHADES.
8 BITS <9:2> = 256 COLORS/SHADES.
JSR
JSR
MOV
MOV

PC,CLRRW
PC.NTSC
#LVECTLO,BV
#6 R1

MOV
SKP2
INC
JSR
DEC
BEQ
ADD
BIC
BIS

#BGEN
. aDPC

MOV

#256. .R2

B8R

:BR WHEN FINISHED.
: OTHERWISE, INCREMENT...
:...AND STRIP THE LEVEL...
:...AND REPLACE OPCODE.

PC,OUTLIN
PC

: OUTLINE THE SCREEN.
; RE URN TO IDLE 1LOOP.

JSR
RTS

BGEN:

APNT, 0, 0
LVECTLO

1'0,

MAXY

000000

2. 0

102466

sToPN
DJMP, BV

2 256 PAIRS = 512 TOTAL.

abpPC
PC,WAITF
R2
38
R1,BV
#~(1777.8V
#LVEC!LO.BY

3s:

BV:

;INIT DISPLAY.
s 'NTSC COLORS (IF LUT AVAILABLE)
SINIT DISPLAY CODE AT LVL O...
:...AND INCREMENT BY LVL 1.

170, MXY!MAXY
2. 0

*...AND LOOP.

;

up...

:...AND OVER.

S .. DOWN..
*...AND OVER AGAIN.

VSV11/VS11 ~- GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
ver TEST 34
SELECTED DISPLAYS (STAND-ALONE)
8474

gz;g
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
8489

11:23

PAGE 117

: 7 X 7 POINT TABLE FOK DOTS AND CROSS=HATCH.
102516
102516
102520
102522
102524
102526
102530
102532
102534
102536
102540
102542
102544

8490 102546

8491 102550
8492 102552
8493 102554

000104
000330

000554
001000
001224
001450
001674
177777
000110
000320
000530
000740
001150
001360
001570
177777

XTBL :
YSOTBL:

34,*2
108.%2

182.%2
256. %2
330. %2
404.%2
478. %2
-1
Y60TBL: 36.%2
104. %2
172.%2
240. %2
308, %9

376. %2
444 %2
-1

;X POINTS,
..
i...AND 50 HZ Y POINTS.
:DELTA = 74.

; 60 HZ Y POINTS.
DELTA = 68.

SEQ 0223

VSV11/VS11

-- GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
*xr TEST 34
SELECTED DISPLAYS (STAND-ALONE)

8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515

11:23

PAGE 118

.2
SEQ 0224

' DOT GENERATOR.

102644
102652
8516 102656
8517
8518 102660
8519 102662
8520 102664
8521 102666
8522 102670
8526 102700

012737
004737
000207

OO00O0O
—=20N—=O
N NN
NSNS
OONOW
MNrO~NNON

102602
102606
102610
102614
102620
102622
102630
102636
102642

DOTS:

026650
102536
003246

O—=O0O0 =0
VIO
D=
NNOMNNON)
SNN=2NESN
WNWO =N
NON—O0'"N

102556
102562
102566
102574
102576

102664

1%:

MOV

102516
102662

2%:

MOV
MOV
BM]

000074

040000

130000
173000

MOV

$
#Y50TBL ,R2

sWRONG, USE 50 HZ Y'S.

(R2)+,DGY
3s

¢SET Y POINT.
:BR WHEN ALL DOTS DONE.

sSET X POINT.
:X DONE, GET NEXT v,
sSET I BIT.

.LooP

#1,0UTFLG
PC,OUTLIN
PC

. SAY WE WANT DOTS ON THE OUTLINE
; OUTLINE THE SCREEN.

BMI

MOV

027454

117774
040000
000000
173000

sINIT DISPLAY.
;ASSUME 60 HZ Y'S.

BIS

102660

104762

#Y60T8BL ,R2

JSR

CMP
BEQ

102516

000001

MOV

JSR
BR

3s:

DGEN:
DGX:
DGY:

MOV
JSR
RTS

PC,CLRRW

?Z.#bO.

#XTBL ,R1
(R1)+,DGX
#1,DGX
#DGEN,aDPC
PC,WAITF

;

RETURN TO IDLE LOOP.

APNT 'ALL

I'0
0

STOPN
RPNT
STOPN

;

*** NOP TO ENLARGE THE DOTS ww«

VSV11/vS11 -- GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81
ven TEST 34
SELECTED DISPLAYS (STAND~ALONE)
8528
8529
8530
8531 102702
8532 102706
8533 102712
8534 102720
8535 102724
8536 102730
8537 102736
8538 102740
8539
8540 102744
8541 102750
8542 102752
8543 102760
8544 102764
8545
8546 102766
8547 102772
8548 103000
8549 103006
8550 103012
8551 10301%
8552 103020
8553 103026
8554 103032
8555 103034
8556 103042

8564 103064

11:23

E 2
PAGE 119

SEQ 0225

! CROSS=HATCH GENERATOR.
HATCH:
103060

JSR
CLR

MoV

sSET FOR HORIZ VECTORS.

MOV

#Y60TBL ,R1

JASSUME 60 HZ Y'S.

CLR

000074

CMP
BEQ
MOV

103054

2777

103050
027454

37
01
37
77

000207
114000
000000
000000
113774
041776
173000

103054
040000
001776
102516
103052

18:

100052

103060
103062

100004

000001
104762

105070

4$:

HGEN:
CHX:
CHY:

000000

BMI

JSR
BR

3s:

103050

027454

MOV
MOV

2%:

CHV:

:INIT DISPLAY.

PC,CLRRW
CHX
#1!MAXX,CHV

CLR

CHV+?

HZ,#60.
18
#Y50TBL
,R1
(R1)+,CHY

#HGEN ,aDPC

qg.UAITF
CHY

Mov
MOV
MoV
MOV
8MI
MOV
JSR
BR
MOV

#1!0,CHV
AMAX
, CHV+2
Y

RTS

JSR

APNT

0
0

LVEC!'ALL

[.MAXX,0

STOPN

#XTBL ,R1
(R1)+,CHX
4s
#HGEN,aDP(
PC,WAITF

#1,0UTFLG
PC,OUTLIN

;WRONG AGAIN.

sSET NEXT Y.
:BR AT END OF Y'S.

:LOOP FOR 7 HORIZ VECTORS.
;SET FOR VERT VECTORS.
sSET NEXT X.
:BR AT END OF X'S.

;LOOP FOR 7 VERT VECTORS.
; SAY WE WANT DOTS ON THE OUTLINE.
. OUTLINE THE SCREEN.
¢ RETURN TO IDLE LOOP.

VSV11/VS11 ~- GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
vxe TEST 34
SELECTED DISPLAYS (STAND-ALONE)

8566

8570 103072
8571 103100
8572 103104

F_2

PAGE 120

SEQ 0226

gggg

8569 103066

11:23

; DISPLAY A SQUARE, OUTLINING THE PERIMETER OF THE SCREEN.

004737

012737
004737
000207

026650
000001
104762

105070

5ER1M:

JSR

MOV
JSR
RTS

PC,CLRRW

#1,0UTFLG
PC,OUTLIN
PC

;5 CLEAR FOR READ/WRITE.

: SAY WE WANT DOTS ON THE OUTLINE
; OUTLINE THE SCREEN.
: RETURN TO IDLE LOOP.

103212
103212
103220
8598 103224
8599 103230
8600
8601
8602
8603
8604 103232
8605 103240
8606 103242
8607 103246
8608 103252
8609 103256
8610 103262
8611 103264
8612 103270
8613 103276
8614 103302
8615 103304

8617 103356

012777
004737
004737
000207

103270

027454
104762

103240

BIS

JSR

DEC
BEQ
BIT
BNE
ASL
BIC
BIS

B8R
077612

MOV
JSR
JSR
RTS

#BITO,aDPC

28:

PC,WAITF

077654

RO
X
#77.R2
2
R1
#1700,11$
R1,11$

(R2 DIVIDES SCREEN BY 4 & CHANGES COLORS).
START THE DPU.
WAIT FOR DISPLAY STOP.

#10$,3DPC
PC,WAITF

CONTINUE THE DPL.

WAIT FOR DISPLAY STOP.
ALL DONE?
YES.

103240

#400,R2

MOV
JSR

START WITH BLUE.

R1,11$

mg.

BaBeB

077670

; CLEAR FOR READ/WRITE.

YES.

TIME TO CHANGE COLOR?

000757

MOV

BIS

000077
001700

PC,CLRRW
#LVEC'LO,118
#100,R1

103172
103174
103176
103204
103210

JSR
MOV
MOV

®e

8591
8592
8593
8594
8595
8596
8597

000001
027454

OLID:

#128,3DPC
PC.WAITF

027454

8585 103146
8586
8587 103150
103150
103156
8588 103162
8589 103164
8590 103166

DISPLAY THE FOUR BASIC COL ORS (BLUE, RED, LT GREEN, DK GREEN)
AND DISPLAY THE NAME OF EA CH UNDERNEATH.
EACH COLOR BAND WILL BE 1/ 4 SCREEN WIDTH.

103240
000400
103232

103240

SEQ 0227

PC.OUTLIN
PC

®e

026650
112000
000100

6_2
PAGE 121

8574
8575
8576
8577
8578
8579 103106
8580 103112
8581 103120
8582 103124
8583 103130
8584 103134
103142

CY%e
s 0w,

VSV11/VS1]1 -- GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81 11:23
rex TEST 34
SELECTED DISPLAYS (STAND-ALONE)

NOW PRINT COLOR ID'S.

START THE DPU.
WAIT FOR DISPLAY STOP.
OUTLINE THE SCREEN.
RETURN TO IDLE LOOP.

: DISPLAY CODE.
114000
112000

040000
000002
040000
000002

173000
160000
114000
152000
103774
102

173500

000000

001776
000000
021776
000000
103240

178:

APNT 0,0

LVECILO

5'o,nAxv

110,MXY 'MAXY
2.0
STOPN

000004

114

125

110302

108:

128:

DJMP,11$
APNT 4.4

SETCB,ACAT
CHAR'ALL
LASCIZ
/BLUE
.EVEN
STOPN

RED

LSB~GRN

MSB-GRN /

VSV11/VS11 ~< GRAPHIC SYS. DIAG MACRO M1113
28-0(CT-81
vev TEST 34
SELECTED DISPLAYS (STAND-ALONE)

000001
027454

000004

012702
012737
012777
004737
010437
012700

000020
103774
103676
027454
103712
103722

OOO&OOOOOOOOO
wuuw&wuu

012701

o
W NN
o VIVALA U AL
o NONON\V v VN
X
o OSSO

W
o

3514

03602

103626
103630
103634

112120

001376

112760
112720

020027
001373
105060

000020
103646

1%:

gg:

077372

000100

103776

000040
000040
177777

000001
027454
000074
003250

103720
077322
48:

177777

004737
000207

104762

PC,WAITF
#LVEC!LO,RG
#16. ,R2
#15. .R3
HZ, 460"
28
#16. ,R3
RG,11$

BIS
JSR
DEC
BNE
ADD
DEC
BNE
MOV

#81T70,aDPC
PC,WAITF
R3
33
#100,R4
R2
18
#4 R4

MOV
MOV
MOV
JSR
MOV
MOV

#16. .R2
#CHAR'ALL ,23$
#208,aDPC
PC,WAITF
RG22
#243 RO

BNE

5¢

mMovs

6%:

MOVB
MOVB

CMP
BNE

CLRB

001776

608:

000010

103720

YES. UPDATE VECTOR CONTROL.

abL BARS COMPLETED?
YES.

INIT MSG POSITION CONTROL.

INIT MESSAGE POINTER.
INIT MESSAGE COUNTER.
INIT DISPLAY FILE INTENSITY CONTROL.
START THE DPU.

WAIT FOR DISPLAY STOP.
MODIFY DISPLAY FILE MSG POSITION CONTROL.
MODIFY DISPLAY FILE MESSAGE.

,-1(RO)
_(RO)+

RO,#25%
63
=1(R0)

#81T0,3DPC
PC WAITF
#74 R4
YMAX
, #MAXY SO
608
#4 R4
R2
7%
R2.#10
43
#CHAR!LO,23$

JSR
RTS

PC,OUTLIN
PC

* DISPLAY FILES.

INIT BAR COUNT.
INIT VECTORS PER BAR =~
= 15 FOR 60HZ, 16 FOR 50HZ.

CONTINUE THE DPU.
WAIT FOR DISPLAY STOP.
Lgxs BAR COMPLETED?

(R1)+,(RO)+

#'
#'

CLEAR FOR READ/WRITE.

START THE DPU.
WAIT FOR DISPLAY STOP.
INIT VECTOR CONTROL.

MODIFY DISPLAY FILE VECTOR CONTROL.

#308.R1

BIS
JSR
ADD
CMP
BNE
ADD
DEC
BEQ
CMP
BNE
MOV

B8R
7%:

PC,CLRRW

#108,3pPC

JSR
MOV
MOV
MOV
CMP
BEQ
MOV
MOV

5%:

077250

000004

102000

JSR

MOV

103770

052777
004737
062704
023727
001002
062704
005302
001407
020227
001336
012737

000732

UNID:

EXCEPT:

THE GUNS ACTIVATED FOR EACH BAR ARE PRINTED INSIDE EACH BAR.
Ve Be VeV, v,

052777
004737
005303
001371
062704
005302
001353
012704

000074

We e v,

027454
112000
000020
000017
003246

077440

THIS DISPLAY IS SIMILAR TO THE COLOR BARS DISPLAY,
1.
THE BARS ARE HORIZONTAL.

004737
012704
012702
012703
023727
001402
012703
010437

103636

SEQ 0228

By e

026650

012777

004737

PAGE 122

GUNS ID DISPLAY

ve 8,000,060,

8619

11:23

CONTINUE THE DPU.

WAIT FOR DISPLAY STOP.

UPDATE MSG POSITION CONTROL.
ARE WE RUNNING 50H2?
BR IF NO
YES == NEED TO BUMP UP 2 MORE PIXELS.
¢%§ MSGS DONE?

TIME TO FLIP INTENSITY?

NOT YET.
YES. CHANGE

INTENSITY FROM WHITE

OUTLINE THE SCREEN.
RETURN TO IDLE LOOP.

TO BLACK.

VSV11/vVS11 -- GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81 11:23
vex TEST 34
SELECTED DISPLAYS (STAND-ALONE)

LVEC!LO

000002
000000
000002

160000

103646

103676
103704
103706
103710
103712
103714
103720
103722
103770
103772

114000
173000
114000
000004
000004
152000
103774
130
173000
160000

000000

STOPN

I !MAXX,0
0,2
I !MXY !MAXX,0

130

22%:
130

103706

;

THE COLOR BARS...

;

THE IDENTIFICATION MESSAGES.

20s:
218:

110302

SEQ 0229

23%:
24$:
25%:

SET(CB,ACAT
CHAR!ALL
ASCIZ
/7XXXXXXXXXXXXXAXXXXXXXXXXXXXXXXXXXXXXXX/
STOPN

DJMP,218

* MESSAGES FOR DISPLAY.

104100
104126
104153
104206
104226
104254
104301

8712 104462

050

060

050
0sC

060
060

050

050
030
050
050
050
050
050
050
050
050
050
050

060

060
060
060
060
061

061
061
061
061
060

061
061
061
061
061
061
061

060
060

060
060
060
061
061
061
061

30s:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
CASCIZ
LASCIZ
LASCIZ
CASCIZ
CASCIZ
LASCIZ
ASCIZ
.EVEN

/7(0000)/
/(00
/(00
/(00
/(01
/(01
/(01
/(0
/(10
/(10
/(10
/(10
/(11
/(11
/(N
/(N
2 O
O —

8697 103776
8698 104005
8699 104022

Nttt Nukl

8696

8702
8703
8704
8705
8706
8707
8708

118:

000
1776
000000
061776
000000

Nt Nt Nl Nt Nt Natl Nutl Nt Nt Nt

8682
8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693
8694
8695

APNT,0,0

e OOt b OO 2l OO
OO
OO L OO

8681

000 000000 000000 108:

103636
103644
103646
103650
103654
103660
103664
103670
103672

8671
8672
8673
8674
8675
8676
8677
8678
8679
8680

)
4
PAGE 122-1

BLUE/
RED/
BLUE, RED/
LSB=-GRN/
BLUE, LSB=GRN/
RED,

LSB=-GRN/

BLUE, RED, LSB-GRN/

MSB-GRN/

BLUE, MSB-GRN/
RED, MSB-GRN/

BLUE, RED, MSB-GRN/
LSB-GRN, MSB-GRN/
BLUE, LSB-GRN, MSB=-GRN/
RED,

LSB-GRN, MSB-GRN/

BLUE, RED, LSB-GRN, MSB-GRN/

VSV11/VS11 -= GRAPHIC SYS. DIAG MACRO M1113
28-0(T-81
xee TEST 34
SELECTED DISPLAYS (STAND-ALONE)

8715

11:23

PAGE 123

.2
SEQ 0230

g;}g

: DISPLAYS FOR FILLING SCREEN WITH SOLID COLOR

8718 104526

012746

003774

SCRWHT: MOV #ALL,-(SP)

8721 104534

012746

002200

SCRRED: MOV

#L0'!200,-(SP)
SCRCOM

8724 104542

012746

002100

SCRBLU: MOV

#L0!100,=-(SP)

. GET BLUE ONTO STACK,
:

GO TO COMMON

g;%g 104550

012746

003400

SCRGRN: MOV

#L0!1400,-(SP)

;

GET FULL GREEN ONTO STACK,

8729
8730
8731
8732
8733
8734
g;gg

104554
104560
104564
104572
104576
104604
106810

004737
004737
012737
052637
012777
004737
000207

026650
027066
1146000
104612
104612
027454

SCRCOM:

JSR
JSR
' [0]Y)
BIS
MOV
JSR
RTS

PZ,CLRRW
PC,NTSC
#APNT ,10%
(SP)+.10%
#10$,3DPC
PC,WAITF
PC

;CLEAR FOR READ/WRITE
JSETUP COLOR TABLE (IF AVAILABLE)
JINIT PIXEL DATA SELECTION
- INSERT THE COLOR
*START THE DPU
JWAIT FOR DONE
JRETURN TO IDLE

8737 104612

117774

108 :

APNT 'ALL

g;}g 1064532

gggg 104540

g;gg 104546

8738 104614
8739 104616

000410
000405

000402

170100
173000

BR
BR

104612

076226

SETMEM
STOPN

SCRCOM

;

SCRCOM

GO TO COMMON SECTION

; GET RED ONTO STACK,
GO TO COMMON

:SET THE MEMORY

VSV11/vS1]1 -~ GRAPHIC SYS. DIAG MACRO M1113 28-0CT-81
vev TEST 34
SELECTED DISPLAYS (STAND~ALONE)

104620
1064624
104630
104634
104642
104650
104656

104664

004737
004737
004737
013737
013737
052737
012777
000207

Ovevevevcn,

8741

025402
102320
027066
003250
003250
020000

11:23

K_2
PAGE 124

SEQ 0231

"BLOOM'' TEST DISPLAY

THIS DISPLAY ALTERNATELY DISPLAYS A FULL WHITE SCREEN AND A PERIMETER OUTLINE.
THE DISPLAY CHANGES ONCE EVERY 2 SECONDS.

LOOM

JSR
JSR
JSR
MOV

sINIT THE DPU
:TURN BLINKING OFF

#10$,aDPC

;START THE DISPLAY & LET IT RUN.
sRETURN TO THE IDLE LOOP

YMAX, 128
YMAX,13$
#MXY,13%

MOV

BIS

104666

PC,DPINIT
PC,TBOFF
PC NTSC

MOv
RTS

¢SET UP THE COLOR TABLE

(IF AVAILABLE)

sSET UP THE MAX Y VALUES, BASED ON FREQUENCY.

! DISPLAY FILE:
SINNYN
~NO~
on
WWN
He

NN
N
s00
-— ) ~2
NOO
(=lele)

1064676
104704

108:

6034

104666
104670
104672
104674

000000

WRT!CHO
WRT!CH]
WRT!CH?
WRT!CH3

.L0 OP TO HERE:
APNT'ALL,0,0
11%:
SETMEM
SWICH

DNOP+120.

000000

SWTICH
CLRMEM
APNT'ALL,0,0
LVEC

000000
12%:

13%:

1'0

104676

;ENTER LONG-VECTOR MODE.
:DRAW LEFT EDGE

.. TO TOP OF VISIBLE AREA.

*DRAW TOP EDGE

MXY !MAXY
6!HXY!NAXX

‘DRAW RIGHT EDGE ...
... TO BOTTOM.
DRAU BOTTOM EDGE ...

SWTCH

SUITCH T0 READ-ONLY TO DISPLAY PERIMETER

SWTCH

:SWITCH BACK TO WRITE-ONLY.
;LOOP BACK TO DO IT ALL OVER AGAIN.

... TO RIGHT SIDE.

0
1!0

DJMP,118
CARRARN AR A NN R AR

[

;SET WHITE PIXEL DATA
;SET MEMORIES TO ALL WHITE
sSWITCH TO READ-ONLY TO DISPLAY WHITE SCREEN
;SHOW IT FOR 2 SECONDS.
;SWITCH TO WRITE-ONLY MODE.
sCLEAR MEMORIES.
;START PERIMETER OUTLINE AT <0,0>

MAXY
1 'MAXX

DNOP+120.
160000

sSET ALL CHANNELS TO WRITE-ONLY, SWITCH-ENABLED.

BACK TO <0,0>

“SHOW IT FOR 2 SECONDS.

RAN R RN NN R RN AN

A RN ARRANARARNRANANNANRANANRRN
AR
S

* R

. %

]

* %

END TEST 34

]

CARA R P AR AR AN RN R AN AN R RN AR R AR R AR R AN AN N RN

AR A RAN

AN AN

RAANC

NP RARANRRRAES

VSV11/VS11 ~= GRAPHIC SYS. DIAG MACRC M1113 28-0CT-81 11:23
ves TEST 34
SELECTED DISPLAYS (STAND-ALONE)
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796

8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
8818
8819

8820
8821
8822
8823
8824
8825
8826
8827

8831
8832
8833
8834
8835
8836
8837
8838
8839
8840

SEQ 0232

SOME MISCELLANEOUS DISPLAY SUBROUTINES.

' SUBROUTINE TO OUTLINE THE PERIMETER OF THE SCREEN.
104762
104770
104776
105004
105012
105016
105022
105024
105030
105034
105034

OUTLIN: MOV

YMAX,11$

: SET Y COORDINATES AS PER HZ.

#108.aDPC
PC,WAITF
OUTFLG

: START THE DPU.
> WAIT FOR DISPLAY STOP.
* MAKE IT DOTTED (3 DOTS PER SIDE)?

JSR

PC,0OUTDOT

SYES == GO DO IT

RTS

MOV
BIS

MOV
JSR
ST

BEQ
s

(LR

000207

YMAX,12$
MXY 128

OUTFLG

:BR IF NO

“THEN CLEAR THE FLAG

* DISPLAY CODE.
105036
105044
105046
105050
105052
105054
105056
105060
105062
105064
10506%
105070
105072
105100
105104
105110
105112
105114
105120

105126

8828 105132

8829
8830

L 2
PAGE 125

105134
105142
105146
105152
105156
105160
105162
105164
105170
105174

114000
113774

000000

040000
001776
041776
000000
040000
021776
061776
000000

108:

APNT.0.,0
LVEC'ALL

11%:

MAXY
é!MAXX

12%:

MXY !MAXY
6!MXY!HAXX

173000

000000
013737
013746
062716
006216
006216
012637

1'0

1!0

STOPN
:ROUTINE

003250
003250
000002
105302
105134

027454

10516¢

075704

ADD

IN EACH LINE OF THE PERIMETER:
:FLAG FOR ENABL ING
YMAX,OUTDT1
; SET UP THE DISPLAY FILE
YMAX,~(SP)
:
. WITH FREQ.- DEPENDENT Y DATA.
#2,(S5P)

JSR

PC,WAITF

TO MAKE 3 DOTS

OQUTFLG: 0
ouTDOT: MOV
MOV

ASR
ASR
MOV
MoV

RTS

000000

(SP)
(SP)
(SP)+,0UTDY1
#OUTDTF ,aDP(

.
;

. DISPLAY FILE FOR OUTLINE DOTS:
QUTDTF: APNT!L0,0,0

BEGIN AT 0,0 WITH BLACK
DO DOT AT 400,0

DJMS ,OUTDF X
DJMS ,OUTDF X
X
DJMS,OUTDF
APNT!LO

0
OUTDT1: MAXY60

DJMS, OUTDFX
DJMS, OUTDFX
DJMS, OUTDFX

START THE DPU.
WAIT FOR DISPLAY STOP.

...AND AT 1000,0
- AND AT 1400.0.

;

GETS YMAX

: DO DOT AT 400, YMAX

: ... AND AT 1000, YMax
L

.. AND AT 1400, YMAX

vSV11/vS11

vee

TEST

8841
8842
8843
8844
8845
8846
8847
8848

-~ GRAPHIC

SYS.

DIAG MACRO M1113

SELECTED DISPLAYS

105200
105206
105212
105216
105222
105230
105234
105240

116000
160007
160001
160001
116000
160001
160001
160001

000000
105276
105276
105276
001776
105276
105276
105276

8851 105246
8852 105250

110000
000376

000000

8854 105260
8855 105264
8856 105270

000022
040016
020020

gggg 105244

8853 105254

gggg 105274

8859
8860
8861
8862
8863
8864
8865
8866
8867
8868
8869
8870
8871

105276
105300
105302
105304
105310
105314
105320
105322
105326

173000

060016

165000

112000
000000
000360
000000
040000
000000
113774
040000
165000

(STAND-ALONE)

000000

11:23

PAGE

APNT.L0,0,0
DJMS., QUTDFY
DJMS, OUTDFY
DJMS, QUTDFY
APNT'L0,MAXX,0
DJMS, OUTDFY
DJMS, OUTDFY
DJMS, OUTDFY

000000

OUTDFX:

000000

000000
000000
000000

n 2
125-1

SEQ 0233

; GO AGAIN T0 0,0
; DO A DOT AT 0,YMAX+2/4
;... AND AT (Q, 2+<YMAX+2/4>
N
. AND AT 0, 3+<YMAX+2/4>

STOPN

LVEC
MAXX+2/4~2,0

:
J
J

DO A DOT AT 0,YMAX+2/4
... AND AT (, 2+<YMAX+2/4>
«.. AND AT 0, 3e<YMAX+2/4>

;

SPACE OVER +400-2

1'M'14.,.,0

. MAKE 8 BLANK PIXELS

DPOP

18..0
1'16.,0
M'16.,0

LVEC'LO
0
OUTDY1: MAXY60+2/4
o.m'16.
1:0,32.
0.m!16,
LVEC!WHITE
1'0.0
DPOP

; GO TO BEYOND THE TARGET POINT
; MAKE 8 BLANK PIXELS
; GO BACK TO TARGE?Y
RETURN

OQUTDFY:
020020
000040
0200c0
000000

; GETS YMAX+2/4
; BACK UP
: IAP 17 PIXELS
; BACK UP
;

WRITE A DOT

;

gg;%

; SUBROUTINE TO ENABRLE BLINKING (ALL CHANS).

8874 105330
105330
105336
8875 105342
887¢
8877
8878
8879
8880 105344
8881 105346

8882 105350
8883 105352

8884 105354
8885
8886
8887
8888

012777

004737

000207

105344

027454

075474

105356

105356
105364

8892 105370

EBLINK:

MOV

#108.aDP(C

RTS

JSR

PC,WA]TF

:
;

START THE DPU.

WAIT FOR DISPLAY STOP.

:
: DISPLAY (CODE.
:
108 :
BL INK
BLINK+100

175401
175501
175601
175701
173000

BL INK+200
8L INK+300
STOPN

gggg
8891

28~0(T-81

; SUBROUTINE TO DISABLE BLINKING (ALL CHANS).

012777
004737

000207

105372
(0274564

(075446

DBL INK :

MOV
JSR

#10%,3DPC
PC,WAlTF

RTS

: START THE DPL.
; WAIT FOR DISPLAY STOP,

iSV11/VS1Y

eee TEST 34

=« GRAPH]C

DIAG MACRO M1113

105372
10537¢
105376
105400
105402

2B8-0(T-81

SELECTED DISPLAYS (STAND-ALONE)

8894

8895
8896
8897
8898
8899
8900
8901

SYS,

175400
175500
175600
175700
173000

11:23

: DISPLAY (CODE.
:
10%:
NBL INK
NBL INK+100
NBL INK+200
NEL INK+300
STOPN

PAGE

N_2

125-2

SEQ 0234

VSV11/VS11 -~ GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81 11:23
*vv TEST 35
SYSTEM CONFIGURATION TYPEOUT (STAND~ALONE)

B_3

PAGE 126

SEQ@ 0235

8903
;tttttttttttttttttttttttitttfitttttttttttQtttttttttttttttfittttttttttttttt
* %

BEGIN TEST 35

* %

SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE)

Ettttttttttttttttttttttttttttttttttfitfit*ttttttttttttttttttttttttttttttt.

;
8904

8905 105510
8906 105514

gggg 105516

005737
001402

(ITERATION COUNT = 1.)

030070

TS7T

BEQ

EXIT

TESTK

s STAND ALONE ENTRY?

TST

;

SCONTY

8909
8910

H
s

gg%%

; BACK TO THE MONITOR (DS).

8911

8914 105522

013701

002012

032761

040000

8915 105526
8916 105532

162701
006301

8918
8919
8920
8921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931

105542
105544
105550
105554
105560
105564
105570
105574
105576
105604
105606
105612
105616
105636

001402
000137
004737
005037
004737
013701
162701
006301
032761
001402
000137
004737

106414
030414

012701

003256

8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945
8946
8947
8948
8949
8950
8951

105644
105646
105650
105652
105656
105660
105662
105664
105666
105670
105672
1056764
105676
105700
105702
105704
105710
105712
105714

100467
001775
005003
012704
005005
006302
006302
006302
006302
006302
006302
100001
005203
005304
001373
016102
010305
006302
006302

8917 105534

8932 105642

012102

THE

003302

1$:

000010

2$:

3s:
177776

TTY, AFTER WHICH IT WAITS FOR THE USER TO '‘CONTROL-C'

LSUNIT R

; GET NUMBER OF LAST UNIT

suB
ASL

#1.R1
R1

BEQ
JMP
JSR
CLR
JSR
[ (01"
su8
ASL
8IT
8EQ
JMP
JSR
PRINTF
MOV

.46
: BR IF NOT,.
16$
; GO TO END IF YES =-- WE FINISHED.
PC,TSTGO
TESTK
; CLEAR TEST COUNTER SO WE CAN REENTER.
PC.DPINIT
. INITIALIZE THE DPU
LSUNIT
R
#1,R1
R1
#BIT14 ,ERTABL(RY)
.46
15%
PC,.CONFIG
#NULCR
#MEMTAB R1
: INIT MEM TABLE PITR.

BM]
BEQ
CLR
MoV
(LR
ASL
ASL
ASL
ASL
ASL
ASL
8PL
INC
DEC
BNE
MOV
MOV
ASL
ASL

63
1%
R3
#8. R4
RS
R2
R2
R2
R2
R2
R2
33
R3
R4
2%
=2(R1) ,R2
R3.RS
R2
R2

B8IT

106440
027702
030070
025402
002012
000001
040000

YES.

EXIT THIS TEST D>333333333333353333333>>>>

THIS "'TEST'' COMPUTES THE VSV SYSTEM CONFIGURATICN AND TYPES IT ON

SCONTY: MOV

000001

MOV

: MAKE A WORD OFFSET

#BIT14.ERTA8L(R15

(R1)+,RS

. WAS LAST UNIT PREVIOUSLY DROPPED?

;s GET A MEM TAB ENTRY.

END OF TABLE?

; YES. (AND R1 NOW PTS TO SYNC CHAN TABLE.)
; NO. (BUT THERE'S NC MEMORY THERE E]THER.)
s INIT BIT COUNTER.
s INIT SHIFT COUNTER.
s INIT NON-STDD FLAG.
; POSITION THE MEMORY BITS.
:
:
H
;
; SHIFT. GOT A ONE?
s NO.
s YES. COUNT IT.
; DONE ENOUGH SHIFTING?
; NO.
; YES. NOW CHECK IF ALL ONE BITS ARE ; = CONSECUTIVE, STARTING AT BIT 9 ;= (IF NOY( WE HAVE A NON-STANDARD ; = MEMORY.

VSV11/VS11 -~ GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81 11:23
sve TEST 35
SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE)

8952 105716
8953 105720
8954 105722

8955 105724
8956 105726
8957 105730

006302
006302
006302

006302
100002
005305

8958
8959
8960
8961
8962
8963

105732
105734
105736
105742
105744
105750
8964 105776
8965 106000
8966 106002

001374
010102
162702
006202
016104

gggg 106022

000707

8969
8970
8971
8972
8973
8974
8975
8976
8977
8978
8979
ggg?

012102
100376
020227
001443
010103
162703
006203

106024
106026
106030
106034
106034
106040
106044
106046
106072
106076
106100
106120

032702
001011

177776

8985
8986
8987
8988
8989
8990
8991

005737
001521
013702
005003
012704
005005
006302

8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002
9003

106170
106172
106174
106176
106200
106202
106204
106206
106210
106212
106216
106220

006302
006302
006302
006302
006302
100001
005203
005304
001373
016102
010305
006302

9005
9006
9007
9008

106224
106226
106230
106232

006302
006302
006302
006302

ASL
BPL
DEC
BNE
MOV
suB
ASR
MOV
PRINTF
TST
BEQ
PRINTF

6%:

;
:
;
;
;
;
:
:
&
:
.
;
;
:
s

GET NUMBER OF THIS MEM IN R2.
GET TABLE ENTRY FOR THIS MEM IN Ré4.
PRINT DATA FOR THIS MEM,
NON-STANDARD?
NO. NEXT MEM.
YES. TELL THE WOKk.D!'.

: NEXT MEM.

(R1)+,R2
6$
R2.¥-1
#SYCTAB+2,R3
R3
#SCSY(,R3,R2
#8IT13,R2
78
#SCNINT
6$

7%:

PRINTF
BR

#SCINT
6$

:
: NEXT SYNC CHAN.

8$:

ST
BEQ
MOV
CLR
MOV
CLR
ASL
ASL
ASL
ASL
ASL
ASL
8PL
INC
DEC
BNE
MOV
MOV
ASL

MFGFLG
158
MF GMO ,R2
R3
#8. .R4
RS
R2

R?
R2
R?
R2
R2
108
R3
R
9s
-2(R1) ,R2
R3.RS
R2

: MFG MODE?
: NO.
; GET MFG MASTER FOR MEM 0.
: INIT BIT COUNTER.
© INIT SHIFT COUNTER.
* INIT NON-STDD FLAG.
. POSITION THE MEMORY BITS.

ASL
ASL
ASL
ASL

R?
RO
R?
R2

003272

020000

003022
000010

9%:
’

R2
R2
R2
RO
5¢
RS
4$
R1,R2
#MEMTAB+2,R2
R2
<2(R1) R4
#SCMEM,R2,R4,R3
RS
18
#SCNSTD

SEQ 0236

;. GET SYNC CHAN TABLE ENTRY. END OF
: NO. (BUT NO SYNC CCHAN THERE).
; MAYBE. IS IT EOT OR A SYNC CHAN?
; EOT,
. SYNC CHAN. GET ITS NUMBER IN R3.
.
;
; PRINT DATA FOR THIS SYNC CHAN.
;. INTERLACED?
©OYES.
; NO.
. NEXT SYNC CHAN.

177777

002512

MoV
BPL
CMP
BEQ
MOV
SUB
ASR
PRINTF
BIT
BNE
PRINTF
B8R

000741
000730

9004 106222

5%:

003260

005705
001720

8982 106122
3332 106142
106144
106150
106152
106156
106160
106164
106166

48:

ASL
ASL
ASL

PAGE 126-1

108 :

177776

006302

ASL

118:

8s
R1,R3

TABLE?

;
;
;
.
:
.
;
;
;
o
;

SHIFT. GOT A ONE?
NO.
YES. COUNT |IT.
oone ENOUGH SHIFTING?
ves NOW CHECK IF ALL ONE BITS ARE = CONSECUTIVE, STARTING AT BIT 9 = (IF NOT,
WE MAVE A NON-STANDARD -

. - MEMORY.)

;
;
;
;

VSV11/vS11 == GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81 11:23
exe TEST 38
SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE)

9009 106234
9010 106236
9011 106240
9012 106242

9013 106246

9014 106272

9015
9016
9017
9018
9019
9020
9021

106274
106276
106316
106322
106346
106350
106352

3022 106372

9024 106374
9025 106414
9026 106420

9027 196424
902% 106426
9029
7030
9031
9032
9033

106432
106634
106440
106460
106462

100002
005305
001374
013704

003022

128:

005705

001410
013702

003024

032702
001011

020000

13$:

000410

013701
162701
006301
005761
001002

BPL
DEC
BNE
MOV

118
MFGMO,R&

PRINTF

14$:
15$:

168:
178:

000776

SEQ 0237

128
RS

:
:

#SCMMMO,R4,R3

* PRINT DATA FOR THIS MEM.

:
:

GET TABLE ENTRY FOR THIS MEM IN Ré.

* NON=-STANDARD?

138
#SCNSTD
MFGSO,R2
#SCMMS0,R2
#BIT13,R2
148
#SCNINT

:
: YES. TELL THE WORLD'.
: GET MFG MASTER SYNC CHAN 0 IN R2.
: PRINT DATA FOR THIS SYNC CHAN.
: INTERLACED?
> YES.
: NO.

PRINTF
MOV
S8

#SCINT
LSUNIT,R
#1.R1

;
:

BNE
EXIT
PRINTF
BREAK
BR

168
TST
#SCOUT

: BR IF YES
: NO == EXIT TO DO ANOTHER.
:
: WAIT FOR USER TO <*C>.
:

158

ASL
1ST

003302

BEQ
PRINTF
MOV
PRINTF
BIT
BNE
PRINTF

002012
000001

PAGE 126-2

R1
ERTABL(R1)

178

GET NUMBER OF UNITS

; MAKE A WORD OFFSET
: DID LAST UNIT RUN?

9035 106464
9036 106552

045
045

116
101

045
054

SCMEM:
SCNSTD:

.ASCIZ
.ASCIZ

/XNYAMEMORY:
ID1YA,
/YA,
(NON=STD)/

9038 106640
9039 106660

045
045

101
101

054
054

SCINT:
SCNINT:

.ASCIZ
.ASCIZ

/%A,
/3IA.

9041 106772
9042 107040
9043
9044
9045 107110

045
045

SCMMSO:
SCOUT:

.ASCIZ
.ASCIZ
-EVEN

/INYAMFG SYNC CHAN 0,
SYCTAB VAL: 106/
/ININXA
(<5C> TO GET BACK TO 'DR>'‘)IN/

9037 106571

9040 106704

045

116
116
116
116

045
045

SCSYC:

.ASCIZ

SCMMMO: .ASCIZ

MEMTAB VAL:

X06%A,

/INSASYNC CHAN: Z01XA,

SYCTAB VAL: %06/

/INSAMFG MASTER MEM 0,

MEMTAB VAL: X06IA,

INTERLACED/
NON=INTERLACED/

XDIYA BI1S/

XD1%A BITS/

END. TEST
Al

22123323223 212321232232 22233

Y2222

22222222222

END TEST 35

centeteRR
AN RRRRRRRRRRROECRORRARSY \AAAAA

220 2222

220 )

VSV11/vS11 =~ GRAPHIC SYS.

DIAG MACRO M1113

28-0(T-81

9047
8823

.SBTTL
.SBTTL

9050

ggg%

;

9051

11:23

E_.3

PAGE 127

SUPERVISORS DISPATCH TABLE

THIS TABLE HOLDS THE STARTING ADDRESS OF EACH TEST
FOR THE SUPERVISOR'S DISPATCHER.

SEQ 0238

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
28-0(T-81
vet LUMINANCE (GREY-SCALE) AND COLOR DATA TABLES

.SBTTL

11:23

«*+ LUMINANCE

F_
3
PAGE 128

SEQ 0239

(GREY-SCALE) AND COLOR DATA TABLES

: TABLE OF 256 (8 BITS) LUMINANCE VALUES TO PRODUCE
; A LINEAR 12 BIT GREY-SCALE.
000000
001400
002400
003400
003001
000004
001040
003003
002404
003004
000007
000100
001044
007440
000502
005407
000140
001066
007444
003014
000017
000126
001072
002036
002163
004600
000132
004220
003513
003640
000607
005476
004152
003517
002173
000647
005554

000400
000401
000002
002401
002020
005400
006400
002040
000060
002023
004440
000010
002407
001063
003500
000503
000014
002413
0025490
003504
002160
003142
001600
000220
005161
000513
003146
004074
000260
001152
003567
002243
004660
000320
001230
007624

001000
002000
003000
004000
005000
003002
002403
007400
000006
001042
002024
000462
000011
000120
001064
002030
000504
000015
000160
002541
002034
002161
007066
001601
002563
005162
002165
004602
004075
002477
000300
005241
003153
004117
002555
000340
002213

LUMTBL:
0,
400,
1400,
401,

2.
2401,
2020,

3000,
4000,
5000,

402
3
2420

1060,

6400,

2403,

3003,
2604.

56400,

3002,

2040.
60

7400,
6

46440,

2024.

502

3500,

30064,

100,
1064,
7640,
5407,

140,
1066,

2023,

10
2407,
1063,

462,
11
120,

2025
501
12

503,

2030,

14,
2413,

1064,
504,
1S

17,
126

2160,
3142,

2034.
2161.

2036.
2163,

220,
5161,

1601,
2563,

4600.
132

3504,

1600,

2411

1065

2031
505

125

200
3506

513,°
3146,

5162,
2165,

240
1222

260

4075.

3567.
2243,

300,
5241,

3640,

1152,

4602.
2477,

3126
131

3132

3223

210
1154

4660,
320

3153,
4117,

2172
646

647,

7624.

340

2574

3265.
1741,

4612,
3266,

3647
4631

3651,

5176,

272

7232.

655

5554,

267,
360

1230,

2321,

5213,

1617,

6266,

1237,

4235,

6235,

2331.

273

7615,
73

277,
274,
1370,
2334.

1312,
7616,

3275,
5712,
4366.
2371

2555.

2218,

5703,

1362,

47483,
5237,
2712,

3656.

2332,
3276.
7364,
4367.

; LEVEL 137

2166

4152,
3517.

2173,

. LEVEL 77

2162

4074.

607,"
§476,

160,

2541,

: LEVEL 37

1061

7066.

6220,
3513.

5020
1441

2405

2540,

1072,

6000

1042,

76444,

3014,

671

004367

1
1001

2600,
3400,
3001,

2177,

002334

1000,
2000,

LEVEL 177

157

2703

1634

: LEVEL 237

4360
3453

1256

3345
1747

4364

S330
7745
3277
5714

: LEVEL 277

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
28-0CT-81
ret LUMINANCE (GREY-SCALE) AND COLOR DATA TABLES
jelelelelelelolelelelele]
PON) =
B b b 2 s B OO
=S O NV
NN = OO
NORNNIMNLINIMNNINNI
NN

—b
b
D

e
d e
b

d
b

d e

b o

004751
005715

007776

006276
004752
007367
004372
001375
007753
003357
002776
005357
007756
006376
005777
006777

4751,
5215,
4371,
1376,

7752,
4755,
7372,

5376,
6356,

007377

4776,
7375,
6776,
776,

[eleleolalelole
o]

NNNN&NNN

b o
D
b e

b
d
b e
b

—

;

—h

W =2O000~NO

PONINIAD)
= =
D

d bbb

9114 110052
9115
9N

6276,
4752,
7367,
4372,
1375,
7753,
3357,

2776,
5357,
7756,

6376,

5777,

6777,

PAGE 128-1

1372,
6277,
4753,
5717,
4373,

2717
1373
23%7
4754

5337,
6335,

5774,
4376,
6757,
7757,
6376,
7377,

THE BASIC (NTSC)

007400
000017
000360

BLU=

000000
007400
000017
007417
000360
007760
000377
007777

NTSC8:

RED=
GRN=

6_3

11:23

1757
4374
7754

SEQ@ 0240

;

LEVEL 337

;

LEVEL 377

7337
7374
4377
2777

6377
7777

COLORS, PLUS BLACK AND WHITE.

17+BITS8

17+BIT0
17+BIT4
0

; BLACK (NO COLOR AT ALL).

RED
RED+BLU
GRN

;

MAGENTA

:
:
;

CYAN
YELLOW
WHITE

BLU

GRN+BLU
GRN+RED
GRN+RED+BLU

* A 16 LEVEL VARIATION OF THE ABOVE TO EXPERIMENT WITH.
242

274
276

000000
000043
000000
000017
000000
000117
000000
000377
000000
000360
000000
007400
000000
007417
000000
007777

EXPRM:

0
43
0

: BROWN (3RD LEVEL YELLOW).

0
117
0

: ORANGE

SED*GRN

YELLOW

GRN

GREEN

BLU

BLUE

RED+8LU

VIOLET

BLU+RED+GRN

WHITE.

RED

0
0
0

RED
(RED + HI

(MAGENTA)

GREEN)

i
d

b o
d

b o

o
md

o
o

b e
b

b e

b md e

D e

b o

d i

e
e

NN IR
I IIS »H

e
b

e
e

b o

i
D

e
b

o
d

b
b

b
rd

b e
D

b
b

I BBWNNWWNNIN NN
= b ok b o000
oo~ NOOSROO
& OO
NOONESN

KRRRRKRR ololelolelololelelolelelelolele]ls)
AERERRER 9999999 &He

cd e

.SBTTL

ACAT:

714
402
.'CR

.=$SVYPC

..EXC

. .NUM
..DOL
..PCT
. .AND

. .QUOY

. .LPAR
. .RPAR
. .AST

..CMA
. . MNS
..DOT

11:23

w+x ASCI]

=ACAT+<12%2>

. .NULL

:0-37 ARE NULL (NLISTED).

$SVP(=.

sSAVE PC, BACK UP AND...

..LF

;... INSERT LINE FEED...

.SACAT+<15%2>

PAGE 129

: SPACE
JEXCLAM
;DOUBLE QUOTE.
;sNUMBER SIGN
;DOLLAR
;PER CENT

;AMPERSAND

;SINGLE QUOTE
;LFT PAREN
;RT PAREN
sASTERISK
:PLUS
; COMMA
JMINUS
:PERIOD
:SLASH

s COLON
;SEMI COLON
:LFT ANGLE

JEQUALS

;QUESTION
;AT SIGN

JRT ANGLE

. p—

110334
—
—

CHARACTER ADDRESS TABLE AND SUBPIX

28-0CT-81

—

110326

— e ) ed el —
— d b wnd b —d

110302

—d e md b vl el wd S —d ) b i wmh ) b b b b d = b N = el b b b e cnd b b b b
D ) B ) e el ) b
— el md
b b ol ) b r—h el ) b wd D vl ) —d —d el b b b i b wd el S e = d b =D -l b cmd D aed e b b
PORLRININLNVNINLNDNININD
b ot ad b d = b b md ad b b d
b e ot
b i d i o b =2 OO OO
WNINININON) = =2 = O OO NNNVO O WNWNWNES B B WWWWWNINNIININ = = a2 OO NN
=2 NWNHWNOORNIO N OO VWO =2 NS = NWNOOR WO NS NVOON N =L N
NSO OOS OSSNSO
DNNOS SOOI NNNON

NN
= === OO0 O NNNNOOONO Y
SOOI OO MNOONSNO o

e
e

w++ ASCII

j=lelelelelelolelelelelelelalelelelololelelelele

b
d mh

b
b

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113

H_3
SEQ 0241

CHARACTER ADDRESS TABLE AND SUBPIX

:THE FOLLOWING 128. WORDS_CONTAIN THE_CHARACTER SUBPIX
0-37 AND 140-177 ARE NULL FOR NOW.
:STARTIN G _ADDRESSES.
(EXCEPT FOR 12 AND 15)

*RESTORE PC

;. ..AND CARRJAGE RETURN ADDRESSES.

VSV11/VS11 -- GRAPHIC SYS. DIAG MACRO M1113

—a-TleO]TNoTIloMNlIoTtNVOTToVTNSoOoMVVVTNOTMoFWNIIaMIVTOoMoNVV=II=oVO]TMoNToTVMVI=ToONNR=VTaIOeToMQPTTMVO=MToVTTNVMoe(@

+«+ ASCI] CHARACTER ADDRESS TABLE AND SUBPIX

VONTOONTVNTOTON

28-0CT-81 11:23

3
I
PAGE 129-1

;LFT BRACKET
:BACK SLASH
;RT BRACKET
s CARROT
s UNDERSCORE

:1640-177 ARE NULL

SEQ 0242

(NLISTED).

VSV11/VS11 -~ GRAPHIC SYS. DIAG MACRC M1113
vex ASCII

CHARACTER ADDRESS TABLE AND SUBPIX

28-0CT-81

11:23

PAGE 130

3
SEQ 0243

THESE ARE THE CHAR SUBPIX ROUTINES.

EACH IS BUILT ON A 5 X 7 DOT MATRIX (ALA VT05).
<CR> WILL

INVOKE A ‘''STOP''.

(PU MUST CALCULATE THE START

CO-ORDS FOR NEXT LINE, STUFF IN '',.CRX AND ..CRX+2'' AND
RESUME, TO XCT PSUEDO-CRLF.
THE FOLLOWING MACRO (SXY4) APPLIES A 4X SCALE FACTOR AT
ASSEMBLY TIME TO YIELD A CHAR SIZE OF 30 x 40 (OCTAL)
WHICH PRODUCES A MEDIUM SIZE CHAR FONT.

.MACRO
SXY
LENDM

SXY4 A,B,C
A Bré, (4
SXY4

..NULL:

DPOP

JALL UNDEFINED CHARS EXIT HERE.

110704
110706
110712

164000
104000
165000

..LF:

DNOP
SVEC
DPOP

sDPOP TO NULL

164000

..CR:

DNOP
STOPN

;DPOP TO NULL THE <CRLF>.
JWAIT FOR NEW X AND Y...

173000
114000
000000
165000
104000

..CRX:
..SPC:
..EXC:
..QUO:
..NUM:
..DOL:

..AND:

..QUOT:

..RPAR:

—ted e

e el

)

..PCT:

) d d

000060

i b e e )e

AW NN ANINNONINININ
= 2 b b 2 2 O OO0 O ~
~
= = OQOONNOIWVESEEBNN
OO
NWN= = NN
n
£SO OONNIOOONNO S NINNONONOO

OO0O00O

165000

=k = ODOOOOOOD

110702

..LPAR:

..AST:
..PLS:
..CMA:
..MNS:
..DOT:
..SLSH:

APNT

.WORD

DPOP

SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP

SVEC

DPOP
SVE(
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SYEC

0,0

J...0K,

THE <LF>.

EXECUTE

THE

<CRLF>

VSV11/VS11 ~- GRAPHIC SYS. DIAG MACRO M1113
ree ASCI]

G407
9408
9420
9421
9428
9429
9441
9442
9457
9458
9465
9466
9477
9478
9490
9491
9498
9499
9518
9519
9530
9531
9537
9538
9544
9545
9550
9551
9557
9558
9562
9563
9573
9574
9587
9588
9597
9598
9611
9612
9622
9623
9631
9632
9635
9641
9642
9647
9648
9655
9656
9664
9665
9672
0673
9679
9680

CHARACTER ADDRESS TABLE AND SUBPIX

111326
111330
111360
111362
111400
111402
111432
111634
111472
111474
111512
111514
111542
111544
111574
111576
111614
111616
111664
111666
111714
111716
111732
111734
111750
111752
111764
111766
112002
112004
112014
112016
112042
112044
112076
112100
112122
112124
112156
112160
112204
112206
112226
112230
112236
112252
112254
112266
112272
112310
112312
112332
112334
112352
112354
112370
112372

165000
104000
165000
104060
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
104000
165000
104000
160000
104000
165000
104000
165000
104000
165000
104000
165000
104000

28-0(CT-81

..00:
..11:
..22:
..33:
. 44
..55:

..66:
..77:
..88:
..99:

..COLN:
..SEMI:
..LANG:
..EQ:
..RANG:
..QUES:
..ATS:

..AA:

..BB:
..CC:
..DD:
..EE:
..FF:

112160

..66:

«.HH:
..I11:

..JdJ:
..KK:
..LL:

11:23

K.3

PAGE 130-1

SEQ 0244

DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC

DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
bPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC(
DPOP
SVEC
DPOP
SVE(
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVE(
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC

DPOP

SVEC
SVEC
DPOP
SVEC
.WORD
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC
DPOP
SVEC

DUMP,..CC

;FINISH USING "°C"".

|
VSV11/vS11
+++ ASCII

== GRAPHIC SYS.

CHARACTER ADDRESS TABLE AND SUBPIX

9685 112404

9686
9692
9693
9700
9701
9712
9713
9721
9722
9726
9707
9731
9732
9746
9747
9753
9754
9762
9763
9770
9771
9778
9779
9788
9789
9798
9799
9807
9808

165000

112406
112422
112424
112442
112444
112472
112474
112514
112516
112526
112532
112542
112546
112602
112604
112620
112622
112642
112644
112662
112664
112702
112704
112726
112730
112752
112754
112774
112776

104000
165000
104000
165000
104000
165000
104000
165000
104000
160000
104000
160000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000
165000
104000

9815 113014

104000

9814

DIAG MACRO M1113

113012

165000

28-0(T-81

..MM:

112444

112474

PAGE 130-2

SEQ 0245

DPOP

SVEC
DPOP
.NN:
SVEC
DPOP
..00:
SVEC
DPOP
..PP:
SVEC
DPOP
..00:
SVEC
.WORD
..RR:
SVEC
.WORD
..SS:
SVEC
DPOP
L TT:
SVEC
DPOP
..WU:
SVEC
DPOP
.VV:
SVEC
DPOP
..WW: o SVEC
DPOP
L
SVEC
DPOP
.YY:
SVEC
DPOP
..22:
SVEC
DPOP
..LBRK: SVEC
DPOP

..BSLH:

11:235

SVEC

DJMP,..00

DJMP,..PP

.
'0"".
.
;FINISH USING 'P"".
:FINISH USING

VSV11/VS11 =~ GRAPHIC SYS. DIAG MACRO M1113

vee ASCI]

9822
9823
9829
9830
9835
9836
9839

CHARACTER ADDRESS TABLE AND SUBPIX

113030
113032
113046
113050
113062
113064
113072

165000
104000
165000
104000
165000
104000
165000

28-0CT-81

..RBRK:
..CRT:
..USC:

DPOP
SVE(
DPOP
SVEC
bPOP
SVEC
DPOP

11:23

n 3
PAGE 131

SEQ 0246

«SV11/vS11 == GRAPHIC SYS., DIAG MACRO M1113
ve+ DEVELOPMENT VERSIONS CONTROL

28-0(T-81

11:23

PAGE

132

3
SEQ 0247

9841

LSBTTL

9844

; THE FOLLOWING NUMBERS GET CHANGED AT EACH NEW ASSEMBLY, THEREFORE:

8329

; LISTING DOESN'T MATCH THE LOADED PROGRAM!

380
9845

9848 113076

9849 113076

9850
9851
9852

:
021557

002165

9853
9854
9855

9856

9858
9859
9860
9861
9862
9863 113100
9864
9865
9866
9868
9870 113404
9871

THESE NUMBERS DON'T MATCH WHAT'S

DDMMY:

09071,

LSBTTL
LSBTTL

evx PAT(H AREA

HHMM:

9857

«=« DEVELOPMENT VERSIONS CONTROL

IN CORE

(OCTALLY)

THEN THIS

1141,

FINALLY A GENEROUS PAT(CH AREA.
AND AN ADJUSTMENT TO ACCOUNT FOR THE ""LASIAD BIT7" HACK
DESCRIBED IN ‘“'SUPPRG.MEM'' (FOR REV ().

113490

PAT(H:

.BLKW

:
;

BLKB
<<, +400>84C377>-.
cT o
.2..37741

{SLAST::

16.

VSV11/VS11 =< GRAPHIC SYS. DIAG MACRO M1113

DEFAULT HARDWARE P-TABLE
9873

.SBTTL

B__&
PAGE 133

11:23

SEQ 0248

DEFAULT HARDWARE P-TABLE

J+e

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

.WORD

172000

000320

.WORD

320

000200
000000
000000

.WORD
.WORD
WORD

PRIO4
0
0

113426

172010

WORD

172010

113430

000340

.WORD

340

113432
113434

113436

000200
000000
000000

.WORD
.WORD
.WORD

PRIO4
0
O

113440

000001

teenex
.END

TH =

.SBTTL

PEND:

TH =

LRI

TIPS

SR
YOO Y

172000

9874
9875
9876
9877
9878
9879
9882 113410
9883
9884 113412
9885
113414
113416
113420

28-0CT-81

TH =

18T

(Oi g)

REGISTER(S).
IF_LUT INSTALLED
1ST (OF 4) VECTOR(S).
( 5 IF LUT INSTALLED
INTERRUPT PRIORITY.
LUT AVAILABLE (IF NONZERO)
SYNC FREQUENCY: 0 = 60MHZ
NZ = 50HZ
1ST (OF &) REGISTER(S).
( 7 IF LUT INSTALLED
1ST (OF 4) VECTOR(S).
( 5 IF LUT INSTALLED
INTERRUPT PRIORITY.
LUT AVAILABLE (IF NONZERO)
SYNC FREQUENCY: 0 = 60HZ
NZ =
= 50K
THAT'S ALL

FOLKS

weewne

VSV11/VS11 == GRAPHIC SYS.
SYMBOL TABLE

ABP
ABPX
ABPY
ACAT
ADR
ALL

055140
055146
055150
110302

= 000020 G
= 063774 G

ALLB
=
ALLNB =
APF
APNT
=
APTST
ASSEMB=
AUXSEG=
Al
=
BADDAT
BARS
BGEN
8110 =
BITO0 =
B1T01 =
81702 =
BITO3 =
BIT04 =
BITO5 =
BIT06 =
BIT07 =
BIT08 =
BIT09 =
BIT1
=

BIT10 =
BIT11 =
BIT12 =

BIT13 =
BIT14 =
BIT15 =
BIT2
=
BIT3 =
BIT4
=
BITS
=
BIT6 =
BIT7 =
8118 =
BIT9 =
BLINK =
BLOOM
BLU
=
BLUC
=
BLUEG =
BMF
BMX
BMXX
BMOCHK
BMOP1
BMOP2
BMOTST
BMO4
=
BMO8 =

003774
003374
005047
114000
054566
000010
000001
001776
023060

102356
102460
000001
000001
000002
000004
000010
000020
000040
000100
006200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004

G
G
G
G

G
G
G
G
G
G
G
G
G
G
G
G
G
6
G
G
G
G
G

000010 G

000020
000040
000100
000200
000400
001000
175401
104620
007400
000004
002100
005431
005453
101062
070456
070552
070576
067642
134000

6
6
G
G
G
G
6

G
6

6
135000 G

DIAG MACRO M1113

BM1
BMIPIX
BMITST
BM1X

067532
067550
067214
067542

BM1Y
BM14

067544
= 136000 G
BM18
= 137000 G
BOE
= 000400 G
BOXES
100732
BRINIT
007030
Bv
102466
804
075714
B048
075736
BO8
075726
B14
075666
B148
075710
B18
075700
(BAER
021422 6
(BAERA
013507
(BCHK
022624
CESWE
0146326
CEIWE
014255
CGRPH = 020000 G
CHAR
= 100000 G
CHDISP
054122
CHIE
= 010000 G
CHPROT= 000200 G
CHRF
005475
CHRFX
005521

CHRTIST

053374

CHSEG
CHV

CHX
CHY
CHC
CHl

CH2

054066
103060

=
=
=
=

CH3
CKDROP
CKEMAX
CLFLGS=
CLMFCN
CLMPTR
CLMSHT
CLMTAB
CLRMEM=
CLRRW
CLRRW1
CLRTST
CLRT1
CLRW
CLR.D_
CLR.D2
CLR.Z
CLR.ZA
CLR.Z2

CLTNEW

103052
103054
000000
000400
001000
001400
030354
030254
000012
026754
071610
071626
071612
170140
026650
026640
070716
070740
026632
071602
071720
071562
Q71572
071704
(71272

G
G
G
6
G

28-0CT-81

CMIVB
CMNOMI
CMPE
CNVRT

coLID
CONFIG

CONMEM
CONSYC
CRDAX
CRDAY
CRWRE
CRWRO
CRWRZ

CSCHAN
CSCH.1

11:23

015430
015371
016224
027324

103106
030414
030414
030760
013734
014017
074102
013664
013613
065140
065146
065142
065144
010351
010451
014630
064776
065200
065206
065212
065214
065216
065222
065230
065236

PAGE

€_

133-~1

SEQ 0249

CSMT1
CSMT10
CSMT11
CSMTI%

060314
062244
062364
062450

C$EDIT=
CSERDF=
C$ERHR=
C$ERRO=

000003
000055
000056
000060

CSMT15
CSMT2
CSMT3
CSMT4
CSMTS
CSMT6
CSMT7

063306
060426
060540
060672
061024
061202
061320

C$ESCA=
C$ESEG=
CSESUB=
C$ETST=
C$EXIT=
C$GETB=
CSGETwW=

065016
010411
022440
021166
013165
065150
014543
014461
010651
010611
054070
003256
003302
003256
003270
0564104
054116
054106
054110
1646016
146012

C$GPLO=
C$GPRI=
C$INIT=
CS$INLP=
CSMANI=
CSMEM =
CSMSG =
CS$OPEN=
C$PNTB=
C$PNTF=
CSPNTS=
CSPNTX=
($Q10 =
C$ROBU=
CSREFG=
CSRESE=
CSREVI=
CSRFLA=
CS$RPT =
C$SEFG=
C$SPRI=

000010
000005
000003
000001
000032
000026
000027
000043
000042
000030
000040
000011
000020
000050
000031
000023
000034
000014
000017
000016
000015
000377
000007

"46040
146060
146100
175000
000040
000052
000061
000022
000004
00000
00004
00006
0000]
00003
000006
000036
000044
000051
000024

CSMT13
(SMT14

062656
063020

CSMT8
CSMT9

CSCH.6
CSCH.8
CSDSE
CSFLE
CSIFC
CSMEND
CSMF1A
CSMF1B
CSMF2A
CSMF2B
CSMF2C
CSMF2D
CSMF3A
(SMF38
CSMF3C
CSMF3D
CSMF4A
CSMF4B
CSMF&C
CSMF4D
CSMF4E

065320
065314
065334
065372

CSMXIT
CSPCE
CSRCHK
CSRER
CSRERA
CSRETR
CSRGEN
CSRGSN
CSXPE
CSXRE
7
CTAB
CTABE
CTABM
CTABS
CT.ASC
(T.BAS
CT.RET
CT.5U8
CUIM =
CUIOFF=

CSMF4G
CSMF4H
CSMF&I
CSMF&J
CSMF4K
(SMF4L
CSMF4U
CSMF&V
CSMF&X
CSMF4Y
CSMITR
CSMLOO
CSMNEX
CSMPE
(SMPTB
CSMPTE
(SMPX
CSMPY
CSMRE

065436
065454
065470
065346
065370
065324
065270
065254
065326
065330
060204
060210
064756
010551
0650%6
065136
065022
065024
01051

CUOFF =
CUON =
CURD
=
CUWT
=
CvC
=
CSAU_ =
C$AUTO=
($8RK =
($8SEG=
($85uB8=
CSCEFG=
C$CLCk=
CSCLEA=
C$CLOS=
($CLP1=
CSCVEC=
CSDCLN=
($D0DU=
($DRPT=

CSMF&4F

CSMTIST

065240
065252
065300

065420

060164

CUIS

($0U

CSERSF= 000054
C$SERSO= 000057

061434
062070

CSGMAN=
C$GPHR=

G
G
6
6

G
6

= 146073 G

= 000053

G
6
G
G
G

000047

000033
0000C3
000021
000025
000046
000041

C$SVEC= 000037

($TPRI=
DAVTO =
DBLINK
0BLPIX=
DOMMY
DEVCNT
DEVDRO
DEVNRD
DEVNXR
DEVONL
DEVSUM
DFPTBL
DGEN
DGX
DGY
DIAGMC=
DISSEL
DJM
DJMP
=
DJMS
=

000013
144003
105356
000100
113074
032726
034004
033723
033641
033571
033534
002224
102660
102662
102664
000000
101470
026274
160000

G
G

6
160001 G

VSV11/vS11

=< GRAPHIC SYS.

SYMBOL TABLE

0JS

026326

ONOP
=
0OTS
DPC
DPCER
DPCERA
OPDSE
DPINIT
DPOP
=
DPRESE
DPRI
OPSINI
DPUMOD
DPUSAV
DRDYTO=
DRR
DSBINT

164000
102556
003032
020732
012643
007611
025402
165000
026074
003050
025540
002502
026360
150003
003034
(026176

DSDPE
OSDXE
DSDYE
OSFLE
OSMPE
DSMRE
DSPCE
DSR
DSRCHK
DSRER
DSRERA
DSTP
DSXPE
OSXRE
DTAB
DTABE
DTHIL =
070
DUADR
DUADRE
DUAD12
DUFLG
ouMMY
DX
=
DXR
DXRER
DXRERA
DXYME
oYl
=
OYNI
=
DYR
OYRER
DYRERA
EBLINK

007651
007711
007751
010051
010211
010151
010011
003034
022332
020764
012706
026242
010311
010251
101236
101272
000015
026210
035704
021454
017105
003224
003076
000002
003036
021016
012751
100140
000002
000004
003040
021050
013014
105330

OSCSE

ECE
ECISVC
ECMPET
ECMPE2
ECMPE3

G
G

G
G
G

G
G

0101MNM

013552
052416
052420
(052424
052436

DIAG MACRO M1113

ECMPEL

052452

ECRSV1
ECRSV2
ECRSV3
ECSEQY
ECSEQ2
ECSEQ3
ECSEQ4
ECSEQS
ECSEQ6
ECSEQ7
ECSQ7B8
ECSTO
EF.CON=
EF .NEW=
EF.PWR=
EF.RES=

052466
052472
052502
052512
052530
052576
052630
052654
052676
052726
052750
052754
000036
000035
000034
000037

EGGBL =
EMAXDU
EMK
EN
=
ENAINT
ENECKK=
ENVIRN
ERCM
ERCNAM
ERCOD
ERCODS
ERCTBL
ERICHK
ERR
=
ERRCHK
ERRCKY
ERRK
ERRVEC=
ERTABE
ERTABL
ESF
ESuM
Evt
=
EX
EXPGOT
EXPGT2
EXPR
EXPRCZ2
EXPREC
EXPRM
EXSM2 =
EXSM4 =
EXTA
EXTEND

003500
030151
100360
006654
026114
000100
031476
024041
024264
024074
047466
024266
023516
100000
023524
023526
030130
000004
003502
003302
004612
030132
000004
100336
017051
016322
027100
022074
020700
110242
000050
000060
022300
022276

FCOORD

G
G
G
G

EF.STA= 000040 G

G
G

6
G
G

G
G
G
6
G

Ex2
=
Exé4
=
EY
FSEND =
ESLOAD=

28-0CT-81

6
G

000010 G
000020 6
100352
002100
000035

11:23

016377

FERCM
FHST
=
FILLT
FILLZ
FLGCHK
FLGER
FLGERA
FNOCSR
FNOINT
FORCER
FORCET
FORCSI=
FREE
FRESIZ
FSYCHA
FUM]

024030
060000
027014
027020
022410
021134
(013122
023772
004315
003020
032776
000040
003240
003242
016500
0046206

FUSWI
FUTO
FSAU
=
F$AUTO=
F$BGN =
FSCLEA=
F$DU
=
FSEND =
FSHARD=
FSHW
=
FSINIT=
F$JMP =
F$MOD =
F$MSG =
F$PROT=
FSPWR =
FSRPT =
F$SEG =
F$SOFT=
F$SRV =
F$sSuB =
F$SW
=
FSTEST=
GCOFF =
GDBAD
GDDAT
GERRMA
GETCUR
GETJUSE
GHIINH=
GHX
=
GHXF
GHXT
GHXTST

004251
0046066
000015
000020
000040
000007
000016
000041
000004
000013
000006
000050
000000
000011
000021
000017
000012
000003
000005
000010
000002
000014
000701
000100
(022736
023056
(002516
065474
065542
010000
120000
005314
066334
(065676

FUSI

GHXTYP
GHXYX
GHY
=
GHYF
GHYT

D__4
PAGE 133-2

SEQ 0250

GHYTST

G
6
G

003752

GHYTYP
GoLd
=
GRN
=
GRNC
=
GRN1
=
GRN2
=
GRNI
=
GRX
GRY
GTCURS
GTJSSW=
GUNID
GX
GXI
=
GY
GYl
=

066450

067104
003200
000360
000010
002400
003000
003400
075446
075236
077752
040000
103360
075470
174100
075260
176100

GSCNTO= 000200

G
G
G
G

066332
005374
124000 G
025344
067106

HUE

6
G
6
G
6

G
6
G

GSDELM= 000372
GS$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GsLOoLI= 000001
GSNO
= 000000
GSOFFS= 000400
G$OFSI= 000376
GSPRMA= (000001
G$PRMD= 000002
GS$PRML= 000000
GSRADA= 000140
G$SRADB= 000000
GSRADD= 000040
GSRADL= €00120
GSRADO= 000020
GSXFER= 000004
G$YFS = 000010
HAFX
= 000776 G
HAFY
= 000776 G
hAFYS0= 000776 G
HAFY60= 000736 6
HATCH
102702
HBAER
(021370 G
HBAERA
013444
HBCHK
022526
HCOPY = 176051 G
HCPY
= 000001 G
HGEN
103050
HHMM
113076
HOE
= 100000 G
HPM1
002310
HPM?2
002340
HPM3
002370

HPM&
HPMS
HST
HSX
HSY

002420
002450
= 040020 G
075502
075272

HX
HY
H2
)|
=
JAUX
IBE
=
1CBAE
ICBASE
ICSR
I1CSRE
IDLE
IDLEA
IDLEB
IDLEX
1DPC
IDPCE

IDSR

003222 G

075516
075306
003246
040000
003160
010000
007476
003162
003152
007156
101362
101404
101424
101342
003126
007100

6
G
G
G
6
G

003130 6

IDSRE
007127
I1DU
= 000040 G
IDXR
003132 6
IDYR
003134 6
IER
= 020000 G
IFAULT
004356
IFLAGS
003150 6
IHBAE
007447
JHBASE
003156 G
1IRCHK
023422
TIRCNC
023406
TIRCNF
023434
JIRNFC
023452
ILDR
003140 6
ILMR
003142 G
ILSR
003136 G
IMAIN
003154 G
IMCBDA
0725064
IMCERR 072334 6
IMCHK
071736
IMCHKR 071764
IMCRAM 072506
IMCRCT
072512
IMCTRY
072510
IMC.CH 072552
IMC.IR 072576
IMC.Me
072566
IMC.RA
(072606
IMC.SR
072556
IMC.TA
072554
IMC.Y
072574
IMDERR
020506 G
ImD]
005641
ImpIx
005677

IMDIXC
IMpIx2
IMPME
IMPWPE
IMREAD=

006101
006010
007277
(00723
162000 G

VSV11/VS11 =< GRAPHIC SYS.
SYMBOL TABLE

DIAG MACRO M1113

IMRF
IMRRE
IMR8 =
IMTMOD
INCCBA
INCERK
INCHBA
INCREG
INLAC
INLE
INLEX
INLEXF
INTCPC
INTERR
INTFLA
INTLAC
INTMAS
INTVEC
INTX
I0KCKI=
10KERR=
10KJSM=

072514
007205
163000
002504
044014
030216
043544
041232
072706
017207
022226
017235
026112
020226
026107
003230
026106
026110
004400
000200
000004
000002

IPCSAV
IREGCK
ISDSR
ISR
=
IXE
=
IXPME

003146
023066
003144
000100
004000
007355

IXRRE
ISAU_ =
ISAUTO=
ISCLN =

007326
000041
000041
000041

JSJMP =
KIPARO=
KIPAR1=
KIPAR2=

000041
000041
000041
000041
000040
000041
000041
000041
000041
000041
000041
000041
000041
000041
000020 6
000040 G
100320
100740
101110
101114
014376

KIPAR4=
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=
KLUDGE
KTBKGD
KTFLG
KTINIT
KTOFF
KTON
K100US
LAIER
LAIEW

10KJSS= 000010
I0KSTP= 000001

IXPWPE

ISDU

G
6
6

G
G
G
6

007404

= 000041

ISHRD =
ISINIT=
I$M00 =
I$MSG =
I$PROT=
I$PTAB=
ISPWR =
ISRPT =
I$SEG =
I$SETU=
I$SFT =
I$SRV =
I$SUB =
ISTST =
JCWD
=
JCWE
=
JCXA
JCXB
JCXC
JCXD
JENOCL

JMSPOP
JMWD
=
JMWE
=
JPDPCE
JPPCSE
JSDXYE
JSEWRD
JSEWRZ
JSF
JSLCKO=
JSMIES=
JSMV
JSPIX
JSPIXA
JSSIES=
JSSV
JSTST
JSV
JSVA
JSVAT
JSWD
=
JSWE
=

044222
000004
000010
007525
007557
100064
014211
014145
004566
000010
010000
003054
100316
100306
004000
003060
077304
076670
076744
076724
000001
000002

JSY
JSO
JS1
JSZ
JS3
JXYPE

100434
000000
000400
001000
001400
100254
100216
000167
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316
031572
031322
003244
031656

JSWTEX
JSX

=
=
=
=

JXYPX

KIPAR3=

100010
100414

031306
031270
027564

006555
006617

28-0CT-81

11:23

PAGE

G
G

LDCP =
LDECC =
LDl
=
LDINC
LDJSS =
LOR
LDUN
LERRMA
LINTER
LINTX
LMR
LOCT
LOE
=
L0GO
LONGX
LOOP
LOOPFL
LOOPK
LoT
=
LREAD =
LRWERR
LRWX

175000
175400
002000
006662
146000
003044
026602
002514
020610
006540
003046
074754
040000
074600
005121
027646
023054
027700
000010
010000
020642
006707

G
G
6
6
G

LUMIN
LUMTBL
LUTAV
LUTSAV
LUTYv
Lv

027054
107222
003216 6
026606
003062 G
055606

G
6

G
G
6
G
G

6
6

G
6
6
G

6
G
6
G

LSET
LSR

= 010000 G
003042 6

LVEC

= 110000 G

LSACP

002110 G

LVF
LVIST
LVX
LvY

G
G
6

LSAPT
L3AU
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
L$DESC
LSDESP
L$DEVP
L$DISP
L$DLY
L$DTP
LSDTYP
L$DU
LSDUT
LSOVTY
LSEF
LSENVI
LSETP

005073
055224
055616
055620

002036
033012
002070
033216
002106
033220
002032
002011
002122
002076
002060
107114
002116
002040
002034
033110
002072
002162
002052
002044
002102

G
6
G
6
G
6
6
G
G
G
6
6
G
G
G
G
G
G
6
G
G

E__¢4

133-3

SEQ 0251

LSEXP1
LSEXP4
LSEXP5
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT

002046
002064
002066
002240
00¢120
002016
002022
002224
002104
032014
002026
113404
002100
002074
002050
002000
002042
032004
002112
002062
002010
033272

6
6
6
6
6
G
6
G
G
G
6
6
6
6
G
G
G
G
G
G
6
6

L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056
L10057

021452
021506
021646
021760
022072
022130
022176
022224
022274
023322
024262
025740
032724
033106
033214
033216
033270
033532
034272
035042
035620
041150

L$SPCP
L$SPTP
L$STA
LS$SW
LSTEST
LSTIML

002020
002024
002030
002502
002114
002014

6
G
G
G
G
G

L10062
L10063
L10064
L10065
L10066
L10067

Lo
=
L10000
L10001
L10002

002000 6
002236
002500
002520

L10071
L10072
L10073
L10074

043446
043716
044156
044652
045366
046036
046766
047334
052774
053326
054514
055154
055624
056314
057014
060062
065610
066362
067134
067562
070622
072612
071270
071550
072502
073146
074362
073660

LSSOFT
LS$SPC

LSUNIT

L10003

L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10620
L10021
L10022
L10023
L10024
L10025
L10026
110027
L10030

002522 6
002056 6

002012 6

003020

020062
020124
020166
020224
020504
020606
020640
020676
020730
020762
021014
021046
021100
021132
021164
021216
021250
021302
021334
021366
(21420

L10060
L10061

L10070

L10075

L10076
L10077
L10100
L10101
L10102
L10103
L10104
L10105
L10106
L10107
L10110
L10111
L10112
L10113
L10114
L10115
L10116
L10117
L10120
L10121
L10122

042136
042564

074236
074444
076556
101132
100304

VSV11/VS11 =~ GRAPHIC SYS.
SYMBOL TABLE

L10123
L101246
L10125
L10126
L10127
L101371
L255 =

104760
107110
113410
113426
113422
113440
003774 G

= 020000 6

MAGEN = 002300 G
MAPMEM 070326

MARK
MATCH
MATFLE
MATIRE
MATPCS
MATPOS
MATUI
MATXYE
MAXX
=
MAXY
=
MAXY50=
MAXY60=
MCHAN
MDVO
=
MDV1
=

100442
100470
016017
015663
015505
015611
016064
015547
001776
001776
001776
001676
077270
000000
000001

MEMFLG
MEMTAB
MENDPC

003252 6
003256 G
016141

MDV2
MDV3

G
G
= 000002 G
= 000003 G

MEREG
MFGFLG
MFGMO
MFGSO

MKDXR
MKDYR
MMCHK
MMMAC
MMMACA
MMMACE
MMMAE
MMNXE

MMVEC =
MNOKT
MPAT?2
MPCBAS
MPCSE
MPDSE
MPE
=
MPFLE
MPLEN =
MPMER
MPMERA
MPMRE
MPOFF
MPPCE

MPTNEW

G
G
G
G

015733
002512 G
003022
003024

100004
10000$
022466
044744
045016
012511
021650 G
012600

000250
045316
074306
(74332
011411

011251
114003 6

011351
000011
021252 G
013273
011451
(074330
01131

073662

DIAG MACRO M1113

28-0(T-81

11:23

MPT.ST
MPT.WB
MPT.WE
MPT.WY
MPXPE
MPXRE
MRCSE

074334
074356
074344
074352
011551
011511
011051

OPT]
OQUTDFX
OQUTDFY
ouTpoT
OUTDTF
ouTDT1
ouTDY1

MRFLE
MRMPE

011011
011111

OUTLIN
104762
0$APTS= 000000

MRDSE

010711

OUTFLG

MRPCE
MRRER
MRRERA
MRXPE
MRXRE
MSXx
=
MSy
=
Mxy
=
M128
=
M256
=
m32
=
m64&
=
NBL INK=
NEWPAS
NLRI

010751
021220
013230
011211
011151
020000
000100
020000
000002
000003
000000
000001
175400
032174
006306

NOCSR
NODEV
NOINIT

024003
003226 G
004434

PCSERA
PCSERR
PCSX

015334
077222
014777
014712
047336
004014
006760
004135

PDX]
PEND
PERIM
PINTRA=
PINTRB=
PIXRBK=
PNT
=
PNTCOO0

NLWI
NOCMI

NOINTR
NOITS
NOMAN
NOMAT

NOMST
NOSTIK
NOSWI
NOSWPI
NOTOT
NSI
NSINIT
NTO

NTSC
NTSC8
NUL
NULCR
NXM
NXME
=
NXR
NXRERR
NXRX
NXTU
00DSKP=
OPCF
OPCFX
OPCOD

oPC1

G
G
G
G
G
G
G
6

006362
015263

004321
002510 G
017735
016267

027066
110222
0165646
016547
027566

104003 6
003504
020032 G
003543
032206
000200 G
004676
004724
042632

0463440

0$AU
=
0$8GNR=
0$8GNS=
osoU
=
OSERRT=
OSGNSW=
0$POIN=
0$SETU=
PASRPT
PATCH
PATS
PATTST
PATT1
PAUSE1
PAUS.S5

PAGE

003064 G
105246
105276
105072
105134
105162
105302

PTINER
PUNIT
PVEC2 =
Qvp
axIT
Q1
Q2

023324
032730
000004 G
003030 6
076460
076366
076424

SCBASE
SCFLG
SCIDE
SCINT
SCM
SCME
SCMEM

003212 6
003214 6
017355
106640
017534
017416
106464

Q4
RBL

076424
076536

SCMMMO
SCMMSO

106704
106772

000001
000001
000001
000001
000000
000001
000001
000000
032240
113100
074250
073240
073262
027514
027522

RBO
RBX
RBY
RDDXY
RDJSE
RDWRT =
RDWRT1=
READ
=
RED
=
REDC
=
REDG
=
REGERR
REGNAM
RELEAS
RELF

076530
076540
076542
065520
065566
176074
176076
176050
000017
000020
002200
023144
023062
026756
004746

013057
020064 G
003564

RELTT1
RESET1
RESTRS
RGE
RJF
RLMOD
RLMOD1
RLMXIT
RLNEWL
RLSKIP=
RLXIE
RLXYE
RLX2IE
RLYDE
RLYUE
RLYZ2DE
RLY2UE
RND8
=
RNLN
=
RPD
RPF
RPNT
=
RPT
RPTST
RSTPOS=
RSVDOP=
R256
=
SAUX
SAVED

053322
034340
031436

SDSR
SDX
SDXR

057676
057346
000400 6
016552
020170 6
016613

SELCSR=
SELDIS
SELDSR=
SELFLG=
SELHBA=
SELMPM=

016715
016663

SELMRR= 000004 G
SELPCS= 000001 G

022360
021102 6

PDBITS
PDF
PD!
PDM

003066
003072
003070
003074

PRSYCH

SEQ@ 0252

105070

PCSCHK
PCSER

PNTSYC
PRBH
PRBHNG
PRGSIT=
PRI
=
PRIOO =
PRIO1 =
PRIOZ2 =
PRI0O3 =
PRI04 =
PRI0OS =
PRI06 =
PR107 =
PROTEC=

F_
4
133-4

004642
113440
103066
000001
000002
000000
001000
022132

G
6
G
6

G
G
G
G
6
022200 6
005574
005556
174561
002000 &
000000 G
000040 G
000100 G
000140 G
000200 G
000240 6
000300 G
000340 6
176000 G

065152

RELFX
RELTST

SAVERS

076366

6
G
6
G
G
6

004773
053050

031412

SCNINT
SCNSTD
SCONTY
SCoOUT
SCPRE
SCRBLU
SCRCOM
SCRGRN
SCRRED
SCRWHT
SCS
SCSR
SCSYC
SDASK
SDLIST

SDO
SDP(

022664
004534
057062
057076

017010
016751
000400
144000
056310
005175
130000
056300
055676
100000
124003
000100
003210
031462

SCMFG

SDY
SDYR
SELCBA=
SELCHA

017461

106660
106552
105522
107040
017326
104542
104554
104550
104534
104526
017632
003202 6
106571
102212
101472

102231
003164 6

003166 6
027312
003170 G

027270
003172 6
000007 6
077302

000003
101272
000000
000002
000005
000004

6
G
6
6

SELXPM= 000006 G

G
G
G

G
¢
G
6

SELXRR=
SEQERR=
SETCB =
SETCSR=
SETDSR=
SETFLG=
SETHB =
SETMEM=
SETMPM=
SETMRR=
SETU
SETXPM=

000006
120003
152000
000013
000010
000012
150000
170100
000015
000014
032272
000017

6
6
G
G
G
G
G
G
G
G

SETXRR= 000016 G

SFLAGS

003200 6

VSV11/VS11

== GRAPHIC SYS. DIAG MACRO M1113

SYMBOL TABLE

SFPTBL
SHADLY
SHAD16
SHBASE
SHRTX
SIFLAG
SIMSG
SINIT =
SINITT
SIOFF =
SION =
SKPO
=
SKP1
=
SKPZ2
=
SKP3
=
SMAIN
SOCT1
SOCT2
SPARTS
SPCSAV
SPM1
SPM2
SPM4

SPM5
SPM6
SPM7
SRO
=
SR1
=
SR
=
SR3
=
SSDSR
SSF
SSTST
SST1
SST2
SST3
STOP
=
STOP1 =
STOPN =
STPTST
STPV
STP1
STP2
STP3
STP4
STRSET
SUPVSR=
SveGBL=
SVCINS=
svcsuB=
SVCTAG=
SVCTST=
svD
SVEC
=
SVF
Sv1
SVIST

002502 6
003220 6
027172

T$SAU = 010047
T$$AUT= 010051
T$SSCLE= 010052

SYCFLG
SYCTAB
SYNC
=
SYNCTO=
SYSCON
SSLSYM=

T$$SHW =
T$SINI=
TS$$MSG=
T$$PC =
T$$PRO=
T$SPTA=

SWNOCU
015205
SWNOHL
015112
SWTCH = 170200 G

000401
000402
000403
003204 G
075026
075040
074434
003176 G
002600
002630
002660
002710
002740
002770
177572
177574
177576
172516
003174 6
004503
042210
042516
042526

TBOFF
TBON
TEMP1
TEMP2
TESTK
TIDFLG
TINERR
TN
=
TNAM
TNUM

042550

172000
173400
173000
046110
003052
046742
046746

G
G
G

046752
046760
(034122
026050
000000
177777
177777
177777
177777
057010
104000 G
005221
057000
056364

11:23

SWCHON= 000002 G
SWE
= 000010 G
SWIBV
015036

003206 G
005250
023064

023012
100000 G
035114
171000 G
171400 G
000400

28-0CT-81

TOTV

TOTVST
TSTEND
TSTGO
T$ARGC=
T$CODE=
TSERRN=
TSEXCP=
TSFLAG=
TSFREE=
T$GMAN=
T$SHILI=
TSLAST=
T$LOLI=
TSLSYM=
TSLTNO=
TSNEST=
TSNSO =
TSNS1 =
TSNS2 =
T$SPCNT=
T$PTAB=
T$PTHV=
T$PTNU=
T$SAVL=
T$SEGL=
T$SEKO=
T$S12E=
T$SUBN=
T$TAGL=
TS$TAGN=
TSTEMP=
TSTEST=
T$TSTM=
T$TSTS=

003254
003270
164001
140003
021510
010000

102320
102262
003232
003234
030070
002506
022775
000043
030066
030064
003056
047050
030072
027702
000001
000052
006346
000000
000040
113440
000000
000015
000001

000000

010000
000043
177777
000001
000011
000003
000000

010130
000002
000002
177777
177777
010000
000016
000000
177777
010132
000044
000043
177777
000001

G
6
G
G
6

G
6
6

G__4
PAGE 133-5

SCQ 0253

UAM
ULRI
ULWI

= 000200 G
006437
006477

T$$DAT= 010131
T$$DU = 010050
T$$HAR= 010001

UMI
UNITN
Usl

T$SRPT=
T$$SEG=
T$$SOF=
T$85UB=
T$$SW =
TSSTES=
T
710
TM
712
713
T14
T15
T16
117
718
719
T2
120
121
122
123
124

010053
010000
010003
010116
010002
010124
034054
044160
044654
045370
0646040
046770
047422
052776
053330
054516
055156
034274
055626
056316
057016
060064
065612

VIS
VIs3
VIS4
VIS5
VISS5A
VISé
VRLF
VRLF1
VRLF2
VSHGE
VSHNG
VSHUNG
WAITF
WE
=
WECC
=
WHITE =
WJSS
=
WRT
=
WRTCPX=
WRTCPY=
WRTCSR=
WRTJSS=
WRTMSR=

726
127
128
728.1
128.2
729
13

067136
067564
070624
070732
071272
072614
035044

125

130
730.1
130.2
131
132
133
T34
135
T4
TS
76
17
T8
19

010000
010046
010122
000002
010045
010130

USwi
us100
utro
VIOLET=
VISXIT
VIS

6
G
6
G
G
6
G
G
6
G
6
G
G
6
G
G
6

066364 G
6
G
G

G
G
073150 G
073254
073662
074364 6
074446 6
076560 G
101134 G
105404 G
035622 6
041152 6
042140 G
0642566 6
063450 6
043720 6

004212
003026 6
003756

004255
027539
004072
003300 6
076356
074544

074714
075110
075320
075530
075746
076076
07¢016
076024
076026
026010
025720
025742
027454
000010
160000
003774
042000
176034
140000
140000
000013
042000
040000

6
G
G
G
G
G
G
G
G
G

WRT.D

074262

XINCB
XMCHK
XMMAC
XMMACA
XMMACE
XMMAE
XPCSE
XPDSE
XPFLE
XPMER
XPMERA
XPMPE
XPMRE
XPPCE

057742
022566
045456
045530
012545
021762 6
012311
012151
012251
021336 G
013401
012411
012351
01221

WRT.X
074264
WRT.Y
074266
WRT1
= 176036 G
XA
066352
X1
067112
XINC
057722
XINCA
057732

XPXRE
XRCSE
XRDSE
XRFLE
XRMPE
XRMRE
XRPCE
XRRER
XRRERA
XRXPE
XTBL
XxCcomm
XXDP
=
XX.ENT=
XX.EXI=
XYERR
XYX
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
X2INC

012451
011751
011611
011711
012051
012011
011651
021304 G
013336
012111
102516
003236 6
003726
025570
026072
020126 G
003657
000000
000040
000400
000020
057752

X2INCB
YA
YDN
YDOWN =
YELLOW=
Yl
YMAX
YUP
Y2DN
Y2UP
Y50T8L
Y60TBL
$SVPC =
DX
=
DY
=
.1
=
.NT
=
.. AA
..AND
..AST
ATS
..B8
..BSLH
..CC
..CMA
..COLN
..CR
..CRT
..CRX
..DD
..00L
00T
..EE
.€Q

057772
067124
060016
000040 G
003600 G
066340
003250 G
060002
060046
060032
102516
102536

X2INCA

057762

110402

002000
000000
000000
000037
112100
111172
111220

112044
112124
113014
112160
111260
111716
110714
113050
110722
112206
111020
111304
112230
111766

VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113
SYMBOL TABLE

..EXC
..FF
..G6
..HH
.11
NN
..KK
..LANG
..LBRK
..LF
..LL

110736
112236
112254
112272
112312
112334
112354
111752
112776
110704
112372

113440
000000
ERRORS DETECTED:

..LPAR
..MM
..MNS
..NN
..NULL
..NUM
..00
.PCT
..PLS
..PP

. ABS.

111164
112406
111272
112424
110702
110772
112444
111052
111242
112474

28-0CT-81
..QQ
..QUES
..QUO
..QUO1T
..RANG
..RBRK
..RPAR
..RR
..SEMI
..SLSH

11:23

H_&4
PAGE 133-6

112516
112016
110754
111152
112004
113032
111202
112532
111734
111314

000
001

VIRTUAL MEMORY USED:
34896 WORDS
( 137 PAGES)
DYNAMIC MEMORY:
20346 WORDS
( 78 PAGES)
ELAPSED TIME:
00:36:46
CVVSA.BIN,CVVSA.LST/=-SP=SV(33.MLB/ML,CVVSABO.MAC/EN:AMA:ABS/DS
:GBL

SEQ 0254

..SPC
)
oL TT
..USC
W
.. Vv
.. W
.o XX
.YY
22

110730
112546
112604
113064
112622
112644
112664
112704
112730
112754

..00
.. 11
..22
..33
. bb
..55
..66
W77
..88
..99

111330
111362
111402
111434
111474
111514
111544
111576
111616
111666