Программа перевода из 10-ой системы в 16-ую. Нужно модифицировать так чтобы она еще подсчитывала количество нулей в 16-ой системе представления числа.
data segment
vod db 'Vvedite chislo = $'
result db 'Resultat = ',5 dup(?)
ent db 13,10,'$'
data ends
stk segment stack
db 256 dup(?)
stk ends
text segment
assume cs:text, ds:data, ss:stk
begin:
mov ax, data
mov ds,ax
lea dx, vod
mov ah,09h
int 21h
mov di,0
inpt:
mov ah,08h
int 21h
cmp al,13
je done
cmp al,'9'
ja inpt
cmp al,'0'
jb inpt
mov ah,02h
mov dl,al
int 21h
sub al,'0'
xor ah,ah
mov cx,ax
mov ax,di
mov bx,10
mul bx
add ax,cx
mov di,ax
jmp inpt
done:
mov ax,di
mov si,offset result+9
call wrd_asc
lea dx,ent
mov ah,09h
int 21h
lea dx,result
int 21h
mov ah,4ch
int 21h
wrd_asc proc
mov bx,0F000h
mov dl,12
mov cx,4
ccc:
push cx
push ax
and ax,bx
mov cl,dl
shr ax,cl
call bin_asc
mov byte ptr[si],al
inc si
pop ax
shr bx,4
sub dl,4
pop cx
loop ccc
ret
wrd_asc endp
bin_asc proc
cmp AL, 9
ja lettr
add AL, 30h
jmp ok
lettr:
add al,37h
ok:
ret
bin_asc endp
text ends
end begin
Примечание:
Если есть возможность, можно ли скинуть его?
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.