r673 - dev/olpc/kb3700

Author: wmb
Date: 2007-10-12 00:15:10 +0200 (Fri, 12 Oct 2007)
New Revision: 673

Modified:
   dev/olpc/kb3700/ecio.fth
Log:
OLPC ecio.fth - added new command ec-indexed-io-off for later use
when we pull the plug on indexed I/O.

Modified: dev/olpc/kb3700/ecio.fth
===================================================================
--- dev/olpc/kb3700/ecio.fth	2007-10-10 00:18:33 UTC (rev 672)
+++ dev/olpc/kb3700/ecio.fth	2007-10-11 22:15:10 UTC (rev 673)
@@ -154,6 +154,8 @@
 : write-protect-fw ( -- )  h# 29 ec-cmd  ;
 : ebook-mode?      ( -- b )  h# 2a ec-cmd-b@  ;

+: ec-indexed-io-off  ( -- )  h# fe95 ec@  h# 40 invert and  h# fe95 ec!  ;
+
 0 [if]
 \ EC mailbox access words