aboutsummaryrefslogtreecommitdiff
path: root/j1demo/firmware/time.fs
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2019-10-30 20:04:56 +0100
committerDimitri Sokolyuk <demon@dim13.org>2019-10-30 20:04:56 +0100
commita76977af62010a392c16010c367185e61e856ffe (patch)
tree56cf4177d5bc0e3ead781d1c60818c13b1df0f3c /j1demo/firmware/time.fs
parentc0165d167d7cb40d80028bcf7a4a6b160b5a7e83 (diff)
mv to docs
Diffstat (limited to 'j1demo/firmware/time.fs')
-rw-r--r--j1demo/firmware/time.fs33
1 files changed, 0 insertions, 33 deletions
diff --git a/j1demo/firmware/time.fs b/j1demo/firmware/time.fs
deleted file mode 100644
index 4d53113..0000000
--- a/j1demo/firmware/time.fs
+++ /dev/null
@@ -1,33 +0,0 @@
-( Time access JCB 13:27 08/24/10)
-
-variable prevth \ previous high time
-2variable timeh \ high 32 bits of time
-
-: time@ ( -- time. )
- begin
- time 2@
- time 2@
- 2over d<>
- while
- 2drop
- repeat
-
-\ dup prevth fall? if
-\ d# 1. timeh d+!
-\ then
-;
-
-: timeq ( -- d d ) \ 64-bit time
- time@ timeh 2@ ;
-
-: setalarm ( d a -- ) \ set alarm a for d microseconds hence
- >r time@ d+ r> 2! ;
-: isalarm ( a -- f )
- 2@ time@ d- d0<= ;
-
-2variable sleeper
-: sleepus sleeper setalarm begin sleeper isalarm until ;
-: sleep.1 d# 100000. sleepus ;
-: sleep1 d# 1000000. sleepus ;
-
-: took ( d -- ) time@ 2swap d- s" took " type d. cr ;