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

Adjust the tape reader and punch timings to be more realistic

This commit is contained in:
CrazyEttin 2022-09-19 01:08:12 +03:00
parent 3f7cf0d8ea
commit 8d2de93075
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
emulator.pas
View File

@ -66,7 +66,7 @@ begin
else write (Ch);
end;
//Wait to emulate CPU speed of ~500 KIPS
//Wait to emulate CPU speed of roughly 500 KIPS
{$ifndef fast}
procedure wait;
begin
@ -117,6 +117,7 @@ begin
else if W = $fffd then begin
{$ifndef fast}
wait;
sleep (1);
{$endif}
assign (State, ExpandFileName ('~/.tapes.thingamajig'));
//Check the reader state
@ -192,6 +193,7 @@ begin
else if W = $fffd then begin
{$ifndef fast}
wait;
sleep (19);
{$endif}
assign (State, ExpandFileName ('~/.tapes.thingamajig'));
//Check the punch state