; ************************************************************
;       Programme: lab_d_3.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire sur DECI
;       3) Modifier le programme PREMIERx afin d'effectuer plusieurs fois la somme de nombres.
;          ex:1 1 0 donne 2; 2 2 0 donne 4; ...; 0 termine le programme
;
;       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:  ADDA    nombre,d    ; totalisation
         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