.model small
.stack 10h
.data
    didelis db 0Ah, 0Dh,"Per didelis skaicius$"
    enteris db 0Ah, 0Dh, 24h
    buff db 255, ?, 255 dup (?)

.code

start:

    mov ax, @data
    mov ds, ax

    mov ah, 0Ah
    mov dx, offset buff
    int 21h

    mov ah, 09h
    mov dx, offset enteris
    int 21h

    mov dx, offset buff

    mov bx, dx

    inc bx
    xor cx, cx
    mov cl, byte ptr [bx]

    xor ax, ax

    cmp cl, 05h
    jg perDidelis

    cmp cl, 01h
    je vienas

    cmp cl, 02h
    je du

    cmp cl, 03h
    je trys

    cmp cl, 04h
    je keturi

    cmp cl, 05h
    je penki

  vienas:
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h

    call KonvSpausdink

    jmp pabaiga ; reikia jmp konvertuok i 8aini

  du:
    mov dl, 10d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dl
    push ax

    xor ax, ax
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h

    xor dx, dx
    mov dx, ax

    pop ax

    add ax, dx

    call KonvSpausdink

    jmp pabaiga ; reikia jmp konvertuok i 8aini

  trys:
    mov dl, 100d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dl
    push ax

    xor ax, ax
    mov dl, 10d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dl
    push ax

    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h

    xor dx, dx
    mov dx, ax

    pop ax

    add ax, dx
    pop dx

    add ax, dx

    call KonvSpausdink

    jmp pabaiga ; reikia jmp konvertuok i 8aini

  keturi:
    mov dx, 1000d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dx
    push ax

    xor ax, ax

    mov dl, 100d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dl
    push ax

    xor ax, ax

    mov dl, 10d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dx
    push ax

    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h

    xor dx, dx
    mov dx, ax

    pop ax

    add ax, dx
    pop dx

    add ax, dx

    pop dx

    add ax, dx

    call KonvSpausdink

    jmp pabaiga ; reikia jmp konvertuok i 8aini

  penki:
    mov dx, 10000d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dx
    push ax

    xor ax, ax

    mov dx, 1000d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dx
    push ax

    xor ax, ax

    mov dl, 100d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dl
    push ax

    xor ax, ax

    mov dl, 10d
    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h
    mul dx
    push ax

    inc bx
    mov al, byte ptr [bx]
    sub ax, 30h

    xor dx, dx
    mov dx, ax

    pop ax

    add ax, dx
    pop dx

    add ax, dx

    pop dx

    add ax, dx

    pop dx

    add ax, dx

    cmp ax, 0FFFFh
    jg perDidelis

    call KonvSpausdink

    jmp pabaiga

  perDidelis:
    mov ah, 09h
    mov dx, offset didelis
    int 21h
    jmp pabaiga

  pabaiga:
    mov ah, 4Ch
    int 21h

  KonvSpausdink PROC

    push ax
    push bx
    push cx
    push dx

    mov cx, 08h
    push 02424h

   dalink:
    mov dx, 0h
    div cx

    push dx

    cmp ax, 0h
    ja dalink

    mov ah, 02h
   spausdink:
    pop dx
    cmp dx, 02424h
    je pabaigaProc
    add dl, 30h
    int 21h
    jmp spausdink


   pabaigaProc:
    pop dx
    pop cx
    pop bx
    pop ax

    ret

  KonvSpausdink endp

end start