openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r2074 - in cpu: arm/olpc/1.75 x86/pc/olpc x86/pc/olpc/via
by repository service 08 Dec '10

08 Dec '10

Author: quozl Date: Wed Dec 8 22:39:38 2010 New Revision: 2074 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2074 Log: Q4A07 Modified: cpu/arm/olpc/1.75/fw-version.fth cpu/x86/pc/olpc/versions.fth cpu/x86/pc/olpc/via/fw-version.fth cpu/x86/pc/olpc/via/fw.bth Modified: cpu/arm/olpc/1.75/fw-version.fth ============================================================================== --- cpu/arm/olpc/1.75/fw-version.fth Wed Dec 8 22:32:08 2010 (r2073) +++ cpu/arm/olpc/1.75/fw-version.fth Wed Dec 8 22:39:38 2010 (r2074) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 06c +macro: FW_MINOR 07 Modified: cpu/x86/pc/olpc/versions.fth ============================================================================== --- cpu/x86/pc/olpc/versions.fth Wed Dec 8 22:32:08 2010 (r2073) +++ cpu/x86/pc/olpc/versions.fth Wed Dec 8 22:39:38 2010 (r2074) @@ -2,7 +2,7 @@ \ The overall firmware revision macro: FW_MAJOR E -macro: FW_MINOR 44e +macro: FW_MINOR 45q \ The EC microcode macro: EC_VERSION e34 Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Wed Dec 8 22:32:08 2010 (r2073) +++ cpu/x86/pc/olpc/via/fw-version.fth Wed Dec 8 22:39:38 2010 (r2074) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 61 +macro: FW_MINOR 61c Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Wed Dec 8 22:32:08 2010 (r2073) +++ cpu/x86/pc/olpc/via/fw.bth Wed Dec 8 22:39:38 2010 (r2074) @@ -750,6 +750,7 @@ \ " flash http:\\18.85.46.172\new.rom" eval ; : urom enable-serial " flash! u:\new.rom" eval ; +: qrom enable-serial " essid qz" eval " flash http:\\olpc.lan\qrom.rom" eval ; : no-usb-delay " dev /usb false to delay? dend" evaluate ; : null-fsdisk " dev /null : write-blocks-start 3drop ; : write-blocks-finish ; dend" evaluate

1 0

