tick-th:toolbelt — compiling primitive
FORTH
'th ( n "addr" -- &addr[n] )(
)
Address `n CELLS addr +`.
: 'th ( n "addr" -- &addr[n] ) S" 2 LSHIFT " EVALUATE BL WORD COUNT EVALUATE S" + " EVALUATE ; IMMEDIATE