BytecodeSpecialBehaviorsTest

 \ test token compiler on simple bytecode compiled by tokenizer

 MARKER SENT
 S" SENDCOMPATIBLE.F"   INCLUDED
 S" SENDBYTECODE.F"     INCLUDED
 S" SENDWORDLIST.F"     INCLUDED
 S" SENDTOKENS.F"       INCLUDED
 S" SENDCOMPILER.F"     INCLUDED
 S" SENDSIMPLETOKENS.F" INCLUDED
 S" SIMPLEWORDS.F"      INCLUDED
 S" SENDCOMPLEXWORDS.F" INCLUDED
 S" SENDFILE.F"         INCLUDED
 S" DECODER.F"          INCLUDED
 S" SENDTOKENNAMES.F"   INCLUDED


 TOKENNAMES
 LAST-TOKEN ?

 \ simple code to convert to bytecode
 TO-FILE
  T| 13546 CHAR apple S" aqua" .( stable)
 CREATE TEST 3 CELLS ALLOT TEST U. 5 TEST ! TEST @ .
 VARIABLE TEST1 TEST1 U. 6 TEST1 ! TEST1 @ .
 7 CONSTANT TEST2 TEST2 .
 :NONAME 8 . ; EXECUTE
 : TEST3 9 . ; TEST3
 N: TEST4 10 . ;
 |T

 SHOW
 SENT

 S" GETCOMPATIBLE.F"   INCLUDED
 S" GETBYTECODE.F"     INCLUDED
 S" GETTOKENS.F"       INCLUDED
 S" GETSIMPLETOKENS.F" INCLUDED
 S" GETCOMPILER.F"     INCLUDED
 S" SIMPLEWORDS.F"     INCLUDED
 S" GETCOMPLEXWORDS.F" INCLUDED
 S" GETFILE.F"         INCLUDED
 S" COMPLEXWORDS.F"    INCLUDED

 SETUP-INPUT DROP

 TOPARSETOKENS

 \ read and execute bytecode
 CR .( test lit           13546 -> ) HANDLE-TOKEN .
 CR .( test CHAR              a -> ) HANDLE-TOKEN EMIT
 CR .( test interpreted S" aqua -> ) HANDLE-TOKEN TYPE
 CR .( test .(           stable -> ) HANDLE-TOKEN
 CR .( CREATE            addr 5 -> ) 12 HANDLE-TOKENS
 CR .( VARIABLE          addr 6 -> ) 11 HANDLE-TOKENS
 CR .( CONSTANT               7 -> ) 6 HANDLE-TOKENS
 CR .( :NONAME             xt 8 -> ) 4 HANDLE-TOKENS DUP U. HANDLE-TOKEN
 CR .( : working?             9 -> ) 5 HANDLE-TOKENS
 CR .( LNAME:                10 -> ) 4 HANDLE-TOKENS TEST4

 \ test compiled lit, compiled CHAR, [CHAR] S"