1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 04:08:05 +11:00
collapseos/blk/218

17 lines
241 B
Plaintext
Raw Normal View History

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