; ************************************************************
;       Programme: lab_d_1.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire sur DECI
;       1) Modifier le programme PREMIER1 afin de n'additionner que les nombres pairs.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           hiver 2019
;       cours:          INF2171
; ***********************************************************
;
         LDX     0,i         ; le registre indeX comptabilise la somme des nombres pairs
;
         DECI    nombre1,d   ; lecture du premier nombre
         LDA     nombre1,d   ; premier nombre à traiter qui sera chargé dans le registre Accumulateur
         ASRA                ; divise par 2, le bit perdu se retrouve dans le témoin C (carry)
         BRC     impair1     ; si le bit perdu est un 1, alors c'est un nombre impair
         LDX     nombre1,d   ; c'est un nombre pair alors on le conserve.
impair1: DECI    nombre2,d   ; lecture du deuxième nombre
         LDA     nombre2,d   ; deuxième nombre à traiter qui sera chargé dans le registre Accumulateur
         ASRA                ; divise par 2, le bit perdu se retrouve dans le témoin C (carry
         BRC     impair2     ; si le bit perdu est un 1, alors c'est un nombre impair
         ADDX    nombre2,d   ; c'est un nombre pair alors on l'additionne.
impair2: STX     total,d     ; conservons le résultat enregistré dans le registre indeX
         CHARO   "\n",i      
         DECO    total,d     ; affiche le total en décimal
;
         STOP                
;
nombre1: .BLOCK  2           ; #2d valeur initiale zéro
nombre2: .BLOCK  2           ; #2d valeur initiale zéro
total:   .BLOCK  2           ; #2d valeur initiale zéro
;
         .END