
  PROCEDURE [XREF] iop$down_disk_controller
    (    pp: iot$pp_number;
         channel: cmt$physical_channel;
         equipment: cmt$physical_equipment_number;
     VAR status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$physical_channel
*copyc cmt$physical_equipment_number
*copyc iot$pp_number
*copyc syt$monitor_status
?? POP ??
