[Win32forth-cvs] win32forth/src 486ASM.F, 1.11, 1.12 586ASMCM.f, 1.4, 1.5

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30815

Modified Files:
	486ASM.F 586ASMCM.f 
Log Message:
Jos minor changes

Index: 586ASMCM.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/586ASMCM.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 586ASMCM.f	10 Dec 2014 12:27:11 -0000	1.4
--- 586ASMCM.f	12 Dec 2014 12:20:38 -0000	1.5
***************
*** 24,28 ****
  	$F3 code-c, xmm-compile ;
  
! : pre-dxmm-compil1 ( param -- | x \ param -- | x \ x \ param -- )
  	$F2 code-c, $0F code-c, mmxreg generic-entry2  mmx-dir?
              if   1 or
--- 24,28 ----
  	$F3 code-c, xmm-compile ;
  
! : pre-dxmm-compile ( param -- | x \ param -- | x \ x \ param -- )
  	$F2 code-c, $0F code-c, mmxreg generic-entry2  mmx-dir?
              if   1 or
***************
*** 88,198 ****
  
     0xc0df '    fmisc-compile  opcode ffreep
  dup-warning-on
  
  \  xmm instructions
!     $10 '      xmm-compile opcode movups
!     $10 '     dxmm-compile opcode movupd
!     $10 '  pre-xmm-compile opcode movss
  dup-warning-off
!     $10 ' pre-dxmm-compil1 opcode movsd
  dup-warning-on
!     $14 '      xmm-compile opcode unpcklps
!     $14 '     dxmm-compile opcode unpcklpd
!     $15 '      xmm-compile opcode unpckhps
!     $15 '     dxmm-compile opcode unpckhpd
  
!     $28 '      xmm-compile opcode movaps
!     $28 '     dxmm-compile opcode movapd
  
!     $2A '      xmm-compile opcode cvtpi2ps
!     $2A '     dxmm-compile opcode cvtpi2pd
!     $2A '  pre-xmm-compile opcode cvtsi2ss
!     $2A ' pre-dxmm-compile opcode cvtsi2sd
  
!     $2C '      xmm-compile opcode cvttps2pi
!     $2C '     dxmm-compile opcode cvttpd2pi
!     $2C '  pre-xmm-compile opcode cvttss2si
!     $2C ' pre-dxmm-compile opcode cvttsd2si
  
!     $2D '      xmm-compile opcode cvtps2pi
!     $2D '     dxmm-compile opcode cvtpd2pi
!     $2D '  pre-xmm-compile opcode cvtss2si
!     $2D ' pre-dxmm-compile opcode cvtsd2si
  
!     $E6 '  pre-xmm-compile opcode cvtdq2pd
!     $E6 ' pre-dxmm-compile opcode cvtpd2dq
  
!     $2E '      xmm-compile opcode ucomiss
!     $2E '     dxmm-compile opcode ucomisd
  
!     $2F '      xmm-compile opcode comiss
!     $2F '     dxmm-compile opcode comisd
  
!     $C2 '      xmm-compile opcode cmpps
!     $C2 '     dxmm-compile opcode cmppd
!     $C2 '  pre-xmm-compile opcode cmpss
!     $C2 ' pre-dxmm-compile opcode xcmpsd
  
!     $C6 '      xmm-compile opcode shufps
!     $C6 '     dxmm-compile opcode shufpd
  
!     $50 '      xmm-compile opcode movmskps
!     $50 '     dxmm-compile opcode movmskpd
  
!     $51 '      xmm-compile opcode sqrtps
!     $51 '     dxmm-compile opcode sqrtpd
!     $51 '  pre-xmm-compile opcode sqrtss
!     $51 ' pre-dxmm-compile opcode sqrtsd
  
!     $52 '      xmm-compile opcode rsqrtps
!     $52 '     dxmm-compile opcode rsqrtpd
!     $52 '  pre-xmm-compile opcode rsqrtss
!     $52 ' pre-dxmm-compile opcode rsqrtsd
  
!     $53 '      xmm-compile opcode rcpps
!     $53 '     dxmm-compile opcode rcppd
!     $53 '  pre-xmm-compile opcode rcpss
!     $53 ' pre-dxmm-compile opcode rcpds
  
