examples/lm3s1968/lm3s1968.c

   1 /**
   2  * \file
   3  * <!--
   4  * This file is part of BeRTOS.
   5  *
   6  * Bertos is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  19  *
  20  * As a special exception, you may use this file as part of a free software
  21  * library without restriction.  Specifically, if other files instantiate
  22  * templates or use macros or inline functions from this file, or you compile
  23  * this file and link it with other files to produce an executable, this
  24  * file does not by itself cause the resulting executable to be covered by
  25  * the GNU General Public License.  This exception does not however
  26  * invalidate any other reasons why the executable file might be covered by
  27  * the GNU General Public License.
  28  *
  29  * Copyright 2010 Develer S.r.l. (http://www.develer.com/)
  30  *
  31  * -->
  32  *
  33  * \brief LM3S1968 Cortex-M3 testcase
  34  *
  35  * \author Andrea Righi <arighi@develer.com>
  36  */
  37
  38 #include <cpu/irq.h>
  39 #include <drv/timer.h>
  40 #include "io/lm3s.h"
  41
  42 static Process *hp_proc, *lp_proc;
  43
  44 static hptime_t start, end;
  45
  46 static void led_init(void)
  47 {
  48         /* Enable the GPIO port that is used for the on-board LED */
  49         SYSCTL_RCGC2_R = SYSCTL_RCGC2_GPIOG;
  50         /*
  51          * Perform a dummy read to insert a few cycles delay before enabling
  52          * the peripheral.
  53          */
  54         (void)SYSCTL_RCGC2_R;
  55         /* Enable the GPIO pin for the LED */
  56         GPIO_PORTG_DIR_R = 0x04;
  57         GPIO_PORTG_DEN_R = 0x04;
  58 }
  59
  60 INLINE void led_on(void)
  61 {
  62         GPIO_PORTG_DATA_R |= 0x04;
  63 }
  64
  65 INLINE void led_off(void)
  66 {
  67         GPIO_PORTG_DATA_R &= ~0x04;
  68 }
  69
  70 INLINE hptime_t get_hp_ticks(void)
  71 {
  72         return (TIMER_HW_CNT - timer_hw_hpread()) +
  73                         timer_clock_unlocked() * TIMER_HW_CNT;
  74 }
  75
  76 #if CONFIG_KERN_HEAP
  77 #define hp_stack NULL
  78 #define HP_STACK_SIZE   KERN_MINSTACKSIZE * 2
  79 #else
  80 static PROC_DEFINE_STACK(hp_stack, KERN_MINSTACKSIZE * 2);
  81 #define HP_STACK_SIZE   sizeof(hp_stack)
  82 #endif
  83
  84 static void NORETURN hp_process(void)
  85 {
  86         char spinner[] = {'/', '-', '\\', '|'};
  87         int i;
  88
  89         for(i = 0; ; i++)
  90         {
  91                 sig_wait(SIG_USER0);
  92                 end = get_hp_ticks();
  93                 kprintf("%c context switch in %lu clock cycles (~%lu us)    \r",
  94                                 spinner[i % countof(spinner)],
  95                                 end - start,
  96                                 ((end - start) * 1000000 / CPU_FREQ));
  97                 led_off();
  98                 timer_delay(50);
  99                 sig_send(lp_proc, SIG_USER0);
 100         }
 101 }
 102
 103 static void NORETURN lp_process(void)
 104 {
 105         while (1)
 106         {
 107                 led_on();
 108                 timer_delay(50);
 109                 start = get_hp_ticks();
 110                 sig_send(hp_proc, SIG_USER0);
 111                 sig_wait(SIG_USER0);
 112         }
 113 }
 114
 115 int main(void)
 116 {
 117         IRQ_ENABLE;
 118         kdbg_init();
 119
 120         kputs("Init LED..");
 121         led_init();
 122         kputs("Done.\n");
 123         kputs("Init Timer..");
 124         timer_init();
 125         kputs("Done.\n");
 126         kputs("Init Process..");
 127         proc_init();
 128         kputs("Done.\n");
 129
 130         kputs("Check scheduling functionality\n");
 131         proc_testRun();
 132
 133         kputs("BeRTOS is up & running\n\n");
 134         hp_proc = proc_new(hp_process, NULL, HP_STACK_SIZE, hp_stack);
 135         lp_proc = proc_current();
 136
 137         proc_setPri(hp_proc, 2);
 138         proc_setPri(lp_proc, 1);
 139
 140         lp_process();
 141 }