.model tiny
.386
.data
    tekst   db "Podaj liczbe: $"
.stack 100h
.code
start:
    mov ax, @data
    mov ds, ax

    ; wy?wietlenie tekstu ?Podaj liczbe: ? na ekranie
    mov dx, offset tekst
    mov ah, 09h
    int 21h

    ; wczytanie liczby
    mov ah, 01h
    int 21h         ; wczytany kod znaku (ASCI) znajduje si? w AL

    xor ah, ah      ; wyzerowanie rejestru AHr
    sub al, '0'     ; konwersja znaku na liczb? (odj?cie 48 czyli kodu ASCII cyfry '0')
    mov bl, 4       ; u?ycie rejestru BL jako tymczasowego do przechowania warto?ci 3

    div bl          ; podzielenie rejestru AX przez warto?? rejestru BL (czyli 3)

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




    ; zako?czenie programu
        mov ah, 4Ch
        int 21h
end start