contrib/pep8analysis: add tests written by experts

[nit.git] / contrib / pep8analysis / tests / privat / 08-div.pep

diff --git a/contrib/pep8analysis/tests/privat/08-div.pep b/contrib/pep8analysis/tests/privat/08-div.pep
new file mode 100644 (file)
index 0000000..af88478
--- /dev/null
+++ b/contrib/pep8analysis/tests/privat/08-div.pep
@@ -0,0 +1,32 @@
+; Programme et sous programme de division entière
+; Jean Privat (c) 2010
+         DECI    num,d       
+         LDA     num,d       
+         DECI    num,d       
+         LDX     num,d       
+         CALL    div         
+         STA     num,d       
+         DECO    num,d       
+         CHARO   ' ',i       
+         STX     num,d       
+         DECO    num,d       
+         STOP                
+num:     .BLOCK  2           ; #2d
+;
+; div: calcule le quotient et le reste d'une division
+; Passage des arguments et résultats par registres
+; Utilisation d'une variable globale
+; IN:  A=dividende
+;      X=diviseur
+; OUT: A=reste
+;      X=quotient
+div:     STX     diviseur,d  
+         LDX     0,i         ; X = 0
+div_loop:CPA     diviseur,d  
+         BRLT    div_fin     ; while(A>=diviseur) {
+         SUBA    diviseur,d  ;   A -= diviseur;
+         ADDX    1,i         ;   X++;
+         BR      div_loop    ; } // fin while
+div_fin: RET0                
+diviseur:.BLOCK  2           ; Variable globale #2d
+         .END