; Multiplication de deux nombres entiers par la méthode simple.
; Lorne H. Bouchard (adapté par Ph. Gabrini Mars 2006)
;
debut:   DECI    nb1,d       ; cin >> nb1;
         DECI    nb2,d       ; cin >> nb2;
         DECO    nb1,d       ; cout << nb1
         CHARO   '*',i       ; << '*'
         DECO    nb2,d       ; << nb2
         CHARO   '=',i       ; << '=';
         LDX     nb2,d       ; X = nb2
         BRGE    commence    ; if(nb2 < 0){
         LDA     nb1,d       ;
         NEGA                ;
         STA     nb1,d       ; A = nb1 = -nb1;
         LDX     nb2,d       ;
         NEGX                ; X = nb2 = -nb2;
         STX     nb2,d       ; }
commence:LDA     0,i         ; A = 0;
addition:ADDA    nb1,d       ; do{ A += nb1;
         SUBX    1,i         ; X--;
         BRNE    addition    ; } while(X != 0);
fini:    STA     res,d       ; res = A;
         DECO    res,d       ; cout << res;
         STOP                ;
nb1:     .WORD   0           
nb2:     .WORD   0           
res:     .WORD   0           
         .END