Changeset 3359


Ignore:
Timestamp:
Oct 11, 2012, 2:55:36 AM (3 years 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.