/*
 *  RSRC_SADDR                                  (C) Digital Design 1990
 *
 *  Die Adresse einer Datenstruktur wird in einer objektspezifischen
 *  Datenstruktur gespeichert.
 */
#include <gemdefs.h>

int rsrc_saddr( int re_stype, int re_sindex, void *saddr )
{
  intin[0] = re_stype; /* Art der Datenstruktur, deren Adresse gespei-  *
                        * chert werden soll. Die Werte sind die         *
                        * gleichen wie bei İRSRC_GADDRİRSRC_GAD.Cİ.                  */
  intin[1] = re_sindex; /* der Index des Objektes mit der zu ver„ndern- *
                         * den Datenstruktur.                           */
  addrin[0] = saddr; /* Adresse der Datenstruktur                       */

  AES( 113, 2, 1, 1, 0 );

  return intout[0]; /* = re_sreturn: positiv bei Erfolg, 0 bei Fehler   */
}