
  PROCEDURE [XREF] iop$write_unlock_tusl_entry
    (    write_entry: boolean;
         tusl_ordinal: iot$tusl_ordinal;
         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 ??

