;--------------------------------------------------------------------------------------------
;--------                some routines from encoder rewritten in asm                  -------
;--           ©1997 Henryk "Buggs" Richter, tfa652@cks1.rz.uni-rostock.de                  --
;-- date: 18.09.97                                                                         --
;--------------------------------------------------------------------------------------------
;
				section	grummel,code

                  XDEF     @ASM_FastReplace
                  XDEF     _ASM_FastReplace        ; for SAS-C 6.5

;-------------------------------------------------------------------------------------------
;          get 32 Samples from Buffer, convert to Double and Scale by 1/32768
;
;Inputs: a0: double *xk
;        a1: short *buffer
;        d0: n
;
_ASM_FastReplace
@ASM_FastReplace
		subq.w	#1,d0
		fmove.d	#0.00003051757,fp1		;1/32768
;		fmove.d	#32768,fp1
Loop
		move.w	(a1)+,d1
		ext.l	d1
		fmove.l	d1,fp0
;		fdiv.x	fp1,fp0
		fmul.x	fp1,fp0
		fmove.d	fp0,(a0)
		subq.l	#8,a0
		dbf		d0,Loop
		rts

		END