Merge pull request #2124 from jedeoric/telestrat_fix_compute_length_bytes_read_write

Fix computed length for read and write for telestrat target
2023-05-29 16:02:41 +02:00
parent 652949f183 480600093c
commit 31bac03d01
2 changed files with 12 additions and 11 deletions
--- 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
+        lda     PTR_READ_DEST
+        sbc     ptr2
+        pha
+        lda     PTR_READ_DEST+1
        sbc     ptr2+1
        tax
-        lda     PTR_READ_DEST
-        sec
-        sbc     ptr2
-        ; here A and X contains number of bytes read
+        pla
+
        rts
 .endproc
--- 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
+        lda     PTR_READ_DEST
+        sbc     ptr1
+        pha
+        lda     PTR_READ_DEST+1
        sbc     ptr1+1
        tax
-        lda     PTR_READ_DEST
-        sec
-        sbc     ptr1
+        pla
        rts