; *****************************************************************
;       Programme: SOUSPROG.txt    version PEP813 sous Windows
;
;       Ce programme utilise des sous-programmes sans paramètre.
;       Il donne l'équivalent en décimal d'un caractère ASCII.
;
;       auteur:         Bernard Martin
;       code permanent: inconnu
;       courriel:       martin.bernard@uqam.ca
;       date:           été 2020
;       cours:          INF2170 
; *****************************************************************
;
;
         CALL    bonjour     
         CALL    question    
         CALL    réponse     
         CALL    normal      
         STOP                
;
; affichage du message de bienvenue
;
bonjour: STRO    bienvenu,d  
         RET0                
;
; affichage du message de fin normale
;
normal:  STRO    fin,d       
         RET0                
;
; affichage de la question pour l'utilisateur
;
question:STRO    demande,d   
         CALL    lecture     
         RET0                
;
; lecture du caractère fourni par l'utilisateur
;
lecture: CHARI   caract,d    
         RET0                
;
; affichage du message du résultat
;
réponse: STRO    affiche,d   
         CALL    résultat    
         RET0                
;
; affichage en décimal du caractère fourni par l'utilisateur
;
résultat:DECO    avcaract,d  
         RET0                
bienvenu:.ASCII  "Bienvenue au programme d'affichage en décimal. \x00"
demande: .ASCII  "\n\nVeuillez entrer un caractère: \x00"
affiche: .ASCII  "\nCe caractère a comme valeur décimale: \x00"
fin:     .ASCII  "\n\nFin normale du programme.\x00"
avcaract:.BLOCK  1           ; #1h
caract:  .BLOCK  1           ; #1h
         .END