BYTE	BCSETH_CHARBUF(156), BCVETH_TRACEFLAG
      CHARACTER*16 CCVETH_NETACPBUF
      INTEGER*2 NCVETH_CHAN, NCVETH_IOSB(0:3), NCVETH_EXTCHARBUF(78),
     +		NCVETH_NUMMCA, NCVETH_HWA(0:2), NCVETH_PHA(0:2),
     +		NCVETH_DECNETCHAN, NCVETH_NETIOSB(0:3), NCVETH_C_ZER,
     +		NCVETH_C_RFL(0:1), NCVETH_C_OVR, NCVETH_C_LBE,
     +		NCVETH_C_SFL(0:1), NCVETH_C_CDC, NCVETH_C_UFD,
     +		NCVETH_C_SBU, NCVETH_C_UBU
      EQUIVALENCE(NCVETH_EXTCHARBUF(1),BCSETH_CHARBUF(1))
      BYTE	BCVETH_HWA(0:5), BCVETH_PHA(0:5), BCVETH_DES(0:5),
     +		BCVETH_MCA(0:47), BCVETH_PTY(4), BCVETH_RCVBUF(1500)
      CHARACTER*1500 CCVETH_RCVBUF
      INTEGER*4 ICVETH_BUS,	ICVETH_BFN,	ICVETH_BSZ,
     +		ICVETH_PRM,	ICVETH_MLT,	ICVETH_PAD,
     +		ICVETH_EKO,	ICVETH_DCH,	ICVETH_CRC,
     +		ICVETH_CON,	ICVETH_ACC,	ICVETH_C_DBR,
     +		ICVETH_C_MBL,	ICVETH_C_BRC,	ICVETH_C_MBY,
     +		ICVETH_C_DBS,	ICVETH_C_BSM,	ICVETH_C_BS1,
     +		ICVETH_C_MBS,	ICVETH_C_BID,	ICVETH_C_BSN,
     +		ICVETH_C_MSN,	ICVETH_DISPLAYMODE
      LOGICAL*1 LCVETH_DECNETBUSY, LCVETH_AUTOADDR/.TRUE./
      EQUIVALENCE (NCVETH_HWA(0), BCVETH_HWA(0))
      EQUIVALENCE (NCVETH_PHA(0), BCVETH_PHA(0))
      EQUIVALENCE (BCVETH_RCVBUF, CCVETH_RCVBUF)
      STRUCTURE /P1_CHAR/
	BYTE P1_CLASS
	BYTE P1_TYPE
	INTEGER*2 P1_MSGBUF
	BYTE IGNORE_1
	BYTE P1_STATUS
	BYTE P1_ERRSUM
	BYTE IGNORE_2
      END STRUCTURE
      RECORD /P1_CHAR/ SCVETH_CHARBUF
      STRUCTURE /ADDRBUF/
	UNION
	  MAP
	    INTEGER*2	W_DEST(0:2)
	    INTEGER*2	W_SRC(0:2)
	  END MAP
	  MAP
	    BYTE	DEST(0:5)
	    BYTE	SRC(0:5)
	  END MAP
	  MAP
	    INTEGER*4	LDEST
	    INTEGER*2	LDEST4
	    INTEGER*4	LSRC
	    INTEGER*2	LSRC4
	  END MAP
	END UNION
	UNION
	  MAP
	    UNION
	      MAP
		INTEGER*2	W_PROT
	      END MAP
	      MAP
		BYTE	PROT(0:1)
	      END MAP
	    END UNION
	    UNION
	      MAP
		BYTE	CTL(0:1)
	      END MAP
	      MAP
		BYTE	ECTL
		BYTE	PID(0:4)
	      END MAP
	    END UNION
	  END MAP
	  MAP
	    REAL*8	CLR_PROT
	  END MAP
	END UNION
      END STRUCTURE ! /ADDRBUF/
      RECORD /ADDRBUF/ SCVETH_ADDRBUF
      COMMON /ETHERNET/ NCVETH_IOSB, NCVETH_NETIOSB,
     +		SCVETH_ADDRBUF,	ICVETH_DISPLAYMODE,
     +		ICVETH_BUS,	ICVETH_BFN,	ICVETH_BSZ,
     +		ICVETH_PRM,	ICVETH_MLT,	ICVETH_PAD,
     +		ICVETH_EKO,	ICVETH_DCH,	ICVETH_CRC,
     +		ICVETH_CON,	ICVETH_ACC,	ICVETH_C_DBR,
     +		ICVETH_C_MBL,	ICVETH_C_BRC,	ICVETH_C_MBY,
     +		ICVETH_C_DBS,	ICVETH_C_MBS,	ICVETH_C_BSM,
     +		ICVETH_C_BS1,	ICVETH_C_BID,	ICVETH_C_BSN,
     +		ICVETH_C_MSN,	NCVETH_CHAN,	NCVETH_DECNETCHAN,
     +		NCVETH_EXTCHARBUF, NCVETH_NUMMCA, NCVETH_C_ZER,
     +		NCVETH_C_RFL, NCVETH_C_OVR, NCVETH_C_LBE,
     +		NCVETH_C_SFL, NCVETH_C_CDC, NCVETH_C_UFD,
     +		NCVETH_C_SBU, NCVETH_C_UBU,	LCVETH_DECNETBUSY,
     +		LCVETH_AUTOADDR, BCVETH_HWA, BCVETH_PHA, BCVETH_DES,
     +		BCVETH_MCA,	BCVETH_PTY,	SCVETH_CHARBUF,
     +		BCVETH_RCVBUF, BCVETH_TRACEFLAG, CCVETH_NETACPBUF