From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- .../lib/forth2012/facility/time-and-date.frt | 33 ---------------------- 1 file changed, 33 deletions(-) delete mode 100644 amforth-6.5/common/lib/forth2012/facility/time-and-date.frt (limited to 'amforth-6.5/common/lib/forth2012/facility/time-and-date.frt') diff --git a/amforth-6.5/common/lib/forth2012/facility/time-and-date.frt b/amforth-6.5/common/lib/forth2012/facility/time-and-date.frt deleted file mode 100644 index aecbeff..0000000 --- a/amforth-6.5/common/lib/forth2012/facility/time-and-date.frt +++ /dev/null @@ -1,33 +0,0 @@ - - -\ common words for date&time - -\ uses timer interrrupt module to call -\ a background task every second. - -\ holds the ever increasing time ticks -\ unfortunatly, a day has more seconds -\ a 16bit variable can store. -2variable time \ the seconds of the current day -2variable date \ a day number - -\ a background task -: next-second - time 2@ 1. d+ 2dup - 86399. d> if - 2drop 0. - 1. date d+! - then - time 2! -; - -: dateinit - 0. time 2! - 0. date 2! -; - -\ simple world. Every month has 30 days -: time&date ( -- sec min hour day month year ) - date 2@ 365 um/mod 30 /mod ( -- day month year ) - time 2@ 24 um/mod 60 /mod ( -- sec min hour ) -; -- cgit v1.2.3