cc65/libsrc/pce/conio.s

        .constructor    initconio, 24

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

        .include        "pce.inc"
        .include        "extzp.inc"

        .segment        "ONCE"
initconio:
        jsr     vdc_init
        jsr     psg_init
        jsr     load_font

set_palette:
        stz     VCE_ADDR_LO
        stz     VCE_ADDR_HI

        clx
@lp:    ldy     #16             ; size of a palette

@lp1:   lda     colors,x
        sta     VCE_DATA_LO
        lda     colors+1,x
        sta     VCE_DATA_HI
        dey
        bne     @lp1

        inx
        inx
        cpx     #16 * 2         ; 16 palettes
        bne     @lp

        sty     BGCOLOR         ; white on black
        iny
        sty     CHARCOLOR

        VREG    VDC_CR, $0088   ; enable background and vertical-blank interrupt
        rts

; Load the conio font into the VDC.
load_font:
        VREG    VDC_MAWR, $2000
        st0     #VDC_VWR

        stz     tmp1            ; #%00000000
        bsr     copy            ; make normal characters

        dec     tmp1            ; #%11111111
;       bsr     copy            ; make reversed characters
;       rts                     ; (fall through)

; Point to the font data.
copy:   lda     #<font
        ldx     #>font
        sta     ptr1
        stx     ptr1+1

        ldy     #$80            ; 128 chars
charloop:
        ldx     #$08            ; 8 bytes/char
lineloop:
        lda     (ptr1)
        eor     tmp1
        sta     VDC_DATA_LO     ; bitplane 0
        st2     #>$0000         ; bitplane 1

        inc     ptr1            ; increment font pointer
        bne     @noC
        inc     ptr1+1
@noC:   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
Style changes. 2015-10-02 14:50:22 +00:00			`.import vdc_init`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`.import psg_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"`
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:`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`jsr vdc_init`
style fixes 2015-08-29 13:58:57 +00:00			`jsr psg_init`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`jsr load_font`
style fixes 2015-08-29 13:58:57 +00:00
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
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`clx`
			`@lp: ldy #16 ; size of a palette`

			`@lp1: lda colors,x`
style fixes 2015-08-29 13:58:57 +00:00			`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`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`cpx #16 * 2 ; 16 palettes`
			`bne @lp`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`sty BGCOLOR ; white on black`
			`iny`
			`sty CHARCOLOR`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`VREG VDC_CR, $0088 ; enable background and vertical-blank interrupt`
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 bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`; Load the conio font into the VDC.`
			`load_font:`
			`VREG VDC_MAWR, $2000`
			`st0 #VDC_VWR`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`stz tmp1 ; #%00000000`
			`bsr copy ; make normal characters`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`dec tmp1 ; #%11111111`
			`; bsr copy ; make reversed characters`
			`; rts ; (fall through)`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`; Point to the font data.`
			`copy: lda #<font`
			`ldx #>font`
style fixes 2015-08-29 13:58:57 +00:00			`sta ptr1`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`stx ptr1+1`
fixed screensize, timertick, revers mode 2015-07-16 14:00:32 +00:00
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`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`st2 #>$0000 ; bitplane 1`
style fixes 2015-08-29 13:58:57 +00:00
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00			`inc ptr1 ; increment font pointer`
			`bne @noC`
			`inc ptr1+1`
			`@noC: dex`
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`bne lineloop ; next bitplane-0 byte`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00
Fixed and improved some pce comments. 2015-11-17 14:14:15 +00:00			`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`
Fixed bugs; and, improved the efficiency of some pce library functions. 2015-11-26 20:06:20 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`dey`
			`bne charloop ; next character`

			`rts`

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