C
C  Defines, etc for CMULIB.FOR
C
	include '($iodef)'
	integer   tcp$open, tcp$close, tcp$send, tcp$receive,tcp$abort
	integer   tcp$status, tcp$info, gthst
	parameter (tcp$open=io$_create)
	parameter (tcp$close=io$_delete)
	parameter (tcp$send=io$_writelblk)
	parameter (tcp$receive=io$_readlblk)
	parameter (tcp$abort=io$_deaccess)
	parameter (tcp$status=io$_acpcontrol)
	parameter (tcp$info=io$_modify)
	parameter (gthst=io$_skipfile)

c  IOSB structure

	structure /cmuiosb/
	  integer*2 errcode
	  integer*2 bytcnt
	  byte      icmpcode
	  byte      flags
	  integer*2 unused
	end structure

c  From NEWS.DEF

	Common      /Server/ 	Channel, Recv_Buf, Recv_BufS, Recv_BufE
	Structure /Socket_IN_Def/

	  Integer   *2		SIN_Family
	  Integer   *2		SIN_Port
	  Integer   *4          SIN_Address
	  Byte 			SIN_Fill(8)

	End Structure ! Socket_IN_Def