1N/A\ #ident "%Z%%M% %I% %E% SMI"

1N/A\ Copyright 2005 Sun Microsystems, Inc. All rights reserved.

1N/A\ Use is subject to license terms.

1N/A\

1N/A\ CDDL HEADER START

1N/A\

1N/A\ The contents of this file are subject to the terms of the

1N/A\ Common Development and Distribution License, Version 1.0 only

1N/A\ (the "License"). You may not use this file except in compliance

1N/A\ with the License.

1N/A\

1N/A\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

1N/A\ or http://www.opensolaris.org/os/licensing.

1N/A\ See the License for the specific language governing permissions

1N/A\ and limitations under the License.

1N/A\

1N/A\ When distributing Covered Code, include this CDDL HEADER in each

1N/A\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.

1N/A\ If applicable, add the following below this CDDL HEADER, with the

1N/A\ fields enclosed by brackets "[]" replaced with your own identifying

1N/A\ information: Portions Copyright [yyyy] [name of copyright owner]

1N/A\

1N/A\ CDDL HEADER END

1N/A\

1N/A

1N/Afcode-version1

1N/A

1N/Aalias headerless headers

1N/A

1N/A fload calling.fth

1N/A noop

1N/A : .noop noop noop ;

1N/A

1N/A : .failed ." failed!" ;

1N/A

1N/A : .passed ." OK" ;

1N/A

1N/A fload iftest.fth

1N/A

1N/A : .chkstk depth if ." Stack Changed: " .s cr then ;

1N/A

1N/A .chkstk

1N/A fload arithmetic.fth

1N/A .chkstk

1N/A fload stack.fth

1N/A .chkstk

1N/A fload create.fth

1N/A .chkstk

1N/A fload bytemanipulate.fth

1N/A .chkstk

1N/A fload loop.fth

1N/A .chkstk

1N/A fload storage.fth

1N/A .chkstk

1N/A fload access.fth

1N/A .chkstk

1N/A fload case.fth

1N/A .chkstk

1N/A fload catch.fth

1N/A .chkstk

1N/A fload parse.fth

1N/A .chkstk

1N/A fload find.fth

1N/A .chkstk

1N/A fload misc.fth

1N/A .chkstk

1N/A cr ." End of Tests" cr

1N/A

1N/Aend0

1N/A

1N/A