aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/examples/date-time.frt
blob: 13e5d25d5f86f057c1762b55ccbfb764323cf7f6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
;