Test assembler & INLINE
authorrich <rich>
Thu, 11 Oct 2007 07:41:51 +0000 (07:41 +0000)
committerrich <rich>
Thu, 11 Oct 2007 07:41:51 +0000 (07:41 +0000)
test_assembler.f [new file with mode: 0644]
test_assembler.f.out [new file with mode: 0644]

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