contrib/pep8analysis/tests/terrasa/lecture_chaine.pep

   1 ; Programme qui lit une chaine caractère par caractère
   2 ; et s'arrête au premier caractère nul trouvé
   3 ;
   4 ; Alexandre Terrasa (c) 2012
   5
   6          ldx     0,i          ; X = 0
   7
   8 rep:     ldbytea chaine, x    ; do { A = chaine[X] // if chaine[X] == null then Z = 1
   9          breq    fin          ;   if( A != null ) {
  10          charo   chaine,x     ;       print(chaine[X])
  11          charo   "\n",i       ;       print("\n")
  12          addx    1,i          ;       X++
  13                               ;   } else { break }
  14          br      rep          ; }
  15
  16 fin:     stop
  17
  18 chaine:  .ASCII  "Bonjour\x00" ; La chaine à lire en ASCII (1 caractère = 1 octet)
  19
  20          .END