mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 00:58:06 +11:00
1094ec9c57
DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary...
13 lines
237 B
Plaintext
13 lines
237 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,
|
|
: INC(IXY+), INCr, A, ;
|
|
: DEC(IXY+), DECr, A, ;
|