HUFFMAN
monseigneurdaco
Messages postés
5
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
28 juillet 2005
-
27 janv. 2005 à 17:27
monseigneurdaco Messages postés 5 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 28 juillet 2005 - 3 févr. 2005 à 16:46
monseigneurdaco Messages postés 5 Date d'inscription vendredi 21 janvier 2005 Statut Membre Dernière intervention 28 juillet 2005 - 3 févr. 2005 à 16:46
2 réponses
cs_ManChesTer
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
3 févr. 2005 à 10:07
3 févr. 2005 à 10:07
tu trouveras ce que tu cherches sur
http://www.programmersheaven.com/zone5/cat462/index.htm
Bon Coding ....
ManChesTer.
http://www.programmersheaven.com/zone5/cat462/index.htm
Bon Coding ....
ManChesTer.
monseigneurdaco
Messages postés
5
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
28 juillet 2005
3 févr. 2005 à 16:46
3 févr. 2005 à 16:46
Merci beaucoup pour ces liens, j ai essayé d ecrire un programme qui calcule le nombre de chaque caractere dans le texte, mais j ai pas mal d erreur de prog et j arrive pas a les trouver
ORG $2000
DC.B 'le texte à compresser est celui que vous lisez actuellement'
DC.B 'il ne comportera que des lettres minuscules,'
DC.B 'un minimum de ponctuation et des espaces'.
ORG $5000
LEA $0000,A1
LEA $2000,A0
TAILLE CMP (A0),#0
BNE T1
BEQ DEBUT
T1 ADD.L #1,D0
ADD.L #$1,A0
JMP TAILLE
DEBUT LEA $2000,A0
COMP TEST D0
BE Then
MOVE.B (A0),D1
ADD.B #$1,A0
CMP.B (A1),#0
BEQ K1
BNE NON K1
K1 MOVE.B D1,(A1)
LEA $2000,A1
SUB.L #1,D0
JMP COMP
NON K1 CMP D1,(A1)
BNE NON K2
BEQ K2
NON K2 ADD.L #$2,A1
JMP COMP
K2 ADD.L #$1,A1
SUM.L #1,(A1)
SUB.L #1,D0
JMP COMP
Then BRA
ORG $2000
DC.B 'le texte à compresser est celui que vous lisez actuellement'
DC.B 'il ne comportera que des lettres minuscules,'
DC.B 'un minimum de ponctuation et des espaces'.
ORG $5000
LEA $0000,A1
LEA $2000,A0
TAILLE CMP (A0),#0
BNE T1
BEQ DEBUT
T1 ADD.L #1,D0
ADD.L #$1,A0
JMP TAILLE
DEBUT LEA $2000,A0
COMP TEST D0
BE Then
MOVE.B (A0),D1
ADD.B #$1,A0
CMP.B (A1),#0
BEQ K1
BNE NON K1
K1 MOVE.B D1,(A1)
LEA $2000,A1
SUB.L #1,D0
JMP COMP
NON K1 CMP D1,(A1)
BNE NON K2
BEQ K2
NON K2 ADD.L #$2,A1
JMP COMP
K2 ADD.L #$1,A1
SUM.L #1,(A1)
SUB.L #1,D0
JMP COMP
Then BRA
