collapseos/blk/356

SYSVARS 0x53 + :** EMIT
: (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ;
SYSVARS 0x0a + :** NL
: ERR (print) ABORT ;
: (uflw) LIT" stack underflow" ERR ;
XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !
: (oflw) LIT" stack overflow" ERR ;
XCURRENT @ _xapply ORG @ 0x13 ( stable ABI oflw ) + !
: (wnf) (print) LIT"  word not found" ERR ;
Make KEY and EMIT into switch words 2020-10-28 16:00:58 -04:00			`SYSVARS 0x53 + :** EMIT`
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-25 20:34:52 -04:00			`: (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 07:58:55 -04:00			`: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;`
			`: CRLF CR LF ; : SPC 32 EMIT ;`
Use SYSVARS instead of RAM+ in core switches defs RAM+ is the host's setup! Use SYSVARS instead, which is the guest's value. 2020-10-28 15:47:49 -04:00			`SYSVARS 0x0a + :** NL`
Remove an indirection in ERR 2020-10-28 19:23:34 -04:00			`: ERR (print) ABORT ;`
Add word ERR 2020-05-14 11:57:26 -04:00			`: (uflw) LIT" stack underflow" ERR ;`
Refer to BOOT and (uflw) by addr in stable ABI Was previously referred to by name+find, which was wasteful. 2020-06-21 11:41:10 -04:00			`XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !`
cvm: implement stack overflow error condition 2020-08-07 21:57:25 -04:00			`: (oflw) LIT" stack overflow" ERR ;`
			`XCURRENT @ _xapply ORG @ 0x13 ( stable ABI oflw ) + !`
Move EMIT to low core This allows us to remove one layer of indirection in (wnf). This is possible now that EMIT is a switch word. 2020-10-28 16:34:49 -04:00			`: (wnf) (print) LIT" word not found" ERR ;`