[Amforth-devel] Return stack dump - .rls

[pito <pi...@vo...>]

Hi, here is an utility which help you see the Rstack:

\ based on .s, Pito 2010
marker -rstackdump

: rdepth rp0 rp@ - 2/  1- 1- ; 
\ ONE LINE SIGNED RSTACK
: .rls
rp@  1-                  \ alignment vs. .s ???
." [TOR> " 
rdepth 1- 0 ?do   
dup i
2* + 
@ 6 .r 
loop
drop ." ]"
;

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

Ex:

: ? .sls cr .rls cr ;
: rtest
?
-8888 -8888 -8888 -8888 ? >r ? >r ? >r ? >r ?
r> ? r> ? r> ? r> ? 
drop drop drop drop ?
;
: rtest1 .rls ;
: rtest2 rtest1 ;
: rtest3 rtest2 ;

> rtest
[TOS> ]
[TOR>  10748 10761 10770  1539   934]
[TOS>  -8888 -8888 -8888 -8888]
[TOR>  10748 10761 10779  1539   934]
[TOS>  -8888 -8888 -8888]
[TOR>  10748 10761 10781 -8888  1539   934]
[TOS>  -8888 -8888]
[TOR>  10748 10761 10783 -8888 -8888  1539   934]
[TOS>  -8888]
[TOR>  10748 10761 10785 -8888 -8888 -8888  1539   934]
[TOS> ]
[TOR>  10748 10761 10787 -8888 -8888 -8888 -8888  1539   934]
[TOS>  -8888]
[TOR>  10748 10761 10789 -8888 -8888 -8888  1539   934]
[TOS>  -8888 -8888]
[TOR>  10748 10761 10791 -8888 -8888  1539   934]
[TOS>  -8888 -8888 -8888]
[TOR>  10748 10761 10793 -8888  1539   934]
[TOS>  -8888 -8888 -8888 -8888]
[TOR>  10748 10761 10795  1539   934]
[TOS> ]
[TOR>  10748 10761 10800  1539   934]
ok
> .rls
[TOR>  10748  1539   934] ok
> rtest1
[TOR>  10748 10808  1539   934] ok
> rtest2
[TOR>  10748 10808 10816  1539   934] ok
> rtest3
[TOR>  10748 10808 10816 10824  1539   934] ok
>