Initial Creativision Import

2013-12-05 11:40:44 +00:00
parent b5ed9a1eff
commit 11be575b6d
23 changed files with 956 additions and 0 deletions
--- a/libsrc/creativision/gotoxy.s
+++ b/libsrc/creativision/gotoxy.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+;
+; void gotoxy (unsigned char x, unsigned char y);
+;
+
+        .export         _gotoxy
+        .import         setcursor
+        .import         popa
+
+        .include        "creativision.inc"
+
+.proc   _gotoxy
+
+        sta     CURSOR_Y          ; Set Y
+        jsr     popa              ; Get X
+        sta     CURSOR_X          ; Set X
+        tay
+        ldx     CURSOR_Y
+        jmp     setcursor       ; Set the cursor position
+
+.endproc