May 2007 - OpenBIOS - mail.coreboot.org

r387 - ofw/core
by svn＠openbios.org May 16, 2007

May 16, 2007

Author: wmb Date: 2007-05-16 10:52:09 +0200 (Wed, 16 May 2007) New Revision: 387 Modified: ofw/core/banner.fth Log: Cater to the geek affectation du jour by changing MB and GB to MiB and GiB. Modified: ofw/core/banner.fth =================================================================== --- ofw/core/banner.fth 2007-05-16 08:50:49 UTC (rev 386) +++ ofw/core/banner.fth 2007-05-16 08:52:09 UTC (rev 387) @@ -70,9 +70,9 @@ ; : .memory ( -- ) memory-size dup d# 1024 / ?dup if ( mb gb ) - nip " GB" rot ( gb$ gb ) + nip " GiB" rot ( gb$ gb ) else ( mb ) - " MB " rot ( mb$ mb ) + " MiB " rot ( mb$ mb ) then ( m$ m ) .d type ." memory installed" ( ) ;

1 0

r386 - cpu/x86/pc/olpc
by svn＠openbios.org May 16, 2007

May 16, 2007

Author: wmb Date: 2007-05-16 10:50:49 +0200 (Wed, 16 May 2007) New Revision: 386 Modified: cpu/x86/pc/olpc/linux.fth cpu/x86/pc/olpc/loaddropins.fth cpu/x86/pc/olpc/usb.fth Log: OLPC - Fixed some problems with auto-booting from ethernet and wireless network interfaces. Modified: cpu/x86/pc/olpc/linux.fth =================================================================== --- cpu/x86/pc/olpc/linux.fth 2007-05-16 08:37:18 UTC (rev 385) +++ cpu/x86/pc/olpc/linux.fth 2007-05-16 08:50:49 UTC (rev 386) @@ -11,7 +11,7 @@ \needs ramdisk " " d# 128 config-string ramdisk " " ' boot-file set-config-string-default \ Let the olpcboot.fth file set the cmdline -" sd:\boot\olpc.fth disk:\boot\olpc.fth nand:zip,\olpc.fth nand:\boot\olpc.fth" ' boot-device set-config-string-default +" sd:\boot\olpc.fth disk:\boot\olpc.fth nand:\boot\olpc.fth /prober /usb/ethernet /usb/wlan" ' boot-device set-config-string-default 0 value ramdisk-adr 0 value /ramdisk Modified: cpu/x86/pc/olpc/loaddropins.fth =================================================================== --- cpu/x86/pc/olpc/loaddropins.fth 2007-05-16 08:37:18 UTC (rev 385) +++ cpu/x86/pc/olpc/loaddropins.fth 2007-05-16 08:50:49 UTC (rev 386) @@ -33,9 +33,9 @@ \ " ${BP}/ofw/linux/logom16c.bmp" " timeout.bmp" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/images/olpclogo.565" " olpc.565" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/images/laptop.565" " nandflash.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/network.565" " network.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/network.565" " ethernet.565" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/images/usbkey.565" " disk.565" $add-deflated-dropin - " ${BP}/cpu/x86/pc/olpc/images/wireless.565" " wireless.565" $add-deflated-dropin + " ${BP}/cpu/x86/pc/olpc/images/wireless.565" " wlan.565" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/images/xo.565" " xo.565" $add-deflated-dropin " ${BP}/ofw/termemu/gallant.obf" " font" $add-deflated-dropin Modified: cpu/x86/pc/olpc/usb.fth =================================================================== --- cpu/x86/pc/olpc/usb.fth 2007-05-16 08:37:18 UTC (rev 385) +++ cpu/x86/pc/olpc/usb.fth 2007-05-16 08:50:49 UTC (rev 386) @@ -3,8 +3,8 @@ devalias usb1 /usb@f,4 devalias usb2 /usb@f,5 -devalias u /usb/disk -devalias net /wlan +devalias u /usb/disk +devalias net /usb/wlan \ If there is a USB ethernet adapter, use it as the default net device. : report-net ( -- ) @@ -89,6 +89,19 @@ ; ' usb-quiet to go-hook +0 0 " " " /" begin-package + " prober" device-name + : open + " /usb@f,5" open-dev ?dup if close-dev then + " /usb@f,4" open-dev ?dup if close-dev then + report-disk + report-net + report-keyboard + false + ; + : close ; +end-package + stand-init: USB setup \ Set up an address routing to the USB Option Controller h# efc00000.efc00001. h# 5100.0029 wrmsr

