fl

hex

{
Set time to DS1337 by using Denpatokei(Radio Controlled Clock)
Read time from DS1337
    PropForth 4.6 
    09/08/2011 22:59:14

}

: set_DS1337 denpatokei _DS1337_time_w ;

: read_DS1337
_DS1337_time_r 
." Year  :" bcd> 7d0 + . cr
." Month :" <# _rtc_mon 0 #> .cstr cr
." Day   :" bcd> . cr
." week  :" <# _rtc_dow 0 #> .cstr cr
." Hour  :" bcd> . cr
." Minute:" bcd> . cr
." Second:" bcd> . cr
;




decimal