collapseos/blk/353

: RAM+ [ SYSVARS LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;
: HERE 0x04 RAM+ ;
: CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ;
: H@ HERE @ ;
: FIND ( w -- a f ) CURRENT @ SWAP _find ;
: IN> 0x30 RAM+ ; ( current position in INBUF )
: IN( 0x32 RAM+ @ ; ( points to INBUF )
: IN) 0x40 ( buffer size ) IN( + ; ( INBUF's end )
: (infl) 0 IN( DUP IN> ! ! ; ( flush input buffer )
: QUIT
    (resRS) 0 0x08 RAM+ ! ( C<* override ) (infl)
    LIT" (main)" FIND DROP EXECUTE
;
1 33 LOADR+
Rename RAMSTART to SYSVARS It's more descriptive this way. Also, I'll soon add a new HERESTART config. 2020-06-29 08:49:30 +10:00			`: RAM+ [ SYSVARS LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`: HERE 0x04 RAM+ ;`
Flush input buffer on QUIT Prebiously, when encountering an error during a : ; definition from input buffer, because the input buffer wasn't flushed, we would continue interpreting and quit the whole program when encountering ;. 2020-05-24 23:23:19 +10:00			`: CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ;`
core: define H@ a bit sooner 2020-05-16 12:59:38 +10:00			`: H@ HERE @ ;`
			`: FIND ( w -- a f ) CURRENT @ SWAP _find ;`
Flush input buffer on QUIT Prebiously, when encountering an error during a : ; definition from input buffer, because the input buffer wasn't flushed, we would continue interpreting and quit the whole program when encountering ;. 2020-05-24 23:23:19 +10:00			`: IN> 0x30 RAM+ ; ( current position in INBUF )`
			`: IN( 0x32 RAM+ @ ; ( points to INBUF )`
			`: IN) 0x40 ( buffer size ) IN( + ; ( INBUF's end )`
			`: (infl) 0 IN( DUP IN> ! ! ; ( flush input buffer )`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`: QUIT`
Flush input buffer on QUIT Prebiously, when encountering an error during a : ; definition from input buffer, because the input buffer wasn't flushed, we would continue interpreting and quit the whole program when encountering ;. 2020-05-24 23:23:19 +10:00			`(resRS) 0 0x08 RAM+ ! ( C<* override ) (infl)`
Remove LIT< in favor of LIT" exclusively This duplicated feature existed because of bootstrapping issues with LIT", but again, with careful threading, we can clean things up. We can now have a proper "Collapse OS" prompt :) 2020-09-20 08:51:29 +10:00			`LIT" (main)" FIND DROP EXECUTE`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`;`
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-29 09:06:58 +11:00			`1 33 LOADR+`