/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 776
от 11.06.2007, 23:05

Вопрос № 90.221

Здравствуйте, сделайте пожалуйста такую вот задачку: Найти все четырехзначные десятичные числа, у которых сумма первых двух цифр равна сумме двух других. Рузультат вывести в на экран и в файл.

Отправлен: 06.06.2007, 06:48 Вопрос задал: Белоусов Руслан Владимирович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгений Иванов Здравствуйте, Белоусов Руслан Владимирович! Для этого делите числа на 1000, 100, 10 - получаете соответствующие цифры. Затем идёт арифметика и логика по разбору и блок вывода чисел. Например, начать можно так: mov ecx, 1000 mov ebx, ecx mov esi, 100 mov edi, 10 m1: mov eax, ecx sub edx,edx div ebx xchg eax, esp mov eax, ecx sub edx, edx div esi add esp, eax ну и т.п. успехов --------- Знания - сила

Ответ отправил: Евгений Иванов (статус: Профессор) Россия, Нижний Новгород Тел.: +79519145721 Организация: M2Media.ru Адрес: Нижний Новгород, ул.Малая Ямская WWW: Eugene Ivanov ICQ: 214889076 ---- Ответ отправлен: 06.06.2007, 10:54

Отвечает: Зенченко Константин Николаевич Здравствуйте, Белоусов Руслан Владимирович! Смотрите приложение. Суммы равны когда число1+число2-число3-число4=0 В BX хранятся числа 1и2, в DX- 3 и 4 Удачи! Приложение: MODEL small stack 50 DATASEG out_error db 13,10,'dont open file$' out_ok db 13,10,'all ready$' file_name db 'q90221.txt',0 file_hndl dw ? out_file db 13,10 out_string db 4 dup(?) CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;создаем файл mov ah,3ch xor cx,cx mov dx,offset file_name int 21h jc error_open mov file_hndl,ax ;начинаем искать mov bh,10 num_4: mov bl,10 num_3: mov dh,10 num_2: mov dl,10 ;check summa num_1: push dx push bx ;корректируем значения dec dh dec dl dec bh dec bl ;число1+число2-число3-число4=0 mov al,dl add al,dh sub al,bl sub al,bh jnz go_next ;тут будет наша строка mov di,offset out_string ;выводим на экран разделяющий пробел mov al,' ' int 29h ;фомируем строку для записи в файл mov al,bh call out_num mov al,bl call out_num mov al,dh call out_num mov al,dl call out_num ;запись в файл mov ah,40h mov bx,file_hndl mov cx,06 mov dx,offset out_file int 21h ;востанавливаем чмсла go_next: pop bx pop dx ;циклы по числам dec dl jnz num_1 dec dh jnz num_2 dec bl jnz num_3 dec bh jnz num_4 ;закрываем файл mov ah,3eh mov bx,file_hndl int 21h ;выводим сообшение о завершении работы mov dx,offset out_ok out_mess: mov ah,09h int 21h ;выход в дос mov ah,4ch int 21h ;вывод ошибки открытия файла error_open: mov dx,offset out_error jmp short out_mess ;формируем строку для записи в файл и вывод на экран out_num: or al,30h mov [di],al inc di int 29h ret end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 06.06.2007, 12:17

Отвечает: An42 Здравствуйте, Белоусов Руслан Владимирович! Поиск десятичных чисел происходит по следующей схеме. Интервал чисел 1000…9999, от 3e8h до 270fh Рассматриваются текущие числа в шестнад. формате, переводятся в процедуре b10ascii в неупакованных двоично-десятичный формат. В процедуре s10sum происходит сравнения сумм двух крайних чисел Если суммы равные то вывод на экран процедура p10con, и в файл file.001 процедура f10file. Пояснения в программе Удачи Приложение: title 90221 stacksg segment stack dw 32 dup(?) stacksg ends data segment stch dw 3e8h ;Начальное число 1000 finch dw 270fh ;Конечное число 9999 number db 4 dup(0),' ','$' ;Буфер для вывода числа, 5 байт discr dw ? ;Дескриптор файла fname db 'file.001',0 ;Имя файла в формате asciiz data ends code segment assume cs:code,ds:data begin: mov ax,data mov ds,ax ;--- Создание файла ---- mov ah,3ch mov cx,0 mov dx,offset fname int 21h mov discr,ax ;---------------------- mov ax,stch cycl: push ax call b10ascii ;Перевод в неупакованное BCD число call s10sum ;Проверка равенства суммы цифр pop ax inc ax cmp ax,finch ja exit jmp cycl exit: ;--- Закрытие файла --- mov ah,3eh mov bx,discr int 21h ;---------------------- mov ax,4c00h int 21h ;-- Процедура записи в файл f10file proc mov ah,40h mov bx,discr mov cx,05 mov dx,offset number int 21h ret f10file endp ;-- Процедура вывода на экран p10con proc mov ah,09 mov dx,offset number int 21h ret p10con endp ;-- Проверка равенства суммы цифр s10sum proc mov ah,number add ah,number+1 mov al,number+2 add al,number+3 cmp ah,al jne s30 xor bx,bx s10: mov ax,word ptr number[bx] or ax,3030h mov word ptr number[bx],ax add bx,02h cmp bx,02h ja s20 jmp s10 s20: call p10con ;Процедура вывода на экран call f10file ;Процедура записи в файл s30: ret s10sum endp ;-- Перевод в неупакованное BCD число b10ascii proc mov cx,0ah mov bx,03h b20loop: sub dx,dx div cx cmp ax,0ah jb b30 mov number[bx],dl dec bx jmp b20loop b30: mov number[bx],dl dec bx mov number[bx],al ret b10ascii endp code ends end begin

