Changeset 3318


Ignore:
Timestamp:
Sep 19, 2012, 9:24:54 AM (19 months ago)
Author:
wmb
Message:

OLPC ARM - send brighter/dimmer messages to the DCON driver instead of the screen driver, now that the DCON is in its own node. This fixes Data Abort problems that happened when you typed the brightness keys.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/build-fw.fth

    r3290 r3318  
    514514; 
    515515 
     516\ idt1338 rtc and ram address map 
     517\     00 -> 0f  rtc 
     518\     10 -> 3f  cmos 
     519 
     520: >rtc  ( index -- rtc-address )  h# 3f and  h# 10 +  ; 
     521 
     522: cmos@  ( index -- data ) 
     523   >rtc " rtc@" clock-node @  ( index adr len ih ) 
     524   ['] $call-method catch  if  4drop 0  then 
     525; 
     526: cmos!  ( data index -- ) 
     527   >rtc " rtc!" clock-node @  ( data index adr len ih ) 
     528   ['] $call-method catch  if  2drop 3drop  then 
     529; 
     530 
     531\ cmos address map 
     532\     80 audio volume 
     533\     81 audio volume 
     534\     82 alternate boot 
     535\     83 xid 
     536 
    516537fload ${BP}/cpu/arm/mmp2/clocks.fth 
    517538fload ${BP}/cpu/arm/olpc/banner.fth 
     
    640661d# 6500 constant ms-factor 
    641662 
    642 \ idt1338 rtc and ram address map 
    643 \     00 -> 0f  rtc 
    644 \     10 -> 3f  cmos 
    645  
    646 : >rtc  ( index -- rtc-address )  h# 3f and  h# 10 +  ; 
    647  
    648 : cmos@  ( index -- data ) 
    649    >rtc " rtc@" clock-node @  ( index adr len ih ) 
    650    ['] $call-method catch  if  4drop 0  then 
    651 ; 
    652 : cmos!  ( data index -- ) 
    653    >rtc " rtc!" clock-node @  ( data index adr len ih ) 
    654    ['] $call-method catch  if  2drop 3drop  then 
    655 ; 
    656  
    657 \ cmos address map 
    658 \     80 audio volume 
    659 \     81 audio volume 
    660 \     82 alternate boot 
    661 \     83 xid 
    662  
    663 : dimmer  ( -- )  screen-ih  if  " dimmer" screen-ih $call-method  then  ; 
    664 : brighter  ( -- )  screen-ih  if  " brighter" screen-ih $call-method  then  ; 
     663: dimmer  ( -- )  dcon-ih  if  " dimmer" dcon-ih $call-method  then  ; 
     664: brighter  ( -- )  dcon-ih  if  " brighter" dcon-ih $call-method  then  ; 
    665665 
    666666fload ${BP}/cpu/x86/pc/olpc/sound.fth 
Note: See TracChangeset for help on using the changeset viewer.