#
# stack.pasm
#
# Copyright (C) 2001-2003 The Perl Foundation.  All rights reserved.
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
# $Id: stack.pasm,v 1.3 2003/07/21 18:00:39 chromatic Exp $
#

	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
	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
	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
	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
	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
	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
	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
    end

