mirror of
https://github.com/cc65/cc65.git
synced 2024-11-02 18:06:48 +00:00
419eb700b5
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.
118 lines
2.3 KiB
ArmAsm
118 lines
2.3 KiB
ArmAsm
.include "pce.inc"
|
|
.include "extzp.inc"
|
|
|
|
.import vce_init
|
|
.import psg_init
|
|
.import colors
|
|
.importzp ptr1, tmp1
|
|
|
|
.constructor initconio
|
|
|
|
.macpack longbranch
|
|
|
|
.segment "ONCE"
|
|
initconio:
|
|
jsr vce_init
|
|
jsr psg_init
|
|
jsr conio_init
|
|
jsr set_palette
|
|
|
|
st0 #VDC_CR
|
|
st1 #<$0088
|
|
st2 #>$0088
|
|
rts
|
|
|
|
set_palette:
|
|
stz VCE_ADDR_LO
|
|
stz VCE_ADDR_HI
|
|
|
|
ldx #0
|
|
@lp:
|
|
ldy #16
|
|
@lp1:
|
|
lda colors,x
|
|
sta VCE_DATA_LO
|
|
lda colors+1,x
|
|
sta VCE_DATA_HI
|
|
dey
|
|
bne @lp1
|
|
|
|
inx
|
|
inx
|
|
cpx #16*2
|
|
jne @lp
|
|
|
|
stz VCE_ADDR_LO
|
|
stz VCE_ADDR_HI
|
|
stz VCE_DATA_LO
|
|
stz VCE_DATA_HI
|
|
|
|
rts
|
|
|
|
conio_init:
|
|
; Load font
|
|
st0 #VDC_MAWR
|
|
st1 #<$2000
|
|
st2 #>$2000
|
|
|
|
; ptr to font data
|
|
lda #<font
|
|
sta ptr1
|
|
lda #>font
|
|
sta ptr1+1
|
|
|
|
st0 #VDC_VWR ; VWR
|
|
|
|
lda #0
|
|
sta tmp1
|
|
jsr copy
|
|
|
|
lda #<font
|
|
sta ptr1
|
|
lda #>font
|
|
sta ptr1+1
|
|
|
|
lda #$ff
|
|
sta tmp1
|
|
jsr copy
|
|
|
|
ldx #0
|
|
stx BGCOLOR
|
|
inx
|
|
stx CHARCOLOR
|
|
|
|
rts
|
|
|
|
copy:
|
|
ldy #$80 ; 128 chars
|
|
charloop:
|
|
ldx #$08 ; 8 bytes/char
|
|
lineloop:
|
|
lda (ptr1)
|
|
eor tmp1
|
|
sta a:VDC_DATA_LO ; bitplane 0
|
|
stz a:VDC_DATA_HI ; bitplane 1
|
|
|
|
clc ; increment font pointer
|
|
lda ptr1
|
|
adc #$01
|
|
sta ptr1
|
|
lda ptr1+1
|
|
adc #$00
|
|
sta ptr1+1
|
|
dex
|
|
bne lineloop ; next bitplane 0 byte
|
|
ldx #$08 ; fill bitplane 2/3 with 0
|
|
fillloop:
|
|
st1 #$00
|
|
st2 #$00
|
|
dex
|
|
bne fillloop ; next byte
|
|
dey
|
|
bne charloop ; next character
|
|
|
|
rts
|
|
|
|
font:
|
|
.include "vga.inc"
|