( r -- ) : OP1r CREATE C, DOES> C@ ( r op ) SWAP ( op r ) <<3 ( op r<<3 ) OR A, ; 0x04 OP1r INCr, 0x05 OP1r DECr,
