Date: 4 Feb 91 13:53:22 GMT
From: noao!asuvax!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!dkuug!daimi!daimi!jbuhl@arizona.edu (Jesper Buhl)
Subject: HiRes+8Colours for the 130(65)xe ...
To: Info-Atari8@naucse.cse.nau.edu

Okay, upon an infinity number of request, here's the first program,
supplying the Atari 130xe with 8 colours/greyshades in 320x192 pixels
resolution (or 4096 in 80x192).

I made a little interface, allowing the routines to be called from
BASIC, but those of you who can see what's going on, shouldn't need it.
Anyway, IF you want to use BASIC at the same time, do not use the normal
graphics-statements, and do not press the 'Reset' key, since the fast &
efficent Atari BASIC will overwrite both image- and mcl-storage.

To activate the utility, run "RUNME.480", and when ready, use
DUMMY = USR(19984).
Hereafter you can switch back to the normal screen by typing
DUMMY = USR(20018), or plot a point with the (constant!) function
DUMMY = USR(20040, X, Y, C), 0 <= X <= 319, 0 <= Y <= 191, 0 <= C <= 7,
where 'C' is given by

C | color | R | G | B
---------------------
0 | black |   |   |
1 | blue  |   |   | +
2 | green |   | + | 
3 | cyan  |   | + | +
4 | red   | + |   |
5 | violet| + |   | +
6 | yellow| + | + |
7 | white | + | + | +

The colors R, G, B are located at 12290, 12289, 12291, and will
have to be changed on a NTSC TV set (I believe).
If you want more colors ( = less resolution) try POKE 623, 64*N,
0 <= N <= 3, but note that this takes no effect on the plot-
routine.


> RUNME.480:

0 POKE 742, 47
1 POKE 741, 255
2 CLR
3 PRINT "<CLR> Booting VISUAL480 ..."
4 RUN "D:VIDEO480.L"

> VIDEO480.L:

100 ? "<CLR 4DOWN>     VISUAL 480II videogenerator"
110 ? "<3DOWN>For quadruple colored hires-graphics."
120 ? "<2DOWN>Idea and implementation: Jesper Buhl."
130 POS. 2,34:? "Generating videocontroller II ... ";
200 REM v2.0, released 9102041409, jbuhl@daimi.aau.dk
500 REM PLACE DATA IN BLOCK #0
510 CLR : RESTORE 1020
520 FOR A=12288 TO 12297:READ B:POKE A,B:NEXT A
600 REM PLACE PRGS IN BLOCK #1
610 FOR A=19984 TO 20172:READ B:POKE A,B:NEXT A
700 FOR A=20224 TO 20264:READ B:POKE A,B:NEXT A
800 READ B:IF 0<=B THEN POKE A,B:A=A+1:GOTO 800
810 IF B=-1 THEN ? "<LINEDEL 5UP>File presumed ok.":END
820 C=-B:READB
830 FOR D=1TOB:POKE A+D-1,C:NEXT D
840 A=A+D-1:GOTO 800

1000 REM COUNT, COLOURS & MSB'S
1010 REM (12288, BLOCK#0)
1020 DATA 0,182,52,132,80,112,48,96,128,64
1030 REM
2000 REM DISPLAY/CANCEL/PLOT,
2010 REM DLI/DLIST
2020 REM (19984/20018/20040, 20224 BLOCK#1)
2030 DATA 104,141,47,2,141,197,2,141,0,2,169,79,141,1,2,141,49,2,169,41,141,48,
          2,161,192,141,14,212,169,34,141,47,2,96 
2040 REM
2050 DATA 104,169,64,141,14,212,169,32,141,48,2,169,156,141,49,2,169,10,141,
          197,2,96
2060 REM
2070 DATA 104,104,133,204,104,133,203,41,7,133,207,162,3,70,204,102,203,202,
          208,249,24,165,203,105,16,133,203,165,204
2080 DATA 105,48,133,204,104,133,206,133,208,104,72,162,5,10,38,206,202,208,
          250,133,205,104,162,3,10,38,208,202,208,250
2090 DATA 24,101,205,133,205,165,206,101,208,133,206,24,165,203,101,205,133,
          203,165,204,101,206,133,204,169,128,166,207
2100 DATA 240,4,74,202,208,252,133,207,73,255,133,208,104,162,3,160,0,177,203,
          37,208,145,203,104,74,72,144,6,177,203
2110 DATA 5,207,145,203,165,204,24,105,32,133,204,202,208,229,104,96
2120 REM
2130 DATA 141,10,212,72,138,72,174,0,48,189,1,48,141,198,2,189,4,48,141,46,79,
          189,7,48,141,150,79,232,224,3,208,2
2130 DATA 162,0,142,0,48,104,170,104,64
2150 REM
2160 DATA -112,3,79,16,80,-15,101,79,0,96,-15,88,143,65,41,79,-1

- Happy typing (-:

By the way: It seems that americans HAVE to have the prior written permission
before copying anything - this is hereby granted.  

When I get a little sparetime, I'll post the 80-column screen-editor.


					Jesper Buhl/ jbuhl@daimi.aau.dk
					Computer Science Department,
					University of Aarhus, Denmark