!     $54 '      xmm-compile opcode andps
!     $54 '     dxmm-compile opcode andpd
!     $55 '      xmm-compile opcode andnps
!     $55 '     dxmm-compile opcode andnpd
!     $56 '      xmm-compile opcode orps
!     $56 '     dxmm-compile opcode orpd
!     $57 '      xmm-compile opcode xorps
!     $57 '     dxmm-compile opcode xorpd
  
!     $58 '      xmm-compile opcode addps
!     $58 '     dxmm-compile opcode addpd
!     $58 '  pre-xmm-compile opcode addss
!     $58 ' pre-dxmm-compile opcode addsd
  
!     $59 '      xmm-compile opcode mulps
!     $59 '     dxmm-compile opcode mulpd
!     $59 '  pre-xmm-compile opcode mulss
!     $59 ' pre-dxmm-compile opcode mulsd
  
!     $5B '     dxmm-compile opcode cvttpd2dq
  
!     $5C '      xmm-compile opcode subps
!     $5C '     dxmm-compile opcode subpd
!     $5C '  pre-xmm-compile opcode subss
!     $5C ' pre-dxmm-compile opcode subsd
  
!     $5D '      xmm-compile opcode minps
!     $5D '     dxmm-compile opcode minpd
!     $5D '  pre-xmm-compile opcode minss
!     $5D ' pre-dxmm-compile opcode minsd
  
!     $5E '      xmm-compile opcode divps
!     $5E '     dxmm-compile opcode divpd
!     $5E '  pre-xmm-compile opcode divss
!     $5E ' pre-dxmm-compile opcode divsd
  
!     $5F '      xmm-compile opcode maxps
!     $5F '     dxmm-compile opcode maxpd
!     $5F '  pre-xmm-compile opcode maxss
!     $5F ' pre-dxmm-compile opcode maxsd
  
  in-previous
--- 88,199 ----
  
     0xc0df '    fmisc-compile  opcode ffreep
+ 
  dup-warning-on
  
  \  xmm instructions
!      0x10 '      xmm-compile opcode movups
!      0x10 '     dxmm-compile opcode movupd
!      0x10 '  pre-xmm-compile opcode movss
  dup-warning-off
!      0x10 ' pre-dxmm-compile opcode movsd
  dup-warning-on
!      0x14 '      xmm-compile opcode unpcklps
!      0x14 '     dxmm-compile opcode unpcklpd
!      0x15 '      xmm-compile opcode unpckhps
!      0x15 '     dxmm-compile opcode unpckhpd
  
!      0x28 '      xmm-compile opcode movaps
!      0x28 '     dxmm-compile opcode movapd
  
!      0x2A '      xmm-compile opcode cvtpi2ps
!      0x2A '     dxmm-compile opcode cvtpi2pd
!      0x2A '  pre-xmm-compile opcode cvtsi2ss
!      0x2A ' pre-dxmm-compile opcode cvtsi2sd
  
!      0x2C '      xmm-compile opcode cvttps2pi
!      0x2C '     dxmm-compile opcode cvttpd2pi
!      0x2C '  pre-xmm-compile opcode cvttss2si
!      0x2C ' pre-dxmm-compile opcode cvttsd2si
  
!      0x2D '      xmm-compile opcode cvtps2pi
!      0x2D '     dxmm-compile opcode cvtpd2pi
!      0x2D '  pre-xmm-compile opcode cvtss2si
!      0x2D ' pre-dxmm-compile opcode cvtsd2si
  
!      0xE6 '  pre-xmm-compile opcode cvtdq2pd
!      0xE6 ' pre-dxmm-compile opcode cvtpd2dq
  
!      0x2E '      xmm-compile opcode ucomiss
!      0x2E '     dxmm-compile opcode ucomisd
  
!      0x2F '      xmm-compile opcode comiss
!      0x2F '     dxmm-compile opcode comisd
  
!      0xC2 '      xmm-compile opcode cmpps
!      0xC2 '     dxmm-compile opcode cmppd
!      0xC2 '  pre-xmm-compile opcode cmpss
!      0xC2 ' pre-dxmm-compile opcode xcmpsd
  
!      0xC6 '      xmm-compile opcode shufps
!      0xC6 '     dxmm-compile opcode shufpd
  
!      0x50 '      xmm-compile opcode movmskps
!      0x50 '     dxmm-compile opcode movmskpd
  
