#
# jump.pasm
#
# A program to test the 'jump_i' opcode.
#
# Copyright (C) 2001 Gregor N. Purdy. All rights reserved.
# This program is free software. It is subject to the same
# license as Perl itself.
#
# $Id: jump.pasm,v 1.1 2001/09/17 14:05:08 gregor Exp $
#

MAIN:       print "Jump test.\n"
            print "Jumping to subroutine...\n"
            set I1, 5
            jump I1

RET:        print "Returned from subroutine!\n"
            end

SUB:        print "Entered subroutine...\n"
            set I2, -8
            jump I2