--- fftr2a.asm	Mon Aug 31 21:36:43 1998
+++ fftr2a_x.asm	Wed Aug 26 14:57:42 1998
@@ -76,7 +76,8 @@
          move    x:(r5),a   y:(r0),b         ;preload data
          move    x:(r6)+n6,x0                ;update C pointer
 
-
+	 bclr	 #11,SR
+	 bset	 #10,SR
          do      n0,_end_bfy
          mac     x1,y0,b    y:(r1)+,y1       ;Radix 2 DIT
                                              ;butterfly kernel
@@ -87,7 +88,10 @@
          subl    b,a        b,x:(r4)+  y:(r0),b
 _end_bfy
          move    a,x:(r5)+n5    y:(r1)+n1,y1   ;update A and B pointers
+	 bclr	 #10,SR
          move    x:(r0)+n0,x1   y:(r4)+n4,y1
+	 nop
+	 nop
 _end_grp
          move    n0,b1
          lsr     b   n2,a1     ;divide butterflies per group by two