contrib/pep8analysis/tests/privat/05-sommeVec.pep

   1 ; Semaine 5
   2 ; Programme qui calcule la somme des éléments d'un tableau
   3 ; Jean Privat (C) 2010
   4          LDA     0,i         ; somme = 0
   5          LDX     0,i         ; X = 0
   6 loop:    ADDA    vecteur,x   ; do{ somme += vecteur[X]
   7          ADDX    2,i         ;   X++;
   8          CPX     lenVec,i
   9          BRLT    loop        ; } while (X<lenVec);
  10          STA     somme,d
  11          DECO    somme,d     ; print(somme);
  12          STOP
  13 vecteur: .WORD   5           ; un vecteur d'octets
  14          .WORD   6
  15          .WORD   2
  16          .WORD   7
  17          .WORD   8
  18 lenVec:  .EQUATE 10          ; taille du vecteur (en octets)
  19 somme:   .BLOCK  2           ; #2d somme calculée du vecteur
  20          .END