calc sin tab:
    lea     sin tab,a0

; calcul de tab[0..511] correspondant aux valeurs de x>0
    moveq   #0,d0
.1
    move.w  #512,d1
    sub.w   d0,d1
    beq.b   .2       ; donc quand on sort, d0 vaut 512
    mulu.w  d0,d1
    addq.w  #1,d0
    move.l  d1,(a0)+
    bra.b   .1

; calcul de tab[512..1023] correspondante aux valeurs de x<0
; on ne fait que recopier leaa table de la partie 1 en inversant le signe
.2
    move.l  -512*4(a0),d1
    neg.l   d1
    move.l  d1,(a0)+
    subq.w  #1,d0
    bne.b   .2

; fini
    rts

; tableau de 4ko
sin tab:
    ds.l   1024