?? NEWTITLE := '~~~~~   common deck DSP$C170_ACCESS_TO_SSR', EJECT ??
{}
{ssr access XREF's, deck DSP$C170_ACCESS_TO_SSR}
{}

  PROCEDURE [XREF] find_ssr_entry ALIAS 'dspfind' (name: string (4);
    VAR ssr_offset: integer);

  PROCEDURE [XREF] set_ssr_directory_entry ALIAS 'dspsets' (ssr_offset:
    integer;
        new_left: 0 .. 0ffff(16);
        new_right: 0 .. 0ffff(16));

  PROCEDURE [XREF] get_ssr_directory_entry ALIAS 'dspgets' (ssr_offset:
    integer;
    VAR old_left: integer;
    VAR old_right: integer);

*copyc dsc$ssr_entry_constants
?? OLDTITLE ??
