--- gforth/arch/386/asm.fs	2000/07/31 19:56:08	1.5
+++ gforth/arch/386/asm.fs	2003/08/25 14:17:47	1.11
@@ -2,7 +2,7 @@
 
 \ Copyright (C) 1992-2000 by Bernd Paysan
 
-\ Copyright (C) 2000 Free Software Foundation, Inc.
+\ Copyright (C) 2000,2001,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -18,7 +18,7 @@
 
 \ You should have received a copy of the GNU General Public License
 \ 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
 \ reversed. Size prefixes are used instead of AX/EAX. Example:
@@ -54,7 +54,7 @@ base @ get-current ALSO ASSEMBLER DEFINI
 
 Variable >codes
 : (+rel      ;
-Create nrc  ] c,   here  allot  c! (+rel [
+Create nrc  ' c, A, ' here A, ' allot A, ' c! A, ' (+rel A,
 
 : nonrelocate   nrc >codes ! ;      nonrelocate
 
@@ -300,7 +300,7 @@ $27 bc: DAA     $2F bc: DAS     $37 bc:
 : aa:  Create c,
     DOES> ( -- ) c@
     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
 $90 bc: NOP
@@ -594,5 +594,5 @@ $BB 3Dnow: PSWABD               : SFENCE
 : makeflag   [A] ~cond AL swap setIF  1 # AX and  AX dec [F] ;
 
 
-previous set-current decimal base !
+previous previous set-current decimal base !