; *********************************************************************
; Programme: SOUS4.TXT          version PEP813 sous WINDOWS
;
;       Programme qui appelle un sous-programme qui affiche une chaîne de caractères
;       dont l'adresse est inscrite sur la pile.(SF)
;
;       auteur:         Bernard Martin
;       code permanent: non applicable
;       courriel:       martin.bernard@uqam.ca
;       date:           hiver 2020
;       cours:          INF2171
; *********************************************************************
;
         LDA     alphabet,i  ; adresse de la chaine à afficher
         STA     -2,s        
         SUBSP   2,i         ; #achaine
;
         CALL    SOUS4       ; appel à la routine d'affichage
;
         STOP                
alphabet:.ASCII  "abcdefghijklmnopqrstuvwxyz\x00"
;
;SOUS4: affiche une chaine de caractéeres
;
;IN:  SP+0=chaine de caractères à afficher
;
;OUT: aucun retour
;
retour:  .EQUATE 0           ; #2h
achaine: .EQUATE 2           ; #2h
;
SOUS4:   STRO    achaine,sf  
         LDA     retour,s    
         STA     achaine,s   ; adresse de retour
         RET2                ; désempilons #achaine
         .END