;Un programme impur (qui modifie ses instructions au cours de
;l'exécution) à ne pas émuler, mais à comprendre.
         LDA     0,i         ; vider registre A
Encore:  LDBYTEA texte,d     ;while(true){
         BREQ    Arret       ; if(caractère == 0) break;
         CHARO   texte,d     ; else{ afficher caractère
         LDA     0x0004,d    ; copier opérande LDBYTEA
         ADDA    1,i         ; et l'augmenter
         STA     0x0004,d    ; modifier opérande LDBYTEA
         STA     0x000A,d    ; modifier opérande CHARO
         BR      Encore      ; }//if
Arret:   STOP                ;}//while
texte:   .ASCII  "Un texte assez long....\x00"
         .END