
{* cyp$get_binary_file_pointer *}

  PROCEDURE [XREF] cyp$get_binary_file_pointer (file: cyt$file;
    VAR binary_file_pointer: ^amt$segment_pointer;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cyt$file
*copyc amt$segment_pointer
*copyc ost$status
?? POP ??
