--- gforth/arch/386/asm.fs	2000/07/30 19:56:05	1.4
+++ gforth/arch/386/asm.fs	2007/12/31 18:40:24	1.12
@@ -1,4 +1,23 @@
 \         *** Assembler for the Intel i486 ***         07nov92py
+
+\ Copyright (C) 1992-2000 by Bernd Paysan
+
+\ Copyright (C) 2000,2001,2003 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
 \ reversed. Size prefixes are used instead of AX/EAX. Example:
@@ -34,7 +53,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
 
@@ -280,7 +299,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
@@ -574,5 +593,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 !