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

Add byte emission.

Browse Source
This commit is contained in:
Brad Nelson
2022-10-21 21:44:49 -07:00
parent 742b8f9cb0
commit 624dab60a9
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
common/assembler.fs
View File

@ -96,6 +96,7 @@ variable opcodes
>r opcodes @ begin dup while r> 2dup >r >r execute r> >body @ repeat rdrop drop ; >r opcodes @ begin dup while r> 2dup >r >r execute r> >body @ repeat rdrop drop ;
: m@ ( a -- n ) 0 swap cell 0 do dup ca@ i 8 * lshift swap >r or r> 1+ loop drop ; : 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 ! ;
variable istep variable istep
: matchit ( a xt -- a ) : matchit ( a xt -- a )
@ -103,12 +104,16 @@ variable istep
r@ >operands begin dup @ while r@ >operands begin dup @ while
>r dup m@ r@ cell+ @ demask r@ @ >printop execute r> 2 cells + >r dup m@ r@ cell+ @ demask r@ @ >printop execute r> 2 cells +
repeat drop repeat drop
r@ see. cr r@ see.
r@ >length istep ! r@ >length 8 / istep !
then rdrop ; then rdrop ;
: disasm1 ( a -- a ) : disasm1 ( a -- a )
dup . ." -- " 0 istep ! ['] matchit for-ops istep @ 8 / + dup . ." -- " 0 istep ! ['] matchit for-ops
istep @ 0= if 1+ ." UNKNOWN" cr then ; istep @ 0= if 1 istep ! ." UNKNOWN!!!" then
9 emit 9 emit ." -- " dup istep @ m.
istep @ +
cr
;
: disasm ( a n -- ) for aft disasm1 then next drop ; : disasm ( a n -- ) for aft disasm1 then next drop ;
previous previous previous previous