Fixed the PLOT function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1728 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/vic20/Makefile

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

libsrc/vic20/kernal.s

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

libsrc/vic20/kplot.s

@@ -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
+
+

libsrc/vic20/vic20.inc

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