--- gforth/arch/alpha/testasm.fs	1999/02/02 22:02:55	1.1
+++ gforth/arch/alpha/testasm.fs	2007/12/31 18:40:25	1.8
@@ -1,4 +1,22 @@
-here
+\ Copyright (C) 2000,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/.
+
+also assembler
+create test_asm
 1 2 3 addf,
 1 2 3 addg,
 1 2 3 addl,
@@ -13,20 +31,20 @@ here
 1 2 3 addt,
 1 2 3 and,
 1 2 3 and#,
-1 2   beq,
-1 2   bge,
-1 2   bgt,
+1 here beq,
+1 here bge,
+1 here bgt,
 1 2 3 bic,
 1 2 3 bic#,
 1 2 3 bis,
 1 2 3 bis#,
-1 2   blbc,
-1 2   blbs,
-1 2   ble,
-1 2   blt,
-1 2   bne,
-1 2   br,
-1 2   bsr,
+1 here blbc,
+1 here blbs,
+1 here ble,
+1 here blt,
+1 here bne,
+1 here br,
+1 here bsr,
 1     call_pal,
 1 2 3 cmoveq,
 1 2 3 cmoveq#,
@@ -102,12 +120,12 @@ here
 1 2 3 extwh#,
 1 2 3 extwl,
 1 2 3 extwl#,
-1 2   fbeq,
-1 2   fbge,
-1 2   fbgt,
-1 2   fble,
-1 2   fblt,
-1 2   fbne,
+1 here fbeq,
+1 here fbge,
+1 here fbgt,
+1 here fble,
+1 here fblt,
+1 here fbne,
 1 2 3 fcmoveq,
 1 2 3 fcmovge,
 1 2 3 fcmovgt,
@@ -232,4 +250,13 @@ here
 1 2 3 zap#,
 1 2 3 zapnot,
 1 2 3 zapnot#,
-
+5 gt if,
+begin,
+ahead,
+2 cs-roll
+else,
+endif,
+endif,
+6 lbs while,
+repeat,
+previous
\ No newline at end of file