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

   1 ; Semaine 6
   2 ; Programme qui multiplie un nombre par 100
   3 ; Jean Privat (C) 2010
   4          DECI    num,d
   5          LDA     num,d       ; num = getNumber()
   6          ASLA
   7          ASLA
   8          STA     x4,d        ; x4 = num*4
   9          ASLA
  10          ASLA
  11          ASLA
  12          STA     x32,d       ; x32 = num*32
  13          ASLA
  14          ADDA    x4,d
  15          ADDA    x32,d
  16          STA     num,d       ; num = num*64 + x4 + x32; // = num*100
  17          DECO    num,d       ; print num
  18          STOP
  19 num:     .BLOCK  2
  20 x4:      .BLOCK  2
  21 x32:     .BLOCK  2
  22          .END