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

Выпуск № 1032
от 12.05.2008, 06:05

Вопрос № 134.548

Пожалуйста помогите написать прогу!!!Умоляю!!! Суть такая:Даны две квадратные матрицы А и В одинаковой размерности 3*3.Элементы-положительные числа-вводяться с клавиатуры,тип элементов-байт.Получить новую матрицу, каждый элемент которой равен max(Aij,Bij).Вывести исходные и новую матрицы.В новой матрице поменять местами элементы строки номер N на элементы строки номер M.Значения N и M вводяться с клавиатуры.Вывести преобразованную матрицу.

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

Отвечает: Boriss Здравствуйте, Cafu777! Вот как это можно сделать. Обратите внимание, что директива n equ 3 позволяет легко изменить ранг матриц Если что не понятно будет - пишите в минифоруме Исходный код программы можно также скачать здесь: http://rusfaq.ru/upload/569 С учетом пожеланий в минифоруме программа переделана и снабжена комментариями. Скачать можно по адресу http://rusfaq.ru/upload/579 ЗЫ: теперь нужно получать EXE-файл Приложение: .model tiny .code org 100h start: mov ax, 3 int 10h lea dx, in_A mov ah, 9 int 21h lea di, A CALL Fill_Matrix lea dx, in_B mov ah, 9 int 21h lea di, B CALL Fill_Matrix lea si, A lea di, B mov bx, OFFSET C mov dx, n @C: mov cx, n @loop: mov ax, [si] cmp ax, [di] jae @@less mov ax, [di] @less: mov [bx], ax add si, 2 add di, 2 add bx, 2 LOOP @@loop dec dx or dx, dx jnz @@C lea dx, matrC mov ah, 9 int 21h lea si, C cld mov dx, n @100: mov cx, n @101: lodsw CALL printAX_Dec mov al, ' ' int 29h int 29h LOOP @@101 mov al, 13 int 29h mov al, 10 int 29h dec dx or dx, dx jnz @@100 lea dx, pressKey mov ah, 9 int 21h xor ax, ax int 16h int 20h n equ 3 ; определяет размерность матрицы A dw n*n dup(0) B dw n*n dup(0) C dw n*n dup(0) in_A db 'Введите элементы матрицы A:',13,10,'$' in_B db 13,10,'Введите элементы матрицы B:',13,10,'$' matrC db 13,10,'Матрица С:',13,10,'$' pressKey db 13,10,'Нажмите любую клавишу ...$' Fill_Matrix proc ; адрес матрицы в DI должен быть push ax push cx push dx cld mov dx, n @A: mov cx, n @A_1: CALL inputInAX stosw mov al,' ' int 29h int 29h LOOP @@A_1 mov al, 13 int 29h mov al, 10 int 29h dec dx or dx, dx jnz @@A pop dx pop cx pop ax ret Fill_Matrix endp ; Ввод числа в регистр AX inputInAX proc push bx ; sign push cx ; 10 push dx ; push si ; summ push di ; for save mov cx, 10 xor si, si xor bx, bx mov ah, 8 int 21h cmp al, '-' jne @@1a int 29h inc bx @1: mov ah, 8 int 21h @1a: cmp al, 13 je @@end_of_input cmp al, '0' jb @@1 cmp al, '9' ja @@1 @0: sub al, '0' xor ah, ah mov di, ax mov ax, si mul cx jc @@end_of_input mov si, ax mov ax, di add al, '0' int 29h add si, di jmp @@1 @end_of_input: or bx, bx jz @@2 neg si @2: mov ax, si pop di pop si pop dx pop cx pop bx ret inputInAX endp ;=========== ; Вывод слова AX в дестяичной форме printAX_DEC proc push ax push bx push cx push dx or ax, ax jns @@pos push ax mov al, '-' int 29h pop ax neg ax @pos: xor cx, cx mov bx, 10 @div: xor dx, dx div bx push dx inc cx or ax, ax jnz @@div @next: pop ax add al, '0' int 29h LOOP @@next mov cx, 4 @10: mov al, ' ' int 29h LOOP @@10 pop dx pop cx pop bx pop ax ret printAX_DEC endp end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 29.04.2008, 13:15 Оценка за ответ: 5 Комментарий оценки: Спасибо!!Век не забуду!!!

Вопрос № 134.576

Здравствуйте. Решил начать изучение ассемблера и у меня возник ряд вопросов. Во первых в своей книге написано что в качестве текстового редактора лучше использовать DOS Navigator.Скажите,где и как мне его найти. Во вторых,написал программу в текстовом редакторе PWB и так и не понял как мне её ассемблировать. Напишите пожалуйста,как ассемблировать программу и как запускать её под отладчиком. Я читал книгу,но так этого и не понял,а понять хочется. Заранее благодарен.

Отправлен: 28.04.2008, 19:58 Вопрос задал: Рунков Артур Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Рунков Артур Сергеевич! Написав программу в PWB. 1) Вам нужно наcтроить проэкт(см. рис1 - выбираете закладку Set Project Template и рис2 - выбираете тип исполняемой программы). 2) После этого у Вас появится возможности см. рис3 - компиляции и рис4 - запуска и отладки; 3) Выбрав отладку Вы попадаете в в окно CodeView, выбрав окна с нужной для Вас информацией, можете приступать к отладке управляя F8, F10 и F5(см. строку статуса). DOS Navigator и ещё много разнообразных навигаторов и коммандеров - тут уже Вам выбирать. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 134.580

Добрый день уважаемые эксперты! Подскажите как можно записать значение переменной (допустим х) в файл на процессорах 586-го типа заранее спасибо!!!

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

Отвечает: Trulala Здравствуйте, Setored1! У процессора нет такой команды "записать значение переменной в файл", файл является высокоуровневой структурой, файлами занимается операционная система. Вам нужно определиться с операционной системой и использовать системные функции работы с файлами. Обычно последовательность действий такая: 1. создать файл 2. произвести запись в файл 3. закрыть файл

Ответ отправил: Trulala (статус: 2-ой класс) Ответ отправлен: 03.05.2008, 12:34

Вопрос № 134.581

Здравствуйте уважаемые эксперты! Начал изучать ассемблер. У меня вопрос как пользоваться средой Turbo Assembler. Ругается на команду tasm, говорит: "TASM" не является внутренней или внешней командой, исполняемой программой или пакетным файлом. Заранее благодарен.

Отправлен: 28.04.2008, 21:17 Вопрос задал: Михаил Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Юрьевич Гуськов Андрей Здравствуйте, Михаил Иванович! У Вас не определены переменные окружения. То есть, когда Вы в командной строке набираете TASM, операционная система ищет этот файл в текущей папке, папке с Виндой и прочих. Естессно, не найдя его, ОС ругнётся про "неверную команду". Вывод: при запуске из командной строки прописывайте полный путь к ТАСМ, т.е. напр. C:Progra~1TASM32TASM.exe (если ваш тасм установлен в папку TASM32 в Program Files).