1 0

r385 - cpu/x86/pc/olpc
by svn＠openbios.org May 16, 2007

May 16, 2007

Author: wmb Date: 2007-05-16 10:37:18 +0200 (Wed, 16 May 2007) New Revision: 385 Modified: cpu/x86/pc/olpc/gui.fth Log: OLPC graphical boot - suppressed "Can't open file" message for nonexistent icons. Modified: cpu/x86/pc/olpc/gui.fth =================================================================== --- cpu/x86/pc/olpc/gui.fth 2007-05-16 08:36:26 UTC (rev 384) +++ cpu/x86/pc/olpc/gui.fth 2007-05-16 08:37:18 UTC (rev 385) @@ -26,10 +26,10 @@ ; : $get-image ( filename$ -- true | adr,len false ) - ['] $read-open catch if 2drop true exit then ( ) - ifd @ fsize dup alloc-mem swap ( bmp-adr,len ) - 2dup ifd @ fgets over <> ( bmp-adr,len error? ) - ifd @ fclose ( bmp-adr,len ) + r/o open-file if drop true exit then >r ( r: fd ) + r@ fsize dup alloc-mem swap ( bmp-adr,len r: fd ) + 2dup r@ fgets over <> ( bmp-adr,len error? r: fd ) + r> fclose ( bmp-adr,len ) if free-mem true else false then ( true | bmp-adr,len false ) ; : $show ( filename$ -- )

1 0

r384 - cpu/x86/pc/olpc
by svn＠openbios.org May 16, 2007

May 16, 2007

Author: wmb Date: 2007-05-16 10:36:26 +0200 (Wed, 16 May 2007) New Revision: 384 Modified: cpu/x86/pc/olpc/fw.bth Log: OLPC - added "serial-number" string property to the device tree root node. Modified: cpu/x86/pc/olpc/fw.bth =================================================================== --- cpu/x86/pc/olpc/fw.bth 2007-05-16 08:34:28 UTC (rev 383) +++ cpu/x86/pc/olpc/fw.bth 2007-05-16 08:36:26 UTC (rev 384) @@ -237,6 +237,9 @@ encode-string " banner-name" property model board-revision " board-revision-int" integer-property + \ The "1-" removes the null byte + " SN" find-tag if 1- else " Unknown" then " serial-number" string-property + [ifndef] lx-devel 8 ec-cmd " ec-version" integer-property

1 0

r383 - in cpu/x86/pc: biosload lxdevel olpc
by svn＠openbios.org May 16, 2007

May 16, 2007

Author: wmb Date: 2007-05-16 10:34:28 +0200 (Wed, 16 May 2007) New Revision: 383 Modified: cpu/x86/pc/biosload/config.fth cpu/x86/pc/biosload/ofw.bth cpu/x86/pc/lxdevel/config.fth cpu/x86/pc/olpc/config.fth cpu/x86/pc/olpc/devices.fth Log: OLPC - removed some unnecessary configuration options - just cleanup. Modified: cpu/x86/pc/biosload/config.fth =================================================================== --- cpu/x86/pc/biosload/config.fth 2007-05-16 08:32:24 UTC (rev 382) +++ cpu/x86/pc/biosload/config.fth 2007-05-16 08:34:28 UTC (rev 383) @@ -60,7 +60,6 @@ create use-elf create use-ne2000 create use-watch-all -create usb-support create use-null-nvram create no-floppy-node [then] Modified: cpu/x86/pc/biosload/ofw.bth =================================================================== --- cpu/x86/pc/biosload/ofw.bth 2007-05-16 08:32:24 UTC (rev 382) +++ cpu/x86/pc/biosload/ofw.bth 2007-05-16 08:34:28 UTC (rev 383) @@ -72,7 +72,6 @@ " fw.img" " firmware" $add-deflated-dropin " ${BP}/dev/pci/build/pcibridg.fc" " class060400" $add-deflated-dropin -[ifdef] usb-support " ${BP}/dev/usb2/hcd/uhci/build/uhci.fc" " class0c0300" $add-deflated-dropin " ${BP}/dev/usb2/hcd/ohci/build/ohci.fc" " class0c0310" $add-deflated-dropin " ${BP}/dev/usb2/hcd/ehci/build/ehci.fc" " class0c0320" $add-deflated-dropin @@ -82,7 +81,6 @@ \ " ${BP}/dev/usb2/device/net/build/usbnet.fc" " usbnet" $add-deflated-dropin " ${BP}/dev/usb2/device/serial/build/usbserial.fc" " usbserial" $add-deflated-dropin " ${BP}/dev/usb2/device/storage/build/usbstorage.fc" " usbstorage" $add-deflated-dropin -[then] " builton.fth" " probe-" $add-dropin [ifndef] resident-packages Modified: cpu/x86/pc/lxdevel/config.fth =================================================================== --- cpu/x86/pc/lxdevel/config.fth 2007-05-16 08:32:24 UTC (rev 382) +++ cpu/x86/pc/lxdevel/config.fth 2007-05-16 08:34:28 UTC (rev 383) @@ -32,9 +32,6 @@ create jffs2-support create use-elf -create cafe-support -create usb-support - \ create use-timestamp-counter \ Use CPU's timestamp counter for timing ... \ ... this is worthwhile if your CPU has one. Modified: cpu/x86/pc/olpc/config.fth =================================================================== --- cpu/x86/pc/olpc/config.fth 2007-05-16 08:32:24 UTC (rev 382) +++ cpu/x86/pc/olpc/config.fth 2007-05-16 08:34:28 UTC (rev 383) @@ -30,10 +30,6 @@ create jffs2-support create use-elf -create cafe-support -create usb-support -create spi-flash-support - \ create use-timestamp-counter \ Use CPU's timestamp counter for timing ... \ ... this is worthwhile if your CPU has one. Modified: cpu/x86/pc/olpc/devices.fth =================================================================== --- cpu/x86/pc/olpc/devices.fth 2007-05-16 08:32:24 UTC (rev 382) +++ cpu/x86/pc/olpc/devices.fth 2007-05-16 08:34:28 UTC (rev 383) @@ -222,7 +222,6 @@ \needs md5init fload ${BP}/ofw/ppp/md5.fth \ MD5 hash -[ifdef] spi-flash-support fload ${BP}/dev/olpc/kb3700/ecspi.fth \ EC chip SPI FLASH access warning @ warning off @@ -286,8 +285,6 @@ fload ${BP}/dev/geode/lpcflash.fth \ Reflasher for PLCC FLASH on A-test -[then] - : +i encode-int encode+ ; : 0+i 0 +i ; fload ${BP}/cpu/x86/fb16-ops.fth

1 0

r382 - cpu/x86/pc/olpc/sdtools dev/olpc/dcon
by svn＠openbios.org May 16, 2007

May 16, 2007

Author: wmb Date: 2007-05-16 10:32:24 +0200 (Wed, 16 May 2007) New Revision: 382 Modified: cpu/x86/pc/olpc/sdtools/maketar cpu/x86/pc/olpc/sdtools/sd.fth dev/olpc/dcon/dconsmb.fth Log: OLPC SD exerciser program - added MSR , DCON, and mfg data support. Modified: cpu/x86/pc/olpc/sdtools/maketar =================================================================== --- cpu/x86/pc/olpc/sdtools/maketar 2007-05-15 00:59:33 UTC (rev 381) +++ cpu/x86/pc/olpc/sdtools/maketar 2007-05-16 08:32:24 UTC (rev 382) @@ -1,6 +1,9 @@ #!/bin/sh -cp ../../../bin/x86/linux/forth . -cp ../../../bin/x86/builder.dic . -cp ../../../cpu/x86/ioports.fth . -tar cfz sdkit.tgz forth builder.dic sd.fth ioports.fth sd +ls ../../../../../cpu/x86/Linux +cp ../../../../../cpu/x86/Linux/forth . +cp ../../../../../cpu/x86/build/builder.dic . +cp ../../../../../cpu/x86/ioports.fth . +cp ../../../../../cpu/x86/pc/olpc/mfgdata.fth . +cp ../../../../../dev/olpc/dcon/dconsmb.fth . +tar cfz sdkit.tgz forth builder.dic sd.fth ioports.fth dconsmb.fth mfgdata.fth sd rm -f builder.dic forth ioports.fth Modified: cpu/x86/pc/olpc/sdtools/sd.fth =================================================================== --- cpu/x86/pc/olpc/sdtools/sd.fth 2007-05-15 00:59:33 UTC (rev 381) +++ cpu/x86/pc/olpc/sdtools/sd.fth 2007-05-16 08:32:24 UTC (rev 382) @@ -33,6 +33,32 @@ : r ( offset -- ) sdl@ u. ; : w ( l offset -- ) sdl! ; + +fff0.0000 10.0000 mmap constant flash-base +\needs cdump : cdump ( adr len -- ) bounds ?do i c@ .x loop ; +\needs .mfg-data fload mfgdata.fth + +: 1ms ( -- ) + h# 10 msr@ drop d# 500,000 + ( limit ) + begin dup h# 10 msr@ drop - 0< until + drop +; +: ms ( #ms -- ) 0 ?do 1ms loop ; + +\needs dcon@ fload dconsmb.fth + +: mode! ( mode -- ) 1 dcon! ; +: hres! ( hres -- ) 2 dcon! ; \ def: h# 458 d# 1200 +: htotal! ( htotal -- ) 3 dcon! ; \ def: h# 4e8 d# 1256 +: hsync! ( sync -- ) 4 dcon! ; \ def: h# 1808 d# 24,8 +: vres! ( vres -- ) 5 dcon! ; \ def: h# 340 d# 900 +: vtotal! ( htotal -- ) 6 dcon! ; \ def: h# 390 d# 912 +: vsync! ( sync -- ) 7 dcon! ; \ def: h# 403 d# 4,3 +: timeout! ( to -- ) 8 dcon! ; \ def: h# ffff +: scanint! ( si -- ) 9 dcon! ; \ def: h# 0000 +: bright! ( level -- ) d# 10 dcon! ; \ def: h# xxxF + + \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks \ Modified: dev/olpc/dcon/dconsmb.fth =================================================================== --- dev/olpc/dcon/dconsmb.fth 2007-05-15 00:59:33 UTC (rev 381) +++ dev/olpc/dcon/dconsmb.fth 2007-05-16 08:32:24 UTC (rev 382) @@ -8,7 +8,7 @@ h# 70 value smb-clock \ 8 is the shortest period the controller allows : smb-on ( -- ) - h# 5140000b rdmsr drop to smb-base + h# 5140000b msr@ drop to smb-base \ Empirically, it doesn't work if you set reg 6 before reg 5 \ First set the registers with the enable bit clear smb-clock 1 lshift 5 smb!

1 0

r381 - dev/olpc/cafecamera
by svn＠openbios.org May 15, 2007

May 15, 2007

Author: wmb Date: 2007-05-15 02:59:33 +0200 (Tue, 15 May 2007) New Revision: 381 Modified: dev/olpc/cafecamera/cafecamera.fth Log: OLPC Camera - turn off camera power when not in use. Modified: dev/olpc/cafecamera/cafecamera.fth =================================================================== --- dev/olpc/cafecamera/cafecamera.fth 2007-05-14 10:50:34 UTC (rev 380) +++ dev/olpc/cafecamera/cafecamera.fth 2007-05-15 00:59:33 UTC (rev 381) @@ -390,7 +390,7 @@ : soft-reset ( -- ) 4 h# 3034 cl! 0 h# 3034 cl! ; : (init) ( -- ) - 0000.0008 3038 cl! \ magic to bringup hardware + 0000.0008 3038 cl! \ Turn on CaFe GPIO3 to enable power 0008.0008 315c cl! 0000.0005 3004 cl! \ wake up device 0000.000a 3004 cl! @@ -412,6 +412,9 @@ 1 ms ; +: power-off ( -- ) + 0 3038 cl! \ Turn off CaFe GPIO3 to disable power +; : init ( -- ) (init) power-up @@ -468,6 +471,7 @@ : close ( -- ) ctlr-stop + power-off free-dma-bufs unmap-regs ;

1 0

r380 - dev/mmc/sdhci
by svn＠openbios.org May 14, 2007

May 14, 2007

Author: wmb Date: 2007-05-14 12:50:34 +0200 (Mon, 14 May 2007) New Revision: 380 Modified: dev/mmc/sdhci/sdhci.fth Log: SDHCI - High-capacity SD memory card support now works - Pierre Ossman tested with one of his SDHC cards. Modified: dev/mmc/sdhci/sdhci.fth =================================================================== --- dev/mmc/sdhci/sdhci.fth 2007-05-14 09:22:28 UTC (rev 379) +++ dev/mmc/sdhci/sdhci.fth 2007-05-14 10:50:34 UTC (rev 380) @@ -387,7 +387,7 @@ \ Version 2 of the spec add CMD8. Pre-v2 cards will time out on CMD8. : sd2? ( -- flag ) - true to allow-timeout? true to timeout? + true to allow-timeout? false to timeout? send-if-cond false to allow-timeout? @@ -397,16 +397,22 @@ 0 instance value address-shift h# 8010.0000 value oc-mode \ Voltage settings, etc. -: set-operating-conditions ( -- ) - sd2? if h# 4010.0000 else h# 8010.0000 then to oc-mode - - begin +: wait-powered ( -- ocr ) + d# 100 0 do oc-mode set-oc ( ocr ) \ acmd41 dup h# 8000.0000 and ( card-powered-on? ) - 0= while ( ocr ) + if unloop exit then drop d# 10 ms - repeat ( ocr ) + loop ( ) + ." Card didn't power up after 1 second" cr + abort +; +: set-operating-conditions ( -- ) + sd2? if h# 4030.0000 else h# 0030.0000 then to oc-mode + + wait-powered + \ Card Capacity Status bit - High Capacity cards are addressed \ in blocks, so the block number does not have to be shifted. \ Standard capacity cards are addressed in bytes, so the block @@ -471,7 +477,7 @@ reset-card \ Cmd 0 - set-operating-conditions + ['] set-operating-conditions catch if false exit then get-all-cids \ Cmd 2 get-rca \ Cmd 3 - Get relative card address

1 0

r379 - dev/mmc/sdhci
by svn＠openbios.org May 14, 2007

May 14, 2007

Author: wmb Date: 2007-05-14 11:22:28 +0200 (Mon, 14 May 2007) New Revision: 379 Modified: dev/mmc/sdhci/sdhci.fth Log: SDHCI - Added support for high-capacity SD memory cards. Modified: dev/mmc/sdhci/sdhci.fth =================================================================== --- dev/mmc/sdhci/sdhci.fth 2007-05-14 09:11:19 UTC (rev 378) +++ dev/mmc/sdhci/sdhci.fth 2007-05-14 09:22:28 UTC (rev 379) @@ -210,26 +210,32 @@ drop cr ; +0 instance value allow-timeout? +0 instance value timeout? + : .sderror ( isr -- ) - ." Error: ISR = " dup u. isr! - ." ESR = " esr@ dup u. dup esr! decode-esr + esr@ dup esr! ( isr esr ) + allow-timeout? if ( isr esr ) + dup 1 = if true to timeout? 2drop exit then + then ( isr esr ) + + ." Error: ISR = " swap u. + ." ESR = " dup u. decode-esr ." Stopping" cr abort -\ debug-me + \ debug-me ; : wait ( mask -- ) h# 8000 or ( mask' ) begin ( mask ) - isr@ ( mask isr ) + isr@ dup isr! ( mask isr ) 2dup and 0= while ( mask isr ) \ key? if key drop debug-me then ( mask isr ) - dup isr! ( mask isr ) \ DMA interrupt - the transfer crossed an address boundary 8 and if 0 cl@ 0 cl! then ( mask ) repeat ( mask isr ) nip ( isr ) - dup h# 8000 and if dup .sderror then ( isr ) - isr! ( ) + dup h# 8000 and if .sderror else drop then ( ) ; : wait-ready ( -- ) @@ -267,6 +273,7 @@ \ R3: OCR register \ R6: RCA \ R2: 136 bits (CID (cmd 2 or 9) or CSD (cmd 10)) +\ R7: 136 bits (Interface condition, for CMD8) \ In R2 format, the first 2 bits are start bits, the next 6 are \ reserved. Then there are 128 bits (16 bytes) of data, then the end bit @@ -310,6 +317,8 @@ : deselect-card ( -- ) 0 h# 0700 0 cmd ; \ 7 - with null RCA : select-card ( -- ) rca h# 071b 0 cmd ; \ 7 R1b +: send-if-cond ( -- ) h# 1aa h# 081a 0 cmd ( response h# 1aa <> if ." Error" then ) ; \ 8 R7 + \ Get Card-specific data : get-csd ( -- ) rca h# 0909 0 cmd csd get-response136 ; \ 9 R2 : get-cid ( -- ) rca h# 0a09 0 cmd cid get-response136 ; \ 10 R2 UNTESTED @@ -331,10 +340,10 @@ \ 10.0000 direction: 1 for read, 0 for write \ 20.0000 multi (set for multiple-block transfers) -: read-single ( byte# -- ) h# 113a h# 13 cmd ; \ 17 R1 READ_SINGLE_BLOCK -: read-multiple ( byte# -- ) h# 123a h# 37 cmd ; \ 18 R1 READ_MULTIPLE -: write-single ( byte# -- ) h# 183a h# 03 cmd ; \ 24 R1 WRITE_SINGLE_BLOCK -: write-multiple ( byte# -- ) h# 193a h# 27 cmd ; \ 25 R1 WRITE_MULTIPLE +: read-single ( address -- ) h# 113a h# 13 cmd ; \ 17 R1 READ_SINGLE_BLOCK +: read-multiple ( address -- ) h# 123a h# 37 cmd ; \ 18 R1 READ_MULTIPLE +: write-single ( address -- ) h# 183a h# 03 cmd ; \ 24 R1 WRITE_SINGLE_BLOCK +: write-multiple ( address -- ) h# 193a h# 27 cmd ; \ 25 R1 WRITE_MULTIPLE : program-csd ( -- ) 0 h# 1b1a 0 cmd ; \ R1 27 UNTESTED : protect ( group# -- ) h# 1c1b 0 cmd ; \ R1b 28 UNTESTED @@ -376,17 +385,34 @@ scratch-buf ; -variable ocr +\ Version 2 of the spec add CMD8. Pre-v2 cards will time out on CMD8. +: sd2? ( -- flag ) + true to allow-timeout? true to timeout? + send-if-cond + false to allow-timeout? + + timeout? 0= +; + +0 instance value address-shift h# 8010.0000 value oc-mode \ Voltage settings, etc. + : set-operating-conditions ( -- ) + sd2? if h# 4010.0000 else h# 8010.0000 then to oc-mode + begin oc-mode set-oc ( ocr ) \ acmd41 dup h# 8000.0000 and ( card-powered-on? ) 0= while ( ocr ) drop d# 10 ms repeat ( ocr ) - \ We must save this so we can look at the Card Capacity Status bit - ocr ! ( ) + + \ Card Capacity Status bit - High Capacity cards are addressed + \ in blocks, so the block number does not have to be shifted. + \ Standard capacity cards are addressed in bytes, so the block + \ number must be left-shift by 9 (multiplied by 512). + + h# 4000.0000 and if 0 else 9 then to address-shift ; : configure-transfer ( -- ) @@ -465,7 +491,7 @@ >r ( addr block# #blocks r: in? ) rot dma-setup ( block# r: in? ) wait-write-done - /block * r> if + address-shift lshift r> if read-multiple else write-multiple true to writing?

1 0

r378 - dev/geode/ac97
by svn＠openbios.org May 14, 2007

May 14, 2007

Author: wmb Date: 2007-05-14 11:11:19 +0200 (Mon, 14 May 2007) New Revision: 378 Modified: dev/geode/ac97/selftest.fth Log: OLPC audio selftest - ramp up on one speaker and down on the other Modified: dev/geode/ac97/selftest.fth =================================================================== --- dev/geode/ac97/selftest.fth 2007-05-14 09:10:17 UTC (rev 377) +++ dev/geode/ac97/selftest.fth 2007-05-14 09:11:19 UTC (rev 378) @@ -165,13 +165,17 @@ 1 d# 30 do ( adr ) i set-period ( adr ) make-cycle ( adr ) -\ d# 42 copy-cycle ( adr' ) d# 35 copy-cycle ( adr' ) -1 +loop drop - \ Copy the left channel into the right channel - record-base record-base record-len 2/ + wa1+ record-len 2/ /w - move + \ Copy the left channel into the right channel in reverse order + record-base record-len /w - bounds ( end start ) + begin 2dup u> while ( end start ) + 2dup w@ swap w! ( end start ) + swap /w - swap wa1+ ( end' start' ) + repeat ( end start ) + 2drop ;

1 0