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 ;
: QUIT
    (resRS)
    0 0x08 RAM+ !  ( 08 == C<* override )
    LIT< (main) FIND DROP EXECUTE
;
1 25 LOADR+ ( xcomp core low )
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			`: RAM+ [ RAMSTART LITN ] + ;`
			`: BIN+ [ BIN( @ LITN ] + ;`
			`: HERE 0x04 RAM+ ;`
			`: 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 ;`
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`
			`(resRS)`
			`0 0x08 RAM+ ! ( 08 == C<* override )`
			`LIT< (main) FIND DROP EXECUTE`
			`;`
			`1 25 LOADR+ ( xcomp core low )`