Differences From Artifact [ca75fb21e0b151c6]:

File autopsy.rx part of check-in [02ed205b53] - autopsy: now catch divide by zero; stop stepper when image error detected by crc on 2011-07-23 14:42:57. [annotate] [view]

To Artifact [4dfbbdb703574f38]:

File autopsy.rx part of check-in [e3189b5c30] - minor refactoring in autopsy by crc on 2011-10-26 17:26:35. [annotate] [view]

@@ -289,12 +289,15 @@
 
   : --- ( - )
     24 [ '- putc ] times cr ;
 
-  : displayRegisters ( - )
+  : display  ( q- )
+    cr --- do --- ;
+
+  : registers ( - )
     depth size @ip "IP: %d  RSP: %d  SP: %d" puts .s cr ;
 
-  : displayInstruction ( - )
+  : instruction ( - )
     @ip decompile drop ;
 
   variable (steps)
 ---reveal---
@@ -301,9 +304,9 @@
   : step ( - )
     @ip 32768 < 0; drop
     (steps) ++
     size 0 >= 0; drop
-    cr --- displayRegisters displayInstruction ---
+    [ registers instruction ] display
     process ip ++ ;
 
   : steps ( n- )
     &step times ;