rmSpausdint db 17, "$$+$$$poslinkis$"
rmSpausdint2 db 14, "$$$poslinkis$"



PROC determineRegrm
        push bx
        push dx
        push ax
        mov naudojomBP, 0
        mov rmAdress, 0
        mov ax, 0
    cmp cl, 0
        jne herm
    mov rmSpausdint, 'B'
    mov rmSpausdint+1, 'X'
    mov rmSpausdint+3, 'S'
    mov rmSpausdint+4, 'I'
    mov kurisRM, 1

    mov bx, regBX
    mov dx, regSI
    add rmAdress, bx
    add rmAdress, dx
        jmp doRet
herm:
    cmp cl, 1
        jne hemer
    mov rmSpausdint, 'B'
    mov rmSpausdint+1, 'X'
    mov rmSpausdint+3, 'D'
    mov rmSpausdint+4, 'I'
    mov kurisRM, 1

    mov bx, regBX
    mov dx, regDI
    add rmAdress, bx
    add rmAdress, dx
        jmp doRet
hemer:
    cmp cl, 2
        jne hemeras
    mov rmSpausdint, 'B'
    mov rmSpausdint+1, 'P'
    mov rmSpausdint+3, 'S'
    mov rmSpausdint+4, 'I'
    mov kurisRM, 1
    mov bx, regBP
    mov dx, regSI
    add rmAdress, bx
    add rmAdress, dx
    mov naudojomBP, 1
        jmp doRet
hemeras:
    cmp cl, 3
        jne hemezasd
    mov rmSpausdint, 'B'
    mov rmSpausdint+1, 'P'
    mov rmSpausdint+3, 'D'
    mov rmSpausdint+4, 'I'
    mov kurisRM, 1
    mov bx, regBP
    mov dx, regDI
    add rmAdress, bx
    add rmAdress, dx
    mov naudojomBP, 1
        jmp doRet
hemezasd:
    cmp cl, 4
        jne herza
    mov rmSpausdint2, 'S'
    mov rmSpausdint2+1, 'I'
    mov kurisRM, 2
    mov dx, regSI
    add rmAdress, dx
        jmp doRet
herza:
    cmp cl, 5
        jne herzet
    mov rmSpausdint2, 'D'
    mov rmSpausdint2+1, 'I'
    mov kurisRM, 2
    mov dx, regDI
    add rmAdress, dx
        jmp doRet
herzet:
    cmp cl, 6
        jne herzemas
    cmp mods, 0
        je votCia
    mov rmSpausdint2, 'B'
    mov rmSpausdint2+1, 'P'
    mov kurisRM, 2
    mov bx, regBP
    add rmAdress, bx
    mov naudojomBP, 1
        jmp doRet
votCia:
    mov al, pjb
    mov ah, pvb
    add rmAdress, ax
        jmp toEnd
herzemas:
    cmp cl, 7
        jne toEnd
    mov rmSpausdint2, 'B'
    mov rmSpausdint2+1, 'X'
    mov kurisRM, 2
    mov bx, regBX
    add rmAdress, bx
doRet:
    cmp mods, 0
        jg cia
        jmp toEnd
cia:
    mov rmSpausdint2+2, '+'
    mov rmSpausdint+5, '+'
    mov al, pjb
    cmp mods, 2
        jne cia2
    mov ah, pvb
cia2:
    add rmAdress, ax
toEnd:
    pop ax
    pop dx
    pop bx
    ret
determineRegrm ENDP