Test assembler & INLINE

[jonesforth.git] / test_assembler.f

diff --git a/test_assembler.f b/test_assembler.f
new file mode 100644 (file)
index 0000000..8edba7c
--- /dev/null
+++ b/test_assembler.f
@@ -0,0 +1,19 @@
+( -*- text -*- )
+
+: 2DROP INLINE DROP INLINE DROP ;CODE
+
+: C@++ INLINE DUP INLINE 1+ INLINE SWAP INLINE C@ ;CODE
+
+: TEST
+       ." 2DROP: "     1 2 3 4 2DROP . . CR
+
+       S" testing" DROP
+       C@++ EMIT CR
+       C@++ EMIT CR
+       C@++ EMIT CR
+       C@++ EMIT CR
+       C@++ EMIT CR
+       C@++ EMIT CR
+       C@++ EMIT CR
+       DROP
+;