Microsoft/NT4
Microsoft/NT4
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
ce47f986d8
NT4/private/ntos/fw/alpha/jnsettim.c

422 lines
8.7 KiB
C
Raw Normal View History

First commit
2001-01-01 00:00:00 +01:00
/*++
Copyright (c) 1991 Microsoft Corporation
Copyright (c) 1993 Digital Equipment Corporation
Module Name:
jnsettim.c
Abstract:
This module contains the code to set the time on an Alpha/Jensen.
Author:
John DeRosa 31-July-1992.
This module, and the entire setup program, was based on the jzsetup
program written by David M. Robinson (davidro) of Microsoft, dated
9-Aug-1991.
Revision History:
--*/
#include "fwp.h"
#include "jnsnvdeo.h"
#include "machdef.h"
#ifdef JENSEN
#include "jnsnrtc.h"
#else
#include "mrgnrtc.h" // morgan
#endif
#include "string.h"
#include "iodevice.h"
#include "jnvendor.h"
#include "fwstring.h"
#if 0
//
// JzEisaControlBase is no longer needed.
// JzRealTimeClockBase never existed on Jensen.
//
//
// Static Data
//
PVOID JzEisaControlBase;
PVOID JzRealTimeClockBase;
#endif
ULONG LastTime = 0;
UCHAR
JzReadClockRegister (
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.
--*/
{
FwpWriteIOChip (RTC_APORT, Register);
return (FwpReadIOChip(RTC_DPORT));
}
VOID
JzWriteClockRegister (
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:
None.
--*/
{
FwpWriteIOChip (RTC_APORT, Register);
FwpWriteIOChip (RTC_DPORT, Value);
return;
}
VOID
JzWriteTime (
IN PTIME_FIELDS TimeFields
)
/*++
Routine Description:
This routine sets the realtime clock.
N.B. This routine assumes that the caller has provided any required
synchronization 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;
//
// 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.
//
DataByte = JzReadClockRegister(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;
JzWriteClockRegister(RTC_CONTROL_REGISTERB, DataByte);
//
// Write the realtime clock values.
//
JzWriteClockRegister(RTC_YEAR, (UCHAR)(TimeFields->Year - 1980));
JzWriteClockRegister(RTC_MONTH, (UCHAR)TimeFields->Month);
JzWriteClockRegister(RTC_DAY_OF_MONTH, (UCHAR)TimeFields->Day);
JzWriteClockRegister(RTC_DAY_OF_WEEK, (UCHAR)(TimeFields->Weekday + 1));
JzWriteClockRegister(RTC_HOUR, (UCHAR)TimeFields->Hour);
JzWriteClockRegister(RTC_MINUTE, (UCHAR)TimeFields->Minute);
JzWriteClockRegister(RTC_SECOND, (UCHAR)TimeFields->Second);
//
// Set the realtime clock control to update the time.
//
((PRTC_CONTROL_REGISTER_B)(&DataByte))->SetTime = 0;
JzWriteClockRegister(RTC_CONTROL_REGISTERB, DataByte);
return;
} else {
return;
}
}
BOOLEAN
JzSetTime (
VOID
)
/*++
Routine Description:
This sets the system time. It assumes the screen has already been
cleared.
Arguments:
None.
Return Value:
Returns TRUE if the system time was changed.
--*/
{
UCHAR Character;
ULONG Count;
PTIME_FIELDS TimeFields;
TIME Time;
CHAR TimeString[80];
CHAR DateString[80];
PCHAR StartToken;
PCHAR EndToken;
GETSTRING_ACTION Action;
#if 0
//
// Set addresses for RTC access.
//
JzEisaControlBase = (PVOID)EISA_IO_VIRTUAL_BASE;
JzRealTimeClockBase = (PVOID)RTC_VIRTUAL_BASE;
#endif
VenSetPosition( 3, 5);
VenPrint(SS_ENTER_DATE_MSG);
do {
Action = JzGetString( DateString,
sizeof(DateString),
NULL,
3,
5 + strlen(SS_ENTER_DATE_MSG),
TRUE);
if (Action == GetStringEscape) {
return (FALSE);
}
} while ( Action != GetStringSuccess );
VenSetPosition( 4, 5);
VenPrint(SS_ENTER_TIME_MSG);
do {
Action = JzGetString( TimeString,
sizeof(TimeString),
NULL,
4,
5 + strlen(SS_ENTER_TIME_MSG),
TRUE);
if (Action == GetStringEscape) {
return (FALSE);
}
} while ( Action != GetStringSuccess );
//
// Get time
//
TimeFields = ArcGetTime();
StartToken = DateString;
if (*StartToken != 0) {
EndToken = strchr(StartToken, '-');
if (EndToken != NULL) {
*EndToken = 0;
TimeFields->Month = atoi(StartToken);
StartToken = EndToken + 1;
}
EndToken = strchr(StartToken, '-');
if (EndToken != NULL) {
*EndToken = 0;
TimeFields->Day = atoi(StartToken);
StartToken = EndToken + 1;
TimeFields->Year = atoi(StartToken);
if (TimeFields->Year < 100) {
if (TimeFields->Year < 80) {
TimeFields->Year += 2000;
} else {
TimeFields->Year += 1900;
}
}
}
}
StartToken = TimeString;
if (*StartToken != 0) {
EndToken = strchr(StartToken, ':');
if (EndToken != NULL) {
*EndToken = 0;
TimeFields->Hour = atoi(StartToken);
StartToken = EndToken + 1;
}
EndToken = strchr(StartToken, ':');
if (EndToken != NULL) {
*EndToken = 0;
TimeFields->Minute = atoi(StartToken);
StartToken = EndToken + 1;
TimeFields->Second = atoi(StartToken);
} else {
TimeFields->Minute = atoi(StartToken);
TimeFields->Second = 0;
}
}
if (!RtlTimeFieldsToTime(TimeFields, &Time)) {
VenSetPosition( 6, 5);
VenPrint(SS_ILLEGAL_TIME_MSG);
VenPrint(SS_PRESS_KEY2_MSG);
ArcRead(ARC_CONSOLE_INPUT, &Character, 1, &Count);
return (FALSE);
} else {
RtlTimeToTimeFields( &Time, TimeFields);
JzWriteTime(TimeFields);
return (TRUE);
}
}
VOID
JzShowTime (
BOOLEAN First
)
/*++
Routine Description:
Arguments:
First - If TRUE then don't check LastTime.
Return Value:
--*/
{
PTIME_FIELDS TimeFields;
TIME Time;
BOOLEAN Pm;
ULONG ThisTime;
#if 0
//
// Set addresses for RTC access.
//
JzEisaControlBase = (PVOID)EISA_IO_VIRTUAL_BASE;
JzRealTimeClockBase = (PVOID)RTC_VIRTUAL_BASE;
#endif
//
// See if the time has changed since last time we were called. This is
// for when the display is over the serial port, so we do not blast
// characters out all the time.
//
ThisTime = ArcGetRelativeTime();
if (!First && (ThisTime == LastTime)) {
return;
}
LastTime = ThisTime;
//
// Get and display time, and screen illegal Weekday values.
//
TimeFields = ArcGetTime();
VenSetPosition( 0, 44);
if ((TimeFields->Weekday < 0) || (TimeFields->Weekday > 6)) {
VenPrint(Weekday[0]);
} else {
VenPrint1("%s, ", Weekday[TimeFields->Weekday]);
}
VenPrint1("%d-", TimeFields->Month);
VenPrint1("%d-", TimeFields->Day);
VenPrint1("%d ", TimeFields->Year);
if (TimeFields->Hour >= 12) {
Pm = TRUE;
} else {
Pm = FALSE;
}
if (TimeFields->Hour > 12) {
TimeFields->Hour -= 12;
} else if (TimeFields->Hour == 0) {
TimeFields->Hour = 12;
}
VenPrint1("%d:", TimeFields->Hour);
VenPrint1("%02d:", TimeFields->Minute);
VenPrint1("%02d ", TimeFields->Second);
if (Pm) {
VenPrint(SS_PM);
} else {
VenPrint(SS_AM);
}
//
// Clear anything to the end of the line.
//
VenPrint1("%cK", ASCII_CSI);
return;
}
Reference in New Issue Copy Permalink