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/where.s
+++ b/libsrc/geos/conio/where.s
@@ -0,0 +1,30 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 27.10.2001
+
+; unsigned char wherex (void);
+; unsigned char wherey (void);
+
+	    .export _wherex, _wherey
+	    .importzp tmp1, tmp2
+
+	    .include "../inc/jumptab.inc"
+	    .include "cursor.inc"
+
+_wherex:    lda cursor_x
+	    sta tmp1
+	    lda cursor_x+1
+	    sta tmp2
+	    lda #tmp1
+	    ldy #3
+	    jsr DShiftRight
+	    lda tmp1
+	    rts
+
+_wherey:    lda cursor_y
+	    lsr
+	    lsr
+	    lsr
+	    rts