C
C	Include file for use with VAXNET program.
C
	IMPLICIT INTEGER*4 (A-Z)
	INTEGER*2 LIOSB(4), RIOSB(4), XIOSB(4), TYPEAHEAD_COUNT(4), BAUD_RATE
	INTEGER*4 TERMTBL(2), NOTERM(2)
	DATA TERMTBL,NOTERM /0,"020000,0,0/
C
C	Parameters.
C
	CHARACTER*(*) SS, DS, NULL, BELL
	PARAMETER (SS = CHAR(13)//CHAR(10)) ! Single space.
	PARAMETER (DS = SS//SS)		! Double space.
	PARAMETER (BELL = CHAR(7))	! Bell.
	PARAMETER (NULL = CHAR(0))	! NULL.
	PARAMETER EOT = 4		! End of transmission.
	PARAMETER ENQ = 5		! Enquire.
	PARAMETER ACK = 6		! Acknowlegment.
	PARAMETER LF  = 10		! Line feed.
	PARAMETER CR  = 13		! Carriage return.
	PARAMETER NAK = 21		! Negative Acknowlegment.
	PARAMETER SYN = 22		! Synchronize byte.
	PARAMETER CAN = 24		! Cancel transmission.
	PARAMETER EOF = 26		! End of file.
	PARAMETER FILE_UNIT = 1		! Unit # for VAX file.
	PARAMETER LOG_UNIT = 2		! Unit # for log file.
	PARAMETER ESCAPE = 27		! Escape.
	PARAMETER BUFFER_SIZE = 512	! Buffer size.
	PARAMETER TYPEAHEAD_SIZE = 78	! Typeahead buffer size.
	PARAMETER TIMEOUT_COUNT = 10	! Timeout read count.
	PARAMETER RETRY_LIMIT = 8	! Maximum # of retries.
	LOGICAL*1 INTERRUPT(1)		! Interrupt character.
	LOGICAL*1 RBUFFER(BUFFER_SIZE)	! Receive buffer.
	LOGICAL*1 XBUFFER(BUFFER_SIZE)	! Transmit buffer.
	LOGICAL*1 TBUFFER(BUFFER_SIZE)	! Logfile buffer.
	LOGICAL*1 LBUFFER(TYPEAHEAD_SIZE)! Local buffer.
C
C	Flags.
C
	LOGICAL	CONTROLC_TYPED, IN_A_COMMAND, LOGFILE, BACKUP,
	1	RECEIVER_BUSY, XMITTER_BUSY, READ_ONE, LOCAL_ECHO,
	1	DEBUG_MODE, REMOTE, HANGUP, DUMP_MODE, NEED_TO_DEAL,
	1	EXIT_ON_ERROR, CROSS_FILE
C
C	Direction for GET/SEND.
C
	PARAMETER IN=1, OUT=2
C
C	Character strings for filenames, system type, baud rate, etc.
C
	CHARACTER*50 VAX_FILE, REMOTE_FILE
	CHARACTER*10 SYSTEM_TYPE, REMOTE_BAUD
	CHARACTER*50 LOCAL_DEVICE, REMOTE_DEVICE

	COMMON /BUFFERS/ RBUFFER, XBUFFER, LBUFFER, TBUFFER, VAX_FILE,
	1 	REMOTE_FILE, SYSTEM_TYPE, REMOTE_BAUD, LOCAL_DEVICE,
	1	REMOTE_DEVICE, INTERRUPT
	COMMON /CHANNELS/ LOCAL_CHANNEL, REMOTE_CHANNEL
	COMMON /COUNTS/ BYTE_COUNT, RECORD_COUNT, RBYTE_COUNT, LBYTE_COUNT,
	1		TIMEOUTS, PARITY_ERRORS, NAKS_RECEIVED, NAKS_XMITTED,
	1		ENQS_RECEIVED, ENQS_XMITTED
	COMMON /FLAGS/ LIOSB, RIOSB, XIOSB, RECEIVER_BUSY, XMITTER_BUSY,
	1	TERMTBL, NOTERM, TYPEAHEAD_COUNT, TERMINATOR, BACKUP,
	1	READ_ONE, LOCAL_ECHO, DEBUG_MODE, HANGUP, REMOTE,
	1	CONTROLC_TYPED, IN_A_COMMAND, LOGFILE, RINDEX,
	1	MODE, FLOW, VSIZE, RSIZE, DUMP_MODE, BAUD_RATE,
	1	NEED_TO_DEAL, EXIT_ON_ERROR, CROSS_FILE
	COMMON /STATUS/ LOCAL_STATUS, REMOTE_STATUS, FUNCTION
C
C	Define the I/O functions.
C
	PARAMETER (IO$_READLBLK   =	'00000021'X)
	PARAMETER (IO$_READPROMPT =	'00000037'X)
	PARAMETER (IO$_SETMODE    =	'00000023'X)
	PARAMETER (IO$_SENSEMODE  =	'00000027'X)
	PARAMETER (IO$_TTYREADALL =	'0000003A'X)
	PARAMETER (IO$_WRITELBLK  =	'00000020'X)
	PARAMETER (IO$M_CTRLCAST  =	'00000100'X)
	PARAMETER (IO$M_CVTLOW    =	'00000100'X)
	PARAMETER (IO$M_HANGUP	  =	'00000200'X)
	PARAMETER (IO$M_NOECHO    =	'00000040'X)
	PARAMETER (IO$M_NOFORMAT  =	'00000100'X)
	PARAMETER (IO$M_TYPEAHDCNT=	'00000040'X)
	PARAMETER (IO$M_PURGE     =	'00000800'X)
	PARAMETER (IO$M_TIMED     =	'00000080'X)
C
C	Define the status return codes.
C
	PARAMETER (SS$_ABORT	  =	'0000002C'X)
	PARAMETER (SS$_CONTROLC	  =	'00000651'X)
	PARAMETER (SS$_CONTROLY	  =	'00000611'X)
	PARAMETER (SS$_DEVALRALLOC=	'00000641'X)
	PARAMETER (SS$_EXQUOTA	  =	'0000001C'X)
	PARAMETER (SS$_HANGUP	  =	'000002CC'X)
	PARAMETER (SS$_NOPRIV	  =	'00000024'X)
	PARAMETER (SS$_NOTRAN	  =	'00000629'X)
	PARAMETER (SS$_NORMAL	  =	'00000001'X)
	PARAMETER (SS$_PARITY	  =	'000001F4'X)
	PARAMETER (SS$_TIMEOUT	  =	'0000022C'X)
C
C	End of COM.INC.
C