mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 15:05:14 +00:00
33 lines
650 B
ArmAsm
33 lines
650 B
ArmAsm
|
|
||
|
|
.export PLOT
|
||
|
|
|
||
|
|
.include "gamate.inc"
|
||
|
|
.include "extzp.inc"
|
||
|
|
|
||
|
|
PLOT:
|
||
|
|
bcs @getpos
|
||
|
|
|
||
|
|
sty LCD_X
|
||
|
|
;clc ; already cleared
|
||
|
|
lda _plotlo,x
|
||
|
|
sta LCD_Y
|
||
|
|
|
||
|
|
@getpos:
|
||
|
|
ldx CURS_Y
|
||
|
|
ldy CURS_X
|
||
|
|
rts
|
||
|
|
|
||
|
|
.export _plotlo
|
||
|
|
.rodata
|
||
|
|
|
||
|
|
_plotlo:
|
||
|
|
.repeat screenrows,line
|
||
|
|
.byte <($0000+(line*$8))
|
||
|
|
.endrepeat
|
||
|
|
|
||
|
|
;-------------------------------------------------------------------------------
|
||
|
|
; force the init constructor to be imported
|
||
|
|
|
||
|
|
.import initconio
|
||
|
|
conio_init = initconio
|