contrib/pep8analysis: add tests written by experts

[nit.git] / contrib / pep8analysis / tests / privat / 02-fibo.pep

diff --git a/contrib/pep8analysis/tests/privat/02-fibo.pep b/contrib/pep8analysis/tests/privat/02-fibo.pep
new file mode 100644 (file)
index 0000000..28470f7
--- /dev/null
+++ b/contrib/pep8analysis/tests/privat/02-fibo.pep
@@ -0,0 +1,24 @@
+;    Trouve et imprime le premier terme de la suite de Fibonacci
+;    supérieur à 500.
+;       Ph. Gabrini    septembre 2005
+;
+               STA dernier,d
+Fibo:   LDA     somme,d    ;
+Boucle: CPA     500,i      ; while(somme < 500)
+        BRGE    Affiche    ; {
+        LDA     dernier,d  ;
+        STA     avant,d    ;   avant = dernier;
+        LDA     somme,d    ;
+        STA     dernier,d  ;   dernier = somme;
+        ADDA    avant,d    ;
+        STA     somme,d    ;   somme = avant + dernier;
+        BR      Boucle     ; }//while
+Affiche:STRO    msg1,d     ; cout << "Premier ... "
+        DECO    somme,d    ;      << somme
+        CHARO   '\n',i     ;      << endl;
+        STOP
+avant:  .WORD  0        ; int avant = 0;
+dernier:.WORD  1        ; int dernier = 1;
+somme:  .WORD  1        ; int somme = 1;  
+msg1:   .ASCII  "Premier terme de la suite de Fibonacci > 500: \x00"
+        .END