forked from KolibriOS/kolibrios
57 lines
1.1 KiB
Plaintext
57 lines
1.1 KiB
Plaintext
(*
|
||
Пример для STM32L152C-DISCO
|
||
|
||
В зависимости от значения константы LED,
|
||
мигает синий или зеленый светодиод.
|
||
*)
|
||
|
||
MODULE Blink;
|
||
|
||
IMPORT SYSTEM;
|
||
|
||
|
||
CONST
|
||
|
||
GPIOB = 40020400H;
|
||
GPIOB_MODER = GPIOB;
|
||
GPIOB_BSRR = GPIOB + 18H;
|
||
|
||
RCC = 40023800H;
|
||
RCC_AHBENR = RCC + 1CH;
|
||
|
||
Blue = 6; (* PB6 *)
|
||
Green = 7; (* PB7 *)
|
||
|
||
LED = Blue;
|
||
|
||
VAR
|
||
|
||
x: SET;
|
||
state: BOOLEAN;
|
||
|
||
|
||
PROCEDURE Delay (x: INTEGER);
|
||
BEGIN
|
||
REPEAT
|
||
DEC(x)
|
||
UNTIL x = 0
|
||
END Delay;
|
||
|
||
|
||
BEGIN
|
||
(* подключить GPIOB *)
|
||
SYSTEM.GET(RCC_AHBENR, x);
|
||
SYSTEM.PUT(RCC_AHBENR, x + {1});
|
||
|
||
(* настроить PB6 или PB7 на выход *)
|
||
SYSTEM.GET(GPIOB_MODER, x);
|
||
SYSTEM.PUT(GPIOB_MODER, x - {LED * 2 - 1} + {LED * 2});
|
||
|
||
state := FALSE;
|
||
REPEAT
|
||
(* включить или выключить светодиод *)
|
||
SYSTEM.PUT(GPIOB_BSRR, {LED + 16 * ORD(state)});
|
||
state := ~state;
|
||
Delay(200000)
|
||
UNTIL FALSE
|
||
END Blink. |