; ************************************************************
;       Programme: lab_t_0.txt     version PEP813 sous Windows
;
;       INF2171 - laboratoire traitement des tableaux
;       0) Initialiser une chaine de caractères avec les 26 lettres majuscules
;          de l'alphabet puis afficher cette chaine.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           été 2019
;       cours:          INF2171
; ***********************************************************
;
         STRO    msgbien,d   ; bienvenue
         LDX     0,i         ; début de la chaine
         LDA     "A",i       ; début de l'alphabet
init:    STBYTEA chaine,x    
         ADDX    1,i         ; caractère suivant
         ADDA    1,i         ; lettre suivante
         CPA     "Z",i       ; fin de ligne ?
         BRLE    init        
;
; la chaine est complète
;
; on commence à afficher par le début de la chaine
;
         LDX     0,i         ; positionnement au 1er caractère de la chaine
affiche: CHARO   chaine,x    
         ADDX    1,i         
         CPX     26,i        
         BRLT    affiche     
;
termine: STRO    encore,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 d'affichage de l'alphabet."
         .ASCII  "\n\nVoici les 26 lettres de l'alphabet:\n\x00"
encore:  .ASCII  "\n\nEncore une fois:\n"
chaine:  .BLOCK  26          ; #1c26a
         .ASCII  "\n\nFin normale du programme.\x00"
         .END