; ************************************************************
;       Programme: lab_t_2.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire traitement des tableaux
;       2) Lire un texte au terminal et afficher seulement les chiffres en commençant par la fin.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           été 2019
;       cours:          INF2171
; ***********************************************************
;
         STRO    msgbien,d   
         LDX     0,i         
lecture: CHARI   texte,x     
         LDA     0,i         
         LDBYTEA texte,x     
         CPA     '0',i       ; on ne retient que les caractères numériques 0 à 9
         BRLT    skip        
         CPA     '9',i       
         BRGT    skip        
         ADDX    1,i         ; caractère suivant
skip:    CPA     "\n",i      ; fin de ligne ?
         BRNE    lecture     
;
; la lecture est terminée
;
; on commence à afficher par la fin du texte
;
         STRO    msgaff,d    
affiche: SUBX    1,i         
         BRLT    termine     
         CHARO   texte,x     
         BR      affiche     
;
termine: STRO    msgfin,d    
         STOP                
;
; variables
;                N.B. Il est préférable d'afficher un long message sur plusieurs lignes car la largeur
;                     de la fenêtre d'output de PEP/8 n'est que de 52 caractères par défaut.
msgbien: .ASCII  "Bienvenue à ce programme de traitement d'un texte."
         .ASCII  "\n\nVeuillez entrer un texte dont les chiffres"
         .ASCII  "\nseront affichés en ordre inverse: \x00"
msgaff:  .ASCII  "\nVoici les chiffres en ordre inverse: \x00"
msgfin:  .ASCII  "\n\nFin normale du programme.\x00"
; texte DOIT se retrouver à la fin du programme
texte:   .BLOCK  20          ; #1h20a  trace seulement les 20 premiers caractères lus
         .BLOCK  0           ; les caractères lus qui suivent les 20 premiers
         .END