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 > ------------------------------------------------------------------------------ This SF.net Dev2Dev email is sponsored by: Show off your parallel programming skills. Enter the Intel(R) Threading Challenge 2010. http://p.sf.net/sfu/intel-thread-sfd _______________________________________________ Amforth-devel mailing list Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
