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

They changed in my earlier commit.
This commit is contained in:
Virgil Dupras 2020-04-16 09:26:01 -04:00
parent b01de82fd1
commit 65bc3b73ad

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. )