blob: 2ea3c9eb424c930c2856127ada01ef7416c24ce9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
# 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)
|
