home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / bcpl / BCPL / alib / evheader < prev    next >
Encoding:
Text File  |  1985-07-11  |  697 b   |  37 lines
  1.  
  2. GLOBAL $( SetEventHandler:112 $)
  3.  
  4. MANIFEST
  5. $( ev.EscapeFlag    = -1;
  6.    ev.BufferEmpty    = 0;
  7.    ev.BufferFull    = 1;
  8.    ev.KB        = 2;
  9.    ev.ADCComplete    = 3;
  10.    ev.VSync        = 4;
  11.    ev.Timer        = 5;
  12.    ev.Escape        = 6;
  13.    ev.RS423Error    = 7;
  14.    ev.NetError        = 8;
  15.    ev.User        = 9;
  16.  
  17.    evh.Ignore        = 0;
  18.    evh.SetFlag        = 1;
  19.    evh.CallProc     = 2;
  20.    evh.Buffer        = 3;
  21.  
  22.    evb.Insertion    = 0;
  23.    evb.Extraction    = 1;
  24.    evb.BufferEnd    = 2;
  25.    evb.Buffer        = 3
  26. $)
  27.  
  28. //LET ExtractFromEventBuffer(b) = VALOF
  29. //$( LET p = b!evb.Extraction;
  30. //   IF p=b!evb.Insertion THEN RESULTIS FALSE;
  31. //   result2 := b!(evb.Buffer+p);
  32. //   p := p+1;
  33. //   IF p>b!evb.BufferEnd THEN p := 0;
  34. //   b!evb.Extraction := p
  35. //   RESULTIS TRUE
  36. //$)
  37.