contrib/pep8analysis/tests/privat/06-sommes1.pep

   1 ; Semaine 6
   2 ; Programme calcule et compare deux sommes
   3 ; Version sans sous-programme
   4 ; Jean Privat (C) 2010
   5          STRO    msgNum1,d
   6          DECI    num,d
   7          LDA     num,d
   8          STRO    msgNum2,d
   9          DECI    num,d
  10          ADDA    num,d
  11          STA     num,d
  12          STRO    msgSomme,d
  13          DECO    num,d
  14          CHARO   '\n',i      ; Lecture, calcul et affichage somme 1
  15          STA     sum1,d      ; sauvegarde somme 1
  16          STRO    msgNum1,d
  17          DECI    num,d
  18          LDA     num,d
  19          STRO    msgNum2,d
  20          DECI    num,d
  21          ADDA    num,d
  22          STA     num,d
  23          STRO    msgSomme,d
  24          DECO    num,d
  25          CHARO   '\n',i      ; Lecture, calcul et affichage somme 2
  26          CPA     sum1,d      ; if (somme2>somme1) {
  27          BRGT    plus
  28          STOP
  29 plus:    STRO    msgPlus,d   ;   print ... }
  30          STOP                ; exit;
  31 num:     .BLOCK  2           ; #2d
  32 sum1:    .BLOCK  2           ; #2d
  33 msgNum1: .ASCII  "Entrez un nombre : \x00"
  34 msgNum2: .ASCII  "Entrez un autre nombre : \x00"
  35 msgSomme:.ASCII  "Leur somme est : \x00"
  36 msgPlus: .ASCII  "Celle-ci est plus grande.\x00"
  37          .END