[commit] r2073 - cpu/arm/olpc/1.75
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 22:32:08 2010 New Revision: 2073 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2073 Log: OLPC XO-1.75 - added automatic USB probing at startup, now that USB is working. Added: cpu/arm/olpc/1.75/usb.fth Modified: cpu/arm/olpc/1.75/devices.fth cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/devices.fth ============================================================================== --- cpu/arm/olpc/1.75/devices.fth Wed Dec 8 22:30:16 2010 (r2072) +++ cpu/arm/olpc/1.75/devices.fth Wed Dec 8 22:32:08 2010 (r2073) @@ -229,27 +229,52 @@ devalias keyboard /ec-spi/keyboard -0 0 " d4208000" " /" begin-package \ USB Host Controller - h# 200 constant /regs - my-address my-space /regs reg - : my-map-in ( len -- adr ) - my-space swap " map-in" $call-parent h# 100 + ( adr ) - ; - : my-map-out ( adr len -- ) swap h# 100 - swap " map-out" $call-parent ; - false constant has-dbgp-regs? - false constant needs-dummy-qh? - : grab-controller ( config-adr -- error? ) drop false ; - fload ${BP}/dev/usb2/hcd/ehci/loadpkg.fth - : otg-set-host-mode 3 h# a8 ehci-reg! ; \ Force host mode - ' otg-set-host-mode to set-host-mode - -end-package - : wlan-reset ( -- ) d# 58 gpio-clr d# 20 ms d# 58 gpio-set ; -\ : usb-power-on ( -- ) 1 gpio-set ; -: usb-power-on ( -- ) ; \ The EC controls the USB power -: reset-usb-hub ( -- ) d# 146 gpio-set d# 10 ms d# 146 gpio-set ; +\ Create the alias unless it already exists +: $?devalias ( alias$ value$ -- ) + 2over not-alias? if $devalias exit then ( alias$ value$ alias$ ) + 2drop 4drop +; + +: ?report-device ( alias$ pathname$ -- ) + 2dup locate-device 0= if ( alias$ pathname$ phandle ) + drop ( alias$ pathname$ ) + 2over 2over $?devalias ( alias$ pathname$ ) + then ( alias$ pathname$ ) + 4drop ( ) +; + +: report-disk ( -- ) + " disk" " /usb/disk" ?report-device +; + +: report-keyboard ( -- ) + \ Prefer direct-attached + " usb-keyboard" " /usb/keyboard" ?report-device \ USB 2 (keyboard behind a hub) +; + +\ If there is a USB ethernet adapter, use it as the default net device. +\ We can't use ?report-device here because we already have net aliased +\ to /wlan, and ?report-device won't override an existing alias. +: report-net ( -- ) + " /usb/ethernet" 2dup locate-device 0= if ( name$ phandle ) + drop ( name$ ) + + \ Don't recreate the alias if it is already correct + " net" aliased? if ( name$ existing-name$ ) + 2over $= if ( name$ ) + 2drop exit ( -- ) + then ( name$ ) + then ( name$ ) + + " net" 2swap $devalias ( ) + else ( name$ ) + 2drop ( ) + then +; + +fload ${BP}/cpu/arm/olpc/1.75/usb.fth fload ${BP}/cpu/arm/marvell/utmiphy.fth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Wed Dec 8 22:30:16 2010 (r2072) +++ cpu/arm/olpc/1.75/fw.bth Wed Dec 8 22:32:08 2010 (r2073) @@ -23,6 +23,14 @@ [then] fload ${BP}/cpu/arm/linux.fth + +: usb-quiet ( -- ) + [ ' linux-hook behavior compile, ] \ Chain to old behavior + " /usb" " reset-usb" execute-device-method drop +; + +' usb-quiet to linux-hook + d# 9999 to arm-linux-machine-type \ Marvell Jasper \ Add a tag describing the linear frame buffer @@ -360,9 +368,9 @@ factory-test? 0= if secure-startup then unblock-exceptions ['] (interrupt-auto-boot?) to interrupt-auto-boot? -[ifdef] notyet + ?usb-keyboard -[then] + auto-banner? if banner then auto-boot Added: cpu/arm/olpc/1.75/usb.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/usb.fth Wed Dec 8 22:32:08 2010 (r2073) @@ -0,0 +1,141 @@ +purpose: USB elaborations for the BIOS loaded OFW +\ See license at end of file + +0 0 " d4208000" " /" begin-package \ USB Host Controller + h# 200 constant /regs + my-address my-space /regs reg + : my-map-in ( len -- adr ) + my-space swap " map-in" $call-parent h# 100 + ( adr ) + ; + : my-map-out ( adr len -- ) swap h# 100 - swap " map-out" $call-parent ; + false constant has-dbgp-regs? + false constant needs-dummy-qh? + : grab-controller ( config-adr -- error? ) drop false ; + fload ${BP}/dev/usb2/hcd/ehci/loadpkg.fth + false to delay? \ No need for a polling delay on this platform + : otg-set-host-mode 3 h# a8 ehci-reg! ; \ Force host mode + ' otg-set-host-mode to set-host-mode + +end-package + +d# 300 config-int usb-delay \ Milliseconds to wait before probing hub ports + +devalias u /usb/disk + +\ Like $show-devs, but ignores pagination keystrokes +: $nopage-show-devs ( nodename$ -- ) + ['] exit? behavior >r ['] false to exit? + $show-devs + r> to exit? +; + +\ Restrict selftest to external USB ports 1,2,3 +\ dev / 3 " usb-test-ports" integer-property dend + +: (probe-usb2) ( -- ) + " device_type" get-property if exit then +[ifdef] use-usb-debug-port + \ I haven't figured out how to turn on the EHCI cleanly + \ when the Debug Port is running + dbgp-off +[then] + get-encoded-string " ehci" $= if + pwd$ open-dev ?dup if close-dev then + then +; +: (show-usb2) ( -- ) + " device_type" get-property if exit then + get-encoded-string " ehci" $= if + pwd$ $nopage-show-devs + then +; + +: silent-probe-usb ( -- ) + " /" ['] (probe-usb2) scan-subtree + report-disk report-net report-keyboard +; +: probe-usb ( -- ) + silent-probe-usb + + ." USB devices:" cr + " /" ['] (show-usb2) scan-subtree + +; +alias p2 probe-usb + +0 value usb-keyboard-ih + +: attach-usb-keyboard ( -- ) + " usb-keyboard" expand-alias if ( devspec$ ) + drop " /usb" comp 0= if ( ) + " usb-keyboard" open-dev to usb-keyboard-ih + usb-keyboard-ih add-input + exit + then + else ( devspec$ ) + 2drop + then +; + +: detach-usb-keyboard ( -- ) + usb-keyboard-ih if + usb-keyboard-ih remove-input + usb-keyboard-ih close-dev + 0 to usb-keyboard-ih + then +; + +: ?usb-keyboard ( -- ) + attach-usb-keyboard + " /usb/serial" open-dev ?dup if + add-input + then +; + +\ Unlink every node whose phys.hi component matches port +: port-match? ( port -- flag ) + get-unit if drop false exit then + get-encoded-int = +; +: rm-usb-children ( port -- ) + device-context? 0= if drop exit then + also ( port ) + 'child ( port prev ) + first-child begin while ( port prev ) + over port-match? if ( port prev ) + 'peer link@ over link! ( port prev ) \ Disconnect + else ( port prev ) + drop 'peer ( port prev' ) + then ( port prev ) + next-child repeat ( port prev ) + 2drop ( ) + previous definitions +; + +\ Turn on USB power after a delay, to ensure that USB devices are reset correctly on boot +: usb-power-on ( -- ) ; \ The EC controls the USB power +: reset-usb-hub ( -- ) d# 146 gpio-set d# 10 ms d# 146 gpio-set ; + +\ 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

