[Back to SOUND SWAG index] [Back to Main SWAG index] [Original]

    ===========================================================================
     BBS: Canada Remote Systems
    Date: 06-25-93 (17:55)             Number: 27742
    From: T.C. DOYLE                   Refer#: NONE
      To: ALL                           Recvd: NO
    Subj: Pascal Code How To Detect      Conf: (1221) F-PASCAL
    ---------------------------------------------------------------------------
     I found this in the shareware echo...hmm...wrong place:)
     So I decided to forward this message here:

     * Originally By: Mark Shadaram
     * Originally To: All
     * Originally Re: Pascal Code How To Detect Adlib Sound Card
     * Original Area: <FIDO> Shareware Forum
     * Forwarded by : Blue Wave v2.12

    { How to Detect Adlib Sound Card}
    { Coded By Mark Shadaram ( mark.shadaram@oubbs.telecom.uoknor.edu)}
    Procedure SetAdlib(Address, Data:Byte);  VAR X,I:Byte;
    BEGIN Port[$388]:=Address;
          for I:= 1 to 6 do X:=Port[$388];  {Delay}
          Port[$389]:=Data;
          for I:= 1 to 35 do X:=Port[$388]; {Delay}
    END;
    Function DetectAdlib:Boolean; VAR X,X2:Byte;
    BEGIN SetAdlib($4,$60);                  {Step 1}
          SetAdlib($4,$80);                  {Step 2}
          Delay(10);{Just to make sure!}
          X:=Port[$388];                     {Step 3}
          SetAdlib($2,$ff);                  {Step 4}
          SetAdlib($4,$21);                  {Step 5}
          Delay(10);{Just to make sure!}     {Step 6}
          X2:=Port[$388];                    {Step 7}
          SetAdlib($4,$60);                  {Step 8}
          SetAdlib($4,$80);
          X:= X AND $E0;                     {Step 9}
          X2:= X2 AND $E0;
          IF (X =$0) AND (X2 =$C0) THEN
          DetectAdlib:=TRUE ELSE DetectAdlib:=FALSE;
    END;

    -!- Tag 2.6e + FMail 0.94
     ! Origin: NightShift / Wichita Falls, TX (817)855-1526 (1:3805/13)

    --- GEcho/Telegard
     * Origin: Never mind the bollocks here's TEROX BBS (1:120/324.0)

[Back to SOUND SWAG index] [Back to Main SWAG index] [Original]