	page	132,66,2,2
	opt	nomd,nomex,loc,cre,nocex

	include	'sin1024.mac'
	include 'ditfft.mac'

;
; Main program to call the FFT macro
;	Argument list
;
;	1024 point complex DIT FFT
;	10 FFT passes
;	Data starts at address 0
;	Twiddle factor table starts at address 1024
;
reset	equ	0
start	equ	$100
points	equ	1024
passes	equ	10
data	equ	0
twiddle	equ	1024

	sin1024	twiddle

	opt	mex
	org	p:reset
	jmp	start

	org	p:start
	ditfft	points,passes,data,twiddle
	end
