simple conio support for GEOS

git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81
2001-10-27 17:13:22 +00:00
parent 0fe03a4643
commit 8ce6c9bcac
17 changed files with 504 additions and 1 deletions
--- a/libsrc/geos/conio/gotoxy.s
+++ b/libsrc/geos/conio/gotoxy.s
@@ -0,0 +1,35 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 27.10.2001
+
+; void gotox (unsigned char x);
+; void gotoy (unsigned char y);
+; void gotoxy (unsigned char x, unsigned char y);
+
+	    .export _gotox, _gotoy, _gotoxy
+	    .import popa
+
+	    .include "../inc/jumptab.inc"
+	    .include "cursor.inc"
+
+_gotox:	    sta cursor_x
+	    jmp fixcursor
+
+_gotoy:	    sta cursor_y
+	    jmp fixcursor
+
+_gotoxy:    sta cursor_y
+	    jsr popa
+	    sta cursor_x
+
+; convert 8x8 x/y coordinates to GEOS hires
+fixcursor:
+	    ldx #cursor_x
+	    ldy #3
+	    jsr DShiftLeft
+	    asl cursor_y
+	    asl cursor_y
+	    asl cursor_y
+	    rts