# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: stack.pasm 16335 2006-12-30 18:37:15Z bernhard $

=head1 NAME

examples/pasm/stack.pasm - User Stack

=head1 SYNOPSIS

    % ./parrot examples/pasm/stack.pasm

=head1 DESCRIPTION

Shows you how to C<set>, C<save>, C<restore> and C<print>.

=cut

	set I1, 0
	save I1
	set I1, 1
	save I1
	set I1, 2
	save I1
	set I1, 3
	save I1
	set I1, 4
	save I1
	set I1, 5
	save I1
	set I1, 6
	save I1
	set I1, 7
	save I1
	set I1, 8
	save I1
	set I1, 9
	save I1

	set I1, 0
	save I1
	set I1, 1
	save I1
	set I1, 2
	save I1
	set I1, 3
	save I1
	set I1, 4
	save I1
	set I1, 5
	save I1
	set I1, 6
	save I1
	set I1, 7
	save I1
	set I1, 8
	save I1
	set I1, 9
        save I1

	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
        print " "

	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
        restore I1
        print I1
        print " "

	set I1, 0
	print I1
	save I1
	set I1, 1
	print I1
	save I1
	set I1, 2
	print I1
	save I1
	set I1, 3
	print I1
	save I1
	set I1, 4
	print I1
	save I1
	set I1, 5
	print I1
	save I1
	set I1, 6
	print I1
	save I1
	set I1, 7
	print I1
	save I1
	set I1, 8
	print I1
	save I1
	set I1, 9
	print I1
	save I1
        print " "

	set I1, 0
	print I1
	save I1
	set I1, 1
	print I1
	save I1
	set I1, 2
	print I1
	save I1
	set I1, 3
	print I1
	save I1
	set I1, 4
	print I1
	save I1
	set I1, 5
	print I1
	save I1
	set I1, 6
	print I1
	save I1
	set I1, 7
	print I1
	save I1
	set I1, 8
	print I1
	save I1
	set I1, 9
	print I1
	save I1
        print " "

	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
        print " "

	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
	restore I1
	print I1
        restore I1
        print I1
	print "\n"
 	end
