home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tools / falc_uti / dsp_tool / source / dsp_sin2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-25  |  791 b   |  36 lines
  1.  
  2. {------ Erzeugen eines Sinustons mit dem DSP --------------}
  3.  
  4. { Version mit LOD-Datei }
  5.  
  6. program dsp_sin2;
  7. uses tos,dsp;
  8.  
  9.  
  10. var kennung :word;
  11.     buffer :^longint;
  12.     
  13. begin
  14.     locksnd;
  15.     if dsp_init=FALSE then exit;   {Funktion der Unit DSP}
  16.     
  17.     dsptristate(1,1);              {Soundsystem einrichten }
  18.     setmode(1);
  19.     settracks(0,0);
  20.     soundcmd(4,3);
  21.     devconnect(1,8,0,1,1);
  22.     kennung:=Dsp_RequestUniqueAbility;
  23.     dsp_reserve(200,200);
  24.       
  25.     buffer:=malloc(2000);      {Puffer für DSP-Programm einrichten}
  26.     
  27.   if dsp_loadprog('C:\DSP_TOOL\LODS\SINUS.LOD',kennung,buffer)=-1 then begin
  28.         writeln('Fehler beim Laden');
  29.         unlocksnd;
  30.         exit;
  31.     end;
  32.     
  33.     dsp_exit;                     {Funktion der Unit DSP}
  34.     mfree(buffer);                {Puffer freigeben }
  35.     unlocksnd;
  36. end.