Copied wherex, wherey and ctype implementations from CBM

2014-11-23 15:56:38 +01:00
parent 0c62ddf123
commit 1e88032608
3 changed files with 318 additions and 0 deletions
--- a/libsrc/c1p/wherex.s
+++ b/libsrc/c1p/wherex.s
@@ -0,0 +1,14 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+; Copied from cbm/wherex.s
+
+; unsigned char wherex (void);
+;
+        .export         _wherex
+        .import         CURS_X: zp
+
+.proc   _wherex
+        lda     CURS_X
+        ldx     #$00
+        rts
+.endproc