Ответ отправил: Юрьевич Гуськов Андрей (статус: 1-ый класс) Ответ отправлен: 29.04.2008, 17:32

Вопрос № 134.699

Ув. эксперты, подскажите пожалуйста каким образом можно сменить метку диска. Пытался с помощью int 21h (69h) при AL=0 удачно считывает метку в буфер, при AL=1 писать новую не хочет.. Заранее благодарен .. Приложение: .... BuffWr: db 2 dup(0) db 4 dup(1) DiskMetN db "LABELMyDisk" db 8 dup(0),0Ah,0Dh,'$' .... mov ah,69h ;___new label mov bl,1 ; Flop mov al,1 mov dx, offset BuffWr int 21h

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

Отвечает: Airyashov Здравствуйте, HEND77! Данная функция недокументирванна, так что её работу гарантировать нельзя.

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 29.04.2008, 17:15

Вопрос № 134.828

Здравствуйте, уважаемые профессионалы! Помогите пожалуйста справиться с задачей! Определить результативность стрельбы (n/n1) в круглую мишень радиусом R=10, где n - количество попаданий; n1 - количество выстрелов. Координаты встречи пули с плоскостью мишени заданы в виде двух массивов Х(I) и У(I); I=1,2,..,10. Определение попадания снаряда в мишень оформить в виде подпрограммы. Знания ассемблера ещё очень небольшие, так как изучать его начала только в апреле. Желательно чтобы в программе присутствовали комментарии. Заранее ОГРОМНОЕ спасибо!

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

Отвечает: Trulala Здравствуйте, Lestatka! система координат - декартовая координатная плоскость лежит в плоскости мишени мишень - диск с радиусом R начало координат находится в центре окружности диска мишени Попадание в мишень будем считать успешным при r < R. r = sqrt(x^2+y^2); Без применения функции вычисления квадратного корня можно сравнивать квадраты радиусов: (r < R) => (r^2 < R^2) Тогда попадание в мишень произойдет при (x^2+y^2) < R^2 ----------------------------------------------------------- Программу для TASM смотрите в приложении. Приложение: ;система координат - декартовая ;координатная плоскость лежит в плоскости мишени ;мишень - диск с радиусом R ;начало координат находится в центре окружности диска мишени ;Попадание в мишень будем считать успешным при r < R. ;r = sqrt(x^2+y^2) ;Без применения функции вычисления квадратного корня можно сравнивать квадраты радиусов: ;(r < R) => (r^2 < R^2) ;Тогда попадание в мишень произойдет при (x^2+y^2) < R^2 LOCALS ASSUME cs:code, ds:data, ss:stk const_I = 10 const_R = 10 data SEGMENT X_array DW +12,+10,+03,-01,+04,-10,+49,-09,-09,000 Y_array DW +10,+10,+07,+09,-11,-20,-01,+10,+09,000 ;r^2 = 244 100 058 082 137 500 2402 181 162 000 ;hit 0 0 1 1 0 0 0 0 0 1 ;количество выстрелов = 10 ;количество попаданий = 3 result_in_ASCII DB '0.0','$' data ENDS code SEGMENT entry_point: mov ax,SEG data mov ds,ax mov ax,const_I push ax push ds lea ax,Y_array push ax push ds lea ax,X_array push ax call Determine_Firing_Results ;(X_addr:DWORD - адрес массива с координатами X, Y_addr:DWORD - адрес массива с координатами Y, I:WORD - размерность массивов координат) ;ВОЗВРАТ: (ah,al) = (количество попаданий)/(количество выстрелов); al - частное, ah - остаток ;создание строки результата ;при изменении const_I для создания строки результата необходимо применять подпрограмму текстового отображения результата целочисленного деления, нижеследующее создание строки результата является простым частным случаем, так как совпали значение делителя и разрядность системы счисления представления результата ;************************* lea bx,result_in_ASCII ; add al,'0' ; mov ds:[bx],al ;ЗАМЕНИТЬ ПРИ const_I <> 10 add ah,'0' ; mov ds:[bx+2],ah ; ;************************* ;вывод строки результата mov ah,09h mov dx,OFFSET result_in_ASCII INT 21h ;завершение программы mov ax,4C00h INT 21h ;--------------------------------------------- ;подпрограмма определения результатов стрельбы ;--------------------------------------------- Determine_Firing_Results PROC ;(X_addr:DWORD - адрес массива с координатами X, Y_addr:DWORD - адрес массива с координатами Y, I:WORD - размерность массивов координат) ;ВОЗВРАТ: (ah,al) = (количество попаданий)/(количество выстрелов); al - частное, ah - остаток ARG @@X_addr:DWORD, @@Y_addr:DWORD, @@I:WORD = @@arg_size push bp mov bp,sp push ds push si push es push di push bx push cx push dx lds si,@@X_addr ;ds:si -> массив X les di,@@Y_addr ;es:di -> массив Y mov cx,@@I ;cx = размерность массивов координат xor bx,bx ;bx - смещение очередного элемента массива xor dx,dx ;dl - количество выстрелов, dh - количество попаданий check_next_shot: inc dl mov ax,const_R push ax ;R:WORD mov ax,es:[bx+di] push ax ;Y:WORD mov ax,ds:[bx+si] push ax ;X:WORD call Determine_Is_Target_Hit_By_Shell ;(X:WORD - значение координаты, Y:WORD - значение координаты, R:WORD - значение радиуса мишени) ;ВОЗВРАТ: ax=1 - попадание, ax=0 - промах test ax,ax ;ax=0 ? jz shell_missed ;функция Determine_Is_Target_Hit_By_Shell возвратила TRUE - попадание inc dh shell_missed: inc bx inc bx loop check_next_shot xor ax,ax mov al,dh div dl ;(ah,al):= ax div dl; al - частное, ah - остаток pop dx pop cx pop bx pop di pop es pop si pop ds pop bp ret @@arg_size Determine_Firing_Results ENDP ;----------------------------------------------------------------------------------------- ;подпрограмма определения попадания снаряда в мишень по его координатам в плоскости мишени ;----------------------------------------------------------------------------------------- Determine_Is_Target_Hit_By_Shell PROC ;(X:WORD - значение координаты, Y:WORD - значение координаты, R:WORD - значение радиуса мишени) ;ВОЗВРАТ: ax=1 - попадание, ax=0 - промах ARG @@X:WORD, @@Y:WORD, @@R:WORD = @@arg_size LOCAL @@X_2:DWORD, @@Y_2:DWORD, @@r_2:DWORD = @@loc_size push bp mov bp,sp sub sp,@@loc_size push dx ;r^2 = X^2+Y^2 ;@@X_2:= @@X imul @@X mov ax,@@X mov dx,@@X imul dx ;dx:ax = ax imul dx mov WORD PTR @@X_2,ax mov WORD PTR @@X_2+2,dx ;@@Y_2:= @@Y imul @@Y mov ax,@@Y mov dx,@@Y imul dx ;dx:ax = ax imul dx mov WORD PTR @@Y_2,ax mov WORD PTR @@Y_2+2,dx ;@@r_2:= @@Y_2 mov WORD PTR @@r_2,ax mov WORD PTR @@r_2+2,dx ;@@r_2:= @@r_2+@@X_2 mov ax,WORD PTR @@X_2 add WORD PTR @@r_2,ax mov ax,WORD PTR @@X_2+2 adc WORD PTR @@r_2+2,ax ;(dx:ax):= @@R mul @@R mov ax,@@R mov dx,@@R mul dx ;dx:ax = ax mul dx ;if @@r_2 < @@R*@@R then Determine_Is_Target_Hit_By_Shell:= TRUE else Determine_Is_Target_Hit_By_Shell:= FALSE; ;сравнить старшие слова @@r_2 и @@R*@@R cmp WORD PTR @@r_2+2,dx jb @@r_2_below_@@R_2 ja @@r_2_above_@@R_2 ;@@r_2+2 = dx, сравнить младшие слова cmp WORD PTR @@r_2,ax jb @@r_2_below_@@R_2 ja @@r_2_above_@@R_2 ;(WORD PTR @@r_2+2=dx)and(WORD PTR @@r_2=ax)=> DWORD PTR @@r_2 = DWORD PTR @@R*@@R (@@R*@@R = dx:ax) jmp return_FALSE ;@@r_2 > @@R^2 @r_2_above_@@R_2: jmp return_FALSE ;@@r_2 < @@R^2 @r_2_below_@@R_2: return_TRUE: mov ax,1 jmp @@exit return_FALSE: xor ax,ax ;ax:= 0 @exit: pop dx mov sp,bp pop bp ret @@arg_size Determine_Is_Target_Hit_By_Shell ENDP code ENDS stk SEGMENT stack DB 200h DUP(?) stk ENDS END entry_point

