Új hozzászólás Aktív témák

• #356 vanek tag Jester01 #355

  Új Válasz 2014-05-18 11:04:08 #356

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vanek

  tag

  válasz Jester01 #355 üzenetére

  Köszönök minden segítséget, volt rá időm és összedobtam egy kódot..

  Mivel sajnos még nem nagyon tiszta a regiszterek használata, így szeretném azt kérni, hogy lehetne ellenőrizni..

  ;Kosntans
  
  LF equ 10
  CR equ 13
  Space equ 32
  
  
  
  
  
  KOD SEGMENT PARA PUBLIC 'CODE'
  
  
  ASSUME CS:KOD, DS:DATA, SS:VEREM, ES:DATA
  
  
  ANAGRAMMA PROC FAR
  
  mov ax, DATA
  mov ds, ax
  mov es, ax
  
  ; főprogram
  
  mov ax, offset szoveg
  mov si, ax
  call kiir
  mov si, offset szo1
  call olvasbill
  mov si, offset szo2
  call olvasbill
  mov bx, offset szo1
  call rendez
  mov bx, offset szo2
  call rendez
  call hasonlit
  ; főprogram vége
  
  mov ah, 4ch
  mov al,00h
  int 21h
  
  
  
  
  
  ;--------------------------------------------------------
  
  olvasbill proc
  push si ;si mentése
  olv:
  mov ah, 1h ;bios eljárás sorszáma
  int 21h ;bios interrupt
  cmp al, SPACE ;Space kódja
  je olvasvege
  cmp al, CR
  je olvasvege
  mov [si], al ;betű tárolása a memóriában
  inc si ;a következő betű egyel magasabb mem. címre kerüljön
  jmp olv ;vissza az olvasás elejére
  
  olvasvege:
  mov byte ptr [si], SPACE ;a string veget space-val lezárjuk
  int 10h
  pop si
  ret
  olvasbill endp
  
  
  ;--------------------------------------------------------
  
  min proc
  
  mov dl, [bx] ;dl-ben az elso betű
  mov si, bx ;si mutasson az elejére
  c1: mov al, [si] ;akt betú betöltése
  cmp al, SPACE ;space, vagyis szó vége
  je vege1 ;ha igen: vége
  cmp al, dl ;akt. betű és az eddigi legkisebb
  jae c2 ;ha az akt. nagyobb ugorjunk
  mov dl, al ;jegyezzük meg mert kisebb
  xchg al, [bx] ;csere
  mov [si], al ;csere
  c2: inc si ;köv betű
  jmp c1 ;
  vege1: ret ;visszatérés
  min endp
  
  
  rendez proc
  c3: mov al, [bx] ;akt betű betölt
  cmp al, SPACE ;szó vége?
  je vege2 ;ha igen: vége
  call min ;tegyük az elejére a legkisebbet
  inc bx ;köv betű
  jmp c3
  vege2: ret ;eljárás vége
  rendez endp
  
  ;-----------------------------------------------------------
  
  hasonlit proc
  mov si, offset szo1
  mov di, offset szo2
  ;PUSH DS
  ;POP ES
  cld
  mov cx, 40 ;string hossza
  repe cmpsb ;összehasonlít
  je igen
  jne nem
  nem:
  
  mov si, offset szovegnemjo ; Nem Anagramma
  call kiir
  ret ; Visszatérés az op. rendszerhez
  igen:
  
  mov si, offset szovegjo ; Anagramma
  call kiir
  ret ; Visszatérés az op. rendszerhez
  
  hasonlit endp
  
  ;--------------------------------------------------------
  
  betukiir proc ;al ben a kiirandó betű
  mov ah, 14 ;BIOS rutin paramétere
  int 10h ;10h megszakítás hívása
  ret ;visszatérés
  betukiir endp
  
  ;--------------------------------------------------------
  
  kiir proc
  push si
  kov: mov al, [si] ;következő betű
  cmp al, 0 ;0 jelzi a str végét
  je strvege ;ha elértünk a végére ugrunk
  call betukiir ;egy betű kiirása
  inc si ;mutató a következő betűre
  jmp kov ;ugrás
  strvege:
  pop si
  ret ;eljárás vége
  kiir endp
  
  
  KOD ENDS
  
  ;========================================================
  
  DATA SEGMENT PARA PUBLIC 'DATA'
  
  
  szoveg db "Kerem a ket szot szokozzel elvalasztva: ",0
  szovegjo db "A ket szo anagramma!",0
  szovegnemjo db " A ket szo nem anagramma!",0
  
  szo1 db 40 dup (0)
  szo2 db 40 dup (0)
  
  
  
  
  
  
  DATA ENDS
  
  ;========================================================
  
  VEREM SEGMENT PARA STACK
  dw 1024 dup (0)
  VEREM ENDS
  
  
  
  
  END ANAGRAMMA

  igazából a hibákra vagyok kíváncsi.. működni jól működik, szóval azzal nincs gond.

  Előre is köszönöm!

Új hozzászólás Aktív témák