izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-29 14:20:55 +10:00
Code Issues Releases Wiki Activity

link: add LITA handling

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-11 14:02:42 -04:00
parent c515720e23
commit 3accc73f38
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
forth/link.fs
View File

@ -15,7 +15,7 @@
: ASKIP : ASKIP
DUP @ ( a n ) DUP @ ( a n )
( ?br or br or NUMBER ) ( ?br or br or NUMBER )
DUP <>{ 0x70 &= 0x58 |= 0x20 |= <>} DUP <>{ 0x70 &= 0x58 |= 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
@ -45,6 +45,16 @@
( a o ol -- a+n ) ( a o ol -- a+n )
: RLATOM : RLATOM
ROT ( o ol a ) ROT ( o ol a )
DUP @ 0x24 = IF
( addrWord? we need to offset it )
2 + ( o ol a+2 )
ROT OVER ( ol a o a )
@ -^ ( ol a n-o )
OVER ! ( ol a )
SWAP DROP ( a )
2 + ( a+2 )
EXIT ( no need for ASKIP )
THEN
DUP @ ( o ol a n ) DUP @ ( o ol a n )
ROT ( o a n ol ) ROT ( o a n ol )
< IF ( under limit, do nothing ) < IF ( under limit, do nothing )