From:	CSBVAX::CSBVAX::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 24-NOV-1988 20:58
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Re: VAXCIO


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue, 22 NOV 88 05:45:57 PDT
Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Tue, 22 Nov 88 05:37:04 PST
Received: by ucbvax.Berkeley.EDU (5.59/1.31)
	id AA14560; Tue, 22 Nov 88 02:05:03 PST
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 21 Nov 88 20:13:08 GMT
From: tektronix!gvgpsa!gvgpvd!tony@ucbvax.Berkeley.EDU  (Tony Ivanov)
Organization: Grass Valley Group, Inc.; PVD
Subject: Re: VAXCIO
Message-Id: <903@gvgpvd.GVG.TEK.COM>
References: <8811190608.AA14923@ucbvax.Berkeley.EDU>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

In article <8811190608.AA14923@ucbvax.Berkeley.EDU> DARREN@LAUCOSC.BITNET (Darren Richer) writes:
>Sorry about sending this to the whole list but Tony's address gets
>bounced back in my face. (I even tried creative addressing!  :-)  )
>
>Hi Tony,
>
>    One problem with MOD_ENTRY_NAME.FOR when you sent it out on info-vax.
>You forgot to include the file 'GLIBSRC:$OBJDEF.FTN'.  As a result I
>can not compile this program.  Could you post it or send it to me
>directly?
>
>
>Thanks
>

Oops!  Sorry about that.  Here is a posting of the $OBJDEF I have been using.
If you are NOT running VMS 4.7, I suggest you re-create $OBJDEF.FTN with the
following command:
	$ LIB/EXTRACT=$OBJDEF/OUT=$OBJDEF.FTN SYS$LIBRARY:STARLET.MLB
This will produce a $OBJDEF.FTN in macro format.  It will be quite apparent
what you need to edit to convert it into FORTRAN format (by the way,
it's quite easy and is a technique I use quite a lot especially for C header
files that are lacking!).

