--- gforth/arch/386/asm.fs	2000/09/23 15:47:00	1.7
+++ gforth/arch/386/asm.fs	2007/12/31 19:02:24	1.13
@@ -2,13 +2,13 @@
 
 \ 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.
 
 \ 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 2
+\ 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,
@@ -17,8 +17,7 @@
 \ 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, write to the Free Software
-\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
+\ 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:
@@ -54,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
 
@@ -594,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 !