137 lines
2.8 KiB
C
137 lines
2.8 KiB
C
|
/*++
|
|||
|
|
|
|||
|
|
Copyright (c) 1992, 1993 Digital Equipment Corporation
|
|||
|
|
|
|||
|
|
Module Name:
|
|||
|
|
|
|||
|
|
pcspeakr.c
|
|||
|
|
|
|||
|
|
Abstract:
|
|||
|
|
|
|||
|
|
This module implements the HAL speaker "beep" routines for the
|
|||
|
|
Alpha system that use the standard PC speaker driven by an interval
|
|||
|
|
timer.
|
|||
|
|
|
|||
|
|
Author:
|
|||
|
|
|
|||
|
|
Jeff McLeman (mcleman) 23-Jun-1992
|
|||
|
|
|
|||
|
|
Environment:
|
|||
|
|
|
|||
|
|
Kernel mode
|
|||
|
|
|
|||
|
|
Revision History:
|
|||
|
|
|
|||
|
|
--*/
|
|||
|
|
|
|||
|
|
#include "halp.h"
|
|||
|
|
#include "eisa.h"
|
|||
|
|
|
|||
|
|
|
|||
|
|
BOOLEAN
|
|||
|
|
HalMakeBeep(
|
|||
|
|
IN ULONG Frequency
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
/*++
|
|||
|
|
|
|||
|
|
Routine Description:
|
|||
|
|
|
|||
|
|
This function sets the frequency of the speaker, causing it to sound a
|
|||
|
|
tone. The tone will sound until the speaker is explicitly turned off,
|
|||
|
|
so the driver is responsible for controlling the duration of the tone.
|
|||
|
|
|
|||
|
|
Arguments:
|
|||
|
|
|
|||
|
|
Frequency - Supplies the frequency of the desired tone. A frequency of
|
|||
|
|
0 means the speaker should be shut off.
|
|||
|
|
|
|||
|
|
Return Value:
|
|||
|
|
|
|||
|
|
TRUE - Operation was successful (frequency within range or zero).
|
|||
|
|
FALSE - Operation was unsuccessful (frequency was out of range).
|
|||
|
|
Current tone (if any) is unchanged.
|
|||
|
|
|
|||
|
|
--*/
|
|||
|
|
|
|||
|
|
{
|
|||
|
|
KIRQL oldIrql;
|
|||
|
|
NMI_STATUS NmiStatus;
|
|||
|
|
PEISA_CONTROL controlBase;
|
|||
|
|
TIMER_CONTROL timerControl;
|
|||
|
|
ULONG newCount;
|
|||
|
|
|
|||
|
|
controlBase = HalpEisaControlBase;
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Raise the IRQL to dispatch level and acquire the beep spinlock.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
KeAcquireSpinLock(&HalpBeepLock, &oldIrql);
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Stop the speaker.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
*((PUCHAR) &NmiStatus) = READ_PORT_UCHAR(&controlBase->NmiStatus);
|
|||
|
|
|
|||
|
|
NmiStatus.SpeakerGate = 0;
|
|||
|
|
NmiStatus.SpeakerData = 0;
|
|||
|
|
|
|||
|
|
WRITE_PORT_UCHAR(&controlBase->NmiStatus, *((PUCHAR) &NmiStatus));
|
|||
|
|
|
|||
|
|
if (Frequency == 0) {
|
|||
|
|
KeReleaseSpinLock(&HalpBeepLock, oldIrql);
|
|||
|
|
return(TRUE);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Calculate the new counter value.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
newCount = TIMER_CLOCK_IN / Frequency;
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// The new count must be less than 16 bits in value.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
if (newCount >= 0x10000) {
|
|||
|
|
KeReleaseSpinLock(&HalpBeepLock, oldIrql);
|
|||
|
|
return(FALSE);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Set the speaker timer to the correct mode.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
timerControl.BcdMode = 0;
|
|||
|
|
timerControl.Mode = TM_SQUARE_WAVE;
|
|||
|
|
timerControl.SelectByte = SB_LSB_THEN_MSB;
|
|||
|
|
timerControl.SelectCounter = SELECT_COUNTER_2;
|
|||
|
|
|
|||
|
|
WRITE_PORT_UCHAR(&controlBase->CommandMode1, *((PUCHAR) &timerControl));
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Set the speaker timer to the correct mode.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
WRITE_PORT_UCHAR(&controlBase->SpeakerTone, (UCHAR)newCount);
|
|||
|
|
WRITE_PORT_UCHAR(&controlBase->SpeakerTone, (UCHAR)(newCount >> 8));
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Start the speaker.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
NmiStatus.SpeakerGate = 1;
|
|||
|
|
NmiStatus.SpeakerData = 1;
|
|||
|
|
|
|||
|
|
WRITE_PORT_UCHAR(&controlBase->NmiStatus, *((PUCHAR) &NmiStatus));
|
|||
|
|
|
|||
|
|
//
|
|||
|
|
// Release the beep spinlock and restore the IRQL.
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
KeReleaseSpinLock(&HalpBeepLock, oldIrql);
|
|||
|
|
return(TRUE);
|
|||
|
|
}
|