dane        SEGMENT ;segment danych
zmiennak    db 0h
tekst_start db "podaj zmienna"
tekst_blad  db 0dh, 0ah,"Nie ma takiej litery", 0dh, 0ah, "$"
;0dh, 0ah -> koniec linii
tekst_gwiazdki  db 0dh, 0ah, "********", 0dh, 0ah, "$"
nlcr        db 0dh, 0ah, "$"
dane        ENDS

rozkazy     SEGMENT ;segment rozkazu
        ASSUME cs:rozkazy, ds:dane
    startuj:
        mov ah, 01h
        int 21h
        mov zmiennak, al
        sub zmiennak, 30h
        jmp wyswietl


    czytaj:

        mov si, 0
        mov ch, 0
        mov cl, 0
        ;wpisz string do bx

        mov dl, 0

        ;te dwie komendy to wypisywanie wczytanie klawisza z komendy do
        ;rejestru al
        mov ah, 01h     ;zczytanie z kalwy do al Hexalnie, 02h wyswietlanie dl int 21h
        int 21h         ; przerwanie

        ;jesli warunek spelniony to wykonaj linijke nizej
        cmp al, " "
            jz koniec
        jmp dodaj

    dodaj:
        add al, zmiennak
        mov dl, al
        cmp dl, 'z'
            jg zakrec
        jmp wyswietl

    zakrec:
        mov bx, offset tekst_start
        mov ah, 09h
        int 21h
        jmp czytaj

    wyswietl:
        mov ah, 02h
        int 21h
        jmp czytaj


    koniec:
        mov ah, 09h
        int 21h
        mov al, 0
        mov ah, 4CH
        int 21H

rozkazy ENDS

stosik SEGMENT stack
    dw  128 dup(?)
stosik ENDS

END startuj