From 742b8f9cb01de6fb4a392ce36c52dbd3ca75e394 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 21 Oct 2022 21:09:45 -0700
Subject: [PATCH] Adding address to disassembly.

---
 common/assembler.fs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/common/assembler.fs b/common/assembler.fs
index e2c3e0a..2f35a5d 100644
--- 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