Added a PLOT kernal replacement function

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

diff --git a/libsrc/pet/Makefile b/libsrc/pet/Makefile
index 2ef302b20ea79ff1eb6a967ca3b584a795655855..86eb5b5b4e845c57f0adba953f93ebf2ec78de80 100644 (file)
--- a/libsrc/pet/Makefile
+++ b/libsrc/pet/Makefile
@@ -27,6 +27,7 @@ OBJS =        _scrsize.o      \
         kclose.o        \
         kernal.o        \
         kopen.o         \
+        kplot.o         \
         krdtim.o        \
         kreadst.o       \
         ksetlfs.o       \

diff --git a/libsrc/pet/kplot.s b/libsrc/pet/kplot.s
new file mode 100644 (file)
index 0000000..5eb9907
--- /dev/null
+++ b/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
+
+