openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r2633 - cpu/x86/pc/alex/build
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:40:23 2011 New Revision: 2633 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2633 Log: gitignore Added: cpu/x86/pc/alex/build/.gitignore Modified: .gitignore Modified: .gitignore ============================================================================== --- .gitignore Sat Oct 22 05:40:16 2011 (r2632) +++ .gitignore Sat Oct 22 05:40:23 2011 (r2633) @@ -17,3 +17,5 @@ *~ headers *.md5 +*.public +*.lo Added: cpu/x86/pc/alex/build/.gitignore ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/alex/build/.gitignore Sat Oct 22 05:40:23 2011 (r2633) @@ -0,0 +1,2 @@ +build +testicons

1 0

[commit] r2632 - cpu/arm/olpc/1.75
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:40:16 2011 New Revision: 2632 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2632 Log: gitignore Added: cpu/arm/olpc/1.75/.gitignore Added: cpu/arm/olpc/1.75/.gitignore ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/.gitignore Sat Oct 22 05:40:16 2011 (r2632) @@ -0,0 +1,6 @@ +armforth +build +cforth +multicast-nand +sourceurl +testicons

1 0

[commit] r2631 - cpu/arm/mmp2
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:40:09 2011 New Revision: 2631 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2631 Log: OLPC XO-1.75 - added delay in low-level suspend/resume code to fix resume failures that occur on some rev C memory configurations. Modified: cpu/arm/mmp2/dramrecal.fth Modified: cpu/arm/mmp2/dramrecal.fth ============================================================================== --- cpu/arm/mmp2/dramrecal.fth Sat Oct 22 05:40:03 2011 (r2630) +++ cpu/arm/mmp2/dramrecal.fth Sat Oct 22 05:40:09 2011 (r2631) @@ -86,6 +86,8 @@ mov r1, #0x40000000 \ DLL_UPDATE_EN str r1, [r0, #0x240] \ PHY_CTRL14 + mov r1, #0x0300 begin decs r1,1 0= until \ Delay, needed for some DRAMs + mov r1, #0x80 \ Exit Self Refresh value str r1, [r0, #0x120] \ USER_INITIATED_COMMAND0

1 0

