1
0
mirror of https://github.com/cc65/cc65.git synced 2025-01-12 02:30:44 +00:00

Fixed the PLOT function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1728 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-12-09 10:45:16 +00:00
parent 01488b8b31
commit 9595d16ac0
4 changed files with 23 additions and 6 deletions

View File

@ -21,6 +21,7 @@ OBJS = _scrsize.o \
cputc.o \ cputc.o \
kbhit.o \ kbhit.o \
kernal.o \ kernal.o \
kplot.o \
randomize.o \ randomize.o \
readjoy.o readjoy.o

View File

@ -41,7 +41,6 @@
.export CLALL .export CLALL
.export UDTIM .export UDTIM
.export SCREEN .export SCREEN
.export PLOT
.export IOBASE .export IOBASE
@ -85,6 +84,5 @@ GETIN = $FFE4
CLALL = $FFE7 CLALL = $FFE7
UDTIM = $FFEA UDTIM = $FFEA
SCREEN = $FFED SCREEN = $FFED
PLOT = $FFF0
IOBASE = $FFF3 IOBASE = $FFF3

21
libsrc/vic20/kplot.s Normal file
View File

@ -0,0 +1,21 @@
;
; Ullrich von Bassewitz, 2002-12-09
;
; PLOT replacement function for the VIC20. The kernal function does not set
; the pointer to the color RAM correctly.
;
.export PLOT
.proc PLOT
bcs @L1
jsr $FFF0 ; Set cursor position
jmp $EAB2 ; Set pointer to color RAM
@L1: jmp $FFF0 ; Get cursor position
.endproc

View File

@ -33,9 +33,6 @@ PALFLAG = $2A6 ; $01 = PAL, $00 = NTSC
; Direct entries ; Direct entries
CLRSCR = $E55F CLRSCR = $E55F
KBDREAD = $E5CF KBDREAD = $E5CF
NAMED_OPEN = $F495
NAMED_CLOSE = $F6DA
PLOTCHAR = $EAAA ; Char in A, color in X
; --------------------------------------------------------------------------- ; ---------------------------------------------------------------------------
; Vector and other locations ; Vector and other locations
@ -47,7 +44,7 @@ NMIVec = $0318
; --------------------------------------------------------------------------- ; ---------------------------------------------------------------------------
; I/O: 6560 VIC ; I/O: 6560 VIC
VIC = $9000 VIC = $9000
VIC_LINES = $9003 ; Screen lines, bit 7 is bit 0 from VIC_HLINE VIC_LINES = $9003 ; Screen lines, bit 7 is bit 0 from VIC_HLINE
VIC_HLINE = $9004 ; Rasterline, bits 1-8 VIC_HLINE = $9004 ; Rasterline, bits 1-8
VIC_COLOR = $900F ; Border and background color VIC_COLOR = $900F ; Border and background color