From 380f5ce51d6bc11a7051722d4203d8bba23731e7 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 12 Dec 2002 18:44:28 +0000
Subject: [PATCH] Added a PLOT kernal replacement function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1740 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/pet/Makefile |  1 +
 libsrc/pet/kplot.s  | 25 +++++++++++++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 libsrc/pet/kplot.s

diff --git a/libsrc/pet/Makefile b/libsrc/pet/Makefile
index 2ef302b20..86eb5b5b4 100644
--- 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
index 000000000..5eb990742
--- /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
+
+