



; 	metrowerks sample code



	section		rtlib
	org p:
 	
	global Fasmmodulepsis

	SUBROUTINE "Fasmmodulepsis",Fasmmodulepsis,FasmmodulepsisEND-Fasmmodulepsis

 Fasmmodulepsis:
 
 		move.w		X:(R2)+,y0				;save the first parameter (Psi_s[0]) to the register y0
 		mpy			y0,y0,A		X:(R2)+,y1	;multiply the parameters (Psi_s[0]*Psi_s[0]->square(Psi_s[0])) store the result in the register A and one parallel move (save the second parameter (Psi_s[1]) to the register y1) and post-increment the address register R2 by one 	
 		mac			y1,y1,A					;multiply the parameters (Psi_s[1]*Psi_s[1]->square(Psi_s[1])) and add the result to the register A
		rts									;return from a call to a subroutine		
	
 		 	
 FasmmodulepsisEND:
 
 	endsec
 	
	end
