collapseos/blk/397

( Now we have "as late as possible" stuff )
: _bchk DUP 0x7f + 0xff > IF LIT< br-ovfl (print) ABORT THEN ;
: DO COMPILE 2>R H@ ; IMMEDIATE
: LOOP COMPILE (loop) H@ - _bchk , ; IMMEDIATE
( LEAVE is implemented in low xcomp )
: LITN COMPILE (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 ;
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			`( Now we have "as late as possible" stuff )`
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 ;`
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			`: DO COMPILE 2>R H@ ; IMMEDIATE`
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			`: LOOP COMPILE (loop) H@ - _bchk , ; 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 )`
Make literal word routines into regular native words 2020-06-17 14:25:32 -04:00			`: LITN COMPILE (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 ;`