Ответ отправил: Trulala (статус: 2-ой класс) Ответ отправлен: 01.05.2008, 16:19

Вопрос № 134.840

Помогите решить задачу! Ввести 2 символа С и D и число K. Вывести на экран K строк вида: CD CDCD CDCDCD CDCDCDCD...Например, если k=4. Особенно хочу знать как осуществляется перевод на другую строку...Заранее большое спасибо!

Отправлен: 30.04.2008, 16:21 Вопрос задала: Дацковская Анна Андреевна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Дацковская Анна Андреевна! Смотрите код в приложении. ps:вопросы задавайте в мини-форуме. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в текстовый режим start: mov ax,03 int 10h ;вводим первый символ mov ah,9 mov dx,offset dbSimbol int 21h mov ah,01 int 21h push ax ;вводим второй символ mov ah,9 mov dx,offset dbSimbol int 21h mov ah,01 int 21h ;запоминаем символы в стеке pop bx mov ah,bl push ax ;вводим число mov ah,9 mov dx,offset dbNumber int 21h ;в этом регистре будет введенное число xor di,di ; isNext: mov ah,08 int 21h ;проверяем нажатую клавишу cmp al,13 jz isStop cmp al,'0' jb isNext cmp al,'9' ja isNext ;цифра выводим int 29h ;DI:=di*10+ax and ax,0fh xchg di,ax mov bx,10 xor dx,dx mul bx add di,ax jmp short isNext isStop: ;останавливаем символы и записываем в счетчик введенное число pop si mov cx,di inc di ;переходим на новую строку isMain: mov al,13 int 29h mov al,10 int 29h ;защита от нуля jcxz isExit push cx ;настраиваемся на внутренний цикл mov bx,di sub bx,cx mov cx,bx ;всё в цикле isLoop: mov ax,si ;выводим символы rol ax,8 int 29h rol ax,8 int 29h loop isLoop pop cx loop isMain ;выход с ожиданием нажатия клавиши isExit: xor ax,ax int 16h ret ; dbSimbol db 13,10,'Enter simbol:$' dbNumber db 13,10,'Enter number:$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 134.916

УВАЖАЕМЫЕ ЭКСПЕРТЫ,помогите написать программу по теме: "Организация циклов и работа с целочисленными одномерными массивами", очень прошу, я не знаю как её написать, а здавать нужно уже завтра! Задача:найти отдельно сумму четных и сумму нечетных элементов. Спасибо заранее!

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, LapSia! В приложении образец написания такого вида программ. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h start: mov ax,3 int 10h ; mov si,offset dwMassiv cld xor bx,bx;четные xor dx,dx;нечетные mov cx,6 ;чтение массива чисел isLoop: lodsw ;проверяем четность push ax shr al,1 pop ax ;перход если четно jnc isChet ;суммируем в нечетные add dx,ax jmp short isNext ;суммируем если четно isChet: add bx,ax isNext: loop isLoop ;выводим результат mov ax,dx push bx call OutNumber pop ax ;вывод результата OutNumber: xor cx,cx mov bx,10 ;цикл получения отдельных цифр isDiv: xor dx,dx div bx push dx inc cx or ax,ax jnz isDiv ;цикл вывода цифр числа isOut: pop ax or al,30h int 29h loop isOut ;первод строки mov al,10 int 29h mov al,13 int 29h ret ;массив dwMassiv dw 13,2,15,24,11,34 ;13+15+11=39 ;2+24+34=60 end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 02.05.2008, 16:39 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное за помощь!!!!

Вопрос № 135.041

