Szyfr Cezara

    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+3
    int     21h

ret

szyfr:

    xor     ax, ax

    mov     ah, 9
    mov     dx, kom1
    int     21h

    mov     ah, 1
    int     21h

    xor     ah, ah
    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

;WORK IN PROGRES
szyfrowanie:

    mov     si, 2
    mov     ch, 2

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

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

    add     si, 1
kon2:

ret



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