2c2
< ;fftr45.rsx  may 1974
---
> ;fftr8k.rsx  february 1974
53c53
< ;greater than 2048.
---
> ;greater than 8192.
100c100
< 	cmp	#1024.,f.n	;n gtr 1024.?
---
> 	cmp	#4096.,f.n	;n gtr 4096.?
112c112
< 	mov	#1024.,r0	;	"
---
> 	mov	#4096.,r0	;	"
247c247
< 	cmp	f.h,#1024.
---
> 	cmp	f.h,#4096.
249c249
< 	mov	#2048.,r4
---
> 	mov	#8192.,r4
253c253
< 	sub	#1024.,r4
---
> 	sub	#4096.,r4
260c260
< 	add	#1024.,r4
---
> 	add	#4096.,r4
293c293
< 	cmp	f.h,#1024.	;look up sine and cosine
---
> 	cmp	f.h,#4096.	;look up sine and cosine
295c295
< 	mov	#2048.,r4	;h gt 512
---
> 	mov	#8192.,r4	;h gt 2048
299c299
< 	sub	#1024.,r4
---
> 	sub	#4096.,r4
303c303
< f.hop1:	mov	f.h,r4		;h le 512
---
> f.hop1:	mov	f.h,r4		;h le 2048
306c306
< 	add	#1024.,r4
---
> 	add	#4096.,r4
