izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/356

12 lines
418 B
Plaintext
Raw Normal View History

Make KEY and EMIT into switch words
2020-10-29 07:00:58 +11: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-26 10:34:52 +10: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 21:58:55 +10: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-29 06:47:49 +11:00
SYSVARS 0x0a + :** NL
Remove an indirection in ERR
2020-10-29 10:23:34 +11:00
: ERR (print) ABORT ;
Add word ERR
2020-05-15 01:57:26 +10: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-22 01:41:10 +10:00
XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !
cvm: implement stack overflow error condition
2020-08-08 11:57:25 +10: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-29 07:34:49 +11:00
: (wnf) (print) LIT" word not found" ERR ;