Context Navigation

Changeset 3355

Timestamp:

Oct 10, 2012 8:12:31 AM (7 months ago)

Author:

quozl

Message:

OLPC - adjust SPI and EC flash animation for larger parts, tested on XO-4

Files:

-                      r3118
+                      r3355
 char 3 constant expected-ec-version
+h# 10000 value /ec-flash
+h# 10000 constant /ec-flash
+d#     1 constant ec-scale
 h# 10000 constant l2-#sets

r3349	r3355
33	33	char 4 constant expected-ec-version
34	34	h# 8000 constant /ec-flash
	35	d# 0 constant ec-scale
35	36	h# 7e80 constant ec-flags-offset \ don't program or verify this page
36	37

-                      r3349
+                      r3355
 char 4 constant expected-ec-version
+h# 8000 value /ec-flash
+h# 8000 constant /ec-flash
+d#    0 constant ec-scale
 h# 18000 constant console-uart-base

r3349	r3355
30	30	char 7 constant expected-ec-version
31	31	h# ec00 constant /ec-flash
	32	d# 1 constant ec-scale
32	33	h# eb80 constant ec-flags-offset \ don't program or verify this page
33	34

r3349	r3355
29	29	char 7 constant expected-ec-version
30	30	h# ec00 constant /ec-flash
	31	d# 1 constant ec-scale
31	32	h# eb80 constant ec-flags-offset \ don't program or verify this page
32	33

r3180	r3355
204	204	over i + over i + edi-program-page ( adr offset )
205	205	then ( adr offset )
206		i e~~di-progress~~ ( adr offset )
	206	i ec-scale rshift edi-progress ( adr offset )
207	207	/flash-page +loop ( adr offset )
208	208	2drop ( )

-                      r3304
+                      r3355
 \ of them, so it's a good starting point.
+: 2mb-flash  ( -- )  h# 20.0000 to /flash  ;
+: 1mb-flash  ( -- )  h# 10.0000 to /flash  ;
+value flash-scale
+: 2mb-flash  ( -- )  h# 20.0000 to /flash  6 to flash-scale  ;
+: 1mb-flash  ( -- )  h# 10.0000 to /flash  5 to flash-scale  ;
 value spi-id#

r3327	r3355
12	12
13	13	: .progress ( offset -- )
14		5 rshift dup spi-progress h# 400 + spi-progress
	14	flash-scale rshift dup spi-progress h# 400 + spi-progress
15	15	;
16	16

Note: See TracChangeset for help on using the changeset viewer.