Diff for /gforth/arch/386/asm.fs between versions 1.5 and 1.10

version 1.5, 2000/07/31 19:56:08 version 1.10, 2003/03/09 15:16:57
Line 2 Line 2
   
 \ Copyright (C) 1992-2000 by Bernd Paysan  \ Copyright (C) 1992-2000 by Bernd Paysan
   
 \ Copyright (C) 2000 Free Software Foundation, Inc.  \ Copyright (C) 2000,2001 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 18 Line 18
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 \   \ 
 \ The syntax is reverse polish. Source and destination are  \ The syntax is reverse polish. Source and destination are
 \ reversed. Size prefixes are used instead of AX/EAX. Example:  \ reversed. Size prefixes are used instead of AX/EAX. Example:
Line 54  base @ get-current ALSO ASSEMBLER DEFINI Line 54  base @ get-current ALSO ASSEMBLER DEFINI
   
 Variable >codes  Variable >codes
 : (+rel      ;  : (+rel      ;
 Create nrc  ] c,   here  allot  c! (+rel [  Create nrc  ' c, A, ' here A, ' allot A, ' c! A, ' (+rel A,
   
 : nonrelocate   nrc >codes ! ;      nonrelocate  : nonrelocate   nrc >codes ! ;      nonrelocate
   
Line 300  $27 bc: DAA     $2F bc: DAS     $37 bc: Line 300  $27 bc: DAA     $2F bc: DAS     $37 bc:
 : aa:  Create c,  : aa:  Create c,
     DOES> ( -- ) c@      DOES> ( -- ) c@
     imm# @ 0= IF  &10 imm !  THEN  1 imm# ! finish ;      imm# @ 0= IF  &10 imm !  THEN  1 imm# ! finish ;
 $D4 aa: AAM     $D5 aa: AAD                     $D7 bc: XLAT  $D4 aa: AAM     $D5 aa: AAD     $D6 bc: SALC    $D7 bc: XLAT
   
 $60 bc: PUSHA   $61 bc: POPA  $60 bc: PUSHA   $61 bc: POPA
 $90 bc: NOP  $90 bc: NOP
Line 594  $BB 3Dnow: PSWABD               : SFENCE Line 594  $BB 3Dnow: PSWABD               : SFENCE
 : makeflag   [A] ~cond AL swap setIF  1 # AX and  AX dec [F] ;  : makeflag   [A] ~cond AL swap setIF  1 # AX and  AX dec [F] ;
   
   
 previous set-current decimal base !  previous previous set-current decimal base !
   

Removed from v.1.5  
changed lines
  Added in v.1.10


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>