;Calcul du produit de deux entiers P := A1 * B1 par décalage de registre

        DECI    A1,d    ; Saisie Multiplicande 
        DECI    B1,d    ; Saisie Multiplicateur 
        LOADA   d#0,i   ; Acc A reçoit l'addition de chaque pas
Encore: LOADX   B1, d   ; 
        COMPX   d#0,i   ; Si B1 = 0 Accumulation terminée
        BREQ    fin     ; on sort de la boucle sinon on continue
        ASRX            ; Identification des pas
        BRC     Suite   ; Si on évacue un 1 vers le carry
        BR      Saute   ; Si on évacue un 0 vers le carry
Suite:  ADDA    A1, d   ; On additione Multiplicande à Accum A
Saute:  STOREX  B1, d
        LOADX   A1, d
        ASLX
        STOREX  A1, d
        BR      Encore  
fin:    STOREA  P, d    ; et on sauvegarde le tout
        DECO    P, d    
        STOP

A1:     .WORD   h#0     ; Multiplicande 
B1:     .WORD   h#0     ; Multiplicateur 
P:      .WORD   h#0     ; Produit

        .END