openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r1966 - cpu/arm/olpc
by repository service 08 Oct '10

08 Oct '10

Author: wmb Date: Fri Oct 8 08:35:27 2010 New Revision: 1966 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1966 Log: Added cpu/arm/olpc/ subdirectory. Added: cpu/arm/olpc/

1 0

[commit] r1965 - cpu/arm/mmp2
by repository service 08 Oct '10

08 Oct '10

Author: wmb Date: Fri Oct 8 08:34:38 2010 New Revision: 1965 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1965 Log: ARM MMP2 - mods to make it work when booted directly from NAND without an intermediate loader. Added: cpu/arm/mmp2/fw.bth cpu/arm/mmp2/rawboot.fth Modified: cpu/arm/mmp2/addrs.fth cpu/arm/mmp2/devices.fth cpu/arm/mmp2/mfpr.fth cpu/arm/mmp2/mmuon.fth cpu/arm/mmp2/ofw.bth cpu/arm/mmp2/twsi.fth Modified: cpu/arm/mmp2/addrs.fth ============================================================================== --- cpu/arm/mmp2/addrs.fth Fri Oct 8 08:31:34 2010 (r1964) +++ cpu/arm/mmp2/addrs.fth Fri Oct 8 08:34:38 2010 (r1965) @@ -11,7 +11,8 @@ ' (memory?) to memory? \ OFW implementation choices -h# 1fe0.0000 constant fw-pa +\ h# 1fe0.0000 constant fw-pa +0 constant fw-pa [ifdef] virtual-mode h# f700.0000 constant fw-virt-base @@ -30,8 +31,7 @@ h# 10.0000 constant heap-size heap-size constant initial-heap-size -h# 4000 constant page-table-pa - +h# 40.0000 constant page-table-pa \ Defined by CPU core h# 1000 to pagesize Modified: cpu/arm/mmp2/devices.fth ============================================================================== --- cpu/arm/mmp2/devices.fth Fri Oct 8 08:31:34 2010 (r1964) +++ cpu/arm/mmp2/devices.fth Fri Oct 8 08:34:38 2010 (r1965) @@ -1,5 +1,15 @@ fload ${BP}/dev/omap/diaguart.fth \ OMAP UART h# d4018000 to uart-base \ UART# base address on MMP2 +d# 26000000 to uart-clock-frequency +defer init-clocks ' noop to init-clocks +: inituarts ( -- ) + init-clocks + + h# 40 1 uart! \ Marvell-specific UART Enable bit + 3 3 uart! \ 8 bits, no parity + 7 2 uart! \ Clear and enable FIFOs + d# 38400 baud +; fload ${BP}/forth/lib/sysuart.fth \ Set console I/O vectors to UART @@ -13,9 +23,16 @@ : stand-init-io ( -- ) stand-init-io inituarts install-uart-io + ." UART installed" cr ; warning on +\ Create a pseudo-device that presents the dropin modules as a filesystem. +fload ${BP}/ofw/fs/dropinfs.fth + +\ This devalias lets us say, for example, "dir rom:" +devalias rom /dropin-fs + fload ${BP}/cpu/arm/mmp2/twsi.fth fload ${BP}/cpu/arm/mmp2/timer.fth fload ${BP}/cpu/arm/mmp2/mfpr.fth @@ -27,6 +44,7 @@ init-timers init-twsi power-on-dsi + power-on-sd ; stand-init: init-stuff @@ -106,3 +124,5 @@ devalias ext /sd/disk@1 +fload ${BP}/dev/olpc/kb3700/spicmd.fth + Added: cpu/arm/mmp2/fw.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/fw.bth Fri Oct 8 08:34:38 2010 (r1965) @@ -0,0 +1,525 @@ +purpose: Build Open Firmware for Marvell MMP2 +\ See license at end of file + +dictionary: ${BP}/cpu/arm/build/basefw.dic +command: &armforth &dictionary &this +build-now + +" fw.tag" r/w create-file drop tag-file ! + +hex +\ ' $report-name is include-hook +' noop is include-hook + +fload ${BP}/cpu/arm/mmp2/config.fth + +: headerless ; : headers ; : headerless0 ; + +' (quit) to quit + +: \Tags [compile] \ ; immediate +: \NotTags [compile] \ ; immediate + +: RAMbase ( -- adr ) fw-virt-base ; +: RAMtop ( -- adr ) RAMbase /fw-ram + ; + +def-load-base ' load-base set-config-int-default + +\ use-movable-vector-base \ Marvell CPU core has a movable vector base + +true ' fcode-debug? set-config-int-default +\ false ' auto-boot? set-config-int-default + + + +[ifdef] serial-console +" com1" ' output-device set-config-string-default +" com1" ' input-device set-config-string-default +[then] + + +fload ${BP}/cpu/arm/mmp2/rootnode.fth \ Root node mapping - physical mode +dev / + " Marvell,Bonnell" model + " Marvell,Armada 610" encode-string " architecture" property +\ The clock frequency of the root bus may be irrelevant, since the bus is internal to the SOC +\ d# 1,000,000,000 " clock-frequency" integer-property +device-end + +: (cpu-arch ( -- adr len ) + " architecture" ['] root-node get-package-property drop + get-encoded-string +; +' (cpu-arch to cpu-arch + +\ Memory management services +[ifdef] virtual-mode +fload ${BP}/ofw/core/clntmem1.fth \ client services for memory +[else] +fload ${BP}/ofw/core/clntphy1.fth \ client services for memory +: >physical ( va -- pa ) + dup fw-virt-base - fw-virt-size u< if ( va ) + fw-virt-base - fw-pa + + then +; +[then] +fload ${BP}/ofw/core/memlist.fth \ Resource list common routines +fload ${BP}/ofw/core/showlist.fth \ Linked list display tool +fload ${BP}/ofw/core/allocph1.fth \ S Physical memory allocator +fload ${BP}/ofw/core/availpm.fth \ Available memory list + +fload ${BP}/cpu/arm/mmp2/probemem.fth \ Memory probing + +stand-init: Probing memory + " probe" memory-node @ $call-method +; + +[ifdef] virtual-mode +fload ${BP}/cpu/arm/loadvmem.fth \ /mmu node +stand-init: MMU + " /mmu" open-dev mmu-node ! +; +fload ${BP}/ofw/core/initdict.fth \ Dynamic dictionary allocation +fload ${BP}/arch/arm/loadarea.fth \ Allocate and map program load area +[else] +fload ${BP}/cpu/arm/mmp2/mmuon.fth +[then] + +\ XXX should be elsewhere +dev /client-services +: chain ( len args entry size virt -- ) + release ( len args entry ) + h# 8000 alloc-mem h# 8000 + (init-program) ( len args ) + to r1 to r2 + go +; +device-end + +fload ${BP}/cpu/arm/crc32.fth \ Assembly language Zip CRC calculation +fload ${BP}/forth/lib/crc32.fth \ High-level portion of CRC calculation + +[ifdef] resident-packages + +\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation +support-package: ext2-file-system + fload ${BP}/ofw/fs/ext2fs/ext2fs.fth \ Linux file system +end-support-package + +[ifdef] jffs2-support +\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation +support-package: jffs2-file-system + fload ${BP}/ofw/fs/jffs2/jffs2.fth \ Journaling flash file system 2 +end-support-package +[then] + +support-package: zip-file-system + fload ${BP}/ofw/fs/zipfs.fth \ Zip file system +end-support-package +[then] + +fload ${BP}/ofw/core/osfile.fth \ For testing + +\ Load file format handlers + +: call32 ; + +fload ${BP}/ofw/core/allocsym.fth \ Allocate memory for symbol table +fload ${BP}/ofw/core/symcif.fth +fload ${BP}/ofw/core/symdebug.fth +: release-load-area ( boundary-adr -- ) drop ; + +[ifdef] use-elf +fload ${BP}/ofw/elf/elf.fth +fload ${BP}/ofw/elf/elfdebug.fth +[ifdef] virtual-mode +\ Depends on the assumption that physical memory is mapped 1:1 already +: (elf-map-in) ( va size -- ) 0 mem-claim drop ; +[else] +: (elf-map-in) ( va size -- ) 2drop ; +[then] +' (elf-map-in) is elf-map-in +[then] + +\ Reboot and re-entry code +fload ${BP}/ofw/core/reboot.fth \ Restart the client program +fload ${BP}/ofw/core/reenter.fth \ Various entries into Forth + +headerless +[ifdef] virtual-mode +: (initial-heap) ( -- adr len ) sp0 @ ps-size - dict-limit tuck - ; +[else] + \ : (initial-heap) ( -- adr len ) RAMtop heap-size ; +: (initial-heap) ( -- adr len ) limit heap-size ; +[then] +' (initial-heap) is initial-heap +headers + +" /openprom" find-device + " FirmWorks,3.0" encode-string " model" property +device-end + +[ifdef] virtual-mode +fload ${BP}/cpu/arm/mmusetup.fth \ Initial values for MMU lists +[then] + +: background-rgb ( -- r g b ) h# ff h# ff h# ff ; + +fload ${BP}/cpu/arm/mmp2/devices.fth + +[ifndef] virtual-mode +warning off +: stand-init-io + stand-init-io + ." Going fast" cr + go-fast \ From mmuon.fth + ." Gone fast" cr +; +warning on +[then] + +true ' local-mac-address? set-config-int-default +[ifdef] resident-packages +support-package: nfs + fload ${BP}/ofw/fs/nfs/loadpkg.fth +end-support-package + +[then] +devalias nfs net//obp-tftp:last//nfs + +fload ${BP}/cpu/arm/linux.fth +h# 20.0000 to linux-params \ The Jasper Linux kernel fails unless the params are between 0x20.0000 and 0x20.4000 +d# 2382 to arm-linux-machine-type \ Marvell Jasper + +\ Add a tag describing the linear frame buffer +: mmp-fb-tag, ( -- ) + 8 tag-l, + h# 54410008 tag-l, \ ATAG_VIDEOLFB + d# 800 tag-w, \ Width + d# 480 tag-w, \ Height + d# 24 tag-w, \ Depth + d# 800 3 * tag-w, \ Pitch + fb-pa tag-l, \ Base address + d# 800 3 * d# 480 * tag-l, \ Total size - perhaps could be larger + 8 tag-b, \ Red size + d# 0 tag-b, \ Red position + 8 tag-b, \ Green size + d# 8 tag-b, \ Green position + 8 tag-b, \ Blue size + d# 16 tag-b, \ Blue position + 0 tag-b, \ Rsvd size + d# 24 tag-b, \ Rsvd position +; +\ ' mmp-fb-tag, to fb-tag, + +\ fload ${BP}/cpu/arm/mmp2/usb.fth + +\ false to stand-init-debug? +true to stand-init-debug? + +: protect-fw ( -- ) ; +: usb-power-on ( -- ) ; + +hex +: i-key-wait ( ms -- pressed? ) + cr ." Type 'i' to interrupt stand-init sequence" cr ( ms ) + 0 do + ukey? if + ukey upc ascii I = if true unloop exit then + then + 1 ms + loop + false +; + +warning @ warning off +: init +\ initial-heap add-memory + init + + standalone? if + disable-interrupts +hex + here . cr + limit . cr + initial-heap . . cr + vector-base . cr +[ifdef] notdef + d# 1000 + i-key-wait if +\ protect-fw + ." Interacting" cr hex interact + then + \ Turn on USB power here to overlap the time with other startup actions + usb-power-on +[then] + then +; +warning ! +[then] + +: (.firmware) ( -- ) + ." Open Firmware " .built cr + ." Copyright 2010 FirmWorks All Rights Reserved" cr +; +' (.firmware) to .firmware + +fload ${BP}/ofw/gui/bmptools.fth +fload ${BP}/dev/null.fth +fload ${BP}/ofw/core/bailout.fth + +\ GUI +false value gui-safeboot? + +: 2tuck ( d1 d2 -- d2 d1 d2 ) 2swap 2over ; +: user-ok "ok" ; \ This is supposed to check for authorization +true value user-mode? + +fload ${BP}/ofw/gui/loadmenu.fth +\ fload ${BP}/ofw/gui/insticon.fth + +\ Uninstall the diag menu from the general user interface vector +\ so exiting from emacs doesn't invoke the diag menu. +' quit to user-interface + +: screen-#lines ( -- n ) + screen-ih 0= if default-#lines exit then + screen-ih package( #lines )package +; +' screen-#lines to lines/page + +true value text-on? +: text-off ( -- ) + text-on? if + screen-ih remove-output + false to text-on? + then +; +: text-on ( -- ) + text-on? 0= if + screen-ih add-output + cursor-on + true to text-on? + then +; + +fload ${BP}/cpu/x86/pc/olpc/help.fth + +[ifdef] notyet +fload ${BP}/cpu/x86/pc/olpc/gamekeys.fth + +: emacs ( -- ) + false to already-go? + boot-getline to boot-file " rom:emacs" $boot +; + +fload ${BP}/ofw/gui/ofpong.fth +fload ${BP}/cpu/x86/pc/olpc/life.fth +[then] + +" u:\boot\olpc.fth ext:\boot\olpc.fth int:\boot\olpc.fth ext:\zimage /prober /usb/ethernet /usb/wlan" + ' boot-device set-config-string-default + +\needs ramdisk " " d# 128 config-string ramdisk +" " ' boot-file set-config-string-default \ Let the boot script set the cmdline + +\ Eliminate 4 second delay in install console for the case where +\ there is no keyboard. The delay is unnecessary because the screen +\ does not go blank when the device is closed. +patch drop ms install-console + +alias reboot bye + +alias crcgen drop ( crc byte -- crc' ) + +\ Dictionary growth size for the ARM Image Format header +\ 1 section before origin section table +h# 10.0000 h# 8000 - h# 4000 - dictionary-size ! + +fload ${BP}/cpu/arm/saverom.fth \ Save the dictionary for standalone startup + +fload ${BP}/forth/lib/selstr.fth + +fload ${BP}/ofw/inet/loadtcp.fth + +support-package: http + fload ${BP}/ofw/inet/http.fth \ HTTP client +end-support-package + +[ifdef] notyet +fload ${BP}/cpu/x86/pc/olpc/memtest.fth +[then] + +[ifdef] notyet +fload ${BP}/ofw/wifi/wifi-cfg.fth +support-package: supplicant +fload ${BP}/ofw/wifi/loadpkg.fth +end-support-package + +: ofw-ssids ( -- $ ) " OFWSSID" ; +' ofw-ssids to default-ssids +[then] + +fload ${BP}/ofw/inet/sntp.fth +: olpc-ntp-servers ( -- ) + " DHCP time 172.18.0.1 0.pool.ntp.org 1.pool.ntp.org 2.pool.ntp.org" +; +' olpc-ntp-servers to ntp-servers +: ntp-time&date ( -- s m h d m y ) + ntp-timestamp abort" Can't contact NTP server" + ntp>time&date +; +: .clock ( -- ) + time&date .date space .time ." UTC" cr +; +: ntp-set-clock ( -- ) + ntp-time&date " set-time" clock-node @ $call-method + .clock +; + +[ifdef] use-ppp +fload ${BP}/ofw/ppp/loadppp.fth +[then] + +" dhcp" ' ip-address set-config-string-default + +[ifdef] notyet +: c1-idle ( -- ) interrupts-enabled? if halt then ; +' c1-idle to stdin-idle +[then] + +fload ${BP}/ofw/core/countdwn.fth \ Startup countdown + +: console-start ( -- ) + install-mux-io +\ cursor-off + true to text-on? + + " //null" open-dev to null-ih \ For text-off state +; + +: interpreter-init ( -- ) + hex + warning on + only forth also definitions + +\ install-alarm + + page-mode + #line off + +\ .built cr +; + +[ifdef] notyet +: ?games ( -- ) + rocker-right game-key? if + protect-fw + time&date 5drop 1 and if + ['] pong guarded + else + ['] life-demo guarded + then + power-off + then +; +: ?diags ( -- ) + rocker-left game-key? if + protect-fw + text-on " test-all" ['] eval guarded + ." Tests complete - powering off" cr d# 5000 ms power-off + then +; + +: ?scan-nand ( -- ) + rocker-up game-key? if + protect-fw text-on ['] scan-nand guarded + then +; +: ?fs-update ( -- ) + button-check button-x or button-o or button-square or ( mask ) + game-key-mask = if protect-fw try-fs-update then +; +[then] + +: startup ( -- ) + standalone? 0= if exit then + +\ block-exceptions + no-page + + console-start + +[ifdef] notyet + read-game-keys +[then] + +\ text-off + + " probe-" do-drop-in + +[ifdef] notyet + sound + ?games +[then] + + ['] false to interrupt-auto-boot? +[ifdef] probe-usb + probe-usb + report-disk + report-keyboard +[then] + " probe+" do-drop-in + + interpreter-init +[ifdef] notyet + ?scan-nand + ?diags + ?fs-update +[then] +\ unblock-exceptions + ['] (interrupt-auto-boot?) to interrupt-auto-boot? +\ ?usb-keyboard + auto-banner? if banner then + + auto-boot + + cr cr + + quit +; + +\ This helps with TeraTerm, which sends ESC-O as the arrow key prefix +also hidden also keys-forth definitions +warning @ warning off +: esc-o key lastchar ! [""] esc-[ do-command ; +warning ! +previous previous definitions + +tag-file @ fclose tag-file off + +.( --- Saving fw.dic ...) +" fw.dic" $save-forth cr + +\ LICENSE_BEGIN +\ Copyright (c) 2010 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END Modified: cpu/arm/mmp2/mfpr.fth ============================================================================== --- cpu/arm/mmp2/mfpr.fth Fri Oct 8 08:31:34 2010 (r1964) +++ cpu/arm/mmp2/mfpr.fth Fri Oct 8 08:34:38 2010 (r1965) @@ -1,9 +1,11 @@ -: set-camera-domain-voltage +: aib-unlock h# baba h# d4015068 l! \ Unlock sequence - h# ec10 h# d401506c l! + h# eb10 h# d401506c l! +; +: set-camera-domain-voltage + aib-unlock h# d401e80c l@ 4 or ( n ) \ Set 1.8V selector bit in AIB_GPIO2_IO - h# baba h# d4015068 l! \ Unlock sequence - h# ec10 h# d401506c l! + aib-unlock h# d401e80c l! ; : acgr-clocks-on ( -- ) @@ -138,12 +140,18 @@ 1 af, \ GPIO_71 - TWSI3_SCL (for CAM) 1 af, \ GPIO_72 - TWSI3_CLK (for CAM) 0 af, \ GPIO_73 - CCIC_RST_N (use as GPIO out) - 0 af, \ GPIO_74 - LED - ORANGE (use as GPIO out) LCD VSYNC - 0 af, \ GPIO_75 - LED - BLUE (use as GPIO out) LCD HSYNV - 0 af, \ GPIO_76 - LED - RED (use as GPIO out) LCD PCLK - 0 af, \ GPIO_77 - LED - GREEN (use as GPIO out) - 5 af, \ GPIO_78 - SSP4_CLK - 5 af, \ GPIO_79 - SSP4_FRM +\ 0 af, \ GPIO_74 - LED - ORANGE (use as GPIO out) LCD VSYNC +\ 0 af, \ GPIO_75 - LED - BLUE (use as GPIO out) LCD HSYNV +\ 0 af, \ GPIO_76 - LED - RED (use as GPIO out) LCD PCLK +\ 0 af, \ GPIO_77 - LED - GREEN (use as GPIO out) + 4 af, \ GPIO_74 - SSP3_CLK - EC_SPI + 4 af, \ GPIO_75 - SSP3_FRM - EC_SPI + 4 af, \ GPIO_76 - SSP3_TXD - EC_SPI + 4 af, \ GPIO_77 - SSP3_RXD - EC_SPI +\ 5 af, \ GPIO_78 - SSP4_CLK +\ 5 af, \ GPIO_79 - SSP4_FRM + 0 af, \ GPIO_78 - EC_SPI CMD + 0 af, \ GPIO_79 - EC_SPI ACK 5 af, \ GPIO_80 - SSP4_SDA 0 af, \ GPIO_81 - VBUS_FLT_N (use as GPIO in) 0 af, \ GPIO_82 - VBUS_EN (use as GPIO out) @@ -184,10 +192,10 @@ 0 af, \ GPIO_116 - GPIO_116 (i/o) 0 af, \ GPIO_117 - GPIO_117 (i/o) 0 af, \ GPIO_118 - GPIO_118 (i/o) - 0 af, \ GPIO_119 - GPIO_119 (i/o) - 0 af, \ GPIO_120 - GPIO_120 (i/o) - 0 af, \ GPIO_121 - GPIO_121 (i/o) - 0 af, \ GPIO_122 - GPIO_122 (i/o) + 3 af, \ GPIO_119 - GPIO_119 (i/o) + 3 af, \ GPIO_120 - GPIO_120 (i/o) + 3 af, \ GPIO_121 - GPIO_121 (i/o) + 3 af, \ GPIO_122 - GPIO_122 (i/o) 0 af, \ GPIO_123 - MBFLT_N (use as GPIO in) 1 af, \ GPIO_124 - MMC1_DAT[7] 1 af, \ GPIO_125 - MMC1_DAT[6] Modified: cpu/arm/mmp2/mmuon.fth ============================================================================== --- cpu/arm/mmp2/mmuon.fth Fri Oct 8 08:31:34 2010 (r1964) +++ cpu/arm/mmp2/mmuon.fth Fri Oct 8 08:34:38 2010 (r1965) @@ -24,7 +24,7 @@ : ofw-sections ( -- ) h# 0000.0000 h# c0e over fb-pa map-sections \ Cache and write bufferable - fw-pa h# c0e over /fw-ram map-sections \ Cache and write bufferable +\ fw-pa h# c0e over /fw-ram map-sections \ Cache and write bufferable fb-pa h# c06 over fb-size map-sections \ Write bufferable h# d400.0000 h# c02 over h# 0040.0000 map-sections \ I/O - no caching or buffering ; Modified: cpu/arm/mmp2/ofw.bth ============================================================================== --- cpu/arm/mmp2/ofw.bth Fri Oct 8 08:31:34 2010 (r1964) +++ cpu/arm/mmp2/ofw.bth Fri Oct 8 08:34:38 2010 (r1965) @@ -1,503 +1,22 @@ purpose: Build Open Firmware for Marvell MMP2 \ See license at end of file -dictionary: ${BP}/cpu/arm/build/basefw.dic +dictionary: ${BP}/cpu/arm/mmp2/build/fw.dic command: &armforth &dictionary &this build-now -" fw.tag" r/w create-file drop tag-file ! - -hex -\ ' $report-name is include-hook -' noop is include-hook - -fload ${BP}/cpu/arm/mmp2/config.fth - -: headerless ; : headers ; : headerless0 ; - -' (quit) to quit - -: \Tags [compile] \ ; immediate -: \NotTags [compile] \ ; immediate - -: RAMbase ( -- adr ) fw-virt-base ; -: RAMtop ( -- adr ) RAMbase /fw-ram + ; - -def-load-base ' load-base set-config-int-default - -use-movable-vector-base \ Marvell CPU core has a movable vector base - -true ' fcode-debug? set-config-int-default -\ false ' auto-boot? set-config-int-default - - - -[ifdef] serial-console -" com1" ' output-device set-config-string-default -" com1" ' input-device set-config-string-default -[then] - - -fload ${BP}/cpu/arm/mmp2/rootnode.fth \ Root node mapping - physical mode -dev / - " Marvell,Bonnell" model - " Marvell,Armada 610" encode-string " architecture" property -\ The clock frequency of the root bus may be irrelevant, since the bus is internal to the SOC -\ d# 1,000,000,000 " clock-frequency" integer-property -device-end - -: (cpu-arch ( -- adr len ) - " architecture" ['] root-node get-package-property drop - get-encoded-string -; -' (cpu-arch to cpu-arch - -\ Memory management services -[ifdef] virtual-mode -fload ${BP}/ofw/core/clntmem1.fth \ client services for memory -[else] -fload ${BP}/ofw/core/clntphy1.fth \ client services for memory -: >physical ( va -- pa ) - dup fw-virt-base - fw-virt-size u< if ( va ) - fw-virt-base - fw-pa + - then -; -[then] -fload ${BP}/ofw/core/memlist.fth \ Resource list common routines -fload ${BP}/ofw/core/showlist.fth \ Linked list display tool -fload ${BP}/ofw/core/allocph1.fth \ S Physical memory allocator -fload ${BP}/ofw/core/availpm.fth \ Available memory list - -fload ${BP}/cpu/arm/mmp2/probemem.fth \ Memory probing - -stand-init: Probing memory - " probe" memory-node @ $call-method -; - -[ifdef] virtual-mode -fload ${BP}/cpu/arm/loadvmem.fth \ /mmu node -stand-init: MMU - " /mmu" open-dev mmu-node ! -; -fload ${BP}/ofw/core/initdict.fth \ Dynamic dictionary allocation -fload ${BP}/arch/arm/loadarea.fth \ Allocate and map program load area -[else] -fload ${BP}/cpu/arm/mmp2/mmuon.fth -[then] - -\ XXX should be elsewhere -dev /client-services -: chain ( len args entry size virt -- ) - release ( len args entry ) - h# 8000 alloc-mem h# 8000 + (init-program) ( len args ) - to r1 to r2 - go +: (init-clocks) + -1 h# d4051024 l! \ PMUM_CGR_PJ - everything on + h# 07 h# d4015064 l! \ APBC_AIB_CLK_RST - reset, functional and APB clock on + h# 03 h# d4015064 l! \ APBC_AIB_CLK_RST - release reset, functional and APB clock on + h# 13 h# d4015034 l! \ APBC_UART3_CLK_RST - VCTCXO, functional and APB clock on (26 mhz) + h# c1 h# d401e120 l! \ GPIO51 = af1 for UART3 RXD + h# c1 h# d401e124 l! \ GPIO52 = af1 for UART3 TXD + h# 1b h# d4282854 l! \ SD0 clocks ; -device-end - -fload ${BP}/cpu/arm/crc32.fth \ Assembly language Zip CRC calculation -fload ${BP}/forth/lib/crc32.fth \ High-level portion of CRC calculation - -[ifdef] resident-packages - -\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation -support-package: ext2-file-system - fload ${BP}/ofw/fs/ext2fs/ext2fs.fth \ Linux file system -end-support-package - -[ifdef] jffs2-support -\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation -support-package: jffs2-file-system - fload ${BP}/ofw/fs/jffs2/jffs2.fth \ Journaling flash file system 2 -end-support-package -[then] - -support-package: zip-file-system - fload ${BP}/ofw/fs/zipfs.fth \ Zip file system -end-support-package - -support-package: dropin-file-system - fload ${BP}/ofw/fs/dropinfs.fth \ Dropin file system -end-support-package -[then] - -fload ${BP}/ofw/core/osfile.fth \ For testing - -\ Load file format handlers - -: call32 ; - -fload ${BP}/ofw/core/allocsym.fth \ Allocate memory for symbol table -fload ${BP}/ofw/core/symcif.fth -fload ${BP}/ofw/core/symdebug.fth -: release-load-area ( boundary-adr -- ) drop ; - -[ifdef] use-elf -fload ${BP}/ofw/elf/elf.fth -fload ${BP}/ofw/elf/elfdebug.fth -[ifdef] virtual-mode -\ Depends on the assumption that physical memory is mapped 1:1 already -: (elf-map-in) ( va size -- ) 0 mem-claim drop ; -[else] -: (elf-map-in) ( va size -- ) 2drop ; -[then] -' (elf-map-in) is elf-map-in -[then] - -\ Reboot and re-entry code -fload ${BP}/ofw/core/reboot.fth \ Restart the client program -fload ${BP}/ofw/core/reenter.fth \ Various entries into Forth - -headerless -[ifdef] virtual-mode -: (initial-heap) ( -- adr len ) sp0 @ ps-size - dict-limit tuck - ; -[else] - \ : (initial-heap) ( -- adr len ) RAMtop heap-size ; -: (initial-heap) ( -- adr len ) limit heap-size ; -[then] -' (initial-heap) is initial-heap -headers - -" /openprom" find-device - " FirmWorks,3.0" encode-string " model" property -device-end - -[ifdef] virtual-mode -fload ${BP}/cpu/arm/mmusetup.fth \ Initial values for MMU lists -[then] - -: background-rgb ( -- r g b ) h# ff h# ff h# ff ; - -fload ${BP}/cpu/arm/mmp2/devices.fth - -[ifndef] virtual-mode -warning off -: stand-init-io - stand-init-io - go-fast \ From mmuon.fth -; -warning on -[then] - -true ' local-mac-address? set-config-int-default -[ifdef] resident-packages -support-package: nfs - fload ${BP}/ofw/fs/nfs/loadpkg.fth -end-support-package - -[then] -devalias nfs net//obp-tftp:last//nfs - -fload ${BP}/cpu/arm/linux.fth -h# 20.0000 to linux-params \ The Jasper Linux kernel fails unless the params are between 0x20.0000 and 0x20.4000 -d# 2382 to arm-linux-machine-type \ Marvell Jasper - -\ Add a tag describing the linear frame buffer -: mmp-fb-tag, ( -- ) - 8 tag-l, - h# 54410008 tag-l, \ ATAG_VIDEOLFB - d# 800 tag-w, \ Width - d# 480 tag-w, \ Height - d# 24 tag-w, \ Depth - d# 800 3 * tag-w, \ Pitch - fb-pa tag-l, \ Base address - d# 800 3 * d# 480 * tag-l, \ Total size - perhaps could be larger - 8 tag-b, \ Red size - d# 0 tag-b, \ Red position - 8 tag-b, \ Green size - d# 8 tag-b, \ Green position - 8 tag-b, \ Blue size - d# 16 tag-b, \ Blue position - 0 tag-b, \ Rsvd size - d# 24 tag-b, \ Rsvd position -; -\ ' mmp-fb-tag, to fb-tag, - -\ fload ${BP}/cpu/arm/mmp2/usb.fth - -false to stand-init-debug? -\ true to stand-init-debug? - -: protect-fw ( -- ) ; -: usb-power-on ( -- ) ; - -hex -: i-key-wait ( ms -- pressed? ) - cr ." Type 'i' to interrupt stand-init sequence" cr ( ms ) - 0 do - ukey? if - ukey upc ascii I = if true unloop exit then - then - 1 ms - loop - false -; - -warning @ warning off -: init -\ initial-heap add-memory - init - - standalone? if - disable-interrupts -[ifdef] notdef - d# 1000 - i-key-wait if -\ protect-fw - ." Interacting" cr hex interact - then - \ Turn on USB power here to overlap the time with other startup actions - usb-power-on -[then] - then -; -warning ! -[then] - -: (.firmware) ( -- ) - ." Open Firmware " .built cr - ." Copyright 2010 FirmWorks All Rights Reserved" cr -; -' (.firmware) to .firmware - -fload ${BP}/ofw/gui/bmptools.fth -fload ${BP}/dev/null.fth -fload ${BP}/ofw/core/bailout.fth - -\ GUI -false value gui-safeboot? - -: 2tuck ( d1 d2 -- d2 d1 d2 ) 2swap 2over ; -: user-ok "ok" ; \ This is supposed to check for authorization -true value user-mode? - -fload ${BP}/ofw/gui/loadmenu.fth -\ fload ${BP}/ofw/gui/insticon.fth - -\ Uninstall the diag menu from the general user interface vector -\ so exiting from emacs doesn't invoke the diag menu. -' quit to user-interface - -: screen-#lines ( -- n ) - screen-ih 0= if default-#lines exit then - screen-ih package( #lines )package -; -' screen-#lines to lines/page - -true value text-on? -: text-off ( -- ) - text-on? if - screen-ih remove-output - false to text-on? - then -; -: text-on ( -- ) - text-on? 0= if - screen-ih add-output - cursor-on - true to text-on? - then -; - -fload ${BP}/cpu/x86/pc/olpc/help.fth - -[ifdef] notyet -fload ${BP}/cpu/x86/pc/olpc/gamekeys.fth - -: emacs ( -- ) - false to already-go? - boot-getline to boot-file " rom:emacs" $boot -; - -fload ${BP}/ofw/gui/ofpong.fth -fload ${BP}/cpu/x86/pc/olpc/life.fth -[then] - -" u:\boot\olpc.fth ext:\boot\olpc.fth int:\boot\olpc.fth ext:\zimage /prober /usb/ethernet /usb/wlan" - ' boot-device set-config-string-default - -\needs ramdisk " " d# 128 config-string ramdisk -" " ' boot-file set-config-string-default \ Let the boot script set the cmdline - -\ Eliminate 4 second delay in install console for the case where -\ there is no keyboard. The delay is unnecessary because the screen -\ does not go blank when the device is closed. -patch drop ms install-console - -alias reboot bye - -alias crcgen drop ( crc byte -- crc' ) - -\ Dictionary growth size for the ARM Image Format header -\ 1 section before origin section table -h# 10.0000 h# 8000 - h# 4000 - dictionary-size ! - -fload ${BP}/cpu/arm/saverom.fth \ Save the dictionary for standalone startup - -fload ${BP}/forth/lib/selstr.fth - -fload ${BP}/ofw/inet/loadtcp.fth - -support-package: http - fload ${BP}/ofw/inet/http.fth \ HTTP client -end-support-package - -[ifdef] notyet -fload ${BP}/cpu/x86/pc/olpc/memtest.fth -[then] - -[ifdef] notyet -fload ${BP}/ofw/wifi/wifi-cfg.fth -support-package: supplicant -fload ${BP}/ofw/wifi/loadpkg.fth -end-support-package - -: ofw-ssids ( -- $ ) " OFWSSID" ; -' ofw-ssids to default-ssids -[then] - -fload ${BP}/ofw/inet/sntp.fth -: olpc-ntp-servers ( -- ) - " DHCP time 172.18.0.1 0.pool.ntp.org 1.pool.ntp.org 2.pool.ntp.org" -; -' olpc-ntp-servers to ntp-servers -: ntp-time&date ( -- s m h d m y ) - ntp-timestamp abort" Can't contact NTP server" - ntp>time&date -; -: .clock ( -- ) - time&date .date space .time ." UTC" cr -; -: ntp-set-clock ( -- ) - ntp-time&date " set-time" clock-node @ $call-method - .clock -; - -[ifdef] use-ppp -fload ${BP}/ofw/ppp/loadppp.fth -[then] - -" dhcp" ' ip-address set-config-string-default - -[ifdef] notyet -: c1-idle ( -- ) interrupts-enabled? if halt then ; -' c1-idle to stdin-idle -[then] - -fload ${BP}/ofw/core/countdwn.fth \ Startup countdown - -: console-start ( -- ) - install-mux-io -\ cursor-off - true to text-on? - - " //null" open-dev to null-ih \ For text-off state -; - -: interpreter-init ( -- ) - hex - warning on - only forth also definitions - -\ install-alarm - - page-mode - #line off - -\ .built cr -; - -[ifdef] notyet -: ?games ( -- ) - rocker-right game-key? if - protect-fw - time&date 5drop 1 and if - ['] pong guarded - else - ['] life-demo guarded - then - power-off - then -; -: ?diags ( -- ) - rocker-left game-key? if - protect-fw - text-on " test-all" ['] eval guarded - ." Tests complete - powering off" cr d# 5000 ms power-off - then -; - -: ?scan-nand ( -- ) - rocker-up game-key? if - protect-fw text-on ['] scan-nand guarded - then -; -: ?fs-update ( -- ) - button-check button-x or button-o or button-square or ( mask ) - game-key-mask = if protect-fw try-fs-update then -; -[then] - -: startup ( -- ) - standalone? 0= if exit then - -\ block-exceptions - no-page - - console-start - -[ifdef] notyet - read-game-keys -[then] - -\ text-off - - " probe-" do-drop-in - -[ifdef] notyet - sound - ?games -[then] - - ['] false to interrupt-auto-boot? -[ifdef] probe-usb - probe-usb - report-disk - report-keyboard -[then] - " probe+" do-drop-in - - interpreter-init -[ifdef] notyet - ?scan-nand - ?diags - ?fs-update -[then] -\ unblock-exceptions - ['] (interrupt-auto-boot?) to interrupt-auto-boot? -\ ?usb-keyboard - auto-banner? if banner then - - auto-boot - - cr cr - - quit -; - -\ This helps with TeraTerm, which sends ESC-O as the arrow key prefix -also hidden also keys-forth definitions -warning @ warning off -: esc-o key lastchar ! [""] esc-[ do-command ; -warning ! -previous previous definitions - -tag-file @ fclose tag-file off - -.( --- Saving fw.dic ...) -" fw.dic" $save-forth cr +' (init-clocks) to init-clocks -fload ${BP}/cpu/arm/mmp2/boot.fth +fload ${BP}/cpu/arm/mmp2/rawboot.fth .( --- Saving ofw.rom --- ) cr " ofw.rom" $save-rom Added: cpu/arm/mmp2/rawboot.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/rawboot.fth Fri Oct 8 08:34:38 2010 (r1965) @@ -0,0 +1,18 @@ +\ This is some glue code to convert the machine setup that QEMU gives us +\ to the setup that start-forth (see arm/boot.fth) wants. +\ We get here via a call instruction at origin+8, which is inserted below + +code stand-cold-code ( r0: 0 r1: board-id r2: &kernel-args lr: &aif_header+8c ) + here origin 8 + put-call \ Insert call instruction + + \ Put the arguments in safe registers + sub r6,lr,#0x8c \ r6 points to header (lr set by code at origin) + mov r7,#0 \ r7: functions + add r8,r6,`/fw-ram` \ r8: memtop - 2MiB above load address + \ r9 is up + mov r10,#0 \ r10: argc + mov r11,r2 \ r11: argv (kernel args) + mov r12,`initial-heap-size` \ r12: initial-heap-size + + b 'code start-forth \ Branch to the generic startup code +end-code Modified: cpu/arm/mmp2/twsi.fth ============================================================================== --- cpu/arm/mmp2/twsi.fth Fri Oct 8 08:31:34 2010 (r1964) +++ cpu/arm/mmp2/twsi.fth Fri Oct 8 08:34:38 2010 (r1965) @@ -314,3 +314,12 @@ : vibrate-on ( -- ) select-pmic h# 1f h# 3c twsi-b! ; \ LDO10 : vibrate-off ( -- ) select-pmic h# 1e h# 3c twsi-b! ; +: power-on-sd ( -- ) + select-pmic + h# 29 h# 42 twsi-b! + h# 1f h# 40 twsi-b! +; +: power-off-sd ( -- ) + select-pmic + h# 1e h# 40 twsi-b! +;

