; *************************************************************************************
; Programme: NEWOS1.TXT version PEP813 sous Windows
;
;       Ce programme lit un nombre à l'écran avec DECI.
;       Celui-ci 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: Pour l'installation de modifications au système d'exploitation PEP/8,
;                 on doit utiliser l'option "Assemble/Install New OS"
;                 sous l'onglet "System" de Pep/8.
;       Cette installation est temporaire et doit être refaite après l'appel à PEP/8.
;       Pour tracer une interruption avec le débogueur, il faut cocher la case "Trace Traps".
; *************************************************************************************
;
         NOP0                ; Affiche "Bonjour "
;
         NOP     1,i         ; Affiche la 1ère lettre de l'alphabet "A"
         NOP     13,i        ; Affiche la 13e lettre de l'alphabet "M"
         NOP     9,i         ; Affiche la 9e lettre de l'alphabet "I"
;
relire:  STRO    demande,d   
         DECI    nombre,d    ; demande un nombre et le redemande si invalide
         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: NOP1                ; 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 permis(32767).\x00"
         .ASCII  "\nVeuillez le réentrer svp: \x00"
nombre:  .BLOCK  2           
         .END