[commit] r2630 - cpu/arm/olpc/1.75
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:40:03 2011 New Revision: 2630 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2630 Log: OLPC XO-1.75 - added watch-dc-biased and watch-dc-unbiased commands for checking sensor input mode. Modified: cpu/arm/olpc/1.75/alc5631.fth cpu/arm/olpc/1.75/sound.fth Modified: cpu/arm/olpc/1.75/alc5631.fth ============================================================================== --- cpu/arm/olpc/1.75/alc5631.fth Sat Oct 22 05:39:56 2011 (r2629) +++ cpu/arm/olpc/1.75/alc5631.fth Sat Oct 22 05:40:03 2011 (r2630) @@ -30,7 +30,7 @@ \ The speaker gain ratio must be <= the ratio of SPKVDD to AVDD. \ In our system, SPKVDD is 5V and AVDD is 3.3V, so we need a gain ratio <= 1.51 . \ The value 3 gives a ratio of 1.44, and value 4 gives a ratio of 1.56 . We use 3. - h# 3e00 h# 40 codec! \ Speaker Amp Ratio GAIN is 1.44x, no HPFs + h# 3e00 h# 40 codec! \ Speaker Amp Ratio GAIN is 1.44x, HPF on ADC and DAC h# 0000 h# 42 codec! \ Use MCLK, not PLL \ b# 1110.1100.1001.0000 h# 52 codec! \ Protection on @@ -42,10 +42,10 @@ : mic-bias-off ( -- ) h# 000c h# 3b codec-clr ; : mic-bias-on ( -- ) h# 000c h# 3b codec-set ; -: mic1-high-bias ( -- ) h# 80 h# 22 codec-clr mic-bias-on ; \ 0.90*AVDD, e.g. 3V with AVDD=3.3V -: mic1-low-bias ( -- ) h# 80 h# 22 codec-set mic-bias-on ; \ 0.75*AVDD, e.g. 2.5V with AVDD=3.3V -: mic2-high-bias ( -- ) h# 08 h# 22 codec-clr mic-bias-on ; \ 0.90*AVDD, e.g. 3V with AVDD=3.3V -: mic2-low-bias ( -- ) h# 08 h# 22 codec-set mic-bias-on ; \ 0.75*AVDD, e.g. 2.5V with AVDD=3.3V +: mic1-high-bias ( -- ) h# 80 h# 22 codec-clr ; \ 0.90*AVDD, e.g. 3V with AVDD=3.3V +: mic1-low-bias ( -- ) h# 80 h# 22 codec-set ; \ 0.75*AVDD, e.g. 2.5V with AVDD=3.3V +: mic2-high-bias ( -- ) h# 08 h# 22 codec-clr ; \ 0.90*AVDD, e.g. 3V with AVDD=3.3V +: mic2-low-bias ( -- ) h# 08 h# 22 codec-set ; \ 0.75*AVDD, e.g. 2.5V with AVDD=3.3V : depop! ( value -- ) h# 54 codec! ; : pwr3a! ( value -- ) h# 3a codec! ; @@ -201,8 +201,9 @@ : adc-mono-right ( -- ) h# 8000 adc-source ; \ R->L+R : adc-stereo-reversed ( -- ) h# c000 adc-source ; \ L->R, R->L (channels swapped) +true value mic-bias? : open-in-specific ( -- ) - h# 000c h# 3b codec-set \ Power on MIC1/2 bias + mic-bias? if mic-bias-on else mic-bias-off then \ Power on MIC1/2 bias adc-stereo h# 0c00 h# 3b codec-set \ Power on RECMIXLR h# 0030 h# 3b codec-set \ Power on MIC1/2 boost gain Modified: cpu/arm/olpc/1.75/sound.fth ============================================================================== --- cpu/arm/olpc/1.75/sound.fth Sat Oct 22 05:39:56 2011 (r2629) +++ cpu/arm/olpc/1.75/sound.fth Sat Oct 22 05:40:03 2011 (r2630) @@ -400,6 +400,51 @@ : read ( adr len -- actual ) open-in audio-in close-in ; 0 value mono? +: stereo false to mono? ; +: mono true to mono? ; + +: average-channel ( adr -- n ) + 0 swap /audio-buf bounds do ( accum ) + i <w@ + ( accum' ) + /l +loop ( accum ) + /audio-buf /l / / ( average ) +; +: average-in ( -- ) + my-in-desc 2 la+ l@ ( adr ) + (cr push-decimal ( adr ) + dup average-channel ( adr average ) + 6 .r space ( adr ) + wa1+ average-channel ( average ) + 6 .r ( ) + pop-base ( ) + my-in-desc 3 la+ l@ to my-in-desc +; +: audio-watch ( -- ) + setup-sspa-rx ( ) + make-in-ring ( ) + start-in-ring ( ) + master-rx ( ) + begin ( ) + wait-in ( ) + average-in ( ) + key? until ( ) + disable-sspa-rx ( ) + stop-in-ring ( ) + reset-rx ( ) +; +: watch-dc ( bias? -- ) + to mic-bias? + d# 143 gpio-set \ DC input mode + h# 0400 h# 40 codec-clr + open-in + stereo 0 set-adc-gain 0 set-mic-gain + \ High bias gets us closer to the top of the digital range - but bias can + \ be turned off completely with "false to mic-bias?" + mic1-high-bias mic2-high-bias + audio-watch + close-in +; + 0 value in-adr0 0 value in-len0 : collapse-in ( -- ) @@ -504,9 +549,6 @@ set-adc-gain ; -: stereo false to mono? ; -: mono true to mono? ; - : init-codec ( -- ) codec-on set-default-gains @@ -570,6 +612,15 @@ end-package +: (watch-dc) ( bias? -- ) + " /audio" open-dev >r ( bias? r: ihandle ) + " watch-dc" r@ $call-method ( r: ihandle ) + r> close-dev ( ) +; +: watch-dc-biased ( -- ) true (watch-dc) ; +: watch-dc-unbiased ( -- ) false (watch-dc) ; + + \ LICENSE_BEGIN \ Copyright (c) 2011 FirmWorks \

1 0

[commit] r2629 - in cpu/arm: mmp2 olpc/1.75
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:39:56 2011 New Revision: 2629 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2629 Log: OLPC XO-1.75 - turn off timer interrupts when entering Linux. Modified: cpu/arm/mmp2/timer.fth cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/mmp2/timer.fth ============================================================================== --- cpu/arm/mmp2/timer.fth Sat Oct 22 05:39:50 2011 (r2628) +++ cpu/arm/mmp2/timer.fth Sat Oct 22 05:39:56 2011 (r2629) @@ -161,6 +161,11 @@ ; ' (set-tick-limit) to set-tick-limit +: timers-off ( -- ) + 0 timer0-ier! 0 timer1-ier! 0 timer2-ier! \ Disable timer interrupts + 7 timer0-icr! 7 timer1-icr! 7 timer2-icr! \ Clear pending interrupts +; + : can-idle? ( -- flag ) interrupts-enabled? if d# 15 interrupt-enabled? Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Sat Oct 22 05:39:50 2011 (r2628) +++ cpu/arm/olpc/1.75/fw.bth Sat Oct 22 05:39:56 2011 (r2629) @@ -33,6 +33,7 @@ " /usb" " reset-usb" execute-device-method drop ; : quiesce ( -- ) + timers-off usb-quiet close-ec ;

