[openfirmware] r1090 - dev/olpc/kb3700
svn at openfirmware.info
svn at openfirmware.info
Wed Jan 28 20:06:46 CET 2009
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]
More information about the openfirmware
mailing list