org 100h



start:
call ciag1
call ciag2

xor bx,bx
xor bl,bl
xor bh,bh

mov bh, [lancuch1+1]
mov bl, [lancuch2+1]

;+++++++++++++++++++++++++++ sprawdzenie dl łancuchow +++++++++++++++++++++++++++

cmp bh,bl

jz rowne
jl wiekszy_2
jg wiekszy_1

rowne:
mov ah,9
mov dx, thesame
jmp wypisz
ret
wiekszy_2:

mov ah,9
mov dx, dlugi2
jmp wypisz
ret
wiekszy_1:

mov ah,9
mov dx, dlugi1
jmp wypisz

;+++++++++++++++++++++++++++ komunikat koncowy +++++++++++++++++++++++++++++++++

wypisz:
int 21h
mov ah,9
mov dx, zap
int 21h

mov ah, 1 ; wczytuje dowolny klawisz i konczy program
int 21h
cmp al,13    ; jezeli zczytany znak jest enterem(13) wraca na start
jnz start

mov ax, 4c00h
int 21h

end:
;+++++++++++++++++++++++++++ koniec +++++++++++++++++++++++++++++++++

ciag1:
mov ah, 9 ;funkcja wyswietlania na ekran
mov dx, p_c_z1 ;p_c_z:podaj ciag znakow - co wyswietlic
int 21h

mov ah, 0ah  ; funkcja pobierania danych z klawiatury
mov dx, lancuch1     ;bufor na dane lancucha 1
int 21h  ;pobierz dane
ret

ciag2:
mov ah, 9 ;funkcja wyswietlania na ekran
mov dx, p_c_z2 ;p_c_z:podaj ciag znakow - co wyswietlic
int 21h

mov ah, 0ah  ; funkcja pobierania danych z klawiatury
mov dx, lancuch2     ;bufor na dane lancucha 1
int 21h  ;pobierz dane
ret


p_c_z1  db 13,10,13,10, "**************************************************"
db 13,10,   "Podaj 1 ciag znakow - $"
p_c_z2  db 13,10,   "Podaj 2 ciag znakow - $"
thesame db 13,10,   "Lancuchy znakow sa tej samej dlugosci. $",13,10,
dlugi1 db 13,10,    "1 Lancuch jest dluzszy od 2. $",13,10,
dlugi2 db 13,10, "2 Lancuch jest dluzszy od 1. $",13,10,
zap db 13,10,13,10, "**************************************************"
db 13,10,   "dowolny znak- jeszcze raz / enter- koniec $$$"


lancuch1    db 20    ;maksymalna ilosc znakow
db 0     ;tu dostane ile znakow pobrano
times 22 db "$" ; miejsce na dane

lancuch2    db 20    ;maksymalna ilosc znakow
db 0     ;tu dostane ile znakow pobrano
times 22 db "$" ; miejsce na dane