I've already done that---ANS Forth for the 6809 (https://github.com/spc476/ANS-Forth).