; ************************************************************
;       Programme: lab_d_4.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire sur DECI
;       4) Modifier le nouveau programme PREMIERx (étape 3)  afin de n'additionner que les nombres divisibles par 8.
;
;       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:  LDX     nombre,d    
         ASRX                
         BRC     impair      ; non divisible par 2
         ASRX                
         BRC     impair      ; non divisible par 4
         ASRX                
         BRC     impair      ; non divisible par 8
         ADDA    nombre,d    ; totalisation
;
impair:  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