git.gag.com Git - fw/altos/blob - src/lpc/ao_timer_lpc.c

   1 /*
   2  * Copyright © 2013 Keith Packard <keithp@keithp.com>
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; version 2 of the License.
   7  *
   8  * This program is distributed in the hope that it will be useful, but
   9  * WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11  * General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License along
  14  * with this program; if not, write to the Free Software Foundation, Inc.,
  15  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  16  */
  17
  18 #include <ao.h>
  19
  20 volatile __data AO_TICK_TYPE ao_tick_count;
  21
  22 uint16_t
  23 ao_time(void)
  24 {
  25         return ao_tick_count;
  26 }
  27
  28 #if AO_DATA_ALL
  29 volatile __data uint8_t ao_data_interval = 1;
  30 volatile __data uint8_t ao_data_count;
  31 #endif
  32
  33 void lpc_systick_isr(void)
  34 {
  35         if (lpc_systick.csr & (1 << LPC_SYSTICK_CSR_COUNTFLAG)) {
  36                 ++ao_tick_count;
  37 #if HAS_TASK_QUEUE
  38                 if (ao_task_alarm_tick && (int16_t) (ao_tick_count - ao_task_alarm_tick) >= 0)
  39                         ao_task_check_alarm((uint16_t) ao_tick_count);
  40 #endif
  41 #if AO_DATA_ALL
  42                 if (++ao_data_count == ao_data_interval) {
  43                         ao_data_count = 0;
  44                         ao_adc_poll();
  45 #if (AO_DATA_ALL & ~(AO_DATA_ADC))
  46                         ao_wakeup((void *) &ao_data_count);
  47 #endif
  48                 }
  49 #endif
  50         }
  51 }
  52
  53 #if HAS_ADC
  54 void
  55 ao_timer_set_adc_interval(uint8_t interval)
  56 {
  57         ao_arch_critical(
  58                 ao_data_interval = interval;
  59                 ao_data_count = 0;
  60                 );
  61 }
  62 #endif
  63
  64 #define SYSTICK_RELOAD ((AO_LPC_SYSCLK / 2) / 100 - 1)
  65
  66 /* Initialize our 100Hz clock */
  67 void
  68 ao_timer_init(void)
  69 {
  70         lpc_systick.rvr = SYSTICK_RELOAD;
  71         lpc_systick.cvr = 0;
  72         lpc_systick.csr = ((1 << LPC_SYSTICK_CSR_ENABLE) |
  73                            (1 << LPC_SYSTICK_CSR_TICKINT) |
  74                            (LPC_SYSTICK_CSR_CLKSOURCE_CPU_OVER_2 << LPC_SYSTICK_CSR_CLKSOURCE));
  75 }
  76
  77 #define AO_LPC_M        ((AO_LPC_CLKOUT / AO_LPC_CLKIN) - 1)
  78
  79 #define AO_LPC_FCCO_MIN 156000000
  80
  81 static void
  82 ao_clock_delay(void)
  83 {
  84         uint32_t        i;
  85         for (i = 0; i < 200; i++)
  86                 ao_arch_nop();
  87 }
  88
  89 void
  90 ao_clock_init(void)
  91 {
  92         uint8_t         p;
  93         uint32_t        i;
  94
  95         /* Turn off all perhipherals except for GPIO configuration */
  96         lpc_scb.sysahbclkctrl = ((1 << LPC_SCB_SYSAHBCLKCTRL_SYS) |
  97                                  (1 << LPC_SCB_SYSAHBCLKCTRL_ROM) |
  98                                  (1 << LPC_SCB_SYSAHBCLKCTRL_RAM0) |
  99                                  (1 << LPC_SCB_SYSAHBCLKCTRL_FLASHARRAY) |
 100                                  (1 << LPC_SCB_SYSAHBCLKCTRL_GPIO) |
 101                                  (1 << LPC_SCB_SYSAHBCLKCTRL_IOCON));
 102
 103         /* Turn the IRC clock back on */
 104         lpc_scb.pdruncfg &= ~(1 << LPC_SCB_PDRUNCFG_IRC_PD);
 105         ao_clock_delay();
 106
 107         /* Switch to the IRC clock */
 108         lpc_scb.mainclksel = LPC_SCB_MAINCLKSEL_SEL_IRC << LPC_SCB_MAINCLKSEL_SEL;
 109         lpc_scb.mainclkuen = (1 << LPC_SCB_MAINCLKUEN_ENA);
 110         lpc_scb.mainclkuen = (0 << LPC_SCB_MAINCLKUEN_ENA);
 111         lpc_scb.mainclkuen = (1 << LPC_SCB_MAINCLKUEN_ENA);
 112         while (!(lpc_scb.mainclkuen & (1 << LPC_SCB_MAINCLKUEN_ENA)))
 113                 ;
 114
 115         /* Find a PLL post divider ratio that gets the FCCO in range */
 116         for (p = 0; p < 4; p++)
 117                 if (AO_LPC_CLKOUT << (1 + p) >= AO_LPC_FCCO_MIN)
 118                         break;
 119
 120         if (p == 4)
 121                 ao_panic(AO_PANIC_CRASH);
 122
 123         /* Power down the PLL before touching the registers */
 124         lpc_scb.pdruncfg |= (1 << LPC_SCB_PDRUNCFG_SYSPLL_PD);
 125         ao_clock_delay();
 126
 127         /* Set PLL divider values */
 128         lpc_scb.syspllctrl = ((AO_LPC_M << LPC_SCB_SYSPLLCTRL_MSEL) |
 129                               (p << LPC_SCB_SYSPLLCTRL_PSEL));
 130
 131         /* Turn off the external crystal clock */
 132         lpc_scb.pdruncfg |= (1 << LPC_SCB_PDRUNCFG_SYSOSC_PD);
 133         ao_clock_delay();
 134
 135         /* Configure the crystal clock */
 136         lpc_scb.sysoscctrl = ((0 << LPC_SCB_SYSOSCCTRL_BYPASS) |                           /* using a crystal */
 137                               ((AO_LPC_CLKIN > 15000000) << LPC_SCB_SYSOSCCTRL_FREQRANGE));/* set range */
 138
 139         /* Turn on the external crystal clock */
 140         lpc_scb.pdruncfg &= ~(1 << LPC_SCB_PDRUNCFG_SYSOSC_PD);
 141         ao_clock_delay();
 142
 143         /* Select crystal as PLL input */
 144
 145         lpc_scb.syspllclksel = (LPC_SCB_SYSPLLCLKSEL_SEL_SYSOSC << LPC_SCB_SYSPLLCLKSEL_SEL);
 146         lpc_scb.syspllclkuen = (1 << LPC_SCB_SYSPLLCLKUEN_ENA);
 147         lpc_scb.syspllclkuen = (0 << LPC_SCB_SYSPLLCLKUEN_ENA);
 148         lpc_scb.syspllclkuen = (1 << LPC_SCB_SYSPLLCLKUEN_ENA);
 149         while (!(lpc_scb.syspllclkuen & (1 << LPC_SCB_SYSPLLCLKUEN_ENA)))
 150                 ;
 151
 152         /* Turn on the PLL */
 153         lpc_scb.pdruncfg &= ~(1 << LPC_SCB_PDRUNCFG_SYSPLL_PD);
 154
 155         /* Wait for it to lock */
 156
 157         for (i = 0; i < 20000; i++)
 158                 if (lpc_scb.syspllstat & (1 << LPC_SCB_SYSPLLSTAT_LOCK))
 159                         break;
 160         if (i == 20000)
 161                 ao_panic(AO_PANIC_CRASH);
 162
 163         /* Switch to the PLL */
 164         lpc_scb.mainclksel = LPC_SCB_MAINCLKSEL_SEL_PLL_OUTPUT << LPC_SCB_MAINCLKSEL_SEL;
 165         lpc_scb.mainclkuen = (1 << LPC_SCB_MAINCLKUEN_ENA);
 166         lpc_scb.mainclkuen = (0 << LPC_SCB_MAINCLKUEN_ENA);
 167         lpc_scb.mainclkuen = (1 << LPC_SCB_MAINCLKUEN_ENA);
 168         while (!(lpc_scb.mainclkuen & (1 << LPC_SCB_MAINCLKUEN_ENA)))
 169                 ;
 170
 171         /* Set system clock divider */
 172         lpc_scb.sysahbclkdiv = AO_LPC_CLKOUT / AO_LPC_SYSCLK;
 173
 174         /* Shut down perhipheral clocks (enabled as needed) */
 175         lpc_scb.ssp0clkdiv = 0;
 176         lpc_scb.uartclkdiv = 0;
 177         lpc_scb.ssp1clkdiv = 0;
 178         lpc_scb.usbclkdiv = 0;
 179         lpc_scb.clkoutdiv = 0;
 180
 181         /* Power down everything we don't need */
 182         lpc_scb.pdruncfg = ((1 << LPC_SCB_PDRUNCFG_IRCOUT_PD) |
 183                             (1 << LPC_SCB_PDRUNCFG_IRC_PD) |
 184                             (1 << LPC_SCB_PDRUNCFG_BOD_PD) |
 185                             (1 << LPC_SCB_PDRUNCFG_ADC_PD) |
 186                             (1 << LPC_SCB_PDRUNCFG_WDTOSC_PD) |
 187                             (1 << LPC_SCB_PDRUNCFG_USBPLL_PD) |
 188                             (1 << LPC_SCB_PDRUNCFG_USBPAD_PD) |
 189                             (1 << 11) |
 190                             (7 << 13));
 191 }