home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / COMGLOBS.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  6.4 KB  |  212 lines
  1. /***************************************************************
  2.      Turbo Prolog Toolbox
  3.      (C) Copyright 1987 Borland International.
  4. ***************************************************************/
  5.  
  6. Global predicates
  7. Determ openRS232(Integer, Integer, Integer,
  8.           Integer, Integer, Integer, Integer, Integer)
  9.           - (i,i,i,i,i,i,i,i) language c
  10. /*
  11. Determ openRS232(PortNo, InputBufSize, OutputBufSize,
  12.           BaudRate, Parity, WordLength, StopBits, Protocol) language c
  13.  
  14.   PortNo        = 1    Means COM1 communication port located
  15.                   at I/O address $03F8
  16.               = 2    Means COM2 communication port located
  17.                   at I/O address $02F8
  18.   Range for InputBufSize  1-31767  Number of bytes reserved for the
  19.                      input buffer
  20.   Range for OutputBufSize 1-31767  Number of bytes reserved for the
  21.                      output buffer
  22.   BaudRate        = 0    Means  110 Baud
  23.               = 1    Means  150 Baud
  24.               = 2    Means  300 Baud
  25.               = 3    Means  600 Baud
  26.               = 4    Means 1200 Baud
  27.               = 5    Means 2400 Baud
  28.               = 6    Means 4800 Baud
  29.               = 7    Means 9600 Baud
  30.   Parity        = 0    Means no parity
  31.               = 1    Means odd parity
  32.               = 2    Means even parity
  33.   WordLength        = 0    Means 5 data bits
  34.               = 1    Means 6 data bits
  35.               = 2    Means 7 data bits
  36.               = 3    Means 8 data bits
  37.   StopBits        = 0    Means 1 Stop bit
  38.               = 1    Means 2 Stop bits
  39.   Protocol        = 0    Means pure communication without Xon/Xoff
  40.                   and RTS/CTS
  41.               = 1    Means communication with Xon/Xoff but
  42.                   without RTS/CTS /* Preferred mode */
  43.               = 2    Means communication with RTS/CTS but
  44.                   without Xon/Xoff. RTS will always be
  45.                   in the high state.
  46.               = 3    Means communication with both Xon/Xoff
  47.                   and RTS/CTS. RTS will always be in the
  48.                   high state.
  49.  
  50.   The protocol must always follow the DTR/DSR signals which means a remote
  51.   device has to keep Pin 6 (DSR) high when it is ready to receive/transmit
  52.   data.
  53.   */
  54.  
  55. Determ closeRS232(Integer) - (i) language c
  56.  
  57. /*
  58.   closeRS232(PortNo)
  59.     PortNo        = 1    Means COM1 communication port located
  60.                   at I/O address $03F8
  61.               = 2    Means COM2 communication port located
  62.                   at I/O address $02F8
  63.     It is very important to close an open communication port
  64.     before a program terminates because this predicate resets
  65.     interrupt vectors and frees allocated buffers
  66.   */
  67.  
  68.  
  69.  
  70.  
  71. Determ Txch_RS232(Integer,Char) - (i,i) language c
  72.   /*
  73.     Txch_RS232(PortNo,Char)
  74.     PortNo        = 1    Means COM1 communication port located
  75.                   at I/O address $03F8
  76.               = 2    Means COM2 communication port located
  77.                   at I/O address $02F8
  78.     Char        Character to be transmitted via the COM port.
  79.   */
  80.  
  81. Determ queuesize_RS232(Integer,Integer,Integer) - (i,o,o) language c
  82.   /*
  83.     queuesize_RS232(PortNo,SizeOfInputQueue,SizeOfOutputQueue)
  84.     PortNo        = 1    Means COM1 communication port located
  85.                   at I/O address $03F8
  86.               = 2    Means COM2 communication port located
  87.                   at I/O address $02F8
  88.     SizeOfInputQueue        Number of characters in the input queue.
  89.     SizeOfOutputQueue        Number of characters in the output queue.
  90.   */
  91.  
  92. Determ DelOutbuf_RS232(Integer) - (i) language c
  93.  
  94.   /*
  95.     DelOutbuf_RS232(PortNo)
  96.     PortNo        = 1    Means COM1 communication port located
  97.                   at I/O address $03F8
  98.               = 2    Means COM2 communication port located
  99.                   at I/O address $02F8
  100.     This predicate flushes the output buffer
  101.   */
  102.  
  103. Determ Rxch_RS232(Integer,Char) - (i,o) language c
  104.  
  105.   /*
  106.     Rxch_RS232(PortNo,Char)
  107.     PortNo        = 1    Means COM1 communication port located
  108.                   at I/O address $03F8
  109.               = 2    Means COM2 communication port located
  110.                   at I/O address $02F8
  111.     Char        Char transferred from the input queue.
  112.   */
  113.  
  114. Determ DelInbuf_RS232(Integer) - (i) language c
  115.   /*
  116.     DelInbuf_RS232(PortNo)
  117.     PortNo        = 1    Means COM1 communication port located
  118.                   at I/O address $03F8
  119.               = 2    Means COM2 communication port located
  120.                   at I/O address $02F8
  121.     This predicate flushes the input buffer
  122.  */
  123.  
  124.  
  125. Determ status_RS232(Integer,Integer) - (i,o) language c
  126.   /*
  127.     status_RS232(PortNo,Status)
  128.     PortNo        = 1    Means COM1 communication port located
  129.                   at I/O address $03F8
  130.               = 2    Means COM2 communication port located
  131.                   at I/O address $02F8
  132.     Status        = 1    Input characters have been lost because
  133.                     the input queue was full when characters
  134.                     were received.
  135.                 = 2    Parity error detected
  136.                 = 4    Overrun detected
  137.                 = 8    Framing error detected
  138.                 = 16    Break signal detected
  139.                 = 32    An Xoff has been received
  140.                 = 64    An Xon has been received
  141.                 = 128    An Xoff has been transmitted
  142.                 = 256    An Xon has been transmitted
  143.                 = 512    Input buffer is empty (when trying to read)
  144.                 = 1024    Output buffer is full (when trying to write)
  145.     The Status value is a bit mask and should be checked after
  146.     each transmission.
  147.   */
  148.  
  149.  
  150. /*****************************************************************
  151.     SPECIFIC MODEM PREDICATES -- HAYES COMPATIBLE
  152.     Reference Hayes Smartmodem Owner's manual
  153.  
  154.      It is important to always initialize the modem port with
  155.      OpenRS232 before using the modem predicates
  156. ******************************************************************/
  157.  
  158.  
  159. Determ SetModemMode(Integer, String, Char, Integer) - (i,i,i,i) language c
  160.   /*
  161.     SetModemMode(PortNo,CommandAttention,CommandTerminator, BreakTime)
  162.     PortNo        = 1    Means COM1 communication port located
  163.                   at I/O address $03F8
  164.               = 2    Means COM2 communication port located
  165.                   at I/O address $02F8
  166.     CommandAttention        Normally "AT"
  167.     CommandTerminator        Normally '\013'  (CR)
  168.     BreakTime            Means the length of time a break signal
  169.                     will be placed on the line.
  170.                     Range 0-32676 (0-327 sec).
  171.                     Normal values are 10-25.
  172.   
  173.     A Modem can be initialized several times during a connection.
  174.   */
  175.   
  176.  
  177.  
  178.  
  179. Determ TxStr_modem(String,Integer) - (i,o) language c
  180.   /*
  181.     TxStr_Modem(CommandStr, NoofCharTransmitted)
  182.     CommandStr            Command to the modem
  183.     NoofCharTransmitted        Sometimes
  184.                     it is necessary to retransmit a part or
  185.                     the whole command.
  186.   */
  187.   
  188.  
  189.  
  190.  
  191. Determ RxStr_modem(String) - (o) language c
  192.   /*
  193.     RxStr_modem(Message)
  194.     Message            Response from the modem.
  195.   */
  196.   
  197.  
  198.  
  199.  
  200. Determ SendBreak_RS232  language c  
  201.   /*
  202.     Send a break signal
  203.   */
  204.  
  205.  
  206.   
  207. Determ Ticks(Integer) - (i)
  208.   /*
  209.     Ticks (0-32767) causes the program to wait for a specified period
  210.     of time, measured in hundredths of seconds.
  211.   */
  212.