1*7c478bd9Sstevel@tonic-gate\ #pragma ident "%Z%%M% %I% %E% SMI" 2*7c478bd9Sstevel@tonic-gate\ Copyright 2005 Sun Microsystems, Inc. All rights reserved. 3*7c478bd9Sstevel@tonic-gate\ Use is subject to license terms. 4*7c478bd9Sstevel@tonic-gate\ 5*7c478bd9Sstevel@tonic-gate\ CDDL HEADER START 6*7c478bd9Sstevel@tonic-gate\ 7*7c478bd9Sstevel@tonic-gate\ The contents of this file are subject to the terms of the 8*7c478bd9Sstevel@tonic-gate\ Common Development and Distribution License, Version 1.0 only 9*7c478bd9Sstevel@tonic-gate\ (the "License"). You may not use this file except in compliance 10*7c478bd9Sstevel@tonic-gate\ with the License. 11*7c478bd9Sstevel@tonic-gate\ 12*7c478bd9Sstevel@tonic-gate\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 13*7c478bd9Sstevel@tonic-gate\ or http://www.opensolaris.org/os/licensing. 14*7c478bd9Sstevel@tonic-gate\ See the License for the specific language governing permissions 15*7c478bd9Sstevel@tonic-gate\ and limitations under the License. 16*7c478bd9Sstevel@tonic-gate\ 17*7c478bd9Sstevel@tonic-gate\ When distributing Covered Code, include this CDDL HEADER in each 18*7c478bd9Sstevel@tonic-gate\ file and include the License file at usr/src/OPENSOLARIS.LICENSE. 19*7c478bd9Sstevel@tonic-gate\ If applicable, add the following below this CDDL HEADER, with the 20*7c478bd9Sstevel@tonic-gate\ fields enclosed by brackets "[]" replaced with your own identifying 21*7c478bd9Sstevel@tonic-gate\ information: Portions Copyright [yyyy] [name of copyright owner] 22*7c478bd9Sstevel@tonic-gate\ 23*7c478bd9Sstevel@tonic-gate\ CDDL HEADER END 24*7c478bd9Sstevel@tonic-gate\ 25*7c478bd9Sstevel@tonic-gate 26*7c478bd9Sstevel@tonic-gate." Access test: " 27*7c478bd9Sstevel@tonic-gate0 value word-test 28*7c478bd9Sstevel@tonic-gate0 value char-test 29*7c478bd9Sstevel@tonic-gate0 value end-test 30*7c478bd9Sstevel@tonic-gate0 value end-test2 31*7c478bd9Sstevel@tonic-gatevariable var-test 32*7c478bd9Sstevel@tonic-gatecreate access-test 33*7c478bd9Sstevel@tonic-gate h# 80004000 l, 34*7c478bd9Sstevel@tonic-gate here to word-test 35*7c478bd9Sstevel@tonic-gate h# 8000 w, h# 4000 w, 36*7c478bd9Sstevel@tonic-gate here to char-test 37*7c478bd9Sstevel@tonic-gate h# 1 c, h# 2 c, h# 3 c, h# 4 c, 38*7c478bd9Sstevel@tonic-gate here to end-test 39*7c478bd9Sstevel@tonic-gate h# a55aa55a , 40*7c478bd9Sstevel@tonic-gate here to end-test2 41*7c478bd9Sstevel@tonic-gate 42*7c478bd9Sstevel@tonic-gate 43*7c478bd9Sstevel@tonic-gate " l,+" access-test la1+ word-test = .passed? 44*7c478bd9Sstevel@tonic-gate " w,+" word-test 2 wa+ char-test = .passed? 45*7c478bd9Sstevel@tonic-gate " c,+" char-test 4 ca+ end-test = .passed? 46*7c478bd9Sstevel@tonic-gate " ,+" end-test cell+ end-test2 = .passed? 47*7c478bd9Sstevel@tonic-gate " c@.1" char-test c@ h# 1 = .passed? 48*7c478bd9Sstevel@tonic-gate " c@.2" char-test char+ c@ h# 2 = .passed? 49*7c478bd9Sstevel@tonic-gate " c@.3" char-test 2 ca+ c@ h# 3 = .passed? 50*7c478bd9Sstevel@tonic-gate " c@.4" char-test 3 ca+ c@ h# 4 = .passed? 51*7c478bd9Sstevel@tonic-gate " w@.1" access-test w@ h# 8000 = .passed? 52*7c478bd9Sstevel@tonic-gate " w@.2" access-test wa1+ w@ h# 4000 = .passed? 53*7c478bd9Sstevel@tonic-gate " w@.3" word-test w@ h# 8000 = .passed? 54*7c478bd9Sstevel@tonic-gate " w@.4" word-test wa1+ w@ h# 4000 = .passed? 55*7c478bd9Sstevel@tonic-gate " w@.5" char-test w@ h# 0102 = .passed? 56*7c478bd9Sstevel@tonic-gate " w@.6" char-test wa1+ w@ h# 0304 = .passed? 57*7c478bd9Sstevel@tonic-gate " <w@" access-test <w@ h# ffff8000 = .passed? 58*7c478bd9Sstevel@tonic-gate " l@.1" access-test l@ h# 80004000 = .passed? 59*7c478bd9Sstevel@tonic-gate " l@.2" word-test l@ h# 80004000 = .passed? 60*7c478bd9Sstevel@tonic-gate " l@.3" char-test l@ h# 01020304 = .passed? 61*7c478bd9Sstevel@tonic-gate " @!.1" h# 5a5aa5a5 var-test ! var-test @ h# 5a5aa5a5 = .passed? 62*7c478bd9Sstevel@tonic-gate " c@c!.1" h# 55 var-test c! var-test c@ h# 55 = .passed? 63*7c478bd9Sstevel@tonic-gate " w@w!.1" h# aa55 var-test w! var-test w@ h# aa55 = .passed? 64*7c478bd9Sstevel@tonic-gate " l@l!.1" h# 5555aaaa var-test l! var-test l@ h# 5555aaaa = .passed? 65*7c478bd9Sstevel@tonic-gate " @!.1" h# aaaa5555 var-test ! var-test @ h# aaaa5555 = .passed? 66*7c478bd9Sstevel@tonic-gate " +!.1" 2 var-test ! 3 var-test +! var-test @ 5 = .passed? 67*7c478bd9Sstevel@tonic-gate " 2!.1" 1 2 access-test 2! access-test @ 2 = 68*7c478bd9Sstevel@tonic-gate access-test cell+ @ 1 = and .passed? 69*7c478bd9Sstevel@tonic-gate " 2@.1" access-test 2@ 2 = swap 1 = and .passed? 70*7c478bd9Sstevel@tonic-gatecr 71