Update libsrc/telestrat/lseek.s

Co-authored-by: kugelfuhr <98353208+kugelfuhr@users.noreply.github.com>
2025-07-26 00:01:07 +02:00
parent 87ce45ba01
commit 5809eaf037
1 changed files with 4 additions and 6 deletions
--- a/libsrc/telestrat/lseek.s
+++ b/libsrc/telestrat/lseek.s
@@ -38,11 +38,9 @@
        ; A & X contains position (from 0 to 15 bits)
        ; RES (2 bytes) contains position (from 16 to 31 bits)
        ; Returns long
-        pha
-        lda     RES+1
-        sta     sreg+1
-        lda     RES
-        sta     sreg
-        pla
+        ldy     RES+1
+        sty     sreg+1
+        ldy     RES
+        sty     sreg
        rts
 .endproc