Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .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, 10 ; u?ycie rejestru BL jako tymczasowego do przechowania warto?ci 4
- mul bl
- mov cl,al
- 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')
- add cl,al
- mov bl,4
- xor al,al
- mov al,cl
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement