Differences

This shows you the differences between two versions of the page.

--- sd:star_forth_test_suite [2026/03/13 07:55] – appledog
+++ sd:star_forth_test_suite [2026/03/14 13:20] (current) – appledog
@@ Line 17: / Line 17: @@
 | 1.0\\ 260313 | PASS | '': SIMPLE 500000 0 DO LOOP ;''\\ ''SIMPLE'' | ~6 seconds (170,000 w/s) at 4MHz |
 | 1.0\\ 260313 | PASS | '': BENCH 500000 0 DO I DUP * DROP LOOP ;''\\ ''BENCH'' | 22 seconds (140,000 w/s) at 4Mhz |
+| 1.0\\ 260314 | PASS | '': #WORDS 0 $030003 P@ BEGIN DUP WHILE SWAP 1 + SWAP P@ REPEAT DROP . ." words" CR ;'' | Shows 73 words (see WORDS, which shows 72). |
+Note that AS-IS, SD/FORTH 1.0 is not FORTH-79 compliant. That's fine, the following self-hosted words act as a sort of test suite, and also bring us up squarely into FORTH-79.
+<codify forth>
+    : 1+ 1 + ;
+    : 1- 1 - ;
+    : 2+ 2 + ;
+    : 2- 2 - ;
+    : 0= 0 = ;
+    : 0< 0 < ;
+    : 0> 0 > ;
+    : NEGATE 0 SWAP - ;
+    : ABS DUP 0< IF NEGATE THEN ;
+    : NIP SWAP DROP ;
+    : TUCK SWAP OVER ;
+    : ?DUP DUP IF DUP THEN ;
+    : ROT >R SWAP R> SWAP ;
+    : 2DUP OVER OVER ;
+    : MAX 2DUP < IF SWAP THEN DROP ;
+    : MIN 2DUP > IF SWAP THEN DROP ;
+    : SPACE 32 EMIT ;
+    : SPACES 0 DO SPACE LOOP ;
+    : /MOD 2DUP MOD >R / R> SWAP ;
+    : +! DUP @ ROT + SWAP ! ;
+    : TYPE 0 DO DUP C@ EMIT 1 + LOOP DROP ;
+    : TYPE ( addr len -- ) 0 DO DUP C@ EMIT 1 + LOOP DROP ;
+    : MOVE CMOVE ;
+</codify>
+== FORTH-79 TESTS
+You could also try this; if you see all PASS and then ABC and then A on the next line underneath the space beside the C, it works!
+<codify Forth>
+: TEST= = IF ." PASS " ELSE ." FAIL " THEN ;
+( Arithmetic )
+1+ 6 TEST=
+1- 4 TEST=
+2+ 7 TEST=
+2- 3 TEST=
+NEGATE -5 TEST=
+-7 NEGATE 7 TEST=
+-5 ABS 5 TEST=
+ABS 5 TEST=
+( Comparisons )
+0= 1 TEST=
+0= 0 TEST=
+-1 0< 1 TEST=
+0< 0 TEST=
+0> 1 TEST=
+-1 0> 0 TEST=
+( Stack ops )
+2 NIP 2 TEST=
+2 TUCK 2 TEST= DROP DROP
+2 TUCK DROP 1 TEST= DROP
+2 TUCK DROP DROP 2 TEST=
+?DUP + 10 TEST=
+?DUP 0 TEST=
+2 3 ROT 1 TEST= DROP DROP
+4 2DUP + >R + R> + 14 TEST=
+( Math )
+3 MAX 7 TEST=
+7 MAX 7 TEST=
+3 MIN 3 TEST=
+7 MIN 3 TEST=
+3 /MOD SWAP 1 TEST=
+3 /MOD 2 TEST=
+DROP
+( Variable and +! )
+VARIABLE TV
+TV !
+TV +!
+TV @ 13 TEST=
+( SPACE and SPACES )
+EMIT 66 EMIT 67 EMIT CR
+SPACES 65 EMIT CR
+( Bit Shifting Ops )
+0 LSHIFT 1 TEST=
+1 LSHIFT 2 TEST=
+4 LSHIFT 16 TEST=
+8 LSHIFT 256 TEST=
+$FF 4 LSHIFT $FF0 TEST=
+1 RSHIFT 8 TEST=
+8 RSHIFT 1 TEST=
+$FF0 4 RSHIFT $FF TEST=
+1 RSHIFT 0 TEST=
+</codify>
 == Benchmarking
 The SIMPLE and BENCH tests indicate SD/FORTH is:
-* 75x faster than BASIC (1,800 lines/sec) × ~5 ops/line ≈ 9,000 ops/sec)
+* 75x faster than Stellar BASIC (1,800 lines/sec) × ~5 ops/line ≈ 9,000 ops/sec)
 * 5x to 7x faster than a real C64 running DurexForth (~25,000 words/sec)
 * Comparable to a 4 MHz Z80 running Forth850 or an 8MHz Z80B running CamelForth.
@@ Line 52: / Line 146: @@
 === FIZZBENCH
 <codify Forth>
+    : FIZZBUZZ 21 1 DO I 15 MOD 0 = IF ." FizzBuzz" ELSE I 3 MOD
+= IF ." Fizz" ELSE I 5 MOD
+= IF ." Buzz" ELSE I . THEN THEN THEN CR LOOP ;
     : FIZZBENCH 0 10000 0
         DO I 15 MOD 0 = IF 1 + ELSE