new cpuhw_forth