[openfirmware] r1284 - dev

[svn at openfirmware.info]

Author: wmb
Date: 2009-08-06 02:15:55 +0200 (Thu, 06 Aug 2009)
New Revision: 1284

Modified:
   dev/pckbd.fth
Log:
PC keyboard - Increased timeout values to cope with slow embedded controllers.














Modified: dev/pckbd.fth
===================================================================
--- dev/pckbd.fth	2009-08-06 00:15:18 UTC (rev 1283)
+++ dev/pckbd.fth	2009-08-06 00:15:55 UTC (rev 1284)
@@ -123,7 +123,7 @@
 : got-ack?  ( -- true | timeout? false )
    begin
       \ No response - retry once
-      d# 10 timed-read  if  true false exit  then  ( data )
+      d# 50 timed-read  if  true false exit  then  ( data )
       case
          h# fa of        true  exit  endof  \ ACK - exit without retry
          h# fe of  false false exit  endof  \ RETRY - retry as long as we keep getting fe
@@ -259,7 +259,7 @@
 [ifndef] demo-board
 : ?olpc-keyboard  ( -- )
     " enable-intf" $call-parent
-    begin  5 timed-read 0=  while
+    begin  d# 50 timed-read 0=  while
        drop
        true to keyboard-present?
     repeat
@@ -274,11 +274,11 @@
    h# f2 cmd
 
    \ Keyboards return the ID sequence  ab XX
-   2 timed-read  if  exit  then  ( id1 )
+   d# 50 timed-read  if  exit  then  ( id1 )
    h# ab <>  if  exit  then
 
    \ The ENE keyboard controller return  ab 41
-   2 timed-read  if  exit  then  ( id2 )
+   d# 50 timed-read  if  exit  then  ( id2 )
    h# 41 <>  if  exit  then
    
    \ This looks like an ENE controller, so flip the mapping table