version 1.1, 1999/02/02 22:02:55
|
version 1.8, 2007/12/31 18:40:25
|
Line 1
|
Line 1
|
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 addf, |
1 2 3 addg, |
1 2 3 addg, |
1 2 3 addl, |
1 2 3 addl, |
Line 13 here
|
Line 31 here
|
1 2 3 addt, |
1 2 3 addt, |
1 2 3 and, |
1 2 3 and, |
1 2 3 and#, |
1 2 3 and#, |
1 2 beq, |
1 here beq, |
1 2 bge, |
1 here bge, |
1 2 bgt, |
1 here bgt, |
1 2 3 bic, |
1 2 3 bic, |
1 2 3 bic#, |
1 2 3 bic#, |
1 2 3 bis, |
1 2 3 bis, |
1 2 3 bis#, |
1 2 3 bis#, |
1 2 blbc, |
1 here blbc, |
1 2 blbs, |
1 here blbs, |
1 2 ble, |
1 here ble, |
1 2 blt, |
1 here blt, |
1 2 bne, |
1 here bne, |
1 2 br, |
1 here br, |
1 2 bsr, |
1 here bsr, |
1 call_pal, |
1 call_pal, |
1 2 3 cmoveq, |
1 2 3 cmoveq, |
1 2 3 cmoveq#, |
1 2 3 cmoveq#, |
Line 102 here
|
Line 120 here
|
1 2 3 extwh#, |
1 2 3 extwh#, |
1 2 3 extwl, |
1 2 3 extwl, |
1 2 3 extwl#, |
1 2 3 extwl#, |
1 2 fbeq, |
1 here fbeq, |
1 2 fbge, |
1 here fbge, |
1 2 fbgt, |
1 here fbgt, |
1 2 fble, |
1 here fble, |
1 2 fblt, |
1 here fblt, |
1 2 fbne, |
1 here fbne, |
1 2 3 fcmoveq, |
1 2 3 fcmoveq, |
1 2 3 fcmovge, |
1 2 3 fcmovge, |
1 2 3 fcmovgt, |
1 2 3 fcmovgt, |
Line 232 here
|
Line 250 here
|
1 2 3 zap#, |
1 2 3 zap#, |
1 2 3 zapnot, |
1 2 3 zapnot, |
1 2 3 zapnot#, |
1 2 3 zapnot#, |
|
5 gt if, |
|
begin, |
|
ahead, |
|
2 cs-roll |
|
else, |
|
endif, |
|
endif, |
|
6 lbs while, |
|
repeat, |
|
previous |
|
|