collapseos/blk/422

: ,"
    BEGIN
        C<
        ( 34 is ASCII for " )
        DUP 34 = IF DROP EXIT THEN C,
    AGAIN ;

: ."
    34 , ( 34 == litWord ) ," 0 C,
    COMPILE (print)
; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ;
: NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;
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`
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			`C<`
			`( 34 is ASCII for " )`
			`DUP 34 = 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 ;`
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
			`: ."`
			`34 , ( 34 == litWord ) ," 0 C,`
			`COMPILE (print)`
			`; IMMEDIATE`
			`: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE`
Move a bunch of words from core to xcomp core 2020-05-13 22:50:07 +10:00			`: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;`
			`: CRLF CR LF ; : SPC 32 EMIT ;`
			`: NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;`