loadb chaine,i loadx d#0,i loada d#0,i rep: ldbyta ,x breq finprog charo ,x addx d#1,i br rep finprog: stop chaine: ASCII /Bonjour/ .BYTE d#0