collapseos/blk/412

mirror of https://github.com/hsoft/collapseos.git synced 2024-09-19 07:58:45 +10:00
: H@ HERE @ ;
: IMMEDIATE
    CURRENT @ 1-
    DUP C@ 128 OR SWAP C!
;
: +! SWAP OVER @ + SWAP ! ;
: -^ SWAP - ;
: ALLOT HERE +! ;
Move a bunch of words from core to inner core That makes it easier to write drivers that can be xcompiled. 2020-05-09 10:55:50 +10:00			`: H@ HERE @ ;`
			`: IMMEDIATE`
			`CURRENT @ 1-`
			`DUP C@ 128 OR SWAP C!`
			`;`
			`: +! SWAP OVER @ + SWAP ! ;`
			`: -^ SWAP - ;`
			`: ALLOT HERE +! ;`