Ответ отправил: An42 (статус: 4-ый класс) Ответ отправлен: 07.06.2007, 12:58

Вопрос № 90.243

Здравствуйте! Подскажите пожалуйста, как получить целую часть результата деления отбросив отаток.

Отправлен: 06.06.2007, 10:15 Вопрос задала: Marg1378 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Marg1378! Команды div и idiv результат заносят в два регистра - частное и остаток. Например, в результате: mov ax,25h xor dx,dx mov cx,10 div cx число из DX:AX = 37 разделится на 10, в результате в AX будет 3, а в DX - 7 Берем AX и получаем требуемое --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 06.06.2007, 10:26

Отвечает: Евгений Иванов Здравствуйте, Marg1378! Используйте DIV, IDIV. Получите целое в одном регистре, остаток будет в другом. Успехов. --------- Знания - сила

Ответ отправил: Евгений Иванов (статус: Профессор) Россия, Нижний Новгород Тел.: +79519145721 Организация: M2Media.ru Адрес: Нижний Новгород, ул.Малая Ямская WWW: Eugene Ivanov ICQ: 214889076 ---- Ответ отправлен: 06.06.2007, 10:43

Отвечает: An42 Здравствуйте, Marg1378! Деление: Слово на байт Делимое AX после деления в AH=остаток, AL=частное Двойное слово на слово Старшая часть делимого DX, младшая часть делимого AX, после деления DX=частное, AX=остаток DIV делитель (без знаковое деление) IDIV делитель (деление со знаком) Удачи

Ответ отправил: An42 (статус: 4-ый класс) Ответ отправлен: 07.06.2007, 13:07

Вопрос № 90.301

Привет! Подскажите, пожалуйста, где и какие книги можно скачать для начинающих?

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ioanna! Около 50 книг на любой вкус. Зубков:Ассемблер. Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 06.06.2007, 17:08 Оценка за ответ: 5 Комментарий оценки: Спасибочки!!!

Вопрос № 90.319

помогите пожалуйста нужно вывести на экран кол-во ЧЕТНЫХ байт в массиве, и как проверить является ли число отрицательным.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Zmey22! Oтрицательное число Вы можете обнаружить проверяя старший бит байта or al,al js ok_minus plus:. . . четное число можно обнаружить проверяя младший бит, способов много: test al,01h jnz chet или push ax shr al,1 pop ax jc chet или push ax and al,01h pop ax jz chet Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 06.06.2007, 20:50

Вопрос № 90.321

Здравствуйте. Нужны примеры блок-схем программ на ассемблере, по учебе задали. Хорошо было бы пояснить особенности таких блок-схем с учетом специфики ассемблера (я имею в виду отсутствие имен переменных и исп. только регистров и работа с ячейками памяти (как у меня в программе)). Как отобразить на блок-схеме запись и чтение из файла, особенно когда имя файла введено пользователем? Если сложно, то просто дайте ссылку на нормальную схему к программе на паскале. А то в инете много всяких "блок-схем бизнес-процессов" и пр.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Blackie! Редактор блок-схем. посмотрите может пригодится, тут же можно найти и примеры. фигуры: "прямоугольник" называется "выражение" в нем производятся любые вычисления mov ax,200 mov bx,300 add ax,bx "паралелограм" - "ввод/вывод" в нем Вы указываете как происходит общение с пользователем(ввод/вывод символа или строки). mov ah,09 mov dx,offset out_str;вывод строки out_str int 21h "ромб" - "условие" в нем Вы проверяете что нибуть. cmp ax,bx jz yes_equ;если равны то переход на метку, иначе дальше no_equ:. . . "елипс" это метки начала и конца программы "шестигранник" этой фигурой обозначаются циклы. в редакторе я ее не увидел но циклы можно организовывать используя условие. mov cx,max_loop my_loop: . . . тело цикла . . . loop my_loop Если кратко. Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 06.06.2007, 20:34

