From 7dac57f60d46a06c8cb26f4e6fb625880ab44a7d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20M=C3=BChlstrasser?= Date: Sat, 29 Nov 2014 15:52:42 +0100 Subject: [PATCH] Added gotox() and gotoy() implementations. --- libsrc/c1p/gotox.s | 17 +++++++++++++++++ libsrc/c1p/gotoy.s | 15 +++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 libsrc/c1p/gotox.s create mode 100644 libsrc/c1p/gotoy.s diff --git a/libsrc/c1p/gotox.s b/libsrc/c1p/gotox.s new file mode 100644 index 000000000..315e1b5ee --- /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 index 000000000..e9e81451a --- /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 + -- 2.39.5