mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +00:00
42 lines
403 B
ArmAsm
42 lines
403 B
ArmAsm
|
|
||
|
|
.export PLOT
|
||
|
|
|
||
|
|
.include "pcengine.inc"
|
||
|
|
|
||
|
|
PLOT:
|
||
|
|
|
||
|
|
bcs @getpos
|
||
|
|
|
||
|
|
tya
|
||
|
|
clc
|
||
|
|
adc _plotlo,x
|
||
|
|
sta SCREEN_PTR
|
||
|
|
|
||
|
|
lda _plothi,x
|
||
|
|
adc #0
|
||
|
|
sta SCREEN_PTR+1
|
||
|
|
|
||
|
|
;clc
|
||
|
|
;adc _colplot,x
|
||
|
|
;sta CRAM_PTR
|
||
|
|
|
||
|
|
;lda #$23
|
||
|
|
;sta CRAM_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
|
||
|
|
|
||
|
|
|