home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
BEEHIVE
/
COMMS
/
PMODEM.ARC
/
IO.INC
< prev
next >
Wrap
Text File
|
1991-08-11
|
2KB
|
119 lines
{********** io.inc **********}
procedure Modem_Out_Line(Line: data2); forward;
Procedure Init_Modem;
{Initialize modem port}
begin
ch_init;
mdinit;
{set default values}
duplex:= true;
hiBaud:= true;
capture:= false;
filter:= true;
delay_set:= true;
command_file:= false;
do_command:= false;
log_on:= true;
autolog:= false;
slowbaud:= false;
host_mode:= false;
phone_buffer:= '';
wait:= 3;
end; {Init_Modem}
Function Carrier : boolean;
{Return TRUE if carrier present}
begin
Carrier:= ch_carck;
end; {Carrier}
Function Modem_In_Ready : boolean;
{Return TRUE if modem character ready}
begin
Modem_In_Ready:= ch_inprdy;
end; {Modem_In_Status}
Function GetMod : char;
{Read the modem input port, assume char ready}
begin
GetMod:= chr(ch_inp);
end; {GetMod}
Function Modem_In : char;
{Read the modem input port}
begin
repeat until modem_in_ready;
Modem_In:= GetMod;
end; {Modem_In}
Procedure Modem_Out(ch: char);
{Output a character to the modem}
begin
ch_out(ord(ch));
end; {Modem_Out}
procedure sinp(var ch: char);
{direct I/O from keyboard}
{may use keypressed for status}
begin
ch:= chr(bdos(6,$FF));
end; {sinp}
procedure resetCRT;
{clear screen and reset CRT}
begin
write(ESC, 'z'); {for Heath H-19}
{ attention; }
delay(100);
end; {resetCRT}
Procedure Set_LoBaud; {300 baud}
begin
if HiBaud then begin
HiBaud:= false;
ch_set(300);
end;
end; {Set_LoBaud}
Procedure Set_HiBaud; {1200 baud}
begin
if not HiBaud then begin
HiBaud:= true;
slowbaud:= false;
ch_set(1200);
end;
end; {Set_HiBaud}
procedure timeout;
{turn off disk drive motor}
begin
port[$34]:= 0;
end; {timeout}
procedure timein;
{turn disk drive motor back on}
begin
port[$34]:= $21;
end; {timein}
procedure attention; {previously referenced}
{let the modem catch its breath}
begin
ch_out(ord(CR));
end; {attention}
Procedure Go_Onhook;
begin
mdhangup;
end; {Go_Onhook}
Procedure go_Dial(line: data);
begin
Modem_Out_Line('ATDP '+ line);
end; {go_Dial}