izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 06:28:08 +11:00
Code Issues Releases Wiki Activity
8bb9230f49
collapseos/blk/398

13 lines
326 B
Plaintext
Raw Normal View History

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
: IF ( -- a | a: br cell addr )
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
2020-07-06 04:57:18 +10:00
0x3f ( ?br ) , H@ 2 ALLOT ( br cell allot )
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
; 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
: THEN ( a -- | a: br cell addr )
DUP H@ -^ _bchk SWAP ( a-H a ) !
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
; 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
: ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register.
2020-07-06 04:57:18 +10:00
0x3b ( br ) ,
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
2 ALLOT
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
[COMPILE] THEN
H@ 2- ( push a. -2 for allot offset )
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
; IMMEDIATE
Reference in New Issue Copy Permalink