1 files changed, 377 insertions, 0 deletions

diff --git a/private/ntos/nthals/halr96b/mips/jxtime.c b/private/ntos/nthals/halr96b/mips/jxtime.c
new file mode 100644
index 000000000..5d9c29705
--- /dev/null
+++ b/private/ntos/nthals/halr96b/mips/jxtime.c
@@ -0,0 +1,377 @@
+// #pragma comment(exestr, "@(#) jxtime.c 1.1 95/09/28 15:41:57 nec")
+/*++
+
+Copyright (c) 1991  Microsoft Corporation
+
+Module Name:
+
+    jxtime.c
+
+Abstract:
+
+    This module implements the HAL set/query realtime clock routines for
+    a MIPS R3000 or R4000 Jazz system.
+
+Author:
+
+    David N. Cutler (davec) 5-May-1991
+
+Environment:
+
+    Kernel mode
+
+Revision History:
+
+    M0001	1994.9.9	kbnes!A.Kuriyama
+    
+    Modify for R94A
+
+    HalpReadClockRegister()  -  R94A use RTC Index register except EISA NmiEnable 
+                                register.
+    HalpWriteClockRegister() -  R94A use RTC Index register except EISA NmiEnable 
+                                register.
+
+    M0002	1994.10.8	kbnes!kuriyama(A)
+
+                HalpReadClockRegister()
+		      -add specify Read Data register
+                HalpWritelockRegister()
+		      -add specify Write Data register
+
+    M0003	1994.10.14	kbnes!kuriyama(A)
+
+                define error clear
+
+    M0004       1994.12.19      kbnes!kuriyama(A)
+
+                define miss fix
+--*/
+
+#include "halp.h"
+#include "jazzrtc.h"
+#include "eisa.h"
+
+
+//
+// Define forward referenced procedure prototypes.
+//
+
+UCHAR
+HalpReadClockRegister (
+    UCHAR Register
+    );
+
+VOID
+HalpWriteClockRegister (
+    UCHAR Register,
+    UCHAR Value
+    );
+
+BOOLEAN
+HalQueryRealTimeClock (
+    OUT PTIME_FIELDS TimeFields
+    )
+
+/*++
+
+Routine Description:
+
+    This routine queries the realtime clock.
+
+    N.B. This routine is required to provide any synchronization necessary
+         to query the realtime clock information.
+
+Arguments:
+
+    TimeFields - Supplies a pointer to a time structure that receives
+        the realtime clock information.
+
+Return Value:
+
+    If the power to the realtime clock has not failed, then the time
+    values are read from the realtime clock and a value of TRUE is
+    returned. Otherwise, a value of FALSE is returned.
+
+--*/
+
+{
+
+    UCHAR DataByte;
+    KIRQL OldIrql;
+
+    //
+    // If the realtime clock battery is still functioning, then read
+    // the realtime clock values, and return a function value of TRUE.
+    // Otherwise, return a function value of FALSE.
+    //
+
+    KeRaiseIrql(HIGH_LEVEL, &OldIrql);
+    DataByte = HalpReadClockRegister(RTC_CONTROL_REGISTERD);
+    if (((PRTC_CONTROL_REGISTER_D)(&DataByte))->ValidTime == 1) {
+
+        //
+        // Wait until the realtime clock is not being updated.
+        //
+
+        do {
+            DataByte = HalpReadClockRegister(RTC_CONTROL_REGISTERA);
+        } while (((PRTC_CONTROL_REGISTER_A)(&DataByte))->UpdateInProgress == 1);
+
+        //
+        // Read the realtime clock values.
+        //
+
+        TimeFields->Year = 1980 + (CSHORT)HalpReadClockRegister(RTC_YEAR);
+        TimeFields->Month = (CSHORT)HalpReadClockRegister(RTC_MONTH);
+        TimeFields->Day = (CSHORT)HalpReadClockRegister(RTC_DAY_OF_MONTH);
+        TimeFields->Weekday  = (CSHORT)HalpReadClockRegister(RTC_DAY_OF_WEEK) - 1;
+        TimeFields->Hour = (CSHORT)HalpReadClockRegister(RTC_HOUR);
+        TimeFields->Minute = (CSHORT)HalpReadClockRegister(RTC_MINUTE);
+        TimeFields->Second = (CSHORT)HalpReadClockRegister(RTC_SECOND);
+        TimeFields->Milliseconds = 0;
+        KeLowerIrql(OldIrql);
+        return TRUE;
+
+    } else {
+        KeLowerIrql(OldIrql);
+        return FALSE;
+    }
+}
+
+BOOLEAN
+HalSetRealTimeClock (
+    IN PTIME_FIELDS TimeFields
+    )
+
+/*++
+
+Routine Description:
+
+    This routine sets the realtime clock.
+
+    N.B. This routine is required to provide any synchronization necessary
+         to set the realtime clock information.
+
+Arguments:
+
+    TimeFields - Supplies a pointer to a time structure that specifies the
+        realtime clock information.
+
+Return Value:
+
+    If the power to the realtime clock has not failed, then the time
+    values are written to the realtime clock and a value of TRUE is
+    returned. Otherwise, a value of FALSE is returned.
+
+--*/
+
+{
+
+    UCHAR DataByte;
+    KIRQL OldIrql;
+
+    //
+    // If the realtime clock battery is still functioning, then write
+    // the realtime clock values, and return a function value of TRUE.
+    // Otherwise, return a function value of FALSE.
+    //
+
+    KeRaiseIrql(HIGH_LEVEL, &OldIrql);
+    DataByte = HalpReadClockRegister(RTC_CONTROL_REGISTERD);
+    if (((PRTC_CONTROL_REGISTER_D)(&DataByte))->ValidTime == 1) {
+
+        //
+        // Set the realtime clock control to set the time.
+        //
+
+        DataByte = 0;
+        ((PRTC_CONTROL_REGISTER_B)(&DataByte))->HoursFormat = 1;
+        ((PRTC_CONTROL_REGISTER_B)(&DataByte))->DataMode = 1;
+        ((PRTC_CONTROL_REGISTER_B)(&DataByte))->SetTime = 1;
+        HalpWriteClockRegister(RTC_CONTROL_REGISTERB, DataByte);
+
+        //
+        // Write the realtime clock values.
+        //
+
+        HalpWriteClockRegister(RTC_YEAR, (UCHAR)(TimeFields->Year - 1980));
+        HalpWriteClockRegister(RTC_MONTH, (UCHAR)TimeFields->Month);
+        HalpWriteClockRegister(RTC_DAY_OF_MONTH, (UCHAR)TimeFields->Day);
+        HalpWriteClockRegister(RTC_DAY_OF_WEEK, (UCHAR)(TimeFields->Weekday + 1));
+        HalpWriteClockRegister(RTC_HOUR, (UCHAR)TimeFields->Hour);
+        HalpWriteClockRegister(RTC_MINUTE, (UCHAR)TimeFields->Minute);
+        HalpWriteClockRegister(RTC_SECOND, (UCHAR)TimeFields->Second);
+
+        //
+        // Set the realtime clock control to update the time.
+        //
+
+        ((PRTC_CONTROL_REGISTER_B)(&DataByte))->SetTime = 0;
+        HalpWriteClockRegister(RTC_CONTROL_REGISTERB, DataByte);
+        KeLowerIrql(OldIrql);
+        return TRUE;
+
+    } else {
+        KeLowerIrql(OldIrql);
+        return FALSE;
+    }
+}
+
+UCHAR
+HalpReadClockRegister (
+    UCHAR Register
+    )
+
+/*++
+
+Routine Description:
+
+    This routine reads the specified realtime clock register.
+
+Arguments:
+
+    Register - Supplies the number of the register whose value is read.
+
+Return Value:
+
+    The value of the register is returned as the function value.
+
+--*/
+
+{
+
+/* start M0001 */
+#if defined(_R94A_)  /* M0003 */
+    // Insert the realtime clock register number, and write the value back
+    // to RTC Index register. This selects the realtime clock register
+    // that is read.  
+    //
+
+    WRITE_REGISTER_UCHAR(&((PRTC_REGISTERS) HalpRealTimeClockBase)->Index,
+                         Register);
+
+
+#else // _R94A_
+
+    //
+    // Insert the realtime clock register number, and write the value back
+    // to the EISA NMI enable register. This selects the realtime clock register
+    // that is read.  Note this is a write only register and the EISA NMI
+    // is always enabled.
+    //
+
+    //
+    // TEMPTEMP Disable NMI's for now because this is causing machines in the
+    // build lab to get NMI's during boot.
+    //
+
+    Register |= 0x80;
+
+
+    WRITE_REGISTER_UCHAR(&((PEISA_CONTROL) HalpEisaControlBase)->NmiEnable,
+                         Register);
+
+#endif // _R94A_
+/* end M0001 */
+
+    //
+    // Read the realtime clock register value.
+    //
+
+/* start M0002 */
+#if defined(_R94A_)  // M0004
+
+    return READ_REGISTER_UCHAR( &((PRTC_REGISTERS) HalpRealTimeClockBase)->Data);
+
+
+#else // _R94A_
+
+    return READ_REGISTER_UCHAR((PUCHAR)HalpRealTimeClockBase);
+
+#endif // _R94A_
+/* end M0002 */
+
+}
+
+VOID
+HalpWriteClockRegister (
+    UCHAR Register,
+    UCHAR Value
+    )
+
+/*++
+
+Routine Description:
+
+    This routine writes the specified value to the specified realtime
+    clock register.
+
+Arguments:
+
+    Register - Supplies the number of the register whose value is written.
+
+    Value - Supplies the value that is written to the specified register.
+
+Return Value:
+
+    The value of the register is returned as the function value.
+
+--*/
+
+{
+
+/* start M0001 */
+#if defined(_R94A_)
+    //
+    // Insert the realtime clock register number, and write the value back
+    // to RTC Index register. This selects the realtime clock
+    // register that is written.
+    //
+
+    WRITE_REGISTER_UCHAR(&((PRTC_REGISTERS) HalpRealTimeClockBase)->Index,
+                         Register);
+
+#else // _R94A_
+
+    //
+    // Insert the realtime clock register number, and write the value back
+    // to the EISA NMI enable register. This selects the realtime clock
+    // register that is written.  Note this is a write only register and
+    // the EISA NMI is always enabled.
+    //
+
+    Register |= 0x80;
+
+    WRITE_REGISTER_UCHAR(&((PEISA_CONTROL) HalpEisaControlBase)->NmiEnable,
+                         Register);
+
+#endif // _R94A_
+/* end M0001 */
+
+    //
+    // Write the realtime clock register value.
+    //
+
+/* start M0002 */
+#if defined(_R94A_) // M0004
+
+    WRITE_REGISTER_UCHAR( &((PRTC_REGISTERS) HalpRealTimeClockBase)->Data, Value);
+
+#else // _R94A_
+
+    WRITE_REGISTER_UCHAR((PUCHAR)HalpRealTimeClockBase, Value);
+
+#endif // _R94A_
+/* end M0002 */
+
+    return;
+}
+
+
+
+
+
+
+
+
+