collapseos/blk/382

: ,"
    BEGIN
        C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
    AGAIN ;
: LIT"
    34 , ( litWord ) H@ 0 C, ,"
    DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
xcomp: add XCOMPILE and X[COMPILE] This allows us to move words like ABORT" to xcomp-core, which is I think the last roadblock before being able to unify all drivers into a single xcomp layer. 2020-05-13 11:08:18 +10:00			`: ,"`
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			`BEGIN`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 21:58:55 +10:00			`C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,`
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			`AGAIN ;`
Make string length-prefixed instead of null-terminated I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form. 2020-05-26 10:34:52 +10:00			`: LIT"`
			`34 , ( litWord ) H@ 0 C, ,"`
			`DUP H@ -^ 1- ( a len ) SWAP C!`
			`; IMMEDIATE`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 21:58:55 +10:00			`: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE`
xcomp: add XCOMPILE and X[COMPILE] This allows us to move words like ABORT" to xcomp-core, which is I think the last roadblock before being able to unify all drivers into a single xcomp layer. 2020-05-13 11:08:18 +10:00			`: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE`