From 7198e1e078e6fef1fee8ed00ac57b08c2c08451d Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Mon, 19 Sep 2022 16:10:39 -0400
Subject: [PATCH] Return correct carry flag from OSGBPB.

---
 auxmem.hostfs.s | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s
index 964b052..d6b0819 100644
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@@ -84,8 +84,18 @@ GBPBHND      CMP   #4
 OSGBPBRET    >>>   ENTAUX
              PLY
              PLX
+             PHY
+             LDY   #$05                      ; Check if bytes left = 0
+             LDA   (OSLPTR),Y
+             BNE   :BYTESLEFT
+             INY
+             LDA   (OSLPTR),Y
+             BNE   :BYTESLEFT
+             CLC
+             BRA   :S2
+:BYTESLEFT   SEC                             ; Set carry if bytes left
+:S2          PLY
              LDA   #$00                      ; A=0 means supported command
-             CLC                             ; SHOULD SET CARRY IF EOF
              RTS
 
 * OSBPUT - write one byte to an open file