Здраствуйте. Помогите пожалуйста, у меня вопрос. как можно "После ввода двох строк, вывести одинаковые символы на экран? Заранее спасибо С уважением, Юрий!

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Макалов Юрий ! В приложении программа, вводит две строки и выводит только те символы, которые встречаются в обеих строках. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в текстовый режим start: mov ax,3 int 10h ;выводим сообщение и вводим первую строку mov ah,9 mov dx,offset dbEnter int 21h mov ah,0ah mov dx,offset dbStringA int 21h ;выводим сообщение и вводим вторую строку mov ah,9 mov dx,offset dbEnter int 21h mov ah,0ah mov dx,offset dbStringD int 21h ;чистим таблицу контроля mov di,offset dwTable xor ax,ax mov cx,255 cld rep stosw ;настраиваемся на первую строку mov si,offset dbStringC mov cl,dbStringB xor ch,ch mov bx,offset dwTable ;просматриваем всю строку и увеличиваем счетчики букв isLoopA: xor ah,ah lodsb shl ax,1 mov di,ax inc word ptr[bx+di] loop isLoopA ;настраиваемся на вторую строку mov si,offset dbStringF mov cl,dbStringE xor ch,ch inc bx ;просматриваем всю строку и увеличиваем счетчики букв isLoopB: xor ah,ah lodsb shl ax,1 mov di,ax inc word ptr[bx+di] loop isLoopB ;выводим сообщение mov ah,9 mov dx,offset dbResult int 21h ;настраиваемся на таблицу результатов mov si,offset dwTable mov cx,255 ;выводим только символы, которые встретились в обеих строках isCheck: lodsw or al,al jz isNot or ah,ah jz isNot mov ax,255 sub ax,cx int 29h isNot: loop isCheck ret ; dbEnter db 10,13,'Enter string :$' dbResult db 10,13,'Result :$' dbStringA db 255 dbStringB db ? dbStringC db 255 dup(?) dbStringD db 255 dbStringE db ? dbStringF db 255 dup(?) dwTable dw 255 dup(?) end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 06.05.2008, 15:54 Оценка за ответ: 5 Комментарий оценки: Спасибо вам большое. Я очень признателен вам Константин Николаевич за ваш ответ.

Вопрос № 135.068

Здравствуйте, Уважаемые эксперты! Очень нужна Ваша помощь! Помогите разобраться с задачкой: Дан массив из 8 байтов. Рассматривая его как массив из 64 бит, посчитать длину самой длинной последовательности единиц.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Borman Karlovich! Программа в приложении. ps: вопросы в мини-форум. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в текстовый режим start: mov ax,3 int 10h ;загружаем восемь байт mov si,word ptr dbmassiv mov di,word ptr[dbMassiv+2] mov bx,word ptr[dbMassiv+4] mov ax,word ptr[dbMassiv+6] ;si:di:bx:ax mov cx,64 xor dx,dx ;сдвигаем регистры последовательно isLoop: shr si,1 rcr di,1 rcr bx,1 rcr ax,1 jc isControl ;если флаг переноса сброшен, проверяем текущее число единиц с максимальным cmp dl,dh jb isNoMax ;текущее число единиц делаем максимальный mov dh,dl ;сбрасываем текущее число единиц isNoMax: xor dl,dl ;добавляем флаг переноса isControl: adc dl,0 ;вывод для контроля максимального значения pusha call isCheck popa ;все делаем в цикле loop isLoop ;выводим окончательный результат mov al,':' int 29h ;готовимся к выводу isCheck: xor ah,ah mov al,dh mov bx,10 xor cx,cx ;преобразовываем в 10-ю систему isDiv: xor dx,dx div bx push dx inc cx or ax,ax jnz isDiv ;выводим в нужной последовательности isOut: pop ax or al,30h int 29h loop isOut ;выводим разделяющий пробел mov al,20h int 29h ret ;массив байт dbMassiv db 0ffh,0fh,0ffh,0ffh,17h,1fh,0,0fh ;такая последовательность бит будет в регистрах, сдвиг => ;0000111111111111,1111111111111111,0001111100010111,0000111100000000 end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 06.05.2008, 13:48 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за Ваш более чем полный ответ!

Вопрос № 135.099

Здравствуйте, уважаемые эксперты! Помогите пожалуйста! Возникла проблема с решением. Необходимо написать пример с использованием команд: movs, repne. std. Проблема в том, что movs ведь служит для пересылки строки, а тут repne - "повторять пока не"... Может, где-то должна находится переменная, с которой идет сравнение - пока она не встретится в пересылаемой строке? Перерыл интернет - ничего не нашел. Большое спасибо за помощь!

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

Отвечает: Trulala Здравствуйте, Mangoost! MOVS/MOVSB/MOVSW/MOVSD (MOVe String Byte/Word/Double word) Пересылка строк байтов/слов/двойных слов Алгоритм работы: * выполнить копирование байта, слова или двойного слова из операнда источника в операнд приемник, при этом адреса элементов предварительно должны быть загружены: o адрес источника — в пару регистров ds:esi/si ( ds по умолчанию, допускается замена сегмента); o адрес приемника — в пару регистров es:edi/di (замена сегмента не допускается); * в зависимости от состояния флага df изменить значение регистров esi/si и edi/di: o если df=0, то увеличить содержимое этих регистров на длину структурного элемента последовательности; o если df=1, то уменьшить содержимое этих регистров на длину структурного элемента последовательности; * если есть префикс повторения, то выполнить определяемые им действия (см. команду rep). Выполнение команды не влияет на флаги. Команды п ересылают элемент из одной ячейки памяти в другую. Размеры пересылаемых элементов зависят от применяемой команды. Команда movs может работать с элементами размером в байт, слово, двойное слово. В качестве операндов в команде указываются идентификаторы последовательностей этих элементов в памяти. Реально эти идентификаторы используются лишь для получения типов элементов последовательностей, а их адреса должны быть предварительно загружены в указанные выше пары регистров. Транслятор, обработав команду movs и выяснив тип операндов, генерирует одну из машинных команд movsb, movsw или movsd. Машинного аналога для команды movs нет. Для адресации операнда приемник обязательно должен использоваться регистр es. Для того чтобы эти команды можно было использовать для пересылки последовательности элементов, имеющих размерность байт, слово, двойное слово, необходимо использовать префикс rep. Префикс rep заставляет циклически выполняться команды пересылки до тех пор, пока содержим ое регистра ecx/cx не станет равным нулю. REP/REPE/REPZ/REPNE/REPNZ (REPeat string operation) Повторить цепочечную операцию указание условного и безусловного повторения следующей за данной командой цепочечной операции. Алгоритм работы зависит от конкретного префикса. Префиксы rep, repe и repz на самом деле имеют одинаковый код операции, их действия зависят от той цепочечной команды, которую они предваряют: * rep используется перед следующими цепочечными командами и их краткими эквивалентами: movs, stos, ins, outs. Действия rep: 1. анализ содержимого cx: o если cx=0, то передать управление команде, следующей за данной цепочечной командой (выйти из цикла по rep); 2. уменьшить значение cx=cx–1 и вернуться к шагу 1; * repe и repz используются перед следующими цепочечными командами и их краткими эквивалентами: cmps, scas. Действия repe и repz: 1. анализ содержимого cx и флага zf: o если cx=0 или zf=0, то п ередать управление команде, следующей за данной цепочечной командой (выйти из цикла по rep); 2. уменьшить значение cx=cx-1 и вернуться к шагу 1; * repne и repnz также имеют один код операции и имеют смысл при использовании перед следующими цепочечными командами и их краткими эквивалентами: cmps, scas. Действия repne и repnz: 1. анализ содержимого cx и флага zf: 2. уменьшить значение cx=cx–1 и вернуться к шагу 1. Команды rep, repe, repz, repne и repnz в силу специфики своей работы называются префиксами. Они имеют смысл только при использовании цепочечных операций, заставляя их циклически выполняться и тем самым без организации внешнего цикла обрабатывать последовательности элементов фиксированной длины. Большинство применяемых префиксов являются условными, то есть они прекращают работу цепочечной команды при выполнении определенных условий. У этой информации есть автор: Юров Виктор Иванович преподаватель СПВУРЭ ПВО ----- ∙ Отредактировал: Зенченко Константин Николаевич (Профессионал) ∙ Дата редактирования: 07.05.2008, 18:46

