Test assembler & INLINE

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
+;

diff --git a/test_assembler.f.out b/test_assembler.f.out
new file mode 100644 (file)
index 0000000..9a172d4
--- /dev/null
+++ b/test_assembler.f.out
@@ -0,0 +1,8 @@
+2DROP: 2 1 
+t
+e
+s
+t
+i
+n
+g