loada   string,i	;recuperer l'adresse de la string
            storea  d#-2,s		;la stocker sur la pile
            addsp   d#-2,i		;ajuster le pointeur
            jsr     afficher	;et appeler la fonction
            stop

string:     .ASCII  /Bonjour/
            .BYTE   d#0


afficher:   loadb   d#2,s       ;charger l'adresse de la chaîne dans BP
            loadx   d#0,i
            loada   d#0,i

rep:        ldbyta  ,x          ;boucle d'affichage, rien de nouveau...
            breq    finaff
            charo   ,x
            addx    d#1,i
            br      rep

finaff:     loada   d#0,s       ;charger l'adresse de retour
            storea  d#2,s       ;la placer en haut
            addsp   d#2,i       ;et nettoyer la pile
            rts


            .END