
  PROCEDURE [XREF] bap$get_segment_pointer
    (    file_identifier: amt$file_identifier;
         call_block: amt$call_block;
         fap_layer_number: amt$fap_layer_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$call_block
*copyc amt$fap_layer_number
*copyc amt$fap_pointer
?? POP ??
