cc65/libsrc/c64/soft80_kplot.s


;
; Groepaz/Hitmen, 12.10.2015
;
; lowlevel kplot function for the soft80 implementation
;

        .export         soft80_kplot
        .import         soft80_internal_cursorxlsb

        .include        "c64.inc"
        .include        "soft80.inc"

soft80_kplot:
        bcs     @getpos

        stx     CURS_Y
        sty     CURS_X

        sei
        lda     $01
        pha
        lda     #$34                            ; enable RAM under I/O
        sta     $01

        ; calc pointer to bitmap
        lda     soft80_bitmapylo,x
        clc
        adc     soft80_bitmapxlo,y
        sta     SCREEN_PTR
        lda     soft80_bitmapyhi,x
        adc     soft80_bitmapxhi,y
        sta     SCREEN_PTR+1

        tya
        and     #1
        sta     soft80_internal_cursorxlsb

        ; calc pointer to vram
        tya
        lsr     a

        clc
        adc     soft80_vramlo,x
        sta     CRAM_PTR
        lda     #0
        adc     soft80_vramhi,x
        sta     CRAM_PTR+1

        pla
        sta     $01
        cli

@getpos:
        ldx     CURS_Y
        ldy     CURS_X
        rts

;-------------------------------------------------------------------------------
; force the init constructor to be imported

        .import soft80_init
conio_init      = soft80_init
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00
added some more comments and -headers 2015-10-12 14:40:12 +02:00			`;`
			`; Groepaz/Hitmen, 12.10.2015`
			`;`
			`; lowlevel kplot function for the soft80 implementation`
			`;`

initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`.export soft80_kplot`
maintain lsb of cursor x position internally, saves some bytes and some cycles too :) 2015-10-12 15:44:41 +02:00			`.import soft80_internal_cursorxlsb`
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00
			`.include "c64.inc"`
			`.include "soft80.inc"`

			`soft80_kplot:`
			`bcs @getpos`

fixed kplot 2015-09-28 17:12:20 +02:00			`stx CURS_Y`
			`sty CURS_X`

move some stuff to init segment, saves roughly 1480 bytes :) 2015-10-12 23:39:47 +02:00			`sei`
			`lda $01`
			`pha`
			`lda #$34 ; enable RAM under I/O`
			`sta $01`

initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`; calc pointer to bitmap`
some renaming, preparing plot table names 2015-10-12 19:57:33 +02:00			`lda soft80_bitmapylo,x`
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`clc`
some renaming, preparing plot table names 2015-10-12 19:57:33 +02:00			`adc soft80_bitmapxlo,y`
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`sta SCREEN_PTR`
some renaming, preparing plot table names 2015-10-12 19:57:33 +02:00			`lda soft80_bitmapyhi,x`
			`adc soft80_bitmapxhi,y`
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`sta SCREEN_PTR+1`

maintain lsb of cursor x position internally, saves some bytes and some cycles too :) 2015-10-12 15:44:41 +02:00			`tya`
			`and #1`
			`sta soft80_internal_cursorxlsb`

initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`; calc pointer to vram`
			`tya`
some renaming, preparing plot table names 2015-10-12 19:57:33 +02:00			`lsr a`

initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`clc`
some renaming, preparing plot table names 2015-10-12 19:57:33 +02:00			`adc soft80_vramlo,x`
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`sta CRAM_PTR`
			`lda #0`
some renaming, preparing plot table names 2015-10-12 19:57:33 +02:00			`adc soft80_vramhi,x`
initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`sta CRAM_PTR+1`

move some stuff to init segment, saves roughly 1480 bytes :) 2015-10-12 23:39:47 +02:00			`pla`
			`sta $01`
			`cli`

initial commit of soft80 implementation 2015-09-27 18:12:25 +02:00			`@getpos:`
			`ldx CURS_Y`
			`ldy CURS_X`
			`rts`

some cleanup/rework 2015-10-09 13:34:23 +02:00			`;-------------------------------------------------------------------------------`
			`; force the init constructor to be imported`

			`.import soft80_init`
			`conio_init = soft80_init`