Вопрос № 90.331

Здравствуйте, мне нужно написать пару резидентов под DOS и в итоге образовалась пара вопросиков. 1) Где и как можно узнать список запущенных программ? Чтобы можно было потом вывести их названия на экран. 2) Как можно заблокировать (а потом разблокировать) доступ к дисководу? Заранее спасибо.

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

Отвечает: Стас Здравствуйте, LOST! 1) В DOS нет такой возможности. Это однозадачная система. Значит и запущена одна программа, Ваша. (конечно в памяти сидит еще и сама DOS) Если имеются в виду резиденты, то они стараются не оставлять информации кто ини и откуда. (Чуть мусора остается в PSP). В принципе можно попытаться, как это делает mem /d, пребрать всю выделенную память, проанализировать и прерывания и таким образом собрать инфу. 2) в DOS? можно попытаться испортить информацию по адресу, если не ошибаюсь,0:78h это может помочь против программ использующих прямой доступ к флоппу через порты (а может и не помочь, если они не полюзуются этой инфой). Ну а для простоты подменить int13 и на все обращения к дисководу (dl=1) возвращать ошибку.

Ответ отправил: Стас (статус: Специалист) Ответ отправлен: 07.06.2007, 08:35 Оценка за ответ: 4

Отвечает: Лысков Игорь Витальевич Здравствуйте, LOST! Я не согласен со Стасом по первому вопросу. Нет ничего невозможного.... Имена всех программ и резидентов, и не резидентов (например, одна программа запустила другую...) можно элементарно узнать, пробежав по списку блоков MCB. Начиная с ДОС4 (или5), имя запущенной программы хранится в конце сегмента окружения. Разумеется, если программа освободила свой сегмент окружения, то узнать уже невозможно... Узнать начало списка MCB можно, узнав адрес "списка списков" по ф-ии 52h int 21h. Сегмент окружения - по строке "COMSPEC=" в начале. Программу - по CDh 20h (int 20h) В приложении моя давнишняя программка, которая просто пробегает по всем блокам MCB и показывает, ЧТО за блоки. Осталось только в сегментах окружения добраться до конца (там будут четыре байта 0,0,1,0), за ними будет имя программы... Удачи! Приложение: .model tiny .code org 100h start: mov ah,52h int 21h xor si,si mov dx,es:[bx-2] mov ax,cs mov es,ax lea di,buffer lea bx,hex_table lea bp,title_mcb call print_str mcb_loop: mov ds,dx mov ax,dx call hex_word mov ax,2020h stosw mov ax,[si+1] call hex_word mov ax,2020h stosw mov ax,[si+3] call hex_word mov ax,2020h stosw lea bp,sys_str cmp word ptr [si+1],10h jb call_print mov ax,[si+10h] cmp ax,'OC' jne cmp_psp lea bp,env_str jmp near ptr call_print cmp_psp: cmp ax,20cdh jne for_free lea bp,prog_str jmp near ptr call_print for_free: lea bp,free_str call_print: call print_str mov ax,0a0dh stosw cmp byte ptr [si],'Z' je mcb_ok add dx,[si+3] inc dx jmp mcb_loop mcb_ok: mov ax,cs mov ds,ax lea dx,file_out mov cx,20h mov ah,3ch int 21h mov bx,ax lea dx,buffer mov cx,di sub cx,dx mov ah,40h int 21h mov ah,3eh int 21h int 20h print_str: mov al,es:[bp] cmp al,0 je print_str_ret inc bp stosb jmp print_str print_str_ret: ret hex_table db '0123456789ABCDEF' hex_dword: ; Print hex value from DX:AX push ax mov ax,dx call hex_word mov al,':' stosb pop ax hex_word: ; Print hex value from AX push ax mov al,ah call hex_byte pop ax hex_byte: ; Print hex value from AL push ax shr al,1 shr al,1 shr al,1 shr al,1 call print_hex pop ax and al,0fh print_hex: xlat cs:hex_table stosb ret file_out db 'mcb.lst',0 title_mcb db 'Sgmt Ownr Size Type',0dh,0ah db '---- ---- ---- ----',0dh,0ah,0 prog_str db 'Prog',0 env_str db 'Env ',0 sys_str db 'Sys ',0 free_str db 'Free',0 flag_sys db 0ffh buffer label byte end start --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 08.06.2007, 10:59 Оценка за ответ: 5

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru