Changeset 2683


Ignore:
Timestamp:
Nov 14, 2011, 4:24:06 AM (4 years ago)
Author:
quozl
Message:

OLPC - enable the keyboard interrupt on mechanical keyboards, using the del key, see #10318.

Files:
4 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/1.75/fw.bth

    r2676 r2683  
    286286fload ${BP}/dev/olpc/keyboard/selftest.fth   \ Keyboard diagnostic
    287287device-end
     288stand-init: Keyboard
     289   " /ap-sp/keyboard" " set-keyboard-type" execute-device-method drop
     290;
    288291dev /ap-sp/mouse
    289292fload ${BP}/dev/olpc/touchpad/syntpad.fth    \ Touchpad diagnostic
  • cpu/x86/pc/olpc/sound.fth

    r2226 r2683  
    5757dev /keyboard
    58580 value waiting-up?
    59 : olpc-check-abort  ( scan-code -- abort? )  \ Square pressed?
     59: olpc-check-abort  ( scan-code -- abort? )  \ an abort key pressed?
    6060   last-scan   over to last-scan  ( scan-code old-scan-code )
    6161   h# e0 <>  if  drop false exit  then          ( scan-code )
     
    6363   check-abort?  0=  if  drop false exit  then  ( scan-code )
    6464
    65    dup h# 7f and  h# 5d <>  if  drop false exit then  ( scan-code )
     65   dup h# 7f and  abort-key <>  if  drop false exit then  ( scan-code )
    6666
    6767   h# 80 and  if   \ Up
  • cpu/x86/pc/olpc/via/fw.bth

    r2679 r2683  
    387387fload ${BP}/dev/olpc/keyboard/selftest.fth   \ Keyboard diagnostic
    388388device-end
     389stand-init: Keyboard
     390   " /keyboard" " set-keyboard-type" execute-device-method drop
     391;
    389392fload ${BP}/dev/olpc/touchpad/touchpad.fth   \ Touchpad diagnostic
    390393fload ${BP}/cpu/x86/pc/olpc/gridmap.fth      \ Gridded display tools
  • dev/olpc/keyboard/selftest.fth

    r2500 r2683  
    1010\ This is 1 for the original rubber keyboard and 2 for the mechanical keyboard
    11111 value keyboard-type
     12
     13\ Scan code of abort key
     14h# 5d value abort-key
    1215
    1316\ There are two scancode tables:
     
    713716      " KM" find-tag  if                    ( adr len )
    714717         -null                              ( adr' len' )
    715          " olpcm" $=  if  2  else  1  then  ( type )
     718         " olpcm" $=  if
     719            h# 53 to abort-key              \ del
     720            2
     721         else
     722            1
     723         then                               ( type )
    716724      else                                  ( )
    717725         1                                  ( type )
     
    719727   then
    720728   to keyboard-type
     729;
     730
     731: use-keyboard-type  ( -- )
    721732   keyboard-type  case
    722733
     
    734745
    735746   set-keyboard-type
     747   use-keyboard-type
    736748
    737749   make-keys
Note: See TracChangeset for help on using the changeset viewer.