Subversion Repositories eco32

;
; jalrtest.s -- test the special case 'jalr $31'
;
 
; One of the following 4 possibilities is displayed:
;   0 = jump not executed, return address not stored in $31
;   1 = jump was executed, return address not stored in $31
;   2 = jump not executed, return address stored in $31
;   3 = jump was executed, return address stored in $31
 
	.set	io_base,0xF0300000
 
	add	$16,$0,x
	add	$31,$0,$16
	jalr	$31
	add	$4,$0,0
	j	y
x:
	add	$4,$0,1
y:
	beq	$31,$16,z
	add	$4,$4,2
z:
	add	$4,$4,0x30
	jal	out
halt:
	j	halt
 
out:
	add	$8,$0,io_base
out1:
	ldw	$9,$8,8
	and	$9,$9,1
	beq	$9,$0,out1
	stw	$4,$8,12
	jr	$31