deci    nb,d
         loada   nb,d
         loadx   d#16,i  ;le registre X servira de compteur pour la boucle.
                         ;16 bits à imprimer dans le registre A, donc 16 tours
                         ; de boucle à effectuer

rep:     asla            ;décalage à gauche. le bit de gauche du registre est
                         ; transféré dans le flag de retenue (C)

         brc     retenue ;il y a eu un débordement (C=1)? si oui, on branche à
                         ; "retenue" sinon, on continue.
         charo   c#/0/,i
         br      dec     ;branchement inconditionnel à "dec"

retenue: charo   c#/1/,i
dec:     subx    d#1,i   ;décrémenter notre compteur
         brne    rep     ;compteur arrive à zéro (Z=1)? si oui, on continue
                         ;sinon, on branche à "rep"
         stop

nb:     .WORD    d#0

.END