From 25c1223f023a67750afc2f0cde7452d94ed397de Mon Sep 17 00:00:00 2001
From: Colin Leroy-Mira <colin@colino.net>
Date: Sat, 25 Oct 2025 11:22:50 +0200
Subject: [PATCH] Apple2: spare 2 bytes on read

---
 libsrc/apple2/read.s | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/libsrc/apple2/read.s b/libsrc/apple2/read.s
index d29d6cdfb..078f12846 100644
--- a/libsrc/apple2/read.s
+++ b/libsrc/apple2/read.s
@@ -67,6 +67,9 @@ device: lda     #$00
 next:   jsr     RDKEY
         jsr     COUT
 
+        ; We'll need Y=0 in both branches below
+        ldy     #$00
+
         ; Clear hi bit and check for '\r'
         and     #$7F
         cmp     #$0D
@@ -74,13 +77,11 @@ next:   jsr     RDKEY
 
         ; Replace with '\n' and set count to zero
         lda     #$0A
-        ldy     #$00
         sty     ptr2
         sty     ptr2+1
 
         ; Put char into buf
-:       ldy     #$00
-        sta     (ptr1),y
+:       sta     (ptr1),y
 
         ; Increment pointer
         inc     ptr1