openfirmware June 2011

openfirmware@openfirmware.info

3 participants
87 discussions

[commit] r2243 - in cpu/arm: . mmp2 olpc olpc/1.75
by repository service 04 Jun '11

04 Jun '11

Author: wmb Date: Sat Jun 4 00:56:50 2011 New Revision: 2243 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2243 Log: OLPC XO-1.75 - Moved the page table into the firmware RAM area, so the only precious thing in low memory is the vector table. This makes it easier to test memory. Modified: cpu/arm/basefw.bth cpu/arm/mmp2/rawboot.fth cpu/arm/olpc/1.75/addrs.fth cpu/arm/olpc/resetvec.bth Modified: cpu/arm/basefw.bth ============================================================================== --- cpu/arm/basefw.bth Fri Jun 3 04:55:41 2011 (r2242) +++ cpu/arm/basefw.bth Sat Jun 4 00:56:50 2011 (r2243) @@ -86,12 +86,6 @@ \ XXX remove the OS file commands from tools.dic fload ${BP}/ofw/core/filecmds.fth \ File commands: dir, del, ren, etc. -\ Defined by CPU core -h# 1000 to pagesize -d# 12 to pageshift -h# 10.0000 constant /section -h# 4000 constant /page-table - [ifndef] no-heads resident dispose 0 0 set-transize \ true is suppress-transient Modified: cpu/arm/mmp2/rawboot.fth ============================================================================== --- cpu/arm/mmp2/rawboot.fth Fri Jun 3 04:55:41 2011 (r2242) +++ cpu/arm/mmp2/rawboot.fth Sat Jun 4 00:56:50 2011 (r2243) @@ -2,13 +2,13 @@ \ 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 ) +label 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 + add r8,r6,`stack-offset` \ r8: memtop - 2MiB above load address \ r9 is up mov r10,#0 \ r10: argc mov r11,r2 \ r11: argv (kernel args) Modified: cpu/arm/olpc/1.75/addrs.fth ============================================================================== --- cpu/arm/olpc/1.75/addrs.fth Fri Jun 3 04:55:41 2011 (r2242) +++ cpu/arm/olpc/1.75/addrs.fth Sat Jun 4 00:56:50 2011 (r2243) @@ -1,4 +1,7 @@ \ Platform design choices + +fload ${BP}/cpu/arm/mmuparams.fth + h# 2000.0000 constant total-ram-size h# 1fc0.0000 constant fb-pa @@ -38,6 +41,10 @@ [then] h# 0020.0000 constant /fw-ram +/fw-ram /page-table - constant page-table-offset +page-table-offset constant stack-offset \ Stack is below this + +fw-pa page-table-offset + constant page-table-pa \ h# 0110.0000 constant def-load-base h# 0800.0000 constant def-load-base @@ -47,8 +54,6 @@ h# 10.0000 constant heap-size heap-size constant initial-heap-size -h# 40.0000 constant page-table-pa - \ RAM address where the Security Processor code places the subset of the dropin module \ image that it copies out of SPI FLASH. h# 900.0000 constant 'dropins \ Must agree with 'compressed in cforth/src/app/arm-xo-1.75/ Modified: cpu/arm/olpc/resetvec.bth ============================================================================== --- cpu/arm/olpc/resetvec.bth Fri Jun 3 04:55:41 2011 (r2242) +++ cpu/arm/olpc/resetvec.bth Sat Jun 4 00:56:50 2011 (r2243) @@ -30,8 +30,8 @@ ; previous definitions -/fw-ram h# 2.0000 - constant workspace-offset \ Offset of inflater workspace within destination RAM -/fw-ram constant stack-offset \ Offset of top of inflater stack within destination RAM +\ /fw-ram constant stack-offset \ Offset of top of inflater stack within destination RAM +stack-offset h# 2.0000 - constant workspace-offset \ Offset of inflater workspace within destination RAM start-assembling @@ -146,7 +146,8 @@ [then] \ Setup the page (section) table and turn on the MMU and caches - set r0,`page-table-pa #` +\ set r0,`page-table-pa #` + set r0,`fw-virt-base page-table-offset + #` bl `init-map` \ Setup the initial virtual address map bl `enable-mmu` \ Turn on the MMU bl `caches-on` \ Turn on the caches

