\ *********************************************************************
\                                                                     *
\    Filename:      task-test.fth                                     *
\    Date:          15.1.2008                                        *
\    FF Version:    3.2                                               *
\    Copyright:     Mikael Nordman                                    *
\    Author:        Mikael Nordman                                    *
\ *********************************************************************
\    FlashForth is licensed acording to the GNU General Public License*
\ *********************************************************************
\
\ Test tasks and the character bit manipulation words
\
-lblink
marker -lblink
ram hex

$ff82 con portc
$ff94 con trisc
$2 user bitmask    \ The bitmask
$4 user delay      \ The delay time in milliseconds

: lblink
  begin
    bitmask c@ trisc mclr
    delay @ ms
    bitmask c@ portc mset 
    delay @ ms
    bitmask c@ portc mclr
  again
;

flash $0 $10 $10 $4 task tblink
: tblink-init
  ['] lblink tblink tinit
  $1 tblink bitmask his !
  $100 tblink delay his !
;
tblink-init
tblink run

flash $0 $10 $10 $4 task tblink1
: tblink1-init
  ['] lblink tblink1 tinit
  $2 tblink1 bitmask his !
  $a0 tblink1 delay his !
;

tblink1-init
#1000 ms
tblink1 run

#1000 ms
single

: blink2 tblink-init tblink run tblink1-init tblink1 run ; 

blink2
#1000 ms
single

\ Make blink2 start after reset.
' blink2 is turnkey
warm