;  ###----------------------------------------------------------------###
;  # file	: srl000.u						#
;  # date	: Jul  7 1995						#
;  # descr.	: functional test for mips				#
;  ###----------------------------------------------------------------###

	;  ###--------------------------------------------------------###
	;  #   shift right logical					#
	;  ###--------------------------------------------------------###

shift_nbr	.equ	13
data		.equ	0x6479

		.org	0x00400000
		.start	init

init:
		addiu	r13, r0 , shift_nbr
		addiu	r14, r0 , data

		srlv 	r14, r14, r13
		addiu	r12, r0, (data & 0x0000ffff) >> shift_nbr
		beq	r12, r14,good
		nop
		j	bad
		nop

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