;Calcul du produit de deux nombres entiers Brut := heur * Taux
;Entrée des données
            DECI    heur,d
            DECI    Taux, d

            LOADA   heur, d
            LOADX   Brut, d
encore:     COMPA   h#0000,i 
            BREQ    fin         ; Aller à fin si zéro
            SUBA    h#1,i 
            ADDX    Taux, d
            BR      encore      ; recommence
fin:        STOREX  Brut, d
            DECO    Brut, d
            STOP

Brut:       .WORD   d#0
Taux:       .WORD   d#0
heur:       .WORD   d#0


            .END