Ответ отправил: Trulala (статус: 2-ой класс) Ответ отправлен: 03.05.2008, 12:34

Отвечает: Зенченко Константин Николаевич Здравствуйте, Mangoost! Префиксы REPE|REPZ имеют опкод 0F316(111100112)повторять пока равно или пока ZF=1, Префиксы REPNE|REPNZ имеют опкод 0F216(111100102) повторять пока не равно или пока ZF=0, делаем вывод, что именно последний бит указывает какое должно быть значение флага ZF для продолжения выполнения команды. Опкод префикса REP совпадает с опкодом префиксов REPE|REPZ, отсюда ещё один вывод действие префикса зависит от того какая строковая команда стоит за ним. Т.е. для команд CMPS или SCAS порверяется последний бит и значение флага ZF(после выполнения этих команд), для остальных команд MOVS, STOS, LODS, INS и OUTS, он не проверяется или просто игнорируется процессором. Если учесть это, то опкод для этих команд будет 1111001х2 или 0F2х16, где х- любое значение бита. Отсюда делаем ещё один вывод, что использование любого префикса с условием, вместе с командами MOVS, STOS, LODS, INS и OUTS выполняется аналогично префиксу REP. Проверьте на практике. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 135.243

Написать прог, осуществляющую подсчет числа разных символов в введенной пользователем строке.(т.е. кол-во разных символов напр строка: 111444ааабббкккк 1 - 3 4 - 3 а - 3 б - 3 к - 4 Всех символов(т.е. то что можно ввести с клавы) Прога в приложение делает подсчет, но только цыфр. Приложение: data segment COUNT db 10 dup (0) CIFR db '0123456789ABCDEF' IN_STR db 80, ?, 82 dup (?) OUT_STR db 0Dh, 0Ah, ?,'-',?,?,'$' data ends sk segment stack db 256 dup(0) ends code segment assume cs:code, ds:data, ss:sk START: mov ax,data mov ds,ax lea dx, IN_STR mov ah, 0ah int 21h xor ah, ah lea bx, IN_STR+2 xor cx, cx mov cl, IN_STR+1 CYC: mov al, [BX] cmp al,'0' jb NC cmp al, '9' ja NC sub al, '0' mov si, ax inc COUNT[si] NC: inc bx loop CYC mov cx, 10 lea bx, CIFR xor si, si KON: mov al, '0' add ax, si mov OUT_STR+2, al mov dl, COUNT[si] mov al, dl push cx mov cl, 4 shr al, cl xlat pop cx ; cmp dl,1 ;jb A1 mov OUT_STR+4, al mov al, dl and al,00001111b xlat mov OUT_STR+5, al lea dx, OUT_STR mov ah, 09h int 21h A1: inc si loop KON QUIT: mov ax, 4C00h int 21h code ends end START

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, STALKER58! Программа в приложении "делает подсчет", и не только цифр... Приложение: data segment COUNT db 256 dup (0) ;будем считать ВСЕ коды, а их 100h ;COUNT db 10 dup (0) CIFR db '0123456789ABCDEF' IN_STR db 80, ?, 82 dup (?) OUT_STR db 0Dh, 0Ah, ?,'-',?,?,'$' data ends sk segment stack db 256 dup(0) ends code segment assume cs:code, ds:data, ss:sk START: mov ax,data mov ds,ax lea dx, IN_STR mov ah, 0ah int 21h xor ah, ah lea bx, IN_STR+2 xor cx, cx mov cl, IN_STR+1 CYC: mov al, [BX] ;введенный символ будет индексом в массиве COUNT ; cmp al,'0' ; jb NC ; cmp al, '9' ; ja NC ; sub al, '0' mov si, ax inc COUNT[si] NC: inc bx loop CYC ; mov cx, 10 ; lea bx, CIFR ; xor si, si ;KON: ; mov al, '0' ; add ax, si ; mov OUT_STR+2, al ; mov dl, COUNT[si] ; mov al, dl ;push cx ; mov cl, 4 ; shr al, cl ; xlat ;pop cx ;; cmp dl,1 ;;jb A1 ; mov OUT_STR+4, al ; mov al, dl ; and al,00001111b ; xlat ; mov OUT_STR+5, al ; lea dx, OUT_STR ; mov ah, 09h ; int 21h ;A1: ; inc si ;loop KON mov cx, 256 ;пробежим по всем кодам lea bx, CIFR xor si, si KON: mov dl, COUNT[si] cmp dl,0 ;будем выводить количество только для введенных символов je a1 mov al, dl push cx mov cl, 4 shr al, cl xlat pop cx mov OUT_STR+4, al mov al, dl and al,00001111b xlat mov OUT_STR+5, al mov ax, si ;индекс в строке COUNT есть сам код! mov OUT_STR+2, al lea dx, OUT_STR mov ah, 09h int 21h A1: inc si loop KON QUIT: mov ax, 4C00h int 21h code ends end START --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 07.05.2008, 10:39 Оценка за ответ: 5 Комментарий оценки: Ответ развернуты и коментированный, большое спасибо в проге полностью разобрался.

Вопрос № 135.257

Здравствуйте! Заинтересовался написанием файлового менеджера и возник следующий вопрос: Обычно под сочетания <ALT+F1> и <ALT+F2> показывают список имеющихся дисковых устройств для последующего выбора. А вот как можно определить список этих самых доступных букв? Смотрел функции 0EH, 19H прерывания 21H – но там же получается нужно делать перебор? Т.е., как я понял, делаем какой-то диск текущим, и затем смотрим, получилось ли. Навряд ли это правильно. И еще позвольте. В книге Зубкова много разных интересных функций по работе с длинными именами файлов, но я там не нашел функцию по переименованию файла (т.е. аналог прежней функции 56H).

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Бартосик Феликс Михайлович! Как вариант, список дисков можно получить, пробежав по списку DPB. Смотри приложение. ----------- Добавлено 08.05.08: И еще один вариант, тоже в приложении, используется тот факт, что ф-я парсинга 29h сообщает о том, если диск не существует. Работает при удалении/добавлении дисков! ---------- А для работы с длинными именами есть функция ah=71h. При al=56h (не случайно в AL 56h ... :)) она служит как раз для перемещения/переименования файла DS:DX -> ASCIZ (long allowed) старого имени файла или директории ES:DI -> ASCIZ нового имени Если второе имя без пути, то будет переименование... Вернет: CF=0, если отработало CF=1, если ошибка AX = код ошибки 7100h если функция не поддерживается Примечание: файл может быть переименован в другой директории, но не на другом диске. Приложение: .model tiny, C .code .386 .startup call GetDisks .exit 0 ; Просматриваем блоки Drive Parameter Block (DPB) ; Используем, что для существующих дисков есть и DPB ; Так как структура DPB в разных версиях разная, ; то приходится проверять версию ДОС-а, ; и для меньших 4.00 подправить смещение в команде на 18h... ; Результат - битовая маска в EAX (b0=1 - A, b1=1 - B, b2=1 - C, и т.д.) ; При желании, можно переделать на DX:AX, чтобы остаться в 16-битных регистрах... GetDisks proc uses bx, es, cx, esi mov ah,30h int 21h cmp al, 4 ; 4.00+ - без изменений jae GD_get_list_of_lists mov byte ptr cs:GD_next+3, 18h ; подправим код... GD_get_list_of_lists: mov ah,52h ; получим "список списков" int 21h ; в ES:BX les bx, es:[bx] ; по смещению 0 получим указатель на первый DPB, ; после загрузки ES:BX - указатель на первый DPB mov cx, 32 ; ограничим максимальное число просмотров ; столько, в принципе, никогда не будет, но все же... xor esi, esi ; здесь будем накапливать битовую маску GD_loop: cmp bx, -1 ; у последнего DPB ссылка на последующий равна ffff:ffffh je GD_ret ; достаточно проверить только смещение push cx ; сохраним счетчик цикла mov cl, es:[bx] ; по смещению 0 имеем код диска: 0-A, 1-B, 2-C,... mov eax, 1 shl eax, cl ; сформируем битовую маску pop cx or esi, eax ; и сохраним в ESI GD_next: les bx, es:[bx+19h] ; читаем длинный указатель на следующий DPB loop GD_loop ; зацикливаем GD_ret: mov eax, esi ; результат ret GetDisks endp end ;--------------------------------------------- .model tiny, C .code .386 .startup continue: lea ax, disks ; сюда запишем строку букв дисков call GetDisks, ax lea dx, string mov ah, 9 int 21h mov ah, 0 int 16h cmp al,1bh jne continue .exit 0 ;Для анализа существования диска используем парсинг строки! GetDisks proc pString:word local buffer:byte:4, FCB:byte:26h ; буфера в стеке uses bx, si, di ; сохраним используемые регистры в стеке push-ами mov cx,26 ; максимальное количество дисков A-Z mov bx, pString ; параметр - адрес, куда писать строку дисков lea si,buffer ; буфер, где будем формировать строку '<диск>:' mov word ptr [si],':A' ;начнем с 'A:' mov byte ptr [si+2],0 lea di, FCB ; адрес FCB, куда ф-я запишет результат парсинга disk_loop: push si ; сохраним адрес буфера, он портится mov ax, 2901h int 21h pop si cmp al,0ffh ; диск отсутствует? je disk_next ; не сохраняем mov al,[si] ; буква диска mov ah, '$' ; для вывода на экран по 9 ф-и ; mov ah, 0 ; для нормальной работы лучше так mov word ptr [bx],ax ; сохраним в выходном буфере вместе с завершающим символом inc bx disk_next: inc byte ptr [si] ; увеличим букву диска loop disk_loop ret GetDisks endp .data string db 0dh,0ah disks db 27 dup (0) ;A-Z + 1 end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 06.05.2008, 15:06 Оценка за ответ: 5 Комментарий оценки: Большое спасибо Игорь Витальевич ! Вы мне очень помогли! Посидел - повникал - все работает! Возникли небольшие вопросы, которые я сейчас наберу в мини-форум

