Added a PLOT kernal replacement function

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

libsrc/pet/Makefile

@@ -27,6 +27,7 @@ OBJS =	_scrsize.o	\
         kclose.o        \
         kernal.o        \
         kopen.o         \
+        kplot.o         \
         krdtim.o        \
         kreadst.o       \
         ksetlfs.o       \

libsrc/pet/kplot.s

@@ -0,0 +1,25 @@
+;
+; Ullrich von Bassewitz, 2002-12-12
+;
+; PLOT replacement function for the PETs
+;
+
+        .export         PLOT
+        .import         plot            ; from cputc.s
+
+        .include        "pet.inc"
+
+
+.proc   PLOT
+
+        bcs     @L1                     ; Fetch values if carry set
+        sty     CURS_X
+        stx     CURS_Y
+        jsr     plot
+@L1:    ldy     CURS_X
+        ldx     CURS_Y
+        rts
+
+.endproc
+
+