From 1377ba0d360aaa0cb505c7bd78129c2c7d4c4cb4 Mon Sep 17 00:00:00 2001 From: jede Date: Tue, 23 May 2023 23:08:56 +0200 Subject: [PATCH 1/3] fix compute length for read and write for telestrat target --- libsrc/telestrat/read.s | 15 ++++++++------- libsrc/telestrat/write.s | 16 ++++++++-------- 2 files changed, 16 insertions(+), 15 deletions(-) diff --git a/libsrc/telestrat/read.s b/libsrc/telestrat/read.s index f31909f45..b89f246cc 100644 --- a/libsrc/telestrat/read.s +++ b/libsrc/telestrat/read.s @@ -30,13 +30,14 @@ ldy ptr1+1 BRK_TELEMON XFREAD ; compute nb of bytes read - lda PTR_READ_DEST+1 sec - sbc ptr2+1 - tax - lda PTR_READ_DEST - sec - sbc ptr2 - ; here A and X contains number of bytes read + lda PTR_READ_DEST + sbc ptr2 + sta tmp1 + lda PTR_READ_DEST+1 + sbc ptr2+1 + tax + lda tmp1 + rts .endproc diff --git a/libsrc/telestrat/write.s b/libsrc/telestrat/write.s index 2ce2657ac..06524f749 100644 --- a/libsrc/telestrat/write.s +++ b/libsrc/telestrat/write.s @@ -42,16 +42,16 @@ next: ldy ptr3+1 ldx tmp1 ; send fd in X BRK_TELEMON XFWRITE + ; compute nb of bytes written - - - lda PTR_READ_DEST+1 sec - sbc ptr1+1 - tax - lda PTR_READ_DEST - sec - sbc ptr1 + lda PTR_READ_DEST + sbc ptr1 + sta tmp1 + lda PTR_READ_DEST+1 + sbc ptr1+1 + tax + lda tmp1 rts From 1ca9d7e9e707658e2777784fb607d3cabb48b25c Mon Sep 17 00:00:00 2001 From: jede Date: Tue, 23 May 2023 23:15:23 +0200 Subject: [PATCH 2/3] fix tab --- libsrc/telestrat/read.s | 12 ++++++------ libsrc/telestrat/write.s | 12 ++++++------ 2 files changed, 12 insertions(+), 12 deletions(-) diff --git a/libsrc/telestrat/read.s b/libsrc/telestrat/read.s index b89f246cc..1d2315dce 100644 --- a/libsrc/telestrat/read.s +++ b/libsrc/telestrat/read.s @@ -31,12 +31,12 @@ BRK_TELEMON XFREAD ; compute nb of bytes read sec - lda PTR_READ_DEST - sbc ptr2 - sta tmp1 - lda PTR_READ_DEST+1 - sbc ptr2+1 - tax + lda PTR_READ_DEST + sbc ptr2 + sta tmp1 + lda PTR_READ_DEST+1 + sbc ptr2+1 + tax lda tmp1 rts diff --git a/libsrc/telestrat/write.s b/libsrc/telestrat/write.s index 06524f749..16bc64d69 100644 --- a/libsrc/telestrat/write.s +++ b/libsrc/telestrat/write.s @@ -45,12 +45,12 @@ next: ; compute nb of bytes written sec - lda PTR_READ_DEST - sbc ptr1 - sta tmp1 - lda PTR_READ_DEST+1 - sbc ptr1+1 - tax + lda PTR_READ_DEST + sbc ptr1 + sta tmp1 + lda PTR_READ_DEST+1 + sbc ptr1+1 + tax lda tmp1 rts From 480600093cef2d67d5e39253364c258d6266300e Mon Sep 17 00:00:00 2001 From: jede Date: Thu, 25 May 2023 18:09:03 +0200 Subject: [PATCH 3/3] fix pla/pha instead of tmp1 --- libsrc/telestrat/read.s | 4 ++-- libsrc/telestrat/write.s | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/libsrc/telestrat/read.s b/libsrc/telestrat/read.s index 1d2315dce..736546363 100644 --- a/libsrc/telestrat/read.s +++ b/libsrc/telestrat/read.s @@ -33,11 +33,11 @@ sec lda PTR_READ_DEST sbc ptr2 - sta tmp1 + pha lda PTR_READ_DEST+1 sbc ptr2+1 tax - lda tmp1 + pla rts .endproc diff --git a/libsrc/telestrat/write.s b/libsrc/telestrat/write.s index 16bc64d69..37a896696 100644 --- a/libsrc/telestrat/write.s +++ b/libsrc/telestrat/write.s @@ -47,11 +47,11 @@ next: sec lda PTR_READ_DEST sbc ptr1 - sta tmp1 + pha lda PTR_READ_DEST+1 sbc ptr1+1 tax - lda tmp1 + pla rts