[Win32forth-cvs] win32forth-stc/src 486asm.f, 1.4, 1.5 BUTTON.F, 1.1, 1.2 float.f, 1.8, 1.9

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv4298

Modified Files:
	486asm.f BUTTON.F float.f 
Log Message:
Fixed FEXPM1 and JECXZ.

Index: BUTTON.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/BUTTON.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BUTTON.F	8 May 2007 08:34:39 -0000	1.1
--- BUTTON.F	7 Aug 2010 20:58:07 -0000	1.2
***************
*** 3,7 ****
  
  Require controls.f
! REquire childwnd.f
  
  cr .( Loading Button and ToolBar...)
--- 3,7 ----
  
  Require controls.f
! Require childwnd.f
  
  cr .( Loading Button and ToolBar...)

Index: float.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/float.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** float.f	11 May 2007 13:59:15 -0000	1.8
--- float.f	7 Aug 2010 20:58:07 -0000	1.9
***************
*** 1166,1171 ****
                  fchs
                  jmp     short L$4
!                 fld     st(0)           \ duplicate exponent       \ 2
! L$3:            frndint                 \ take integer part        \ 2
                  fsub    st(1), st       \ get fractional part      \ 2
                  fld1                                               \ 3
--- 1166,1171 ----
                  fchs
                  jmp     short L$4
! L$3:            fld     st(0)           \ duplicate exponent       \ 2
!                 frndint                 \ take integer part        \ 2
                  fsub    st(1), st       \ get fractional part      \ 2
                  fld1                                               \ 3
***************
*** 1417,1425 ****
  external
  
! : f**           ( F: r1 r2 -- r3 )
!                 fswap fln f* fexp ;
! 
! synonym  f^x f** \ DEPRECATED
! \ <-- rbs
  
  internal
--- 1417,1426 ----
  external
  
! : f**           ( fs: r1 r2 -- r3 )       \ ANSI            Floating ext
! \ *G Raise r1 to the power r2, giving the product r3.
!                 FDUP FROUND FDUP F>S F- FDUP F0=
!                 if    FDROP F**N
!                 else      FOVER FLN F* FEXP FSWAP F**N F*
!                 THEN    ;
  
  internal
***************
*** 1565,1569 ****
  
  code sig>f      ( f: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack
!                 fbld    fbcd-buf
                  fpu>
                  float;
--- 1566,1570 ----
  
  code sig>f      ( f: -- r ) \ Push contents of 80-bit BCD number in fbcd-buf onto FP stack
!                 fbld    fbcd-buf [up]
                  fpu>
                  float;

Index: 486asm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/486asm.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 486asm.f	24 Apr 2007 08:50:32 -0000	1.4
--- 486asm.f	7 Aug 2010 20:58:07 -0000	1.5
***************
*** 1890,1894 ****
       72 '      jcc-compile opcode jb     ' jb   dup alias jnae  alias jc
       76 '      jcc-compile opcode jbe    ' jbe      alias jna
!     0e3 '     jcxz-compile opcode jcxz   ' jcxz     alias jecxz
       74 '      jcc-compile opcode je     ' je       alias jz
       7f '      jcc-compile opcode jg     ' jg       alias jnle
--- 1890,1895 ----
       72 '      jcc-compile opcode jb     ' jb   dup alias jnae  alias jc
       76 '      jcc-compile opcode jbe    ' jbe      alias jna
!     0e3 '     jcxz-compile opcode jcxz
!     0e3 '    jecxz-compile opcode jecxz
       74 '      jcc-compile opcode je     ' je       alias jz
       7f '      jcc-compile opcode jg     ' jg       alias jnle