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

Tweak the emulated modem

This commit is contained in:
CrazyEttin 2022-10-02 19:09:32 +03:00
parent d324e795ed
commit 85495426b2
1 changed files with 6 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
emulator.pas
View File

@ -321,19 +321,10 @@ begin
CallServer;
//Recieve
if Calling then begin
if fpRecv (ServerSocket, @B, 1, 0) <> 1 then begin
B := 0;
CloseSocket (ServerSocket);
Calling := false;
end;
if fpRecv (ServerSocket, @B, 1, 0) <> 1 then B := 0;
end
else if Answering then begin
if fpRecv (ClientSocket, @B, 1, 0) <> 1 then begin
B := 0;
CloseSocket (ClientSocket);
CloseSocket (ListenSocket);
Answering := false;
end;
if fpRecv (ClientSocket, @B, 1, 0) <> 1 then B := 0;
end
else B := 0;
end
@ -372,7 +363,8 @@ begin
fpfd_zero (FileDescs);
fpfd_set (ClientSocket, FileDescs);
if fpSelect (ClientSocket + 1, @FileDescs, nil, nil, 0) > 0 then B := B or $20;
end;
end
else B := B or $20;
{$endif}
{$ifndef modem}
B := B or $20;
@ -729,19 +721,8 @@ begin
//Connect
CallServer;
//Send
if Calling then begin
if fpSend (ServerSocket, @B, 1, 0) <> 1 then begin
CloseSocket (ServerSocket);
Calling := false;
end;
end
else if Answering then begin
if fpSend (ClientSocket, @B, 1, 0) <> 1 then begin
CloseSocket (ClientSocket);
CloseSocket (ListenSocket);
Answering := false;
end;
end;
if Calling then fpSend (ServerSocket, @B, 1, 0)
else if Answering then fpSend (ClientSocket, @B, 1, 0);
end
{$endif}
//Regular store