1 
  2 
  3      "BEGIN INCLUDE FILE mstr.incl.alm
  4 " Last modified November 1983 by Keith Loepere to add head_version.
  5 
  6 "
  7 "         Structure mstr
  8 "
  9 
 10           equ       mstr.head,0                   " LEVEL 2
 11 
 12 
 13           equ       mstr.data_word,8
 14           equ       mstr.data_shift,36
 15           bool      mstr.data_mask,000000
 16 
 17           equ       mstr.trail,0                  " LEVEL 2
 18 
 19 
 20 "
 21 "         Structure mst_label
 22 "
 23           equ       mst_label.xfer_vector,0       " LEVEL 2
 24 
 25           equ       mst_label.lda_instr,0
 26           equ       mst_label.tra_instr,1
 27           equ       mst_label.head,8              " LEVEL 2
 28 
 29           equ       mst_label.vid,16              " LEVEL 2
 30 
 31           equ       mst_label.fv_overlay,40       " LEVEL 2
 32 
 33           equ       mst_label.scu_instr,40
 34           equ       mst_label.dis_instr,41
 35           equ       mst_label.fault_data,104
 36           equ       mst_label.boot_pgm_path,112
 37           equ       mst_label.userid,154
 38           equ       mst_label.label_version,162
 39           equ       mst_label.output_mode,163
 40           equ       mst_label.boot_pgm_len,164
 41           equ       mst_label.copyright,165
 42           equ       mst_label.boot_pgm,192
 43           equ       mst_label.trail,0             " LEVEL 2
 44 
 45 
 46 "
 47 "         Structure mstr_header
 48 "
 49           equ       mstr_header_size,8
 50 
 51           equ       mstr_header.c1,0
 52           equ       mstr_header.uid,1             " DOUBLE
 53 
 54           equ       mstr_header.rec_within_file,3 " UPPER
 55           equ       mstr_header.phy_file,3        " LOWER
 56 
 57           equ       mstr_header.data_bits_used,4  " UPPER
 58           equ       mstr_header.data_bit_len,4    " LOWER
 59 
 60           equ       mstr_header.flags_word,5
 61           equ       mstr_header.flags_shift,9
 62           equ       mstr_header.admin_word,5
 63           bool      mstr_header.admin,400000      " DU
 64           equ       mstr_header.label_word,5
 65           bool      mstr_header.label,200000      " DU
 66           equ       mstr_header.eor_word,5
 67           bool      mstr_header.eor,100000        " DU
 68           equ       mstr_header.set_word,5
 69           bool      mstr_header.set,000010        " DU
 70           equ       mstr_header.repeat_word,5
 71           bool      mstr_header.repeat,000004     " DU
 72           equ       mstr_header.eot_word,5
 73           bool      mstr_header.eot,000001        " DU
 74           equ       mstr_header.drain_word,5
 75           bool      mstr_header.drain,400000      " DL
 76           equ       mstr_header.continue_word,5
 77           bool      mstr_header.continue,200000   " DL
 78           equ       mstr_header.head_version_word,5
 79           equ       mstr_header.head_version_shift,9
 80           bool      mstr_header.head_version_mask,7000
 81           equ       mstr_header.repeat_count_word,5
 82           equ       mstr_header.repeat_count_shift,0
 83           bool      mstr_header.repeat_count_mask,000777
 84 
 85           equ       mstr_header.checksum,6
 86           equ       mstr_header.c2,7
 87 
 88 "
 89 "         Structure mstr_trailer
 90 "
 91           equ       mstr_trailer_size,8
 92 
 93           equ       mstr_trailer.c1,0
 94           equ       mstr_trailer.uid,1            " DOUBLE
 95 
 96           equ       mstr_trailer.tot_data_bits_word,3
 97 "         equ       mstr_trailer.tot_data_bits_shift,0
 98 
 99           equ       mstr_trailer.reel_num_word,5
100           equ       mstr_trailer.reel_num_shift,24
101           bool      mstr_trailer.reel_num_mask,007777
102           equ       mstr_trailer.tot_file_word,5
103           equ       mstr_trailer.tot_file_shift,0
104 
105           equ       mstr_trailer.tot_rec_word,6
106           equ       mstr_trailer.tot_rec_shift,0
107 
108           equ       mstr_trailer.c2,7
109 
110 "
111 "         Structure volume_identifier
112 "
113           equ       volume_identifier_size,24
114 
115 "         equ       volume_identifier.installation_id,0
116           equ       volume_identifier.tape_reel_id,8
117           equ       volume_identifier.volume_set_id,16
118 
119           bool      header_c1,670314355245        " MANIFEST
120           bool      header_c2,512556146073        " MANIFEST
121           bool      trailer_c1,107463422532       " MANIFEST
122           bool      trailer_c2,265221631704       " MANIFEST
123 
124           equ       LABEL_VERSION,3               " MANIFEST
125 
126      "END INCLUDE FILE mstr.incl.alm