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

Выпуск № 1018
от 09.04.2008, 15:35

Вопрос № 130.394

Здравствуйте, уважаемые эксперты. Не получается сделать лабораторную, не знаю как работать со строкой. Дана строка типа "abc cde efg". Нужно вывести на экран да, если каждое следующее слово в строке начинается с того символа, на который заканчивается предыдущий, и нет в противном случае.. заранее спасибо !

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

Отвечает: Airyashov Здравствуйте, Cauze! предлогаю такой алгоритм ввести строку с клавиатуры заменить символ конца ввода 0Dh пробелом, он всегда есть, при корректном вводе если введено более 0 символов удалить пробелы, если есть перед первым словом найти последний символ слова, затем первый следующего и сравнить их если не равны то "нет" и завершится. если равны далее проверяем, закончилачь строка "да" и завершится !!!есть одно допушение если введено одно слово, то выведет "да" model small stack 200h .data in_str db 50,0,51 dup(0); yes_s db 10,13,"yes",10,13,'$' no_s db 10,13,"no",10,13,'$' .code .startup mov ax,0a00h mov dx, offset in_str int 21h xor ch,ch mov cl,in_str[1] cmp cx,0; сколько символов введено? jz in_error ;выход из программы с сообщением об ошибке mov si,cx mov in_str[2][si], ' ' ;строка заканчивается пробелом inc cx cld mov ax,@data mov es,ax mov al,' ' mov di, offset in_str[2]; начало строки repe scasb int 3 jcxz in_error ; нашли первый непробельный символ или кончилась строка dec di inc cx int 3 next: repne scasb; ищем последний символ слова dec di inc cx mov bl,in_str[di-1];сохраним его в bl repe scasb; ищем первый символ следующего слова jcxz yes; кончилась строка "Да" cmp bl,in_str[di-1];сравним полученные символы jnz no; "Нет" jmp next no: mov dx ,offset no_s jmp mes yes:mov dx ,offset yes_s mes:mov ax, 0900h int 21h in_error: mov ax,4c00h int 21h end

Ответ отправил: Airyashov (статус: 2-ой класс) Ответ отправлен: 03.04.2008, 16:53

Вопрос № 130.426

Уважаемые экперты. Я не работаю в ассемблере, но один из моих знакомых школьников задал интересную задачку. Пример взят из классической книги Абеля. Я немного подредактировал программу для простоты, но синтаксис сохранил. Программа проста. Выводится запрос, вводится текст и этот текст выводится ниже. Всё на 21-м прерывании. Вроде ничего сложного. Когда вводишь текст полностью заполнющий допустимый объем в переменной ima label byte проблем нет. Но вот когда вводишь текст состоящий из 2-х, 3-х, до 7-ми символов, то выводятся они очень интересно. Или вообще не выводятся или обрезаются. Почему? Ведь 21-е прерывание выводит все данные до знака '$'. А здесь как-то обрезается. Причем именно первые символы. Непонятно. Я не нашел ответа на этот вопрос. Помогите разобраться. Программа проста и вроде всё как на ладони, а разобраться не могу. Все работы проводил в Win98. Тескт программы в приложении. Благодарю за помощь. Приложение: page 80,132 title программа staks segment para db 20h dup(?) staks ends datas segment para text db 'Введите имя ','$' ima label byte maxima db 0ah relima db ? vima db 0ah dup(' '),'$' datas ends codes segment para start proc assume cs:codes, ds:datas, ss:staks, es:nothing mov ax,datas mov ds,ax call ochistka mov dh,01h mov dl,01h call kursor lea dx,text call vivod lea dx,ima call vvod mov dh,05h mov dl,02h call kursor lea dx,vima call vivod call pausa mov ah,4ch int 21h start endp ;------------------------------------------------- ochistka proc mov ax,0600h mov bh,07h mov cx,0000h mov dx,184fh int 10h ret ochistka endp ;--------------------------------------- kursor proc mov ah,02h mov bh,00h int 10h ret kursor endp ;-------------------------------------- vivod proc mov ah,09h int 21h ret vivod endp ;----------------------------------- vvod proc mov ah,0ah int 21h ret vvod endp ;-------------------------------- pausa proc mov ah,10h int 16h ret pausa endp ;------------------------------- codes ends end start

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

