ORG $0
              DC.L     $8000
              DC.L     DEBUT

              ORG $500
TAB1  DC.W   1,2,3,4,5,6,7,8,9,10
TAB2  DC.W   2,3,4,5,6,7,8,9
N1    DC.W   10
N2    DC.W   8
SOMME1 DC.W 1
SOMME2 DC.W 1

              ORG $550
FCT_SOMME    MOVE.L A1,-(A7)
             MOVE.W D0,-(A7)
             MOVE.L A0,-(A7)
             MOVE.W D2,-(A7)
             MOVE.W D1,-(A7)
             MOVE.W 26(A7),D0
             MOVE.L 22(A7),A0
             MOVE.L 18(A7),A1
             CLR.L D2
             CLR.L D1

TQ           CMP.W D0,D2
             BCC FIN_TQ

FAIRE        ADD.W (A0)+,D1
             ADDI.W #1,D2
             BRA TQ

FIN_TQ       MOVE.W D1,(A1)
             MOVE.W (A7)+,D1
             MOVE.W (A7)+,D2
             MOVE.L (A7)+,A0
             MOVE.W (A7)+,D0
             MOVE.L (A7)+,A1
             RTS

              ORG $600
DEBUT   MOVE.W N1,-(A7)
        PEA TAB1
        PEA SOMME1
        JSR FCT_SOMME
        ADDA.L #10,A7
        MOVE.W N2,-(A7)
        PEA TAB2
        PEA SOMME2
        JSR FCT_SOMME
        ADDA.L #10,A7