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

Adding address to disassembly.

Browse Source
This commit is contained in:
Brad Nelson
2022-10-21 21:09:45 -07:00
parent cd1e0d9ee9
commit 742b8f9cb0
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
common/assembler.fs
View File

@ -106,7 +106,9 @@ variable istep
r@ see. cr r@ see. cr
r@ >length istep ! r@ >length istep !
then rdrop ; then rdrop ;
: disasm1 ( a -- a ) 0 istep ! ['] matchit for-ops istep @ 8 / + ; : disasm1 ( a -- a )
dup . ." -- " 0 istep ! ['] matchit for-ops istep @ 8 / +
istep @ 0= if 1+ ." UNKNOWN" cr then ;
: disasm ( a n -- ) for aft disasm1 then next drop ; : disasm ( a n -- ) for aft disasm1 then next drop ;
previous previous previous previous