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

More xtensa assembler improvements.

Browse Source
This commit is contained in:
Brad Nelson
2022-10-21 23:06:36 -07:00
parent 32f66894c0
commit 6b597aebc2
3 changed files with 57 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
common/assembler.fs
View File

@ -86,7 +86,7 @@ variable opcodes
r@ >pattern
0 r@ >operands begin dup @ while >r 1+ r> 2 cells + repeat
swap for aft
2 cells - dup >r cell+ @ swap >r enmask r> swap r@ @ >inop execute or r>
2 cells - dup >r swap >r dup cell+ @ >r @ >inop execute r> enmask r> or r>
then next
drop
r> >length coden,
@ -97,8 +97,10 @@ variable opcodes
: m@ ( a -- n ) 0 swap cell 0 do dup ca@ i 8 * lshift swap >r or r> 1+ loop drop ;
: m. ( n n -- ) base @ hex >r >r <# r> 1- for # # next #> type r> base ! ;
: sextend ( n n -- n ) cell 8 * swap - dup >r lshift r> arshift ;
variable istep
variable address
: matchit ( a xt -- a )
>r dup m@ r@ >mask and r@ >pattern = if
r@ >operands begin dup @ while
@ -108,7 +110,7 @@ variable istep
r@ >length 8 / istep !
then rdrop ;
: disasm1 ( a -- a )
dup . ." -- " 0 istep ! ['] matchit for-ops
dup address ! dup . ." -- " 0 istep ! ['] matchit for-ops
istep @ 0= if 1 istep ! ." UNKNOWN!!!" then
9 emit 9 emit ." -- " dup m@ istep @ m.
istep @ +