section .data
msg1 db 'Vvedite simvol: $'
msg2 db 13,10,'ASCII kod (dec): $'
section .text
global _start
_start:
mov ah, 09h
mov dx, msg1
int 21h
mov ah, 01h
int 21h
mov bl, al
mov ah, 02h
mov dl, bl
int 21h
mov ah, 09h
mov dx, msg2
int 21h
mov al, bl
call print_decimal
mov ah, 4Ch
int 21h
print_decimal:
push ax
push bx
push cx
push dx
xor cx, cx
mov bl, 10
test al, al
jnz convert
mov dl, '0'
mov ah, 02h
int 21h
jmp done
convert:
xor ah, ah
div bl
push ax
inc cx
test al, al
jnz convert
print_digits:
pop dx
mov dl, dh
add dl, '0'
mov ah, 02h
int 21h
loop print_digits
done:
pop dx
pop cx
pop bx
pop ax
ret