collapseos/blk/381

: EMIT
    ( 0x53==(emit) override )
    0x53 RAM+ @ ?DUP IF EXECUTE ELSE (emit) THEN ;
: (print) 1- C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ;
: NL 0x0a RAM+ @ ( NLPTR ) ?DUP IF EXECUTE ELSE CRLF THEN ;
: (uflw) LIT" stack underflow" ERR ;
: (wnf) (print) SPC LIT" word not found" ERR ;
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			`: EMIT`
			`( 0x53==(emit) override )`
Add word ?DUP 2020-05-23 03:48:30 +10:00			`0x53 RAM+ @ ?DUP IF EXECUTE ELSE (emit) THEN ;`
wip 2020-05-25 10:50:26 +10:00			`: (print) 1- C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 21:58:55 +10:00			`: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;`
			`: CRLF CR LF ; : SPC 32 EMIT ;`
Add word ?DUP 2020-05-23 03:48:30 +10:00			`: NL 0x0a RAM+ @ ( NLPTR ) ?DUP IF EXECUTE ELSE CRLF THEN ;`
Add word ERR 2020-05-15 01:57:26 +10:00			`: (uflw) LIT" stack underflow" ERR ;`
			`: (wnf) (print) SPC LIT" word not found" ERR ;`