contrib/pep8analysis/tests/privat/05-1a100.pep

   1 ; Semaine 5
   2 ; Programme qui compte de 1 jusqu'à 100
   3 ; Jean Privat (C) 2010
   4          LDA     1,i
   5 loop:    CPA     100,i
   6          BRGT    fin         ; for(val=1; val<=100; val++) {
   7          STA     val,d
   8          DECO    val,d
   9          CHARO   '\n',i      ;   print(val, "\n");
  10          ADDA    1,d
  11          BR      loop        ; } // end of for
  12 fin:     STOP
  13 val:     .BLOCK  2
  14          .END