Вопрос № 135.271

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

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Azazel! Видать плохо в функциях разобрался... Надо было свои пробы выложить, подправили бы, больше проку бы было... Ну да ладно, держи программку под TASM в приложении... Приложение: .model tiny dtadata struc reserv db 21 dup (?) fattr db ? ftime dw ? fdate dw ? fsize dd ? fname db 13 dup (?) dtadata ends .data all_mask db '*.*',0 ; ищем любое имя error_string db 'Ошибка$' ; сообщение об ошибке .data? dta dtadata <> ; здесь будут результаты поиска ; атрибуты файлов READONLY equ 01h HIDDEN equ 02h SYSTEM equ 04h ; атрибуты, которые задаем для поиска ; причем будут попадаться файлы с атрибутами: без атрибутов, archive, read-only, system, hidden ATTRIB equ HIDDEN + SYSTEM .code .startup lea dx, dta ; установим свою DTA mov ah, 1ah int 21h lea dx, all_mask mov cx, attrib ; mov ah, 4eh ; начинаем поиск search: int 21h jc error_found ; если ошибка, то выходим test byte ptr dta.fattr,ATTRIB jz next ; если нет любого из нужных битов, то идем на продолжение поиска push dx ; сохраним dx, в нем адрес, необходимый для последующего поиска lea dx, dta.fname ; адрес имени найденного очередного файла test byte ptr dta.fattr,READONLY jz delete ; если не READ-ONLY, то удаляем сразу mov ax, 4301h ; иначе, сначала сбросим атрибут в 0 (иначе не удалится!) mov cx, 0 int 21h jc error_found ; ошибка... delete: mov ah, 41h ; удалим int 21h pop dx next: mov ah, 4fh ; продолжим поиск jmp search error_found: cmp ax,12h ; если 12h (больше ничего не найдено) je finish ; то выходим lea dx, error_string ; иначе выводим сообщение mov ah,9 ; при желании можно проанализировать... int 21h finish: .exit end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 05.05.2008, 10:51 Оценка за ответ: 5 Комментарий оценки: спасибо огромное!

Вопрос № 135.280

Здрасте!! ПОМОГИТЕ! Немогу зделать в асемблере казалось бы элементарною вешь!!!! Как из двух строк, зделать одну.... что бы они разделялись пробелами!!!??? Ну, или , к примеру убирать слова из предложения!!!! Заранее огромное спс

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