1 0

[commit] r2628 - cpu/arm/olpc/1.75
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:39:50 2011 New Revision: 2628 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2628 Log: OLPC XO-1.75 - Shorten memory test in SMT mode per Quanta's request. Modified: cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Sat Oct 22 05:39:37 2011 (r2627) +++ cpu/arm/olpc/1.75/fw.bth Sat Oct 22 05:39:50 2011 (r2628) @@ -193,17 +193,18 @@ \ Suppress long memory test at final test stage dev /memory -defer old-diagnostic-mode? +0 value old-diag-switch? : not-final-test? ( -- flag ) final-test? if false exit then - old-diagnostic-mode? + smt-test? if false exit then + old-diag-switch? ; warning @ warning off : selftest ( -- error? ) - ['] (diagnostic-mode?) behavior to old-diagnostic-mode? - ['] not-final-test? to (diagnostic-mode?) + diag-switch? to old-diag-switch? + not-final-test? to diag-switch? selftest - ['] old-diagnostic-mode? behavior to (diagnostic-mode?) + old-diag-switch? to diag-switch? ; warning ! device-end

1 0

[commit] r2627 -
by repository service 22 Oct '11

22 Oct '11

Author: wmb Date: Sat Oct 22 05:39:37 2011 New Revision: 2627 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2627 Log: .gitignore Added: .gitignore3 Added: .gitignore3 ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ .gitignore3 Sat Oct 22 05:39:37 2011 (r2627) @@ -0,0 +1,210 @@ + +# /clients/emacs/arm/ +/clients/emacs/arm/emacs.elf +/clients/emacs/arm/emacs + +# /clients/emacs/x86/ +/clients/emacs/x86/emacs.nm +/clients/emacs/x86/emacs.obp +/clients/emacs/x86/emacs + +# /clients/lib/arm/ +/clients/lib/arm/libobp.a + +# /clients/lib/x86/ +/clients/lib/x86/*.elf +/clients/lib/x86/*.syms +/clients/lib/x86/*.a +/clients/lib/x86/hello + +# /clients/memtest86/ +/clients/memtest86/memtest +/clients/memtest86/memtest_shared.bin +/clients/memtest86/memtest_shared +/clients/memtest86/*.s +/clients/memtest86/*.bin + +# /cpu/arm/Linux/ +/cpu/arm/Linux/armforth +/cpu/arm/Linux/forth + +# /cpu/arm/beagle/build/ +/cpu/arm/beagle/build/build +/cpu/arm/beagle/build/tags +/cpu/arm/beagle/build/*.rom +/cpu/arm/beagle/build/*.tag + +# /cpu/arm/build/ +/cpu/arm/build/armbuild +/cpu/arm/build/build +/cpu/arm/build/*.tag +/cpu/arm/build/core + +# /cpu/arm/mmp2/build/ +/cpu/arm/mmp2/build/*.rom +/cpu/arm/mmp2/build/*.tag +/cpu/arm/mmp2/build/tags +/cpu/arm/mmp2/build/build + +# /cpu/arm/olpc/1.75/build/ +/cpu/arm/olpc/1.75/build/*.tag +/cpu/arm/olpc/1.75/build/*.rom +/cpu/arm/olpc/1.75/build/*.txt +/cpu/arm/olpc/1.75/build/*.bin +/cpu/arm/olpc/1.75/build/tags +/cpu/arm/olpc/1.75/build/*.public +/cpu/arm/olpc/1.75/build/*.version +/cpu/arm/olpc/1.75/build/build +/cpu/arm/olpc/1.75/build/builton.fth +/cpu/arm/olpc/1.75/build/sourceurl +/cpu/arm/olpc/1.75/build/multicast-nand +/cpu/arm/olpc/1.75/build/armforth +/cpu/arm/olpc/1.75/build/testicons + +# /cpu/arm/openmoko/build/ +/cpu/arm/openmoko/build/*.tag +/cpu/arm/openmoko/build/*.rom +/cpu/arm/openmoko/build/*. +/cpu/arm/openmoko/build/tags +/cpu/arm/openmoko/build/build + +# /cpu/arm/pxa3xx/build/ +/cpu/arm/pxa3xx/build/*.tag +/cpu/arm/pxa3xx/build/*.rom +/cpu/arm/pxa3xx/build/tags +/cpu/arm/pxa3xx/build/build + +# /cpu/arm/versatilepb/build/ +/cpu/arm/versatilepb/build/*.rom +/cpu/arm/versatilepb/build/*.tag +/cpu/arm/versatilepb/build/tags +/cpu/arm/versatilepb/build/core +/cpu/arm/versatilepb/build/build + +# /cpu/i8051/build/ +/cpu/i8051/build/*.hex +/cpu/i8051/build/build + +# /cpu/ppc/Linux/ +/cpu/ppc/Linux/ppcforth.trace +/cpu/ppc/Linux/ppcforth +/cpu/ppc/Linux/forth + +# /cpu/ppc/build/ +/cpu/ppc/build/ppcforth +/cpu/ppc/build/build +/cpu/ppc/build/*.tag + +# /cpu/ppc/olpc/build/ +/cpu/ppc/olpc/build/*.rom +/cpu/ppc/olpc/build/ppcforth +/cpu/ppc/olpc/build/builton.fth +/cpu/ppc/olpc/build/sourceurl +/cpu/ppc/olpc/build/inflate.bin + +# /cpu/x86/Linux/ +/cpu/x86/Linux/forth +/cpu/x86/Linux/x86forth +/cpu/x86/Linux/ppcforth +/cpu/x86/Linux/*.tag +/cpu/x86/Linux/armforth.trace +/cpu/x86/Linux/armforth + +# /cpu/x86/build/ +/cpu/x86/build/inflate.bin +/cpu/x86/build/build +/cpu/x86/build/*.tag +/cpu/x86/build/tags + +# /cpu/x86/pc/alex/build/ +/cpu/x86/pc/alex/build/*.tag +/cpu/x86/pc/alex/build/builton.fth +/cpu/x86/pc/alex/build/*.elf +/cpu/x86/pc/alex/build/build +/cpu/x86/pc/alex/build/tags + +# /cpu/x86/pc/biosload/build/ +/cpu/x86/pc/biosload/build/build +/cpu/x86/pc/biosload/build/builton.fth +/cpu/x86/pc/biosload/build/ofw.c32 +/cpu/x86/pc/biosload/build/*.elf +/cpu/x86/pc/biosload/build/sd8686.bin +/cpu/x86/pc/biosload/build/*.version +/cpu/x86/pc/biosload/build/sd8686_helper.bin + +# /cpu/x86/pc/emu/build/ +/cpu/x86/pc/emu/build/build +/cpu/x86/pc/emu/build/builton.fth +/cpu/x86/pc/emu/build/emuofw.rom + +# /cpu/x86/pc/lxdevel/build/ +/cpu/x86/pc/lxdevel/build/*.rom +/cpu/x86/pc/lxdevel/build/build +/cpu/x86/pc/lxdevel/build/builton.fth +/cpu/x86/pc/lxdevel/build/*.bin +/cpu/x86/pc/lxdevel/build/libertas.version +/cpu/x86/pc/lxdevel/build/*.version + +# /cpu/x86/pc/neptune/build/ +/cpu/x86/pc/neptune/build/build +/cpu/x86/pc/neptune/build/ofw.elf +/cpu/x86/pc/neptune/build/builton.fth +/cpu/x86/pc/neptune/build/*.rom +/cpu/x86/pc/neptune/build/*.bin +/cpu/x86/pc/neptune/build/*.version +/cpu/x86/pc/neptune/build/forth +/cpu/x86/pc/neptune/build/sourceurl +/cpu/x86/pc/neptune/build/*.tag +/cpu/x86/pc/neptune/build/tags +/cpu/x86/pc/neptune/build/*.elf + +# /cpu/x86/pc/olpc/ +/cpu/x86/pc/olpc/*.public + +# /cpu/x86/pc/olpc/build/ +/cpu/x86/pc/olpc/build/build +/cpu/x86/pc/olpc/build/ofw.elf +/cpu/x86/pc/olpc/build/builton.fth +/cpu/x86/pc/olpc/build/*.rom +/cpu/x86/pc/olpc/build/*.bin +/cpu/x86/pc/olpc/build/*.version +/cpu/x86/pc/olpc/build/forth +/cpu/x86/pc/olpc/build/sourceurl +/cpu/x86/pc/olpc/build/*.md5 +/cpu/x86/pc/olpc/build/*.public +/cpu/x86/pc/olpc/build/*.stamp +/cpu/x86/pc/olpc/build/*.aml +/cpu/x86/pc/olpc/build/*.dsl +/cpu/x86/pc/olpc/build/multicast-nand +/cpu/x86/pc/olpc/build/users +/cpu/x86/pc/olpc/build/tags +/cpu/x86/pc/olpc/build/fw.tag +/cpu/x86/pc/olpc/build/memtest + +# /cpu/x86/pc/olpc/sdtools/ +/cpu/x86/pc/olpc/sdtools/*.tgz +/cpu/x86/pc/olpc/sdtools/sdkit + +# /cpu/x86/pc/olpc/via/ +/cpu/x86/pc/olpc/via/testicons + +# /cpu/x86/pc/olpc/via/build/ +/cpu/x86/pc/olpc/via/build/*.txt +/cpu/x86/pc/olpc/via/build/*.public +/cpu/x86/pc/olpc/via/build/*.rom +/cpu/x86/pc/olpc/via/build/*.version +/cpu/x86/pc/olpc/via/build/tags +/cpu/x86/pc/olpc/via/build/sourceurl +/cpu/x86/pc/olpc/via/build/*.tag +/cpu/x86/pc/olpc/via/build/build +/cpu/x86/pc/olpc/via/build/builton.fth +/cpu/x86/pc/olpc/via/build/VIA.ROM +/cpu/x86/pc/olpc/via/build/*.bin +/cpu/x86/pc/olpc/via/build/memtest +/cpu/x86/pc/olpc/via/build/*.aml +/cpu/x86/pc/olpc/via/build/*.stamp +/cpu/x86/pc/olpc/via/build/forth +/cpu/x86/pc/olpc/via/build/testicons + +# /dev/geode/nandflash/build/ +/dev/geode/nandflash/build/nandflash.fc

