Re: [Amforth-devel] A collection of new ".s" - for fun

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

A test for .sls and .sla:

\ a quick test for one line .s

marker -testsdtot

: stest
-12345
.sls cr
5 0 do dup .sls cr loop
5 0 do drop .sls cr loop
drop
.sls cr
;

: stest1
$AAAA
.sla cr
5 0 do dup .sla cr loop
5 0 do drop .sla cr loop
drop
.sla cr
;
----------------------------------

EX:

> stest
[TOS> -12345]
[TOS> -12345-12345]
[TOS> -12345-12345-12345]
[TOS> -12345-12345-12345-12345]
[TOS> -12345-12345-12345-12345-12345]
[TOS> -12345-12345-12345-12345-12345-12345]
[TOS> -12345-12345-12345-12345-12345]
[TOS> -12345-12345-12345-12345]
[TOS> -12345-12345-12345]
[TOS> -12345-12345]
[TOS> -12345]
[TOS> ]
ok
> stest1
[TOS> -21846]
[TOS>  43690]
[TOS>   AAAA]
[TOS> -21846-21846]
[TOS>  43690 43690]
[TOS>   AAAA  AAAA]
[TOS> -21846-21846-21846]
[TOS>  43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA]
[TOS> -21846-21846-21846-21846]
[TOS>  43690 43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA  AAAA]
[TOS> -21846-21846-21846-21846-21846]
[TOS>  43690 43690 43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA  AAAA  AAAA]
[TOS> -21846-21846-21846-21846-21846-21846]
[TOS>  43690 43690 43690 43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA  AAAA  AAAA  AAAA]
[TOS> -21846-21846-21846-21846-21846]
[TOS>  43690 43690 43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA  AAAA  AAAA]
[TOS> -21846-21846-21846-21846]
[TOS>  43690 43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA  AAAA]
[TOS> -21846-21846-21846]
[TOS>  43690 43690 43690]
[TOS>   AAAA  AAAA  AAAA]
[TOS> -21846-21846]
[TOS>  43690 43690]
[TOS>   AAAA  AAAA]
[TOS> -21846]
[TOS>  43690]
[TOS>   AAAA]
[TOS> ]
[TOS> ]
[TOS> ]
ok
>