Palindrome

Palindrome - ASM - Programmation

Marsh Posté le 21-01-2006 à 20:31:38    

Bonjour,
 
Voila, j'ai écrit un palindrome en ASM. Je demande à l'utilisateur d'entrer un mot et je lui dit si c'est un palindrome ou pas meme si il tape des virgule ou autre. (,:,;,::,:k:;,:;,,y   ak => palindrome).
Pour saisir la chaine de caractere j'utilise la fonction 09h. Et je voudrais savoir comment je pourrait récuperer seulement le mot 'kayak'(voir exemple) pour l'afficher et afficher sa symetrie également (j'entend par là 'KAY') ?
Si vous pouviez m'aider ? MERCI
 
Programme:
 

Code :
  1. ;Duszynski                                                     19/12/2005
  2. ;Dimitri
  3. ;2121
  5. .MODEL SMALL 
  6. .STACK 
  7. .DATA
  8.  
  9.    titre DB "PALINDROME$"
  10.    slign DB "----------$"
  11.    carintro Db "Entrer une chaine de caracteres : $" 
  12.    carjuste DB 0ah, 0dh, "La chaine que vous avez entree est un palindrome !$" 
  13.    carfaux DB 0ah, 0dh, "La chaine que vous avez entree n'est pas un palindrome !$" 
  14.    recommencer DB 'Appuyer sur ENTER pour recommencer ou sur ESC pour arreter$'
  15.    vecteur DB 250, ?, 251 dup ('$')
  16.    vecteur2 DB 250, ?, 251 dup ('$')
  18. .CODE 
  20. MAINPROG :
  21.  
  22.    MOV AX, @DATA 
  23.    MOV DS, AX
  25.    MOV AH, 0Fh
  26.    INT 10h
  28.    MOV AH, 0h
  29.    INT 10h
  31.    MOV DH, 3
  32.    MOV DL, 30
  33.    MOV AH, 02h
  34.    INT 10h
  35.    MOV AX, 0900h
  36.    LEA DX, titre
  37.    INT 21h
  39.    MOV DH, 4
  40.    MOV DL, 30
  41.    MOV AH, 02h
  42.    INT 10h
  43.    MOV AX, 0900h
  44.    LEA DX, slign
  45.    INT 21h
  46.  
  47.    MOV DH, 6
  48.    MOV DL, 0
  49.    MOV AH, 02h
  50.    INT 10h
  51.    MOV AX, 0900h 
  52.    LEA DX, carintro 
  53.    INT 21h                     
  55.    MOV AH, 0Ah 
  56.    LEA DX, vecteur 
  57.    int 21h
  59. PLACE:
  61.    MOV SI, 2 
  62.    MOV BX, OFFSET vecteur
  63.    MOV AL, [BX + 1]
  64.    MOV AH, 0
  65.    MOV DI, AX
  66.    INC DI
  67.    PUSH DI 
  69. PALINDROME: 
  70.  
  71.    CMP SI, DI 
  72.    JB COMPARAISON_SI
  74. SAUTFIN1:
  75.    JMP FIN1
  77. COMPARAISON_SI:
  79.    CMP vecteur[SI], 30h 
  80.    JB SI_PONCTUATION
  81.    CMP vecteur[SI], 39h 
  82.    JBE OK_SI
  83.  
  84.    CMP vecteur[SI], 41h 
  85.    JB SI_PONCTUATION
  86.    CMP vecteur[SI], 5Ah 
  87.    JBE OK_SI
  88.  
  89.    CMP vecteur[SI], 61h 
  90.    JB SI_PONCTUATION
  91.    CMP vecteur[SI], 7Ah 
  92.    JBE MAJ_SI
  93.  
  94.    CMP vecteur[SI], 82h
  95.    JE MAJ_é_SI
  96.  
  97.    CMP vecteur[SI], 85h
  98.    JE MAJ_à_SI
  99.  
  100.    CMP vecteur[SI], 88h
  101.    JE MAJ_ê_SI
  102.  
  103.    CMP vecteur[SI], 8Ah
  104.    JE MAJ_è_SI
  106. SI_PONCTUATION:
  107.  
  108.    INC SI 
  109.    JMP PALINDROME
  110.  
  111. MAJ_SI:
  113.    SUB vecteur[SI], 20h
  114.    JMP OK_SI
  116. MAJ_é_SI:
  118.    SUB vecteur[SI], 37h
  119.    JMP OK_SI
  121. MAJ_à_SI:
  123.    SUB vecteur[SI], 44h
  124.    JMP OK_SI
  126. MAJ_ê_SI:
  128.    SUB vecteur[SI], 43h
  129.    JMP OK_SI
  131. MAJ_è_SI:
  133.    SUB vecteur[SI], 69h
  134.  
  135. OK_SI:
  137.    MOV DL, vecteur[SI] 
  139. COMPARAISON_DI:
  141.    CMP vecteur[DI], 30h 
  142.    JB DI_PONCTUATION
  143.    CMP vecteur[DI], 39h 
  144.    JBE VERIFICATION
  145.  
  146.    CMP vecteur[DI], 41h 
  147.    JB DI_PONCTUATION
  148.    CMP vecteur[DI], 5Ah 
  149.    JBE VERIFICATION
  150.  
  151.    CMP vecteur[DI], 61h 
  152.    JB DI_PONCTUATION
  153.    CMP vecteur[DI], 7Ah 
  154.    JBE MAJ_DI
  155.  
  156.    CMP vecteur[DI], 82h
  157.    JE MAJ_é_DI
  158.  
  159.    CMP vecteur[DI], 85h
  160.    JE MAJ_à_DI
  161.  
  162.    CMP vecteur[DI], 88h
  163.    JE MAJ_ê_DI
  164.  
  165.    CMP vecteur[DI], 8Ah
  166.    JE MAJ_è_DI
  168. DI_PONCTUATION:
  170.    DEC DI 
  171.    JMP PALINDROME
  172.  
  173. MAJ_DI:
  175.    SUB vecteur[DI], 20h
  176.    JMP VERIFICATION
  178. MAJ_é_DI:
  180.    SUB vecteur[DI], 37h
  181.    JMP VERIFICATION
  183. MAJ_à_DI:
  185.    SUB vecteur[DI], 44h
  186.    JMP VERIFICATION
  188. MAJ_ê_DI:
  190.    SUB vecteur[DI], 43h
  191.    JMP VERIFICATION
  193. MAJ_è_DI:
  195.    SUB vecteur[DI], 69h
  196.        
  197. VERIFICATION:
  198.  
  199.    CMP vecteur[DI], DL 
  200.    JNE FIN2 
  201.    DEC DI 
  202.    INC SI 
  203.    JMP PALINDROME   
  205. FIN1:
  206.  
  207.    MOV DH, 10
  208.    MOV DL, 0                 
  209.    MOV AH, 02h
  210.    INT 10h
  211.    MOV AX, 0900h             
  212.    LEA DX, carjuste 
  213.    INT 21h 
  214.    MOV AX, 0900h             
  215.    LEA DX, vecteur2 
  216.    INT 21h 
  217.    JMP RECOMMENCE 
  219. FIN2:
  220.  
  221.    MOV DH, 10
  222.    MOV DL, 0                 
  223.    MOV AH, 02h
  224.    INT 10h
  225.    MOV AX, 0900h               
  226.    LEA DX, carfaux 
  227.    INT 21h
  229. RECOMMENCE:
  231.    MOV DH, 15
  232.    MOV DL, 10          ;
  233.    MOV AH, 02h
  234.    INT 10h
  235.    MOV DX, OFFSET recommencer
  236.    PUSH AX
  237.    MOV AX, 0900h
  238.    INT 21h
  239.    POP AX
  241.    MOV AH, 01h
  242.    INT 21h
  243.    CMP AL, 1Bh
  244.    JE QUIT
  245.    JMP MAINPROG
  247. QUIT:
  249.    MOV AX, 4C00h 
  250.    INT 21h 
  252. END

Reply

Marsh Posté le 21-01-2006 à 20:31:38   

Reply

Marsh Posté le 21-01-2006 à 20:42:51    

mais bon dieu, c'est quoi cette manie d'écrire dans un assembleur obsolète et de 20 ans d'age ? [:mlc]


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 21-01-2006 à 21:02:38    

c'est pour apprendre à cracker les jeux :D


---------------
TReVoR - http://dev.arqendra.net - http://info.arqendra.net
Reply

Marsh Posté le 22-01-2006 à 11:09:44    

Bonjour,
 
Non c'est pas pour cracker les jeux c'est juste le plaisir d'apprendre de nouveaux trucs.
Au sinon pas d'idée pour mon problème ??
 
Merci

Message cité 1 fois
Reply

Marsh Posté le 22-01-2006 à 13:37:56    

MAD_DIM a écrit :


Non c'est pas pour cracker les jeux c'est juste le plaisir d'apprendre de nouveaux trucs.


quitte à apprendre, autant le faire sur de l'assembleur 32 bits, tu te feras certainement moins chier [:pingouino]
http://masm32.online.fr/masm32.htm
 

MAD_DIM a écrit :


Au sinon pas d'idée pour mon problème ??


en fait j'ai pas trop compris ce que tu cherches à faire

Message cité 1 fois

---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 22-01-2006 à 14:08:18    

Harkonnen a écrit :

quitte à apprendre, autant le faire sur de l'assembleur 32 bits, tu te feras certainement moins chier [:pingouino]
http://masm32.online.fr/masm32.htm
 
 
en fait j'ai pas trop compris ce que tu cherches à faire


 
Ne l'écoute pas, si tu veux apprendre à te familiariser avec l'assembleur, commencer par le 8088 est un bon choix :
En programmation ce qui compte, c'est l'esprit, la philosophie , etc... pas les lignes de codes d'un langage sur une machine: les gros bourrins qui pondent des lignes de codes sans réfléchir et s'exclament :"Mais Ca marche !" ne comprendrons jamais rien à l'informatique .
A l'X, pour apprendre des choses simples, on passe par des choses simples :
http://www.enseignement.polytechni [...] pil/TD/un/
 
J'ai commencé par les 6800,SATURN( processeur des HP48, 1Mhz 4bits :p), etc...
Ensuite tu pourras attaquer les notions de parallélismes,Pipeline, Delay branch, cache etc...
Tu t'intéresseras aux archis RISC et CISC, aux SISD, SIMD, MISD,MIMDetc...
Bref, tu feras les choses dans l'ordre et tu n'auras alors jamais à écrire "en fait j'ai pas trop compris ce que tu cherches à faire[", car tu aurras appris à apprendre, à comprendre, et à faire...

Reply

Marsh Posté le 22-01-2006 à 20:45:27    

mais oscours quoi [:pingouino]


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 23-01-2006 à 11:25:43    

bah en BTS/IUT, ils font généralement de l'asm sous DOS avec tasm & co...
 
pour apprendre c'est pas si mal.

Reply

Marsh Posté le 23-01-2006 à 12:43:48    

Citation :

A l'X, pour apprendre des choses simples, on passe par des choses simples :


ouarf ! je me gausse un X qui ferait des choses simples ! si ça existait ça se saurait
pour quelqu'un de normal le pourquoi faire simple quand on peut faire compliqué
devient pour un X pourquoi faire compliqué quand on peut faire inextricable.
J'en déduis qu'à l'X on apprend donc jamais de choses simples.
C'est facile mais ça défoule quand on a un QI de 10 comme moi

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed