Скачать SoundBlaster Unit for Creative Lab's CT-VOICE.DRV

09.02.1991
Скачать файл (4,25 Кб)

CTDEMO.PAS, by Markus Saukkonen 1991. TДtД lДhdekoodia saa levittДД vapaasti, mutta vain CT_VOICE.PAS:n mukana.
CTDEMO on yksinkertainen esimerkki CT_VOICE-unitin kДytФstД Sound Blasterin ohjaamiseen. Ohjelma lukee .VOC-tiedostoja ja soittaa ne. Latausosa on hieman monimutkainen, koska .VOC-tiedostossa voi olla rajoittamaton mДДrД erimittaisia datablokkeja (CTDEMO ei ymmДrrД eri blokkityyppejД, se vain soittaa ne kertaalleen lДpi). Tiedot luetaan levyltД vuorotellen kahteen puskuriin, tyylinД "toiseen ladataan - toista soitetaan".

procedure getversion(var major, minor: byte);
   procedure setioaddress(address: word);
   procedure setinterrupt(int: word);
   function initializedriver:byte;
   procedure speaker(status: byte);
   procedure setstatusaddress(address: pointer);
   procedure playsample(address: pointer);
   procedure inputsample(address: pointer; speed: word; length: longint);
   procedure stopvoice;
   procedure uninstalldriver;
   function pausevoice: byte;
   function continuevoice: byte;
   function breakloop(when: word): byte;
   procedure setuserfunction(address: pointer);
................