;  ###----------------------------------------------------------------###
;  # file	: jal001.u						#
;  # date	: Mar 26 1996						#
;  # descr.	: functional test for mips				#
;  ###----------------------------------------------------------------###

	;  ###--------------------------------------------------------###
	;  #   jump and link						#
	;  ###--------------------------------------------------------###

data		.equ	0x14feb445

		.org	0x00400000
		.start	init

init:
		loadi	r16, data
		loadi	r17, (data << 2)

		jal	sub_prog
		nop
		jal	sub_prog
		nop

		bne	r16, r17,bad
		nop
		j	good
		nop

sub_prog :
		sll	r16, r16, 1
		jr	r31
		nop

		.org	0x004000d0
good:		j	good
		nop
bad:		j	bad
		nop
		.end