1 0

[commit] r2626 - cpu/arm/olpc/1.75
by repository service 18 Oct '11

18 Oct '11

Author: quozl Date: Tue Oct 18 07:10:03 2011 New Revision: 2626 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2626 Log: OLPC XO-1.75 - add accelerometer temperature sensor, ADC access, and register dump words behind an [if] Modified: cpu/arm/olpc/1.75/accelerometer.fth Modified: cpu/arm/olpc/1.75/accelerometer.fth ============================================================================== --- cpu/arm/olpc/1.75/accelerometer.fth Tue Oct 18 06:57:25 2011 (r2625) +++ cpu/arm/olpc/1.75/accelerometer.fth Tue Oct 18 07:10:03 2011 (r2626) @@ -4,7 +4,7 @@ \ my-address my-space encode-phys " reg" property -\ This is for the stand-alone accelerometer chip LIS33DETR +\ This is for the stand-alone accelerometers LIS3DHTR and LIS33DETR \ We could call this just once in open if we had a TWSI parent node : acc-reg@ ( reg# -- b ) 1 1 " smbus-out-in" $call-parent ; @@ -14,6 +14,249 @@ : accelerometer-on ( -- ) h# 47 ctl1! ; : accelerometer-off ( -- ) h# 07 ctl1! ; +0 [if] + +: temperature-on ( -- ) h# c0 h# 1f acc-reg! ; +: adc1@ ( -- ) h# 08 acc-reg@ h# 09 acc-reg@ bwjoin wext 5 >>a ; +: adc2@ ( -- ) h# 0a acc-reg@ h# 0b acc-reg@ bwjoin wext 5 >>a ; +: adc3@ ( -- ) h# 0c acc-reg@ h# 0d acc-reg@ bwjoin wext 5 >>a ; + +: .xr ( n -- ) push-hex 2 .r pop-base space ; +: .dr ( n -- ) push-decimal 3 .r pop-base space ; +: .br ( n -- ) + push-binary 0 <# # # # # [char] . hold # # # # #> type pop-base space ; + +: .reg ( register -- value ) + space + dup .xr ." : " ( register ) + acc-reg@ ( value ) + dup .br + dup .xr + dup .dr +; + +: .ureg ( register -- ) + ." " .reg drop +; + +: .regs ( -- ) + h# 07 h# 00 do i .ureg cr loop + + ." STATUS_AUX " h# 07 .reg + dup h# 80 and if ." 321OR " then + dup h# 40 and if ." 3OR " then + dup h# 20 and if ." 2OR " then + dup h# 10 and if ." 1OR " then + dup h# 08 and if ." 321DA " then + dup h# 04 and if ." 3DA " then + dup h# 02 and if ." 2DA " then + dup h# 01 and if ." 1DA " then + drop cr + + ." OUT_1_L " h# 08 .reg cr + ." OUT_1_H " h# 09 .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_2_L " h# 0A .reg cr + ." OUT_2_H " h# 0B .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_3_L " h# 0C .reg cr + ." OUT_3_H " h# 0D .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." INT_COUNTER " h# 0E .reg drop cr + ." WHO_AM_I " h# 0F .reg b# 0011.0011 = if ." ok" else ." bad" then cr + + h# 1f h# 10 do i .ureg cr loop + + ." TEMP_CFG_REG " h# 1F .reg + dup h# 80 and if ." ADC_PD " then + dup h# 40 and if ." TEMP_EN " then + dup h# 3f and if ." mbz " then + drop cr + + ." CTRL_REG1 " h# 20 .reg + dup h# f0 and 4 rshift + dup h# 00 = if ." [power-down] " then + dup h# 01 = if ." [1 Hz] " then + dup h# 02 = if ." [10 Hz] " then + dup h# 03 = if ." [25 Hz] " then + dup h# 04 = if ." [50 Hz] " then + dup h# 05 = if ." [100 Hz] " then + dup h# 06 = if ." [200 Hz] " then + dup h# 07 = if ." [400 Hz] " then + dup h# 08 = if ." [1.6 kHz] " then + dup h# 09 = if ." [1.25 kHz / 5 kHz] " then + drop + dup h# 08 and if ." LPen " then + dup h# 04 and if ." Zen " then + dup h# 02 and if ." Yen " then + dup h# 01 and if ." Xen " then + drop cr + + ." CTRL_REG2 " h# 21 .reg + dup h# 80 and if ." HPM1 " then + dup h# 40 and if ." HPM0 " then + dup h# 20 and if ." HPCF2 " then + dup h# 10 and if ." HPCF1 " then + dup h# 08 and if ." FDS " then + dup h# 04 and if ." HPCLICK " then + dup h# 02 and if ." HPIS2 " then + dup h# 01 and if ." HPIS1 " then + drop cr + + ." CTRL_REG3 " h# 22 .reg + dup h# 80 and if ." I1_CLICK " then + dup h# 40 and if ." I1_AOI1 " then + dup h# 20 and if ." I1_AOI2 " then + dup h# 10 and if ." I1_DRDY1 " then + dup h# 08 and if ." I1_DRDY2 " then + dup h# 04 and if ." I1_WTM " then + dup h# 02 and if ." I1_OVERRUN " then + dup h# 01 and if ." rsvd " then + drop cr + + ." CTRL_REG4 " h# 23 .reg + dup h# 80 and if ." BDU " then + dup h# 40 and if ." BLE " then + dup h# 20 and if ." FS1 " then + dup h# 10 and if ." FS2 " then + dup h# 08 and if ." HR " then + dup h# 04 and if ." ST1 " then + dup h# 02 and if ." ST0 " then + dup h# 01 and if ." SIM " then + drop cr + + ." CTRL_REG5 " h# 24 .reg + dup h# 80 and if ." BOOT " then + dup h# 40 and if ." FIFO_EN " then + dup h# 20 and if ." rsvd " then + dup h# 10 and if ." rsvd " then + dup h# 08 and if ." LIR_INT1 " then + dup h# 04 and if ." D4D_INT1 " then + dup h# 02 and if ." mbz " then + dup h# 01 and if ." mbz " then + drop cr + + ." CTRL_REG6 " h# 25 .reg + dup h# 80 and if ." I2_CLICKen " then + dup h# 40 and if ." I2_INT1 " then + dup h# 20 and if ." mbz " then + dup h# 10 and if ." BOOT_I1 " then + dup h# 08 and if ." mbz " then + dup h# 04 and if ." rsvd " then + dup h# 02 and if ." H_LACTIVE " then + dup h# 01 and if ." rsvd " then + drop cr + + ." REFERENCE " h# 26 .reg drop cr + + ." STATUS_REG " h# 27 .reg + dup h# 80 and if ." ZYXOR " then + dup h# 40 and if ." ZOR " then + dup h# 20 and if ." YOR " then + dup h# 10 and if ." XOR " then + dup h# 08 and if ." ZYXDA " then + dup h# 04 and if ." ZDA " then + dup h# 02 and if ." YDA " then + dup h# 01 and if ." ZDA " then + drop cr + + ." OUT_X_L " h# 28 .reg cr + ." OUT_X_H " h# 29 .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_Y_L " h# 2a .reg cr + ." OUT_Y_H " h# 2b .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." OUT_Z_L " h# 2c .reg cr + ." OUT_Z_H " h# 2d .reg + bwjoin wext 5 >>a ." ( " .d ." )" cr + + ." FIFO_CTRL_REG" h# 2e .reg + dup h# 80 and if ." FM1 " then + dup h# 40 and if ." FM0 " then + dup h# 20 and if ." TR " then + dup h# 10 and if ." FTH4 " then + dup h# 08 and if ." FTH3 " then + dup h# 04 and if ." FTH2 " then + dup h# 02 and if ." FTH1 " then + dup h# 01 and if ." FTH0 " then + drop cr + + ." FIFO_SRC_REG " h# 2f .reg + dup h# 80 and if ." WTM " then + dup h# 40 and if ." OVRN_FIFO " then + dup h# 20 and if ." EMPTY " then + dup h# 10 and if ." FSS4 " then + dup h# 08 and if ." FSS3 " then + dup h# 04 and if ." FSS2 " then + dup h# 02 and if ." FSS1 " then + dup h# 01 and if ." FSS0 " then + drop cr + + ." INT1_CFG " h# 30 .reg + dup h# 80 and if ." AOI " then + dup h# 40 and if ." 6D " then + dup h# 20 and if ." ZHIE/ZUPE " then + dup h# 10 and if ." ZLIE/ZDOWNE " then + dup h# 08 and if ." YHIE/YUPE " then + dup h# 04 and if ." YLIE/YDOWNE " then + dup h# 02 and if ." XHIE/XUPE " then + dup h# 01 and if ." XLIE/XDOWNE " then + drop cr + + ." INT1_SRC " h# 31 .reg + dup h# 80 and if ." mbz " then + dup h# 40 and if ." IA " then + dup h# 20 and if ." ZH " then + dup h# 10 and if ." ZL " then + dup h# 08 and if ." YH " then + dup h# 04 and if ." YL " then + dup h# 02 and if ." XH " then + dup h# 01 and if ." XL " then + drop cr + + ." INT1_THS " h# 32 .reg drop cr + ." INT1_DURATION" h# 33 .reg drop cr + + h# 38 h# 34 do i .ureg cr loop + + ." CLICK_CFG " h# 38 .reg + dup h# 80 and if ." rsvd " then + dup h# 40 and if ." rsvd " then + dup h# 20 and if ." ZD " then + dup h# 10 and if ." ZS " then + dup h# 08 and if ." YD " then + dup h# 04 and if ." YS " then + dup h# 02 and if ." XD " then + dup h# 01 and if ." XS " then + drop cr + + ." CLICK_SRC " h# 39 .reg + dup h# 80 and if ." rsvd " then + dup h# 40 and if ." IA " then + dup h# 20 and if ." DCLICK " then + dup h# 10 and if ." SCLICK " then + dup h# 08 and if ." Sign " then + dup h# 04 and if ." Z " then + dup h# 02 and if ." Y " then + dup h# 01 and if ." X " then + drop cr + + ." CLICK_THS " h# 3a .reg drop cr + ." TIME_LIMIT " h# 3b .reg drop cr + ." TIME_LATENCY " h# 3c .reg drop cr + ." TIME_WINDOW " h# 3d .reg drop cr + h# 3e .ureg cr + h# 3f .ureg cr + + \ register decode window is 00-7f, then 80-ff is a mirror +; +[then] + : bext ( b -- n ) dup h# 80 and if h# ffffff00 or then ; : wext ( b -- n ) dup h# 8000 and if h# ffff0000 or then ; : acceleration@ ( -- x y z )

1 0

[commit] r2625 - ofw/fs/ext2fs
by repository service 18 Oct '11

18 Oct '11

Author: quozl Date: Tue Oct 18 06:57:25 2011 New Revision: 2625 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2625 Log: OLPC ext2, enhance tests, include a precalculated md5sum file Modified: ofw/fs/ext2fs/ext2test.sh Modified: ofw/fs/ext2fs/ext2test.sh ============================================================================== --- ofw/fs/ext2fs/ext2test.sh Tue Oct 18 06:54:24 2011 (r2624) +++ ofw/fs/ext2fs/ext2test.sh Tue Oct 18 06:57:25 2011 (r2625) @@ -142,6 +142,7 @@ touch touched echo hello > hello echo hello world > hello-world +md5sum hello-world > hello-world.md5 date > date ln -s hello hello-link mkdir directory

1 0

[commit] r2624 - ofw/fs/ext2fs
by repository service 18 Oct '11

18 Oct '11

Author: quozl Date: Tue Oct 18 06:54:24 2011 New Revision: 2624 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2624 Log: OLPC ext2, enhance tests, with md5sum comparison and file content comparison Modified: ofw/fs/ext2fs/ext2test.fth Modified: ofw/fs/ext2fs/ext2test.fth ============================================================================== --- ofw/fs/ext2fs/ext2test.fth Sun Oct 16 03:21:46 2011 (r2623) +++ ofw/fs/ext2fs/ext2test.fth Tue Oct 18 06:54:24 2011 (r2624) @@ -4,25 +4,92 @@ \ Exercises several OFW features on an ext2 filesystem on a USB stick \ see associated test.sh +[ifndef] $md5sum-file +: $md5sum-file ( prefix$ filename$ -- ) + \ Read file into memory and compute its MD5 hash + 2dup $read-file abort" Read error" ( prefix$ filename$ adr len ) + 2dup $md5digest1 ( prefix$ filename$ adr len md5$ ) + 2swap free-mem ( prefix$ filename$ md5$ ) + + \ Write the hash and the filename in the same format as + \ the output of the Linux "md5sum" command. prefix$ should + \ be " *" to match the output of "md5sum -b" and " " + \ to match the output of "md5sum" without -b. + + \ Output MD5 in lower case ASCII hex + push-hex ( prefix$ filename$ md5$ ) + bounds ?do ( prefix$ filename$ ) + i c@ <# u# u# u#> type + loop ( prefix$ filename$ ) + pop-base ( prefix$ filename$ ) + + \ ... followed by " filename" or " *filename" + ." " ( prefix$ filename$ ) + 2swap type ( filename$ ) + type ( ) + cr +; + +: md5sum ( "file" -- ) + " " safe-parse-word $md5sum-file +; +[then] + +0 value a-adr +0 value a-len +0 value b-adr +0 value b-len + +: (read-files) ( "a" "b" -- ) + safe-parse-word $read-file abort" Read error" + to b-len to b-adr + safe-parse-word $read-file abort" Read error" + to a-len to a-adr +; + +: (compare-files) ( -- equal-flag ) + a-len b-len = if + a-adr b-adr b-len comp 0= + else + false + then +; + +: (free-files) + a-adr a-len free-mem + b-adr b-len free-mem +; + +: compare-files + (read-files) (compare-files) (free-files) + if ." files equal" cr else ." files differ" cr then +; + +: compare-md5-files + (read-files) + d# 32 to a-len + d# 32 to b-len + (compare-files) + (free-files) + if ." checksums equal" cr else ." checksums differ" cr then +; + visible no-page -start-logging .( test.fth ticket #6210 ofw ext2 filesystem tests ) cr -show-aborts on - .( test 0001 define u: ) cr volume: u: .( test 0002 reference u: ) cr u: -\ .( test 0003 directory ) cr -\ dir +.( test 0003 directory ) cr +dir -\ .( test 0004 directory by name ) cr -\ dir *.fth +.( test 0004 directory by name ) cr +dir boot\*.fth .( test 0005 chdir down ) cr chdir directory @@ -56,6 +123,7 @@ .( test 0015 copy a file ) cr copy u:\hello-world u:\copy +.( ) compare-files u:\hello-world u:\copy .( test 0016 display the copy ) cr more u:\copy @@ -69,41 +137,61 @@ .( test 0019 delete a non-existent file ) cr del u:\vapour -: load-file ( "devspec" -- adr len ) - safe-parse-word - open-dev dup 0= abort" Can't open it" ( ih ) - >r ( r: ih ) - load-base " load" r@ $call-method ( len r: ih ) - r> close-dev ( len ) - load-base swap -; - -: calculate-md5 ( adr len -- adr len ) - $md5digest1 ; - -: print-md5 ( adr len -- ) - bounds ?do i c@ (.2) type loop space ; - -: md5sum ( "devspec" -- ) load-file calculate-md5 print-md5 ; - .( test 0020 calculate md5sum of a test file ) cr -md5sum u:\hello-world cr +.( ) md5sum u:\hello-world .( test 0021 calculate md5sum of a test file and save to a file ) cr -del u:\hello-world.md5 -load-file u:\hello-world calculate-md5 to-file u:\hello-world.md5 print-md5 +del u:\tmp.md5 +to-file u:\tmp.md5 md5sum u:\hello-world +.( ) compare-md5-files u:\tmp.md5 u:\hello-world.md5 +del u:\tmp.md5 .( test 0022 dump forth dictionary to file ) cr +to-file u:\words.txt words +to-file u:\words.tmp words +.( ) compare-files u:\words.txt u:\words.tmp del u:\words.txt -to-file u:\words.txt words +del u:\words.tmp + +.( test 0023 glob file copy ) cr -\ reference: forth/lib/tofile.fth -\ to-file u:\words words -\ append-to-file u:\words words - -.( done ) cr -save-log u:\ofw.log -stop-logging +.( create input files ... ) +.( a ) to-file u:\a.tst cr +.( b ) to-file u:\b.tst cr +.( c ) to-file u:\c.tst cr +.( d ) to-file u:\d.tst cr +.( e ) to-file u:\e.tst cr +.( f ) to-file u:\f.tst cr +cr + +.( create directory ... ) +mkdir u:\j +.( ok ) cr + +.( copy ... ) +copy u:\*.tst u:\j +.( ok ) cr + +.( delete copies ... ) +.( a ) del u:\j\a.tst +.( b ) del u:\j\b.tst +.( c ) del u:\j\c.tst +.( d ) del u:\j\d.tst +.( e ) del u:\j\e.tst +.( f ) del u:\j\f.tst +.( ok ) cr + +.( delete directory ... ) +rmdir u:\j +.( ok ) cr + +.( delete input files ) +.( a ) del u:\a.tst +.( b ) del u:\b.tst +.( c ) del u:\c.tst +.( d ) del u:\d.tst +.( e ) del u:\e.tst +.( f ) del u:\f.tst +.( ok ) cr -\ .( boot ) cr -\ boot n:\boot\olpc.fth +.( test complete ) cr

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware