From 2f83a0bea9da444e3d70569eba3d6847ca02be03 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 21:59:17 +0200 Subject: ... --- forth/forth/avr/task-test-arduino-uno.fs | 45 ++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 forth/forth/avr/task-test-arduino-uno.fs (limited to 'forth/forth/avr/task-test-arduino-uno.fs') diff --git a/forth/forth/avr/task-test-arduino-uno.fs b/forth/forth/avr/task-test-arduino-uno.fs new file mode 100644 index 0000000..a119ae5 --- /dev/null +++ b/forth/forth/avr/task-test-arduino-uno.fs @@ -0,0 +1,45 @@ +\ ******************************************************************* +\ * +\ Filename: task-test-arduino-uno.txt * +\ Date: 01.10.2013 * +\ FF Version: 5.0 * +\ MCU: ArduinoUnoR3 ATmega328P * +\ Copyright: Mikael Nordman * +\ Author: Mikael Nordman * +\ ******************************************************************* +\ FlashForth is licensed according to the GNU General Public License* +\ ******************************************************************* +\ Demo for the ArduinoUnoR3. Blinks yellow led in background task. +single +-task1 +marker -task1 +ram hex +\ Registers for Atmega 328p. +$0025 constant portb +$0024 constant ddrb +$0023 constant pinb +$20 constant pin5 +ram variable delay +: ledoff pin5 portb mclr ; +: ledon pin5 portb mset ; + +0 18 20 0 task: task1 +: taskloop + $100 delay ! + pin5 ddrb mset \ Output + begin + delay @ ms + pin5 portb mtst + if + ledoff + else + ledon + then + again +; + +: t1go ['] taskloop task1 tinit task1 run ; + +' t1go is turnkey +warm + -- cgit v1.2.3