Relecture d'une chaîne dès le début

[guizaniseifislam]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
                 lda 0, i
                 sta nbCar, d
                 ldx 0, i
                 stx nbSep, d     ;10 octets jusk ici
 
                 deci nb, d 
                 lda nb, d
                 sta nb, d
                 cpa 0, i
                 breq is0         ;24 octets jusk ici
                 .
                 .
                 .

comment je fais, apres le 24eme octets, pour que mon prog relit le nombre saisie au clavier, par caractere, des le dédut pour faire un autre traitement?

j'ai fai ca mais ca pas fonctionné:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
boucle1:     lda 0, i                         ;vider a
                 chari sCar, d            ;compter le nombre des caracteres 
                 ldbytea    sCar, d      ;lire caractere par caractere
                 cpa     0x0A, i          ;fin de la ligne
                 breq    fboucle1         ;si fin ligne => aller au traitement 
                                              ;après la boucle
                 ldx nbCar, d             ;initialiser x par nbCar pour l'augmenter 
                                              ;et le stocker de nouveau à nbCar
                 addx 1, i
                 stx nbCar, d
 
                 br boucle1
 
fboucle1:     deco nbCar, d            ;juste pour test                 
                 stop
 
is0:             stro is0m, d
                 stop
 
;variables
sCar:            .block 1                 ;#1c ;le caractère lu
nbCar:           .block 2                 ;#2d ;nombre des caractères
nb:              .block 2                 ;#2d ;le nbr saisie
 
 
;variables msg
errNbrm:         .ASCII "nombre erroné\x00"
is0m:            .ASCII "entrée: 0 \nsortie: 0\x00"
 
.end

merci