contrib/pep8analysis/tests/privat/fib.pep

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