1 /* Begin include file ... track_header_info.incl.pl1 */
 2 /* Created 11/79 by Michael R. Jordan to describe format data for new style format command */
 3 
 4 dcl  thi_ptr ptr;
 5 dcl  thi_version_1 fixed bin static options (constant) init (1);
 6 
 7 dcl 1 thi aligned based (thi_ptr),
 8     2 version fixed bin,
 9     2 msu4xx_info aligned,
10       3 cyl fixed bin (16) unsigned unal,
11       3 head fixed bin (16) unsigned unal,
12       3 pad1 bit (2) unal,
13       3 ti fixed bin (2) unsigned unal,
14       3 pad2 bit (4) unal,
15       3 flag_byte bit (8) unal,
16       3 alt_cyl fixed bin (16) unsigned unal,
17       3 alt_head fixed bin (16) unsigned unal,
18       3 alt_rec fixed bin (8) unsigned unal,
19       3 pad3 bit (128) unal,
20     2 msu5xx_info aligned,
21       3 c0 unal,
22         4 flags unal,
23           5 large_records bit (1) unal,
24           5 honeywell_formatted bit (1) unal,
25           5 format_complete bit (1) unal,
26           5 pad bit (2) unal,
27           5 log_track bit (1) unal,
28           5 ti fixed bin (2) unsigned unal,
29         4 cyl_lower fixed bin (8) unsigned unal,
30         4 cyl_upper fixed bin (2) unsigned unal,
31         4 head fixed bin (6) unsigned unal,
32         4 rec fixed bin (8) unsigned unal,
33         4 skip (1:2) unal,
34           5 used bit (1) unal,
35           5 gap_following_count bit (1) unal,
36           5 gap_following_data bit (1) unal,
37           5 gap_between_index_and_c0 bit (1) unal,
38           5 displacement fixed bin (12) unsigned unal,
39         4 alt_cyl_lower fixed bin (8) unsigned unal,
40         4 alt_cyl_upper fixed bin (2) unsigned unal,
41         4 alt_head fixed bin (6) unsigned unal,
42         4 t_skip (1:3) unal,
43           5 hex_80 bit (8) unal,
44           5 distance fixed bin (8) unsigned unal,
45         4 pad4 bit (8) unal,
46         4 cf bit (8) unal,
47       3 c (1:39) unal,
48         4 flags unal,
49           5 large_records bit (1) unal,
50           5 honeywell_formatted bit (1) unal,
51           5 format_complete bit (1) unal,
52           5 pad bit (2) unal,
53           5 log_track bit (1) unal,
54           5 ti fixed bin (2) unsigned unal,
55         4 cyl_lower fixed bin (8) unsigned unal,
56         4 cyl_upper fixed bin (2) unsigned unal,
57         4 head fixed bin (6) unsigned unal,
58         4 rec fixed bin (8) unsigned unal,
59         4 skip (1:2) unal,
60           5 used bit (1) unal,
61           5 gap_following_count bit (1) unal,
62           5 gap_following_data bit (1) unal,
63           5 pad bit (1) unal,
64           5 displacement fixed bin (12) unsigned unal,
65         4 cf bit (8) unal;
66 
67 /* End include file ... track_header_info.incl.pl1 */