
     PROCEDURE [XREF] cmp$check_initiated_io_status (
                 io_status_p: ^cmt$subsystem_io_status;
             VAR index: integer;
             VAR status: ost$status);

??PUSH (LISTEXT :=ON)??
*copyc cmt$subsystem_io_status
*copyc ost$status
??POP??
