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