contrib/pep8analysis/tests/privat/06-compte1.pep

   1 ; Semaine 6
   2 ; Programme qui compte le nombre de bits à 1
   3 ; Jean Privat (C) 2010
   4          LDX     0,i         ; cpt = 0;
   5          DECI    num,d
   6          LDA     num,d       ; num = getNumber();
   7 loop:    BREQ    fin         ; while (num!=0) {
   8          ASLA                ;   num<<1
   9          BRC     un          ;   if (bit perdu == 1) {
  10          BR      loop
  11 un:      ADDX    1,i         ;     cpt++; }
  12          BR      loop        ; } // fin while
  13 fin:     STX     num,d
  14          DECO    num,d
  15          STRO    msg,d       ; print ...
  16          STOP
  17 num:     .BLOCK  2
  18 msg:     .ASCII  " un(s) trouvé(s).\n\x00"
  19          .END