Dear Matthias,

This is a follow up. The bug is in the revised words/fetch-ee-array.asm.
Given an EE array address with elements X₀, .., Xₙ₋₁, Xₙ when we need to
collect n items (the wordlists) we need to collect Xₙ₋₁ to X₀ (while
currently it collects Xₙ to X₁).

By the way, I have a REVERSE word to contribute. See below. I suggest to
include it in the kernel.

Sincerely, Enoch.

----------------------------------------------------------------------

\ LIFO made FIFO
\ ( X1 .. Xn n -- Xn .. X1 n )
: reverse
   >r
   sp@ sp@ r@ cells +                   \ ( bot-addr top-addr )
   begin
      over over <                       \ bot top cross each other?
   while                                \ no
      dup @ >r                          \ save top-cell content
      over @ over !                     \ replace top-cell
      over r> swap !                    \ replace bot-cell
      cell- swap cell+ swap
   repeat
   2drop
   r>
;

----------------------------------------------------------------------

Enoch <i...@hotmail.com> writes:

> Hello Matthias,
>
> In reference to your SVN 1512 "Renamed @e[] to n@e, changed stack effect
> as well", it hangs a new word which I provide for amforth-shell.py
> convenience:
>
> ; ( -- ) 
> ; Tools
> ; prints a list of all searchable words in the dictionary
> VE_ALLWORDS:
>     .dw $ff08
>     .db "allwords"
>     .dw VE_HEAD
>     .set VE_HEAD = VE_ALLWORDS
> XT_ALLWORDS:
>     .dw DO_COLON
> PFA_ALLWORDS:
>     .dw XT_GET_ORDER
> PFA_ALLWORDS1:
>     .dw XT_QDUP
>     .dw XT_DOCONDBRANCH
>     .dw PFA_ALLWORDS2
>     .dw XT_SWAP
>     .dw XT_SHOWWORDLIST
>     .dw XT_1MINUS
>     .dw XT_DOBRANCH
>     .dw PFA_ALLWORDS1
> PFA_ALLWORDS2:        
>     .dw XT_EXIT
>
> Thanks, Enoch.
>
>  (*) 
>
> I want the shell to know all words, not just those at the head of the
> search order. I am using multiple wordlists.
>
>
> ------------------------------------------------------------------------------
> Androi apps run on BlackBerry 10
> Introducing the new BlackBerry 10.2.1 Runtime for Android apps.
> Now with support for Jelly Bean, Bluetooth, Mapview and more.
> Get your Android app in front of a whole new audience.  Start now.
> http://pubads.g.doubleclick.net/gampad/clk?id=124407151&iu=/4140/ostg.clktrk


------------------------------------------------------------------------------
Android apps run on BlackBerry 10
Introducing the new BlackBerry 10.2.1 Runtime for Android apps.
Now with support for Jelly Bean, Bluetooth, Mapview and more.
Get your Android app in front of a whole new audience.  Start now.
http://pubads.g.doubleclick.net/gampad/clk?id=124407151&iu=/4140/ostg.clktrk
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to