sts segment stack 'stack'
        db 512 dup(0)
sts ends

dane segment
        txt1 db 'Wpisz 10 cyfr',10,13,'$'
        txt2 db 'nacisnij Esc$'
		liczba dw 0
dane ends

include macros.asm

wysw_znak macro znak_ASCII

	mov dl, znak_ASCII
	mov ah,2
	int 21h
endm

pob_znak macro
	mov ah,7
	int 21h
endm

prog segment
        assume cs:prog,ds:dane,ss:sts
P486N
start:
        mov ax,seg dane
        mov ds,ax
        clrscr

        ustaw_kursor 10,10
        wyswietl txt1
        ustaw_kursor 15,10

zamiana:
ustaw_kursor 2,8
mov bx, liczba
mov ah, bh
mov cl, 7
;bin wyswietlenie znak po znaku ze zmiennej "liczba"
b8ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 64
    mov cl, 6
b7ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 32
    mov cl, 5
b6ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 16
    mov cl, 4
b5ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 8
    mov cl, 3
b4ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 4
    mov cl, 2
b3ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 2
    mov cl, 1
b2ph:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bh
    and ah, 1
    add ah, '0'
    wysw_znak ah
mov ah, bl
    and ah, 128
    mov cl, 7
b8pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 64
    mov cl, 6
b7pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 32
    mov cl, 5
b6pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 16
    mov cl, 4
b5pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 8
    mov cl, 3
b4pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 4
    mov cl, 2
b3pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 2
    mov cl, 1
b2pl:
    shr ah, cl
    add ah, '0'
    wysw_znak ah

    mov ah, bl
    and ah, 1
    add ah, '0'
    wysw_znak ah

prog ends
end start