X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fatari5200%2Fconioscreen.s;h=1311e874c9f072661425dfb07ff936a1cd233d6e;hb=78daf84f1269ca2ae0c935946b4e336641f889b2;hp=412dd582d6ddc8c8eafe890107535fbb10a46451;hpb=8c5aebef815714b4ff5472ccc75479bff7919b80;p=cc65

diff --git a/libsrc/atari5200/conioscreen.s b/libsrc/atari5200/conioscreen.s
index 412dd582d..1311e874c 100644
--- a/libsrc/atari5200/conioscreen.s
+++ b/libsrc/atari5200/conioscreen.s
@@ -7,10 +7,18 @@
 SCREEN_BUF_SIZE =       20 * 24
 SCREEN_BUF      =       $4000 - SCREEN_BUF_SIZE
 
-                .code
-                .export screen_setup_20x24
+                .export screen_setup
+                .export screen_width, screen_height
+                .export conio_color
 
-screen_setup_20x24:
+screen_width    =       20
+screen_height   =       24
+
+
+                .segment "ONCE"
+
+; initialize color registers, display list, and screen memory
+screen_setup:
 
                 ; initialize SAVMSC
                 lda     #<SCREEN_BUF
@@ -36,16 +44,15 @@ clrscr:         sta     (SAVMSC),y
 
                 ; set default colors
 
-                lda     #40
+                lda     #GTIA_COLOR_WHITE
                 sta     COLOR0
-                lda     #202
+                lda     #GTIA_COLOR_LIGHTRED
                 sta     COLOR1
-                lda     #148
+                lda     #GTIA_COLOR_LIGHTGREEN
                 sta     COLOR2
-                lda     #70
+                lda     #GTIA_COLOR_BLACK
                 sta     COLOR3
-                lda     #0
-                sta     COLOR4
+                sta     COLOR4          ; background
 
                 ; set display list
 
@@ -56,8 +63,11 @@ clrscr:         sta     (SAVMSC),y
 
                 rts
 
+                .bss
+
+conio_color:    .res    1
 
-                .segment "RODATA"
+                .segment "DLIST"
 
 ; display list for 20x24 text mode
 
@@ -79,5 +89,4 @@ dlist:          .repeat 3
 
 .assert ((* >> 10) = (dlist >> 10)), error, "Display list crosses 1K boundary"
 
-
                 .end