1 0

[commit] r1964 - in cpu/arm: marvell mmp2
by repository service 08 Oct '10

08 Oct '10

Author: wmb Date: Fri Oct 8 08:31:34 2010 New Revision: 1964 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1964 Log: Added Marvell TIM (Trusted Image Module) compiler and scripts to generate various images with it. Added: cpu/arm/marvell/tim.fth cpu/arm/mmp2/ddr_elpida_512m.fth cpu/arm/mmp2/ntim_mmp2_nand_cforth_ddr_elpida_512m.fth cpu/arm/mmp2/ntim_mmp2_nand_ofw_ddr_elpida_512m.fth cpu/arm/mmp2/ntim_mmp2_nand_ofwonly_ddr_elpida_512m.fth cpu/arm/mmp2/ntim_mmp2_nand_uboot_ddr_elpida_512m.fth Added: cpu/arm/marvell/tim.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/marvell/tim.fth Fri Oct 8 08:31:34 2010 (r1964) @@ -0,0 +1,191 @@ +: >hex ( n -- n' ) d# 10 /mod h# 10 * + ; +: today>hex ( -- n ) + today ( day month year ) + d# 100 /mod ( day month yr century ) + rot >hex >r ( day yr century r: hex-month ) + rot >hex >r ( yr century r: hex-month hex-day ) + >hex >r ( yr r: hex-month hex-day hex-century ) + >hex r> r> r> bljoin ( n ) +; + +0 value image-size +0 value image-adr +0 value new-image-size +: ?realloc-image ( new-size -- ) + dup image-size > if ( new-size ) + to new-image-size ( ) + image-adr if ( ) + image-adr new-image-size resize abort" resize failed" ( adr ) + else ( ) + new-image-size alloc-mem ( adr ) + then ( adr ) + to image-adr ( ) + image-adr new-image-size image-size /string h# ff fill + new-image-size to image-size + else ( new-size ) + drop ( ) + then ( ) +; + +: hex, ( -- ) safe-parse-word $hnumber abort" Bad hex number" l, ; +: get-word ( -- adr len ) safe-parse-word ; +: get-filename ( -- adr len ) 0 parse ; + +: ?4bytes ( adr len -- adr ) 4 <> abort" Tag must be 4 characters" ; +: 4c, ( adr len -- ) + ?4bytes ( adr ) + 3 + 4 0 do dup i - c@ c, loop drop ( ) +; +: -4c, ( adr len -- ) + ?4bytes + 4 bounds do i c@ c, loop ( ) +; +: 4c! ( adr len dst -- ) + >r ?4bytes 4 + r> ( adr' dst ) + 4 0 do ( adr dst ) + swap 1- tuck c@ ( adr' dst src-byte ) + over c! 1+ ( adr dst' ) + loop ( adr dst ) + 2drop ( ) +; + +0 value tim-adr +0 value last-image-adr +0 value #images-adr +0 value res-size-adr +0 value #keys-adr +0 value res-adr +: save-tim: \ filename ( -- ) + writing + tim-adr here over - ofd @ fputs + ofd @ fclose +; +0 value my-timh-adr + +: save-image: \ filename ( -- ) + writing + image-adr image-size ofd @ fputs + ofd @ fclose + image-adr image-size free-mem +; +: tim: \ version trusted ID Processor + 0 to last-image-adr + here to tim-adr + hex, + " TIMH" 4c, + hex, \ Trusted +\ hex, \ Date + today>hex l, + get-word -4c, \ OEM ID + get-word 2drop \ Processor +; +: flash: \ id (e.g. NAN6) + 5 0 do -1 l, loop + + get-word ( adr len ) + \ Convert trailing number to binary byte value - e.g. NAN'6 -> NAN(06) + 2dup [char] ' left-parse-string 2drop ( adr len tail$ ) + push-decimal $number pop-base abort" Bad number" ( adr len n ) + nip over 3 + c! 4 ( adr 4 ) + 4c, + + here to #images-adr 0 l, + here to #keys-adr 0 l, + here to res-size-adr 0 l, +; +: set-last-image ( adr len -- ) + last-image-adr if last-image-adr 4c! else 2drop then + here to last-image-adr -1 l, +; +: $file-size ( adr len -- size ) + $read-open ifd @ fsize ifd @ fclose +; +: place-image ( adr len -- size ) + $read-open ifd @ fsize ( size ) + here 8 - l@ ( size offset ) + 2dup + ?realloc-image ( size offset ) + image-adr + over ( size adr size ) + ifd @ fgets ( size read-size ) + over <> abort" Read failed" ( size ) + ifd @ fclose ( size ) +\ h# 1000 round-up + 4 round-up +; +: place-hash \ XXX need to implement non-null hash info + d# 10 0 do 0 l, loop +; +: +#images ( -- ) #images-adr l@ 1+ #images-adr l! ; +: start-image ( adr len -- ) + +#images + get-word 2dup 4c, set-last-image + hex, \ Flash offset + hex, \ Load address +; +: image: \ name flash-offset mem-load-addr filename + start-image + get-filename place-image l, + place-hash +; +: timh: \ name flash-offset mem-load-addr + here to my-timh-adr + start-image + 0 l, \ This will be overwritten later + place-hash +; +0 value #res-pkgs-adr + +: reserved: + here to res-adr + " OPTH" 4c, + here to #res-pkgs-adr 0 l, +; +: end-reserved + here res-adr - res-size-adr l! + ['] (do-literal) to do-literal +; +0 value pkg-start-adr +: start-package ( adr len -- ) + #res-pkgs-adr l@ 1+ #res-pkgs-adr l! + here to pkg-start-adr + 4c, + 0 l, \ Package size +; +: end-package ( -- ) + here pkg-start-adr - pkg-start-adr la1+ l! +; +: end-tim ( -- ) + \ If we have used a timh: specifier, set its length and copy the constructed TIM into the image + my-timh-adr if + here tim-adr - my-timh-adr 4 la+ l! + tim-adr image-adr my-timh-adr 2 la+ l@ + here tim-adr - move + then +; +: tbrx: \ xferloc + " TBRX" start-package + hex, + 0 l, \ #pairs +; +: transfer: \ NAME address + pkg-start-adr 3 la+ dup l@ 1+ swap l! \ Increment #pairs + get-word 4c, + hex, +; +: pair: \ tag value + hex, + hex, +; +: gpios: + " GPIO" start-package + 0 l, \ #pairs +; +: gpio: \ address value + pkg-start-adr 2 la+ dup l@ 1+ swap l! \ Increment #pairs + pair: +; +: ddrc: \ + " DDRC" start-package +; +: cmcc: \ + " CMCC" start-package +; +: term: " Term" start-package end-package ; Added: cpu/arm/mmp2/ddr_elpida_512m.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/ddr_elpida_512m.fth Fri Oct 8 08:31:34 2010 (r1964) @@ -0,0 +1,90 @@ + gpios: + gpio: d0000010 d0004d56 \ CONFIG_DECODE_ADDR + gpio: d0000100 000c0001 \ MMAP0 + gpio: d0000110 100c0001 \ MMAP1 + gpio: d0000020 00006420 \ SDRAM_CONFIG_TYPE1-CS0 + gpio: d0000030 00006420 \ SDRAM_CONFIG_TYPE1-CS1 + gpio: d0000b40 00000000 \ SDRAM_CONFIG_TYPE2-CS0 + gpio: d0000b50 00000000 \ SDRAM_CONFIG_TYPE2-CS1 + gpio: d0000050 488700c5 \ SDRAM_TIMING1 + gpio: d0000060 323300d2 \ SDRAM_TIMING2 + gpio: d0000190 20000e12 \ SDRAM_TIMING3 + gpio: d00001c0 3023009d \ SDRAM_TIMING4 + gpio: d0000650 00050082 \ SDRAM_TIMING5 + gpio: d0000660 00909064 \ SDRAM_TIMING6 + gpio: d0000080 00005000 \ SDRAM_CTRL1 + gpio: d0000090 00080010 \ SDRAM_CTRL2 + gpio: d00000f0 c0000000 \ SDRAM_CTRL3 + gpio: d00001a0 20c08115 \ SDRAM_CTRL4 + gpio: d0000280 01010101 \ SDRAM_CTRL5_ARB_WEIGHTS + gpio: d0000760 00000000 \ SDRAM_CTRL6_SDRAM_ODT_CTRL + gpio: d0000770 03000000 \ SDRAM_CTRL7_SDRAM_ODT_CTRL2 + gpio: d0000780 00000133 \ SDRAM_CTRL8_SDRAM_ODT_CTRL2 + gpio: d00007b0 01010101 \ SDRAM_CTRL11_ARB_WEIGTHS_FAST_QUEUE + gpio: d00007d0 0000000f \ SDRAM_CTRL13 + gpio: d00007e0 00000000 \ SDRAM_CTRL14 + gpio: d0000540 00000000 \ MCB_CTRL4 + gpio: d0000570 00000001 \ MCB_SLFST_SEL + gpio: d0000580 00000000 \ MCB_SLFST_CTRL0 + gpio: d0000590 00000000 \ MCB_SLFST_CTRL1 + gpio: d00005a0 00000000 \ MCB_SLFST_CTRL2 + gpio: d00005b0 00000000 \ MCB_SLFST_CTRL3 + gpio: d0000180 00000000 \ CM_WRITE_PROTECTION + gpio: d0000210 00000000 \ PHY_CTRL11 + gpio: d0000240 80000000 \ PHY_CTRL14 + gpio: d0000240 2000ce00 \ PHY_CTRL14 + gpio: d0000240 0000ce00 \ PHY_CTRL14 + gpio: d0000200 0011ce00 \ PHY_CTRL10 + gpio: d0000200 0010311c \ PHY_CTRL10 + gpio: d0000140 20004422 \ PHY_CTRL3 + gpio: d00001d0 13300559 \ PHY_CTRL7 (0x2330_0339 / 0x133C_2559) + gpio: d00001e0 03300990 \ PHY_CTRL8 + gpio: d00001f0 00000077 \ PHY_CTRL9 + gpio: d0000230 20000088 \ PHY_CTRL13 (0x2000_0108 / 0x2024_0109) + gpio: d0000e10 00000080 \ PHY_DLL_CTRL1 + gpio: d0000e20 00000080 \ PHY_DLL_CTRL2 + gpio: d0000e30 00000080 \ PHY_DLL_CTRL3 + gpio: d0000e40 00000000 \ PHY_CTRL_WL_SELECT + gpio: d0000e50 00000000 \ PHY_CTRL_WL_CTRL0 + gpio: d0000120 03000001 \ USER_INITIATED_COMMAND0 - init command to both CS (need to wait 200 us for tINIT3) + gpio: d0000410 0302003f \ USER_INITIATED_COMMAND1 - MRW MR63 (RESET) to both CS (need to wait RESET_COUNT) + gpio: d0000120 01001000 \ USER_INITIATED_COMMAND0 - MRW MR10 (ZQ long cal) to CS0 (need 360 ns delay for tZQCS) + gpio: d0000120 02001000 \ USER_INITIATED_COMMAND0 - MRW MR10 (ZQ long cal) to CS1 (need 360 ns delay for tZQCS) + gpio: d0000410 03020001 \ USER_INITIATED_COMMAND1 - MRW MR1 to both CS + gpio: d0000410 03020002 \ USER_INITIATED_COMMAND1 - MRW MR2 to both CS + gpio: d0000410 03020003 \ USER_INITIATED_COMMAND1 - MRW MR3 to both CS + end-package + ddrc: + pair: 00000000 00006320 \ ConfTypeCS0 + pair: 00000001 00006320 \ ConfTypeCS1 + pair: 00000002 4cd800c5 \ Timing1 + pair: 00000003 84660342 \ Timing2 + pair: 00000004 2000381b \ Timing3 + pair: 00000005 3023009d \ Timing4 + pair: 00000006 00110142 \ Timing5 + pair: 00000007 00005000 \ Cntrl1 + pair: 00000008 00080000 \ Cntrl2 + pair: 00000009 c0000000 \ Cntrl3 + pair: 0000000a 20c08115 \ Cntrl4 + pair: 0000000b 01010101 \ Cntrl5-arb + pair: 0000000c 00000000 \ Cntrl6-odt + pair: 0000000d 03000000 \ Cntrl7-odt + pair: 0000000e 00000000 \ mcb_cntrl1 + pair: 0000000f 20004433 \ phy-cntrl3 + pair: 00000010 13300559 \ phy-cntrl7 + pair: 00000011 03300770 \ phy_cntrl8 + pair: 00000012 00000077 \ phy-cntrl9 + pair: 00000013 00000000 \ phy_cntrl11 + pair: 00000014 20000088 \ phy-cntrl13 + pair: 00000015 80000000 \ phy_cntrl14 + pair: 00000016 00000080 \ dll-ctrl1 + pair: 00000017 00000080 \ dll_ctrl2 + pair: 00000018 00000080 \ dll-ctrl3 + pair: 00000019 000b0001 \ mmap0 + pair: 0000001a 080b0001 \ mmap1 + pair: 0000001b 00000000 \ user_cmd0 + end-package + cmcc: + pair: 0 0 \ config-ena? false + pair: 1 0 \ memtest? false + end-package Added: cpu/arm/mmp2/ntim_mmp2_nand_cforth_ddr_elpida_512m.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/ntim_mmp2_nand_cforth_ddr_elpida_512m.fth Fri Oct 8 08:31:34 2010 (r1964) @@ -0,0 +1,19 @@ +\ Marvel Trusted Image Module image creation script for +\ MMP2 platform with 512M of Elpida RAM +\ Running CForth from the security processor + +tim: 00030102 0 Sky! PXA688 +flash: NAN'6 +timh: TIMH 0 d1020000 +image: OBMI 400 0 dummy.img +image: WTMI 404 d1000000 /home/wmb/OLPC/1.75/cforth-from-0xc0000.img +reserved: + tbrx: 00020000 + transfer: TIMH d1020000 + end-package + fload ddr_elpida_512m.fth + term: +end-reserved +end-tim + +save-image: nand_cforth.img Added: cpu/arm/mmp2/ntim_mmp2_nand_ofw_ddr_elpida_512m.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/ntim_mmp2_nand_ofw_ddr_elpida_512m.fth Fri Oct 8 08:31:34 2010 (r1964) @@ -0,0 +1,20 @@ +\ Marvel Trusted Image Module image creation script for +\ MMP2 platform with 512M of Elpida RAM +\ Running OFW using MMP2_JASPER_LOADER as an intermediate step + +tim: 00030102 0 Sky! PXA688 +flash: NAN'6 +timh: TIMH 0 d1020000 +image: OBMI 80000 0 /c/Documents and Settings/Mitch Bradley/My Documents/OLPC/Marvell/alpha1_sdcard_update/MMP2_JASPER_LOADER_3_2_15.bin +image: WTMI c0000 d1000000 /c/Documents and Settings/Mitch Bradley/My Documents/OLPC/Marvell/alpha1_sdcard_update/WtmUnresetPJ4.bin +image: OSLO 100000 100000 /home/wmb/ofw.test/cpu/arm/mmp2/build/ofw.rom +reserved: + tbrx: 00020000 + transfer: TIMH d1020000 + end-package + fload ddr_elpida_512m.fth + term: +end-reserved +end-tim + +save-image: nand_ofw.img Added: cpu/arm/mmp2/ntim_mmp2_nand_ofwonly_ddr_elpida_512m.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/ntim_mmp2_nand_ofwonly_ddr_elpida_512m.fth Fri Oct 8 08:31:34 2010 (r1964) @@ -0,0 +1,17 @@ +\ Marvel Trusted Image Module image creation script for +\ MMP2 platform with 512M of Elpida RAM +\ Running OFW directly, with no intermediate loader + +tim: 00030102 0 Sky! PXA688 +flash: NAN'6 +timh: TIMH 0 d1020000 +image: WTMI 1000 d1000000 /c/Documents and Settings/Mitch Bradley/My Documents/OLPC/Marvell/alpha1_sdcard_update/WtmUnresetPJ4.bin +image: OBMI 80000 0 /home/wmb/ofw.test/cpu/arm/mmp2/build/ofw.rom +reserved: + + fload ddr_elpida_512m.fth + term: +end-reserved +end-tim + +save-image: nand_ofwonly.img Added: cpu/arm/mmp2/ntim_mmp2_nand_uboot_ddr_elpida_512m.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/ntim_mmp2_nand_uboot_ddr_elpida_512m.fth Fri Oct 8 08:31:34 2010 (r1964) @@ -0,0 +1,20 @@ +\ Marvel Trusted Image Module image creation script for +\ MMP2 platform with 512M of Elpida RAM +\ Running uboot + +tim: 00030102 0 Sky! PXA688 +flash: NAN'6 +timh: TIMH 0 d1020000 +image: OBMI 80000 0 /c/Documents and Settings/Mitch Bradley/My Documents/OLPC/Marvell/alpha1_sdcard_update/MMP2_JASPER_LOADER_3_2_15.bin +image: WTMI c0000 d1000000 /c/Documents and Settings/Mitch Bradley/My Documents/OLPC/Marvell/alpha1_sdcard_update/WtmUnresetPJ4.bin +image: OSLO 100000 100000 /c/Documents and Settings/Mitch Bradley/My Documents/OLPC/Marvell/alpha1_sdcard_update/u-boot.bin +reserved: + tbrx: 00020000 + transfer: TIMH d1020000 + end-package + fload ddr_elpida_512m.fth + term: +end-reserved +end-tim + +save-image: nand_from_forth.img

