home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s038 / 1.ddi / SUPP.LIF / DCOM.LIT < prev    next >
Encoding:
Text File  |  1992-07-06  |  2.2 KB  |  58 lines
  1. $save nolist
  2. DECLARE
  3.     socket        LITERALLY 'STRUCTURE(
  4.                                 host_id        WORD,
  5.                                 port_id        WORD)',        
  6.  
  7.     host_info    LITERALLY 'STRUCTURE(
  8.                                         th_count    WORD,
  9.                                         next_id        WORD,
  10.                                         hcount        WORD,
  11.                                         res(2)        BYTE,
  12.                                         hostids(10)    WORD)',
  13.                                         
  14.     port_info_s    LITERALLY    'STRUCTURE(
  15.                                         port_id        WORD,
  16.                                         type        BYTE,
  17.                                         reserved    BYTE,
  18.                                         flags        WORD)',
  19.  
  20.     rec_info    LITERALLY    'STRUCTURE(
  21.                                         flags        WORD,
  22.                                         status        WORD,
  23.                                         trans$id    WORD,
  24.                                         data$length    DWORD,
  25.                                         for$port    TOKEN,
  26.                                         rem$socket    DWORD,
  27.                                         con$msg(20)    BYTE,
  28.                                         reserved(4)    BYTE)',    
  29.  
  30.     blk_struc       LITERALLY 'STRUCTURE(
  31.                                             b_size      WORD,
  32.                                             buf_offset  WORD,
  33.                                             buf_sel     SELECTOR,
  34.                                             res         WORD)',
  35.  
  36.     c_buf            LITERALLY 'STRUCTURE(
  37.                                             size        WORD,
  38.                                             buf(1)        BYTE)';
  39.                                                                                                   
  40.  
  41. DECLARE            /* constant literals */
  42.  
  43.     DATACHAIN    LITERALLY        '0001B',  /* data chain message flag */
  44.     NODATACHAIN    LITERALLY            '0',  /* contiguous buffer mess flag */
  45.     CHAIN       LITERALLY        '010B',  /* data chain buf pool creation flag */
  46.     NOCHAIN     LITERALLY           '0',  /* no data chain buf pool creation flag */
  47.     SYNCHTRANS    LITERALLY            '0',  /* synchronous transmission flag */
  48.     ASYNCHTRANS    LITERALLY      '010000B',  /* asynchronous transmission flag */
  49.     RECRES        LITERALLY '0100000000B',  /* receive used for send$rsvp */
  50.     RECREPLY    LITERALLY            '0',  /* receive$reply used for send$rsvp */    
  51.     WAITFOREVER LITERALLY      '0FFFFH',  /* wait forever for a message */
  52.     NOTRAN        LITERALLY  '000000000B',  /* transactionless message */
  53.     STATMESS    LITERALLY  '000010000B',  /* status message */
  54.     TREQUEST    LITERALLY  '000100000B',  /* transaction request message */
  55.     TRESPONSE    LITERALLY  '001000000B',  /* transaction response mess */
  56.     SOCKETSIZE  LITERALLY           '4';  /* number of bytes in a socket */ 
  57.  
  58. $restore