Отвечает: Boriss Здравствуйте, Vadme28! По адресу http://rusfaq.ru/upload/615 Вы можите скачать исходный файл, решающий Вашу первую проблему Получить нужно .СОМ-файл. Ему при работе выделяется 64 килобайта памяти. В начале размещается код программы, в конце - стек. А середину можно использовать как хочешь. Вот так и делается: в конце файла объявляется метка (имя) dst, которая определяет начала области, куда копируются строки поочереди с помощью удобных строковых инструкций. Есть еще удобнее - MOVSB. В сочетании с REP код будет еще компактнее. Если хотите - покажу. Что касается второй, то возни чуть-чуть побольше. Если надо .... напишите в минифоруме --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 05.05.2008, 09:46 Оценка за ответ: 5 Комментарий оценки: Чё ещё за минфорум? Если не сложно, напиши текст !

Вопрос № 135.300

Здравствуйте, дорогие эксперты ! Помогите, пожалуйста, решить задачу ввести число К (К<5) и символ С. Вывести в следующем виде: С К С К С К ...(и так всего 80 символов). и данную строку вывести К раз. ВЫход по нажатию клавиши. Для примера у меня имеется задача но с другим условиям в которой я не могу разобраться! Может быть это вам поможет! (ввести число К и символ С. Вывести в следующем виде: СК СК СК ...(и так всего 80 символов)..Выход по нажатию клавиши.) Задача: locals ASSUME cs:code, ds:code code SEGMENT org 100h entry_point: jmp start ;данные COM enter_digit_mess DB 'press digit K key:',0 enter_symbol_mess DB 'press symbol C key:',0 digit_K DB '0',0 symbol_C DB 'A',0 start: ;установка текстового видеорежима mov ax,0003h INT 10h ;ввод символа десятичной цифры K lea ax,enter_digit_mess mov dl,0 call PrintStr mov ah,0 INT 16h cmp al,'0' jb exit_error cmp al,'9' ja exit_error mov digit_K,al lea ax,digit_K mov dl,1 call PrintStr ;ввод символа C lea ax,enter_symbol_mess mov dl,2 call PrintStr mov ah,0 INT 16h mov symbol_C,al lea ax,symbol_C mov dl,3 call PrintStr ;вывод строки mov ax,0B800h mov es,ax mov al,80*2 mov dl,5 mul dl mov di,ax cld mov cx,80 mov ah,digit_K mov al,symbol_C mov dl,' ' write_string: stosb dec cx test cx,cx jz exit_OK inc di xchg ah,al stosb dec cx test cx,cx jz exit_OK inc di xchg ah,al mov es:[di],dl dec cx test cx,cx jz exit_OK inc di inc di jmp write_string exit_error: mov al,1 jmp exit exit_OK: mov ah,0 INT 16h mov al,0 exit: mov ah,4Ch INT 21h ;--------------------------------------------------------- ;DS:AX - адрес выводимой строки; DL - номер строки дисплея ;--------------------------------------------------------- PrintStr PROC push es push si push di mov si,ax mov ax,0B800h mov es,ax mov al,80*2 mul dl mov di,ax cld next_char: lodsb test al,al je @@exit mov es:[di],al inc di inc di jmp next_char @exit: pop di pop si pop es ret PrintStr ENDP code ENDS END entry_point Говорю ,вам , всем спасибо даже за то , что прочитали мое письмо! Спасибо до свидание!:):):)

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

Отвечает: Airyashov Здравствуйте, Обрезан Альфия Альбертовна! Если закидывать вопрос каждую неделю, то обязательно кто-нибуть поможет, на халяву? Вот изменения которые надо внести в программу которая у Вас уже есть write_string: stosb dec cx test cx,cx jz exit_OK inc di mov es:[di],dl dec cx test cx,cx jz exit_OK inc di inc di xchg ah,al stosb dec cx test cx,cx jz exit_OK inc di xchg ah,al mov es:[di],dl dec cx test cx,cx jz exit_OK inc di inc di jmp write_string

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 04.05.2008, 16:39 Оценка за ответ: 5 Комментарий оценки: Здравствуйте!Наверно можно уже сказать добрый вечер! вот даже и недумала о том , что кто-то может написать!у меня аш руки перестают слушатся, от такого волнения! если бы я в этом предмете хоть, как нибудь разбиралась, то я сама решила,но наверника мне этого недано. я рада , что кому-то можно обратится в трудный момент. от такой радасти,даже дар речи теряется! да и порой словами многое не скажеш! но несколько слов я все-таки скажу:спасибо вам за все!за вашу поддержку, и понимание о том, что какому-то маленкому человечку на этой большой планете необходимо помощь!пусть будет у вас в 100 раз больше такого счастья как у меня , когда я получила ваше письмо с ответом!желаю вам всего доброго и досвидание!:):):):):):):):):):):):):):):):):):):):):)

Вопрос № 135.338

расскажите о всех аспектах прерываний в защищенном режиме. О шлюзах задач, прерываний и исключений вроде. О переносе IRQ на другие адреса и т. д. !!!!!!!

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Blackshadow! О защищенном режиме в двух словах не скажешь... Читай литературу или зайди на сайт, там много электронных книг, в том числе и по защищенному режиму. --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 07.05.2008, 10:08 Оценка за ответ: 5 Комментарий оценки: это то, что нужно. поиск мне не выдал такого полного сайта. мне понравился sasm.narod.ru, но тут больше конечно. спасибо

Вопрос № 135.340

Здравствуйте Эксперты! Помогите пожалуйста написать такую программу на ассемблере: С клавиатуры вводятся 2 символа c и d и число k. Затем выводятся на экран в следующей последовательности: c d k c d (k-1) c d (k-2)....c d 1. выход по нажатию клавиши.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Jones! Программа в приложении. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в текстовый режим start: mov ax,03 int 10h ;вводим первый символ mov ah,9 mov dx,offset dbSimbol int 21h mov ah,01 int 21h push ax ;вводим второй символ mov ah,9 mov dx,offset dbSimbol int 21h mov ah,01 int 21h ;запоминаем символы в стеке pop bx mov ah,bl push ax ;вводим число mov ah,9 mov dx,offset dbNumber int 21h ;в этом регистре будет введенное число xor di,di ; isNext: mov ah,08 int 21h ;проверяем нажатую клавишу cmp al,13 jz isStop cmp al,'0' jb isNext cmp al,'9' ja isNext ;цифра - выводим int 29h ;DI:=di*10+ax and ax,0fh xchg di,ax mov bx,10 xor dx,dx mul bx add di,ax jmp short isNext ;переходим на новую строку isStop: mov al,13 int 29h mov al,10 int 29h ;записываем в счетчик введенное число mov cx,di pop si ;защита от нуля jcxz isExit ;всё в цикле isLoop: mov ax,si ;выводим символы rol ax,8 int 29h rol ax,8 int 29h ;выводим само число как индекс цикла mov ax,cx call OutNumber loop isLoop ;выход isExit: ret ;вывод текущего значения индекса OutNumber: pusha mov bx,10 xor cx,cx isDiv: xor dx,dx div bx push dx inc cx or ax,ax jnz isDiv isOut: pop ax or ax,30h int 29h loop isOut popa ret ; dbSimbol db 13,10,'Enter simbol:$' dbNumber db 13,10,'Enter number:$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 135.572

