home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
DOORDR50.ZIP
/
UNITINTR.ARJ
/
DDFOSSIL.INT
< prev
next >
Wrap
Text File
|
1992-02-02
|
1KB
|
48 lines
unit ddfossil;
{$S-,V-,R-}
interface
uses dos;
const
name='Fossil drivers for TP 4.0';
author='Scott Baker';
type
fossildatatype = record
strsize: word;
majver: byte;
minver: byte;
ident: pointer;
ibufr: word;
ifree: word;
obufr: word;
ofree: word;
swidth: byte;
sheight: byte;
baud: byte;
end;
var
port_num: integer;
fossildata: fossildatatype;
procedure async_send(ch: char);
procedure async_send_string(s: string);
function async_receive(var ch: char): boolean;
function async_carrier_drop: boolean;
function async_carrier_present: boolean;
function async_buffer_check: boolean;
function async_init_fossil: boolean;
procedure async_deinit_fossil;
procedure async_flush_output;
procedure async_purge_output;
procedure async_purge_input;
procedure async_set_dtr(state: boolean);
procedure async_watchdog_on;
procedure async_watchdog_off;
procedure async_warm_reboot;
procedure async_cold_reboot;
procedure async_Set_baud(n: integer);
procedure async_set_flow(SoftTran,Hard,SoftRecv: boolean);
procedure Async_Buffer_Status(var Insize,Infree,OutSize,Outfree: word);