From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/tests/multitask-test.frt | 45 ++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 amforth-6.5/tests/multitask-test.frt (limited to 'amforth-6.5/tests/multitask-test.frt') diff --git a/amforth-6.5/tests/multitask-test.frt b/amforth-6.5/tests/multitask-test.frt new file mode 100644 index 0000000..a479280 --- /dev/null +++ b/amforth-6.5/tests/multitask-test.frt @@ -0,0 +1,45 @@ +\ lib/multitask-test.frt + +$38 constant PORTB +$37 constant DDRB + +include lib/multitask.frt \ load the multitasker + +: ms ( n -- ) \ call pause on wait + 0 ?do pause 1ms loop ; + + \ create a persistent task +variable N +: init + $ff PORTB c! \ portB: all pins high + $ff DDRB c! \ all pins output + 0 N ! +; +\ --- task 2 --- +: run-demo + begin + N @ invert PORTB c! + 1 N +! + &500 ms + again +; +$40 $40 0 task: task_demo \ create task space +: start-demo + task_demo tcb>tid + activate \ words after this line are run in new task + run-demo +; +: starttasker + task_demo task-init \ create TCB in RAM + start-demo \ activate tasks job + + onlytask \ make cmd loop task-1 + task_demo tcb>tid alsotask \ start task-2 + multi \ activate multitasking +; +: run-turnkey + applturnkey + init + starttasker +; +' run-turnkey is turnkey \ make run-turnkey start on power up -- cgit v1.2.3