Adding address to disassembly.

2022-10-21 21:09:45 -07:00
parent cd1e0d9ee9
commit 742b8f9cb0
1 changed files with 3 additions and 1 deletions
--- a/common/assembler.fs
+++ b/common/assembler.fs
@ -106,7 +106,9 @@ variable istep
    r@ see. cr
    r@ >length istep !
  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 ;

 previous previous