Use common timebase and delay code in all boards.

There is a file called timebase.fs in the common code folder already, so there is no need to duplicate the delay functions in the board directories, too. Signed-off-by: Thomas Huth <[email protected]>
aik · Mar 21, 2011 · cf69a59 · cf69a59
1 parent 95de9a1
commit cf69a59
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 9 deletions.
diff --git a/board-js2x/slof/OF.fs b/board-js2x/slof/OF.fs
@@ -207,13 +207,7 @@ d# 14318378 VALUE tb-frequency   \ default value - needed for "ms" to work
 #include "helper.fs"
 260 cp
 
-: tb@  BEGIN tbu@ tbl@ tbu@ rot over <> WHILE 2drop REPEAT
-       20 lshift swap ffffffff and or ;
-: milliseconds  tb@ d# 1000 * tb-frequency / ;
-: ms  milliseconds + BEGIN milliseconds over >= UNTIL drop ;
-: get-msecs ( -- n ) milliseconds ;
-\ : usecs tb@ d# 1000000 * tb-frequency / ;
-: us 999 + 1000 / ms ;
+#include <timebase.fs>
 
 280 cp
 

diff --git a/slof/fs/timebase.fs b/slof/fs/timebase.fs
@@ -11,8 +11,13 @@
 \ ****************************************************************************/
 \ Define all timebase related words
 
-: milliseconds ( -- ms ) tbl@ d# 1000 * tb-frequency / ;
-: microseconds ( -- us ) tbl@ d# 1000000 * tb-frequency / ;
+: tb@  ( -- tb )
+   BEGIN tbu@ tbl@ tbu@ rot over <> WHILE 2drop REPEAT
+   20 lshift swap ffffffff and or
+;
+
+: milliseconds ( -- ms ) tb@ d# 1000 * tb-frequency / ;
+: microseconds ( -- us ) tb@ d# 1000000 * tb-frequency / ;
 
 : ms ( ms-to-wait -- ) milliseconds + BEGIN milliseconds over >= UNTIL drop ;
 : get-msecs ( -- n ) milliseconds ;