home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tools / falc_uti / dsp_tool / source / dsp_sin1.pas next >
Encoding:
Pascal/Delphi Source File  |  1995-11-25  |  785 b   |  38 lines
  1. {------ Erzeugen eines Sinustons mit dem DSP -------------}
  2.  
  3. { Version mit dazugelinktem DSP-Programm }
  4.  
  5. program dsp_sin1;
  6. uses tos,dsp;
  7.  
  8.  
  9. var kennung :word;
  10.     buffer :^longint;
  11.     lng :longint;
  12.     
  13. procedure dsp_sinus; external;
  14.  
  15. {$L C:\DSP_TOOL\LODS\SINUS.O }  {Linken des DSP-Programms}
  16.     
  17. begin
  18.     locksnd;
  19.     if dsp_init=FALSE then exit;  {Funktion der Unit DSP}
  20.  
  21.     dsptristate(1,1);             {Soundsystem einrichten}
  22.     setmode(1);
  23.     settracks(0,0);
  24.     soundcmd(4,3);
  25.     devconnect(1,8,0,1,1);
  26.     kennung:=Dsp_RequestUniqueAbility;
  27.     dsp_reserve(200,200);
  28.     
  29.     buffer:=@dsp_sinus;
  30.     
  31.     lng:=buffer^;
  32.     buffer:=pointer(longint(buffer)+4);
  33.     
  34.     dsp_execprog(buffer,lng,kennung); {DSP-Programm ausführen}
  35.      
  36.     dsp_exit;            {Funktion der Unit DSP}
  37.     unlocksnd;
  38. end.