
  PROCEDURE [XREF] cmp$clear_channel_interlock
    (    iou_number: dst$iou_number;
         logical_pp_number: iot$pp_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dst$iou_number
*copyc iot$pp_number
*copyc ost$status
?? POP ??
