Author: jsuijs
Date: Sun Nov 16 03:04:13 2008
New Revision: 562
Modified:
trunk/unvalidated/include/external/rtc/rtc_ds1302.jal
Log:
Modified: trunk/unvalidated/include/external/rtc/rtc_ds1302.jal
==============================================================================
--- trunk/unvalidated/include/external/rtc/rtc_ds1302.jal (original)
+++ trunk/unvalidated/include/external/rtc/rtc_ds1302.jal Sun Nov 16
03:04:13 2008
@@ -1,5 +1,5 @@
-- ------------------------------------------------------
--- Title: communication between RTC DS1302 chip and microcontroller
+-- Title: communication between rtc DS1302 chip and microcontroller
--
-- Author: Richard Zengerink, Copyright (c) 2008, all rights reserved
--
@@ -10,7 +10,7 @@
-- This file is part of jallib (http://jallib.googlecode.com)
-- Released under the ZLIB license
(http://www.opensource.org/licenses/zlib-license.html)
--
--- Description: Library to handle DS1302 RTC chip
+-- Description: Library to handle DS1302 rtc chip
--
-- Sources:
--
@@ -27,132 +27,132 @@
--
--
----------------------------------------------------------------------------
-var byte TRICK_CHAR_REG ;trickel charge register (90h)
+var byte trick_char_reg ;trickel charge register (90h)
-var byte SECOND ;seconds (0 TO 59)
-var byte MINUT ;minutes (0 TO 59)
-var byte HRS ;houres (0 TO 23)
-var byte DATE ;day of mounth (1 to 31)
-var byte MOUNTH ;mounth (1 to 12)
-var byte DAY ;day of week (1 = monday 7 = sunday)
-var word YEAR ;year (00 to 99)
-var byte PROTREG ;protect register
-
-var volatile bit ROUT0 at TRICK_CHAR_REG :0
-var volatile bit ROUT1 at TRICK_CHAR_REG :1
-var volatile bit DS0 at TRICK_CHAR_REG :2
-var volatile bit DS1 at TRICK_CHAR_REG :3
+var byte second ;seconds (0 TO 59)
+var byte minut ;minutes (0 TO 59)
+var byte hrs ;houres (0 TO 23)
+var byte date ;day of mounth (1 to 31)
+var byte mounth ;mounth (1 to 12)
+var byte day ;day of week (1 = monday 7 = sunday)
+var word year ;year (00 to 99)
+var byte protreg ;protect register
+
+var volatile bit rout0 at trick_char_reg :0
+var volatile bit rout1 at trick_char_reg :1
+var volatile bit ds0 at trick_char_reg :2
+var volatile bit ds1 at trick_char_reg :3
--
----------------------------------------------------------------------------
-- programs the trickel charge register according the parameters set in
the MAIN file
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-if RTC_TRICKEL then
- TRICK_CHAR_REG = 0b1010_0000
- if RTC_DIODE ==1 then ;1 diode then DS1 = 0 and DS0 = 1
- DS0 = 1
- DS1 = 0
+if rtc_trickel then
+ trick_char_reg = 0b1010_0000
+ if rtc_diode ==1 then ;1 diode then DS1 = 0 and DS0 = 1
+ ds0 = 1
+ ds1 = 0
else
- if RTC_DIODE ==2 then ;2 diodes then DS1 = 1 and DS0 = 0
- DS0 = 0
- DS1 = 1
+ if rtc_diode ==2 then ;2 diodes then DS1 = 1 and DS0 = 0
+ ds0 = 0
+ ds1 = 1
else
- DS0 = 0 ;no diode selection
- DS1 = 0
+ ds0 = 0 ;no diode selection
+ ds1 = 0
end if
end if
- if RTC_RESISTOR ==0 then ;RTC_RESISTOR = 0Ohm then ROUT0 = 0
and ROUT1 = 0
- ROUT0 = 0
- ROUT1 = 0
+ if rtc_resistor ==0 then ;rtc_RESISTOR = 0Ohm then ROUT0 = 0
and ROUT1 = 0
+ rout0 = 0
+ rout1 = 0
else
- if RTC_RESISTOR ==2 then ;RTC_RESISTOR = 2kOhm then ROUT0 = 1
and ROUT1 = 0
- ROUT0 = 1
- ROUT1 = 0
+ if rtc_resistor ==2 then ;rtc_RESISTOR = 2kOhm then ROUT0 = 1
and ROUT1 = 0
+ rout0 = 1
+ rout1 = 0
else
- if RTC_RESISTOR ==4 then ;RTC_RESISTOR = 4kOhm then ROUT0 = 0
and ROUT1 = 1
- ROUT0 = 0
- ROUT1 = 1
+ if rtc_resistor ==4 then ;rtc_RESISTOR = 4kOhm then ROUT0 = 0
and ROUT1 = 1
+ rout0 = 0
+ rout1 = 1
else
- ROUT0 = 1 ;RTC_RESISTOR = 8kOhm then ROUT0 = 1 and
ROUT1 = 1
- ROUT1 = 1
+ rout0 = 1 ;rtc_RESISTOR = 8kOhm then ROUT0 = 1 and
ROUT1 = 1
+ rout1 = 1
end if
end if
end if
else
- TRICK_CHAR_REG = 0b0000_0001
+ trick_char_reg = 0b0000_0001
end if
--
----------------------------------------------------------------------------
--- convert from decimal to RTC format
+-- convert from decimal to rtc format
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-procedure DEC_TO_RTC ( byte in out DATA ) is
- var byte RTC
- RTC = DATA
- if RTC <= 9 then
- RTC = RTC
- Else
- if RTC <= 19 then
- RTC = RTC + 6
- Else
- if RTC <= 29 then
- RTC = RTC + 12
- Else
- if RTC <= 39 then
- RTC = RTC + 18
- Else
- if RTC <= 49 then
- RTC = RTC + 24
- Else
- if RTC <= 59 then
- RTC = RTC + 30
+procedure dec_to_rtc( byte in out data ) is
+ var byte rtc
+ rtc = data
+ if rtc <= 9 then
+ rtc = rtc
+ else
+ if rtc <= 19 then
+ rtc = rtc + 6
+ else
+ if rtc <= 29 then
+ rtc = rtc + 12
+ else
+ if rtc <= 39 then
+ rtc = rtc + 18
+ else
+ if rtc <= 49 then
+ rtc = rtc + 24
+ else
+ if rtc <= 59 then
+ rtc = rtc + 30
end if
end if
end if
end if
end if
end if
- DATA = RTC
+ data = rtc
end procedure
--
----------------------------------------------------------------------------
--- convert from RTC format to decimal
+-- convert from rtc format to decimal
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-procedure RTC_TO_DEC ( byte in out DATA ) is
- var byte DEC
- DEC = DATA
- DEC = DEC & 0B0111_1111
-
- if DEC <= 9 then
- DEC = DEC
- Else
- if DEC <= 25 then
- DEC = DEC - 6
- Else
- if DEC <= 41 then
- DEC = DEC - 12
- Else
- if DEC <= 57 then
- DEC = DEC - 18
- Else
- if DEC <= 73 then
- DEC = DEC - 24
- Else
- if DEC <= 89 then
- DEC = DEC - 30
+procedure rtc_to_dec( byte in out data ) is
+ var byte dec
+ dec = data
+ dec = dec & 0b0111_1111
+
+ if dec <= 9 then
+ dec = dec
+ else
+ if dec <= 25 then
+ dec = dec - 6
+ else
+ if dec <= 41 then
+ dec = dec - 12
+ else
+ if dec <= 57 then
+ dec = dec - 18
+ else
+ if dec <= 73 then
+ dec = dec - 24
+ else
+ if dec <= 89 then
+ dec = dec - 30
end if
end if
end if
end if
end if
end if
- DATA = DEC
+ data = dec
end procedure
@@ -163,21 +163,21 @@
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-procedure RTC_CLOCK is
- RTC_SCLK = high
+procedure rtc_clock() is
+ rtc_sclk = high
delay_1us
- RTC_SCLK = low
+ rtc_sclk = low
delay_1us
end procedure
-procedure RTC_REGISTER_SEND (byte in REGISTER) is
+procedure rtc_register_send(byte in register) is
for 8 loop
- if (REGISTER & 0b0000_0001)== 1 then RTC_IO = high else RTC_IO = low
end if
- RTC_CLOCK
- REGISTER = REGISTER >> 1 ;shift right REGISTER
+ if (register & 0b0000_0001)== 1 then rtc_io = high else rtc_io = low
end if
+ rtc_clock
+ register = register >> 1 ;shift right register
end loop
end procedure
@@ -185,35 +185,35 @@
--
----------------------------------------------------------------------------
--- sends data to RTC
+-- sends data to rtc
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-procedure RTC_DATA_SEND ( byte in DATA ) is
+procedure rtc_data_send( byte in data ) is
for 8 loop
- if (DATA & 0b0000_0001)== 1 then RTC_IO = high else RTC_IO = low end
if
- RTC_CLOCK
- DATA = DATA >> 1 ;shift right DATA
+ if (data & 0b0000_0001)== 1 then rtc_io = high else rtc_io = low end
if
+ rtc_clock
+ data = data >> 1 ;shift right data
end loop
end procedure
--
----------------------------------------------------------------------------
--- reads data from RTC
+-- reads data from rtc
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-procedure RTC_READ_DATA (byte out DATA) is
+procedure rtc_read_data(byte out data) is
- var bit DB at DATA : 7
+ var bit db at data : 7
for 7 loop
- DB = RTC_IO
- DATA = DATA >> 1 ;shift right DATA
- RTC_CLOCK
+ db = rtc_io
+ data = data >> 1 ;shift right data
+ rtc_clock
end loop
- DB = RTC_IO
- RTC_CLOCK
+ db = rtc_io
+ rtc_clock
end procedure
@@ -221,20 +221,20 @@
--
----------------------------------------------------------------------------
-- Writes specified data (without converting) to a specified register in
the
--- RTC
+-- rtc
--
----------------------------------------------------------------------------
-procedure RTC_WRITE ( byte in DATA, byte in REGISTER ) is ; send data to
RTC
+procedure rtc_write( byte in data, byte in register ) is ; send data to rtc
rtc_iodir = output
- RTC_SCLK = low
- RTC_CE = high
+ rtc_sclk = low
+ rtc_ce = high
- RTC_REGISTER_SEND (REGISTER)
+ rtc_register_send (register)
- RTC_DATA_SEND (DATA)
+ rtc_data_send (data)
- RTC_CE = LOW
+ rtc_ce = low
end procedure
@@ -242,31 +242,31 @@
--
----------------------------------------------------------------------------
-- reads specified data from a specified register in the
--- RTC (without converting)
+-- rtc (without converting)
--
----------------------------------------------------------------------------
-procedure RTC_READ ( byte in REGISTER , byte out DATA ) is ; recieve data
from RTC
- var bit DB at DATA : 7
+procedure rtc_read( byte in register , byte out data ) is ; recieve data
from rtc
+ var bit db at data : 7
rtc_iodir = output
- RTC_SCLK = low
- RTC_CE = high
+ rtc_sclk = low
+ rtc_ce = high
- RTC_REGISTER_SEND (REGISTER)
+ rtc_register_send (register)
rtc_iodir = input
- DATA = 0
+ data = 0
for 7 loop
- DB = RTC_IO
- DATA = DATA >> 1 ;shift right DATA
- RTC_CLOCK
+ db = rtc_io
+ data = data >> 1 ;shift right data
+ rtc_clock
end loop
- DB = RTC_IO
+ db = rtc_io
- RTC_CE = LOW
+ rtc_ce = low
end procedure
@@ -275,383 +275,383 @@
--
----------------------------------------------------------------------------
-- converts the 8 varables (SECOND,MINUT,..., YEAR and PROTREG) from
decimal
--- to RTC format and writes them directly to RTC
+-- to rtc format and writes them directly to rtc
--
----------------------------------------------------------------------------
-procedure RTC_BURST_WRITE_CLOCK is ; send 8 datas to RTC
+procedure rtc_burst_write_clock() is ; send 8 datas to rtc
- var byte DATA
+ var byte data
rtc_iodir = output
- RTC_SCLK = low
- RTC_CE = high
+ rtc_sclk = low
+ rtc_ce = high
- RTC_REGISTER_SEND (0xBE)
+ rtc_register_send (0xBE)
- RTC_SCLK = low
+ rtc_sclk = low
- DATA = SECOND
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = second
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = MINUT
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = minut
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = HRS
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = hrs
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = DATE
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = date
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = MOUNTH
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = mounth
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = DAY
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = day
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = YEAR
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = year
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- DATA = PROTREG
- DEC_TO_RTC ( DATA )
- RTC_DATA_SEND (DATA)
+ data = protreg
+ dec_to_rtc ( data )
+ rtc_data_send (data)
- RTC_CE = LOW
+ rtc_ce = low
end procedure
--
----------------------------------------------------------------------------
--- Reads 8 variable from RTC converts them from RTC format to decimal and
+-- Reads 8 variable from rtc converts them from rtc format to decimal and
-- put them in SECOND,MINUT,..., YEAR and PROTREG
--
----------------------------------------------------------------------------
-procedure RTC_BURST_READ_CLOCK is ; READ 8 datas from RTC
+procedure rtc_burst_read_clock() is ; READ 8 datas from rtc
- var byte DATA
+ var byte data
rtc_iodir = output
- RTC_SCLK = low
- RTC_CE = high
+ rtc_sclk = low
+ rtc_ce = high
- RTC_REGISTER_SEND (0xBF)
+ rtc_register_send (0xBF)
rtc_iodir = input
- RTC_SCLK = low
+ rtc_sclk = low
- RTC_READ_DATA (DATA)
- SECOND = DATA
+ rtc_read_data (data)
+ second = data
- RTC_READ_DATA (DATA)
- MINUT = DATA
+ rtc_read_data (data)
+ minut = data
- RTC_READ_DATA (DATA)
- HRS = DATA
+ rtc_read_data (data)
+ hrs = data
- RTC_READ_DATA (DATA)
- DATE = DATA
+ rtc_read_data (data)
+ date = data
- RTC_READ_DATA (DATA)
- MOUNTH = DATA
+ rtc_read_data (data)
+ mounth = data
- RTC_READ_DATA (DATA)
- DAY = DATA
+ rtc_read_data (data)
+ day = data
- RTC_READ_DATA (DATA)
- YEAR = DATA
+ rtc_read_data (data)
+ year = data
- RTC_READ_DATA (DATA)
- PROTREG = DATA
+ rtc_read_data (data)
+ protreg = data
- RTC_CE = LOW
+ rtc_ce = low
- RTC_TO_DEC ( SECOND )
- RTC_TO_DEC ( MINUT )
- RTC_TO_DEC ( HRS )
- RTC_TO_DEC ( DATE )
- RTC_TO_DEC ( MOUNTH )
- RTC_TO_DEC ( YEAR )
+ rtc_to_dec ( second )
+ rtc_to_dec ( minut )
+ rtc_to_dec ( hrs )
+ rtc_to_dec ( date )
+ rtc_to_dec ( mounth )
+ rtc_to_dec ( year )
end procedure
--
----------------------------------------------------------------------------
--- reads second value from RTC converts it from RTC format to decimal and
+-- reads second value from rtc converts it from rtc format to decimal and
-- place it in variable SECOND
--
----------------------------------------------------------------------------
-procedure SECOND_READ is
- var byte DATA
- RTC_READ ( 0x81 , DATA )
- RTC_TO_DEC ( DATA )
- SECOND = DATA
+procedure second_read() is
+ var byte data
+ rtc_read ( 0x81 , data )
+ rtc_to_dec ( data )
+ second = data
end procedure
--
----------------------------------------------------------------------------
--- reads minut value from RTC converts it from RTC format to decimal and
+-- reads minut value from rtc converts it from rtc format to decimal and
-- place it in variable MINUT
--
----------------------------------------------------------------------------
-procedure MINUT_READ is
- var byte DATA
- RTC_READ ( 0x83 , DATA )
- RTC_TO_DEC ( DATA )
- MINUT = DATA
+procedure minut_read() is
+ var byte data
+ rtc_read ( 0x83 , data )
+ rtc_to_dec ( data )
+ minut = data
end procedure
--
----------------------------------------------------------------------------
--- reads hrs value from RTC converts it from RTC format to decimal and
+-- reads hrs value from rtc converts it from rtc format to decimal and
-- place it in variable HRS
--
----------------------------------------------------------------------------
-procedure HRS_READ is
- var byte DATA
- RTC_READ ( 0x85 , DATA )
- RTC_TO_DEC ( DATA )
- HRS = DATA
+procedure hrs_read() is
+ var byte data
+ rtc_read ( 0x85 , data )
+ rtc_to_dec ( data )
+ hrs = data
end procedure
--
----------------------------------------------------------------------------
--- reads date value from RTC converts it from RTC format to decimal and
+-- reads date value from rtc converts it from rtc format to decimal and
-- place it in variable DATE
--
----------------------------------------------------------------------------
-procedure DATE_READ is
- var byte DATA
- RTC_READ ( 0x87 , DATA )
- RTC_TO_DEC ( DATA )
- DATE = DATA
+procedure date_read() is
+ var byte data
+ rtc_read ( 0x87 , data )
+ rtc_to_dec ( data )
+ date = data
end procedure
--
----------------------------------------------------------------------------
--- reads mounth value from RTC converts it from RTC format to decimal and
+-- reads mounth value from rtc converts it from rtc format to decimal and
-- place it in variable MOUNTH
--
----------------------------------------------------------------------------
-procedure MOUNTH_READ is
- var byte DATA
- RTC_READ ( 0x89 , DATA )
- RTC_TO_DEC ( DATA )
- MOUNTH = DATA
+procedure mounth_read() is
+ var byte data
+ rtc_read ( 0x89 , data )
+ rtc_to_dec ( data )
+ mounth = data
end procedure
--
----------------------------------------------------------------------------
--- reads day value from RTC converts it from RTC format to decimal and
+-- reads day value from rtc converts it from rtc format to decimal and
-- place it in variable DAY
--
----------------------------------------------------------------------------
-procedure DAY_READ is
- var byte DATA
- RTC_READ ( 0x8B , DATA )
- RTC_TO_DEC ( DATA )
- DAY = DATA
+procedure day_read() is
+ var byte data
+ rtc_read ( 0x8B , data )
+ rtc_to_dec ( data )
+ day = data
end procedure
--
----------------------------------------------------------------------------
--- reads year value from RTC converts it from RTC format to decimal and
+-- reads year value from rtc converts it from rtc format to decimal and
-- place it in variable YEAR
--
----------------------------------------------------------------------------
-procedure YEAR_READ is
- var byte DATA
- RTC_READ ( 0x8D , DATA )
- RTC_TO_DEC ( DATA )
- YEAR = DATA
+procedure year_read() is
+ var byte data
+ rtc_read ( 0x8D , data )
+ rtc_to_dec ( data )
+ year = data
end procedure
--
----------------------------------------------------------------------------
--- reads protection register value from RTC converts it from RTC format to
+-- reads protection register value from rtc converts it from rtc format to
-- decimal and place it in variable PROTREG
--
----------------------------------------------------------------------------
-procedure PROTREG_READ is
- var byte DATA
- RTC_READ ( 0x8F , DATA )
- RTC_TO_DEC ( DATA )
- PROTREG = DATA
+procedure protreg_read() is
+ var byte data
+ rtc_read ( 0x8F , data )
+ rtc_to_dec ( data )
+ protreg = data
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable SECOND from decimal to RTC format and
--- writes it into the RTC second register
+-- converts value from variable SECOND from decimal to rtc format and
+-- writes it into the rtc second register
--
----------------------------------------------------------------------------
-procedure SECOND_WRITE is
- var byte DATA
- DATA = SECOND
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x80 )
+procedure second_write() is
+ var byte data
+ data = second
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x80 )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable MINUT from decimal to RTC format and
--- writes it into the RTC minut register
+-- converts value from variable MINUT from decimal to rtc format and
+-- writes it into the rtc minut register
--
----------------------------------------------------------------------------
-procedure MINUT_WRITE is
- var byte DATA
- DATA = MINUT
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x82 )
+procedure minut_write() is
+ var byte data
+ data = minut
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x82 )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable HRS from decimal to RTC format and
--- writes it into the RTC hrs register
+-- converts value from variable HRS from decimal to rtc format and
+-- writes it into the rtc hrs register
--
----------------------------------------------------------------------------
-procedure HRS_WRITE is
- var byte DATA
- DATA = HRS
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x84 )
+procedure hrs_write() is
+ var byte data
+ data = hrs
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x84 )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable DATE from decimal to RTC format and
--- writes it into the RTC date register
+-- converts value from variable DATE from decimal to rtc format and
+-- writes it into the rtc date register
--
----------------------------------------------------------------------------
-procedure DATE_WRITE is
- var byte DATA
- DATA = DATE
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x86 )
+procedure date_write() is
+ var byte data
+ data = date
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x86 )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable MOUNTH from decimal to RTC format and
--- writes it into the RTC mounth register
+-- converts value from variable MOUNTH from decimal to rtc format and
+-- writes it into the rtc mounth register
--
----------------------------------------------------------------------------
-procedure MOUNTH_WRITE is
- var byte DATA
- DATA = MOUNTH
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x88 )
+procedure mounth_write() is
+ var byte data
+ data = mounth
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x88 )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable DAY from decimal to RTC format and
--- writes it into the RTC day register
+-- converts value from variable DAY from decimal to rtc format and
+-- writes it into the rtc day register
--
----------------------------------------------------------------------------
-procedure DAY_WRITE is
- var byte DATA
- DATA = DAY
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x8A )
+procedure day_write() is
+ var byte data
+ data = day
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x8A )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable YEAR from decimal to RTC format and
--- writes it into the RTC year register
+-- converts value from variable YEAR from decimal to rtc format and
+-- writes it into the rtc year register
--
----------------------------------------------------------------------------
-procedure YEAR_WRITE is
- var byte DATA
- DATA = YEAR
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x8C )
+procedure year_write() is
+ var byte data
+ data = year
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x8c )
end procedure
--
----------------------------------------------------------------------------
--- converts value from variable PROTREG from decimal to RTC format and
--- writes it into the RTC protection register
+-- converts value from variable PROTREG from decimal to rtc format and
+-- writes it into the rtc protection register
--
----------------------------------------------------------------------------
-procedure PROTREG_WRITE is
- var byte DATA
- DATA = PROTREG
- DEC_TO_RTC ( DATA )
- RTC_WRITE ( DATA , 0x8E )
+procedure protreg_write() is
+ var byte data
+ data = protreg
+ dec_to_rtc ( data )
+ rtc_write ( data , 0x8e )
end procedure
--
----------------------------------------------------------------------------
--- stops the RTC
+-- stops the rtc
--
--
----------------------------------------------------------------------------
-procedure RTC_STOP is
- SECOND_READ
- SECOND = SECOND | 0b1000_0000
- SECOND_WRITE
+procedure rtc_stop() is
+ second_read
+ second = second | 0b1000_0000
+ second_write
end procedure
--
----------------------------------------------------------------------------
--- starts the RTC
+-- starts the rtc
--
--
----------------------------------------------------------------------------
-procedure RTC_START is
- SECOND_READ
- SECOND = SECOND & 0b0111_1111
- SECOND_WRITE
+procedure rtc_start() is
+ second_read
+ second = second & 0b0111_1111
+ second_write
end procedure
--
----------------------------------------------------------------------------
--- initials the RTC
+-- initials the rtc
-- (this procedure is only used inside this file)
--
----------------------------------------------------------------------------
-procedure INIT_RTC is
+procedure init_rtc() is
rtc_iodir = output
-RTC_CE = LOW
-RTC_WRITE ( TRICK_CHAR_REG , 0x90 ) ;Program Trickel Charge register
+rtc_ce = low
+rtc_write ( trick_char_reg , 0x90 ) ;program trickel charge register
end procedure
-INIT_RTC
+init_rtc
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"jallib" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/jallib?hl=en
-~----------~----~----~----~------~----~------~--~---
