Tri kolone: broj, korijen, kvadrat

; Napisati program koji prikazuje tabelu sa tri kolone. U prvoj koloni su prirodni brojevi od N1 do N2. U drugoj koloni su cjelobrojne vrijednosti kvadratnog korijena, a u trecoj vrijednosti kvadrata.
; Napomena*: program radi za jednocifrene brojeve!
data segment
    n1 db ?
    n2 db ?
    korijen db ?
    razmak db "  ", "$"
    n db ?
    prvcif db ?
    drucif db ?
    nr db 10, 13, "$"
    pkey db "press any key...$"
ends

stack segment
    dw   128  dup(0)
ends

code segment
start:
; set segment registers:
    mov ax, data
    mov ds, ax
    mov es, ax

    ; add your code here


    mov ah, 1
    int 21h
    sub al, 48
    mov n1, al ; unos prvog broja

    int 21h
    sub al, 48
    mov n2, al ; unos drugog broja

    mov ah, 9
    lea dx, nr
    int 21h

    mov cl, n1

    for2:

        cmp cl, n2
        jle radi
        jmp kraj

    radi:
        mov ah, 2
        mov dl, cl
        add dl, 48
        int 21h

        mov ah, 9
        lea dx, razmak
        int 21h

        mov n, cl
        call proc_kor
        mov ah, 2
        mov dl, korijen
        add dl, 48
        int 21h

        mov ah, 9
        lea dx, razmak
        int 21h

        mov al, cl
        mul cl
        mov bh, 10
        div bh

        mov prvcif, al
        mov drucif, ah

        mov ah, 2
        mov dl, prvcif
        add dl, 48
        int 21h

        mov ah, 2
        mov dl, drucif
        add dl, 48
        int 21h

        mov ah, 9
        lea dx, nr
        int 21h

        add cl, 1
        jmp for2

    kraj:
        nop



   proc_kor PROC

        mov bh, 1
        for1:
        cmp bh, 9
        jle racunajkor
        jmp krajfor1

    racunajkor:

        mov al, bh
        mul bh
        mov bl, 1
        div bl

        cmp al, n
        jge korijenje
        jmp uvecaj

    korijenje:
        mov korijen, bh
        jmp krajfor1

    uvecaj:
        add bh, 1
        jmp for1

    krajfor1:

    RET
    proc_kor ENDP



    lea dx, pkey
    mov ah, 9
    int 21h        ; output string at ds:dx

    ; wait for any key....
    mov ah, 1
    int 21h

    mov ax, 4c00h ; exit to operating system.
    int 21h
ends

end start ; set entry point and stop the assembler.