; *****************************************************************
;       Programme: ASCII1.TXT     version PEP813 sous Windows
;
;       version 1: la version de base
;
;       Ce programme affiche la liste des 256 caractères ASCII.
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           été 2020
;       cours:          INF2171
; *****************************************************************
;
;  on affiche un par un les 256 caractères ASCII de 00 à FF
;
         LDA     0,i         ; initialisation à 0 du registre Accumulateur. A <-0000
         LDBYTEA caract,d    ; caractère ASCII de départ (registre Accumulateur octet de droite seulement)
boucle:  CHARO   '(',i       ; affiche le symbole (
         DECO    avcaract,d  ; affiche en décimal (2 octets, soit la combinaison "avcaract" et "caract")
         CHARO   ')',i       ; affiche le symbole )
         CHARO   '=',i       ; affiche le symbole =
         CHARO   caract,d    ; affiche la valeur ASCII (1 octet)
         CHARO   ' ',i       ; affiche un ESPACE
         ADDA    1,i         ; caractère suivant
         STBYTEA caract,d    ; on le conserve
         CPA     256,i       ; limite atteinte ?
         BRNE    boucle      ; on boucle si le résultat de l'instruction précédente n'est pas 256
         STOP                
avcaract:.BLOCK  1           ;#1h caractère de remplissage pour la combinaison "avcaract" et "caract"
caract:  .BLOCK  1           ;#1h caractère en traitement
         .END