[Win32forth-cvs] win32forth-stc/src dis486.f,1.16,1.17

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25090

Modified Files:
	dis486.f 
Log Message:
arm: rework of disassembler, simplify, correct some formatting bugs, now does prefix
 operations (specifically 16 bit) correctly

Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** dis486.f	22 Mar 2007 02:08:33 -0000	1.16
--- dis486.f	11 Apr 2007 20:20:28 -0000	1.17
***************
*** 97,101 ****
                        [char] + emit $.               \ and the non-zero offset
                      else space then
!                   else drop $.
                    then ;
  
--- 97,101 ----
                        [char] + emit $.               \ and the non-zero offset
                      else space then
!                   else drop $s.
                    then ;
[...1085 lines suppressed...]
                    2dup - 0>                       \ anything left?
***************
*** 1147,1153 ****
                  next-inst c@ $c3 = if cr inst then
                  ."  ( end )" 2drop
!                 dup >name n>tfa c@ tdef = if      \ if it's a defer
                    defer@ recurse                 \ do again for deferred word
!                 else drop then ;
  
  : see           ( <name> -- )
--- 1119,1127 ----
                  next-inst c@ $c3 = if cr inst then
                  ."  ( end )" 2drop
!                 dup >name n>tfa c@ tdef <> if    \ if it's not a defer
!                   drop 
!                 else 
                    defer@ recurse                 \ do again for deferred word
!                 then ;
  
  : see           ( <name> -- )