
{ DECK: IOT$WIRED_TAPE_TABLES


  TYPE
    iot$wired_tape_tables = ARRAY [1 .. ioc$max_multiple_tape_requests] OF
          iot$wired_tape_table_entry;

  TYPE
    iot$wired_tape_table_entry = RECORD
      slot_in_use: boolean,
      io_request_p: ^iot$io_request,
      wired_tape_request_p: ^iot$wired_tape_request,
      request_block_p: ^iot$tape_request_block,
    RECEND;

?? PUSH(LISTEXT := ON) ??
*copyc iot$io_request
*copyc iot$tape_collected_pp_response
*copyc iot$tape_request_block
?? POP ??

