Adjust the tape reader and punch timings to be more realistic
This commit is contained in:
parent
3f7cf0d8ea
commit
8d2de93075
|
@ -66,7 +66,7 @@ begin
|
||||||
else write (Ch);
|
else write (Ch);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
//Wait to emulate CPU speed of ~500 KIPS
|
//Wait to emulate CPU speed of roughly 500 KIPS
|
||||||
{$ifndef fast}
|
{$ifndef fast}
|
||||||
procedure wait;
|
procedure wait;
|
||||||
begin
|
begin
|
||||||
|
@ -117,6 +117,7 @@ begin
|
||||||
else if W = $fffd then begin
|
else if W = $fffd then begin
|
||||||
{$ifndef fast}
|
{$ifndef fast}
|
||||||
wait;
|
wait;
|
||||||
|
sleep (1);
|
||||||
{$endif}
|
{$endif}
|
||||||
assign (State, ExpandFileName ('~/.tapes.thingamajig'));
|
assign (State, ExpandFileName ('~/.tapes.thingamajig'));
|
||||||
//Check the reader state
|
//Check the reader state
|
||||||
|
@ -192,6 +193,7 @@ begin
|
||||||
else if W = $fffd then begin
|
else if W = $fffd then begin
|
||||||
{$ifndef fast}
|
{$ifndef fast}
|
||||||
wait;
|
wait;
|
||||||
|
sleep (19);
|
||||||
{$endif}
|
{$endif}
|
||||||
assign (State, ExpandFileName ('~/.tapes.thingamajig'));
|
assign (State, ExpandFileName ('~/.tapes.thingamajig'));
|
||||||
//Check the punch state
|
//Check the punch state
|
||||||
|
|
Loading…
Reference in New Issue