1 0

[commit] r2072 - cpu/x86/pc/olpc
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 22:30:16 2010 New Revision: 2072 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2072 Log: OLPC trac #10521 - close audio device after playing startup sound so subsequent test /audio works right (resets the sample rate). Modified: cpu/x86/pc/olpc/sound.fth Modified: cpu/x86/pc/olpc/sound.fth ============================================================================== --- cpu/x86/pc/olpc/sound.fth Wed Dec 8 22:28:37 2010 (r2071) +++ cpu/x86/pc/olpc/sound.fth Wed Dec 8 22:30:16 2010 (r2072) @@ -37,13 +37,21 @@ r> to load-started r> to playback-volume ; +: close-audio ( -- ) + audio-ih if + audio-ih close-dev + 0 to audio-ih + then +; : sound-end ( -- ) " wait-sound" ['] $call-audio catch if 2drop then free-wav + close-audio ; : stop-sound ( -- ) " stop-sound" ['] $call-audio catch if 2drop then free-wav + close-audio ; \ LICENSE_BEGIN

1 0

[commit] r2071 - cpu/x86/pc
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 22:28:37 2010 New Revision: 2071 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2071 Log: biosints.fth - added commentary explaining some complicated stuff. Modified: cpu/x86/pc/biosints.fth Modified: cpu/x86/pc/biosints.fth ============================================================================== --- cpu/x86/pc/biosints.fth Wed Dec 8 22:27:30 2010 (r2070) +++ cpu/x86/pc/biosints.fth Wed Dec 8 22:28:37 2010 (r2071) @@ -1067,8 +1067,11 @@ 16-bit ax push h# 20 # ax mov - al h# 20 # out + al h# 20 # out \ Writing h# 20 to IO port 20 is interrupt ack ax pop + \ After acking the hardware interrupt, we call the INT 1c vector, + \ which NTLDR hooks when it wants to receive timer ticks. That + \ vector will perform the IRET to return from the hardware interrupt. cs: h# 72 #) push cs: h# 70 #) push far ret @@ -1081,6 +1084,9 @@ bounce-timer h# c0 /bounce-timer move \ Change INT 20 (the timer tick) to point to the bounce vector with CS=0 + \ INT 20 is called by the timer hardware via IRQ 0, which vectors to INT 20 + \ (vector-base0 = 0x20). The following causes it to execute the "bounce-timer" + \ code which has been placed at location 0xc0. 0 h# 82 w! h# c0 h# 80 w! \ CS = 0, IP = h# c0 = INT 30 ;

1 0

