r790 - cpu/x86

Author: wmb
Date: 2008-01-25 00:25:58 +0100 (Fri, 25 Jan 2008)
New Revision: 790

Modified:
   cpu/x86/disassem.fth
Log:
x86 disassembler - fixed formatting bug with [reg+offset] for negative offsets.

Modified: cpu/x86/disassem.fth
===================================================================
--- cpu/x86/disassem.fth	2008-01-24 09:50:52 UTC (rev 789)
+++ cpu/x86/disassem.fth	2008-01-24 23:25:58 UTC (rev 790)
@@ -56,12 +56,16 @@
 : ?+  ( -- )
    ea-text c@ 1 >  if  " +" $add-text  then
 ;
+: ?-  ( -- )
+   ea-text c@ 1 >  if  " -" $add-text  then
+;
 : get-disp  ( mod -- adr len )
    case
    0  of  " "  exit    endof
-   1  of  op8@ bext  dup 0>=  if  ?+  then  endof
-   2  of  ?+ adv@ wext     endof
+   1  of  op8@ bext     endof
+   2  of  adv@ wext     endof
    endcase
+   dup 0>=  if  ?+  else  ?-  negate  then  
    (u.) disp-buf pack  count
 ;
 \ Used when "w" field contains 0