Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- org 100h
- START:
- mov ah,9 ;Wyswietl Polecenie Podaj1
- mov dx,podaj1
- int 21h
- mov ah,9
- mov dx, linia ;Wyswietl Wolna linia
- int 21h
- mov ah,02h
- mov dx, ciag1 ;Wprowadza na ciag1 to co w dx
- int 21h
- mov ah,9
- mov dx, linia ;Wyswietl Wolna linia
- int 21h
- mov ah,9
- mov dx,podaj2 ;Wyswietl Polecenie Podaj 2
- int 21h
- mov ah,9
- mov dx,linia ;Wyswietl Wolna linia
- int 21h
- mov ah,02h
- mov dx, ciag2 ;Wprowadza na ciag2 to co w dx
- int 21h
- mov ah,9
- mov dx, linia ;Wyswietl Wolna linia
- int 21h
- ;Przypadek gdy dlugosci napisow sa rozne, wyswietlic ze sa rozne i kazac podac ponownie dwa lub nacisnac spacje by zakonczyc, czyli jmp START
- mov cl,[ciag1+1] ;wczyujemy dlugosc ciag1 na rejestr cl
- mov bl,[ciag2+1] ;wczytujemy dlugosc ciag2 na rejestr bl
- ;Porownujemy dlugosci, jesli sa rozne to skok do sprawdzania czy konczymy program czy od nowa
- cmp cl,bl
- jne czykoniec ;skaczemy do etykiety czykoniec a ona pozwala nam na wcisniecie znaku i wtedy dostaniemy odpowiedz czy zakonczyc program czy wczytac go od nowa
- je dzialanie ;jesli ciagi sa rowne to pobieramy znaki z tych ciagow i tworzymy trzeci ciag ktory na odpowiadajacych sobie pozycjach w lancuchach zrodlowych zawiera znaki o kodach ascii bedace srednia zaokraglona w gore
- dzialanie: ;i tu nie wiem co zrobic
- ;ciag trzeci(wyjsciowy) mozna by po koleji przechodzic przez znaki w lnacuchac i wrzucac srednią tych dwóch na stos, a pozniej ze stosu wyswietlic
- ;ale nie wiem jak przechodzic po koleji po znakach w lancuchu
- czykoniec:
- mov ah,9
- mov dx,podane ;Wyswietli ze podales roznej dlugosci ciagi, spacja-wyjdz, inny znak kontynuuj
- int 21h
- mov ah,9
- mov dx, linia ;Wyswietl Wolna linia
- int 21h
- mov ah,1 ;pozwala na wcisniecie klawisze i wpisuje go w rejestr al
- int 21h
- mov ah,9
- mov dx, linia ;Wyswietl Wolna linia
- int 21h
- cmp al,32 ;sprawdza czy wcisnieto spacje
- je koniec ;jesli spacja to konczymy program skaczemy do etykiety koniec
- jne start ;jesli nie spacja to idziemy na sam poczatek programu
- koniec:
- mov ah,4c00h ;wyjscie do dos
- int 21h ;wychodzimy
- podaj1 db "Podaj pierwszy ciag znakow: $"
- podaj2 db "Podaj drugi ciag znakow: $"
- podane db "Podales lancuchy roznych dlugosci, spacja - wyjdz z programu, inny znak kontynuuj od nowa $"
- linia db 10, 13, "$"
- ciag1 db 255
- ciag2 db 255
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement