collapseos/blk/399

: LIT< WORD 34 , BEGIN C@+ DUP C, NOT UNTIL DROP ; IMMEDIATE
: BEGIN H@ ; IMMEDIATE
: AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
: UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE
: [ INTERPRET ; IMMEDIATE
: ] R> DROP ;
: LITA 36 , , ;
: COMPILE ' LITA ['] , , ; IMMEDIATE
: [COMPILE] ' , ; IMMEDIATE
Inline SCPY I'm planning a string reform and it's standing in the way. 2020-05-25 04:19:25 +10:00			`: LIT< WORD 34 , BEGIN C@+ DUP C, NOT UNTIL DROP ; IMMEDIATE`
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			`: BEGIN 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-25 00:01:46 +10:00			`: AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE`
			`: UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE`
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			`: [ INTERPRET ; IMMEDIATE`
			`: ] R> DROP ;`
			`: LITA 36 , , ;`
			`: COMPILE ' LITA ['] , , ; IMMEDIATE`
			`: [COMPILE] ' , ; IMMEDIATE`