2019-04-02 19:31:12 +00:00
|
|
|
; setup alternative CONIO screen (20x12, Antic mode 7, BASIC mode 2)
|
|
|
|
|
;
|
|
|
|
|
; 02-Apr-2019, Christian Groessler <chris@groessler.org>
|
|
|
|
|
|
|
|
|
|
.include "atari5200.inc"
|
|
|
|
|
|
|
|
|
|
SCREEN_BUF_SIZE = 20 * 12
|
|
|
|
|
SCREEN_BUF = $4000 - SCREEN_BUF_SIZE
|
|
|
|
|
|
2019-04-12 10:39:37 +00:00
|
|
|
.export screen_setup
|
2019-04-02 19:31:12 +00:00
|
|
|
.export screen_width, screen_height
|
|
|
|
|
.export conio_color
|
|
|
|
|
|
|
|
|
|
screen_width = 20
|
|
|
|
|
screen_height = 12
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.segment "ONCE"
|
|
|
|
|
|
2019-04-10 20:15:27 +00:00
|
|
|
; initialize color registers, display list, and screen memory
|
2019-04-12 10:39:37 +00:00
|
|
|
screen_setup:
|
2019-04-02 19:31:12 +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
|
|
|
|
|
|
2019-04-09 12:34:28 +00:00
|
|
|
lda #GTIA_COLOR_WHITE
|
2019-04-02 19:31:12 +00:00
|
|
|
sta COLOR0
|
2019-04-09 12:34:28 +00:00
|
|
|
lda #GTIA_COLOR_LIGHTRED
|
2019-04-02 19:31:12 +00:00
|
|
|
sta COLOR1
|
2019-04-09 12:34:28 +00:00
|
|
|
lda #GTIA_COLOR_LIGHTGREEN
|
2019-04-02 19:31:12 +00:00
|
|
|
sta COLOR2
|
2019-04-09 12:34:28 +00:00
|
|
|
lda #GTIA_COLOR_BLACK
|
2019-04-02 19:31:12 +00:00
|
|
|
sta COLOR3
|
2019-04-04 23:26:34 +00:00
|
|
|
sta COLOR4 ; background
|
2019-04-02 19:31:12 +00:00
|
|
|
|
|
|
|
|
; set display list
|
|
|
|
|
|
|
|
|
|
lda #<dlist
|
|
|
|
|
sta SDLSTL
|
|
|
|
|
lda #>dlist
|
|
|
|
|
sta SDLSTH
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
2019-04-10 20:15:27 +00:00
|
|
|
.bss
|
2019-04-02 19:31:12 +00:00
|
|
|
|
2019-04-10 20:15:27 +00:00
|
|
|
conio_color: .res 1
|
2019-04-02 19:31:12 +00:00
|
|
|
|
|
|
|
|
.segment "DLIST"
|
|
|
|
|
|
|
|
|
|
; display list for 20x12 text mode
|
|
|
|
|
|
|
|
|
|
dlist: .repeat 3
|
|
|
|
|
.byte DL_BLK8
|
|
|
|
|
.endrepeat
|
|
|
|
|
|
|
|
|
|
.byte DL_CHR20x16x2 | DL_LMS
|
|
|
|
|
.word SCREEN_BUF
|
|
|
|
|
|
|
|
|
|
.repeat 11
|
|
|
|
|
.byte DL_CHR20x16x2
|
|
|
|
|
.endrepeat
|
|
|
|
|
|
|
|
|
|
.byte DL_JVB
|
|
|
|
|
.word dlist
|
|
|
|
|
|
|
|
|
|
; end of display list
|
|
|
|
|
|
|
|
|
|
.assert ((* >> 10) = (dlist >> 10)), error, "Display list crosses 1K boundary"
|
|
|
|
|
|
|
|
|
|
.end
|
