1178476Sjb/*
2178476Sjb * CDDL HEADER START
3178476Sjb *
4178476Sjb * The contents of this file are subject to the terms of the
5178476Sjb * Common Development and Distribution License (the "License").
6178476Sjb * You may not use this file except in compliance with the License.
7178476Sjb *
8178476Sjb * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9178476Sjb * or http://www.opensolaris.org/os/licensing.
10178476Sjb * See the License for the specific language governing permissions
11178476Sjb * and limitations under the License.
12178476Sjb *
13178476Sjb * When distributing Covered Code, include this CDDL HEADER in each
14178476Sjb * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15178476Sjb * If applicable, add the following below this CDDL HEADER, with the
16178476Sjb * fields enclosed by brackets "[]" replaced with your own identifying
17178476Sjb * information: Portions Copyright [yyyy] [name of copyright owner]
18178476Sjb *
19178476Sjb * CDDL HEADER END
20178476Sjb */
21178476Sjb
22178476Sjb/*
23178476Sjb * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
24178476Sjb * Use is subject to license terms.
25178476Sjb */
26178476Sjb
27178476Sjb#pragma ident	"%Z%%M%	%I%	%E% SMI"
28178476Sjb
29178476Sjb#pragma D option quiet
30178476Sjb
31178476Sjb
32178476SjbBEGIN
33178476Sjb{
34178476Sjb	a = 7;
35178476Sjb	b = 13;
36178476Sjb	val = (-a * b) + a;
37178476Sjb}
38178476Sjb
39178476Sjbtick-1ms
40178476Sjb{
41178476Sjb	incr = val % b;
42178476Sjb	val += a;
43178476Sjb}
44178476Sjb
45178476Sjbtick-1ms
46178476Sjb/val == 0/
47178476Sjb{
48178476Sjb	val += a;
49178476Sjb}
50178476Sjb
51178476Sjbtick-1ms
52178476Sjb/incr != 0/
53178476Sjb{
54178476Sjb	i++;
55178476Sjb	@[i] = quantize(0, incr);
56178476Sjb}
57178476Sjb
58178476Sjbtick-1ms
59178476Sjb/incr == 0/
60178476Sjb{
61178476Sjb	printa(@);
62178476Sjb	exit(0);
63178476Sjb}
64