
  PROCEDURE [XREF] cmp$lcu_process_state_change
    (    tape_element: boolean;
         system_caller: boolean;
         element_descriptor: cmt$element_descriptor;
         system_critical_element: boolean;
         current_element_state: cmt$element_state;
         new_element_state: cmt$element_state;
     VAR lock_control: cmt$lcu_lock_control;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_descriptor
*copyc cmt$element_state
*copyc cmt$lcu_lock_control
*copyc ost$status
*copyc ost$wait
?? POP ??
