kurwa w końcu działa

section .text

org 100h
jmp start

start_z_czyszczeniem_stosu:
pop ax
cmp ax, 0
jne start_z_czyszczeniem_stosu

xor ax, ax
xor dx, dx
xor cx, cx

start:

mov dx, v_witaj_podaj
mov ah, 09h
int 21h

podawanie:

call procedura_wprowadzznak

cmp al, 13
je pre_wypisz

cmp al, 09h ;kazali mi dodać zakończenie działania programu tabem
je koniec

cmp al, 64
jbe skok_blad

cmp al, 122
ja skok_blad

cmp al, 97
jae wszystko_okej

cmp al, 90
jbe wszystko_okej
ja skok_blad

wszystko_okej:
push ax
jmp podawanie

pre_wypisz: ;zostawilem to poki co
mov ax, 2
mul cx
mov cx, ax

wypisz:
cmp cx, 0
je start_z_czyszczeniem_stosu

sub cx, 2
mov dx, [esp + ecx]

cmp dx, 351
ja z_malej_na_duza
cmp dx, 64
ja z_duzej_na_mala

jmp wypisz

z_duzej_na_mala:
add dx, 32
mov ah, 02h
int 21h
jmp wypisz

z_malej_na_duza:
sub dx, 32
mov ah, 02h
int 21h
jmp wypisz

procedura_wprowadzznak:
mov ah, 01h
int 21h
inc cx

ret

skok_blad:
mov dx, v_blad
mov ah, 09h
int 21h
jmp start_z_czyszczeniem_stosu


koniec:
mov dx, v_zegnaj
mov ah, 09h
int 21h
mov ax, 4c00h
int 21h

section .data
v_blad db 10, "niestety to jest blad. podawaj tylko litery $"
v_witaj_podaj db 10, "podaj ciag liter $"
v_zegnaj db 10, "papa $"