
#CCOMN                                            08-DEC-83  09:54:34
C
      INTEGER*2 CILTXT,CITEXT,COLTXT,COTEXT,CIBUFF(1),COBUFF(1)
      COMMON /CCOMN/ CILTXT,CITEXT(40),COLTXT,COTEXT(40)
      EQUIVALENCE (CIBUFF,CILTXT), (COBUFF,COLTXT)
#EPCOMN                                           08-DEC-83  09:54:34
C	STAT- is the return code
C	BUF- is the address of an event buffer
C	(or a location in an event buffer)
C	LEN- is the length of the event buffer in bytes
C	INDEX- is the index of the event (starting with 1) assuming the
C	usual structure of byte count, data, byte count data etc., with
C	an unspecified structure at the location BUF(-1)...BUF(-N)
C	(which in the case of MULTI would contain a buffer byte count
C	at BUF(-1) ). The second event has an index of Length(Event 1)+1
C	EVLEN- Length of the event obtained.
C	BUFLEN- Length of the buffer
C	ETYP- Event type
C	PTC- Packet type code to be inserted in the IN-66 request packet
C	DEVNAM- Name of device (e.g. CDA0) (INTEGER ARRAY DEVNAM(2))
C	TIMOUT- Timeout value in Ticks (1/60th of a second)
C	CHARACTER*48 EPDEVN
	BYTE EPDEVN(48)
	INTEGER epdvln				! Length of EPDEVN
	DATA    epdvln /48/			! Length of EPDEVN
	INTEGER*2 BUF(1),LEN,BUFLEN,EVLEN,EPRBUF
	INTEGER PTC,ETYP,INDEX,TIMOUT,UNIT,EPUNIT,WAIT
	INTEGER EPSETT,EPSETP,EPSETD,EPSETE,EPBUFF
	INTEGER EPANS,EPEV,EPSTAT,EPBSTA,EPINIT,EPBNWT
	INTEGER EPFLAG,EPPTC,EPETYP,EPTIMO,EPLEN,EPWAIT
	INTEGER LASTEV,EPCODE,EPMBN,EPCHAN,EPERR
	COMMON/EPCOMN/EPFLAG,EPTIMO,LASTEV,EPMBN,EPCHAN,EPUNIT,
     &  EPSTAT(2),EPRBUF(7),EPETYP,EPPTC,EPLEN,EPCODE,EPDEVN,WAIT
	DATA WAIT/33/
#EPEXTN                                           08-DEC-83  09:54:34
C
C Declare subroutines and functions as external.  This is most useful for
C special functions that cannot be typed by their first letter (INTEGER
C or REAL).
C
	EXTERNAL nularg		! NULARG is a LOGICAL FUNCTION
	LOGICAL  nularg
#EPPMSG                                           08-DEC-83  09:54:34
	EXTERNAL	Sanore, Sanoxm, Sbnoxm, Sbnore, Sunpov, Sinvna,
     +			Sinier, Salrdy, Sretry, Slkerr, Sbdptc, Snoptc,
     +			Sbdst
	INTEGER		Sanore, Sanoxm, Sbnoxm, Sbnore, Sunpov, Sinvna,
     +			Sinier, Salrdy, Sretry, Slkerr, Sbdptc, Snoptc,
     +			Sbdst
#PTCCMN                                           08-DEC-83  09:54:34
	INTEGER ALL,FREE,BUSY,SAMPLE
	INTEGER EVR,EVX,ANX,RTANR
	INTEGER IREQCD,IPTC,ISIZ,ITYP,IMOD,IGET
	INTEGER NDOWN,CDOK,PTCALO
	INTEGER INACTV,IOPCN,ITRPND,IRCPND,ITRCMP,IRCCMP
 	INTEGER INEWSG,IPNDMS
	INTEGER LKEXI1,LKANA1,LKLOG1,LKSEN1,LKINI1
	INTEGER LKINI2,LKINI3,LKANA3
	INTEGER LKFRE1,LKFRE2,LKREC1,LKSEN3
	COMMON/ERRIND/LKEXI1,LKANA1,LKANA2,LKLOG1,LKSEN1,LKINI1,
     1  LKFRE1,LKFRE2,LKREC1,LKSEN3,LKINI2,LKINI3,LKANA3
	COMMON/NTSTAT/INACTV,IOPCN,ITRPND,IRCPND,ITRCMP,IRCCMP,
     2 IPNDMS,INEWSG,CDOK,PTCALO
	COMMON/PTCDAT/EVR,EVX,ANX,RTANR,ALL,SAMPLE,NDOWN,BUSY,
     1	FREE
	COMMON/REQOFF/IREQCD,IPTC,ISIZ,ITYP,IMOD,IGET
#PTCDEF                                           08-DEC-83  09:54:34
	DATA ALL/0/, SAMPLE/1/,NDOWN/10/,PTCALO/10/,CDOK/1/
	DATA FREE/-1/,BUSY/2/
	DATA EVR/1/,EVX/2/,ANX/3/,RTANR/4/
	DATA IREQCD/1/,IPTC/2/,ISIZ/3/,ITYP/4/,IMOD/5/,IGET/6/
C	SYMBOLIC RETURNS FROM A CDSTAT CALL (CF CDPACK)
	DATA  INACTV/-1/, IOPCN/0/, ITRPND/1/, IRCPND/2/, ITRCMP/3/
	DATA IRCCMP/4/,IPNDMS/5/, INEWSG/6/
C	ERROR INDICES
	DATA LKANA2/3/
	DATA LKEXI1/1/,LKANA1/2/,LKLOG1/4/,LKSEN1/5/,LKINI1/6/
	DATA LKFRE1/7/,LKFRE2/8/,LKREC1/10/,LKSEN3/11/
	DATA LKINI2/12/,LKINI3/13/,LKANA3/14/
                   