gistfile1.txt

;---------------------------------------------
;create sintab 34 bytes, d7 contains $0000ffff
;---------------------------------------------
        lea     Sin1024(pc),a0
        
        moveq   #0,d0          ;a=0
        move.l  #12500000,d1   ;b=d
       
        lsr.w   #5,d7        ;2048 values
.slop1
        move.l  d0,(a0)+       ;store a 
        move.l  d0,d2           
        muls.l  #-161708,d3:d2 ;a*d^2
        add.l   d1,d0          ;a'=a+b  
        add.l   d3,d1          ;b'=b+a*d^2      
        dbf     d7,.slop1