blob: 9579b6234c51099965b37daea12902479993f1d3 (
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
|
# 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)]
|
