cc65/libsrc/pce/conio.s

        .constructor    initconio, 24

        .import         vce_init
        .import         psg_init
        .import         vdc_init
        .import         colors
        .importzp       ptr1, tmp1

        .include        "pce.inc"
        .include        "extzp.inc"
        .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             ; size of a pallette
@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

; Set background to black.

        stz     VCE_ADDR_LO
        stz     VCE_ADDR_HI
        stz     VCE_DATA_LO
        stz     VCE_DATA_HI

        rts

;----------------------------------------------------------------------------
; The character tiles use only two colors from each pallette.  Color zero
; comes from pallette zero; color one is different in each pallette.  The
; color of a character is set by choosing one of the 16 pallettes.

conio_init:
        ; Load font
        st0     #VDC_MAWR
        st1     #<$2000
        st2     #>$2000

        ; pointer 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              ; white on black
        stx     BGCOLOR
        inx
        stx     CHARCOLOR

        rts

copy:
        ldy     #$80            ; 128 chars
charloop:
        ldx     #$08            ; 8 bytes/char
lineloop:
        lda     (ptr1)
        eor     tmp1
        sta     VDC_DATA_LO     ; bitplane 0
        stz     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 bitplanes 2 and 3 with 0
fillloop:
        st1     #<$0000
        st2     #>$0000
        dex
        bne     fillloop        ; next byte
        dey
        bne     charloop        ; next character

        rts

.rodata
font:   .include        "vga.inc"
Style changes. 2015-10-02 14:50:22 +00:00			`.constructor initconio, 24`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
Consistently place constructors (and their exclusive subroutines) in "INIT". 2015-10-09 19:44:20 +00:00			`.import vce_init`
			`.import psg_init`
Style changes. 2015-10-02 14:50:22 +00:00			`.import vdc_init`
Consistently place constructors (and their exclusive subroutines) in "INIT". 2015-10-09 19:44:20 +00:00			`.import colors`
			`.importzp ptr1, tmp1`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
Style changes. 2015-10-02 14:50:22 +00:00			`.include "pce.inc"`
			`.include "extzp.inc"`
style fixes 2015-08-29 13:58:57 +00:00			`.macpack longbranch`
more cleanup, joystick works again 2015-07-12 12:27:24 +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"`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`initconio:`
style fixes 2015-08-29 13:58:57 +00:00			`jsr vce_init`
			`jsr psg_init`
			`jsr conio_init`
			`jsr set_palette`

fixed VDC register assignments 2015-09-07 10:55:36 +00:00			`st0 #VDC_CR`
style fixes 2015-08-29 13:58:57 +00:00			`st1 #<$0088`
			`st2 #>$0088`
			`rts`

initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`set_palette:`
style fixes 2015-08-29 13:58:57 +00:00			`stz VCE_ADDR_LO`
			`stz VCE_ADDR_HI`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`ldx #0`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`@lp:`
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`ldy #16 ; size of a pallette`
fixed issues found by gregg 2015-07-15 11:18:12 +00:00			`@lp1:`
style fixes 2015-08-29 13:58:57 +00:00			`lda colors,x`
			`sta VCE_DATA_LO`
			`lda colors+1,x`
			`sta VCE_DATA_HI`
			`dey`
			`bne @lp1`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`inx`
			`inx`
Style changes. 2015-10-02 14:50:22 +00:00			`cpx #16 * 2`
style fixes 2015-08-29 13:58:57 +00:00			`jne @lp`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`; Set background to black.`

style fixes 2015-08-29 13:58:57 +00:00			`stz VCE_ADDR_LO`
			`stz VCE_ADDR_HI`
			`stz VCE_DATA_LO`
			`stz VCE_DATA_HI`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`rts`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`;----------------------------------------------------------------------------`
			`; The character tiles use only two colors from each pallette. Color zero`
			`; comes from pallette zero; color one is different in each pallette. The`
			`; color of a character is set by choosing one of the 16 pallettes.`

initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`conio_init:`
style fixes 2015-08-29 13:58:57 +00:00			`; Load font`
			`st0 #VDC_MAWR`
			`st1 #<$2000`
			`st2 #>$2000`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`; pointer to font data`
style fixes 2015-08-29 13:58:57 +00:00			`lda #<font`
			`sta ptr1`
			`lda #>font`
			`sta ptr1+1`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`st0 #VDC_VWR ; VWR`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`lda #0`
			`sta tmp1`
			`jsr copy`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`lda #<font`
			`sta ptr1`
			`lda #>font`
			`sta ptr1+1`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
Style changes. 2015-10-02 14:50:22 +00:00			`lda #$FF`
style fixes 2015-08-29 13:58:57 +00:00			`sta tmp1`
			`jsr copy`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`ldx #0 ; white on black`
style fixes 2015-08-29 13:58:57 +00:00			`stx BGCOLOR`
			`inx`
			`stx CHARCOLOR`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`rts`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
			`copy:`
style fixes 2015-08-29 13:58:57 +00:00			`ldy #$80 ; 128 chars`
			`charloop:`
			`ldx #$08 ; 8 bytes/char`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`lineloop:`
style fixes 2015-08-29 13:58:57 +00:00			`lda (ptr1)`
			`eor tmp1`
Used I/O mirror locations that avoid (redirected) zero-page accesses. 2015-09-29 16:39:58 +00:00			`sta VDC_DATA_LO ; bitplane 0`
			`stz VDC_DATA_HI ; bitplane 1`
style fixes 2015-08-29 13:58:57 +00:00
			`clc ; increment font pointer`
			`lda ptr1`
			`adc #$01`
			`sta ptr1`
			`lda ptr1+1`
			`adc #$00`
			`sta ptr1+1`
			`dex`
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`bne lineloop ; next bitplane-0 byte`
			`ldx #$08 ; fill bitplanes 2 and 3 with 0`
style fixes 2015-08-29 13:58:57 +00:00			`fillloop:`
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`st1 #<$0000`
			`st2 #>$0000`
style fixes 2015-08-29 13:58:57 +00:00			`dex`
			`bne fillloop ; next byte`
			`dey`
			`bne charloop ; next character`

			`rts`

Style changes. 2015-10-02 14:50:22 +00:00			`.rodata`
			`font: .include "vga.inc"`