Make empty tape reader input 0xff instead of null
This commit is contained in:
parent
2c2c386e05
commit
816d50df34
|
@ -213,7 +213,7 @@ begin
|
||||||
close (TapeIn);
|
close (TapeIn);
|
||||||
Reader.Pos := Reader.Pos + 1;
|
Reader.Pos := Reader.Pos + 1;
|
||||||
except
|
except
|
||||||
R [X] := 0;
|
R [X] := $ff;
|
||||||
end;
|
end;
|
||||||
//Save the reader state
|
//Save the reader state
|
||||||
if FileExists (ExpandFileName ('~/.tapes.thingamajig')) then begin
|
if FileExists (ExpandFileName ('~/.tapes.thingamajig')) then begin
|
||||||
|
|
Loading…
Reference in New Issue