;  ###----------------------------------------------------------------###
;  #									#
;  # file	: sra001.u						#
;  # date	: 4 nov 1993 						#
;  # descr.	: functional test for dlx				#
;  #									#
;  ###----------------------------------------------------------------###

	;  ###--------------------------------------------------------###
	;  #  decalage a droite arithmetique 
	;  ###--------------------------------------------------------###

		org	X"7fffff00"

cst1F		equ	X"ffff"		; 16 bits de poids forts du registre Rs
cst2f		equ	X"ffff"		; 16 bits de poids faibles du registre Rs
cstd		equ	X"0004"		; valeur du decalage du registre Rt
resul1F		equ 	X"ffff"		; resultat attendu dans les 16 bits de poids forts de Rd
resul2f		equ	X"ffff"		; resultat attendu dans les 16 bits de poids faibles de Rd
		start	debut

debut: 
		lhi	r1, cst1F 
		ori	r1, r1, cst2f 
		
		and	r3, r3, r0
		ori	r3, r3, cstd 

		sra	r2, r1, r3

		lhi	r1, resul1F 
		ori	r1, r1, resul2f 

		seq	r3, r1, r2
		bnez	r3, good
		
		nop

		j	bad


 
		org	X"7ffffff0"
good	 	j	good
		nop
bad 		j	bad 
		nop

		end