Отвечает: Airyashov Здравствуйте, Monah23! программа работаетабсалютно правильно, только после ввода в буфере оказывается еще и символ с кодом 0dh, это перевод курсора в начало строка, так что вывод осуществляется так, выводится символы в позицию 5,2 после вывода символов обрабатывается символ 0dh, курсор в начало строки уходит, а далее выводятся пробелы из буфера и затирают сообщение уже выведенное сомое простое решение объявить vima db 0ah dup('$'),'$'

Ответ отправил: Airyashov (статус: 2-ой класс) Ответ отправлен: 03.04.2008, 22:56

Отвечает: Zetasm Здравствуйте, Monah23! На мой взгляд более правильным будет найти в введенной строке символ перевод курсора в начало строки (0Dh) и его замена на символ '$'. Мой вариант решения в приложении. Приложение: staks segment para db 20h dup(0) staks ends datas segment para text1 db 'Введите имя:$' text2 db 10,13,'Вы ввели:$' db 10 dup (0) ima label byte maxima db 10 relima db ? vima db 11 dup(?) datas ends codes segment para assume cs:codes, ds:datas, ss:staks, es:nothing start: ; Установка сегмента mov ax,datas mov ds,ax ; Очистка экрана mov ax,0600h mov bh,0ah mov cx,0000h mov dx,184fh int 10h ; Установка позиции курсора xor dx,dx mov ah,02h xor bh,bh int 10h ; Вывод приглашения ввода lea dx,text1 mov ah,09h int 21h ; Буферизированный ввод lea dx,ima mov ah,0ah int 21h ; Вывод текста lea dx,text2 mov ah,09h int 21h ; Поиск и замена 0Dh на $ lea di,vima @: cmp byte ptr ds:[di], 0Dh je @f inc di jmp @b @: mov byte ptr [di],'$' ; Вывод введеной строки lea dx,vima mov ah,09h int 21h ; Ожидание нажатия клавиши mov ah,10h int 16h ; Выход mov ah,4ch int 21h codes ends end start

Ответ отправил: Zetasm (статус: 2-ой класс) Ответ отправлен: 04.04.2008, 00:13

Вопрос № 130.449

