home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Audio.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  828 b   |  49 lines
  1. unit Audio;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pIOAudio = ^tIOAudio;
  9.     tIOAudio = record
  10.         ioa_Request: tIORequest;
  11.         ioa_AllocKey: integer;
  12.         ioa_Data: pbyte;
  13.         ioa_Length: long;
  14.         ioa_Period: word;
  15.         ioa_Volume: word;
  16.         ioa_Cycles: word;
  17.         ioa_WriteMsg: tMessage;
  18.         end;
  19.  
  20.  
  21.  
  22. const
  23.     ADCMD_PERVOL = $C;
  24.     ADIOB_NOWAIT = 6;
  25.     ADALLOC_MINPREC = $FFFFFF80;
  26.     ADCMD_WAITCYCLE = $E;
  27.     ADIOF_NOWAIT = $40;
  28.     ADALLOC_MAXPREC = $7F;
  29.     ADIOB_PERVOL = 4;
  30.     ADCMD_ALLOCATE = $20;
  31.     ADIOF_PERVOL = $10;
  32.     ADIOB_SYNCCYCLE = 5;
  33.     ADCMD_FREE = 9;
  34.     ADIOF_SYNCCYCLE = $20;
  35.     ADCMD_LOCK = $D;
  36.     ADIOB_WRITEMESSAGE = 7;
  37.     ADIOF_WRITEMESSAGE = $80;
  38.     AUDIONAME = 'audio.device';
  39.     ADCMD_SETPREC = $A;
  40.     ADIOERR_CHANNELSTOLEN = $FFFFFFF4;
  41.     ADCMD_FINISH = $B;
  42.     ADIOERR_ALLOCFAILED = $FFFFFFF5;
  43.     ADHARD_CHANNELS = 4;
  44.     ADIOERR_NOALLOCATION = $FFFFFFF6;
  45.  
  46.  
  47. IMPLEMENTATION
  48. end.
  49.