1 {
2     This file is part of the Free Pascal run time library.
3 
4     A file in Amiga system run time library.
5     Copyright (c) 1998-2003 by Nils Sjoholm
6     member of the Amiga RTL development team.
7 
8     See the file COPYING.FPC, included in this distribution,
9     for details about the copyright.
10 
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14 
15  **********************************************************************}
16 
17 {
18     History:
19 
20     Changed integer > smallint.
21     09 Feb 2003.
22 
23     nils.sjoholm@mailbox.swipnet.se
24 }
25 
26 unit audio;
27 
28 INTERFACE
29 
30 uses exec;
31 
32 const
33 
34     AUDIONAME           : PChar = 'audio.device';
35 
36     ADHARD_CHANNELS     = 4;
37 
38     ADALLOC_MINPREC     = -128;
39     ADALLOC_MAXPREC     = 127;
40 
41     ADCMD_FREE          = CMD_NONSTD + 0;
42     ADCMD_SETPREC       = CMD_NONSTD + 1;
43     ADCMD_FINISH        = CMD_NONSTD + 2;
44     ADCMD_PERVOL        = CMD_NONSTD + 3;
45     ADCMD_LOCK          = CMD_NONSTD + 4;
46     ADCMD_WAITCYCLE     = CMD_NONSTD + 5;
47     ADCMDB_NOUNIT       = 5;
48     ADCMDF_NOUNIT       = 32;
49     ADCMD_ALLOCATE      = ADCMDF_NOUNIT + 0;
50 
51     ADIOB_PERVOL        = 4;
52     ADIOF_PERVOL        = 16;
53     ADIOB_SYNCCYCLE     = 5;
54     ADIOF_SYNCCYCLE     = 32;
55     ADIOB_NOWAIT        = 6;
56     ADIOF_NOWAIT        = 64;
57     ADIOB_WRITEMESSAGE  = 7;
58     ADIOF_WRITEMESSAGE  = 128;
59 
60     ADIOERR_NOALLOCATION        = -10;
61     ADIOERR_ALLOCFAILED         = -11;
62     ADIOERR_CHANNELSTOLEN       = -12;
63 
64 type
65     pIOAudio = ^tIOAudio;
66     tIOAudio = record
67         ioa_Request     : tIORequest;
68         ioa_AllocKey    : smallint;
69         ioa_Data        : Pointer;
70         ioa_Length      : ULONG;
71         ioa_Period      : Word;
72         ioa_Volume      : Word;
73         ioa_Cycles      : Word;
74         ioa_WriteMsg    : tMessage;
75     end;
76 
77 IMPLEMENTATION
78 
79 end.
80