[OpenBIOS] r590 - forth/lib
svn at openbios.org
svn at openbios.org
Fri Aug 31 03:04:53 CEST 2007
Author: wmb
Date: 2007-08-31 03:04:52 +0200 (Fri, 31 Aug 2007)
New Revision: 590
Added:
forth/lib/wrtime.fth
Log:
Added forth/lib/wrtime.fth - interval delays using wrapper calls.
Added: forth/lib/wrtime.fth
===================================================================
--- forth/lib/wrtime.fth (rev 0)
+++ forth/lib/wrtime.fth 2007-08-31 01:04:52 UTC (rev 590)
@@ -0,0 +1,15 @@
+purpose: Timing using wrapper calls
+
+: get-usecs ( -- d.usec )
+ d# 348 syscall retval 2@ ( usec sec )
+ d# 1,000,000 um* rot 0 d+
+;
+
+\ We really should call usleep, but that wrapper doesn't have that
+: (us) ( d.microseconds -- )
+ get-usecs d+ ( d.target-time )
+ begin 2dup get-usecs d- d0< until ( d.target-time )
+ 2drop
+;
+: us ( microseconds -- ) 0 (us) ;
+: ms ( milliseconds -- ) d# 1000 um* (us) ;
More information about the OpenBIOS
mailing list