cc65/libsrc/atari5200/conioscreen.s

; setup default CONIO screen (20x24, Antic mode 6, BASIC mode 1)
;
; 28-May-2014, Christian Groessler <chris@groessler.org>

                .include "atari5200.inc"

SCREEN_BUF_SIZE =       20 * 24
SCREEN_BUF      =       $4000 - SCREEN_BUF_SIZE

                .export screen_setup
                .export screen_width, screen_height
                .export conio_color

screen_width    =       20
screen_height   =       24


                .segment "ONCE"

; initialize color registers, display list, and screen memory
screen_setup:

                ; 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     #GTIA_COLOR_WHITE
                sta     COLOR0
                lda     #GTIA_COLOR_LIGHTRED
                sta     COLOR1
                lda     #GTIA_COLOR_LIGHTGREEN
                sta     COLOR2
                lda     #GTIA_COLOR_BLACK
                sta     COLOR3
                sta     COLOR4          ; background

                ; set display list

                lda     #<dlist
                sta     SDLSTL
                lda     #>dlist
                sta     SDLSTH

                rts

                .bss

conio_color:    .res    1

                .segment "DLIST"

; display list for 20x24 text mode

dlist:          .repeat 3
                .byte   DL_BLK8
                .endrepeat

                .byte   DL_CHR20x8x2 | DL_LMS
                .word   SCREEN_BUF

                .repeat 23
                .byte   DL_CHR20x8x2
                .endrepeat

                .byte  DL_JVB
                .word   dlist

; end of display list

.assert ((* >> 10) = (dlist >> 10)), error, "Display list crosses 1K boundary"

                .end
cleanups and add comments 2014-05-28 21:38:22 +00:00			`; setup default CONIO screen (20x24, Antic mode 6, BASIC mode 1)`
			`;`
			`; 28-May-2014, Christian Groessler <chris@groessler.org>`
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
			`.include "atari5200.inc"`

some CONIO fixes 2014-05-16 00:10:19 +00:00			`SCREEN_BUF_SIZE = 20 * 24`
			`SCREEN_BUF = $4000 - SCREEN_BUF_SIZE`
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
atari5200: name conio constructor 'initconio' 2019-04-12 10:39:37 +00:00			`.export screen_setup`
atari5200: implement bgcolor() and textcolor() Includes some other small fixes/cleanups. 2019-04-02 19:11:11 +00:00			`.export screen_width, screen_height`
			`.export conio_color`

			`screen_width = 20`
			`screen_height = 24`

atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
Renamed INITBSS to INIT and INIT to ONCE. The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization. 2016-03-06 20:26:22 +00:00			`.segment "ONCE"`
Consistently place constructors (and their exclusive subroutines) in "INIT". 2015-10-09 19:44:20 +00:00
atari5200: changes from discussions in #870 - rename screen_setup to initconio - use Greg King's version of bgcolor() 2019-04-10 20:15:27 +00:00			`; initialize color registers, display list, and screen memory`
atari5200: name conio constructor 'initconio' 2019-04-12 10:39:37 +00:00			`screen_setup:`
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
some CONIO fixes 2014-05-16 00:10:19 +00:00			`; 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`

atari5200: get rid of conio_colors table use system color variables instead; improve testcode/lib/atari5200/hello.c test program 2019-04-09 12:34:28 +00:00			`lda #GTIA_COLOR_WHITE`
some CONIO fixes 2014-05-16 00:10:19 +00:00			`sta COLOR0`
atari5200: get rid of conio_colors table use system color variables instead; improve testcode/lib/atari5200/hello.c test program 2019-04-09 12:34:28 +00:00			`lda #GTIA_COLOR_LIGHTRED`
some CONIO fixes 2014-05-16 00:10:19 +00:00			`sta COLOR1`
atari5200: get rid of conio_colors table use system color variables instead; improve testcode/lib/atari5200/hello.c test program 2019-04-09 12:34:28 +00:00			`lda #GTIA_COLOR_LIGHTGREEN`
some CONIO fixes 2014-05-16 00:10:19 +00:00			`sta COLOR2`
atari5200: get rid of conio_colors table use system color variables instead; improve testcode/lib/atari5200/hello.c test program 2019-04-09 12:34:28 +00:00			`lda #GTIA_COLOR_BLACK`
some CONIO fixes 2014-05-16 00:10:19 +00:00			`sta COLOR3`
atari5200: conio now uses just four colors altogether See discussion in PR #870. 2019-04-04 23:26:34 +00:00			`sta COLOR4 ; background`
some CONIO fixes 2014-05-16 00:10:19 +00:00
			`; set display list`

			`lda #<dlist`
			`sta SDLSTL`
			`lda #>dlist`
			`sta SDLSTH`

			`rts`
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
atari5200: changes from discussions in #870 - rename screen_setup to initconio - use Greg King's version of bgcolor() 2019-04-10 20:15:27 +00:00			`.bss`
atari5200: implement bgcolor() and textcolor() Includes some other small fixes/cleanups. 2019-04-02 19:11:11 +00:00
atari5200: changes from discussions in #870 - rename screen_setup to initconio - use Greg King's version of bgcolor() 2019-04-10 20:15:27 +00:00			`conio_color: .res 1`
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
atari5200: put default display list into its own memory area This avoids 1K boundary crossing of the display list. Fix for issue #560. 2018-01-19 14:18:43 +00:00			`.segment "DLIST"`
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00
			`; display list for 20x24 text mode`

			`dlist: .repeat 3`
			`.byte DL_BLK8`
			`.endrepeat`
remove dangling spaces 2022-04-17 14:06:22 +00:00
atari5200 update: simple conio "hello world" works now 2014-04-25 01:02:44 +00:00			`.byte DL_CHR20x8x2 \| DL_LMS`
			`.word SCREEN_BUF`

			`.repeat 23`
			`.byte DL_CHR20x8x2`
			`.endrepeat`

			`.byte DL_JVB`
			`.word dlist`

			`; end of display list`

			`.assert ((* >> 10) = (dlist >> 10)), error, "Display list crosses 1K boundary"`

			`.end`