contrib/pep8analysis/tests/terrasa/reverse_tableau.pep

   1 ; Semaine 5
   2 ; Programme qui lit un tableau à l'envers
   3 ; Alexandre Terrasa (C) 2012
   4
   5          STRO    strF, d     ; print(strF)
   6          LDX     0, i        ; X = 0
   7 loopf:   DECO    vecteur, x  ; do { print(vecteur[X])
   8          CHARO   " ", i      ; print(" ")
   9          CPX     lenVec, i   ;
  10          ADDX    2,i         ;   X++
  11          CPX     lenVec,i
  12          BRLT    loopf       ; } while (X < lenVec);
  13
  14          STRO    strB, d     ; print(strB)
  15          LDX     lenVec,i    ; X = lenVec
  16 loopb:   SUBX    2, i        ; do { X--
  17          DECO    vecteur,x   ;    print(vecteur[X])
  18          CHARO   ' ', i      ;    print(" ")
  19          CPX     0,i
  20          BRGT    loopb       ; } while (X > 0)
  21
  22          STOP
  23
  24 ; Déclaration du tableau
  25 vecteur: .WORD   5           ; un vecteur d'octets
  26          .WORD   6
  27          .WORD   2
  28          .WORD   7
  29          .WORD   8
  30 lenVec:  .EQUATE 10          ; taille du vecteur (en octets)
  31
  32 ; Autres variables
  33 strF:    .ASCII "Valeurs à l'endroit: \x00"
  34 strB:    .ASCII "\nValeurs à l'envers: \x00"
  35
  36          .END