home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / digpak / sbthere.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-12  |  543 b   |  40 lines
  1. PROGRAM SBTHERE;
  2.  
  3. USES STRINGS;
  4.  
  5. LABEL 
  6.   TheEnd;
  7.  
  8. {$L SBDETECT.OBJ}
  9.  
  10.  
  11. PROCEDURE DetectBlaster(Var IRQ: Word;VAR PortBase : Word); EXTERNAL;
  12.     
  13. VAR 
  14.   ThePort,TheIrq : Word;
  15.  
  16.  
  17. BEGIN
  18.  
  19.   DetectBlaster(TheIRQ,ThePort); 
  20.   ASM 
  21.    add sp,8 
  22.    CMP AX,0
  23.    JE  TheEnd;
  24.   end;
  25.  
  26.      BEGIN
  27.        WriteLn('SoundBlaster Detected');
  28.  
  29.  
  30.        WriteLn('Port Address ',Hex(ThePort),'h');
  31.        WriteLn('IRQ:         ',TheIrq);
  32.        Halt(0);
  33.      END;
  34. TheEnd:  
  35.     WriteLn('No Sound Blaster Detected');
  36.  
  37. END.
  38.  
  39.  
  40.