Mercurial > lcfOS
comparison test/c3examples/burn2.c3 @ 284:05184b95fa16
Moved tests to seperate folder
| author | Windel Bouwman |
|---|---|
| date | Fri, 15 Nov 2013 13:43:22 +0100 |
| parents | python/c3/examples/burn2.c3@02385f62f250 |
| children | 1c7c1e619be8 |
comparison
equal
deleted
inserted
replaced
| 283:c9781c73e7e2 | 284:05184b95fa16 |
|---|---|
| 1 /* | |
| 2 | |
| 3 This file blinks a LED on the STM32F4 discovery board. | |
| 4 | |
| 5 the board has 4 leds on PD12, PD13, PD14 and PD15 | |
| 6 | |
| 7 */ | |
| 8 | |
| 9 module burn2; | |
| 10 | |
| 11 import stm32f4xx; | |
| 12 | |
| 13 function int add(int a, int b) | |
| 14 { | |
| 15 return a + b; | |
| 16 } | |
| 17 | |
| 18 function void init(int pin) | |
| 19 { | |
| 20 if (pin < 12) | |
| 21 { | |
| 22 return; | |
| 23 } | |
| 24 | |
| 25 /*if (pin > 15) | |
| 26 { | |
| 27 return; | |
| 28 }*/ | |
| 29 | |
| 30 var RCC_Type RCC; | |
| 31 RCC = cast<RCC_Type>(0x40023800); | |
| 32 | |
| 33 // Enable the clock to port D: | |
| 34 RCC->AHB1ENR = RCC->AHB1ENR | (1 << 3); | |
| 35 // Memory mapped control registers: | |
| 36 var GPIO_Type GPIOD; | |
| 37 GPIOD = cast<GPIO_Type>(0x40020C00); | |
| 38 | |
| 39 // PD13 == output (01) | |
| 40 GPIOD->MODER = (1 << (pin << 1)); | |
| 41 GPIOD->ODR = (1 << pin); | |
| 42 } | |
| 43 | |
| 44 | |
| 45 function void main() | |
| 46 { | |
| 47 // Vary between 12 and 15: | |
| 48 init(13); | |
| 49 | |
| 50 var int a; | |
| 51 a = 0 | |
| 52 while (a < 1000) | |
| 53 { | |
| 54 a = a + 1; | |
| 55 } | |
| 56 | |
| 57 while(true) {} | |
| 58 } | |
| 59 |