-----cut here-----
	parameter	OBJ$C_HDR	= 0
	parameter	OBJ$C_HDR_MHD	= 0
	parameter	OBJ$C_HDR_LNM	= 1
	parameter	OBJ$C_HDR_SRC	= 2
	parameter	OBJ$C_HDR_TTL	= 3
	parameter	OBJ$C_HDR_CPR	= 4
	parameter	OBJ$C_HDR_MTC	= 5
	parameter	OBJ$C_HDR_GTX	= 6
	parameter	OBJ$C_GSD	= 1
	parameter	OBJ$C_GSD_PSC	= 0
	parameter	OBJ$C_GSD_SYM	= 1
	parameter	OBJ$C_GSD_EPM	= 2
	parameter	OBJ$C_GSD_PRO	= 3
	parameter	OBJ$C_GSD_SYMW	= 4
	parameter	OBJ$C_GSD_EPMW	= 5
	parameter	OBJ$C_GSD_PROW	= 6
	parameter	OBJ$C_GSD_IDC	= 7
	parameter	OBJ$C_GSD_ENV	= 8
	parameter	OBJ$C_GSD_LSY	= 9
	parameter	OBJ$C_GSD_LEPM	= 10
	parameter	OBJ$C_GSD_LPRO	= 11
	parameter	OBJ$C_GSD_SPSC	= 12
	parameter	OBJ$C_TIR	= 2
	parameter	OBJ$C_EOM	= 3
	parameter	OBJ$C_DBG	= 4
	parameter	OBJ$C_TBT	= 5
	parameter	OBJ$C_LNK	= 6
	parameter	OBJ$C_EOMW	= 7
	parameter	OBJ$C_MAXRECTYP	= 7
	parameter	OBJ$K_SUBTYP	= 1
	parameter	OBJ$C_SUBTYP	= 1
	parameter	OBJ$C_MAXRECSIZ	= 2048
	parameter	OBJ$C_STRLVL	= 0
	parameter	OBJ$C_SYMSIZ	= 31
	parameter	OBJ$C_STOREPLIM	= -1
	parameter	OBJ$C_PSCALILIM	= 9
	parameter	OBJ$S_OBJRECDEF	= 5
	parameter	OBJ$B_RECTYP	= 0
	parameter	OBJ$B_SUBTYP	= 1
	parameter	OBJ$B_MHD_STRLV	= 2
	parameter	OBJ$W_MHD_RECSZ	= 3
	parameter	OBJ$T_MHD_NAME	= 5

	parameter	MHD$C_MHD	= 0
	parameter	MHD$C_LNM	= 1
	parameter	MHD$C_SRC	= 2
	parameter	MHD$C_TTL	= 3
	parameter	MHD$C_CPR	= 4
	parameter	MHD$C_MTC	= 5
	parameter	MHD$C_GTX	= 6
	parameter	MHD$C_MAXHDRTYP	= 6
	parameter	MHD$S_MHDEF	= 37
	parameter	MHD$B_RECTYP	= 0
	parameter	MHD$B_HDRTYP	= 1
	parameter	MHD$B_STRLVL	= 2
	parameter	MHD$W_RECSIZ	= 3
	parameter	MHD$B_NAMLNG	= 5
	parameter	MHD$S_NAME	= 31
	parameter	MHD$T_NAME	= 6

	parameter	EOM$C_SUCCESS	= 0
	parameter	EOM$C_WARNING	= 1
	parameter	EOM$C_ERROR	= 2
	parameter	EOM$C_ABORT	= 3
	parameter	EOM$K_EOMMIN	= 2
	parameter	EOM$C_EOMMIN	= 2
	parameter	EOM$K_EOMMX1	= 7
	parameter	EOM$C_EOMMX1	= 7
	parameter	EOM$K_EOMMAX	= 8
	parameter	EOM$C_EOMMAX	= 8
	parameter	EOM$M_WKTFR	= 1
	parameter	EOM$S_EOMDEF	= 8
	parameter	EOM$B_RECTYP	= 0
	parameter	EOM$B_COMCOD	= 1
	parameter	EOM$B_PSINDX	= 2
	parameter	EOM$L_TFRADR	= 3
	parameter	EOM$B_TFRFLG	= 7
	parameter	EOM$V_WKTFR	= 0

	parameter	EOMW$K_EOMMIN	= 2
	parameter	EOMW$C_EOMMIN	= 2
	parameter	EOMW$K_EOMMX1	= 8
	parameter	EOMW$C_EOMMX1	= 8
	parameter	EOMW$K_EOMMAX	= 9
	parameter	EOMW$C_EOMMAX	= 9
	parameter	EOMW$M_WKTFR	= 1
	parameter	EOMW$S_EOMWDEF	= 9
	parameter	EOMW$B_RECTYP	= 0
	parameter	EOMW$B_COMCOD	= 1
	parameter	EOMW$W_PSINDX	= 2
	parameter	EOMW$L_TFRADR	= 4
	parameter	EOMW$B_TFRFLG	= 8
	parameter	EOMW$V_WKTFR	= 0

	parameter	LNK$C_OLB	= 0
	parameter	LNK$C_SHR	= 1
	parameter	LNK$C_OLI	= 2
	parameter	LNK$C_OBJ	= 3
	parameter	LNK$C_SHA	= 4
	parameter	LNK$C_MAXRECTYP	= 4
	parameter	LNK$M_SELSER	= 1
	parameter	LNK$M_LIBSRCH	= 2
	parameter	LNK$S_LNKDEF	= 6
	parameter	LNK$B_RECTYP	= 0
	parameter	LNK$B_LNKTYP	= 1
	parameter	LNK$W_FLAGS	= 2
	parameter	LNK$V_SELSER	= 0
	parameter	LNK$V_LIBSRCH	= 1
	parameter	LNK$W_NAMLNG	= 4
	parameter	LNK$T_NAME	= 6

	parameter	GSD$K_ENTRIES	= 1
	parameter	GSD$C_ENTRIES	= 1
	parameter	GSD$C_PSC	= 0
	parameter	GSD$C_SYM	= 1
	parameter	GSD$C_EPM	= 2
	parameter	GSD$C_PRO	= 3
	parameter	GSD$C_SYMW	= 4
	parameter	GSD$C_EPMW	= 5
	parameter	GSD$C_PROW	= 6
	parameter	GSD$C_IDC	= 7
	parameter	GSD$C_ENV	= 8
	parameter	GSD$C_LSY	= 9
	parameter	GSD$C_LEPM	= 10
	parameter	GSD$C_LPRO	= 11
	parameter	GSD$C_SPSC	= 12
	parameter	GSD$C_MAXRECTYP	= 12
	parameter	GSD$S_GSDEF	= 2
	parameter	GSD$B_RECTYP	= 0
	parameter	GSD$B_GSDTYP	= 1

	parameter	GPS$M_PIC	= 1
	parameter	GPS$M_LIB	= 2
	parameter	GPS$M_OVR	= 4
	parameter	GPS$M_REL	= 8
	parameter	GPS$M_GBL	= 16
	parameter	GPS$M_SHR	= 32
	parameter	GPS$M_EXE	= 64
	parameter	GPS$M_RD	= 128
	parameter	GPS$M_WRT	= 256
	parameter	GPS$M_VEC	= 512
	parameter	GPS$K_NAME	= 9
	parameter	GPS$C_NAME	= 9
	parameter	GPS$S_GPSDEF	= 40
	parameter	GPS$B_GSDTYP	= 0
	parameter	GPS$T_START	= 0
	parameter	GPS$B_ALIGN	= 1
	parameter	GPS$W_FLAGS	= 2
	parameter	GPS$V_PIC	= 0
	parameter	GPS$V_LIB	= 1
	parameter	GPS$V_OVR	= 2
	parameter	GPS$V_REL	= 3
	parameter	GPS$V_GBL	= 4
	parameter	GPS$V_SHR	= 5
	parameter	GPS$V_EXE	= 6
	parameter	GPS$V_RD	= 7
	parameter	GPS$V_WRT	= 8
	parameter	GPS$V_VEC	= 9
	parameter	GPS$L_ALLOC	= 4
	parameter	GPS$B_NAMLNG	= 8
	parameter	GPS$S_NAME	= 31
	parameter	GPS$T_NAME	= 9

	parameter	SGPS$M_PIC	= 1
	parameter	SGPS$M_LIB	= 2
	parameter	SGPS$M_OVR	= 4
	parameter	SGPS$M_REL	= 8
	parameter	SGPS$M_GBL	= 16
	parameter	SGPS$M_SHR	= 32
	parameter	SGPS$M_EXE	= 64
	parameter	SGPS$M_RD	= 128
	parameter	SGPS$M_WRT	= 256
	parameter	SGPS$M_VEC	= 512
	parameter	SGPS$K_NAME	= 13
	parameter	SGPS$C_NAME	= 13
	parameter	SGPS$S_SGPSDEF	= 44
	parameter	SGPS$B_GSDTYP	= 0
	parameter	SGPS$T_START	= 0
	parameter	SGPS$B_ALIGN	= 1
	parameter	SGPS$W_FLAGS	= 2
	parameter	SGPS$V_PIC	= 0
	parameter	SGPS$V_LIB	= 1
	parameter	SGPS$V_OVR	= 2
	parameter	SGPS$V_REL	= 3
	parameter	SGPS$V_GBL	= 4
	parameter	SGPS$V_SHR	= 5
	parameter	SGPS$V_EXE	= 6
	parameter	SGPS$V_RD	= 7
	parameter	SGPS$V_WRT	= 8
	parameter	SGPS$V_VEC	= 9
	parameter	SGPS$L_ALLOC	= 4
	parameter	SGPS$L_BASE	= 8
	parameter	SGPS$B_NAMLNG	= 12
	parameter	SGPS$S_NAME	= 31
	parameter	SGPS$T_NAME	= 13

	parameter	GSY$M_WEAK	= 1
	parameter	GSY$M_DEF	= 2
	parameter	GSY$M_UNI	= 4
	parameter	GSY$M_REL	= 8
	parameter	GSY$S_GSYDEF	= 4
	parameter	GSY$B_GSDTYP	= 0
	parameter	GSY$T_START	= 0
	parameter	GSY$B_DATYP	= 1
	parameter	GSY$W_FLAGS	= 2
	parameter	GSY$V_WEAK	= 0
	parameter	GSY$V_DEF	= 1
	parameter	GSY$V_UNI	= 2
	parameter	GSY$V_REL	= 3

	parameter	SRF$K_NAME	= 5
	parameter	SRF$C_NAME	= 5
	parameter	SRF$S_SRFDEF	= 36
	parameter	SRF$B_GSDTYP	= 0
	parameter	SRF$T_START	= 0
	parameter	SRF$B_DATYP	= 1
	parameter	SRF$W_FLAGS	= 2
	parameter	SRF$B_NAMLNG	= 4
	parameter	SRF$S_NAME	= 31
	parameter	SRF$T_NAME	= 5

	parameter	SDF$K_NAME	= 10
	parameter	SDF$C_NAME	= 10
	parameter	SDF$S_SDFDEF	= 41
	parameter	SDF$B_GSDTYP	= 0
	parameter	SDF$T_START	= 0
	parameter	SDF$B_DATYP	= 1
	parameter	SDF$W_FLAGS	= 2
	parameter	SDF$B_PSINDX	= 4
	parameter	SDF$L_VALUE	= 5
	parameter	SDF$B_NAMLNG	= 9
	parameter	SDF$S_NAME	= 31
	parameter	SDF$T_NAME	= 10

	parameter	EPM$K_NAME	= 12
	parameter	EPM$C_NAME	= 12
	parameter	EPM$S_EPMDEF	= 43
	parameter	EPM$B_GSDTYP	= 0
	parameter	EPM$T_START	= 0
	parameter	EPM$B_DATYP	= 1
	parameter	EPM$W_FLAGS	= 2
	parameter	EPM$B_PSINDX	= 4
	parameter	EPM$L_ADDRS	= 5
	parameter	EPM$W_MASK	= 9
	parameter	EPM$B_NAMLNG	= 11
	parameter	EPM$S_NAME	= 31
	parameter	EPM$T_NAME	= 12

	parameter	PRO$K_NAME	= 12
	parameter	PRO$C_NAME	= 12
	parameter	PRO$S_PRODEF	= 43
	parameter	PRO$B_GSDTYP	= 0
	parameter	PRO$T_START	= 0
	parameter	PRO$B_DATYP	= 1
	parameter	PRO$W_FLAGS	= 2
	parameter	PRO$B_PSINDX	= 4
	parameter	PRO$L_ADDRS	= 5
	parameter	PRO$W_MASK	= 9
	parameter	PRO$B_NAMLNG	= 11
	parameter	PRO$S_NAME	= 31
	parameter	PRO$T_NAME	= 12

	parameter	FML$K_SIZE	= 2
	parameter	FML$C_SIZE	= 2
	parameter	FML$S_FMLDEF	= 2
	parameter	FML$B_MINARGS	= 0
	parameter	FML$B_MAXARGS	= 1

	parameter	ARG$C_UNKNOWN	= 0
	parameter	ARG$C_VALUE	= 1
	parameter	ARG$C_REF	= 2
	parameter	ARG$C_DESC	= 3
	parameter	ARG$K_SIZE	= 2
	parameter	ARG$C_SIZE	= 2
	parameter	ARG$S_ARGDEF	= 2
	parameter	ARG$B_VALCTL	= 0
	parameter	ARG$S_PASSMECH	= 2
	parameter	ARG$V_PASSMECH	= 0
	parameter	ARG$B_BYTECNT	= 1

	parameter	SDFW$K_NAME	= 11
	parameter	SDFW$C_NAME	= 11
	parameter	SDFW$S_SDFWDEF	= 42
	parameter	SDFW$B_GSDTYP	= 0
	parameter	SDFW$T_START	= 0
	parameter	SDFW$B_DATYP	= 1
	parameter	SDFW$W_FLAGS	= 2
	parameter	SDFW$W_PSINDX	= 4
	parameter	SDFW$L_VALUE	= 6
	parameter	SDFW$B_NAMLNG	= 10
	parameter	SDFW$S_NAME	= 31
	parameter	SDFW$T_NAME	= 11

	parameter	EPMW$K_NAME	= 13
	parameter	EPMW$C_NAME	= 13
	parameter	EPMW$S_EPMWDEF	= 44
	parameter	EPMW$B_GSDTYP	= 0
	parameter	EPMW$T_START	= 0
	parameter	EPMW$B_DATYP	= 1
	parameter	EPMW$W_FLAGS	= 2
	parameter	EPMW$W_PSINDX	= 4
	parameter	EPMW$L_ADDRS	= 6
	parameter	EPMW$W_MASK	= 10
	parameter	EPMW$B_NAMLNG	= 12
	parameter	EPMW$S_NAME	= 31
	parameter	EPMW$T_NAME	= 13

	parameter	PROW$K_NAME	= 13
	parameter	PROW$C_NAME	= 13
	parameter	PROW$S_PROWDEF	= 44
	parameter	PROW$B_GSDTYP	= 0
	parameter	PROW$T_START	= 0
	parameter	PROW$B_DATYP	= 1
	parameter	PROW$W_FLAGS	= 2
	parameter	PROW$W_PSINDX	= 4
	parameter	PROW$L_ADDRS	= 6
	parameter	PROW$W_MASK	= 10
	parameter	PROW$B_NAMLNG	= 12
	parameter	PROW$S_NAME	= 31
	parameter	PROW$T_NAME	= 13

	parameter	IDC$C_LEQ	= 0
	parameter	IDC$C_EQUAL	= 1
	parameter	IDC$S_IDCDEF	= 4
	parameter	IDC$B_GSDTYP	= 0
	parameter	IDC$W_FLAGS	= 1
	parameter	IDC$V_BINIDENT	= 0
	parameter	IDC$S_IDMATCH	= 2
	parameter	IDC$V_IDMATCH	= 1
	parameter	IDC$S_ERRSEV	= 3
	parameter	IDC$V_ERRSEV	= 3
	parameter	IDC$B_NAMLNG	= 3
	parameter	IDC$T_NAME	= 4

	parameter	ENV$M_DEF	= 1
	parameter	ENV$M_NESTED	= 2
	parameter	ENV$S_ENVDEF	= 37
	parameter	ENV$B_GSDTYP	= 0
	parameter	ENV$W_FLAGS	= 1
	parameter	ENV$V_DEF	= 0
	parameter	ENV$V_NESTED	= 1
	parameter	ENV$W_ENVINDX	= 3
	parameter	ENV$B_NAMLNG	= 5
	parameter	ENV$S_NAME	= 31
	parameter	ENV$T_NAME	= 6

	parameter	LSY$M_WEAK	= 1
	parameter	LSY$M_DEF	= 2
	parameter	LSY$M_UNI	= 4
	parameter	LSY$M_REL	= 8
	parameter	LSY$S_LSYDEF	= 6
	parameter	LSY$B_GSDTYP	= 0
	parameter	LSY$T_START	= 0
	parameter	LSY$B_DATYP	= 1
	parameter	LSY$W_FLAGS	= 2
	parameter	LSY$V_WEAK	= 0
	parameter	LSY$V_DEF	= 1
	parameter	LSY$V_UNI	= 2
	parameter	LSY$V_REL	= 3
	parameter	LSY$W_ENVINDX	= 4

	parameter	LSRF$K_NAME	= 7
	parameter	LSRF$C_NAME	= 7
	parameter	LSRF$S_LSRFDEF	= 38
	parameter	LSRF$B_GSDTYP	= 0
	parameter	LSRF$T_START	= 0
	parameter	LSRF$B_DATYP	= 1
	parameter	LSRF$W_FLAGS	= 2
	parameter	LSRF$W_ENVINDX	= 4
	parameter	LSRF$B_NAMLNG	= 6
	parameter	LSRF$S_NAME	= 31
	parameter	LSRF$T_NAME	= 7

	parameter	LSDF$K_NAME	= 13
	parameter	LSDF$C_NAME	= 13
	parameter	LSDF$S_LSDFDEF	= 44
	parameter	LSDF$B_GSDTYP	= 0
	parameter	LSDF$T_START	= 0
	parameter	LSDF$B_DATYP	= 1
	parameter	LSDF$W_FLAGS	= 2
	parameter	LSDF$W_ENVINDX	= 4
	parameter	LSDF$W_PSINDX	= 6
	parameter	LSDF$L_VALUE	= 8
	parameter	LSDF$B_NAMLNG	= 12
	parameter	LSDF$S_NAME	= 31
	parameter	LSDF$T_NAME	= 13

	parameter	LEPM$K_NAME	= 15
	parameter	LEPM$C_NAME	= 15
	parameter	LEPM$S_LEPMDEF	= 46
	parameter	LEPM$B_GSDTYP	= 0
	parameter	LEPM$T_START	= 0
	parameter	LEPM$B_DATYP	= 1
	parameter	LEPM$W_FLAGS	= 2
	parameter	LEPM$W_ENVINDX	= 4
	parameter	LEPM$W_PSINDX	= 6
	parameter	LEPM$L_ADDRS	= 8
	parameter	LEPM$W_MASK	= 12
	parameter	LEPM$B_NAMLNG	= 14
	parameter	LEPM$S_NAME	= 31
	parameter	LEPM$T_NAME	= 15

	parameter	LPRO$K_NAME	= 15
	parameter	LPRO$C_NAME	= 15
	parameter	LPRO$S_LPRODEF	= 46
	parameter	LPRO$B_GSDTYP	= 0
	parameter	LPRO$T_START	= 0
	parameter	LPRO$B_DATYP	= 1
	parameter	LPRO$W_FLAGS	= 2
	parameter	LPRO$W_ENVINDX	= 4
	parameter	LPRO$W_PSINDX	= 6
	parameter	LPRO$L_ADDRS	= 8
	parameter	LPRO$W_MASK	= 12
	parameter	LPRO$B_NAMLNG	= 14
	parameter	LPRO$S_NAME	= 31
	parameter	LPRO$T_NAME	= 15

	parameter	TIR$C_STA_GBL	= 0
	parameter	TIR$C_STA_SB	= 1
	parameter	TIR$C_STA_SW	= 2
	parameter	TIR$C_STA_LW	= 3
	parameter	TIR$C_STA_PB	= 4
	parameter	TIR$C_STA_PW	= 5
	parameter	TIR$C_STA_PL	= 6
	parameter	TIR$C_STA_UB	= 7
	parameter	TIR$C_STA_UW	= 8
	parameter	TIR$C_STA_BFI	= 9
	parameter	TIR$C_STA_WFI	= 10
	parameter	TIR$C_STA_LFI	= 11
	parameter	TIR$C_STA_EPM	= 12
	parameter	TIR$C_STA_CKARG	= 13
	parameter	TIR$C_STA_WPB	= 14
	parameter	TIR$C_STA_WPW	= 15
	parameter	TIR$C_STA_WPL	= 16
	parameter	TIR$C_STA_LSY	= 17
	parameter	TIR$C_STA_LIT	= 18
	parameter	TIR$C_STA_LEPM	= 19
	parameter	TIR$C_MAXSTACOD	= 19
	parameter	TIR$C_MINSTOCOD	= 20
	parameter	TIR$C_STO_SB	= 20
	parameter	TIR$C_STO_SW	= 21
	parameter	TIR$C_STO_L	= 22
	parameter	TIR$C_STO_BD	= 23
	parameter	TIR$C_STO_WD	= 24
	parameter	TIR$C_STO_LD	= 25
	parameter	TIR$C_STO_LI	= 26
	parameter	TIR$C_STO_PIDR	= 27
	parameter	TIR$C_STO_PICR	= 28
	parameter	TIR$C_STO_RSB	= 29
	parameter	TIR$C_STO_RSW	= 30
	parameter	TIR$C_STO_RL	= 31
	parameter	TIR$C_STO_VPS	= 32
	parameter	TIR$C_STO_USB	= 33
	parameter	TIR$C_STO_USW	= 34
	parameter	TIR$C_STO_RUB	= 35
	parameter	TIR$C_STO_RUW	= 36
	parameter	TIR$C_STO_B	= 37
	parameter	TIR$C_STO_W	= 38
	parameter	TIR$C_STO_RB	= 39
	parameter	TIR$C_STO_RW	= 40
	parameter	TIR$C_STO_RIVB	= 41
	parameter	TIR$C_STO_PIRR	= 42
	parameter	TIR$C_MAXSTOCOD	= 42
	parameter	TIR$C_MINOPRCOD	= 50
	parameter	TIR$C_OPR_NOP	= 50
	parameter	TIR$C_OPR_ADD	= 51
	parameter	TIR$C_OPR_SUB	= 52
	parameter	TIR$C_OPR_MUL	= 53
	parameter	TIR$C_OPR_DIV	= 54
	parameter	TIR$C_OPR_AND	= 55
	parameter	TIR$C_OPR_IOR	= 56
	parameter	TIR$C_OPR_EOR	= 57
	parameter	TIR$C_OPR_NEG	= 58
	parameter	TIR$C_OPR_COM	= 59
	parameter	TIR$C_OPR_INSV	= 60
	parameter	TIR$C_OPR_ASH	= 61
	parameter	TIR$C_OPR_USH	= 62
	parameter	TIR$C_OPR_ROT	= 63
	parameter	TIR$C_OPR_SEL	= 64
	parameter	TIR$C_OPR_REDEF	= 65
	parameter	TIR$C_OPR_DFLIT	= 66
	parameter	TIR$C_MAXOPRCOD	= 66
	parameter	TIR$C_MINCTLCOD	= 80
	parameter	TIR$C_CTL_SETRB	= 80
	parameter	TIR$C_CTL_AUGRB	= 81
	parameter	TIR$C_CTL_DFLOC	= 82
	parameter	TIR$C_CTL_STLOC	= 83
	parameter	TIR$C_CTL_STKDL	= 84
	parameter	TIR$C_MAXCTLCOD	= 84
	parameter	TIR$S_TIRDEF	= 1
	parameter	TIR$B_RECTYP	= 0
------------------
-- 
/* My opinions...             *  Tony Ivanov   MS-4B       *  ...ucbvax!   */
/* shared by my company?!...  *  Grass Valley Group, Inc.  *  tektronix!   */
/* you've got to be kidding!  *  P.O. Box 1114             *  gvgpsa!      */
/* "tony@gvgpvd.GVG.TEK.COM"  *  Grass Valley, CA  95945   *  gvgpvd!tony  */

