Changeset 3318


Ignore:
Timestamp:
Sep 19, 2012, 9:24:54 AM (3 years 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.