IMPLICIT INTEGER*4 (A-Z)

	INTEGER * 2 RIOSB(4), XIOSB(4)

	PARAMETER BUFSIZ = 300		! BUFFER SIZE.

	BYTE RBUFFR(BUFSIZ), XBUFFR(BUFSIZ)

	PARAMETER UYKSIZ = 1024	! SIZE OF UYK RECORD IN VAX WORDS.

	BYTE VAXBUF( 4 * UYKSIZ)	! VAXBUF IS A BYTE ARRAY THAT LARGE.

	LOGICAL CHANCC, INCMD

C
C	MODES FOR GET/SEND.
C
	PARAMETER SYSGEN = 1, ASCII = 2, LISTNG = 3, TECO = 4
C
	PARAMETER WRPBLK="11010, RDPBLK="001020
	PARAMETER NORMAL=1, CANCEL=-15
	PARAMETER LCHNIN=3,LCHNOT=3,RCHNIN=2,RCHNOT=2
C

	INTEGER MODE

	PARAMETER IN = 1, OUT = 2

	INTEGER FLOW

C
C	THE FILENAME ON THE VAX.
C
	BYTE VAXFIL(50)

	INTEGER VSIZE

C
C	EXIT CONTROL BLOCK
C

	COMMON /BUFFER/  RBUFFR, XBUFFR

	COMMON /SCALAR/  RIOSB, XIOSB, RB, XB


	COMMON /FLAGS/    CHANCC, INCMD

	COMMON /MODEFL/ MODE, FLOW, VSIZE, BCOUNT, LINNUM

	COMMON /FILE/     VAXFILE

	COMMON /BINMOV/ BUFIDX, VAXBUF