 PROCEDURE [XREF] syp$advised_move_bytes (source: ^cell;
        destination: ^cell;
        length: integer;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc ost$status
?? POP ??
