; ************************************************************
;       Programme: lab_d_5.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire sur DECI
;       5) Modifier le nouveau programme PREMIERx (étape 3) afin de n'additionner que les nombres divisibles par 7.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           hiver 2019
;       cours:          INF2171
; ***********************************************************
;
début:   LDA     0,i         ; le registre Accumulateur conserve la somme des nombres
;
         DECI    nombre,d    ; lecture d'un nombre
         BREQ    FINI        ; si le nombre lu est zéro, on termine définitivement le programme
boucle:  NOP0                
         LDX     nombre,d    
         BRGE    div7        ; nombre rendu positif en vue de la division par soustractions répétitives
         NEGX                
div7:    SUBX    7,i         ; retranche 7 tant que c'est possible
         BRGT    div7        
;
         BRNE    pasdiv7     ; si le reste n'est pas zéro alors ce n'est pas divisible par 7
;
         ADDA    nombre,d    ; totalisation
;
pasdiv7: DECI    nombre,d    ; lecture d'un autre nombre
         BRNE    boucle      ; zéro termine la sommation
;
termine: STA     total,d     ; conserve le résultat enregistré dans le registre Accumulateur
         CHARO   "\n",i      ; nouvelle ligne
         DECO    total,d     ; affiche le total en décimal
         CHARO   "\n",i      ; nouvelle ligne
         CHARO   "\n",i      ; nouvelle ligne
         LDA     0,i         ; somme <- 0
         BR      début       
;
FINI:    STOP                
;
nombre:  .BLOCK  2           ; #2d valeur initiale zéro
total:   .BLOCK  2           ; #2d valeur initiale zéro
;
         .END