section .text
org 100h
start:
glowna_petla:
mov dx, podajciag1
call wypisz_tekst

mov dx,ciag1
call podaj_ciag

call nowa_linia

mov dx, podajciag2
call wypisz_tekst

mov dx,ciag2
call podaj_ciag

call nowa_linia

call zlicz_sumy

call sprawdz_czy_koniec

jmp glowna_petla

wypisz_tekst:
mov ah,9
int 21h
ret

podaj_ciag:
mov ah,0ah
int 21h
ret

nowa_linia:
mov dx,nlinia
mov ah,9
int 21h
ret

sprawdz_czy_koniec:
mov dx, tekst_koniec
call wypisz_tekst
mov ah,01h
int 21h
call nowa_linia
cmp al,0Dh
je koniec
jne glowna_petla
ret

koniec:
mov ax,4c00h
int 21h

zlicz_sumy:
mov ecx, ciag1
xor ax,ax
call sumuj
mov cl,bl
mov ecx, ciag2
call sumuj
call porownaj
ret

sumuj:
gora:
mov al, [ecx]
inc ecx
cmp al, 0
jz dol
add bl,al
jmp gora
dol:
ret

porownaj:
cmp bl,cl
je sa_rowne
jne sa_nierowne

sa_rowne:
mov dx, rowne
call wypisz_tekst
call nowa_linia
call sprawdz_czy_koniec

sa_nierowne:
mov dx, nierowne
call wypisz_tekst
call nowa_linia
call sprawdz_czy_koniec

section .data
podajciag1 db "Podaj pierwszy ciag znakow: $"
podajciag2 db "Podaj drugi ciag znakow: $"
tekst_koniec db "Nacisnij ENTER aby zakonczyc lub dowolny przycisk aby kontynuowac$"
nierowne db "Sumy znakow ascii sa rozne$"
rowne db "Sumy znakow ascii sa rowne$"
nlinia db 10,13,'$'
ciag1 times 256 db '$'
ciag2 times 256 db '$'