🚀 go-pugleaf

"Tom Jackson" <tjax@comcast.net> wrote in message
news:42320e6a@newsgroups.borland.com...

> I am trying to write a simple sound routine to the built in PC Speaker.
> This is for experimental and learning purposes. I must figure out how
> to talk to the driver. Can you point me in the right direction?

You don't need to access a driver for that.  In WinNT/2K/XP/2K3, use the
Beep() function.  In Win9x/Me, you can gain access to the PC speaker via
inline assembly.  For example:

    #pragma inline

    BYTE inp(WORD Port)
    {
        asm
        {
            mov dx, Port
            in al, dx
        }

    void outp(WORD Port, BYTE Value)
    {
        asm
        {
            mov dx, Port
            mov al, Value
            out dx, al
        }
    }

    void setfreq(WORD Hz)
    {
        Hz = 1193180 / Hz; // clocked at 1.19MHz
        outp(0x43, 0xB6); // timer 2, square wave
        outp(0x42, Hz);
        outp(0x42, Hz >> 8);
    }

    void Sound(WORD Frequency, WORD Duration)
    {
        if( Win32Platform == VER_PLATFORM_WIN32_WINDOWS )
        {
            outp(0x61, inp(0x61) | 0x03);   // start speaker going
            setfreq(Frequency);
            ::Sleep(Duration);
            outp(0x61, inp(0x61) & ~0x03);  // stop that racket!
        }
        else if( Win32Platform == VER_PLATFORM_WIN32_NT )
            ::Beep(Frequency, Duration);
    }


Gambit