unit Audio;

INTERFACE
uses Exec;


type
	pIOAudio = ^tIOAudio;
	tIOAudio = record
		ioa_Request: tIORequest;
		ioa_AllocKey: integer;
		ioa_Data: pbyte;
		ioa_Length: long;
		ioa_Period: word;
		ioa_Volume: word;
		ioa_Cycles: word;
		ioa_WriteMsg: tMessage;
		end;



const
	ADCMD_PERVOL = $C;
	ADIOB_NOWAIT = 6;
	ADALLOC_MINPREC = $FFFFFF80;
	ADCMD_WAITCYCLE = $E;
	ADIOF_NOWAIT = $40;
	ADALLOC_MAXPREC = $7F;
	ADIOB_PERVOL = 4;
	ADCMD_ALLOCATE = $20;
	ADIOF_PERVOL = $10;
	ADIOB_SYNCCYCLE = 5;
	ADCMD_FREE = 9;
	ADIOF_SYNCCYCLE = $20;
	ADCMD_LOCK = $D;
	ADIOB_WRITEMESSAGE = 7;
	ADIOF_WRITEMESSAGE = $80;
	AUDIONAME = 'audio.device';
	ADCMD_SETPREC = $A;
	ADIOERR_CHANNELSTOLEN = $FFFFFFF4;
	ADCMDB_NOUNIT = 5;
	ADCMDF_NOUNIT = $20;
	ADCMD_FINISH = $B;
	ADIOERR_ALLOCFAILED = $FFFFFFF5;
	ADHARD_CHANNELS = 4;
	ADIOERR_NOALLOCATION = $FFFFFFF6;


IMPLEMENTATION
end.