/*
 *  APPL_WRITE                                  (C) Digital Design 1990
 *
 *  In einen Ereignispuffer wird eine bestimmte Anzahl von Bytes
 *  geschrieben.
 */
#include <gemdefs.h>

int appl_write( int ap_wid, int ap_wlength, void *ap_wpbuff )
{
  intin[0] = ap_wid; /* Identifikationsnummer der Applikation, f�r die  *
                      * der Ereignispuffer beschrieben wird (im allge-  *
                      * meinen eine andere, parallel arbeitende Appli-  *
                      * kation, die durch diesen Befehl eine            *
                      * Information erhalten soll).                     */
  intin[1] = ap_wlength; /* Die Anzahl der Bytes, die geschrieben       *
                          * werden sollen.                              */
  addrin[0] = ap_wpbuff; /* Adresse des Puffers, der die zu             *
                          * schreibenden Bytes enth„lt.                 */
  AES( 12, 2, 1, 1, 0 );

  return intout[0]; /* = ap_wreturn, positiv bei Erfolg, 0 bei Fehler.  */
}
/* siehe auch: İAPPL_READİAPPL_REA.Cİ */