diff options
Diffstat (limited to 'original_jonesforth/test_assembler.f')
| -rw-r--r-- | original_jonesforth/test_assembler.f | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/original_jonesforth/test_assembler.f b/original_jonesforth/test_assembler.f new file mode 100644 index 0000000..8edba7c --- /dev/null +++ b/original_jonesforth/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 +; |