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

version 1.5, 2000/07/31 19:56:08 version 1.13, 2007/12/31 19:02:24
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,2003,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 17 Line 17
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ 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, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, 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 53  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 299  $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 593  $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.13


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