adding gotox.s gotoy.s wherex.s wherey.s

[cc65] / libsrc / telestrat / wherey.s

diff --git a/libsrc/telestrat/wherey.s b/libsrc/telestrat/wherey.s
new file mode 100644 (file)
index 0000000..e211ed5
--- /dev/null
+++ b/libsrc/telestrat/wherey.s
@@ -0,0 +1,15 @@
+;
+; jede jede@oric.org 2017-02-25
+; 
+    .export    _wherey
+       
+    .importzp  sp
+
+    .include   "telestrat.inc"
+
+
+.proc _wherey
+    ldx    #$00
+    lda    SCRY
+    rts
+.endproc