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/gotoxy.s
+++ b/libsrc/atari5200/gotoxy.s
@@ -0,0 +1,19 @@
+;
+; Christian Groessler, 13-Mar-2014
+;
+; void gotoxy (unsigned char x, unsigned char y);
+;
+
+        .include "atari5200.inc"
+
+        .export         _gotoxy
+        .import         popa
+        .import         setcursor
+
+_gotoxy:                        ; Set the cursor position
+        sta     ROWCRS_5200     ; Set Y
+        jsr     popa            ; Get X
+        sta     COLCRS_5200     ; Set X
+        lda     #0
+        sta     COLCRS_5200+1   ;
+        jmp     setcursor