From a76977af62010a392c16010c367185e61e856ffe Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 30 Oct 2019 20:04:56 +0100 Subject: mv to docs --- j1demo/firmware/clock.fs | 90 ------------------------------------------------ 1 file changed, 90 deletions(-) delete mode 100644 j1demo/firmware/clock.fs (limited to 'j1demo/firmware/clock.fs') diff --git a/j1demo/firmware/clock.fs b/j1demo/firmware/clock.fs deleted file mode 100644 index 4bb35bb..0000000 --- a/j1demo/firmware/clock.fs +++ /dev/null @@ -1,90 +0,0 @@ -( Clock JCB 10:54 11/17/10) - -variable seconds -variable minutes -variable hours -variable days -variable months -variable years -variable weekday - -: show2 ( a -- ) @ s>d <# # # #> type ; - -: setdate ( ud -- ) - [ -8 3600 * ] literal s>d d+ - d# 1 d# 60 m*/mod seconds ! - d# 1 d# 60 m*/mod minutes ! - d# 1 d# 24 m*/mod hours ! - d# 59. d- \ Days since Mar 1 1900 - 2dup d# 1 d# 7 m*/mod weekday ! 2drop - d# 365 um/mod ( days years ) - dup d# 1900 + years ! - d# 4 / 1- - \ subtract leaps ( daynum 0-365 ) - dup d# 5 * d# 308 + d# 153 / d# 2 - months ! - months @ d# 4 + d# 153 d# 5 */ - d# 122 + days ! - - home - 'emit @ >r - ['] vga-bigemit 'emit ! - - s" ThuFriSatSunMonTueWed" drop - weekday @ d# 3 * + d# 3 type cr - s" MarAprMayJunJulAugSepOctNovDecJanFeb" drop - months @ d# 3 * + d# 3 type - space days @ d# 0 .r cr - years @ . cr - - true if - hours show2 - minutes show2 - seconds show2 - home - then - - r> 'emit ! -; - -: setdelay ( ud -- ) - 'emit @ >r - ['] vga-emit 'emit ! - d# 32 d# 0 vga-at-xy - s" ntp " type <# # # # [char] . hold #s #> type - s" ms " type - r> 'emit ! -; - -include ntp.fs - -2variable ntp-alarm - -: clock-main - vga-page - d# 1000000. ntp-alarm setalarm - begin - begin - mac-fullness - while - arp-handler - OFFSET_ETH_TYPE packet@ h# 800 = - if - d# 2 OFFSET_IP_DSTIP mac-inoffset mac@n net-my-ip d= - if - icmp-handler - then - loader-handler - ntp-handler - then - - depth if .s cr then - mac-consume - repeat - - ntp-alarm isalarm if - ntp-request - d# 1000000. ntp-alarm setalarm - then - - next? - until -; - -- cgit v1.2.3