;  ###----------------------------------------------------------------###
;  # file	: jalr0001u						#
;  # date	: Nov 1996						#
;  # descr.	: functional test for mips				#
;  ###----------------------------------------------------------------###

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

const		.equ	0x14feb445
const1		.equ    0x004000a0
		.org	0x00400000

		.start	init

init:
		loadi	r23, const
		loadi	r24, (4 * const)
		loadi   r1 , const1
		jalr	r1
		
		nop
		jalr    r1	
		
		nop	
		beq	r24 ,r23, good 
		nop
		j	bad
		nop

	
		.org    0x004000a0	
		addu	r23, r23, r23
		jr	r31
		nop

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