  PROCEDURE [XREF] iip$xt_redirect_xterm_output
    (    working_storage_area: ^cell;
         working_storage_length: amt$working_storage_length;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$working_storage_length
*copyc ost$status
?? POP ??

