Code Body

To use this file copy and paste this: // #URL-lib "http://pin1.org/forthlib/flb/Interupts/shed-example.fth" into BV Terminal 3 or here to download.

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
// Simple example of using the schedule libraries, there are two kinds
// of shceduler, the round robbin (rr-shed) and the burst (b-shed), see
// the library header for each to notice the difference.
// This example can be used with either by changing the library include.
//
// This example simly flashed an LED on and off in the background
//
// Note the SID value, b-shed is an EXTENTION of interrupt, they must
// have the same value as they share common words that are not made
// public <0>
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES: // #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99 // #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100 // #URL-lib "http://pin1.org/forthlib/flb/Interupts/interrupt.flb" sid=101 // #URL-lib "http://pin1.org/forthlib/flb/Interupts/b-shed.flb" sid=101

// CONSTANTS: // This is a counter to control the flash rate of the LED integer tx1

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// Simple example of using the schedule libraries, there are two kinds
// of shceduler, the round robbin (rr-shed) and the burst (b-shed), see
// the library header for each to notice the difference.
// This example can be used with either by changing the library include.
//
// This example simly flashed an LED on and off in the background
//
// Note the SID value, b-shed is an EXTENTION of interrupt, they must
// have the same value as they share common words that are not made
// public <0>
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES:
// #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100
// #URL-lib "http://pin1.org/forthlib/flb/Interupts/interrupt.flb" sid=101
// #URL-lib "http://pin1.org/forthlib/flb/Interupts/b-shed.flb" sid=101

// CONSTANTS:
// This is a counter to control the flash rate of the LED
i n t e g e r t x 1

// Initialise the port p1.16 in this case, set up the schedule interval
// to 10ms and call s-start to initiate scheduling
: t-init
-1 6 i o -o u t // set port to o/p
1 0 s -i n t e r v a l ! // set interval 10 10ms
s -s t a r t // start scheduler
1 -1 6 p ! // 1 is off, turn off led
;

// This word is placed into the schedule by (go), it simply turns
// on or off the led according to the value in tx1. It also increments
// tx1 each time it gets called and resets it when the max has been reached
: f-led
t x 1 1 0 0 < i f 1 -1 6 p ! t h e n // off for 1 second
t x 1 1 0 0 > i f 0 -1 6 p ! t h e n // on if > 100
t x 1 1 2 0 > i f 0 => t x 1 t h e n // reset at 120
1 +> t x 1 // continual increment
;

// this can be done at the command line with ' f-led s-add but this
// shows how to use ['] to implemnt it in a word. ['] will place the cfa
// of the following word on the stack at runtime
: go
t -i n i t
['] f -l e d s -a d d -1 <> a b o r t " p r o b l e m a d d i n g t o s c h e d u l e "
;

// just some words to show that the schedule can suspend
: look p s . ;
: halt ['] f -l e d s -p a u s e ;
: res ['] f -l e d s -r e s u m e ;