alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix call.

Browse Source
This commit is contained in:
Brad Nelson
2022-10-22 09:29:13 -07:00
parent 6b597aebc2
commit d9d515861b
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
esp32/xtensa-assembler.fs
View File

@ -38,6 +38,12 @@ numeric operand im
' >ofs ' ofs. operand ofs
: offset 18 for aft ofs then next ;
( Offsets for CALL* )
: >cofs ( n -- n ) chere - 2 rshift 4 - ;
: cofs. ( n -- ) 18 sextend 2 lshift address @ + 4 + . ;
' >cofs ' cofs. operand cofs
: coffset 18 for aft cofs then next ;
( Frame size of ENTRY )
: >entry12 ( n -- n ) 3 rshift ;
: entry12. ( n -- ) 3 lshift . ;
@ -133,7 +139,7 @@ offset o o o l l o OP J,
$0 BRANCH2b BF, $1 BRANCH2b BT,
$8 BRANCH2b LOOP, $9 BRANCH2b LOOPNEZ, $a BRANCH2b LOOPGTZ,
: CALLOP offset 2 bits o l o l OP ;
: CALLOP coffset 2 bits o l o l OP ;
0 CALLOP CALL0, 1 CALLOP CALL4, 2 CALLOP CALL8, 3 CALLOP CALL12,
: CALLXOP o o o o o o o o o o o o ssss l l 2 bits o o o o OP ;