izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

link: minor tweaks

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-11 18:43:43 -04:00
parent bf447f58c5
commit 9390479d49
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
forth/link.fs
View File

@ -138,15 +138,15 @@
and offset because otherwise, things get too complicated
with the PSP.
This word prints the top copied address, so when comes the
time to concat boot binary with this relinked dict, you
can use H@+4 to printed addr.
The output of this word is 3 numbers: top copied address,
top copied CURRENT, and then the beginning of the copied dict
at the end to indicate that we're finished processing.
)
( target -- )
: RLDICT
( First of all, let's get our offset. It's easy, it's
target's prev field, which is already an offset, minus
its name length. We expect, in COMPACT, that a target's
its name length. We expect, in RLDICT that a target's
prev word is a "hook word", that is, an empty word. )
( H@ == target )
DUP H@ !
@ -171,6 +171,7 @@
DUP H@ + ( u we )
DUP .X LF
SWAP CURRENT @ + ( we wr )
DUP .X LF
BEGIN ( we wr )
DUP ROT ( wr wr we )
( call RLWORD. we need a sig: ol o wr we )
@ -187,7 +188,7 @@
( Are we finished? We're finished if wr-4 <= H@ )
DUP 4 - H@ <=
UNTIL
H@ .X LF
H@ 4 + .X LF
;
( Relink a regular Forth full interpreter. )