macro exit{
mov ah,4ch
int 21h
}
macro pause_press{
mov ah,07h
int 21h
}
macro writing_text txt{
mov ah,9
mov dx,txt
int 21h
}

macro set_cursor x,y{
mov dh,x
mov dl,y
mov bh,0
mov ah,2

int 10h
}
macro l_or_p_or_w{
mov ah,0
int 16h
mov [wybor],al
cmp al,76 ; klawisz L
je process_binary

cmp al,80 ; klawisz P
je process_binary

cmp al,87; klawisz W
je process_wynik

cmp al,27 ;klawisz ESC
je process_exit

cmp al,8 ; klawisz backspace
je process_deleting_char

jmp listen

}


macro deleting_char{
mov ah,3
mov bh,0

}
macro binary_writing char{
mov ah,2
mov dl,char
int 21h
mov dx,odstep
mov ah,9
int 21h
mov cx,8
bin:
mov ah,0
int 16h
cmp al,8
je p_bs
cmp al,27
je process_exit
cmp al,'0'
je p_bin_zero
cmp al,'1'
je p_bin_one
cmp al,13
je p_updating_value
add cx,1
loop bin
bin_code:
mov ah,0
int 16h
cmp al,13
je p_updating_value
cmp al,8
je p_bs
cmp al,27
je process_exit
jmp bin_code
}
macro bs{
cmp cx,8
je bin

pushad
mov ah, 03h ; pobranie aktualnej pozycji kursora
mov bh, 0h ; dh - wiersz, dl - kolumna
int 10h

cmp dl,13
jl bin
dec dl ; aktualizacja pozycji kursora
mov ah, 02h
int 10h

mov ah, 0Ah ; wstawienie pustego znaku
mov al, 0h
mov bh, 0h
int 10h
popad
add cx,1
jmp bin
}
macro clean_value{

}
macro bin_zero{
mov ah,2
mov dl,al
int 21h
rcl [bin0],1
loop bin
jmp bin_code
; jmp process_wynik
}
macro bin_one{
mov ah,2
mov dl,al
int 21h
rcl [bin0],1
add [bin0],1
loop bin
jmp bin_code
; jmp process_wynik
}
macro to_hex zm{
mov al,[zm]
shr al,4
cmp al,10
jb ety
add al,55
jmp ety2
ety:
add al,30h
ety2:
mov dl,al
mov ah,2
int 21h
mov al,[zm]
and al,0fh
cmp al,10
jb ety3
add al,55
jmp ety4
ety3:
add al,30h
ety4:
mov dl,al
mov ah,2
int 21h
}

macro to_oct zm{
mov al,[zm]
shr al,6
add al,30h
mov dl,al
mov ah,2
int 21h

mov al,[zm]
shl al,2
shr al,5
add al,30h
mov dl,al
mov ah,2
int 21h
mov al,[zm]
and al,7
add al,30h
mov dl,al
mov ah,2
int 21h



}
macro updating_value{
cmp [wybor],'L'
je p_set_cursor_l
cmp [wybor],'P'
je p_set_cursor_p

}
macro wynik_writing{
cmp [wybor],'W'
je p_set_cursor_w
}
macro cleaning_value{
mov cx,15
pl:
mov ah,2
mov dl,' '
int 21h
loop pl

}

macro setPos x,y
{
mov ah, 02h
mov bh, 0
mov dh, x
mov dl, y
int 10h
}

macro clrscr
{
mov ah, 00h
mov al, 00h
int 10h
}

macro keyPress
{
mov ah, 0h
int 16h
}

macro exit
{
mov ah, 04Ch
int 21h
}

macro showString X
{
mov ah, 09h
mov dx, X
int 21h
}

macro getChar
{
mov ah, 0h
int 16h
}