contrib/pep8analysis/tests/privat/02-fibo.pep

   1 ;    Trouve et imprime le premier terme de la suite de Fibonacci
   2 ;    supérieur à 500.
   3 ;       Ph. Gabrini    septembre 2005
   4 ;
   5                 STA dernier,d
   6 Fibo:   LDA     somme,d    ;
   7 Boucle: CPA     500,i      ; while(somme < 500)
   8         BRGE    Affiche    ; {
   9         LDA     dernier,d  ;
  10         STA     avant,d    ;   avant = dernier;
  11         LDA     somme,d    ;
  12         STA     dernier,d  ;   dernier = somme;
  13         ADDA    avant,d    ;
  14         STA     somme,d    ;   somme = avant + dernier;
  15         BR      Boucle     ; }//while
  16 Affiche:STRO    msg1,d     ; cout << "Premier ... "
  17         DECO    somme,d    ;      << somme
  18         CHARO   '\n',i     ;      << endl;
  19         STOP
  20 avant:  .WORD  0        ; int avant = 0;
  21 dernier:.WORD  1        ; int dernier = 1;
  22 somme:  .WORD  1        ; int somme = 1;
  23 msg1:   .ASCII  "Premier terme de la suite de Fibonacci > 500: \x00"
  24         .END