2015-07-12 12:27:24 +00:00
|
|
|
.include "pce.inc"
|
2014-11-29 13:18:48 +00:00
|
|
|
|
2015-07-12 12:27:24 +00:00
|
|
|
.import vce_init
|
|
|
|
|
.import psg_init
|
|
|
|
|
.import vdc_init
|
2014-11-29 13:18:48 +00:00
|
|
|
|
2015-07-12 12:27:24 +00:00
|
|
|
.constructor initconio, 24
|
|
|
|
|
|
|
|
|
|
.macpack longbranch
|
2014-11-29 13:18:48 +00:00
|
|
|
initconio:
|
2015-07-12 12:27:24 +00:00
|
|
|
;; jsr vdc_init
|
|
|
|
|
jsr vce_init
|
|
|
|
|
jsr psg_init
|
|
|
|
|
jsr conio_init
|
|
|
|
|
jsr set_palette
|
|
|
|
|
|
|
|
|
|
st0 #VDC_RCR
|
|
|
|
|
st1 #<$0088
|
|
|
|
|
st2 #>$0088
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.import colors
|
2014-11-29 13:18:48 +00:00
|
|
|
set_palette:
|
2015-07-12 12:27:24 +00:00
|
|
|
stz VCE_ADDR_LO
|
|
|
|
|
stz VCE_ADDR_HI
|
2014-11-29 13:18:48 +00:00
|
|
|
|
2015-07-12 12:27:24 +00:00
|
|
|
ldx #0
|
2014-11-29 13:18:48 +00:00
|
|
|
@lp:
|
2015-07-15 11:18:12 +00:00
|
|
|
ldy #16
|
|
|
|
|
@lp1:
|
|
|
|
|
lda colors,x
|
2015-07-12 12:27:24 +00:00
|
|
|
sta VCE_DATA_LO
|
2015-07-15 11:18:12 +00:00
|
|
|
lda colors+1,x
|
2015-07-12 12:27:24 +00:00
|
|
|
sta VCE_DATA_HI
|
2015-07-15 11:18:12 +00:00
|
|
|
dey
|
|
|
|
|
bne @lp1
|
2015-07-12 12:27:24 +00:00
|
|
|
|
|
|
|
|
inx
|
|
|
|
|
inx
|
2015-07-15 11:18:12 +00:00
|
|
|
cpx #16*2
|
|
|
|
|
jne @lp
|
2015-07-12 12:27:24 +00:00
|
|
|
|
|
|
|
|
stz VCE_ADDR_LO
|
|
|
|
|
stz VCE_ADDR_HI
|
|
|
|
|
stz VCE_DATA_LO
|
|
|
|
|
stz VCE_DATA_HI
|
|
|
|
|
|
|
|
|
|
rts
|
2014-11-29 13:18:48 +00:00
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
|
|
|
;
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
|
|
|
|
2015-07-16 14:00:32 +00:00
|
|
|
.importzp ptr1, tmp1
|
2014-11-29 13:18:48 +00:00
|
|
|
conio_init:
|
2015-07-12 12:27:24 +00:00
|
|
|
; Load font
|
|
|
|
|
st0 #VDC_MAWR
|
|
|
|
|
st1 #<$2000
|
|
|
|
|
st2 #>$2000
|
|
|
|
|
|
|
|
|
|
; ptr to font data
|
2015-07-14 15:22:47 +00:00
|
|
|
lda #<font
|
|
|
|
|
sta ptr1
|
|
|
|
|
lda #>font
|
|
|
|
|
sta ptr1+1
|
2015-07-12 12:27:24 +00:00
|
|
|
|
2015-07-14 15:22:47 +00:00
|
|
|
st0 #VDC_VWR ; VWR
|
2015-07-16 14:00:32 +00:00
|
|
|
|
|
|
|
|
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:
|
2015-07-12 12:27:24 +00:00
|
|
|
ldy #$80 ; 128 chars
|
|
|
|
|
charloop: ldx #$08 ; 8 bytes/char
|
|
|
|
|
lineloop:
|
2015-07-15 11:18:12 +00:00
|
|
|
lda (ptr1)
|
2015-07-16 14:00:32 +00:00
|
|
|
eor tmp1
|
2015-07-15 11:18:12 +00:00
|
|
|
sta a:VDC_DATA_LO ; bitplane 0
|
|
|
|
|
stz a:VDC_DATA_HI ; bitplane 1
|
2015-07-12 12:27:24 +00:00
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
.rodata
|
|
|
|
|
font:
|
|
|
|
|
.include "vga.inc"
|
