;Stage 1
		STM		#I_v,AR0
		ST  	#0,*AR0
		NOP
stg1cir:
		LD		*AR0,A
		LDM		AR7,B
		ADD		B,A
		STLM	A,AR2			;AR2-->x(I)
		
		LD		*AR0,A
		ADD		#2,A
		ADD		B,A
		STLM	A,AR4			;AR4-->x(IP)
		NOP
		SUB		*AR2,*AR4,A
		ADD		*AR2,*AR4,B
		NOP
		STH		A,ASM,*AR4+
		STH		B,ASM,*AR2+
		
		SUB		*AR2,*AR4,A
		ADD		*AR2,*AR4,B
		NOP
		STH		A,ASM,*AR4-
		STH		B,ASM,*AR2-
		NOP
		LD		*AR0,A
		ADD		#4,A
		STL		A,*AR0			;I=I+4
		SUB		#512,A
		BC		stg1cir,ALT


;;;;;;
;Stage 2
		STM		#fft_data,AR2	;AR2-->x(I)
		STM		#4,AR0			;AR2 <-->AR4  AR3<-->AR5
		STM     #63,BRC
		RPTB	stg2half-1      
		MVMM	AR2,AR4
		MAR		*AR4+0			;AR4-->x(IP)
		SUB		*AR2,*AR4,A
		ADD		*AR2,*AR4,B
		STH		A,ASM,*AR4+
		STH		B,ASM,*AR2+
		SUB		*AR2,*AR4,A
		ADD		*AR2,*AR4,B
		STH		A,ASM,*AR4-
		STH		B,ASM,*AR2-
		MAR		*AR2+0
		MAR		*AR2+0
		;NOP
stg2half
		STM		#T_v,AR3
		STM		#fft_data+2,AR2	;AR2-->x(I)
		STM		#4,AR0			;AR2 <-->AR4 
		STM     #63,BRC
		RPTB	stg2end-1      
		MVMM	AR2,AR4
		NOP
		MAR		*AR4+0			;AR4-->x(IP)
		MAR		*AR4+
		SUB		*AR2+,*AR4-,A
		ADD		*AR2-,*AR4+,B
		STH		A,ASM,*AR3+
		STH		B,ASM,*AR3-
		ADD		*AR2+,*AR4-,A
		SUB		*AR2-,*AR4,B
		STH		A,ASM,*AR2+
		STH		B,ASM,*AR2
		MVDD	*AR3+,*AR4+
		MVDD	*AR3-,*AR4-
		NOP
		MAR		*AR2+0
		MAR		*AR2+0
		NOP
		;NOP
stg2end