silnia

    org 100h        ;Przesuniecie

start:
    xor     ax,ax

    mov     ah,2
    mov     dl,10
    int     21h

    mov     ah,2
    mov     dl,13
    int     21h

    mov ah,1        ;Zmienna
    int 21h
    sub al,48
    mov [zm1],al
    mov ax,[zm1]

    cmp al,9        ;Wyswietlanie silni dla max wartosci 8
    je  end

    push    ax
    call    silnia

    mov ah,2        ;Spacja
    mov dl,32
    int 21h

    call    wyswietl
    jmp end

silnia:
    pop bx
    pop ax
    mov cx,ax
    mov ax,1
    petla:
        mul cx
    loop petla
    push ax
    push bx
ret

wyswietl:
    pop cx
    pop dx
    cmp dx,9
    jna pokaz
    mov ax,dx
    mov bx,10
    xor dx,dx
    div bx
    push dx
    push cx
    push ax
    push wyswietl
    jmp wyswietl

pokaz:
    mov ah,2
    add dl,48
    int 21h
    push cx
ret

end:
    mov ax,4C00h
    int 21h


zm1 dw  0