Merge pull request #2814 from jedeoric/master

telestrat target : lseek now returns position as it should
2025-07-26 00:18:38 +02:00
parent 0a4af6df92 5809eaf037
commit b0e10e1f9a
1 changed files with 7 additions and 0 deletions
--- a/libsrc/telestrat/lseek.s
+++ b/libsrc/telestrat/lseek.s
@@ -35,5 +35,12 @@
        ldy     tmp3
        ldx     tmp1          ; Get whence
        BRK_TELEMON XFSEEK
+        ; A & X contains position (from 0 to 15 bits)
+        ; RES (2 bytes) contains position (from 16 to 31 bits)
+        ; Returns long
+        ldy     RES+1
+        sty     sreg+1
+        ldy     RES
+        sty     sreg
        rts
 .endproc