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

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