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/wherey.s
+++ b/libsrc/c1p/wherey.s
@@ -0,0 +1,14 @@
+;
+; Ullrich von Bassewitz, 06.08.1998
+; Copied from cbm/wherey.s
+;
+; unsigned char wherey (void);
+;
+        .export         _wherey
+        .import         CURS_Y: zp
+
+.proc   _wherey
+        lda     CURS_Y
+        ldx     #$00
+        rts
+.endproc