collapseos/blk/397

( Now we have "as late as possible" stuff. See bootstrap doc. )
: _bchk DUP 0x7f + 0xff > IF LIT< br-ovfl (print) ABORT THEN ;
: DO COMPILE 2>R H@ ; IMMEDIATE
: LOOP COMPILE (loop) H@ - _bchk C, ; IMMEDIATE
( LEAVE is implemented in low xcomp )
: LITN 0x23 ( n ) , , ;
( gets its name at the very end. can't comment afterwards )
: _ BEGIN LIT< ) WORD S= UNTIL ; IMMEDIATE
: _ ( : will get its name almost at the very end )
    (entry) 1 ( compiled ) C,
    BEGIN
        WORD FIND
        IF ( is word ) DUP IMMED? IF EXECUTE ELSE , THEN
        ELSE ( maybe number ) (parse) LITN THEN
    AGAIN ;
Fix doc innacuracies 2020-08-30 16:53:27 -04:00			`( Now we have "as late as possible" stuff. See bootstrap doc. )`
Limit ourselves to 8-bit branching I'm planning on going back to 8-bit branching. 16-bit br cells incur a non-negligible penalty and, while at first 64 words (128 bytes forward or backward) seemed a bit limiting, I now don't see why one would ever construct such a big branch. It would be un-forthy. Also, I looked at using BC instead of IY to hold IP and the transition would be a lot easier with 8-bit branching. In this commit, all I do is add overflow checks in IF. The mechanic below doesn't change. I'll give myself some time to think it over so that I avoid yet another back and forth. 2020-05-24 10:01:46 -04:00			`: _bchk DUP 0x7f + 0xff > IF LIT< br-ovfl (print) ABORT THEN ;`
De-stabilize (br), (?br), (loop), (s) When writing the xcomp documentation, I realized that with careful threading and by accepting a bit of code duplication in the xcomp toolset, I could de-stabilize a couple of words. (n) and EXIT are a bit trickier, but I think it can be done. It would be nice to get rid of stable wordrefs... 2020-09-19 13:54:01 -04:00			`: DO COMPILE 2>R H@ ; IMMEDIATE`
			`: LOOP COMPILE (loop) H@ - _bchk C, ; IMMEDIATE`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`( LEAVE is implemented in low xcomp )`
Extract (n) code from stable ABI 2020-07-05 14:13:01 -04:00			`: LITN 0x23 ( n ) , , ;`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`( gets its name at the very end. can't comment afterwards )`
			`: _ BEGIN LIT< ) WORD S= UNTIL ; IMMEDIATE`
			`: _ ( : will get its name almost at the very end )`
Make word routines into word types Instead of having wordref point to core word routines, I made them into word 4 word types. It liberates space into the stable ABI and should make porting to other arches easier. I'm also thinking of combining word type with the namelen field for precious bytes saving, but not now... 2020-06-17 21:41:01 -04:00			`(entry) 1 ( compiled ) C,`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`BEGIN`
			`WORD FIND`
			`IF ( is word ) DUP IMMED? IF EXECUTE ELSE , THEN`
			`ELSE ( maybe number ) (parse) LITN THEN`
			`AGAIN ;`