/*
 *  SHEL_PUT					(C) Digital Design 1991
 *
 *  Schreibt eine gegebene Anzahl von Zeichen (max. 1024)
 *  in den GEM-internen Environment-Speicher.
 */
#include <gemdefs.h>

int shel_put( char *sh_paddr, int sh_plen )
{
  addrin[0] = sh_paddr;  /* Anfangsadresse des Buffers mit den Zeichen. */
  intin[0] = sh_plen;	 /* Anzahl der zu schreibenden Bytes.		*/

  AES( 123, 1, 1, 1, 0 );

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