word . 9 define
word .S 38 define
word @ 10 define
-word @8_u 53 define
+word @8u 53 define
word @+ 42 define
word ! 11 define
word !+ 43 define
word 2DROP 32 define
word SWAP 26 define
word ROT 31 define
+word -ROT 54 define
\ ' "TICK" returns address of word's execution semantics
word ' here define
' drop , ' lit , ' lit , ' , , ' execute-num , ' , , ' ; ,
\ change interpreter semantics to "memorize-word"
-::> MEMORIZING ' lit , ' mode , ' lit , ' memorize-word , ' ! , ' ; ,
+::> MEMORIZING ' lit , ' memorize-word , ' lit , ' mode , ' ! , ' ; ,
\ memorize the compiler
\memorizing
-\: executing lit mode lit execute-word ! ;
+\: executing lit execute-word lit mode ! ;
\: FINISH-" drop string-end ;
\: BSLASH-" drop key string-put JMP: \here \8 \+ \,
\: " string-start \: KLOOP key 92 =? JNZ: bslash-" 34 =? JNZ: finish-" string-put JMP: KLOOP
\: DO" \:> " " swap lit lit , , lit lit , , ;
\: DOIF \:> IF lit JZ: , here dup , ;
-\: DOELSE \:> ELSE lit JMP: , here dup , swap here ! ;
-\: DOTHEN \:> THEN here ! ;
+\: DOELSE \:> ELSE lit JMP: , here dup , here -rot ! ;
+\: DOTHEN \:> THEN here swap ! ;
\: COMPILE-WORD dup
\doif 2dup find-does dup
\doif rot 2drop execute ;
\doif , 2drop ;
\dothen drop lit lit , execute-num , ;
\dothen 2drop \do" Compilation Error: null word" .s bye
-\: compiling lit mode lit compile-word ! ;
+\: compiling lit compile-word lit mode ! ;
\ compile the rest of the compiler
\compiling
)
\ Set the number conversion base
-: BASE 14348 swap ! ;
+: BASE 14348 ! ;
: BASE10 10 base ;
\ TICK compilation semantics