collapseos/blk/218
2020-04-28 10:12:16 -04:00

11 lines
189 B
Plaintext

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