; ************************************************************
;       Programme: lab_n_0.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire traitement des tableaux de nombres
;       0) Initialiser un tableau de 50 nombres avec 1, 2, 3, ..., 50 puis afficher ces nombres.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           hiver 2019
;       cours:          INF2171
; ***********************************************************
;
         STRO    msgbien,d   ; bienvenue
         LDX     0,i         
         LDA     1,i         ; compteur de 1 à 50
boucle:  STA     nombres,x   
         ADDX    2,i         ; nombre suivant
         ADDA    1,i         ; compteur + 1
         CPA     50,i        ; limite de 50 nombres
         BRLE    boucle      
;
; les affectations sont terminées
;
; on commence à afficher le tableau des nombres
;
         LDX     0,i         ; premier nombre
affiche: CHARO   "\n",i      
         DECO    nombres,x   
         ADDX    2,i         ; nombre suivant
         CPX     100,i       ; chaque nombre occupe 2 octets; 50 nombres * 2 octets
         BRLT    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\nVoici les nombres retenus:\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  80          ; les 40 nombres qui suivent les 10 premiers, soit 11 à 50
         .END