Здраствуйте уважаемые эксперты, помогите мне написать программу в которой: Дан массив из десяти знаковых чисел (слов или байт). Требуется: 1. Найти количество отрицательных чисел. Массив байт. 2. Найти сумму всех положительных и отрицательных чисел. Массив байт 3. Найти количество положительных чисел. Массив байт. Результаты вычислений вывести на экране дисплея. Зарание благодарна.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Batva! Программа в приложении. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 eqSize equ 10 CODESEG org 100h ;перходим в текстовый режим start: mov ax,03 int 10h ;направление для строковых команд cld ;настраиваемся на ввод mov cx,eqSize mov di,offset dbArray ;цикл ввода IsCreate: call InpNumber loop IsCreate ;1-я задача ;выводим результат ввода массива mov ah,9 mov dx,offset dbOutZ int 21h ;настраиваемся на вывод mov cx,eqSize mov si,offset dbArray ;выводим в цикле isOutA: lodsb call OutNumber ;выводим разделитель mov al,' ' int 29h loop isOutA ;выводим сообщение 1-ой задачи mov ah,09 mov dx,offset dbOutA int 21h ;настраиваемся на массив mov cx,eqSize mov si,offset dbArray xor bx,bx;BH-сумма отрицательных байтов; BL-сумма положительных байтов xor dx,dx;DH-количество отрицательных байтов; DL-количество положттельных байтов ;все делаем в цикле- читаем байт IsLoop: lodsb ;проверяем условие +/- 0-байт отсутсвует or al,al js isNegative; ;получаем add bl,al inc dl jmp short isNoNumber ; isNegative: dec al not al add bh,al inc dh isNoNumber: loop isLoop ;выводим результат 1-ой задачи pusha mov al,dh or al,30h int 29h ;сообщение 2-ой задачи mov ah,9 mov dx,offset dbOutB int 21h ;получаем разницу popa sub bl,bh ;выводим результат mov al,bl push dx call OutNumber ;выводим сообщение 3-ей задачи mov ah,9 mov dx,offset dbOutC int 21h ;выводим результат 3-ей задачи pop ax or al,30h int 29h ;выводим сообщение "любая клавиша" mov ah,9 mov dx,offset dbOutE int 21h ;ожидаем любую клавишу xor ax,ax int 16h ;выход ret ; ;процедура вывода числа со знаком OutNumber: or al,al jns isAbsolute ;переводим число в положительное dec al not al ;выводим знак минус push ax mov al,'-' int 29h pop ax ;вывод абсолютного значения isAbsolute: pusha xor cx,cx ;разбираем число на цифры isNextDiv: xor ah,ah mov bl,10 div bl push ax;запоминаем остаток от деления на 10 inc cx;считаем количество запомненых чисел or al,al jnz IsNextDiv ; isOutChar: pop ax ;выводим в нужном порядке из стека mov al,ah or al,30h int 29h ;в цикле loop isOutChar popa ret ; ;процедура ввода числа inpNumber: pusha ;выводим сообщение mov ah,9 mov dx,offset dbOutD int 21h ;настраиваемся на ввод xor si,si xor di,di mov dh,10 ;читаем код нажатой клавиши без эхо inpNext: xor ax,ax int 16h ;если ВВОД то выход cmp al,13 jz isInpStop ;проверяем знак минус cmp al,'-' jnz isNoMinus ;если введенное число ещё равно 0 то минус в начале ввода or si,si jnz inpNext ;запоминаем минус mov di,ax push ax jmp short inpShow ;проверяем цифровые клавиши isNoMinus: cmp al,'0' jb inpNext cmp al,'9' ja inpNext ;нажата цифра push ax ;Х = 10* Х + А and ax,0fh xchg si,ax mov dh,10 xor ah,ah mul dh add si,ax ;выводим только цифры и минус inpShow: pop ax int 29h jmp short inpNext ;ввод числа закончен - проверяем минус isInpStop: or di,di mov ax,si jz inpNoMinus ;меняем знак числа not al inc al ;востанавливаем адрес в массиве inpNoMinus: pop di stosb push di popa ;готовимся к следующему вводу inc byte ptr [dbData] ret ;данные dboutZ db 13,10,'Array :$' dbOutA db 13,10,'Negative numbers:$' dbOutB db 13,10,'Summa all number:$' dbOutC db 13,10,'Positive numbers:$' dbOutD db 13,10,'Data ' dbData db 'A:$' dbOutE db 13,10,'Press any key . . .$' dbArray db eqSize dup(?) end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 09.04.2008, 12:12

Вопрос № 130.496

Здравствуйте! Хотел бы узнать следующий момент. Резидент может перехватить int 20h и этим, допустим, можно отслеживать завершение работы пользовательской программы. А как можно отследить запуск пользовательской программы из командной строки DOS? Я думал о перехвате int 9h и таким образом можно собирать строку, введенную пользователем, до нажатия <Enter>. Но пока мы в командной строке DOS – все хорошо, а вот когда вошли в пользовательскую программу, резидент уже не должен отслеживать клавиатуру.

Отправлен: 04.04.2008, 10:21 Вопрос задал: Бартосик Феликс Михайлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Trulala Здравствуйте, Бартосик Феликс Михайлович! Запуск пользовательской программы из командной строки осуществляет функция DOS 4Bh. Резидентная программа в приложении перехватывает INT 21h и блокирует вызов функции 4Bh, после запуска этого резидента запустить пользовательскую программу из командной строки уже нельзя. Приложение: locals ASSUME cs:code code SEGMENT code_segment_start: org 100h entry_point: jmp start int21h_superhandler PROC far cmp ah,4Bh jne @@exit iret @exit: DB 0EAh prev_int21h_handler DD ? int21h_superhandler ENDP ;------------------------------------------------- start: push ds xor ax,ax mov ds,ax mov bx,21h shl bx,2 cli ;сохранить адрес старого обработчика mov ax,[bx] mov WORD PTR cs:prev_int21h_handler,ax mov ax,[bx+2] mov WORD PTR cs:prev_int21h_handler+2,ax ;установить адрес нового обработчика lea ax,int21h_superhandler mov [bx],ax mov ax,cs mov [bx+2],ax sti pop ds lea dx,start INT 27h code ENDS END entry_point

Ответ отправил: Trulala (статус: 1-ый класс) Ответ отправлен: 06.04.2008, 22:10

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