Author: rsmith Date: 2009-01-28 20:06:46 +0100 (Wed, 28 Jan 2009) New Revision: 1090
Modified: dev/olpc/kb3700/ecio.fth Log: OLPC: Add a bunch of extra EC interaction words that were kicking around in my tree
Modified: dev/olpc/kb3700/ecio.fth =================================================================== --- dev/olpc/kb3700/ecio.fth 2009-01-28 17:20:38 UTC (rev 1089) +++ dev/olpc/kb3700/ecio.fth 2009-01-28 19:06:46 UTC (rev 1090) @@ -8,6 +8,13 @@ : ec@ ( index -- b ) wbsplit iobase 1+ pc! iobase 2+ pc! iobase 3 + pc@ ; : ec! ( b index -- ) wbsplit iobase 1+ pc! iobase 2+ pc! iobase 3 + pc! ;
+: autowak! ( value -- ) f64f ec! ; +: autowak-on ( -- ) 1 autowak! ; +: autowak-off ( -- ) 0 autowak! ; +: autowak-delay ( delay -- ) wbsplit f650 ec! f651 ec! ; +: kbc-debug-on ( -- ) 1 fbfe ec! ; +: kbc-debug-off ( -- ) 0 fbfe ec! ; + : ec-dump ( offset len -- ) ." Addr 0 1 2 3 4 5 6 7 8 9 a b c d e f" cr cr push-hex @@ -156,9 +163,11 @@ : ebook-mode? ( -- b ) h# 2a ec-cmd-b@ ; : wlan-freeze ( -- ) h# 35 ec-cmd ; : sci-queue@ ( -- b ) h# 84 ec-cmd-b@ ; +: ec-api-ver@ ( -- b ) h# 08 ec-cmd-b@ ; : sci-inhibit ( -- ) h# 32 ec-cmd ; : sci-uninhibit ( -- ) h# 34 ec-cmd ;
+: sci-inhibit-delay ( delay -- ) wbsplit f64d ec! f64e ec! ; : ec-indexed-io-off ( -- ) h# fe95 ec@ h# 40 invert and h# fe95 ec! ;
0 [if]