{ DECK: IOT$TAPE_POSITION

 TYPE
   tape_position = (ioc$tape_at_loadpoint_position, ioc$tape_not_loadpoint_position,
                    ioc$tape_position_unknown),

   unit_type_selector = (ioc$reel_to_reel, ioc$cartridge),

   iot$tape_position = RECORD
      tape_position: tape_position,
      blocks_from_loadpoint: INTEGER,
      tapemarks_from_loadpoint: INTEGER,
      CASE unit_type: unit_type_selector OF
      = ioc$reel_to_reel =
        historical_bid_index: iot$bid_index,
        historical_bid_window: iot$bid_window,
      = ioc$cartridge =
        last_good_bid: iot$cartridge_tape_bid,
      CASEND
   RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc iot$tape_block_id_area
?? POP ??