!      0x51 '      xmm-compile opcode sqrtps
!      0x51 '     dxmm-compile opcode sqrtpd
!      0x51 '  pre-xmm-compile opcode sqrtss
!      0x51 ' pre-dxmm-compile opcode sqrtsd
  
!      0x52 '      xmm-compile opcode rsqrtps
!      0x52 '     dxmm-compile opcode rsqrtpd
!      0x52 '  pre-xmm-compile opcode rsqrtss
!      0x52 ' pre-dxmm-compile opcode rsqrtsd
  
!      0x53 '      xmm-compile opcode rcpps
!      0x53 '     dxmm-compile opcode rcppd
!      0x53 '  pre-xmm-compile opcode rcpss
!      0x53 ' pre-dxmm-compile opcode rcpds
  
!      0x54 '      xmm-compile opcode andps
!      0x54 '     dxmm-compile opcode andpd
!      0x55 '      xmm-compile opcode andnps
!      0x55 '     dxmm-compile opcode andnpd
!      0x56 '      xmm-compile opcode orps
!      0x56 '     dxmm-compile opcode orpd
!      0x57 '      xmm-compile opcode xorps
!      0x57 '     dxmm-compile opcode xorpd
  
!      0x58 '      xmm-compile opcode addps
!      0x58 '     dxmm-compile opcode addpd
!      0x58 '  pre-xmm-compile opcode addss
!      0x58 ' pre-dxmm-compile opcode addsd
  
!      0x59 '      xmm-compile opcode mulps
!      0x59 '     dxmm-compile opcode mulpd
!      0x59 '  pre-xmm-compile opcode mulss
!      0x59 ' pre-dxmm-compile opcode mulsd
  
!      0x5B '     dxmm-compile opcode cvttpd2dq
  
!      0x5C '      xmm-compile opcode subps
!      0x5C '     dxmm-compile opcode subpd
!      0x5C '  pre-xmm-compile opcode subss
!      0x5C ' pre-dxmm-compile opcode subsd
  
!      0x5D '      xmm-compile opcode minps
!      0x5D '     dxmm-compile opcode minpd
!      0x5D '  pre-xmm-compile opcode minss
!      0x5D ' pre-dxmm-compile opcode minsd
  
!      0x5E '      xmm-compile opcode divps
!      0x5E '     dxmm-compile opcode divpd
!      0x5E '  pre-xmm-compile opcode divss
!      0x5E ' pre-dxmm-compile opcode divsd
  
!      0x5F '      xmm-compile opcode maxps
!      0x5F '     dxmm-compile opcode maxpd
!      0x5F '  pre-xmm-compile opcode maxss
!      0x5F ' pre-dxmm-compile opcode maxsd
  
  in-previous

Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** 486ASM.F	10 Dec 2014 12:27:11 -0000	1.11
--- 486ASM.F	12 Dec 2014 12:20:38 -0000	1.12
***************
*** 346,353 ****
   9 constant treg        ( a test register )
  0a constant freg        ( a floating point register )
! \ $0B constant offs     ( offset; relative or absolute address ) \ reserved, not in use
! \ $0C constant moffs    ( memory offset; relative or absolute address ) \ reserved not in use
! $0D constant mmxreg           ( an MMX or 3D-Now! register )
! $0E constant xmmreg	      ( an XMM register )
  
  
--- 346,353 ----
   9 constant treg        ( a test register )
  0a constant freg        ( a floating point register )
! \ 0B constant offs     ( offset; relative or absolute address ) \ reserved, not in use
! \ 0C constant moffs    ( memory offset; relative or absolute address ) \ reserved not in use
! 0D constant mmxreg           ( an MMX or 3D-Now! register )
! 0E constant xmmreg	      ( an XMM register )
  
  
***************
*** 1789,1797 ****
  : (xmm-compile) ( param -- | x \ param -- | x \ x \ param -- )
  	mmxreg  generic-entry2 mmx-dir?
!            if   $10 or
             endif
  	xmm/mmx-prefix data-@ 2 =
             if   xmm-dir?
!                    if  $11 or
                     endif
             endif
--- 1789,1797 ----
  : (xmm-compile) ( param -- | x \ param -- | x \ x \ param -- )
  	mmxreg  generic-entry2 mmx-dir?
!            if   10 or
             endif
  	xmm/mmx-prefix data-@ 2 =
             if   xmm-dir?
!                    if  11 or
                     endif
             endif