Changeset 3359


Ignore:
Timestamp:
Oct 11, 2012, 2:55:36 AM (22 months ago)
Author:
quozl
Message:

OLPC - make SPI and EC flash animation scale calculation at run time, tested on XO-4

Files:
8 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/1.75/config-a1.fth

    r3355 r3359  
    3131char 3 constant expected-ec-version 
    3232h# 10000 constant /ec-flash 
    33 d#     1 constant ec-scale 
    3433 
    3534h# 10000 constant l2-#sets 
  • cpu/arm/olpc/1.75/config.fth

    r3355 r3359  
    3333char 4 constant expected-ec-version 
    3434h# 8000 constant /ec-flash 
    35 d#    0 constant ec-scale 
    3635h# 7e80 constant ec-flags-offset   \ don't program or verify this page 
    3736 
  • cpu/arm/olpc/3.0/config.fth

    r3355 r3359  
    3232char 4 constant expected-ec-version 
    3333h# 8000 constant /ec-flash 
    34 d#    0 constant ec-scale 
    3534 
    3635h# 18000 constant console-uart-base 
  • cpu/arm/olpc/4.0/config.fth

    r3355 r3359  
    3030char 7 constant expected-ec-version 
    3131h# ec00 constant /ec-flash 
    32 d#    1 constant ec-scale 
    3332h# eb80 constant ec-flags-offset   \ don't program or verify this page 
    3433 
  • cpu/arm/olpc/cl4/config.fth

    r3355 r3359  
    2929char 7 constant expected-ec-version 
    3030h# ec00 constant /ec-flash 
    31 d#    1 constant ec-scale 
    3231h# eb80 constant ec-flags-offset   \ don't program or verify this page 
    3332 
  • cpu/arm/olpc/edi.fth

    r3355 r3359  
    196196; 
    197197 
     198: .edi-progress  ( n -- ) 
     199   /ec-flash h# 8000 >  if  1  else  0  then  rshift    ( dot# ) 
     200   edi-progress                                         ( ) 
     201; 
     202 
    198203: edi-program-flash  ( adr len offset -- ) 
    199204   cr                                          ( adr len offset ) 
     
    204209         over i +  over i +  edi-program-page  ( adr offset ) 
    205210      then                                     ( adr offset ) 
    206       i ec-scale rshift edi-progress           ( adr offset ) 
     211      i .edi-progress                          ( adr offset ) 
    207212   /flash-page +loop                           ( adr offset ) 
    208213   2drop                                       ( ) 
  • dev/olpc/spiflash/spiflash.fth

    r3355 r3359  
    298298\ of them, so it's a good starting point. 
    299299 
    300 0 value flash-scale 
    301 : 2mb-flash  ( -- )  h# 20.0000 to /flash  6 to flash-scale  ; 
    302 : 1mb-flash  ( -- )  h# 10.0000 to /flash  5 to flash-scale  ; 
     300: 2mb-flash  ( -- )  h# 20.0000 to /flash  ; 
     301: 1mb-flash  ( -- )  h# 10.0000 to /flash  ; 
    303302 
    3043030 value spi-id# 
  • dev/olpc/spiflash/spiui.fth

    r3355 r3359  
    1212 
    1313: .progress  ( offset -- ) 
    14    flash-scale rshift  dup spi-progress  h# 400 + spi-progress 
     14   /flash h# 10.0000 >  if  6  else  5  then  rshift    ( dot# ) 
     15   dup spi-progress  h# 400 + spi-progress              ( ) 
    1516; 
    1617 
Note: See TracChangeset for help on using the changeset viewer.