1 0

[commit] r1963 - cpu/arm/marvell
by repository service 08 Oct '10

08 Oct '10

Author: wmb Date: Fri Oct 8 08:21:57 2010 New Revision: 1963 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1963 Log: Added cpu/arm/marvell subdirectory Added: cpu/arm/marvell/

1 0

Porting to a new CPU
by Andrew Holt (SE) 04 Oct '10

04 Oct '10

Hi, Can anybody advise me on this ? What is the absolute minimum I need to do to get OFW running on a new system ? Just to set up memory, the serial console and get the OK prompt ? Thanks, Andrew ============================= Andrew Holt Email: andrew.holt(a)electrans.com Phone: 0151 347 2264 Mobile: 07841 340608 Skype: andrewtholt De Omnibus Dubitandum =============================

2 1

Building on MIPS
by Bart 28 Sep '10

28 Sep '10

I can't seem to be able to build on MIPS, this is mostly due to missing files, are there things that need to be committed? Or is it just defunct? Bart

1 0

[commit] r1962 - dev/mmc/sdhci
by repository service 27 Sep '10

27 Sep '10

Author: wmb Date: Mon Sep 27 22:01:41 2010 New Revision: 1962 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1962 Log: OLPC Trac 10374 - fixed "off by 1" bug in the SD card size calculation for the CSD Version 2.0 case. This problem was causing spurious warnings about the OS size exceeding the card size. Modified: dev/mmc/sdhci/sdhci.fth Modified: dev/mmc/sdhci/sdhci.fth ============================================================================== --- dev/mmc/sdhci/sdhci.fth Tue Sep 21 02:53:40 2010 (r1961) +++ dev/mmc/sdhci/sdhci.fth Mon Sep 27 22:01:41 2010 (r1962) @@ -1044,7 +1044,7 @@ um* endof 1 of - d# 70 d# 48 csdbits d# 10 lshift h# 200 um* + d# 70 d# 48 csdbits 1+ d# 10 lshift h# 200 um* endof ( default ) ." SD: Warning - invalid CSD; using default device size." cr

