Changeset 2702

Timestamp:

Nov 24, 2011 7:38:35 AM (19 months ago)

Author:

quozl

Message:

OLPC XO-1.75 - automatic EC reflash, use chip icon, show progress bar, show battery icon with sad face if not enough power

Location:

cpu

Files:

• arm/olpc/1.75/ecflash.fth (modified) (1 diff)
• arm/olpc/1.75/edi.fth (modified) (2 diffs)
• arm/olpc/1.75/fw.bth (modified) (1 diff)
• x86/pc/olpc/gui.fth (modified) (1 diff)

cpu/arm/olpc/1.75/ecflash.fth

@@ -102 +102 @@
          2dup load-base swap move    ( adr len )
          free-mem                    ( )
-         ['] ?enough-power catch  ?dup  if  ( error )
-            .error
-            ." Skipping EC reflash" cr
-         else
-            ." Updating EC code" cr
-            reflash-ec
-         then
+         ." Updating EC code" cr
+         reflash-ec
       then
    then

cpu/arm/olpc/1.75/edi.fth

@@ -15 +15 @@
 
 d# 128 constant /flash-page
+defer edi-progress  ' drop to edi-progress  ( n -- )
 
 : edi-cmd,adr  ( offset cmd -- )   \ Send command plus 3 address bytes
@@ -141 +142 @@
          over i +  over i +  edi-program-page  ( adr offset )
       then                                     ( adr offset )
+      i edi-progress                           ( adr offset )
    /flash-page +loop                           ( adr offset )
    2drop                                       ( )

cpu/arm/olpc/1.75/fw.bth

@@ -515 +515 @@
    show-child
 
-   update-ec-flash?  if  show-reflash  update-ec-flash  then
+   update-ec-flash?  if
+      ['] ?enough-power catch  ?dup  if  ( error )
+         show-no-power
+         .error
+         ." Skipping EC reflash, not enough power" cr
+         d# 1000 ms
+      else
+         show-reflash
+         ['] show-reflash-dot to edi-progress
+         update-ec-flash
+      then
+   then
 
    install-alarm

cpu/x86/pc/olpc/gui.fth

@@ -375 +375 @@
 ;
 
-: show-reflash ( -- )  \ bottom left corner, laptop and ellipsis
-   d# 0 d# 810 to icon-xy " int" show-icon
-   d# 450 d# 150 do i d# 844 to icon-xy " bigdot" show-icon d# 100 +loop
-;
+: show-no-power  ( -- )  \ chip, battery, overlaid sad face
+   d#  25 d# 772 to icon-xy " spi"     show-icon
+   d# 175 d# 772 to icon-xy " battery" show-icon
+   d# 175 d# 790 to icon-xy " sad"     show-icon
+;
+
+d# 834 value bar-y
+d# 150 value bar-x
+0 value dot-adr
+
+: read-dot  ( -- )  \ rom: is unavailable during reflash
+   0 to dot-adr  0 0 to icon-xy         ( )
+   " darkdot" $get-image if exit then   ( )
+   prep-565  4drop  to dot-adr          ( )
+;
+
+: show-reflash  ( -- )  \ bottom left corner, chip and progress dots
+   d# 25 d# 772 to icon-xy " spi" show-icon
+   d# 992 bar-x + bar-y to icon-xy " yellowdot" show-icon
+   read-dot
+;
+
+: show-reflash-dot  ( n -- )  \ n to vary h# 0 to h# 8000
+   dup h# 400 mod 0=  if                   ( n )
+      dot-adr 0=  if  drop exit  then      ( n )
+      dot-adr swap h# 20 /  bar-x + bar-y  ( adr x y )
+      image-width image-height             ( adr x y w h )
+      " draw-transparent-rectangle" $call-screen
+   else
+      drop
+   then
+;
+
+0 [if]
+: test-reflash-dot
+   page show-reflash  t( h# 8000 0 do  i show-reflash-dot  h# 80 +loop )t
+;
+[then]
 
 : show-x  ( -- )  " x" show-icon  ;