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 |
Partager