1 ; Programme et sous programme de division entière
16 ; div: calcule le quotient et le reste d'une division
17 ; Passage des arguments et résultats par registres
18 ; Utilisation d'une variable locale dans la pile
23 div: SUBSP 2,i ; réserve #diviseur
26 div_loop:CPA diviseur,s
27 BRLT div_fin ; while(A>=diviseur) {
28 SUBA diviseur,s ; A -= diviseur;
30 BR div_loop ; } // fin while
31 div_fin: RET2 ; libère #diviseur
32 diviseur:.EQUATE 0 ; Variable locale #2d