Added a PLOT kernal replacement function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1740 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-12-12 18:44:28 +00:00 · 2002-12-12 18:44:28 +00:00 · 380f5ce51d
parent 4e2110a7a9
commit 380f5ce51d
2 changed files with 26 additions and 0 deletions
--- 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       \
--- a/libsrc/pet/kplot.s
+++ 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
+
+