Browse Source

link: adjust (br) and (?br) hardcoded offsets

They changed in my earlier commit.
pull/102/head
Virgil Dupras 4 years ago
parent
commit
65bc3b73ad
1 changed files with 4 additions and 4 deletions
  1. +4
    -4
      forth/link.fs

+ 4
- 4
forth/link.fs View File

@@ -27,7 +27,7 @@
: ASKIP
DUP @ ( a n )
( ?br or br or NUMBER )
DUP <>{ 0x70 &= 0x58 |= 0x20 |= 0x24 |= <>}
DUP <>{ 0x67 &= 0x53 |= 0x20 |= 0x24 |= <>}
IF DROP 4 + EXIT THEN
( regular word )
0x22 = NOT IF 2+ EXIT THEN
@@ -155,9 +155,9 @@
as variable space. )
4 + ( u+4 )
DUP H@ + ( u we )
DUP .X LF
DUP .X CRLF
SWAP CURRENT @ + ( we wr )
DUP .X LF
DUP .X CRLF
BEGIN ( we wr )
DUP ROT ( wr wr we )
( call RLWORD. we need a sig: ol o wr we )
@@ -174,7 +174,7 @@
( Are we finished? We're finished if wr-4 <= H@ )
DUP 4 - H@ <=
UNTIL
H@ 4 + .X LF
H@ 4 + .X CRLF
;

( Relink a regular Forth full interpreter. )


Loading…
Cancel
Save