[commit] r2070 - dev/usb2/hcd
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 22:27:30 2010 New Revision: 2070 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2070 Log: USB hub driver - added a configurable delay between port power-up and probing. Modified: dev/usb2/hcd/probehub.fth Modified: dev/usb2/hcd/probehub.fth ============================================================================== --- dev/usb2/hcd/probehub.fth Wed Dec 8 22:26:17 2010 (r2069) +++ dev/usb2/hcd/probehub.fth Wed Dec 8 22:27:30 2010 (r2070) @@ -49,7 +49,10 @@ tuck 1 ?do i power-hub-port loop 2* ms ( hub-dev #ports ) - d# 100 ms + " usb-delay" ['] evaluate catch if ( hub-dev #ports x x ) + 2drop d# 100 ( hub-dev #ports ms ) + then ( hub-dev #ports ms ) + ms ( hub-dev #ports ) 1 ?do dup i ['] probe-hub-port catch if

1 0

[commit] r2069 - dev/usb2/hcd/ehci
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 22:26:17 2010 New Revision: 2069 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2069 Log: Move EHCI device_type declaration into a different file. Modified: dev/usb2/hcd/ehci/ehci.bth dev/usb2/hcd/ehci/ehci.fth Modified: dev/usb2/hcd/ehci/ehci.bth ============================================================================== --- dev/usb2/hcd/ehci/ehci.bth Wed Dec 8 22:24:34 2010 (r2068) +++ dev/usb2/hcd/ehci/ehci.bth Wed Dec 8 22:26:17 2010 (r2069) @@ -9,8 +9,6 @@ FCode-version2 -" ehci" encode-string " device_type" property - fload ${BP}/dev/usb2/hcd/ehci/pci.fth fload ${BP}/dev/usb2/hcd/ehci/loadpkg.fth Modified: dev/usb2/hcd/ehci/ehci.fth ============================================================================== --- dev/usb2/hcd/ehci/ehci.fth Wed Dec 8 22:24:34 2010 (r2068) +++ dev/usb2/hcd/ehci/ehci.fth Wed Dec 8 22:26:17 2010 (r2069) @@ -1,6 +1,8 @@ purpose: Driver for EHCI USB Controller \ See license at end of file +" ehci" encode-string " device_type" property + hex headers

1 0

[commit] r2068 - cpu/arm/mmp2
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 22:24:34 2010 New Revision: 2068 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2068 Log: XO-1.75 - make DMA space uncached so USB descriptors work right. Modified: cpu/arm/mmp2/mmuon.fth cpu/arm/mmp2/rootnode.fth Modified: cpu/arm/mmp2/mmuon.fth ============================================================================== --- cpu/arm/mmp2/mmuon.fth Wed Dec 8 06:37:16 2010 (r2067) +++ cpu/arm/mmp2/mmuon.fth Wed Dec 8 22:24:34 2010 (r2068) @@ -23,10 +23,11 @@ ; : 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 + h# 0000.0000 h# c0e over dma-base map-sections \ Cache and write bufferable + dma-base h# c02 over dma-size map-sections \ Non-cacheable DMA space + 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# d100.0000 h# c0e over h# 0030.0000 map-sections \ Cache and write bufferable (SRAM) +\ h# d100.0000 h# c0e over h# 0030.0000 map-sections \ Cache and write bufferable (SRAM) h# d100.0000 h# c02 over h# 0030.0000 map-sections \ I/O - no caching or buffering (SRAM) h# d400.0000 h# c02 over h# 0040.0000 map-sections \ I/O - no caching or buffering h# e000.0000 h# c02 over /section map-sections \ Audio SRAM - no caching or buffering Modified: cpu/arm/mmp2/rootnode.fth ============================================================================== --- cpu/arm/mmp2/rootnode.fth Wed Dec 8 06:37:16 2010 (r2067) +++ cpu/arm/mmp2/rootnode.fth Wed Dec 8 22:24:34 2010 (r2068) @@ -109,9 +109,12 @@ ; : dma-map-out ( virt devaddr size -- ) nip flush-d$-range ; -: dma-sync ( virt devaddr size -- ) nip flush-d$-range ; -: dma-push ( virt devaddr size -- ) nip flush-d$-range ; -: dma-pull ( virt devaddr size -- ) nip flush-d$-range ; +\ : dma-sync ( virt devaddr size -- ) nip flush-d$-range ; +\ : dma-push ( virt devaddr size -- ) nip flush-d$-range ; +\ : dma-pull ( virt devaddr size -- ) nip flush-d$-range ; +: dma-sync ( virt devaddr size -- ) 3drop ; +: dma-push ( virt devaddr size -- ) 3drop ; +: dma-pull ( virt devaddr size -- ) 3drop ; finish-device

1 0

[commit] r2067 - cpu/x86/pc/olpc
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 06:37:16 2010 New Revision: 2067 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2067 Log: Changed the check for NTLDR to be less language-sensitive. Modified: cpu/x86/pc/olpc/xpsecure.fth Modified: cpu/x86/pc/olpc/xpsecure.fth ============================================================================== --- cpu/x86/pc/olpc/xpsecure.fth Wed Dec 8 00:40:03 2010 (r2066) +++ cpu/x86/pc/olpc/xpsecure.fth Wed Dec 8 06:37:16 2010 (r2067) @@ -35,7 +35,7 @@ false value ntldr-prepped? : is-ntldr? ( adr len -- flag ) h# 5000 < if drop false exit then - " NTLDR is corrupt" rot h# 5000 sindex -1 <> + " NTLDR" rot h# 5000 sindex -1 <> ; warning @ warning off

1 0

[commit] r2066 - forth/lib
by repository service 08 Dec '10

08 Dec '10

Author: wmb Date: Wed Dec 8 00:40:03 2010 New Revision: 2066 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2066 Log: Generic - fixed invalid assumption in dispose.fth - it assumed that allocated memory for the transient area was above the dictionary. Violation of the assumption caused end-module to crash. Modified: forth/lib/dispose.fth Modified: forth/lib/dispose.fth ============================================================================== --- forth/lib/dispose.fth Fri Dec 3 08:10:10 2010 (r2065) +++ forth/lib/dispose.fth Wed Dec 8 00:40:03 2010 (r2066) @@ -63,6 +63,16 @@ 0 value resboundary \ Lower boundary of region to dispose 0 value tranboundary +: transient-item? ( item -- transient? ) + tranboundary there within +; +: resident-item? ( item -- resident? ) + origin >link resboundary within +; +: safe-transient-item? ( item -- safe-transient? ) + transtart tranboundary within +; + \ relink removes transients from any linked list. It must be called \ with a known good first link, as it doesn't know how to reset \ the head of the list, which is usually a global variable. @@ -71,13 +81,13 @@ \ Skip over all consecutive words in the transient vocabulary dup begin ( prev-item this-item ) - item@ dup tranboundary >= ( prev-item next-item tran? ) + item@ dup transient-item? ( prev-item next-item tran? ) dup if over showit then 0= until ( prev-item next-kept-item ) \ Link the next non-transient word to the previous non-transient one - dup rot item! ( next-kept-item ) - dup resboundary < ( next-kept-item <resboundary? ) - over transtart >= ( next-kept-item <resboundary? safe-transient? ) + dup rot item! ( next-kept-item ) + dup resident-item? ( next-kept-item resident? ) + over safe-transient-item? ( next-kept-item resident? safe-transient? ) or until drop ; @@ -101,7 +111,7 @@ : relink-buffer:s ( -- ) ['] buf-link@ is item@ ['] buf-link! is item! ['] buffer:. is link. buffer-link begin \ Check for transient at head - link@ dup tranboundary >= + link@ dup transient-item? while dup showit >buffer-link repeat buffer-link link! @@ -116,7 +126,7 @@ : relink-voc-list ( -- ) ['] voc-link@ is item@ ['] voc-link! is item! ['] vocab. is link. voc-link begin \ Check for transient at head - link@ dup tranboundary >= + link@ dup transient-item? while dup showit >voc-link repeat voc-link link!

1 0

[commit] r2065 - dev/mmc/sdhci
by repository service 03 Dec '10

03 Dec '10

Author: quozl Date: Fri Dec 3 08:10:10 2010 New Revision: 2065 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2065 Log: OLPC XO-1.5 - increase external SD card power-up off time for a 32 G class 10 SD card being tested. Modified: dev/mmc/sdhci/sdhci.fth Modified: dev/mmc/sdhci/sdhci.fth ============================================================================== --- dev/mmc/sdhci/sdhci.fth Fri Dec 3 07:55:12 2010 (r2064) +++ dev/mmc/sdhci/sdhci.fth Fri Dec 3 08:10:10 2010 (r2065) @@ -801,10 +801,16 @@ false to writing? ; +\ time to hold card power off to allow VCC_SD to discharge +\ 25ms required for XO-1.5 with external SanDisk 32 G class 10 SD card +\ 29ms required for XO-1.5 with external SanDisk 8 G class 4 SD card +\ 1ms should be required for XO-1.75 A2 (due to discharge clamps) +d# 40 value power-off-time + \ -1 means error, 1 means retry : power-up-card ( -- false | retry? true ) intstat-on - card-power-off d# 20 ms + card-power-off power-off-time ms card-power-on d# 40 ms \ This delay is just a guess (20 was barely too slow for a Via board) card-inserted? 0= if card-power-off intstat-off false true exit then card-clock-slow d# 10 ms \ This delay is just a guess

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware