0
FM-Sound-Blaster-Sound (in groben zügen):
Der Zauberleerling
Listings
uses crt;

const KEYON	 = $20;

      FMP        = 8;
      PROFM1P    = 0;

      PROFM2P    = 2;


      LEFT       = $20;
      RIGHT	 = $10;



var   IOport : integer;

Procedure FMoutput(ioport, reg, val : integer);
begin
   port[ioport]:= reg;
   delay(1);
   port[ioport+1]:= val;
end;

Procedure fm(reg, val : integer);
begin
   FMoutput(IOport+FMP, reg, val);
end;


Procedure Profm1(reg, val : integer);
begin
   FMoutput(IOport+PROFM1p, reg, val);
end;


Procedure Profm2(reg, val : integer);
begin
   FMoutput(IOport+PROFM2p, reg, val);
end;

Begin
ioport:=$220; {Der Port der Soundkarte muá 
angegeben werden!}

fm(1,0);
Profm2(5, 1);
fm($C0,LEFT+RIGHT+1);

fm($23,$21);

fm($43, $0);

fm($63,255); {Attack  16 langsam - 255 schnell : 
Fadein   des Tons}
fm($83,15);  {Release 0  langsam - 15  schnell : 
Fadeout  des Tons}

fm($20,$20);
fm($40,$3f); { ???    0  unklar  - 63  klar    : 
Klarheit des Tons}
fm($60,$44);
fm($80,$05);

fm($A0,255);
fm($b0,63);  { Octave? 32=Minimum 63=Maximum}
repeat until keypressed;
fm($b0,$12);

Profm2(5, 0);
end.