2N/A\ #ident "%Z%%M% %I% %E% SMI"
2N/A\ Copyright 2005 Sun Microsystems, Inc. All rights reserved.
2N/A\ Use is subject to license terms.
2N/A\
2N/A\ CDDL HEADER START
2N/A\
2N/A\ The contents of this file are subject to the terms of the
2N/A\ Common Development and Distribution License, Version 1.0 only
2N/A\ (the "License"). You may not use this file except in compliance
2N/A\ with the License.
2N/A\
2N/A\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
2N/A\ or http://www.opensolaris.org/os/licensing.
2N/A\ See the License for the specific language governing permissions
2N/A\ and limitations under the License.
2N/A\
2N/A\ When distributing Covered Code, include this CDDL HEADER in each
2N/A\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.
2N/A\ If applicable, add the following below this CDDL HEADER, with the
2N/A\ fields enclosed by brackets "[]" replaced with your own identifying
2N/A\ information: Portions Copyright [yyyy] [name of copyright owner]
2N/A\
2N/A\ CDDL HEADER END
2N/A\
2N/A
2N/Afcode-version1
2N/A
2N/Aalias headerless headers
2N/A
2N/A fload calling.fth
2N/A noop
2N/A : .noop noop noop ;
2N/A
2N/A : .failed ." failed!" ;
2N/A
2N/A : .passed ." OK" ;
2N/A
2N/A fload iftest.fth
2N/A
2N/A : .chkstk depth if ." Stack Changed: " .s cr then ;
2N/A
2N/A .chkstk
2N/A fload arithmetic.fth
2N/A .chkstk
2N/A fload stack.fth
2N/A .chkstk
2N/A fload create.fth
2N/A .chkstk
2N/A fload bytemanipulate.fth
2N/A .chkstk
2N/A fload loop.fth
2N/A .chkstk
2N/A fload storage.fth
2N/A .chkstk
2N/A fload access.fth
2N/A .chkstk
2N/A fload case.fth
2N/A .chkstk
2N/A fload catch.fth
2N/A .chkstk
2N/A fload parse.fth
2N/A .chkstk
2N/A fload find.fth
2N/A .chkstk
2N/A fload misc.fth
2N/A .chkstk
2N/A cr ." End of Tests" cr
2N/A
2N/Aend0
2N/A