; algorithme de division avec un dividende positif et un diviseur positif
;
; testé avec 14 / 3
;
         LDA     14,i        ; dividende dans le registre A
         LDX     3,i         ; diviseur dans le registre X
         CALL    DIVISE      
;
         STRO    msgquot,d   
         STX     temp,d      
         DECO    temp,d      
         STRO    msgreste,d  
         STA     temp,d      
         DECO    temp,d      
         CHARO   '.',i       
         STOP                
;
;DIVISE: effectue la division par soustractions répétitives
;
; Passage des paramètres par les registres
;
; IN:  reg A : dividende
;      reg X : diviseur
;
; OUT: reg A : reste
;      reg X : quotient
;
DIVISE:  STX     diviseuR,d  
         LDX     0,i         ; quotient
soustraI:ADDX    1,i         
         SUBA    diviseuR,d  
         BRGE    soustraI    
         SUBX    1,i         ; défaisons la dernière soustraction
         ADDA    diviseuR,d  
         RET0                
         STOP                
diviseuR:.BLOCK  2           ; #2d
temp:    .BLOCK  2           ; #2d
msgquot: .ASCII  "\nLe quotient est \x00"
msgreste:.ASCII  " et le reste est \x00"
         .END