1 0

[commit] r1961 - cpu/x86/pc/olpc/via
by repository service 21 Sep '10

21 Sep '10

Author: wmb Date: Tue Sep 21 02:53:40 2010 New Revision: 1961 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1961 Log: Q3A58 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Tue Sep 21 02:52:59 2010 (r1960) +++ cpu/x86/pc/olpc/via/fw-version.fth Tue Sep 21 02:53:40 2010 (r1961) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 57 +macro: FW_MINOR 58

1 0

[commit] r1960 - cpu/x86/pc/olpc/via
by repository service 21 Sep '10

21 Sep '10

Author: wmb Date: Tue Sep 21 02:52:59 2010 New Revision: 1960 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1960 Log: EC version 1.9.37 Modified: cpu/x86/pc/olpc/via/ec-version.fth Modified: cpu/x86/pc/olpc/via/ec-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/ec-version.fth Tue Sep 21 02:32:00 2010 (r1959) +++ cpu/x86/pc/olpc/via/ec-version.fth Tue Sep 21 02:52:59 2010 (r1960) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 1_9_36 +macro: EC_VERSION 1_9_37 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r1959 - dev/mmc/sdhci
by repository service 21 Sep '10

21 Sep '10

Author: wmb Date: Tue Sep 21 02:32:00 2010 New Revision: 1959 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1959 Log: Reverted svn 1950 (3-second delay for SD), because it doesn't appear to help or to be necessary. The SD power off delay is in the EC code. Modified: dev/mmc/sdhci/sdhci.fth Modified: dev/mmc/sdhci/sdhci.fth ============================================================================== --- dev/mmc/sdhci/sdhci.fth Tue Sep 21 01:58:17 2010 (r1958) +++ dev/mmc/sdhci/sdhci.fth Tue Sep 21 02:32:00 2010 (r1959) @@ -443,7 +443,6 @@ : protected? ( group# -- 32-bits ) h# 1e1a cmd response ; \ CMD30 R1 UNTESTED 0 instance value writing? -0 instance value last-write-time : erase-blocks ( block# #blocks -- ) \ UNTESTED intstat-on @@ -874,10 +873,6 @@ : detach-card ( -- ) wait-dma-done - last-write-time if - begin get-msecs last-write-time - d# 3000 > until - then - intstat-on wait-write-done drop intstat-off card-clock-off card-power-off @@ -950,7 +945,6 @@ else ( block# r: #blocks fresh? ) r> if r@ pre-write-erase then ( block# r: #blocks ) r> issue-write ( ) - get-msecs to last-write-time ( ) true to writing? ( ) then ( ) true to dma? ( )

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware