RusFAQ.ru: программирование на языке Assembler

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler

Выпуск № 320
от 21.12.2005, 09:09

Вопрос № 31.554

Уважаемые эксперты! Помогите пожалуйста! Мне срочно нужна программа на ассемблере,которая бы делила шестнадцатиричные числа,а результат выдавала в двоичной форме,т.е. (hex/hex)-->bin.

Отправлен: 15.12.2005, 15:19 Вопрос задал: 1086 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Sager Здравствуйте, 1086! Перевод hex2bin производится разбиением двоичного числа на тетрады (т.е. на группы по 4 цифры, т.к. 2^4 = 16) и переводом каждой тетрады в hex-цифру. Например: 011010101010b = 0110 1010 1010 = 6AAh В приложении пример. Если что непонятно - пиши. Приложение: ;деление hex на hex и вывод результата на экран в двоичном виде .286 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h start: mov ax,3 int 10h push 0b800h pop es mov di,322 xor dx,dx mov ax,x1 div x2 ;делим х1 на х2 mov data,ax and ah,11110000b rol ah,4 mov al,ah xor ah,ah mov bx,ax mov ch,31h mov cl,30h mov al,30 call bin ;************ mov ax,data and ah,00001111b mov al,ah xor ah,ah mov bx,ax ;shl bx,1 ;add bx,jmp_offset mov ch,31h mov cl,30h mov al,30 call bin ;************ mov ax,data and al,11110000b rol al,4 xor ah,ah mov bx,ax ;shl bx,1 ;add bx,jmp_offset mov ch,31h mov cl,30h mov al,30 call bin ;************ mov ax,data and al,00001111b xor ah,ah mov bx,ax ;shl bx,1 ;add bx,jmp_offset mov ch,31h mov cl,30h mov al,30 call bin mov ah,10h int 16h int 20h data dw 0 x1 dw 32h x2 dw 16h bin proc cmp bx,0 jz chislo0 cmp bx,1 jz chislo1 cmp bx,2 jz chislo2 cmp bx,3 jz chislo3 cmp bx,4 jz chislo4 cmp bx,5 jz chislo5 cmp bx,6 jz chislo6 cmp bx,7 jz chislo7 cmp bx,8 jz chislo8 cmp bx,9 jz chislo9 cmp bx,0Ah jz chisloA cmp bx,0Bh jz chisloB cmp bx,0Ch jz chisloC cmp bx,0Dh jz chisloD cmp bx,0Eh jz chisloE cmp bx,0fh jz chisloF chislo0: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chislo1: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chislo2: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chislo3: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 jmp next chislo4: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chislo5: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chislo6: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chislo7: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 jmp next chislo8: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chislo9: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chisloA: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chisloB: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 jmp next chisloC: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chisloD: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chisloE: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chisloF: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 next: ret bin endp cseg ends end start

Ответ отправил: Sager (статус: Студент) Отправлен: 15.12.2005, 18:17

Вопрос № 31.560

Здравствуйте уважаемые эксперты, у меня такой вопрос, как сделать чтобы программа (написанная на асме), после того как выполнится (произведет необходимые действия), самоудалилась, т.е. стерла саму себя (интересно такое возможно?), или, допустим я хочу чтобы она удалилась... например ровно в 12.00 16 декабря 2006г. возможно-ли (а самое главное как) это реализовать??? Если можно дайте закоментированный отрезок кода, который бы все это проверял и удалял программу (самоуничтожался). Заранее примного благодарен....

