Author: wmb Date: Tue Jul 3 08:19:40 2012 New Revision: 3034 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3034
Log: TI BSL downloader - changed some names to avoid conflicts.
Modified: cpu/arm/olpc/bsl.fth
Modified: cpu/arm/olpc/bsl.fth ============================================================================== --- cpu/arm/olpc/bsl.fth Tue Jul 3 08:17:12 2012 (r3033) +++ cpu/arm/olpc/bsl.fth Tue Jul 3 08:19:40 2012 (r3034) @@ -44,7 +44,7 @@ uart-base >r bsl-uart-base to uart-base baud h# 1b 3 uart! r> to uart-base ;
-: send ( char -- ) uart-base >r bsl-uart-base to uart-base uemit r> to uart-base ; +: bsl-send ( char -- ) uart-base >r bsl-uart-base to uart-base uemit r> to uart-base ;
: receive? ( -- false | char true ) uart-base >r bsl-uart-base to uart-base @@ -122,7 +122,7 @@ ; : bsl-sync ( -- ) d# 4 0 do - h# 80 send ack? if unloop exit then + h# 80 bsl-send ack? if unloop exit then loop true abort" BSL unresponsive" ; @@ -131,7 +131,7 @@
: +sum ( w -- ) checksum xor to checksum ; : send-summed ( w -- ) - dup +sum wbsplit swap send send + dup +sum wbsplit swap bsl-send bsl-send ; : send-length ( n -- ) dup 1 and abort" BSL odd length!" @@ -153,7 +153,7 @@ bounds ?do i le-w@ send-summed /w +loop ; : )frame-no-ack ( -- ) - checksum h# ffff xor wbsplit swap send send + checksum h# ffff xor wbsplit swap bsl-send bsl-send ; : )frame ( -- ) )frame-no-ack @@ -346,7 +346,6 @@ endcase ;
-d# 100 buffer: line-buf defer bsl-handle-line
: set-bsl-file-format ( -- ) @@ -365,16 +364,16 @@ 0 ifd @ fseek ;
-d# 100 buffer: line-buf +d# 100 buffer: bsl-line-buf : $flash-bsl ( filename$ -- ) $read-open ( ) set-bsl-file-format ( ) force-erase ( ) ." Programming" cr begin ( ) - line-buf d# 100 ifd @ read-line abort" Read line failed" + bsl-line-buf d# 100 ifd @ read-line abort" Read line failed" while ( len ) - line-buf swap ( adr len ) + bsl-line-buf swap ( adr len ) ['] bsl-handle-line catch ?dup if ( x x throw-code ) ifd @ fclose throw ( ?? -- ) then ( )