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

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

const		.equ	0x00000002

		.org	0x00400000

		.start	init

init:
		loadi	r23, const
		loadi	r24, (4 * const)

		jal	mul2
		nop
		jal	mul2
		nop

		beq	r24 ,r23, good 
		nop
		j	bad
		nop

mul2 :
		addu	r23, r23, r23
		jr	r31
		nop

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