stdio.asm

@@ -6151,9 +6151,13 @@ ps       stz   ~assignments             no assignments yet
          stz   ~scanCount               no characters scanned
          stz   ~scanError               no scan error so far
          stz   ~eofFound                eof was not the first char
+         jsl   ~getchar                 test for eof
+         cmp   #EOF
+         bne   ps0
+         sta   ~eofFound
+ps0      jsl   ~putback
 
 ps1      lda   ~scanError               quit if a scan error has occurred
-         ora   ~eofFound
          bne   rm1
          lda   [format]                 get a character
          and   #$00FF