( -*- forth -*- ) load dtc/dtc.f host there . cr 0x300 there! target 0x4321 constant myconst variable myvar variable myvar2 : test1 0x11ff 1 + 0x1000 3 - 0xaaaa 0x5555 or 0xffff 0x1234 and ; : test2 STKPTR c@ ; : test3 0x2 @ 0x4 @ ; : test4 0x1111 myvar ! 1 myvar -! ; : test5 myvar2 myconst ; : test6 1 2 swap ; : test7 1 2 over ; : test8 1 2 dup ; : test9 0xcc swap if 0xdd else 0xee then 0xff ; : test10 1 test9 0 test9 ; : start 5 for 0x1234 next ; ' start install-reset