start:
    xor     ax,ax
    xor     dx,dx
    xor     bx,bx
    xor     cx,cx
    xor     di,di

    mov     cx,3    ;   przyjmujemy maksymalnie 3 cyfrowa liczbe
    jmp     wpiszZmiennaA


;pobierz zmienna A
wpiszZmiennaA:

    mov     ah,9
    mov     dx,ent1
    int     21h

    mov     ah,9
    mov     dx, wpZmien1
    int     21h

    mov     ah,1
    int     21h

    jmp     sprZmiennaA

;sprawdzamy czy zmienna  nie jest jakims znakiem specjalnym lub  enterem
sprZmiennaA:

    cmp     al, 13
    je          koniecWpiszZmienna

    cmp     al,48
    jb          zlyZnak

    cmp     al,57
    ja          zlyZnak

    mov     ah,0

    sub     ax,48

    push    ax

    inc     di

    loop        wpiszZmiennaA

koniecWpiszZmiennaA:
    cmp     cx,3            ; jesli petla nie wykona sie ani razu, bo wprowadzilismy np enter, znaczy ze podano zly znak
    je          zlyZnak

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

sciagnijZeStosu:
    sub     di,1

    mov     cx,di
    pop     ax

    add     bh,ax
    mov     bl,10
petlaDoStosu:
    xor     ax,ax

    pop         ax
    mul     bl

    add     bh,ax

    xor     ax,ax
    mov     ax,bl

    mul     bl
    mov     bl,ax

    loop petlaDoStosu

    xor     ax,ax
    mov     ax,bh
    push    ax