some CONIO fixes

[cc65] / libsrc / atari5200 / conioscreen.s

diff --git a/libsrc/atari5200/conioscreen.s b/libsrc/atari5200/conioscreen.s
index c9d95aa51ad991a8d4c0ae834857aba71fc390cc..ba47866ce906d0f7c33f723b3f9a1166726bd6df 100644 (file)
--- a/libsrc/atari5200/conioscreen.s
+++ b/libsrc/atari5200/conioscreen.s
@@ -1,44 +1,57 @@
 
                 .include "atari5200.inc"
 
-SCREEN_BUF_SIZE        =       20 * 24
-SCREEN_BUF     =       $4000 - SCREEN_BUF_SIZE
+SCREEN_BUF_SIZE =       20 * 24
+SCREEN_BUF      =       $4000 - SCREEN_BUF_SIZE
 
                 .code
                 .export screen_setup_20x24
 
 screen_setup_20x24:
 
-               ; initialize SAVMSC
-               lda     #<SCREEN_BUF
-               sta     SAVMSC
-               lda     #>SCREEN_BUF
-               sta     SAVMSC+1
-
-               ; initialize cursor position
-               lda     #0
-               sta     COLCRS_5200
-               sta     ROWCRS_5200
-
-               ; clear screen buffer
-               ldy     #<(SCREEN_BUF_SIZE-1)
-               ldx     #>(SCREEN_BUF_SIZE-1)
-clrscr:                sta     (SAVMSC),y
-               dey
-               cpy     #$FF
-               bne     clrscr
-               dex
-               cpx     #$FF
-               bne     clrscr
-
-               ; set display list
-
-               lda     #<dlist
-               sta     SDLSTL
-               lda     #>dlist
-               sta     SDLSTH
-
-               rts
+                ; initialize SAVMSC
+                lda     #<SCREEN_BUF
+                sta     SAVMSC
+                lda     #>SCREEN_BUF
+                sta     SAVMSC+1
+
+                ; initialize cursor position
+                lda     #0
+                sta     COLCRS_5200
+                sta     ROWCRS_5200
+
+                ; clear screen buffer
+                ldy     #<(SCREEN_BUF_SIZE-1)
+                ldx     #>(SCREEN_BUF_SIZE-1)
+clrscr:         sta     (SAVMSC),y
+                dey
+                cpy     #$FF
+                bne     clrscr
+                dex
+                cpx     #$FF
+                bne     clrscr
+
+                ; set default colors
+
+                lda     #40
+                sta     COLOR0
+                lda     #202
+                sta     COLOR1
+                lda     #148
+                sta     COLOR2
+                lda     #70
+                sta     COLOR3
+                lda     #0
+                sta     COLOR4
+
+                ; set display list
+
+                lda     #<dlist
+                sta     SDLSTL
+                lda     #>dlist
+                sta     SDLSTH
+
+                rts
 
 
                 .segment "RODATA"