From: rich <rich>
Date: Thu, 11 Oct 2007 07:41:51 +0000 (+0000)
Subject: Test assembler & INLINE
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=f8688e0ca6ee2928ae1441ba2b7f5d2c8f43dea5;p=jonesforth.git

Test assembler & INLINE
---

diff --git a/test_assembler.f b/test_assembler.f
new file mode 100644
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
index 0000000..9a172d4
--- /dev/null
+++ b/test_assembler.f.out
@@ -0,0 +1,8 @@
+2DROP: 2 1 
+t
+e
+s
+t
+i
+n
+g