collapseos/blk/353

: RAM+ [ RAMSTART 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 25 LOADR+ ( xcomp core low )
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			`: RAM+ [ RAMSTART 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)`
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			`LIT< (main) FIND DROP EXECUTE`
			`;`
			`1 25 LOADR+ ( xcomp core low )`