1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 17:50:54 +11:00
collapseos/blk/218
2020-04-28 07:51:41 -04:00

12 lines
205 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,
0xc7 OP1r RSTn,