mirror of https://github.com/cc65/cc65.git
31 lines
560 B
ArmAsm
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
|