6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-17 00:29:31 +00:00
Code Issues Projects Releases Wiki Activity

atari5200: get rid of conio_colors table

Browse Source 
use system color variables instead; improve testcode/lib/atari5200/hello.c
test program
This commit is contained in:
Christian Groessler 2019-04-09 14:34:28 +02:00 committed by Oliver Schmidt
parent dfb7c0f24d
commit d7eecb57f8
4 changed files with 64 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libsrc/atari5200/bgcolor.s
View File

@ -2,7 +2,6 @@
; Christian Groessler, 05-Apr-2019
;
.import conio_colors
.export _bgcolor
.include "atari5200.inc"
@ -19,7 +18,7 @@ old_bg_color:
_bgcolor:
and #3
tax
lda conio_colors,x
lda COLOR0,x
ldx old_bg_color
sta COLOR4 ; set new value
sta old_bg_color
@ -30,7 +29,7 @@ _bgcolor:
.segment "ONCE"
init_old_bgcolor:
lda conio_colors+3 ; see also conioscreen.s for initialization
lda COLOR0+3 ; see also conioscreen.s for initialization
sta old_bg_color
rts

9
libsrc/atari5200/conioscreen.s
View File

@ -7,7 +7,6 @@
SCREEN_BUF_SIZE = 20 * 24
SCREEN_BUF = $4000 - SCREEN_BUF_SIZE
.import conio_colors
.export screen_setup
.export screen_width, screen_height
.export conio_color
@ -44,13 +43,13 @@ clrscr: sta (SAVMSC),y
; set default colors
lda conio_colors
lda #GTIA_COLOR_WHITE
sta COLOR0
lda conio_colors+1
lda #GTIA_COLOR_LIGHTRED
sta COLOR1
lda conio_colors+2
lda #GTIA_COLOR_LIGHTGREEN
sta COLOR2
lda conio_colors+3
lda #GTIA_COLOR_BLACK
sta COLOR3
sta COLOR4 ; background

9
libsrc/atari5200/extra/conioscreen_20x12.s
View File

@ -7,7 +7,6 @@
SCREEN_BUF_SIZE = 20 * 12
SCREEN_BUF = $4000 - SCREEN_BUF_SIZE
.import conio_colors
.export screen_setup
.export screen_width, screen_height
.export conio_color
@ -44,13 +43,13 @@ clrscr: sta (SAVMSC),y
; set default colors
lda conio_colors
lda #GTIA_COLOR_WHITE
sta COLOR0
lda conio_colors+1
lda #GTIA_COLOR_LIGHTRED
sta COLOR1
lda conio_colors+2
lda #GTIA_COLOR_LIGHTGREEN
sta COLOR2
lda conio_colors+3
lda #GTIA_COLOR_BLACK
sta COLOR3
sta COLOR4 ; background

100
testcode/lib/atari5200/hello.c
View File

@ -22,6 +22,7 @@
static const char Text [] = "Hello world!";
static unsigned char colors[] = { COLOR_WHITE, COLOR_LIGHTGREEN, COLOR_LIGHTRED, COLOR_BLACK };
@ -35,6 +36,7 @@ int main (void)
{
unsigned char XSize, YSize;
unsigned char PosY;
unsigned char i = 0;
/* Set screen colors */
(void) textcolor (COLOR_WHITE);
@ -47,55 +49,61 @@ int main (void)
/* Ask for the screen size */
screensize (&XSize, &YSize);
/* Draw a border around the screen */
/* Top line */
cputc (CH_ULCORNER);
chline (XSize - 2);
cputc (CH_URCORNER);
/* Vertical line, left side */
cvlinexy (0, 1, YSize - 2);
/* Bottom line */
cputc (CH_LLCORNER);
chline (XSize - 2);
cputc (CH_LRCORNER);
/* Vertical line, right side */
cvlinexy (XSize - 1, 1, YSize - 2);
/* Write the greeting in the mid of the screen */
gotoxy ((XSize - strlen (Text)) / 2, YSize / 2);
cprintf ("%s", Text);
PosY = wherey ();
textcolor (0); /* switch to color #0 */
cputsxy(3, ++PosY, "COLOR 0");
textcolor (1); /* switch to color #1 */
cputsxy(3, ++PosY, "COLOR 1");
textcolor (2); /* switch to color #2 */
cputsxy(3, ++PosY, "COLOR 2");
textcolor (3); /* switch to color #3 */ /* color #3 is the background color. So written text isn't visible. */
cputsxy(3, ++PosY, "COLOR 3");
#if defined(__NES__) || defined(__PCE__) || defined(__GAMATE__) || defined(__ATARI5200__)
/* Wait for the user to press a button */
/* Install joystick driver */
joy_install (joy_static_stddrv);
while (!joy_read (JOY_1)) ;
while (1) {
/* Draw a border around the screen */
/* Top line */
cputc (CH_ULCORNER);
chline (XSize - 2);
cputc (CH_URCORNER);
/* Vertical line, left side */
cvlinexy (0, 1, YSize - 2);
/* Bottom line */
cputc (CH_LLCORNER);
chline (XSize - 2);
cputc (CH_LRCORNER);
/* Vertical line, right side */
cvlinexy (XSize - 1, 1, YSize - 2);
/* Write the greeting in the mid of the screen */
gotoxy ((XSize - strlen (Text)) / 2, YSize / 2);
cprintf ("%s", Text);
PosY = wherey ();
textcolor (colors[i]); /* switch to color #0 */
cputsxy(3, ++PosY, "COLOR 0");
textcolor ((colors[i] + 1) & 3); /* switch to color #1 */
cputsxy(3, ++PosY, "COLOR 1");
textcolor ((colors[i] + 2) & 3); /* switch to color #2 */
cputsxy(3, ++PosY, "COLOR 2");
textcolor ((colors[i] + 3) & 3); /* switch to color #3 */ /* color #3 is the background color. So written text isn't visible. */
cputsxy(3, ++PosY, "COLOR 3");
/* Wait for the user to press and release a button */
while (!joy_read (JOY_1))
;
while (joy_read (JOY_1))
;
i = (i + 1) & 3;
/* Change colors */
textcolor (colors[i]);
bgcolor ((colors[i] + 3) & 3);
/* Clear the screen again */
clrscr ();
}
/* not reached */
joy_uninstall ();
#else
/* Wait for the user to press a key */
cgetc ();
#endif
/* Clear the screen again */
clrscr ();
/* Done */
return EXIT_SUCCESS;
}