Здравствуйте! Очень долго искал ошибку в приложении 1 при помощи отладчика. Никак поиск не получался. Как видите: маска файлов идет сразу после int 21h. Потом сделал вставку в виде db 0 и тогда все через отладчик получилось. Видимо не зря, подумал я, что при компиляции приложения 2 между сегментами .code и .data автоматом компилируется db 0. (А зачем действительно этот нолик вставляется?) А потом я подумал - не отладчик ли здесь виноват: может быть перед тем как выполнить int 21h он в начале маски вставляет int 3 ?? Помогите разобраться в этих мыслях. Хотел было выполнить эксперимент без отладчика, но так и придумал как отделить звездочки от int 21h - ведь они потом будут выполняться как код? И если не трудно, объясните разницу в оформлении приложений. Я привык все оформлять как в первом - так научился по рассылке Калашникова; но сейчас вижу, что большинство примеров в виде2. Может "name segment... name ends" и .code - синонимы (или как?). И почему в первом приложении пишем "CCC ENDS END BEGIN" , а не наоборот? ведь в начале идет "CCC SEGMENT ...BEGIN:" Я в смысле , если рассуждать логически какой-то здесь перекрест идет. Приложение: Приложение 1 CCC SEGMENT ORG 100H BEGIN: mov ah,4eh mov dx,offset file2 xor cx,cx int 21h ;db 0 file2 db "*.*",0 CCC ENDS END BEGIN Приложение 2 .model tiny .code org 100h BEGIN: mov ah,4eh mov dx,offset file2 xor cx,cx int 21h .data file2 db "*.*",0 END BEGIN

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Бартосик Феликс Михайлович! Давай по порядку... 1)Поиск не получается, потому что в cx задано искать файлы без атрибутов. Т.к. все файлы наверняка с атрибутом "архивный", то ничего и не находит... Обрати внимания: возвращается код возврата 12h (больше ничего не находится) 2)Думаю, не открою большую тайну для тебя, если скажу, что у сегментов есть атрибут выравнивания (на байт, на слово, и т.д.) Так вот, применение .code, .data приводит к созданию сегментов, выровненных на СЛОВО (2 байта). У тебя длина кодового сегмента нечетная. Думаю, уже понятно, откуда получается нолик между сегментами? :) Кстати, загляни в конец листинга, там увидишь подтверждение моих слов... 3)Да, ты прав насчет отладчика. Действительно, при пошаговой отладке отладчик заменяет первый байт, следующий за командой на 0cch В твоем случае, попадаем на данные... Другое дело, что данные так мешать с кодом нельзя! Не будет работать ! 4)Чтобы поместить данные ("звездочки") в коде, можно, например, сделать jmp перед данными на метку за данными. Или вставь перед звездочками код завершения программы, а то чего-то незавершенность какая-то... 5)Более универсальным способом является первый способ. Во втором .model, .code, .data и другие по сути являются макро, которые облегчают описание сегментов. Ну и, наконец, 6) В приложении 1 приведена программа, в которой задан сегмент ССС, который находится между SEGMENT и ENDS. Если бы у нас были еще сегменты, то мы их разместили бы за CCC ENDS Оператор же END завершает весь исходник. Все, что за END-ом не рассматривается! Поэтому он должен быть последним! Операндом у END-а является метка старта программы. Она, кстати, (для формата EXE, разумеется) может быть в любом месте любого кодового сегмента. Для формата COM точка входа всегда по адресу 100h Удачи в освоении ассемблера! Искренне рад такому рв ению... --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 06.05.2008, 10:14 Оценка за ответ: 5 Комментарий оценки: Большое спасибо Игорь Витальевич, Вы всегда так здорово и подробно отвечаете! Но все-таки отладчик виноват, я догадался позже, как его вычислить - подробнее на мини-форуме.

Вопрос № 135.687

Доброго времени суток. Помогите сделать небольшую программку: В исходной строке указанное число символов, начиная с заданной позиции, переписать в конец строки. Спасибо за внимание и попытки помочь.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Хохряков Виктор Вадимович! Программа в приложении. Есть только контроль введеного числа если оно превышает максимальную длину строки 255 байт. Вместо этой строки dbInpStr db 512 dup(?) можно оставить только dbInpStr db ? Но это только для данной модели памяти и если эта запись находится в конце программы. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h start: mov ax,3 int 10h ;запоминаем стек push bp mov bp,sp ;выводим сообщение и вводим строку mov ah,9 mov dx,offset dbString int 21h mov ah,0ah mov dx,offset dbMaxStr int 21h ;выводим сообщение и вводим количество mov ah,09 mov dx,offset dbNumber int 21h call inputNumber push di ;выводим сообщение и вводим позицию mov ah,09 mov dx,offset dbPosition int 21h call inputNumber push di ;настраиваем регистры для работы со строковыми командами mov si,offset dbInpStr mov al,dbInpNum xor ah,ah mov di,si cld add di,ax pop dx dec dx add si,dx pop cx ;копирование rep movsb ;записываем маркер конца строки mov al,'$' stosb ;записываем нужные символы и выводим результат mov dbMaxStr,' ' mov dbInpNum,':' mov dx,offset dbResult jmp short isStop ;подпрограмма ввода чисел inputNumber: xor di,di mov si,10 ;вводим без эхо пока не нажата клавиша ВВОД inpLoop: xor ax,ax int 16h cmp al,13 jz inpStop ;проверяем цифру cmp al,'0' jb inpLoop cmp al,'9' ja inpLoop ;цифра выводим int 29h ;и добавляем к уже введенному числу and ax,0fh xchg di,ax xor dx,dx mul si add di,ax jmp short inpLoop ;контролируем если число больше 255 inpStop: mov ax,di or ah,ah jz inpOk ;выводим сообщение об ошибке mov dx,offset dbError ;выводим сообщени о результате работы ожидаем любую клавишу isStop: mov ah,9 int 21h xor ax,ax int 16h ;востанавливаем стек и выходим из программы cli mov sp,bp sti pop bp inpOk: ret dbError db 10,13,'Attention: error number$' dbNumber db 10,13,'Enter number:$' dbString db 10,13,'Enter string:$' dbPosition db 10,13,'Enter position:$' dbResult db 10,13,'Result' dbMaxStr db 255 dbInpNum db ? dbInpStr db 512 dup(?) end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 07.05.2008, 14:06 Оценка за ответ: 5 Комментарий оценки: Большое спасибо! Очень интересное решение задачи.

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