mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 03:28:05 +11:00
link: adjust (br) and (?br) hardcoded offsets
They changed in my earlier commit.
This commit is contained in:
parent
b01de82fd1
commit
65bc3b73ad
@ -27,7 +27,7 @@
|
|||||||
: ASKIP
|
: ASKIP
|
||||||
DUP @ ( a n )
|
DUP @ ( a n )
|
||||||
( ?br or br or NUMBER )
|
( ?br or br or NUMBER )
|
||||||
DUP <>{ 0x70 &= 0x58 |= 0x20 |= 0x24 |= <>}
|
DUP <>{ 0x67 &= 0x53 |= 0x20 |= 0x24 |= <>}
|
||||||
IF DROP 4 + EXIT THEN
|
IF DROP 4 + EXIT THEN
|
||||||
( regular word )
|
( regular word )
|
||||||
0x22 = NOT IF 2+ EXIT THEN
|
0x22 = NOT IF 2+ EXIT THEN
|
||||||
@ -155,9 +155,9 @@
|
|||||||
as variable space. )
|
as variable space. )
|
||||||
4 + ( u+4 )
|
4 + ( u+4 )
|
||||||
DUP H@ + ( u we )
|
DUP H@ + ( u we )
|
||||||
DUP .X LF
|
DUP .X CRLF
|
||||||
SWAP CURRENT @ + ( we wr )
|
SWAP CURRENT @ + ( we wr )
|
||||||
DUP .X LF
|
DUP .X CRLF
|
||||||
BEGIN ( we wr )
|
BEGIN ( we wr )
|
||||||
DUP ROT ( wr wr we )
|
DUP ROT ( wr wr we )
|
||||||
( call RLWORD. we need a sig: ol o 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@ )
|
( Are we finished? We're finished if wr-4 <= H@ )
|
||||||
DUP 4 - H@ <=
|
DUP 4 - H@ <=
|
||||||
UNTIL
|
UNTIL
|
||||||
H@ 4 + .X LF
|
H@ 4 + .X CRLF
|
||||||
;
|
;
|
||||||
|
|
||||||
( Relink a regular Forth full interpreter. )
|
( Relink a regular Forth full interpreter. )
|
||||||
|
Loading…
Reference in New Issue
Block a user