1 0

[commit] r2242 - cpu/arm/olpc/1.75
by repository service 03 Jun '11

03 Jun '11

Author: wmb Date: Fri Jun 3 04:55:41 2011 New Revision: 2242 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2242 Log: OLPC XO-1.75 - Added factory test support routines in support of manufacturing test script work for trac 10892. Modified: cpu/arm/olpc/1.75/config.fth cpu/arm/olpc/1.75/devices.fth cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/config.fth ============================================================================== --- cpu/arm/olpc/1.75/config.fth Fri Jun 3 03:51:11 2011 (r2241) +++ cpu/arm/olpc/1.75/config.fth Fri Jun 3 04:55:41 2011 (r2242) @@ -1,5 +1,4 @@ \ create cl2-a1 -create cl2-a2 create debug-startup create olpc create trust-ec-keyboard Modified: cpu/arm/olpc/1.75/devices.fth ============================================================================== --- cpu/arm/olpc/1.75/devices.fth Fri Jun 3 03:51:11 2011 (r2241) +++ cpu/arm/olpc/1.75/devices.fth Fri Jun 3 04:55:41 2011 (r2242) @@ -354,15 +354,12 @@ \ The "1-" removes the null byte " SN" find-tag if 1- else " Unknown" then " serial-number" string-property -[ifdef] notyet + ec-api-ver@ " ec-version" integer-property -[then] -[ifndef] cl2-a2 \ XXX remove this ifndef when the new EC code is ready ['] ec-name$ catch 0= if " ec-name" string-property then ['] ec-date$ catch 0= if " ec-date" string-property then ['] ec-user$ catch 0= if " ec-user" string-property then -[then] dend " /openprom" find-device Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Fri Jun 3 03:51:11 2011 (r2241) +++ cpu/arm/olpc/1.75/fw.bth Fri Jun 3 04:55:41 2011 (r2242) @@ -54,8 +54,6 @@ ; ' mmp-fb-tag, to fb-tag, -\ fload ${BP}/cpu/arm/mmp2/usb.fth - \ false to stand-init-debug? true to stand-init-debug? @@ -109,6 +107,7 @@ \ so exiting from emacs doesn't invoke the diag menu. ' quit to user-interface fload ${BP}/cpu/arm/olpc/1.75/mfgtest.fth + [ifdef] notyet fload ${BP}/cpu/x86/pc/olpc/via/bootmenu.fth [then] @@ -146,9 +145,11 @@ fload ${BP}/cpu/x86/pc/olpc/plot.fth fload ${BP}/cpu/arm/olpc/1.75/testinstructions.fth +code halt ( -- ) wfi c; + fload ${BP}/cpu/arm/olpc/1.75/switches.fth \ Lid and ebook switches fload ${BP}/cpu/arm/olpc/1.75/leds.fth \ LEDs -\ fload ${BP}/cpu/x86/pc/olpc/via/factory.fth \ Manufacturing tools +fload ${BP}/cpu/x86/pc/olpc/via/factory.fth \ Manufacturing tools \ Pseudo device that appears in the boot order before net booting 0 0 " " " /" begin-package @@ -203,8 +204,6 @@ fload ${BP}/cpu/x86/pc/olpc/gamekeys.fth fload ${BP}/dev/logdev.fth -0 value smt-test? \ !!! -0 value final-test? \ !!! fload ${BP}/cpu/x86/pc/olpc/disptest.fth fload ${BP}/dev/olpc/keyboard/selftest.fth \ Keyboard diagnostic fload ${BP}/dev/olpc/touchpad/syntpad.fth \ Touchpad diagnostic @@ -234,7 +233,6 @@ h# 38 mod 8 + " rtc!" clock-node @ ( data index adr len ih ) ['] $call-method catch if 2drop 3drop then ; -code halt ( -- ) wfi c; : dimmer ( -- ) screen-ih if " dimmer" screen-ih $call-method then ; : brighter ( -- ) screen-ih if " brighter" screen-ih $call-method then ; @@ -275,9 +273,7 @@ create pong-use-touchscreen fload ${BP}/ofw/gui/ofpong.fth -[ifdef] notyet 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 @@ -302,13 +298,10 @@ fload ${BP}/cpu/arm/saverom.fth \ Save the dictionary for standalone startup -[ifdef] notyet -: c1-idle ( -- ) interrupts-enabled? if halt then ; -' c1-idle to stdin-idle -[then] - fload ${BP}/ofw/core/countdwn.fth \ Startup countdown +\ fload ${BP}/dev/hdaudio/noiseburst.fth \ audio-test support package + : console-start ( -- ) install-mux-io cursor-off @@ -348,7 +341,6 @@ then ( in-factory? ) ; -[ifdef] notyet : ?games ( -- ) rocker-right game-key? if protect-fw @@ -368,12 +360,6 @@ then ; -: ?scan-nand ( -- ) - rocker-up game-key? if - protect-fw text-on ['] scan-nand guarded - then -; -[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 @@ -401,9 +387,8 @@ show-child install-alarm ['] sound catch drop -[ifdef] notyet + ?games -[then] ['] false to interrupt-auto-boot? [ifdef] probe-usb @@ -415,13 +400,10 @@ " probe+" do-drop-in interpreter-init -[ifdef] notyet + ?diags -[ifdef] Later - ?scan-nand -[then] ?fs-update -[then] + factory-test? 0= if secure-startup then unblock-exceptions ['] (interrupt-auto-boot?) to interrupt-auto-boot? @@ -446,8 +428,6 @@ : newrom " flash! http:\\10.20.0.14\new.rom" eval -\ " wifi media lab 802.11" eval -\ " flash http:\\18.85.46.172\new.rom" eval ; : newec " flash-ec http:\\10.20.0.14\ecimage.bin" eval

1 0

[commit] r2241 - cpu/arm/olpc/1.75
by repository service 03 Jun '11

03 Jun '11

Author: wmb Date: Fri Jun 3 03:51:11 2011 New Revision: 2241 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2241 Log: OLPC XO-1.75 - Access to manufacturing data was failing due to an initialization order problem. Modified: cpu/arm/olpc/1.75/devices.fth cpu/arm/olpc/1.75/getmfgdata.fth Modified: cpu/arm/olpc/1.75/devices.fth ============================================================================== --- cpu/arm/olpc/1.75/devices.fth Fri Jun 3 03:49:09 2011 (r2240) +++ cpu/arm/olpc/1.75/devices.fth Fri Jun 3 03:51:11 2011 (r2241) @@ -94,9 +94,12 @@ init-timers init-twsi ; -stand-init: +warning @ warning off +: stand-init-io + stand-init-io init-stuff ; +warning ! fload ${BP}/cpu/arm/mmp2/irq.fth Modified: cpu/arm/olpc/1.75/getmfgdata.fth ============================================================================== --- cpu/arm/olpc/1.75/getmfgdata.fth Fri Jun 3 03:49:09 2011 (r2240) +++ cpu/arm/olpc/1.75/getmfgdata.fth Fri Jun 3 03:51:11 2011 (r2241) @@ -1,17 +1,18 @@ purpose: Get the manufacturing data into memory where it can be manipulated -/flash-block buffer: mfg-data-buf +\ It is tempting to use buffer: for this, but that fails because +\ we need to access manufacturing data very early (for security), +\ in stand-init-io before the call to clear-buffer:s in init. +0 value mfg-data-buf : get-mfg-data ( -- ) + mfg-data-buf if exit then + /flash-block alloc-mem to mfg-data-buf flash-open mfg-data-buf /flash-block mfg-data-offset flash-read ; -0 value mfg-data-read? : mfg-data-top ( -- adr ) - mfg-data-read? 0= if - get-mfg-data - true to mfg-data-read? - then + get-mfg-data mfg-data-buf /flash-block + ;

1 0

[commit] r2240 - cpu/arm/mmp2
by repository service 03 Jun '11

03 Jun '11

Author: wmb Date: Fri Jun 3 03:49:09 2011 New Revision: 2240 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2240 Log: OLPC XO-1.75 - add a mapping for extra-mem in mmuon.fth, for diagnostic use when booting using the old method of letting SP uncompress OFW. Modified: cpu/arm/mmp2/mmuon.fth Modified: cpu/arm/mmp2/mmuon.fth ============================================================================== --- cpu/arm/mmp2/mmuon.fth Thu Jun 2 04:23:12 2011 (r2239) +++ cpu/arm/mmp2/mmuon.fth Fri Jun 3 03:49:09 2011 (r2240) @@ -25,6 +25,7 @@ : ofw-sections ( -- ) 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 + extra-mem-base h# c0e over extra-mem-size 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# d100.0000 h# c0e over h# 0030.0000 map-sections \ Cache and write bufferable (SRAM)

1 0

[commit] r2239 - cpu/arm/olpc/1.75
by repository service 02 Jun '11

02 Jun '11

Author: wmb Date: Thu Jun 2 04:23:12 2011 New Revision: 2239 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2239 Log: OLPC XO-1.75 test menu - test /usb/hub instead of /usb. Modified: cpu/arm/olpc/1.75/mfgtest.fth Modified: cpu/arm/olpc/1.75/mfgtest.fth ============================================================================== --- cpu/arm/olpc/1.75/mfgtest.fth Thu Jun 2 04:17:39 2011 (r2238) +++ cpu/arm/olpc/1.75/mfgtest.fth Thu Jun 2 04:23:12 2011 (r2239) @@ -127,7 +127,7 @@ : battery-item ( -- ) " /battery" mfg-test-dev ; : spiflash-item ( -- ) " /flash" mfg-test-dev ; : memory-item ( -- ) " /memory" mfg-test-dev ; -: usb-item ( -- ) " /usb" mfg-test-dev ; +: usb-item ( -- ) " /usb/hub" mfg-test-dev ; : int-sd-item ( -- ) " int:0" mfg-test-dev ; : ext-sd-item ( -- ) " ext:0" mfg-test-dev ; : rtc-item ( -- ) " /rtc" mfg-test-dev ;

1 0

[commit] r2238 - in cpu/arm/olpc: . 1.75
by repository service 02 Jun '11

02 Jun '11

Author: wmb Date: Thu Jun 2 04:17:39 2011 New Revision: 2238 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2238 Log: OLPC trac #10885 - added more memory to the heap so the wlan test from the graphical menu has enough RAM to unpack the WLAN firmware image. Modified: cpu/arm/olpc/1.75/addrs.fth cpu/arm/olpc/1.75/devices.fth cpu/arm/olpc/initmmu.fth Modified: cpu/arm/olpc/1.75/addrs.fth ============================================================================== --- cpu/arm/olpc/1.75/addrs.fth Wed Jun 1 04:33:57 2011 (r2237) +++ cpu/arm/olpc/1.75/addrs.fth Thu Jun 2 04:17:39 2011 (r2238) @@ -24,7 +24,10 @@ h# 1fa0.0000 constant fw-pa h# 1f00.0000 constant dma-base -h# a0.0000 constant dma-size +h# 80.0000 constant dma-size + +h# 1f80.0000 constant extra-mem-base +h# 20.0000 constant extra-mem-size [ifdef] virtual-mode h# f700.0000 constant fw-virt-base Modified: cpu/arm/olpc/1.75/devices.fth ============================================================================== --- cpu/arm/olpc/1.75/devices.fth Wed Jun 1 04:33:57 2011 (r2237) +++ cpu/arm/olpc/1.75/devices.fth Thu Jun 2 04:17:39 2011 (r2238) @@ -369,8 +369,13 @@ " sourceurl" find-drop-in if " source-url" string-property then dend ; + warning ! +stand-init: More memory + extra-mem-base extra-mem-size add-memory +; + \ LICENSE_BEGIN \ Copyright (c) 2010 FirmWorks \ Modified: cpu/arm/olpc/initmmu.fth ============================================================================== --- cpu/arm/olpc/initmmu.fth Wed Jun 1 04:33:57 2011 (r2237) +++ cpu/arm/olpc/initmmu.fth Thu Jun 2 04:17:39 2011 (r2238) @@ -215,6 +215,11 @@ set r3,#0xc02 \ No caching or write buffering bl `map-sections-v=p` + set r1,`extra-mem-base #` \ Address of additional allocatable memory + set r2,`extra-mem-size #` \ Size of additional allocatable memory + set r3,#0xc0e \ Write bufferable + bl `map-sections-v=p` + set r1,`fw-pa #` \ Address of Firmware region set r2,`/fw-ram #` \ Size of firmware region set r3,#0xc0e \ Write bufferable

1 0

[commit] r2237 - cpu/arm/olpc/1.75
by repository service 01 Jun '11

01 Jun '11

Author: wmb Date: Wed Jun 1 04:33:57 2011 New Revision: 2237 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2237 Log: OLPC trac #10886 - Simultaneous output and input is working for XO-1.75 - a prerequisite for the correlation-based selftest. Modified: cpu/arm/olpc/1.75/sound.fth Modified: cpu/arm/olpc/1.75/sound.fth ============================================================================== --- cpu/arm/olpc/1.75/sound.fth Tue May 31 21:39:42 2011 (r2236) +++ cpu/arm/olpc/1.75/sound.fth Wed Jun 1 04:33:57 2011 (r2237) @@ -34,7 +34,7 @@ h# d405.0024 l@ h# 20 or h# d405.0024 l! \ Enable 12S clock out to SSPA1 - h# 10800 38 sspa! + h# 10800 h# 38 sspa! [ifdef] 24mhz \ Bits 14:9 set the divisor from SYSCLK to BITCLK. The setting below @@ -46,7 +46,11 @@ [then] ; +: reset-rx ( -- ) h# 8000.0002 h# 0c sspa! ; + : setup-sspa-rx ( -- ) + reset-rx + h# 8000.0000 \ Dual phase (stereo) 0 d# 24 lshift or \ 1 word in phase 2 2 d# 21 lshift or \ 16 bit word in phase 2 @@ -60,7 +64,8 @@ h# 8000.0000 \ Enable writes d# 15 d# 20 lshift or \ Frame sync width - 1 d# 18 lshift or \ Internal clock - master configuration +\ We choose the master/slave configuration later, in enable-sspa-tx + 0 d# 18 lshift or \ Internal clock - master configuration 0 d# 17 lshift or \ Sample on rising edge of clock 0 d# 16 lshift or \ Active high frame sync d# 31 d# 4 lshift or \ Frame sync period @@ -69,11 +74,15 @@ h# 10 h# 10 sspa! \ Rx FIFO limit ; -: enable-sspa-rx ( -- ) h# 0c sspa@ h# 8004.0001 or h# 0c sspa! ; -: disable-sspa-rx ( -- ) h# 0c sspa@ h# 8000.0040 or h# 4.0001 invert and h# 0c sspa! ; +: master-rx ( -- ) h# 0c sspa@ h# 8004.0001 or h# 0c sspa! ; \ Master, on +: slave-rx ( -- ) h# 0c sspa@ h# 8000.0001 or h# 0c sspa! ; \ Slave, on +: disable-sspa-rx ( -- ) h# 0c sspa@ h# 8000.0004 or h# 4.0001 invert and h# 0c sspa! ; +: reset-tx ( -- ) h# 8000.0002 h# 8c sspa! ; : setup-sspa-tx ( -- ) + reset-tx + h# 8000.0000 \ Dual phase (stereo) 0 d# 24 lshift or \ 1 word in phase 2 2 d# 21 lshift or \ 16 bit word in phase 2 @@ -88,8 +97,8 @@ h# 8000.0000 \ Enable writes d# 15 d# 20 lshift or \ Frame sync width - 1 d# 18 lshift or \ Internal clock - master configuration -\ 0 d# 18 lshift or \ External clock - slave configuration (Rx is master) +\ We choose the master/slave configuration later, in master-tx + 0 d# 18 lshift or \ External clock - slave configuration (Rx is master) 0 d# 17 lshift or \ Sample on rising edge of clock 0 d# 16 lshift or \ Active high frame sync d# 31 d# 4 lshift or \ Frame sync period @@ -98,8 +107,9 @@ h# 10 h# 90 sspa! \ Tx FIFO limit ; -: enable-sspa-tx ( -- ) h# 8c sspa@ h# 8004.0001 or h# 8c sspa! ; -: disable-sspa-tx ( -- ) h# 8c sspa@ h# 8000.0040 or h# 4.0001 invert and h# 8c sspa! ; +: master-tx ( -- ) h# 8c sspa@ h# 8004.0001 or h# 8c sspa! ; \ Master, on +: slave-tx ( -- ) h# 8c sspa@ h# 8000.0001 or h# 8c sspa! ; \ Slave, on +: disable-sspa-tx ( -- ) h# 8c sspa@ h# 8000.0004 or h# 4.0001 invert and h# 8c sspa! ; h# e000.0000 constant audio-sram h# fc0 constant /audio-buf @@ -232,7 +242,7 @@ : dma-alloc ( len -- adr ) " dma-alloc" $call-parent ; : dma-free ( adr len -- ) " dma-free" $call-parent ; -: open-in ( -- ) setup-sspa-rx ; +: open-in ( -- ) ; : close-in ( -- ) ; : open-out ( -- ) setup-sspa-tx ; : close-out ( -- ) ; @@ -266,14 +276,25 @@ false to playing? ; +: out-ready? ( -- flag ) + h# a0 adma@ 1 and 0<> + dup if 0 h# a0 adma! then +; +: out-dma-done? ( -- flag ) h# 40 adma@ h# 4000 and 0= ; + : ?end-playing ( -- ) - h# a0 adma@ 1 and 0= if exit then - 0 h# a0 adma! - out-len if copy-out then - h# 40 adma@ h# 4000 and 0= if - stop-out + out-ready? if + out-len if copy-out then + out-dma-done? if stop-out then then ; + +: set-out-in-mic ( -- ) + h# 80 h# 12 codec! \ Mute right channel + h# 00 h# 16 codec! \ Full digital gain + h# 6688 h# 22 codec! \ No mic boost, low bias +; + : playback-continue-alarm ( -- ) playing? if ?end-playing @@ -291,10 +312,10 @@ to out-adr ( ) make-out-ring copy-out + out-len if copy-out then \ Prefill the second buffer start-out-ring - enable-sspa-tx + master-tx dac-on - out-len if copy-out then \ Prefill the second buffer install-playback-alarm true to playing? ; @@ -323,18 +344,23 @@ : write ( adr len -- actual ) open-out audio-out ; +: in-ready? ( -- flag ) + h# a4 adma@ 1 and 0<> + dup if 0 h# a4 adma! then +; : wait-in ( -- ) buf-timeout 0 do - 1 ms h# a4 adma@ 1 and ?leave + 1 ms in-ready? ?leave loop - 0 h# a4 adma! ; + : audio-in ( adr len -- actual ) tuck to in-len to in-adr ( actual ) + setup-sspa-rx ( actual ) make-in-ring ( actual ) - enable-sspa-rx ( actual ) - adc-on ( actual ) start-in-ring ( actual ) + master-rx ( actual ) + adc-on ( actual ) begin in-len while ( actual ) wait-in ( actual ) copy-in ( actual ) @@ -343,6 +369,51 @@ ; : read ( adr len -- actual ) open-in audio-in ; +: out-in ( out-adr out-len in-adr in-len -- ) + to in-len to in-adr ( out-adr out-len ) + to out-len to out-adr ( ) + + setup-sspa-tx ( ) + setup-sspa-rx ( ) + + make-in-ring ( ) + make-out-ring ( ) + copy-out ( ) \ Prefill the first Tx buffer + out-len if copy-out then ( ) \ Prefill the second Tx buffer + + start-in-ring ( ) + start-out-ring ( ) + + master-rx ( ) \ Now the clock is on + slave-tx ( ) + + adc-on ( ) + dac-on ( ) + + true to playing? + + begin in-len playing? or while ( ) + in-ready? if copy-in then ( ) + playing? if ?end-playing then ( ) + repeat ( ) + disable-sspa-rx ( ) + disable-sspa-tx ( ) + + dac-off adc-off ( ) +; + +0 [if] \ Interactive test words for out-in +h# 20000 constant tlen +: xb load-base 1meg + ; +: ob load-base ; +: sb load-base 1meg 2* + ; +: px xb tlen write drop ; +: po ob tlen write drop ; +: ps sb tlen write drop ; +: shiftit xb 1+ sb tlen move ; +: oi ob tlen xb tlen out-in ; +[then] + : wait-sound ( -- ) lock[ begin playing? while d# 10 ms ?end-playing repeat

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware June 2011