Return to rtc.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/rtc.fs, revision 1.1.1.1

1.1       root        1: \ *****************************************************************************
                      2: \ * Copyright (c) 2004, 2008 IBM Corporation
                      3: \ * All rights reserved.
                      4: \ * This program and the accompanying materials
                      5: \ * are made available under the terms of the BSD License
                      6: \ * which accompanies this distribution, and is available at
                      7: \ * http://www.opensource.org/licenses/bsd-license.php
                      8: \ *
                      9: \ * Contributors:
                     10: \ *     IBM Corporation - initial implementation
                     11: \ ****************************************************************************/
                     12: 
                     13: \ National Semiconductor SIO.
                     14: \ See http://www.national.com/pf/PC/PC87417.html for the datasheet.
                     15: \ PC87417.pdf
                     16: \ moved the RTC initialisation from the device tree to a much earlier point
                     17: \ so that the RTC can be accessed before device tree is generated
                     18: 
                     19: \ Enable the RTC, set its address at 1070
                     20: \ see PC87417.pdf page 39 (chapter 3.2.3)
                     21: 10 7 siocfg!
                     22: 1 30 siocfg!
                     23: 1070 wbsplit nip dup 60 siocfg! 62 siocfg!
                     24: 
                     25: : rtc@  ( offset -- value )
                     26:    1070 io-c! 1071 io-c@
                     27: ;
                     28: 
                     29: : rtc!  ( value offset -- )
                     30:    1070 io-c! 1071 io-c!
                     31: ;
                     32: 
                     33: \ Set sane configuration; BCD mode is required by Linux.
                     34: \ PC87417.pdf page 153 (chapter 8.3.13) - RTC Control Register A
                     35: \ 20 - Divider Chain Control = Normal Operation
                     36: 20 0a rtc!
                     37: \ PC87417.pdf page 155 (chapter 8.3.14) - RTC Control Register B
                     38: \ 02 - 24-hour format enabled
                     39: 02 0b rtc!
                     40: \ PC87417.pdf page 156 (chapter 8.3.15) - RTC Control Register C
                     41: 00 0c rtc!
                     42: 
                     43: \ read from the rtc and do the bcd-to-bin conversion
                     44: : rtc-bin@  ( offset -- value )
                     45:    rtc@ bcd-to-bin
                     46: ;
                     47: 
                     48: \ to be compatible with the cell boards we provide a .date word
                     49: \ .date prints the current date and time on the firmware prompt
                     50: : .date  ( -- )
                     51:    0 rtc-bin@  ( seconds )
                     52:    2 rtc-bin@
                     53:    4 rtc-bin@
                     54:    7 rtc-bin@
                     55:    8 rtc-bin@  ( seconds minutes hours day month )
                     56:    9 rtc-bin@ d# 1900 + dup d# 1970 <  IF  d# 100 +  THEN
                     57:    decimal 4 0.r 2d emit 2 0.r 2d emit 2 0.r space
                     58:    2 0.r 3a emit 2 0.r 3a emit 2 0.r hex
                     59: ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.