the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more cleanup, joystick works again

Browse Source
This commit is contained in:
mrdudz
2015-07-12 14:27:24 +02:00
parent 21999b081f
commit 891cb97b2f
27 changed files with 822 additions and 919 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
libsrc/pce/kplot.s
View File

@@ -1,41 +1,32 @@
.export PLOT
.export PLOT
.include "pcengine.inc"
.include "pce.inc"
PLOT:
bcs @getpos
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
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
ldx CURS_Y
ldy CURS_X
rts
_plotlo:
.repeat screenrows,line
.byte <($0000+(line*$80))
.endrepeat
.repeat screenrows,line
.byte <($0000+(line*$80))
.endrepeat
_plothi:
.repeat screenrows,line
.byte >($0000+(line*$80))
.endrepeat
.repeat screenrows,line
.byte >($0000+(line*$80))
.endrepeat