[OpenBIOS] r347 - dev/olpc/kb3700
svn at openbios.org
svn at openbios.org
Thu May 3 10:25:39 CEST 2007
Author: wmb
Date: 2007-05-03 10:25:39 +0200 (Thu, 03 May 2007)
New Revision: 347
Modified:
dev/olpc/kb3700/ecio.fth
Log:
OLPC EC commands - Added a time delay to the polling loop for EC command
response data, so the system doesn't hang because the EC is being polled
too fast for it to make any progress.
Modified: dev/olpc/kb3700/ecio.fth
===================================================================
--- dev/olpc/kb3700/ecio.fth 2007-05-03 08:23:33 UTC (rev 346)
+++ dev/olpc/kb3700/ecio.fth 2007-05-03 08:25:39 UTC (rev 347)
@@ -42,8 +42,8 @@
: ec-release ( -- ) h# ff h# 6c pc! ;
: ec-cmd@ ( -- b ) h# 6c pc@ ;
-: ec-wait-wr ( -- ) begin ec-cmd@ 2 and 0= key? abort" wait wr" until ;
-: ec-wait-rd ( -- ) begin ec-cmd@ 1 and key? abort" wait rd" until ;
+: ec-wait-wr ( -- ) begin ec-cmd@ 2 and while key? abort" wait wr" 1 ms repeat ;
+: ec-wait-rd ( -- ) begin ec-cmd@ 1 and 0= while key? abort" wait rd" 1 ms repeat ;
: ec-cmd! ( b -- ) ec-wait-wr h# 6c pc! ec-wait-wr ;
: ec-dat@ ( -- b ) ec-wait-rd h# 68 pc@ ;
: ec-dat! ( b -- ) ec-wait-wr h# 68 pc! ;
More information about the OpenBIOS
mailing list