1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/pce/kplot.s

31 lines
560 B
ArmAsm

.export PLOT
.include "pce.inc"
.include "extzp.inc"
PLOT: bcs @getpos
tya
;clc ; already cleared
adc plotlo,x
sta SCREEN_PTR
cla
adc plothi,x
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