; Semaine 6
; Programme calcule et compare deux sommes
; Version sans sous-programme
; Jean Privat (C) 2010
         STRO    msgNum1,d   
         DECI    num,d       
         LDA     num,d       
         STRO    msgNum2,d   
         DECI    num,d       
         ADDA    num,d       
         STA     num,d       
         STRO    msgSomme,d  
         DECO    num,d       
         CHARO   '\n',i      ; Lecture, calcul et affichage somme 1
         STA     sum1,d      ; sauvegarde somme 1
         STRO    msgNum1,d   
         DECI    num,d       
         LDA     num,d       
         STRO    msgNum2,d   
         DECI    num,d       
         ADDA    num,d       
         STA     num,d       
         STRO    msgSomme,d  
         DECO    num,d       
         CHARO   '\n',i      ; Lecture, calcul et affichage somme 2
         CPA     sum1,d      ; if (somme2>somme1) {
         BRGT    plus        
         STOP                
plus:    STRO    msgPlus,d   ;   print ... }
         STOP                ; exit;
num:     .BLOCK  2           ; #2d
sum1:    .BLOCK  2           ; #2d
msgNum1: .ASCII  "Entrez un nombre : \x00"
msgNum2: .ASCII  "Entrez un autre nombre : \x00"
msgSomme:.ASCII  "Leur somme est : \x00"
msgPlus: .ASCII  "Celle-ci est plus grande.\x00"
         .END