From 89b501f259bb10fdcce381447ff62c68460ca862 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Sun, 3 Jul 2022 20:04:12 -0500
Subject: [PATCH] fread: do not try to read if EOF flag is set.

This behavior is implied by the specification of fread in terms of fgetc.
---
 stdio.asm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/stdio.asm b/stdio.asm
index ec7e365..e2eb6fc 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -1613,6 +1613,10 @@ p        equ   5
          ph4   <stream                  verify that stream exists
          jsl   ~VerifyStream
          jcs   lb6
+         ldy   #FILE_flag               quit if end of file has been reached
+         lda   [stream],Y
+         bit   #_IOEOF
+         jne   lb6
          mul4  element_size,count,rdRequestCount set the # of bytes
          move4 rdRequestCount,temp      save full request count
 pb1      lda   rdRequestCount           quit if the request count is 0