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.fs | 45 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 forth/forth/avr/task-test.fs (limited to 'forth/forth/avr/task-test.fs') diff --git a/forth/forth/avr/task-test.fs b/forth/forth/avr/task-test.fs new file mode 100644 index 0000000..815aaf4 --- /dev/null +++ b/forth/forth/avr/task-test.fs @@ -0,0 +1,45 @@ +\ ******************************************************************* +\ * +\ Filename: task-test.txt * +\ Date: 06.01.2014 * +\ FF Version: 5.0 * +\ MCU: Atmega 128(Olimex AVR-MT-128) * +\ Copyright: Mikael Nordman * +\ Author: Mikael Nordman * +\ ******************************************************************* +\ FlashForth is licensed according to the GNU General Public License* +\ ******************************************************************* +\ Demo for the Olimex AVR-MT-128. Switches relay and blinks led in +\ background task. +single +-task1 +marker -task1 +ram hex +\ Registers for Atmega 128. Change if needed +$003b constant porta +$003a constant ddra +$0039 constant pina +$40 constant pin6 +ram variable delay +: ledoff pin6 porta mclr ; +: ledon pin6 porta mset ; + +0 18 20 0 task: task1 +: taskloop + 400 delay ! + $40 ddra mset \ Output + begin + delay @ ms + pin6 porta mtst + if + ledoff + else + ledon + then + again +; + +: t1go ['] taskloop task1 tinit task1 run ; + +\ ' t1go is turnkey +\ warm -- cgit v1.2.3