8 sin code gen

routalt8sinnew
    move.w (a0)+,d0       1540      3*512+4
    add (a1)+,d0          1540*2+512 peut etre calculable a partir des tables de bases  7*512+8
    add (a2)+,d0          1540
    add.w #$1234,d0         ;move 'a0-a2/immediat',d0           y partie haute commune avec convy et ecrab  sinus 512 y
    move.w (a3)+,d1         , sin 512x avec convx adequat suivant le numero de plan
    add.w (a4)+,d1          1540
    add.w (a5)+,d1          1540
    add.w (a6)+,d1          1540*2+512

    move.w (a0)+,d2
    add.w (a1)+,d2
    add.w (a2)+,d2
    add.w #$1234,d2
    move.w (a3)+,d3
    add.w (a4)+,d3
    add.w (a5)+,d3
    add.w (a6)+,d3

    move.w (a0)+,d4
    add.w (a1)+,d4
    add.w (a2)+,d4
    add.w #$1234,d4
    move.w (a3)+,d5
    add.w (a4)+,d5
    add.w (a5)+,d5
    add.w (a6)+,d5

    move.l a6,d6        sauve le 8iem sinus         1 nop/3 point

    move.l d0,a6
    move.w (a6)+,d0
    move.l d1,a6
    add.w (a6)+,d0
    move.w (a6),d1
    move.l d0,a6
    or.w d1,(a6)

    move.l d2,a6
    move.w (a6)+,d2
    move.l d3,a6
    add.w (a6)+,d2
    move.w (a6),d1
    move.l d2,a6
    or.w d1,(a6)

    move.l d4,a6
    move.w (a6)+,d4
    move.l d5,a6
    add.w (a6)+,d4
    move.w (a6),d1
    move.l d4,a6
    or.w d1,(a6)

    move.l d7,a6

    movem.w d0/d2/d4,-(a6)
    move.l a6,d7
    move.l d6,a6    restaure le 8iem sinus                  ; a la fin, le rts peut etre mis avantageusement ici pour eviter une instruction vu que pas besoin de l'ancien sinus adr