[BACK]Return to asm.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / 386

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

version 1.4, 2000/07/30 19:56:05 version 1.13, 2007/12/31 19:02:24
Line 1 Line 1
 \         *** Assembler for the Intel i486 ***         07nov92py  \         *** Assembler for the Intel i486 ***         07nov92py
   
   \ Copyright (C) 1992-2000 by Bernd Paysan
   
   \ Copyright (C) 2000,2001,2003,2007 Free Software Foundation, Inc.
   
   \ This file is part of Gforth.
   
   \ Gforth is free software; you can redistribute it and/or
   \ modify it under the terms of the GNU General Public License
   \ as published by the Free Software Foundation, either version 3
   \ of the License, or (at your option) any later version.
   
   \ This program is distributed in the hope that it will be useful,
   \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   \ GNU General Public License for more details.
   
   \ You should have received a copy of the GNU General Public License
   \ along with this program. If not, see http://www.gnu.org/licenses/.
 \   \ 
 \ 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 34  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 280  $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 574  $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.4  
changed lines
  Added in v.1.13

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