From 87ce45ba01707dc94a756d2cf0cce24cf2c9dfdb Mon Sep 17 00:00:00 2001 From: jedeoric Date: Wed, 23 Jul 2025 22:49:15 +0200 Subject: [PATCH 1/2] 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 From 5809eaf03746e7158623aef295b9afb337095c1a Mon Sep 17 00:00:00 2001 From: Bob Andrews Date: Sat, 26 Jul 2025 00:01:07 +0200 Subject: [PATCH 2/2] Update libsrc/telestrat/lseek.s Co-authored-by: kugelfuhr <98353208+kugelfuhr@users.noreply.github.com> --- libsrc/telestrat/lseek.s | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/libsrc/telestrat/lseek.s b/libsrc/telestrat/lseek.s index f2f7a32bd..e94cba46c 100644 --- 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