$save nolist
DECLARE
	socket		LITERALLY 'STRUCTURE(
								host_id		WORD,
								port_id		WORD)',		

	host_info	LITERALLY 'STRUCTURE(
										th_count	WORD,
										next_id		WORD,
										hcount		WORD,
										res(2)		BYTE,
										hostids(10)	WORD)',
										
	port_info_s	LITERALLY	'STRUCTURE(
										port_id		WORD,
										type		BYTE,
										reserved	BYTE,
										flags		WORD)',

	rec_info	LITERALLY	'STRUCTURE(
										flags		WORD,
										status		WORD,
										trans$id	WORD,
										data$length	DWORD,
										for$port	TOKEN,
										rem$socket	DWORD,
										con$msg(20)	BYTE,
										reserved(4)	BYTE)',	

    blk_struc       LITERALLY 'STRUCTURE(
                                            b_size      WORD,
                                            buf_offset  WORD,
                                            buf_sel     SELECTOR,
                                            res         WORD)',

	c_buf			LITERALLY 'STRUCTURE(
                                            size		WORD,
                                            buf(1)		BYTE)';
                                                                                                  

DECLARE			/* constant literals */

	DATACHAIN	LITERALLY	    '0001B',  /* data chain message flag */
	NODATACHAIN	LITERALLY	        '0',  /* contiguous buffer mess flag */
    CHAIN       LITERALLY        '010B',  /* data chain buf pool creation flag */
    NOCHAIN     LITERALLY           '0',  /* no data chain buf pool creation flag */
	SYNCHTRANS	LITERALLY		    '0',  /* synchronous transmission flag */
	ASYNCHTRANS	LITERALLY	  '010000B',  /* asynchronous transmission flag */
	RECRES		LITERALLY '0100000000B',  /* receive used for send$rsvp */
	RECREPLY	LITERALLY			'0',  /* receive$reply used for send$rsvp */	
	WAITFOREVER LITERALLY      '0FFFFH',  /* wait forever for a message */
	NOTRAN		LITERALLY  '000000000B',  /* transactionless message */
	STATMESS	LITERALLY  '000010000B',  /* status message */
	TREQUEST	LITERALLY  '000100000B',  /* transaction request message */
	TRESPONSE	LITERALLY  '001000000B',  /* transaction response mess */
	SOCKETSIZE  LITERALLY           '4';  /* number of bytes in a socket */ 

$restore
$restore	ÿ