fix compute length for read and write for telestrat target

2023-05-23 23:08:56 +02:00
parent 652949f183
commit 1377ba0d36
2 changed files with 16 additions and 15 deletions
--- 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