cc65/libsrc/pce/kplot.s


                .export PLOT

                .include        "pce.inc"

PLOT:
                bcs @getpos

                tya
                clc
                adc     _plotlo,x
                sta     SCREEN_PTR

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

_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
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`.export PLOT`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`.include "pce.inc"`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
			`PLOT:`
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`bcs @getpos`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`tya`
			`clc`
			`adc _plotlo,x`
			`sta SCREEN_PTR`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
more cleanup, joystick works again 2015-07-12 12:27:24 +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:`
more cleanup, joystick works again 2015-07-12 12:27:24 +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
			`_plotlo:`
more cleanup, joystick works again 2015-07-12 12:27:24 +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:`
more cleanup, joystick works again 2015-07-12 12:27:24 +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`

			`.import initconio`
			`conio_init = initconio`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00