r747 - dev/usb2/device/keyboard

Author: wmb
Date: 2007-12-02 11:35:56 +0100 (Sun, 02 Dec 2007)
New Revision: 747

Modified:
   dev/usb2/device/keyboard/request.fth
Log:
USB keyboard driver - Use control-set instead of control-set-nostat because
keyboard devices appear to generate a status phase.

Modified: dev/usb2/device/keyboard/request.fth
===================================================================
--- dev/usb2/device/keyboard/request.fth	2007-12-02 10:31:17 UTC (rev 746)
+++ dev/usb2/device/keyboard/request.fth	2007-12-02 10:35:56 UTC (rev 747)
@@ -38,12 +38,12 @@

: set-boot-protocol  ( -- error? )
    0 0 my-address ( interface ) 0 DR_HIDD DR_OUT or SET_PROTOCOL
-   control-set-nostat
+   control-set
 ;

: set-idle  ( ms -- error? )
    >r 0 0 my-address ( interface ) r> 4 / 8 << ( 4ms ) DR_HIDD DR_OUT or SET_IDLE 
-   control-set-nostat
+   control-set
 ;

\ Key modifiers
@@ -63,7 +63,7 @@
 : (set-leds)  ( led -- )
    led-buf c!
    led-buf /led-buf my-address ( interface ) REPORT_OUT DR_HIDD DR_OUT or SET_REPORT
-   control-set-nostat  drop
+   control-set  drop
 ;
 : set-leds     ( led-mask -- )  dup to led-state (set-leds)  ;
 : toggle-leds  ( led-mask -- )  led-state xor    set-leds    ;