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

More P500 support

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@920 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2001-09-14 14:37:08 +00:00
parent c4a49faf48
commit e1a9115fd4
8 changed files with 220 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
libsrc/cbm510/kplot.s
View File

@@ -9,58 +9,33 @@
.include "zeropage.inc"
.include "io.inc"
.macpack generic
; ------------------------------------------------------------------------
;
.proc k_plot
bcc set
ldx CURS_Y
ldy CURS_X
rts
bcs get
set: stx CURS_Y
stx CURS_Y
sty CURS_X
lda LineLSBTab,x
sta CharPtr
lda LineMSBTab,x
sta CharPtr+1
lda LineLSBTab,x
sta SCREEN_PTR
sta CRAM_PTR
lda LineMSBTab,x
sta SCREEN_PTR+1
sub #>VIDEO_RAM
add #>COLOR_RAM
sta CRAM_PTR+1
.if 0
lda IndReg
pha
lda #$0F
sta IndReg
get: ldx CURS_Y
ldy CURS_X
ldy #$00
clc
sei
sta (crtc),y
lda CharPtr
adc CURS_X
iny
sta (crtc),y
dey
lda #$0E
sta (crtc),y
iny
lda (crtc),y
and #$F8
sta sedt1
lda CharPtr+1
adc #$00
and #$07
ora sedt1
sta (crtc),y
cli
pla
sta IndReg
.endif
rts
.endproc
; -------------------------------------------------------------------------