
  PROCEDURE [XREF] lop$add_local_block_id (module_name: pmt$program_name;
        section_ordinal: llt$section_ordinal;
        procedure_name: pmt$program_name;
    VAR block_id: pmt$block_identifier);
?? PUSH (LISTEXT := ON) ??
*copyc OSD$VIRTUAL_ADDRESS
?? POP ??
