diff --git a/tests/all/test_move.fs b/tests/all/test_move.fs new file mode 100644 index 0000000..68de2a1 --- /dev/null +++ b/tests/all/test_move.fs @@ -0,0 +1,13 @@ +42 C, 43 C, 44 C, +H@ 3 - H@ 3 MOVE +H@ C@ 42 #eq H@ 1+ C@ 43 #eq H@ 2+ C@ 44 #eq +H@ H@ 1+ 3 MOVE ( demonstrate MOVE's problem ) +H@ 1+ C@ 42 #eq H@ 2+ C@ 42 #eq H@ 3 + C@ 42 #eq +H@ 3 - H@ 3 MOVE +H@ H@ 1+ 3 MOVE- ( see? better ) +H@ 1+ C@ 42 #eq H@ 2+ C@ 43 #eq H@ 3 + C@ 44 #eq + +H@ ( ref ) +H@ 3 - 3 MOVE, +( ref ) H@ 3 - #eq +H@ 3 - C@ 42 #eq H@ 2- C@ 43 #eq H@ 1- C@ 44 #eq