add gotox, gotoy, and gotoxy

2014-03-13 02:38:35 +01:00
parent 84c655a907
commit 30b418c734
4 changed files with 73 additions and 0 deletions
--- a/libsrc/atari5200/gotox.s
+++ b/libsrc/atari5200/gotox.s
@@ -0,0 +1,15 @@
+;
+; Christian Groessler, 13-Mar-2014
+;
+; void gotox (unsigned char x);
+;
+
+        .include        "atari5200.inc"
+        .export         _gotox
+        .import         setcursor
+
+_gotox:
+        sta     COLCRS_5200     ; Set X
+        lda     #0
+        sta     COLCRS_5200+1
+        jmp     setcursor