home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBFC100.ZIP / QBFCOMMS.BI < prev    next >
Encoding:
Text File  |  1990-10-20  |  3.1 KB  |  107 lines
  1. '*  QBFCOMMS.BI
  2. '*--------------------------------------------------------------------------
  3. '*
  4. '*  Included header file for the QBFCOMMS.BAS routines.
  5. '*
  6.  
  7. ' $INCLUDE: 'QB.BI'
  8.  
  9. '*
  10. '* Include declarations for the QuickBASIC HLLAPIs
  11. '*
  12. DECLARE SUB QBX00 (InRegs AS RegType, OutRegs AS RegType)
  13. DECLARE SUB QBX00X (InRegs AS RegTypeX, OutRegs AS RegTypeX)
  14.  
  15. '*
  16. '* Include declarations for the QBFCOMMS functions
  17. '*
  18. DECLARE FUNCTION FossilAnsiPrint% (A$)
  19. DECLARE FUNCTION FossilBIOSPrint% (A$)
  20. DECLARE FUNCTION FossilBreak% (Port%, Ctrl%)
  21. DECLARE FUNCTION FossilCtrlKCtrlC% (Port%, Ctrl%)
  22. DECLARE FUNCTION FossilDTR% (Port%, Ctrl%)
  23. DECLARE FUNCTION FossilDeactivate% (Port%)
  24. DECLARE FUNCTION FossilFlowControl% (Port%, Ctrl%)
  25. DECLARE FUNCTION FossilFlush% (Port%)
  26. DECLARE FUNCTION FossilGetb% (Port%, Buffer$, Length%)
  27. DECLARE FUNCTION FossilGetch$ (Port%)
  28. DECLARE FUNCTION FossilInfo% (Port%, Rev%, Ver%, ID$, ISZ%, IFR%, OSZ%, OFR%, SW%, SH%, Baud&)
  29. DECLARE FUNCTION FossilInit% (Port%)
  30. DECLARE FUNCTION FossilInkey% ()
  31. DECLARE FUNCTION FossilInkeyWait% ()
  32. DECLARE FUNCTION FossilLocate% (Row%, Column%)
  33. DECLARE FUNCTION FossilPeek$ (Port%)
  34. DECLARE FUNCTION FossilPurgeInputBuf% (Port%)
  35. DECLARE FUNCTION FossilPurgeOutputBuf% (Port%)
  36. DECLARE FUNCTION FossilPutb% (Port%, Buffer$)
  37. DECLARE FUNCTION FossilPutch% (Port%, Char$)
  38. DECLARE FUNCTION FossilPutchWait% (Port%, Char$)
  39. DECLARE FUNCTION FossilReadCursor% (Row%, Column%)
  40. DECLARE FUNCTION FossilReboot% (Ctrl%)
  41. DECLARE FUNCTION FossilSetBaud% (Port%, BaudRate&)
  42. DECLARE FUNCTION FossilStatus% (Port%)
  43. DECLARE FUNCTION FossilWatchdog% (Port%, Ctrl%)
  44.  
  45. '*
  46. '* Define a structure for FossilInfo()
  47. '*
  48. TYPE FossilInfoType
  49.    StructSize AS INTEGER
  50.    MajorVersion AS STRING * 1
  51.    MinorVersion AS STRING * 1
  52.    IdentOffset AS INTEGER
  53.    IdentSegment AS INTEGER
  54.    InBufrSize AS INTEGER
  55.    InBufrFree AS INTEGER
  56.    OutBufrSize AS INTEGER
  57.    OutBufrFree AS INTEGER
  58.    ScreenWidth AS STRING * 1
  59.    ScreenHeight AS STRING * 1
  60.    Baud AS STRING * 1
  61. END TYPE
  62.  
  63. '*
  64. '* Define some port values
  65. '*
  66.       CONST COM0 = &HFF                   ' Local mode
  67.       CONST COM1 = 0
  68.       CONST COM2 = 1
  69.       CONST COM3 = 2
  70.       CONST COM4 = 3
  71.  
  72. '*
  73. '* Define the values to be used with FossilFlowControl()
  74. '*
  75. '* Add these together to enable multiple types, i.e.
  76. '*
  77. '*   X = FossilFlowControl(COM1, XOnXOffXmit + XOnXoffRecv)
  78. '*
  79.       CONST NoFlow = 0
  80.       CONST XOnOffXmit = 1
  81.       CONST CTSRTS = 2
  82.       CONST XOnOffRecv = 8
  83.  
  84. '*
  85. '* Define values to be passed to FossilCtrlKCtrlC()
  86. '*
  87.       CONST DisableCheck = 0
  88.       CONST EnableCheck = 1
  89.       CONST DisableXmitter = 0
  90.       CONST EnableXmitter = 2
  91.  
  92. '*
  93. '* Define some port status bits
  94. '*
  95.       CONST DCD = 128                    ' Carrier detect
  96.       CONST RDA = 256                    ' Receive data available
  97.       CONST OVRN = 512                   ' Input buffer overrun
  98.       CONST THRE = 8192                  ' Output buffer not full
  99.       CONST TSRE = 16384                 ' Output buffer empty
  100.  
  101. '*
  102. '* Define some miscellaneous stuff
  103. '*
  104.       CONST TRUE = -1
  105.       CONST FALSE = 0
  106.  
  107.