  PROCEDURE [XREF] pup$fetch_current_volume
    (    backup_file_id: put$file_identifier;
     VAR volume_number: amt$volume_number;
     VAR volume_description: rmt$volume_descriptor;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status

*copyc amc$max_vol_number
*copyc amt$error_count

*copyc amt$skip_count
*copyc amt$skip_direction
*copyc amt$skip_unit
*copyc amt$tape_mark_count
*copyc amt$file_byte_address
*copyc amt$last_op_status
*copyc amt$residual_skip_count
*copyc amt$volume_number
*copyc put$file_identifier
*copyc rmt$volume_descriptor
?? POP ??
