new sa.timer!
This commit is contained in:
Oliver Lehmann
parent
c16517bee9
commit
707dd54c54
|
|
@ -0,0 +1,96 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: gmtime.c,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#define dysize(A) (((A)%4)? 365: 366)
|
||||
#include <time.h>
|
||||
|
||||
struct tm *gmtime();
|
||||
|
||||
static char cbuf[26];
|
||||
static int dmsize[12]={31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
|
||||
|
||||
struct tm *
|
||||
gmtime(tim)
|
||||
const long *tim;
|
||||
{
|
||||
register int d0, d1;
|
||||
long hms, day;
|
||||
static struct tm xtime;
|
||||
|
||||
/*
|
||||
* break initial number into days
|
||||
*/
|
||||
hms = *tim % 86400L;
|
||||
day = *tim / 86400L;
|
||||
if(hms < 0) {
|
||||
hms += 86400L;
|
||||
day -= 1;
|
||||
}
|
||||
/*
|
||||
* generate hours:minutes:seconds
|
||||
*/
|
||||
xtime.tm_sec = hms % 60;
|
||||
d1 = hms / 60;
|
||||
xtime.tm_min = d1 % 60;
|
||||
d1 /= 60;
|
||||
xtime.tm_hour = d1;
|
||||
|
||||
/*
|
||||
* day is the day number.
|
||||
* generate day of the week.
|
||||
* The addend is 4 mod 7 (1/1/1970 was Thursday)
|
||||
*/
|
||||
|
||||
xtime.tm_wday = (day + 7340036L) % 7;
|
||||
|
||||
/*
|
||||
* year number
|
||||
*/
|
||||
if(day >= 0)
|
||||
for(d1=70; day >= dysize(d1); d1++)
|
||||
day -= dysize(d1);
|
||||
else
|
||||
for(d1=70; day < 0; d1--)
|
||||
day += dysize(d1-1);
|
||||
xtime.tm_year = d1;
|
||||
xtime.tm_yday = d0 = day;
|
||||
|
||||
/*
|
||||
* generate month
|
||||
*/
|
||||
|
||||
if(dysize(d1) == 366)
|
||||
dmsize[1] = 29;
|
||||
for(d1=0; d0 >= dmsize[d1]; d1++)
|
||||
d0 -= dmsize[d1];
|
||||
dmsize[1] = 28;
|
||||
xtime.tm_mday = d0+1;
|
||||
xtime.tm_mon = d1;
|
||||
xtime.tm_isdst = 0;
|
||||
return(&xtime);
|
||||
}
|
||||
|
|
@ -0,0 +1,113 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: rtc72421.c,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#include <time.h>
|
||||
#include "rtc72421.h"
|
||||
|
||||
void wrnibble();
|
||||
void wrbyte();
|
||||
int rdnibble();
|
||||
int rdbyte();
|
||||
extern long timegm();
|
||||
extern struct tm *gmtime();
|
||||
|
||||
|
||||
int
|
||||
rtc72421_init()
|
||||
{
|
||||
return(0);
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
rtc72421_set(time)
|
||||
long time;
|
||||
{
|
||||
struct tm *clktime;
|
||||
|
||||
clktime = gmtime(&time);
|
||||
if(clktime->tm_year > 100)
|
||||
clktime->tm_year -= 100;
|
||||
clktime->tm_mon++;
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
void
|
||||
rtc72421_start()
|
||||
{
|
||||
}
|
||||
|
||||
long
|
||||
rtc72421_get()
|
||||
{
|
||||
long time;
|
||||
struct tm *clktime;
|
||||
clktime->tm_year = 0;
|
||||
clktime->tm_mday = 0;
|
||||
clktime->tm_mon = 0;
|
||||
while ((clktime->tm_sec = 0) == 59);
|
||||
clktime->tm_min = 0;
|
||||
clktime->tm_hour = 0;
|
||||
|
||||
time = timegm(clktime);
|
||||
|
||||
return(time);
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
wrnibble(addr,nibble)
|
||||
unsigned addr;
|
||||
int nibble;
|
||||
{
|
||||
}
|
||||
|
||||
void
|
||||
wrbyte(addr1,addr2,byte)
|
||||
unsigned addr1;
|
||||
unsigned addr2;
|
||||
int byte;
|
||||
{
|
||||
wrnibble(addr1,byte/10);
|
||||
wrnibble(addr2,byte%10);
|
||||
}
|
||||
|
||||
int
|
||||
rdnibble(addr)
|
||||
unsigned addr;
|
||||
{
|
||||
return (0);
|
||||
}
|
||||
int
|
||||
rdbyte(addr1,addr2)
|
||||
unsigned addr1;
|
||||
unsigned addr2;
|
||||
{
|
||||
return(rdnibble(addr1) + rdnibble(addr2)*10);
|
||||
}
|
||||
|
|
@ -0,0 +1,69 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: rtc72421.h,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#ifndef R421_H
|
||||
#define R421_H 1
|
||||
|
||||
#define STR_R421 0xc0
|
||||
|
||||
#define R421BASE 0xfde1 /* base address */
|
||||
#define R421YYx1 0xfdf5 /* 1-year digit register */
|
||||
#define R421YY1x 0xfdf7 /* 10-year digit register */
|
||||
#define R421DDx1 0xfded /* 1-day digit register */
|
||||
#define R421DD1x 0xfdef /* 10-day digit register */
|
||||
#define R421MMx1 0xfdf1 /* 1-month digit register */
|
||||
#define R421MM1x 0xfdf3 /* 10-month digit register */
|
||||
#define R421SSx1 0xfde1 /* 1-second digit register */
|
||||
#define R421SS1x 0xfde3 /* 10-second digit register */
|
||||
#define R421HHx1 0xfde9 /* 1-hour digit register */
|
||||
#define R421HH1x 0xfdeb /* 10-hour digit register */
|
||||
#define R421MIx1 0xfde5 /* 1-minute digit register */
|
||||
#define R421MI1x 0xfde7 /* 10-minute digit register */
|
||||
#define R421DOW 0xfdfa /* not used */
|
||||
#define R421REGD 0xfdfb /* 30-s ADJ, IRQ Flag, BUSY, HOLD */
|
||||
#define R421REGE 0xfdfd /* t1, t0, ITRPT/STND, MASK */
|
||||
#define R421REGF 0xfdff /* TEST, 24/12, STOP, RESET */
|
||||
|
||||
/* register F */
|
||||
#define R421RST 0x01
|
||||
#define R421STOP 0x02
|
||||
#define R4212412 0x04
|
||||
#define R421TEST 0x08
|
||||
|
||||
/* register D */
|
||||
#define R421HOLD 0x01
|
||||
#define R421BUSY 0x02
|
||||
#define R421IRQF 0x04
|
||||
#define R421ADJ 0x08
|
||||
|
||||
int rtc72421_init();
|
||||
long rtc72421_get();
|
||||
int rtc72421_set();
|
||||
void rtc72421_start();
|
||||
|
||||
#endif
|
||||
|
|
@ -0,0 +1,58 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: timegm.c,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#include <time.h>
|
||||
|
||||
extern struct tm *gmtime();
|
||||
|
||||
long
|
||||
timegm(clktime)
|
||||
struct tm *clktime;
|
||||
{
|
||||
register long time;
|
||||
register i;
|
||||
static int dmsize[] = /* Tage/Monat (kumulierend) */
|
||||
{ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 };
|
||||
|
||||
time = 0;
|
||||
if (clktime->tm_mday > 31 || clktime->tm_mon > 12)
|
||||
return(time);
|
||||
i = dmsize[clktime->tm_mon];
|
||||
if (clktime->tm_year%4 == 0 && clktime->tm_mon > 2) i++;
|
||||
if (clktime->tm_year > 137) return(time);
|
||||
time = (clktime->tm_year-69)/4;
|
||||
time += 365*(clktime->tm_year-70)+i;
|
||||
time += clktime->tm_mday - 1;
|
||||
|
||||
if (clktime->tm_sec > 59 || clktime->tm_min > 59 || clktime->tm_hour > 23)
|
||||
return(time);
|
||||
time = 24*time + clktime->tm_hour;
|
||||
time = 60*time + clktime->tm_min;
|
||||
time = 60*time + clktime->tm_sec;
|
||||
return(time);
|
||||
}
|
||||
|
|
@ -0,0 +1,196 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: u130.c,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#include <time.h>
|
||||
#include "u130.h"
|
||||
|
||||
int rdvalue();
|
||||
int invalue();
|
||||
void outvalue();
|
||||
extern long timegm();
|
||||
extern struct tm *gmtime();
|
||||
|
||||
|
||||
int
|
||||
u130_init()
|
||||
{
|
||||
return(0);
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
u130_set(time)
|
||||
long time;
|
||||
{
|
||||
struct tm *clktime;
|
||||
|
||||
clktime = gmtime(&time);
|
||||
if(clktime->tm_year > 100)
|
||||
clktime->tm_year -= 100;
|
||||
clktime->tm_mon++;
|
||||
|
||||
outvalue(0x02); /* Datum einstellen */
|
||||
outvalue(0x03); /* Korrektur Monat */
|
||||
outvalue(0x00);
|
||||
while ((invalue(U130MMx1,1) + invalue(U130MM1x,1)*10) != clktime->tm_mon)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Zehnerstelle Tag */
|
||||
outvalue(0x00);
|
||||
while (invalue(U130DD1x,1) != clktime->tm_mday/10)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Einerstelle Tag */
|
||||
outvalue(0x00);
|
||||
while (invalue(U130DDx1,1) != clktime->tm_mday%10)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Zehnerstelle Jahr */
|
||||
outvalue(0x00);
|
||||
while (invalue(U130YY1x,1) != clktime->tm_year/10)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Einerstelle Jahr */
|
||||
outvalue(0x00);
|
||||
while (invalue(U130YYx1,1) != clktime->tm_year%10)
|
||||
;
|
||||
outvalue(0x02); /* Korrektur Ende */
|
||||
outvalue(0x00);
|
||||
|
||||
outvalue(0x01); /* Zeit stellen */
|
||||
outvalue(0x00);
|
||||
outvalue(0x02); /* Sekunden auf Null */
|
||||
outvalue(0x00);
|
||||
outvalue(0x01);
|
||||
outvalue(0x00);
|
||||
outvalue(0x01); /* Korrektur Stunden */
|
||||
outvalue(0x00);
|
||||
while ((invalue(U130HHx1,1) + invalue(U130HH1x,1)*10) != clktime->tm_hour)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Zehner-Minuten */
|
||||
outvalue(0x00);
|
||||
while (invalue(U130MI1x,1) != clktime->tm_min/10)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Einer-Minuten */
|
||||
outvalue(0x00);
|
||||
while (invalue(U130MIx1,1) != clktime->tm_min%10)
|
||||
;
|
||||
outvalue(0x01); /* Korrektur Stop */
|
||||
outvalue(0x00);
|
||||
return(0);
|
||||
}
|
||||
|
||||
void
|
||||
u130_start()
|
||||
{
|
||||
outvalue(0x01); /* Start der Zeit */
|
||||
outvalue(0x00);
|
||||
}
|
||||
|
||||
long
|
||||
u130_get()
|
||||
{
|
||||
long time;
|
||||
struct tm *clktime;
|
||||
outvalue(0x02); /* Umschalten auf Datum */
|
||||
clktime->tm_year = rdvalue(U130YYx1);
|
||||
clktime->tm_mday = rdvalue(U130DDx1);
|
||||
clktime->tm_mon = rdvalue(U130MMx1);
|
||||
outvalue(0x00);
|
||||
clktime->tm_sec = inb(U130MM1x) & 0x28; /* Umschalten auf Zeit */
|
||||
if (clktime->tm_sec == 0x08 || clktime->tm_sec == 0x20) {
|
||||
outvalue(0x02);
|
||||
outvalue(0x00);
|
||||
}
|
||||
while ((clktime->tm_sec = rdvalue(U130SSx1)) == 59);
|
||||
clktime->tm_min = rdvalue(U130MIx1);
|
||||
clktime->tm_hour = rdvalue(U130HHx1);
|
||||
|
||||
time = timegm(clktime);
|
||||
|
||||
return(time);
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
outvalue(t)
|
||||
register t;
|
||||
{
|
||||
outb(U130BASE, t);
|
||||
t = 10000;
|
||||
while (t--)
|
||||
;
|
||||
}
|
||||
|
||||
int
|
||||
invalue(addr, flag)
|
||||
register addr;
|
||||
register flag;
|
||||
{
|
||||
register seg7, takt;
|
||||
|
||||
seg7 = inb(addr);
|
||||
if (seg7 != inb(addr))
|
||||
seg7 = inb(addr);
|
||||
takt = seg7 & 0x80; /* nur gueltig bei 6. Stelle */
|
||||
if (seg7 & 0x20)
|
||||
seg7 = ~seg7;
|
||||
if (addr == 0xfeff) /* 6.Stelle */
|
||||
seg7 &= 0x07;
|
||||
seg7 &= 0x1f;
|
||||
if (seg7 == 0x0f)
|
||||
return(0);
|
||||
if (seg7 == 0x00) {
|
||||
if (flag == 0)
|
||||
return(0);
|
||||
if (addr == 0xfeff && takt)
|
||||
return(0);
|
||||
}
|
||||
if (seg7 == 0x02)
|
||||
return(1);
|
||||
if (seg7 == 0x17 || seg7 == 0x05)
|
||||
return(2);
|
||||
if (seg7 == 0x13)
|
||||
return(3);
|
||||
if (seg7 == 0x1a)
|
||||
return(4);
|
||||
if (seg7 == 0x19)
|
||||
return(5);
|
||||
if (seg7 == 0x1d)
|
||||
return(6);
|
||||
if (seg7 == 0x03)
|
||||
return(7);
|
||||
if (seg7 == 0x1f)
|
||||
return(8);
|
||||
if (seg7 == 0x1b)
|
||||
return(9);
|
||||
return(0xff);
|
||||
}
|
||||
|
||||
int
|
||||
rdvalue(addr)
|
||||
unsigned addr;
|
||||
{
|
||||
return(invalue(addr,0) + invalue(addr+2,0)*10);
|
||||
}
|
||||
|
|
@ -0,0 +1,53 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: u130.h,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#ifndef U130_H
|
||||
#define U130_H 1
|
||||
|
||||
#define STR_U130 0xbf
|
||||
|
||||
#define U130BASE 0xfef1 /* base address */
|
||||
#define U130YYx1 0xfef5 /* 1-year digit register */
|
||||
#define U130YY1x 0xfef7 /* 10-year digit register */
|
||||
#define U130DDx1 0xfef9 /* 1-day digit register */
|
||||
#define U130DD1x 0xfefb /* 10-day digit register */
|
||||
#define U130MMx1 0xfefd /* 1-month digit register */
|
||||
#define U130MM1x 0xfeff /* 10-month digit register */
|
||||
#define U130SSx1 0xfef5 /* 1-second digit register */
|
||||
#define U130SS1x 0xfef7 /* 10-second digit register */
|
||||
#define U130HHx1 0xfefd /* 1-hour digit register */
|
||||
#define U130HH1x 0xfeff /* 10-hour digit register */
|
||||
#define U130MIx1 0xfef9 /* 1-minute digit register */
|
||||
#define U130MI1x 0xfefb /* 10-minute digit register */
|
||||
|
||||
int u130_init();
|
||||
long u130_get();
|
||||
int u130_set();
|
||||
void u130_start();
|
||||
|
||||
#endif
|
||||
|
|
@ -0,0 +1,123 @@
|
|||
/*
|
||||
* Copyright (c) 2009 Oliver Lehmann <oliver@FreeBSD.org>
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*
|
||||
* $Id: sa.timer.c,v 1.1 2009/08/07 13:53:20 olivleh1 Exp $
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <time.h>
|
||||
#include "u130.h"
|
||||
#include "rtc72421.h"
|
||||
|
||||
extern long timegm();
|
||||
extern struct tm *gmtime();
|
||||
|
||||
char estring[20];
|
||||
|
||||
main()
|
||||
{
|
||||
register long time;
|
||||
|
||||
if (inb(U130BASE) != STR_U130) { /* Uhrmodul vorhanden ? */
|
||||
printf("Timer not available\n");
|
||||
exit(1);
|
||||
}
|
||||
time = u130_get(); /* Uhrenmodul lesen */
|
||||
outtime(time); /* Datum/Zeit ausgeben */
|
||||
settimer(); /* Uhrenmodul neu programmieren */
|
||||
time = u130_get(); /* Uhrenmodul lesen */
|
||||
outtime(time); /* Datum/Zeit ausgeben */
|
||||
exit(0);
|
||||
}
|
||||
|
||||
getdat(k)
|
||||
register k;
|
||||
{
|
||||
register i, c, n;
|
||||
|
||||
n = 0;
|
||||
for (i = 0; c = estring[i]; i++) {
|
||||
if (k-1 == 0) {
|
||||
if (c == '/' || c== ':') return(n);
|
||||
if (c < '0' || c > '9') return(-1);
|
||||
n = n*10 + (c-'0');
|
||||
} else
|
||||
if (c == '/' || c == ':') k--;
|
||||
}
|
||||
return(n);
|
||||
}
|
||||
|
||||
outtime(time)
|
||||
long time;
|
||||
{
|
||||
struct tm *clktime;
|
||||
|
||||
clktime = gmtime(&time);
|
||||
|
||||
clktime->tm_year += 1900;
|
||||
clktime->tm_mon++;
|
||||
|
||||
printf("Date is: %d/%d/%d\n", clktime->tm_mon, clktime->tm_mday, clktime->tm_year);
|
||||
printf("Time is: %d:%d:%d GMT\n", clktime->tm_hour, clktime->tm_min, clktime->tm_sec);
|
||||
}
|
||||
|
||||
settimer()
|
||||
{
|
||||
struct tm *clktime;
|
||||
long time;
|
||||
int i;
|
||||
loop1:
|
||||
printf("Enter new Date (MM/DD/YY) : ");
|
||||
gets(estring, sizeof estring);
|
||||
if (estring[0] == 0)
|
||||
goto loop2;
|
||||
clktime->tm_mon = getdat(1)-1;
|
||||
clktime->tm_mday = getdat(2);
|
||||
clktime->tm_year = getdat(3);
|
||||
if (clktime->tm_year < 70 )
|
||||
clktime->tm_year += 100;
|
||||
|
||||
if (clktime->tm_mon<1 || clktime->tm_mon>12 || clktime->tm_mday<1 || clktime->tm_mday>31)
|
||||
goto loop1;
|
||||
|
||||
loop2:
|
||||
printf("Enter new Time in GMT (HH:MM) : ");
|
||||
gets(estring, sizeof estring);
|
||||
if (estring[0] == 0)
|
||||
return;
|
||||
clktime->tm_hour = getdat(1);
|
||||
clktime->tm_min = getdat(2);
|
||||
clktime->tm_sec = 0;
|
||||
if (clktime->tm_min<0 || clktime->tm_min>59 || clktime->tm_hour<0 || clktime->tm_hour>23)
|
||||
goto loop2;
|
||||
|
||||
time = timegm(clktime);
|
||||
u130_set(time);
|
||||
printf("Enter Return to start time : ");
|
||||
gets(estring, 1);
|
||||
u130_start();
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue