;Division entière, calcul du Quotient (Total / Nb) et du Reste
;Entrée des données
            DECI    Total,d
            DECI    Nb, d

            LOADA   Total, d    ;Registre A pour Total
            LOADX   Quot, d     ;Registre X pour Quot

encore:     COMPA   Nb,d 
            BRLT    fin         ;Aller à fin si zéro
            SUBA    Nb, d       
            ADDX    h#0001,i 
            BR      encore
fin:        STOREX  Quot, d
            STOREA  Reste, d
            DECO    Quot, d
            CHARO   h#0A,i      ;Ligne suivante         
            DECO    Reste, d            
            STOP

Total:      .WORD   d#0
Nb:         .WORD   d#0
Quot:       .WORD   d#0
Reste:      .WORD   d#0


            .END