# Definitions for the Mountain format IDS tape reader:

define	MAX_RANGES	100
define	DUMMY		3	# Value returned if DUMMY IDS record is read

define	SZB_IDS_RECORD		4216
define	NPIX_IDS_REC		1024
define	DATA_BYTE		9			# First byte of data
define	MAX_NCOEFF		25
define	SZ_IDS_ID		64
define	LEN_USER_AREA		2880

# The control parameter structure is defined below:

define	LEN_CP		(10 + SZ_FNAME + 1)

define	IS_REDUCED	Memi[$1]
define	LONG_HEADER	Memi[$1+1]
define	PRINT_PIXELS	Memi[$1+2]
define	MAKE_IMAGE	Memi[$1+3]
define	OFFSET		Memi[$1+4]
define	DATA_TYPE	Memi[$1+5]
define	IRAF_FILE	Memc[P2C($1+10)]


# The header structure is defined below:

define	LEN_IDS			(40 + SZ_IDS_ID + 1)

define	HA			Memd[P2D($1)]
define	AIRMASS			Memd[P2D($1+2)]
define	RA			Memd[P2D($1+4)]
define	DEC			Memd[P2D($1+6)]
define	W0			Memd[P2D($1+8)]
define	WPC			Memd[P2D($1+10)]
define	NREC			Memi[$1+12]
define	NP1			Memi[$1+13]
define	NP2			Memi[$1+14]
define	ITM			Memi[$1+15]
define	BEAM			Memi[$1+16]
define	COMPANION_RECORD	Memi[$1+17]
define	SMODE			Memi[$1+18]
define	UT			Memi[$1+19]
define	ST			Memi[$1+20]
define	DF_FLAG			Memi[$1+21]
define	SM_FLAG			Memi[$1+22]
define	QF_FLAG			Memi[$1+23]
define	DC_FLAG			Memi[$1+24]
define	QD_FLAG			Memi[$1+25]
define	EX_FLAG			Memi[$1+26]
define	BS_FLAG			Memi[$1+27]
define	CA_FLAG			Memi[$1+28]
define	CO_FLAG			Memi[$1+29]
define	OFLAG			Memi[$1+30]
define	COEFF			Memi[$1+31]	
define	DRA			Memi[$1+32]
define	DDEC			Memi[$1+33]
define	ALPHA_ID		Memc[P2C($1+35)]
define	LABEL			Memc[P2C($1+40)]


# BYTE offsets to various IDS header words are defined below.  These become
# word offsets once each byte is unpacked per element of an integer array.

define	NREC_OFFSET	((1 * 2) - 1)
define	ITM_OFFSET	((3 * 2) - 1)
define	DATA_OFFSET	((5 * 2) - 1)
define	W0_OFFSET	((2053 * 2) - 1)
define	WPC_OFFSET	((2056 * 2) - 1)
define	NP1_OFFSET	((2059 * 2) - 1)
define	NP2_OFFSET	((2060 * 2) - 1)
define	OFLAG_OFFSET	((2061 * 2) - 1)
define	SMODE_OFFSET	((2062 * 2) - 1)
define	UT_OFFSET	((2063 * 2) - 1)
define	ST_OFFSET	((2065 * 2) - 1)
define	BEAM_OFFSET	((2067 * 2) - 1)
define	HA_OFFSET	((2068 * 2) - 1)
define	RA_OFFSET	((2071 * 2) - 1)
define	DEC_OFFSET	((2074 * 2) - 1)
define	DRA_OFFSET	((2077 * 2) - 1)
define	DDEC_OFFSET	((2078 * 2) - 1)
define	LABEL_OFFSET	((2079 * 2) - 1)