Return correct carry flag from OSGBPB.

2022-09-19 16:10:39 -04:00 · 2022-09-19 16:10:39 -04:00 · 7198e1e078
parent d08dbcdc3f
commit 7198e1e078
1 changed files with 11 additions and 1 deletions
--- 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