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/common/lib/hardware/date-time.frt | 29 +++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 amforth-6.5/common/lib/hardware/date-time.frt (limited to 'amforth-6.5/common/lib/hardware/date-time.frt') diff --git a/amforth-6.5/common/lib/hardware/date-time.frt b/amforth-6.5/common/lib/hardware/date-time.frt new file mode 100644 index 0000000..13e5d25 --- /dev/null +++ b/amforth-6.5/common/lib/hardware/date-time.frt @@ -0,0 +1,29 @@ + +\ create task space +$20 $20 0 task: t:date&time + +variable seconds +\ runs every second +: job-date&time + 1 seconds +! + \ more code for minute/hour/day... + 0 \ flag for an endless loop +; + +\ set up the task +: setup-date&time + t:date&time task-init \ create TCB in RAM + 0 seconds ! \ more code for minutes etc + t:date&time tcb>tid activate + \ code from here is executed as task, later on + ['] job-date&time every-second +; + +\ setup and start the task "date/time" +: turnkey-date&time + onlytask \ set up multitasker + 6 timer0.init timer0.start \ 16 MHz quartz + \ insert task into task list + setup-date&time t:date&time tcb>tid alsotask + multi \ start multitasking +; -- cgit v1.2.3