test_assembler.f

   1 ( -*- text -*- )
   2
   3 : 2DROP INLINE DROP INLINE DROP ;CODE
   4
   5 : C@++ INLINE DUP INLINE 1+ INLINE SWAP INLINE C@ ;CODE
   6
   7 : TEST
   8         ." 2DROP: "     1 2 3 4 2DROP . . CR
   9
  10         S" testing" DROP
  11         C@++ EMIT CR
  12         C@++ EMIT CR
  13         C@++ EMIT CR
  14         C@++ EMIT CR
  15         C@++ EMIT CR
  16         C@++ EMIT CR
  17         C@++ EMIT CR
  18         DROP
  19 ;