
  PROCEDURE [XREF] iop$read_lock_tusl_entry
    (    tusl_ordinal: iot$tusl_ordinal;
     VAR tape_unit_status_entry: iot$tape_unit_status_entry;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc iot$tape_unit_status_entry
*copyc iot$tusl_ordinal
*copyc ost$status
?? POP ??

