Make empty tape reader input 0xff instead of null

2022-08-19 22:29:19 +03:00 · 2022-08-19 22:29:19 +03:00 · 816d50df34
parent 2c2c386e05
commit 816d50df34
1 changed files with 1 additions and 1 deletions
--- a/emulator.pas
+++ b/emulator.pas
@ -213,7 +213,7 @@ begin
                    close (TapeIn);
                    Reader.Pos := Reader.Pos + 1;
                except
-                    R [X] := 0;
+                    R [X] := $ff;
                end;
                //Save the reader state
                if FileExists (ExpandFileName ('~/.tapes.thingamajig')) then begin