149 lines
2.2 KiB
C
149 lines
2.2 KiB
C
#if defined(JENSEN)
|
||
|
||
/*++
|
||
|
||
Copyright (c) 1991 Microsoft Corporation
|
||
Copyright (c) 1992 Digital Equipment Corporation
|
||
|
||
Module Name:
|
||
|
||
jxcalstl.c
|
||
|
||
Abstract:
|
||
|
||
|
||
This module implements the calibration of the stall execution HAL
|
||
service, computes the count rate for the profile clock, and connects
|
||
the clock and profile interrupts for an Alpha/Jensen system.
|
||
|
||
Author:
|
||
|
||
David N. Cutler (davec) 26-Apr-1991
|
||
Jeff McLeman (mcleman) 09-Jun-1992
|
||
|
||
Environment:
|
||
|
||
Kernel mode only.
|
||
|
||
Revision History:
|
||
|
||
Jeff McLeman 09-Jun-92
|
||
Make a Alpha/Jensen specific version of this file.
|
||
|
||
--*/
|
||
|
||
#include "halp.h"
|
||
#include "stdio.h"
|
||
#include "jnsndef.h"
|
||
#include "jnsnrtc.h"
|
||
|
||
|
||
|
||
BOOLEAN
|
||
HalpCalibrateStall (
|
||
VOID
|
||
)
|
||
|
||
/*++
|
||
|
||
Routine Description:
|
||
|
||
This function calibrates the stall execution HAL service and connects
|
||
the clock and profile interrupts to the appropriate NT service routines.
|
||
|
||
Arguments:
|
||
|
||
None.
|
||
|
||
Return Value:
|
||
|
||
A value of TRUE is returned if the calibration is successfully
|
||
completed. Otherwise a value of FALSE is returned.
|
||
|
||
--*/
|
||
|
||
{
|
||
|
||
CHAR Buffer[128];
|
||
ULONG Index;
|
||
KIRQL OldIrql;
|
||
|
||
//
|
||
// Set the time increment value and connect the real clock interrupt
|
||
// routine.
|
||
//
|
||
|
||
PCR->InterruptRoutine[CLOCK2_LEVEL] = HalpClockInterrupt;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
VOID
|
||
KeStallExecutionProcessor (
|
||
IN ULONG MicroSeconds
|
||
)
|
||
|
||
/*++
|
||
|
||
Routine Description:
|
||
|
||
This function stalls execution of the current processor for the specified
|
||
number of microseconds.
|
||
|
||
Arguments:
|
||
|
||
MicroSeconds - Supplies the number of microseconds that execution is to
|
||
be stalled.
|
||
|
||
Return Value:
|
||
|
||
None.
|
||
|
||
--*/
|
||
|
||
{
|
||
HalpStallExecution(MicroSeconds);
|
||
return;
|
||
}
|
||
|
||
VOID
|
||
HalpStallInterrupt (
|
||
VOID
|
||
)
|
||
|
||
/*++
|
||
|
||
Routine Description:
|
||
|
||
This function serves as the stall calibration interrupt service
|
||
routine. It is executed in response to system clock interrupts
|
||
during the initialization of the HAL layer.
|
||
|
||
Arguments:
|
||
|
||
None.
|
||
|
||
Return Value:
|
||
|
||
None.
|
||
|
||
--*/
|
||
|
||
{
|
||
|
||
UCHAR data;
|
||
|
||
//
|
||
// Acknowledge the clock interrupt.
|
||
//
|
||
|
||
|
||
HalpWriteVti( RTC_APORT, RTC_CONTROL_REGISTERC );
|
||
data = HalpReadVti( RTC_DPORT );
|
||
|
||
|
||
return;
|
||
}
|
||
|
||
#endif
|