\ ********************************************************************* \ * \ Filename: task-test.txt * \ Date: 21.02.2011 * \ FF Version: 3.7 * \ Copyright: Mikael Nordman * \ Author: Mikael Nordman * \ ********************************************************************* \ FlashForth is licensed acording to the GNU General Public License* \ ********************************************************************* \ \ Test tasks and the character bit manipulation words \ single -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 bitmask c@ trisc mclr begin delay @ ms bitmask c@ portc mset delay @ ms pause bitmask c@ portc mclr again ; $0 $10 $20 $4 task: tblink : setdelay tblink delay his ! ; : tblink-init ['] lblink tblink tinit $4 tblink bitmask his ! $30 setdelay ; : blink1 tblink-init tblink run ; blink1 tasks \ Make blink1 start after reset. ' blink1 is turnkey cr decimal load . cr