.model small
.stack 512
.data
    tekst db 'Podaj tekst: $'

.code
    mov ax, @data
    mov ds, ax

    mov ah, 9
    mov dx, offset tekst
    int 21h

    mov cx, 100
    mov dx, 0

wczytaj:
    mov ah, 1
    int 16h

    cmp al, 13
    jmp wczytane

    cmp al, '$'
    jmp wczytane

    cmp al, '0'
    loop wczytaj

    cmp al, '9'
    jle dziesietna

    cmp al, 'A'
    loop wczytaj

    cmp al, 'Z'
    jle duza

    cmp al, 'a'
    loop wczytaj

    cmp al, 'z'
    jle mala

    loop wczytaj

liczba:
    sub al, 48
    jmp suma

duza:
    sub al, 64
    jmp suma

mala:
    sub al, 96

suma:
    mov ah, 0
    add dx, ax

    loop wczytaj

wczytane:
    and dx, 15
    cmp dx, 9
    jg wyswietl_znak

wyswietl_liczbe:
    add dx, 48

wyswietl_znak:
    add dx, 55
    jmp koniec

koniec:
    mov al, dl
    mov ah, 0eh
    int 10h

    mov ax, 4c00h
    int 21h
end