cc65/libsrc/pce/kplot.s


        .export         PLOT

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

PLOT:
        bcs     @getpos

        tya
        ;clc                    ; already cleared
        adc     _plotlo,x
        sta     SCREEN_PTR

        lda     _plothi,x
        adc     #0
        sta     SCREEN_PTR+1
@getpos:
        ldx     CURS_Y
        ldy     CURS_X
        rts

        .rodata

_plotlo:
        .repeat screenrows,line
        .byte   <($0000+(line*$80))
        .endrepeat

_plothi:
        .repeat screenrows,line
        .byte   >($0000+(line*$80))
        .endrepeat

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

        .import initconio
conio_init      = initconio
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			`.export PLOT`
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			`.include "pce.inc"`
fixed more flaws found by greg :) 2015-09-19 13:37:39 +00:00			`.include "extzp.inc"`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
			`PLOT:`
style fixes 2015-08-29 13:58:57 +00:00			`bcs @getpos`
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			`tya`
use 'plot' instead of 'PLOT' 2015-09-20 10:18:41 +00:00			`;clc ; already cleared`
style fixes 2015-08-29 13:58:57 +00:00			`adc _plotlo,x`
			`sta SCREEN_PTR`
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			`lda _plothi,x`
			`adc #0`
			`sta SCREEN_PTR+1`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`@getpos:`
style fixes 2015-08-29 13:58:57 +00:00			`ldx CURS_Y`
			`ldy CURS_X`
			`rts`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
fix gregs complaints :) 2015-09-04 12:14:17 +00:00			`.rodata`

initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`_plotlo:`
style fixes 2015-08-29 13:58:57 +00:00			`.repeat screenrows,line`
			`.byte <($0000+(line*$80))`
			`.endrepeat`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
			`_plothi:`
style fixes 2015-08-29 13:58:57 +00:00			`.repeat screenrows,line`
			`.byte >($0000+(line*$80))`
			`.endrepeat`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
added imports for conio init to conio functions, so the constructor will get linked and called automatically 2015-07-13 10:10:09 +00:00			`;-------------------------------------------------------------------------------`
			`; force the init constructor to be imported`

style fixes 2015-08-29 13:58:57 +00:00			`.import initconio`
			`conio_init = initconio`