/*
 *  SHEL_GET					(C) Digital Design 1991
 *
 *  Dient zum Lesen von Zeichen (max. 1024) aus dem GEM-internen
 *  Environment-Speicher.
 */
#include <gemdefs.h>

int shel_get( char *sh_gaddr, int sh_glen )
{
  addrin[0] = sh_gaddr;  /* Anfangsadresse des Zielspeichers.		*/
  intin[0] = sh_glen;	 /* Anzahl der zu lesenden Bytes.		*/

  AES( 122, 1, 1, 1, 0 );

  return intout[0]; /* = sh_greturn: 0 = Fehler.			*/
}