Szyfr cezara WORIKING

    org 100h
start:

    call    pobierztekst
    call    newline
    call    szyfr
    call    newline
    call    konwertowanie
    call    wyswietl
    call    newline
    call    szyfrowanie
    call    wyswietl

koniec:

    mov     ax, 4C00h
    int     21h

wyswietl:

    mov     ah, 9
    mov     dx, tekst+2
    int     21h

ret

szyfr:

    xor     ax, ax

    mov     ah, 9
    mov     dx, kom1
    int     21h

    mov     ah, 1
    int     21h

    xor     ah, ah
    sub     ax, '0'
    mov     [szyfrb], ax

ret

newline:

    mov     ah, 2
    mov     dl, 10
    int     21h

    mov     dl, 13
    int     21h

ret

pobierztekst:

    xor     ax, ax

    mov     ah, 9
    mov     dx, kom2
    int     21h

    xor     dx, dx
    mov     ah, 10
    mov     dx, tekst
    int     21h

ret

konwertowanie:
    mov     si, 2

pet1:
    xor     ax, ax

    mov     ah, [tekst+si]

    cmp     ah, '$'
    je      kon1

    cmp     ah, 'A'
    jb      mniejabig

    cmp     ah, 'Z'
    ja      wiecejzbig

    add     ah, 32
    mov     [tekst+si], ah

wroc:

    add     si, 1
    jmp     pet1

mniejabig:

    mov     ah, 32
    mov     [tekst+si], ah
    jmp     wroc

wiecejzbig:

    cmp     ah, 'a'
    jb      mniejalow

    cmp     ah, 'z'
    ja      wiecejzlow

    jmp     wroc

mniejalow:

    mov     ah, 32
    mov     [tekst+si], ah
    jmp     wroc

wiecejzlow:

    mov     ah, 32
    mov     [tekst+si], ah
    jmp     wroc

kon1:

ret

szyfrowanie:

    mov     si, 2
    mov     ch, [szyfrb]

pet2:
    mov     ah, [tekst+si]
    cmp     ah, '$'
    je      kon2

    cmp     ah, 32
    je      wroc2

    add     ah, ch
    cmp     ah, 'z'
    ja      wiecej

    mov     [tekst+si], ah

    jmp     wroc2

wiecej:
    xor     bx, bx
    mov     bh, ah

    sub     bh, 'z'
    mov     ah, 96
    add     ah, bh
    mov     [tekst+si], ah

wroc2:

    add     si, 1
    jmp     pet2

kon2:

ret

kom1    db  "Podaj wartosc szyfru:  $"
kom2    db  "Podaj tresc szyfru:    $"
szyfrb  db  0
tekst   db  26
        db  0
        TIMES 27 db '$'