Отправлен: 15.12.2005, 17:21 Вопрос задал: Goff (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gibbel Здравствуйте, Железняков Виктор Михайлович! К сожалению, вы не уточнили, какая ОС у вас используется. Если Windows, то исполняемый файл не может удалить сам себя. Для этого программно создается .bat (или .cmd) файл, который содержит инструкции по удалению программы и самого себя и запускается при завершении работы программы. Ну а если вы хотите произвести удаление в какую-то конкретную дату, то надо будет этот .bat (или .cmd) файл запланировать в стандартном планировщике задач. P.S.: к сожалению, пример привести не могу, но его не сложно будет вам самому написать учитывая данную мной информацию. --------- От жизни еще никто не умирал

Ответ отправил: Gibbel (статус: *Ветеран) Отправлен: 15.12.2005, 18:05 Оценка за ответ: 4

Вопрос № 31.569

Уважаемые эксперты!Я недавно начал учить ассемблер,и столкнулся с одной проблемой - везде написано,КАК писать,но нигде - ГДЕ писать. В каталоге ассемблера,выложенного товарищем Калашниковым приложений много,какое из них - это экран ввода?Подскажите,плз! P.S. Окончил курсы паскаля,си++,делфи,басика,но с такой проблемой я не сталкивался ни разу:( Заранее благодарен!

Отправлен: 15.12.2005, 20:22 Вопрос задал: Подосочный Максим Павлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Sager Здравствуйте, Подосочный Максим Павлович! Писать можно в любом текстовом редакторе, только сохранять файл нужно с расширением *.asm. Например, берешь блокнот, пишешь прогу, сохраняешь (напр. prog.asm), запускаешь командную строку(Пуск-Выполнить-cmd.exe) и там пишешь: C:masm611inml.exe C:prog.asm /AT (пути до ml.exe и prog.asm у тебя могут отличаться). А еще лучше использовать специальную IDE для ассемблера - RadAsm. Там все просто: в Options-> Set Paths укажешь путь до компилятора, а потом File-> New Project-> Dos App(com)-> и потом жмешь далее и всё. Чтобы скомилить прогу жмешь Alt-Shift-F5, чтобы запустить - Ctrl-Shift-F5(или Ctrl-F5): http://radasm.visualassembler.com/

Ответ отправил: Sager (статус: Студент) Отправлен: 16.12.2005, 09:56 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!!!

Вопрос № 31.570

Здраствуйте, дорогие эксперты. Листая книги по ассемблеру, у меня возник один вопрос: Как в COM программе можно сделать приглашение на ввод каких-либо данных (циферек разных) с последующим заненсением введённого значения в какой-нибудь регистр. Этого я, почему-то нигде не встречал...

Отправлен: 15.12.2005, 20:49 Вопрос задал: Compare (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Goff Здравствуйте, Compare! Это делается очень просто сперва вызываешь адрес какой-нибудь строки прерыванием DOS (21h) Потом вызываешь прерывание BIOS (16h - ожидание ввода клавиши) Приложение: CSEG segment org 100h start: mov ah,9 ;В ah всегда заносится номер функции DOS, в данномслучае это функция вывода строки на экран mov dx,offset number ;В dx заносим адрес нашей строки int 21h ;Вызываем прерывание mov ah,10h ;Заносим номер функции BIOS в данном случае это ожидание нажатия клавиши int 16 ;Тут программа останавливается и ждет нажатия клавиши, после этого номер клавиши заносится ;в регистр al и программа завершается. int 20h number db 'Введите число:$' CSEG ends end start --------- Жизнь прожить - не два байта переслать!!!

Ответ отправил: Goff (статус: 1-ый класс) Отправлен: 15.12.2005, 21:19 Оценка за ответ: 5 Комментарий оценки: Супер!!! Спасибо!!!

Отвечает: Sager Здравствуйте, Compare! В приложении прога, кот. ждет нажатия клавиш, пока не нажал enter, при этом код клавиши в регистре al, а чтобы получить реальное число в регистре, нужно вычесть из al 30h(sub al,30h) Приложение: .286 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h Begin: ;создаем файл "file.txt" mov ah,3ch mov cx,10000b mov dx,offset file_name int 21h mov Handle,ax ; сохраняем его хэндл call vvod_str ;процедура ввода символов mov ah,3eh mov bx,Handle int 21h ; закрываем файл int 20h file_name db 'file.txt',0 Handle dw 0 data db 0 vvod_str proc lea si,data ; в si смещение переменной, куда будут заноситься символы mov ah,8 int 21h ; прочитать с клавы один символ again: mov byte ptr [si],al ; заносим символ, куда указывает si(на переменную data) call write_file ; записываем символ в файл mov ah,2 mov dl,al int 21h ;выводим символ на экран(ah=номер функции, dl=какой символ выводить) mov ah,8 int 21h ;прочитать с клавы один символ cmp al,27 jz exit ;это Esc? да, на выход, jmp again ; нет продолжаем читать символы exit: ret vvod_str endp write_file proc pusha ; сохраняем все используемые регистры mov dx,si ; в dx смещение переменной data mov ah,40h mov bx,Handle mov cx,1 ; число записываемых байт int 21h ;записываем в файл то, что находится по адресу ds:dx popa ret write_file endp CSEG ends end Begin

Ответ отправил: Sager (статус: Студент) Отправлен: 16.12.2005, 09:56 Оценка за ответ: 5 Комментарий оценки: Круто...

Вопрос № 31.581

Не могу реализовать алгоритм Евклида. Т.е тело есть, но немогу сделать ввод двух чисел и вывод содержимого регистра на экран. Помогите, плз

Отправлен: 16.12.2005, 00:06 Вопрос задал: Compare (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sager Здравствуйте, Compare! В приложении программа, которая считывает числа и выводит их на экран. Только заметь - если тебе нужно эти числа обрабатывать, то каждый раз вычитай из al 30h, т.к. там лежит код нажатой клавиши,а тебе нужна сама цифра Приложение: .286 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h Begin: ;создаем файл "file.txt" mov ah,3ch mov cx,10000b mov dx,offset file_name int 21h mov Handle,ax ; сохраняем его хэндл call vvod_str ;процедура ввода символов mov ah,3eh mov bx,Handle int 21h ; закрываем файл int 20h file_name db 'file.txt',0 Handle dw 0 data db 0 vvod_str proc lea si,data ; в si смещение переменной, куда будут заноситься символы mov ah,8 int 21h ; прочитать с клавы один символ again: cmp al,30h jb again cmp al,39h ja again mov byte ptr [si],al ; заносим символ, куда указывает si(на переменную data) call write_file ; записываем символ в файл mov ah,2 mov dl,al int 21h ;выводим символ на экран(ah=номер функции, dl=какой символ выводить) mov ah,8 int 21h ;прочитать с клавы один символ cmp al,27 jz exit ;это Esc? да, на выход, jmp again ; нет продолжаем читать символы exit: ret vvod_str endp write_file proc pusha ; сохраняем все используемые регистры mov dx,si ; в dx смещение переменной data mov ah,40h mov bx,Handle mov cx,1 ; число записываемых байт int 21h ;записываем в файл то, что находится по адресу ds:dx popa ret write_file endp CSEG ends end Begin

Ответ отправил: Sager (статус: Студент) Отправлен: 16.12.2005, 19:50

Вопрос № 31.582

Добрый вечер, уважаемые эксперты. Помогите с задачей. Нужно написать программу, которая будет обрабатывать нажатия клавиш пользователем и строить гистограмму нажатых цифр (1,2,...,9,0). У меня есть программа- то же самое, но с буквами англ. алфавита. Хелп. очень срочно надо. Приложение: text segment 'code' org 100h assume cs:text, ds:text, es:text, ss:text main proc mov ax,text mov ds,ax ;очищение экрана mov ax,0600h mov bh,07 mov cx,0000h mov dx,184fh int 10h ;перемещение курсора mov ah,02 mov bh,0 mov dh,23 mov dl,0 int 10h ;вывод нижней полосы mov ah,0ah mov al,'-' mov bh,0 mov cx,80 int 10h ;перемещение курсора mov ah,02 mov bh,0 mov dh,24 mov dl,0 int 10h ;вывод ряда букв mov ah,0eh mov dl,'a' mov cx,26 m1: mov al,' ' int 10h mov al,dl int 10h mov al,' ' int 10h inc dl loop m1 m2: mov ah,08h ;считываем int 21h ;символ cmp al,0dh je exit sub al,97 js error cmp al,25 jg error mov bl,al ;записываем mov bh,0 ;индекс доступа cmp mas[bx],23 ;экран переполнен? je er; inc mas[bx] er: mov ch,23 sub ch,mas[bx] mov bl,3 mul bl mov dx,ax ;строка=23-кол mov dh,ch inc dl ;столбец=инд(al)*3+1 mov ah,02h ;перемещаем курсор mov bh,0 int 10h mov ah,0ah ;выводим "*" mov al,'*' mov bx,0 mov cx,1 int 10h jmp m2 error: mov ah,0eh;если нажали не то mov al,07h int 10h jmp m2 exit: mov ax,4c00h int 21h main endp mas db 26 dup(0) text ends end main

Отправлен: 16.12.2005, 00:43 Вопрос задала: Kat (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Sager Здравствуйте, Kat! В приложении программа, которая выводит все нажатые клавиши и записывает их в файл, при нажатие на Esc - выходит Приложение: .286 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h Begin: ;создаем файл "file.txt" mov ah,3ch mov cx,10000b mov dx,offset file_name int 21h mov Handle,ax ; сохраняем его хэндл call vvod_str ;процедура ввода символов mov ah,3eh mov bx,Handle int 21h ; закрываем файл int 20h file_name db 'file.txt',0 Handle dw 0 data db 0 vvod_str proc lea si,data ; в si смещение переменной, куда будут заноситься символы mov ah,8 int 21h ; прочитать с клавы один символ again: mov byte ptr [si],al ; заносим символ, куда указывает si(на переменную data) call write_file ; записываем символ в файл mov ah,2 mov dl,al int 21h ;выводим символ на экран(ah=номер функции, dl=какой символ выводить) mov ah,8 int 21h ;прочитать с клавы один символ cmp al,27 jz exit ;это Esc? да, на выход, jmp again ; нет продолжаем читать символы exit: ret vvod_str endp write_file proc pusha ; сохраняем все используемые регистры mov dx,si ; в dx смещение переменной data mov ah,40h mov bx,Handle mov cx,1 ; число записываемых байт int 21h ;записываем в файл то, что находится по адресу ds:dx popa ret write_file endp CSEG ends end Begin

Ответ отправил: Sager (статус: Студент) Отправлен: 16.12.2005, 18:49

© 2001-2005, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.faq Архив рассылки

Отписаться Вспомнить пароль

---

В избранное