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

More fiddling with call addresses.

Browse Source
This commit is contained in:
Brad Nelson
2022-10-22 09:54:01 -07:00
parent d9d515861b
commit c1692b8039
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
esp32/xtensa-assembler.fs
View File

@ -39,8 +39,8 @@ numeric operand im
: offset 18 for aft ofs then next ; : offset 18 for aft ofs then next ;
( Offsets for CALL* ) ( Offsets for CALL* )
: >cofs ( n -- n ) chere - 2 rshift 4 - ; : >cofs ( n -- n ) chere - 2 rshift 1- ;
: cofs. ( n -- ) 18 sextend 2 lshift address @ + 4 + . ; : cofs. ( n -- ) 18 sextend 1+ 2 lshift address @ + . ;
' >cofs ' cofs. operand cofs ' >cofs ' cofs. operand cofs
: coffset 18 for aft cofs then next ; : coffset 18 for aft cofs then next ;