2 \ This is a file that tests Forth tags
8 \ :a-forth-dictionary-entry
10 \ (another-forth-word)
16 \ This is a forth comment
18 ( Another forth comment )
20 : a-forth-word ( a b c -- a*b+c ) + * ;
22 99 constant a-forth-constant!
23 55 value a-forth-value?
24 create :a-forth-dictionary-entry
25 0 c, 9 c, 5 c, 7 c, 999999 ,
29 : (another-forth-word) ( -- )
33 ' (another-forth-word) to #a-defer-word
38 constant (a-forth-constant
41 2000 buffer: #some-storage
43 code assemby-code-word ( dunno what it does )
44 g1 g2 mov \ Move from here to there
45 sc2 h# 13 sc2 sllx \ shift stuff 'round
48 \ And for the heck of it, redefine a-forth-word.
50 : a-forth-word ( a b c -- )
51 a-forth-word dup 200 > abort" Eek. The number is too big"