[Win32forth-cvs] win32forth-stc/src dis486.f,1.18,1.19

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

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

Modified Files:
	dis486.f 
Log Message:
arm: correct 3 addr form of imul (opcode 69/6B) disassembly error

Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** dis486.f	2 May 2007 05:53:57 -0000	1.18
--- dis486.f	10 May 2007 06:28:16 -0000	1.19
***************
*** 76,80 ****
  0 value dis.16bit               \ start in 32 bit mode
  0 value dis.base-addr           \ no offset by default
! 0 value dis.size                \ size of data in opcode
  0 value dis.data16              \ 16 bit data
  0 value dis.addr16              \ 16 bit address
--- 76,80 ----
  0 value dis.16bit               \ start in 32 bit mode
  0 value dis.base-addr           \ no offset by default
! 0 value dis.size                \ size of data in opcode (false=8bit reg, true=16/32bit reg)
  0 value dis.data16              \ 16 bit data
  0 value dis.addr16              \ 16 bit address
***************
*** 477,483 ****
  : bnd   ( addr op -- addr' ) .sop" bound" drop  1 to dis.size r,r/m ;
  : arp   ( addr op -- addr' ) .sop" arpl"  drop  true to dis.data16 1 to dis.size r,r/m ;
! : mli   ( addr op -- addr' )
          1 to dis.size
!         .sop" imul" swap r,r/m ., bit1 if .imm8 else .imm16/32 then ;
  
  \ -------------------- Jumps and Calls --------------------
--- 477,483 ----
  : bnd   ( addr op -- addr' ) .sop" bound" drop  1 to dis.size r,r/m ;
  : arp   ( addr op -- addr' ) .sop" arpl"  drop  true to dis.data16 1 to dis.size r,r/m ;
! : mli   ( addr op -- addr' ) \ 3 addr form of imul
          1 to dis.size
!         .sop" imul" swap r,r/m ., swap bit1 if .imm8 else .imm16/32 then ;
  
  \ -------------------- Jumps and Calls --------------------