; *************************************************************************************
; Programme: NEWOS2.TXT version PEP813 sous Windows
;
;       Version 2: Modifie le nom des mnémoniques:
;                  NOP0 -> BONJOUR
;                  NOP1 -> FINAL
;                  NOP  -> LETTRE
;                  DECI -> LIRENB
;
;       Pour implanter ces nouveaux noms, on doit utiliser l'option "Redefine Mnemonics"
;       sous l'onglet "System" de PEP/8.
;
;       Le nombre lu avec LIRENB doit être numériquement valide, sinon l'utilisateur
;       devra le réentrer. Ce nombre doit être compris entre -32768 et 32767.
;
;       De plus, il montre l'utilisation de NOP0, NOP1 et NOP.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           été 2020
;       cours:          INF2171
;
;       Remarque: On doit d'abord installer OS.TXT pour utiliser ces fonctionnalités.
; *************************************************************************************
;
         BONJOUR             ; Affiche "Bonjour "
;
         LETTRE  1,i         ; Affiche la 1ère lettre de l'alphabet "A"
         LETTRE  13,i        ; Affiche la 13e lettre de l'alphabet "M"
         LETTRE  9,i         ; Affiche la 9e lettre de l'alphabet "I"
;
relire:  STRO    demande,d   
         LIRENB  nombre,d    ; demande un nombre et le redemande si invalide ("DECI")
         BRV     déborde     ; traitement des débordements
         BR      affiche     
déborde: STRO    msgdébor,d  
         BR      relire      
affiche: STRO    réponse,d   
         DECO    nombre,d    
         BRLT    negat       
         STRO    positif,d   
         BR      termine     
negat:   STRO    négatif,d   
termine: FINAL               ; Affiche le message de terminaison
         STOP                
demande: .ASCII  "\n\nVeuillez entrer un nombre svp: \x00"
réponse: .ASCII  "\nLe nombre \x00"
positif: .ASCII  " est positif.\x00"
négatif: .ASCII  " est négatif. \x00"
msgdébor:.ASCII  "\nLe nombre excède le minimum(-32768) ou le maximum"
         .ASCII  "\n permis(32767).\x00"
         .ASCII  "\nVeuillez le réentrer svp: \x00"
nombre:  .BLOCK  2           
         .END