the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

atari5200: fix conio screen initialization

Browse Source 
Screen memory clearing was wrong, now uses _clrscr function.
This commit is contained in:
Christian Groessler
2025-03-04 23:39:38 +01:00
parent 16224cdd36
commit 02470a2343
2 changed files with 6 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/atari5200/conioscreen.s
View File

@@ -7,6 +7,7 @@
SCREEN_BUF_SIZE = 20 * 24 SCREEN_BUF_SIZE = 20 * 24
SCREEN_BUF = $4000 - SCREEN_BUF_SIZE SCREEN_BUF = $4000 - SCREEN_BUF_SIZE
.import _clrscr
.export screen_setup .export screen_setup
.export screen_width, screen_height .export screen_width, screen_height
.export conio_color .export conio_color
@@ -26,24 +27,10 @@ screen_setup:
lda #>SCREEN_BUF lda #>SCREEN_BUF
sta SAVMSC+1 sta SAVMSC+1
; initialize cursor position
lda #0
sta COLCRS_5200
sta ROWCRS_5200
; clear screen buffer ; clear screen buffer
ldy #<(SCREEN_BUF_SIZE-1) jsr _clrscr
ldx #>(SCREEN_BUF_SIZE-1)
clrscr: sta (SAVMSC),y
dey
cpy #$FF
bne clrscr
dex
cpx #$FF
bne clrscr
; set default colors ; set default colors
lda #GTIA_COLOR_WHITE lda #GTIA_COLOR_WHITE
sta COLOR0 sta COLOR0
lda #GTIA_COLOR_LIGHTRED lda #GTIA_COLOR_LIGHTRED
@@ -55,7 +42,6 @@ clrscr: sta (SAVMSC),y
sta COLOR4 ; background sta COLOR4 ; background
; set display list ; set display list
lda #<dlist lda #<dlist
sta SDLSTL sta SDLSTL
lda #>dlist lda #>dlist

18
libsrc/atari5200/extra/conioscreen-20x12.s
View File

@@ -7,6 +7,7 @@
SCREEN_BUF_SIZE = 20 * 12 SCREEN_BUF_SIZE = 20 * 12
SCREEN_BUF = $4000 - SCREEN_BUF_SIZE SCREEN_BUF = $4000 - SCREEN_BUF_SIZE
.import _clrscr
.export screen_setup .export screen_setup
.export screen_width, screen_height .export screen_width, screen_height
.export conio_color .export conio_color
@@ -26,24 +27,10 @@ screen_setup:
lda #>SCREEN_BUF lda #>SCREEN_BUF
sta SAVMSC+1 sta SAVMSC+1
; initialize cursor position
lda #0
sta COLCRS_5200
sta ROWCRS_5200
; clear screen buffer ; clear screen buffer
ldy #<(SCREEN_BUF_SIZE-1) jsr _clrscr
ldx #>(SCREEN_BUF_SIZE-1)
clrscr: sta (SAVMSC),y
dey
cpy #$FF
bne clrscr
dex
cpx #$FF
bne clrscr
; set default colors ; set default colors
lda #GTIA_COLOR_WHITE lda #GTIA_COLOR_WHITE
sta COLOR0 sta COLOR0
lda #GTIA_COLOR_LIGHTRED lda #GTIA_COLOR_LIGHTRED
@@ -55,7 +42,6 @@ clrscr: sta (SAVMSC),y
sta COLOR4 ; background sta COLOR4 ; background
; set display list ; set display list
lda #<dlist lda #<dlist
sta SDLSTL sta SDLSTL
lda #>dlist lda #>dlist