Repatch (from linux) of OSX IRAF

1 files changed, 41 insertions, 0 deletions

diff --git a/noao/mtlocal/cyber/rrcopy/rrcopy.h b/noao/mtlocal/cyber/rrcopy/rrcopy.h
new file mode 100644
index 00000000..9579b623
--- /dev/null
+++ b/noao/mtlocal/cyber/rrcopy/rrcopy.h
@@ -0,0 +1,41 @@
+
+# Definitions for the Cyber RCOPY tape reader
+
+define 	NBITS_CHAR      (NBITS_BYTE * SZB_CHAR)	# Number of bits per char
+define 	NBITS_CYBER_WORD	60		# Number of bits per Cyber word
+define 	LEN_PRU			64		# Number of words per Cyber pru
+define	NBITS_PRU		3840		# Number of bits per Cyber pru
+define	NCHARS_NOISE	 (48 / NBITS_CHAR)	# Nchars in a Cyber noise record
+define 	NBITS_EOR_MARK		48		# Number of bits per eor marker
+define 	SZ_HEADER      ((64 * 60) / NBITS_CHAR)	# Size in chars of IPPS header
+define 	SZ_TAPE_BLK   ((512 * 60) / NBITS_CHAR) # Size in chars of tape block
+define	SZ_BUFFER	(SZ_TAPE_BLK + 100)	# Size of tape buffer for read
+define  SZ_IPPS_ID		127		# Max number of characters in ID
+define	MAX_RANGES		100	
+define	NOT_SET			0		# Flag for data_type not set
+define	BLANK			0.0		# Temporary value for blanks
+
+# Bit-offsets to IPPS header words 
+
+define	DATA_TYPE_OFFSET	(16 * 60 + 1)	# Offset to data_type (nbpp)
+define	NCOLS_OFFSET		(17 * 60 + 1)	# Offset to ncols (nppr)
+define	NWORDS_OFFSET		(18 * 60 + 1)	# Offet to nwords_per_row
+define	NROWS_OFFSET		(20 * 60 + 1)	# Offset to nrows
+define	FIRST_PRU_OFFSET	(21 * 60 + 1)	# Offset to 1st pru of raster
+define	MIN_OFFSET		(31 * 60 + 1)	# Offset to data min
+define	MAX_OFFSET		(32 * 60 + 1)	# Offset to data max
+define	EOR_OFFSET		(44 * 60 + 1)	# Offset to terminating pru
+
+# The IPPS raster descriptor structure RP:
+
+define 	LEN_RP		10 + SZ_IPPS_ID + 1
+
+define	BITS_PIXEL	Memi[$1]
+define	PRU_EOR         Memi[$1+1]
+define	WRDS_PER_ROW    Memi[$1+2]
+define	PRU_ROW_ONE     Memi[$1+3]
+define	NCOLS		Memi[$1+4]
+define	NROWS		Memi[$1+5]
+define	DATA_MIN	Memr[P2R($1+6)]
+define	DATA_MAX	Memr[P2R($1+7)]
+define	IPPS_ID		Memc[P2C($1+10)]