From 87ce45ba01707dc94a756d2cf0cce24cf2c9dfdb Mon Sep 17 00:00:00 2001
From: jedeoric <plifplouf78@hotmail.com>
Date: Wed, 23 Jul 2025 22:49:15 +0200
Subject: [PATCH] telestrat target : lseek now returns position as it should

---
 libsrc/telestrat/lseek.s | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/libsrc/telestrat/lseek.s b/libsrc/telestrat/lseek.s
index 11d1fad33..f2f7a32bd 100644
--- a/libsrc/telestrat/lseek.s
+++ b/libsrc/telestrat/lseek.s
@@ -35,5 +35,14 @@
         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
+        pha
+        lda     RES+1
+        sta     sreg+1
+        lda     RES
+        sta     sreg
+        pla
         rts
 .endproc