2N/A\ #pragma 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/A." Access test: "
2N/A0 value word-test
2N/A0 value char-test
2N/A0 value end-test
2N/A0 value end-test2
2N/Avariable var-test
2N/Acreate access-test
2N/A h# 80004000 l,
2N/A here to word-test
2N/A h# 8000 w, h# 4000 w,
2N/A here to char-test
2N/A h# 1 c, h# 2 c, h# 3 c, h# 4 c,
2N/A here to end-test
2N/A h# a55aa55a ,
2N/A here to end-test2
2N/A
2N/A
2N/A " l,+" access-test la1+ word-test = .passed?
2N/A " w,+" word-test 2 wa+ char-test = .passed?
2N/A " c,+" char-test 4 ca+ end-test = .passed?
2N/A " ,+" end-test cell+ end-test2 = .passed?
2N/A " c@.1" char-test c@ h# 1 = .passed?
2N/A " c@.2" char-test char+ c@ h# 2 = .passed?
2N/A " c@.3" char-test 2 ca+ c@ h# 3 = .passed?
2N/A " c@.4" char-test 3 ca+ c@ h# 4 = .passed?
2N/A " w@.1" access-test w@ h# 8000 = .passed?
2N/A " w@.2" access-test wa1+ w@ h# 4000 = .passed?
2N/A " w@.3" word-test w@ h# 8000 = .passed?
2N/A " w@.4" word-test wa1+ w@ h# 4000 = .passed?
2N/A " w@.5" char-test w@ h# 0102 = .passed?
2N/A " w@.6" char-test wa1+ w@ h# 0304 = .passed?
2N/A " <w@" access-test <w@ h# ffff8000 = .passed?
2N/A " l@.1" access-test l@ h# 80004000 = .passed?
2N/A " l@.2" word-test l@ h# 80004000 = .passed?
2N/A " l@.3" char-test l@ h# 01020304 = .passed?
2N/A " @!.1" h# 5a5aa5a5 var-test ! var-test @ h# 5a5aa5a5 = .passed?
2N/A " c@c!.1" h# 55 var-test c! var-test c@ h# 55 = .passed?
2N/A " w@w!.1" h# aa55 var-test w! var-test w@ h# aa55 = .passed?
2N/A " l@l!.1" h# 5555aaaa var-test l! var-test l@ h# 5555aaaa = .passed?
2N/A " @!.1" h# aaaa5555 var-test ! var-test @ h# aaaa5555 = .passed?
2N/A " +!.1" 2 var-test ! 3 var-test +! var-test @ 5 = .passed?
2N/A " 2!.1" 1 2 access-test 2! access-test @ 2 =
2N/A access-test cell+ @ 1 = and .passed?
2N/A " 2@.1" access-test 2@ 2 = swap 1 = and .passed?
2N/Acr