version 1.5, 2000/06/29 16:46:13
|
version 1.7, 2000/09/23 15:47:01
|
Line 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
\ contributed by Bernd Thallner |
\ contributed by Bernd Thallner |
|
|
\ util |
\ util |
|
|
require asm.fs |
\ require asm.fs |
|
|
\ : h@ ( addr -- n ) \ 32 bit fetch |
\ : h@ ( addr -- n ) \ 32 bit fetch |
\ dup dup aligned = if |
\ dup dup aligned = if |