cell-minus:toolbelt — ordinary primitive
FORTH
CELL- ( addr -- addr' )();p4:"cell-minus";
CELL- ( addr -- addr' )(
)
Decrement address by one cell
: CELL- ( addr -- addr' ) CELL - ;