; ************************************************************
;       Programme: lab_n_1.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire traitement des tableaux de nombres
;       1) Lire des nombres au terminal et les afficher ensuite en commençant par la fin.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           hiver 2019
;       cours:          INF2171
; ***********************************************************
;
         STRO    msgbien,d   ; bienvenue
         LDX     0,i         ; premier nombre
lecture: DECI    nombres,x   
         BREQ    affiche     
         LDA     nombres,x   
         ADDX    2,i         ; nombre suivant
         BR      lecture     
;
; la lecture est terminée
;
; on commence à afficher par la fin du tableau des nombres
;
affiche: CHARO   "\n",i      
         SUBX    2,i         
         BRLT    termine     
         DECO    nombres,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 tableau"
         .ASCII  "\nde nombres."
         .ASCII  "\n\nVeuillez entrer des nombres qui seront"
         .ASCII  "\naffichés en ordre inverse."
         .ASCII  "(0-pour terminer)\n\x00"
msgfin:  .ASCII  "\n\nFin normale du programme.\x00"
; nombres DOIT se retrouver à la fin du programme
nombres: .BLOCK  20          ; #2d10a  trace seulement les 10 premiers nombres lus
         .BLOCK  0           ; les nombres lus qui suivent les 10 premiers, soit 11 à 999
         .END