telestrat target : lseek now returns position as it should

2025-07-23 22:49:15 +02:00
parent 32313a8c56
commit 87ce45ba01
1 changed files with 9 additions and 0 deletions
--- 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