version 1.4, 2000/06/17 19:38:28
|
version 1.8, 2007/12/31 18:40:25
|
Line 1
|
Line 1
|
|
\ 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 |
create test_asm |
1 2 3 addf, |
1 2 3 addf, |
1 2 3 addg, |
1 2 3 addg, |
Line 232 create test_asm
|
Line 250 create test_asm
|
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 |
|
|