Added gotox() and gotoy() implementations.

diff --git a/libsrc/c1p/gotox.s b/libsrc/c1p/gotox.s
new file mode 100644 (file)
index 0000000..315e1b5
--- /dev/null
+++ b/libsrc/c1p/gotox.s
@@ -0,0 +1,17 @@
+;
+; copied from CBM implementation
+; originally by:
+; Ullrich von Bassewitz, 07.08.1998
+;
+; void gotox (unsigned char x);
+;
+
+        .export         _gotox
+        .import         plot           
+        .importzp       CURS_X
+
+_gotox: sta     CURS_X          ; Set new position
+        jmp     plot            ; And activate it
+
+
+

diff --git a/libsrc/c1p/gotoy.s b/libsrc/c1p/gotoy.s
new file mode 100644 (file)
index 0000000..e9e8145
--- /dev/null
+++ b/libsrc/c1p/gotoy.s
@@ -0,0 +1,15 @@
+;
+; copied from CBM implementation
+; originally by:
+; Ullrich von Bassewitz, 0.08.1998
+;
+; void gotoy (unsigned char y);
+;
+
+        .export         _gotoy
+        .import         plot
+        .importzp       CURS_Y
+
+_gotoy: sta     CURS_Y          ; Set the new position
+        jmp     plot            ; And activate it
+