2 set RTTC_RTMR [expr $AT91C_BASE_RTTC + 0x00]
3 set RTTC_RTAR [expr $AT91C_BASE_RTTC + 0x04]
4 set RTTC_RTVR [expr $AT91C_BASE_RTTC + 0x08]
5 set RTTC_RTSR [expr $AT91C_BASE_RTTC + 0x0c]
11 proc show_RTTC_RTMR_helper { NAME ADDR VAL } {
12 set rtpres [expr $VAL & 0x0ffff]
17 global AT91C_SLOWOSC_FREQ
18 # Nasty hack, make this a float by tacking a .0 on the end
19 # otherwise, jim makes the value an integer
20 set f [expr $AT91C_SLOWOSC_FREQ.0 / $rtpres.0]
21 puts [format "\tPrescale value: 0x%04x (%5d) => %f Hz" $rtpres $rtpres $f]
22 if { $VAL & $BIT16 } {
23 puts "\tBit16 -> Alarm IRQ Enabled"
25 puts "\tBit16 -> Alarm IRQ Disabled"
27 if { $VAL & $BIT17 } {
28 puts "\tBit17 -> RTC Inc IRQ Enabled"
30 puts "\tBit17 -> RTC Inc IRQ Disabled"
32 # Bit 18 is write only.
35 proc show_RTTC_RTSR_helper { NAME ADDR VAL } {
38 puts "\tBit0 -> ALARM PENDING"
40 puts "\tBit0 -> alarm not pending"
43 puts "\tBit0 -> RTINC PENDING"
45 puts "\tBit0 -> rtinc not pending"
51 show_mmr32_reg RTTC_RTMR
52 show_mmr32_reg RTTC_RTAR
53 show_mmr32_reg RTTC_RTVR
54 show_mmr32_reg RTTC_RTSR