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

   1 ; Semaine 5
   2 ; Programme qui lit un ligne et transforme les 'a' en 4, les 'e' en '3' et les 'i' en '1'.
   3 ; Jean Privat (C) 2010
   4 lit_char:LDA     0,i         ; do {
   5          CHARI   c,d
   6          LDBYTEA c,d         ;   A = getChar();
   7          CPA     'a',i
   8          BRNE    pas_a       ;   if (A == 'a') {
   9          CHARO   '4',i       ;     print('4');
  10          BR      lit_char
  11 pas_a:   CPA     'e',i
  12          BRNE    pas_e       ;   } else if (A == 'e') {
  13          CHARO   '3',i       ;     print('3');
  14          BR      lit_char
  15 pas_e:   CPA     'i',i
  16          BRNE    pas_i       ;   } else if (A == 'i') {
  17          CHARO   '1',i       ;     print('1');
  18          BR      lit_char
  19 pas_i:   CHARO   c,d         ;   } else print(A);
  20          CPA     '\n',i
  21          BRNE    lit_char    ; } while (A != '\n');
  22          STOP                ; exit;
  23 c:       .BLOCK  1           ; #1c Caractère lu et éventuellemet écrit
  24          .END