home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / DOORDR50.ZIP / UNITINTR.ARJ / DDFOSSIL.INT < prev    next >
Encoding:
Text File  |  1992-02-02  |  1.3 KB  |  48 lines
  1. unit ddfossil;
  2. {$S-,V-,R-}
  3.  
  4. interface
  5. uses dos;
  6.  
  7. const
  8.  name='Fossil drivers for TP 4.0';
  9.  author='Scott Baker';
  10. type
  11.  fossildatatype = record
  12.                    strsize: word;
  13.                    majver: byte;
  14.                    minver: byte;
  15.                    ident: pointer;
  16.                    ibufr: word;
  17.                    ifree: word;
  18.                    obufr: word;
  19.                    ofree: word;
  20.                    swidth: byte;
  21.                    sheight: byte;
  22.                    baud: byte;
  23.                   end;
  24. var
  25.  port_num: integer;
  26.  fossildata: fossildatatype;
  27.  
  28. procedure async_send(ch: char);
  29. procedure async_send_string(s: string);
  30. function async_receive(var ch: char): boolean;
  31. function async_carrier_drop: boolean;
  32. function async_carrier_present: boolean;
  33. function async_buffer_check: boolean;
  34. function async_init_fossil: boolean;
  35. procedure async_deinit_fossil;
  36. procedure async_flush_output;
  37. procedure async_purge_output;
  38. procedure async_purge_input;
  39. procedure async_set_dtr(state: boolean);
  40. procedure async_watchdog_on;
  41. procedure async_watchdog_off;
  42. procedure async_warm_reboot;
  43. procedure async_cold_reboot;
  44. procedure async_Set_baud(n: integer);
  45. procedure async_set_flow(SoftTran,Hard,SoftRecv: boolean);
  46. procedure Async_Buffer_Status(var Insize,Infree,OutSize,Outfree: word);
  47.  
  48.