crazyettin
/
Thingamajig
1
0
Fork 0
Code Issues Pull Requests Projects Releases 2 Wiki Activity

Make empty tape reader input 0xff instead of null

This commit is contained in:
CrazyEttin 2022-08-19 22:29:19 +03:00
parent 2c2c386e05
commit 816d50df34
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
emulator.pas
View File

@ -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