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

Выпуск № 1033
от 27.05.2008, 00:05

Вопрос № 135.948

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

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ustin_7! Код в приложении. На экран выводится безнаковое десятичное число из регистра АХ. Используются команды 186-го процессора pusha/popa. Удачи! Приложение: ;вывод текущего значения регистра АХ 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 --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 08.05.2008, 14:36 Оценка за ответ: 5 Комментарий оценки: Время ответа поражает воображение. Спасибо !

Вопрос № 135.963

Здравствуйте ! Ищу книгу: Справочная система по языку ассемблера IBM PC к книге В.И. Юров - Aссемблер учебный курс (Питер 1998). Три сслыки из инета "битые" - архив разворачитается нормально, но часть информации в нем потеряна (вместо нее черный экран). Подскажите кто знает ?! Спасибо !

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ustin_7! Юров Виктор Иванович :Справочная система. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 136.029

Здраствуйте дорогие эксперты.Помогите пожалуйста мне в написании программы для решение системы.Я написал ее, но не полностю. Не могу вывести запрос ввода данных и непосредственно выдачу разельтата.Откориктируйте пожалуйста ее.Нужно решить такую арифметическию задачу: a*a-b/a , если a > b Y = -a , если a = b a*b-1/b , если a < b Заранее спасибо. С уважением, Юрий! Приложение: .model small .data a db 7 b db 7 .data? y db? .code .startup mov ax,a mov dx,b cmp ax,dx je equal ;-a jl less ;(a*b -1) / b jmp greater ; (a*a-b)/a greater: mov al,a imul al cbw ;преобразование байта из регистра AL в слово AL -> AX sub ax,b ;a-b mov ebx,ax ; сохранение mov ax,a ;a помещается в ах cwde ; преобразование слова из AX в двойное слово EAX AX -> EAX xchg ebx,eax ; востановить eax и поместить a в ebx cdq ; преобразование двойного слова в два двойных слова EAX -> EDX,EAX idiv ebx ; EAX / EBX результат в EAX jmp done mov cx,a idiv cx equal: mov ax, -a less: mov al,a mov bl,b imul bl ; a*b результат в ax sub ax,1; a*b-1 mov ebx,ax ; сохранение mov ax,b ;b помещается в ах cwde ; преобразование слова из AX в двойное слово EAX AX -> EAX xchg ebx,eax ; востановить eax и поместить b в ebx cdq ; преобразование двойного слова в два двойных слова EAX -> EDX,EAX idiv ebx ; EAX / EBX результат в EAX jmp done .exit 0 end

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

Отвечает: Airyashov Здравствуйте, Макалов Юрий ! Помоему, то что Вы написали врядли рабочее, даже без ввода. mov ax,a mov dx,b переменные занимают байт mov al,a imul al cbw ;преобразование байта из регистра AL в слово AL -> AX зачем преобразовывать результат и так в ax equal: mov ax, -a less: это вообще фантастика, сменить знак команда neg и еще много такого, отладчиком поработайте проверьте результаты. общий принцип ввода: ввести строку, 0Ah функция DOS, проверять введенные символы на соответствие цифре и знаку (для целых), выбирать цифры умножать на вес разряда. вывод:проверить знак числа, перевести если требуется в положительное и последовательно делить на 10, сохраняя остаток в строку вывода (цифры переводить в символу) и целую часть, пока есть, в следующую итерацию.

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 09.05.2008, 23:45

Вопрос № 136.134

Здравствуйте! Помогите пожалуйста усовершенствовать функцию Del Например, если в слове HELLO удалить 3 букву будет HEL{пробел} O, а я хочу чтобы было HELO, без пробела, но не знаю, как это осуществить! Приложение: Del: mov ah,02h dec dl ;сдвигаемся на 1 позицию влево int 10h mov al,0 mov ah,0Eh ;печатаем пустой символ int 10h jmp main

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Mylogin! Смотрите приложение. Выводится строка и удаляется третий с конца символ, со смещением остальных символов в начало строки. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в ткстовый режим start: mov ax,03 int 10h ;выводим контрольную строку mov ah,09 mov dx,offset dbString int 21h ;смещаем на три позиции влево в цикле mov cx,3 isLeft: mov al,8h int 29h loop isLeft ;ожидаем нажатие любой клавиши xor ax,ax int 16h ;будем стирать третий с конца символ mov cx,3 ;шаг вправо isDel: mov al,1ah int 29h ;читае символ mov ah,08h xor bx,bx int 10h ;шаг влево push ax mov al,8h int 29h pop ax ;выводим символ int 29h loop isDel ;выход ret dbString db 10,13,'ABCDEF$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 15.05.2008, 11:32 Оценка за ответ: 5 Комментарий оценки: Спасибо. А я реализовала попроще: Del: push dx ;запоминаем текущее положение курсора .Delete: mov ah,02h ;сдвигаем курсор на 1 вправо inc dl int 10h mov ah,08h ;читаем символ int 10h mov ah, 02h ;сдвигаем курсор на 1 влево dec dl int 10h mov ah,0Eh ;печатаем символ int 10h inc dl ;сдвигаем курсор вправо cmp dl,79 ;проверяем, дошли ли до конца строки jbe .Delete pop dx ;возвращаем курсор в исходное положение dec dl ;сдвигаемся на 1 влево (для удобства) mov ah,02h int 10h jmp main

Вопрос № 136.273

Здравствуйте ! Вопрос: есть два исполнимых файла (маленькие проги на ассемблере), необходимо сравнить их побайтно с помощью команды fc. Сделал это в командной строке, но окно закрылось. Подскажите, пожалуйста. Спасибо !

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

Отвечает: LEXASOFT Здравствуйте, Ustin_7! Сделайте так Пуск->Выполнить. В окне введите cmd. И потом выполняйте в коммандной строке вашу программу. Либо воспользуйтесь фаловым менеджером(FAR например). ---------

Ответ отправил: LEXASOFT (статус: 8-ой класс) Ответ отправлен: 10.05.2008, 21:25 Оценка за ответ: 5 Комментарий оценки: Проблема решена. Спасибо !

Вопрос № 136.300

Здравствуйте ! Вопрос: есть ассемблерный модуль. Директива PROC при указании модификатора языка побуждает транслятор генерировать код пролога в начале процедуры (при входе в процедуру) и код эпилога при выходе из процедуры (в каждом месте, где встречается мнемоника ret) - цитата. Не хочет транслятор генерировать код пролога (программа рабочая, с кодом пролога и эпилога - все работает) ... Где ошибка ?! Спасибо ! Приложение: ;0311ca.asm ;вызываемый модуль model small extrn string_1:byte,string_2:byte public _sub .code _sub proc с arg offset_str2:word,offset_str1:word ;offset_str2 [bp+4], offset_str2 [bp+6] local x:byte,y:byte ;x [bp-1], y [bp-2] ; push bp ; mov bp,sp mov dx,offset_str1 mov ah,09h int 21h mov dx,offset_str2 mov ah,09h int 21h sub sp,02h mov x,01h mov y,02h mov al,x add al,y add al,30h mov ah,0Eh int 10h ; mov sp,bp ; pop bp ret _sub endp end ;0311c.asm ;Вызывающий модуль .model small extrn _sub:far public string_1,string_2 .stack .data string_1 db 'Local variable $' string_2 db '1+2=$' .code main proc far start: mov ax,@data mov ds,ax push offset string_1 push offset string_2 call _sub add sp,04h exit: mov ax,4C00h int 21h main endp end start

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

Отвечает: Airyashov Здравствуйте, Ustin_7! Так как компилятор не указали, то трудно что-то сказать. tasm вряд-ли что-то добавит, попробуйте masm`ом компилировать

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 12.05.2008, 10:39 Оценка за ответ: 5 Комментарий оценки: Здравствуйте ! Точное замечание, компилятор - TASM4. Спасибо !

Отвечает: Лысков Игорь Витальевич Здравствуйте, Ustin_7! Укажите модификатор языка в модели. model small,c Удачи! --------- Удачи!

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

Вопрос № 136.453

Здравствуйте, эксперты! У меня такая задача "Задать перемещение символа по экрану с образованием треугольника" из разряда "работа с дисплеями и прерываниями". Помогите, пожалуйста, потому что даже не знаю с какой стороны подступиться к решению.. С уважением и заранее спасибо!

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

Отвечает: Anisov Andre Nikolaevich Здравствуйте, ! для рисования используйте стрелки Приложение: org 100h mov al, 13h int 10h mov ah, 09h mov dx, s int 21h mov cx, 20 mov dx, 50 mov ah, 0ch jmp t lev: dec cx jmp t prav: inc cx jmp t verh: dec dx jmp t niz: inc dx t: mov al, 0fh call tochka mov ah, 10h int 16h cmp al, 1bh je q cmp ah, 4bh je lev cmp ah, 4dh je prav cmp ah, 48h je verh cmp ah, 50h je niz jmp t q: int 20h s: db 'Press Esc to exit,for drawing use arrows$' tochka: mov ah, 0ch int 10h ret --------- не пытайся спорить с дебилом, а то опустишься до его уровня и он задавит тебя своим " умом "

Ответ отправил: Anisov Andre Nikolaevich (статус: 3-ий класс) Ответ отправлен: 13.05.2008, 03:53

Вопрос № 136.461

Добрый день! Срочно нужна программа на ассемблере, и если возможно, с комментариями. Текст задания: Дано описание X dw 50 dup (?) ; массив чисел со знаком Написать программу на языке Assembler, заменяющую нулевые элементы массива на их порядковые номера в массиве с использованием цепочечных команд.

Отправлен: 12.05.2008, 13:43 Вопрос задал: Александр Бойцов (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Boriss Здравствуйте, Александр Бойцов! По адресу http://rusfaq.ru/upload/650 можно скачать исходный код решения Вашей задачи (на всякий случай код и в приложении) Получить нужно СОМ-файл --- Если что не понятно будет, спросите в минифоруме Приложение: ; Title NEW .model tiny .386 .code org 100h start: mov ax, 3 int 10h lea dx, msgInit mov ah,9 int 21h lea si, X cld mov cx, X_len @next: lodsw CALL showDEC LOOP @@next lea dx, msgFinal mov ah, 9 int 21h lea di, X @go: mov cx, X_len xor ax, ax REPNE scasw jne @@done push di dec di dec di mov ax, di lea bx, X sub ax, bx shr ax, 1 inc ax ; счет с 1, иначе зацикливание при первом = 0 stosw pop di LOOP @@go @done: lea si, X mov cx, X_len @9: lodsw CALL showDec LOOP @@9 lea dx, msgPress mov ah, 9 int 21h xor ax, ax int 16h int 20h ; Вывод числа в AX в десятичном showDEC proc push ax push bx push cx push dx xor cx, cx mov bx, 10 @1: xor dx, dx div bx push dx inc cx or ax, ax jnz @@1 mov bx, cx mov cx, 8 sub cx, bx @spaces: mov al, ' ' int 29h LOOP @@spaces mov cx, bx @2: pop ax add al, '0' int 29h LOOP @@2 pop dx pop cx pop bx pop ax ret showDEC endp msgInit db 'Исходный массив:',13,10,'$' msgFinal db 13,10,'Массив после преобразования',13,10,'$' msgPress db 13,10,'Нажмите любую клавишу ...$' x_len equ 50 X dw x_len dup (?) end start --------- Вывод - то место в тексте, где вы устали думать

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

Вопрос № 136.481

Здравствуйте! требуется написать программу: СОРТИРОВКА ЭЛЕМЕНТОВ ТАБЛИЦЫ ПУЗЫРЬКОВЫМ МЕТОДОМ. Как это реализовать на ассемблере?

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

Отвечает: Boriss Здравствуйте, Донцова Анастасия Викторовна! Исходный код программы - решения Вашей задачи можно скачать по адресу http://rusfaq.ru/upload/653 А также в приложении Я не знаю Вашего уровня, а потому не писал подробных пояснений. Что не понятно будет, спросите в минифоруме этого вопроса --- ЗЫ: получить нужно СОМ-файл- модель TINY Приложение: .model tiny .386 .code org 100h start: mov ax, 3 int 10h lea dx, msgBefore mov ah, 9 int 21h ; заполнение массива lea di, X mov cx, X_len cld @fill: mov AX, X_len sub AX, CX STOSW LOOP @@fill lea si, X cld mov cx, X_len @1: lodsw CALL showDEC LOOP @@1 lea dx, msgAfter mov ah,9 int 21h ; СОРТИРОВКА lea si, X mov cx, X_len dec cx ; на 1 меньше элементов просмотреть @2: lodsw ; загружаем в АХ очередной элемент ; SI увеличивается на 2 ; сравниваем со всеми последующими, и, если встречаем меньший то заменяем push cx mov di, si ; после LODSW si указывает на следующий элемент @@3: cmp ax, [di] jge @@4 ; меньше - ничего не делать mov dx, [di] mov [di], ax mov [si-2], dx mov ax, dx @@4: add di, 2 LOOP @@3 pop cx LOOP @@2 lea si, X mov cx, X_len @10: lodsw CALL showDEC LOOP @@10 lea dx, msgPress mov ah, 9 int 21h xor ax, ax int 16h int 20h lX db 'Массив' X_len equ 50 X dw X_len dup (?) msgBefore db 'Массив до сортировки:',13,10,'$' msgAfter db 13,10,'Массив после сортировки:',13,10,'$' msgPress db 13,10,'Нажмите любую клавишу ...$' ; Вывод на экран числа из АХ в десятичном ; с выравниваем на 8 позиций, прижимает вправо showDEC proc push ax push bx push cx push dx xor cx, cx mov bx, 10 @100: xor dx, dx div bx push dx inc cx or ax, ax jnz @@100 mov bx, cx mov cx, 8 sub cx, bx @spaces: mov al, ' ' int 29h LOOP @@spaces mov cx, bx @200: pop ax add al, '0' int 29h LOOP @@200 pop dx pop cx pop bx pop ax ret showDEC endp end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 12.05.2008, 17:18

Вопрос № 136.483

Уважаемые эксперты! Необходимо разобраться с кодом на асме, желательно прокомментировав построчно. Как я понял, данная программа выводит информацию об всех дисках системы. Буду очень благодарен если поможете разобраться Код перемещён в приложение. ----- ∙ Отредактировал: skrech (Профессионал) ∙ Дата редактирования: 13.05.2008, 16:07 Приложение: .386 .MODEL FLAT,STDCALL locals jumps UNICODE = 0 include win32.inc includelib import32.lib IDC_STATIC equ -1 IDD_DIALOG1 equ 103 IDD_DIALOG2 equ 104 IDI_ICON equ 105 IDC_EDIT1 equ 1000 IDC_EDIT2 equ 1001 IDC_EDIT3 equ 1002 IDC_EDIT4 equ 1003 IDC_EDIT5 equ 1004 IDC_EDIT6 equ 1005 IDC_EDIT7 equ 1006 IDC_EDIT8 equ 1007 IDC_EDIT9 equ 1008 IDC_EDIT10 equ 1009 IDC_EDIT11 equ 1010 IDC_EDIT12 equ 1011 IDC_EDIT13 equ 1012 IDC_EDIT14 equ 1013 IDC_TEXT1 equ 3000 IDC_TEXT2 equ 3001 IDC_TEXT3 equ 3002 IDC_TEXT4 equ 3003 IDC_TEXT5 equ 3004 IDC_TEXT6 equ 3005 IDC_TEXT7 equ 3006 IDC_TEXT8 equ 3007 IDC_TEXT9 equ 3008 IDC_TEXT10 equ 3009 IDC_TEXT11 equ 3010 IDC_TEXT12 equ 3011 ICON_SMALL equ 0 IDDEC equ 2000 IDINC equ 2001 IDEXIT equ 2003 IDHLP equ 2002 IDM_ABO equ 4001 IDM_EXIT equ 4002 .DATA hInst dd ? hIcon dd ? fmat1 db "%lu", 0 fmat2 db "%lX", 0 msg MSGSTRUCT <?> pnt PAINTSTRUCT <?> rect RECT <> DlgWidth dd ? DlgHeight dd ? DesktopRect RECT <> cdrive db 'a:', 0 ddrive db 'a' DriveType dd 0 Tot_clust dd 0 Free_clust dd 0 BytesPSect dd 0 SectPClust dd 0 vol_filenames equ 16 vol_filename db vol_filenames dup(0) vol_filesys dd 0 vol_Maxfilelen dd 0 vol_serial dd 0 vol_Names equ 16 vol_Name db vol_Names dup(0) net_Names dd 32 net_Name db 32 dup(0) numbuff db 64 dup(0) TypeTab dd offset nullst dd offset nullst dd offset TypeID2 dd offset TypeID3 dd offset TypeID4 dd offset TypeID5 dd offset TypeID6 TypeID2 db ' (Removable)', 0,0,0,0 TypeID3 db ' (Fixed)', 0,0,0,0,0,0,0,0 TypeID4 db ' (Network)', 0,0,0,0,0,0 TypeID5 db ' (CD-ROM)', 0,0,0,0,0,0,0 TypeID6 db ' (RamDisk)', 0,0,0,0,0,0 nullst db 16 dup(0) .CODE main: mov eax, offset jjj call GetModuleHandle, NULL mov hInst, eax call DialogBoxParamA, hInst, IDD_DIALOG1, 0, offset DlgProc, 0 call ExitProcess DlgProc PROC hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD mov eax, wmsg cmp ax, WM_DESTROY je wmdestroy cmp ax, WM_CLOSE je wmdestroy cmp ax, WM_COMMAND je wmcommand cmp ax, WM_INITDIALOG je initdlg cmp ax, WM_PAINT je paint xor eax,eax ret wmdestroy: call EndDialog, hwnd, 0 call ExitProcess ret wmcommand: cmp wparam, IDEXIT je wmdestroy cmp wparam, IDINC jne noinc call GetDlgItem, hwnd, IDDEC call EnableWindow, eax, true ; Enable DEC Button mov al, byte ptr [offset cdrive] mov byte ptr [offset ddrive], al lb_1: inc byte ptr [offset cdrive] cmp byte ptr [offset cdrive], 'z' jbe notou1 mov al, byte ptr [offset ddrive] mov byte ptr [offset cdrive], al call GetDlgItem, hwnd, IDINC call EnableWindow, eax, false ret notou1: call GetDriveTypeA, offset cdrive cmp eax, 1 jbe lb_1 call GetDriveI, hwnd ret noinc: cmp wparam, IDDEC jne nodec call GetDlgItem, hwnd, IDINC call EnableWindow, eax, true mov al, byte ptr [offset cdrive] mov byte ptr [offset ddrive], al lb_2: dec byte ptr [offset cdrive] cmp byte ptr [offset cdrive], 'a' jae notou2 mov al, byte ptr [offset ddrive] mov byte ptr [offset cdrive], al call GetDlgItem, hwnd, IDDEC call EnableWindow, eax, false ret notou2: call GetDriveTypeA, offset cdrive cmp eax, 1 jbe lb_2 call GetDriveI, hwnd ret nodec: cmp wparam, IDM_ABO jne nohlp call GetModuleHandle, NULL call DialogBoxParamA, eax, IDD_DIALOG2, hwnd, offset DlgProc2, 0 nohlp: cmp wparam, IDM_EXIT jne noext jmp wmdestroy noext: xor eax, eax ret initdlg: call GetWindowRect, hwnd, offset rect call GetDesktopWindow call GetWindowRect, eax, offset DesktopRect mov eax, rect.rcBottom sub eax, rect.rcTop mov DlgHeight, eax mov eax, rect.rcRight sub eax, rect.rcLeft mov DlgWidth, eax mov ebx, DesktopRect.rcBottom sub ebx, DlgHeight shr ebx, 1 mov ecx, DesktopRect.rcRight sub ecx, DlgWidth shr ecx, 1 call MoveWindow, hwnd, ecx, ebx, DlgWidth, DlgHeight, 0 call GetDriveI, hwnd ret paint: call BeginPaint, hwnd, offset pnt call EndPaint, hwnd, offset pnt ret DlgProc endp DlgProc2 PROC hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD mov eax, wmsg cmp ax, WM_DESTROY je wmdestroy2 cmp ax, WM_CLOSE je wmdestroy2 cmp ax, WM_COMMAND je wmcommand2 cmp ax, WM_INITDIALOG je initdlg2 cmp ax, WM_PAINT je paint2 xor eax,eax ret wmdestroy2: call EndDialog, hwnd, 0 ret paint2: call BeginPaint, hwnd, offset pnt call EndPaint, hwnd, offset pnt ret initdlg2: call GetWindowRect, hwnd, offset rect call GetDesktopWindow call GetWindowRect, eax, offset DesktopRect mov eax, rect.rcBottom sub eax, rect.rcTop mov DlgHeight, eax mov eax, rect.rcRight sub eax, rect.rcLeft mov DlgWidth, eax mov ebx, DesktopRect.rcBottom sub ebx, DlgHeight shr ebx, 1 mov ecx, DesktopRect.rcRight sub ecx, DlgWidth shr ecx, 1 call MoveWindow, hwnd, ecx, ebx, DlgWidth, DlgHeight, 0 ret wmcommand2: cmp wparam, IDOK jne nook jmp wmdestroy2 nook: ret DlgProc2 endp GetDriveI proc hDlg:dword call SetDlgItemTextA, hDlg, IDC_EDIT1, offset cdrive call GetDriveTypeA, offset cdrive cmp eax, 1 jbe notva mov DriveType, eax call jprintf, offset numbuff, offset fmat1, DriveType mov esi, offset numbuff fend1: lodsb or al, al jnz fend1 dec esi ; Overwrite 0 mov edi, esi ; edi -> mov esi, DriveType cmp esi, 6 ja nocand mov esi, dword ptr [offset TypeTab + esi*4] mov ecx, 16 rep movsb mov eax, true cmp DriveType, 4 je isnetw mov eax, false isnetw: push eax call GetDlgItem, hwnd, IDC_TEXT12 push eax call EnableWindow nocand: call SetDlgItemTextA, hDlg, IDC_EDIT8, offset numbuff push offset Tot_clust push offset Free_clust push offset BytesPSect push offset SectPClust push offset cdrive call GetDiskFreeSpaceA call jprintf, offset numbuff, offset fmat1, SectPClust call SetDlgItemTextA, hDlg, IDC_EDIT2, offset numbuff call jprintf, offset numbuff, offset fmat1, BytesPSect call SetDlgItemTextA, hDlg, IDC_EDIT3, offset numbuff call jprintf, offset numbuff, offset fmat1, Free_clust call SetDlgItemTextA, hDlg, IDC_EDIT4, offset numbuff call jprintf, offset numbuff, offset fmat1, Tot_clust call SetDlgItemTextA, hDlg, IDC_EDIT5, offset numbuff jjj: mov eax, Tot_clust cdq imul SectPClust imul BytesPSect call PutBytes call SetDlgItemTextA, hDlg, IDC_EDIT13, offset numbuff mov eax, Free_clust cdq imul SectPClust imul BytesPSect call PutBytes call SetDlgItemTextA, hDlg, IDC_EDIT14, offset numbuff push vol_filenames push offset vol_filename push offset vol_filesys push offset vol_Maxfilelen push offset vol_serial push vol_Names push offset vol_Name push offset cdrive call GetVolumeInformationA call jprintf, offset numbuff, offset fmat1, vol_Maxfilelen call SetDlgItemTextA, hDlg, IDC_EDIT6, offset numbuff call jprintf, offset numbuff, offset fmat2, vol_filesys call SetDlgItemTextA, hDlg, IDC_EDIT7, offset numbuff call jprintf, offset numbuff, offset fmat2, vol_serial call SetDlgItemTextA, hDlg, IDC_EDIT10, offset numbuff call SetDlgItemTextA, hDlg, IDC_EDIT11, offset vol_filename call SetDlgItemTextA, hDlg, IDC_EDIT9, offset vol_Name push offset net_Names push offset net_Name push 1 push offset cdrive call WNetGetUniversalNameA mov esi, dword ptr [offset net_Name] or esi, esi jnz nonet1 mov esi, offset nullst nonet1: call SetDlgItemTextA, hDlg, IDC_EDIT12, esi notva: ret GetDriveI endp PutBytes proc or edx, edx jnz isbig3 ; If > 4Gig cmp eax, 1024 ; > 1k? jae isbig1 call jprintf, offset numbuff, offset fmat1, eax ret isbig1: cmp eax, 1024*1024 jae isbig2 mov si, 'bK' dok: mov ecx, 1024 mov ebx, 1000 idiv ecx mov ecx, eax mov eax, edx cdq imul ebx mov ebx, 1024 idiv ebx push esi push eax call jprintf, offset numbuff, offset fmat1, ecx pop eax call fendnum mov byte ptr [edi], '.' inc edi cmp eax, 100 jae okl1 mov byte ptr [edi], '0' inc edi cmp eax, 10 jae okl1 mov byte ptr [edi], '0' inc edi okl1: call jprintf, edi, offset fmat1, eax call fendnum pop esi mov byte ptr [edi], ' ' mov word ptr [edi + 1], si mov byte ptr [edi + 3], 0 ret isbig2: cmp eax, 1024*1024*1024 jae isbig3 mov ecx, 1024 idiv ecx cdq mov si, 'bM' jmp dok isbig3: mov ecx, 1024 * 1024 idiv ecx cdq mov si, 'bG' jmp dok PutBytes endp fendnum proc mov edi, offset numbuff lopfs: cmp byte ptr [edi], 0 je fouio inc edi jmp lopfs fouio: ret fendnum endp jprintf proc p1:dword, p2:dword, p3:dword push p3 push p2 push p1 call _wsprintfA add esp, 12 ret jprintf endp ends end main За доп информацией пишите пожалуйста на mirimas@mail.ru

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Mirimas! Держите текст с комментариями в прикрепленном файле либо читайте в мини-форуме Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Удачи!

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

Вопрос № 136.512

Здравствуйте,эксперты! Не могу справиться с заданием. Так как только начала заниматься ассемблером. Задача состоит в следующем,необходимо написать программу,которая переводит файл формата BMP в файл формата PCX. Прочитала про эти форматы,но не приложу ума как это сделать на ассемблере. Помогите пожалуйста. В приложение добавлено уточнение из вопроса № 136513. ----- ∙ Отредактировал: Зенченко Константин Николаевич (Профессионал) ∙ Дата редактирования: 12.05.2008, 18:45 Приложение: Забыла сказать что преобразование файлов из BMP в PCX нужно осуществлять как 256-цветов на точку

Отправлен: 12.05.2008, 18:05 Вопрос задала: Эльвира Волшебница (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Эльвира Волшебница! А вам ник olla-la не знаком? http://forum.developing.ru/showthread.php?t=13607 Программа большая получается 350 строк.

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 12.05.2008, 22:00

Вопрос № 136.701

Здравствуйте уважаемые эксперты! Такой вопрос. Я так понимаю в биосе хранится текущая дата. Как считать текущий день недели и вывести на экран в виде, например ПОНЕДЕЛЬНИК? Заранее благодарен.

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

Отвечает: Airyashov Здравствуйте, Lammer! Если Вас интересует именно BIOS, это 6 регистр CMOS mov al,06h out 70h,al in al,71h al-текущий день недели. 1-Воскресенье

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 13.05.2008, 22:35 Оценка за ответ: 5 Комментарий оценки: Спасибо. Буду знать.

Вопрос № 136.808

Добрый день! подскажите, пожалуйста, как запомнить содержимое текущего экрана в буфер? //заранее спасибо

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Redline! В ДОС-е, в текстовом режиме 80х25. Сегмент = 0B800h Смещение = номер страницы (обычно 0) * 1000h Длина 25*80*2 = 4000 байт (чуть меньше 4096=1000h) (На символ по 2 байта: сам символ + атрибут) Если число строк/столбцов отличается, то необходимо подправить соответственно размер страницы. Например, если будет 80х50, то Смещение = номер страницы (обычно 0) * 2000h Длина 50*80*2 = 8000 байт --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 14.05.2008, 16:07 Оценка за ответ: 5

Вопрос № 136.869

Здравствуйте! Подскажите, пожалуйста, как сделать здесь, чтобы программа выводила кол-во символов в строке. Спасибо! Приложение: Cseg segment assume cs:cseg,ss:cseg,ds:cseg,es:cseg org 100h begin: mov ax,3 int 10h xor bx,bx ; Очистка bx mov cx,256h lea di,message ; В di адрес нашей строки mov si,di ; В si тоже продублируем нашу строку mov al,'$' ; В al конец строки repne scasb ; Читаем символ строки dec di ; Увеличиваем di sub di,si ; DI:=di-si mov cx,di ; В cx результат di lea si,message ; В si адрес строки again: lodsb mov dl,al mov ah,2 int 21h inc bl loop again mov ah,10h int 16h int 20h message db 'Ассемблер!$' cseg ends end begin

Отправлен: 14.05.2008, 23:26 Вопрос задала: Alena De Lon (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Airyashov Здравствуйте, Alena De Lon! добавте в соответствующее место в вашей программе loop again mov ah,0 mov al,bl mov dh,10 div dh add ax,3030h;число в символ mov dh,ah mov dl,al mov ah,2 int 21h mov dl,dh int 21h mov ah,10h

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 14.05.2008, 23:57 Оценка за ответ: 5 Комментарий оценки: Спасибо!:-)

Вопрос № 136.870

Здравствуйте эксперты! в универе по ассемблеру задали следующие задание: проанализировать содержимое PSP от 00h до 16h и вывести содержимое на экран с пояснениями. Помогите пожалуйста с написанием. заранее спасибо.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Funtik! Программа в приложении. Вопросы задавайте в мини-форум. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в текстовый режим start: mov ax,03 int 10h ;выводим сообщение mov ah,9 mov dx,offset dbEnter int 21h ;вводим строку mov ah,0ah mov dx,offset dbMaxName int 21h ;готовимся открывать файл, записываем после имени файла 0 mov al,dbSizeName xor ah,ah mov dx,offset dbInfoFile push dx pop bx add bx,ax mov byte ptr[bx],0 ;открываем файл для читения mov ax,3d20h xor cx,cx int 21h ;проверяем ошибку открытия файла jnc noErrorOpen mov dx,offset dbErrorOpen jmp short outMessage ;запоминаем указатель на файл и читаем 22 байта noErrorOpen: mov dwFileHndl,ax mov bx,ax mov dx,offset dbInfoFile mov cx,16h mov ah,3fh int 21h ;запоминаем флаг и закрываем файл pushf mov ah,3eh mov bx,dwFileHndl int 21 ;востанавливаем флаг и проверяем ошибку чтения данных popf jnc noErrorLoad mov dx,offset dbErrorLoad jmp short outMessage ;настраиваемся на вывод информации noErrorLoad: mov si,offset dbInfoFile mov di,offset dbPriznak ;читаем и записываем признак ехе-файла lodsw stosw ;настраиваемся на таблицу указателей mov bx,offset dwTable mov cx,szTable shr cx,1 ;цикл записи информации loop_A: xchg si,bx ;читаем из таблицы адрес куда будем записывать lodsw mov di,ax xchg si,bx ;читаем записываемое значение lodsw ;настраиваемся на вывод в 16-ой системе push cx mov cx,4 ;записываем в цикле число в 16-ой системе loop_B: rol ax,4 push ax and al,0fh or al,30h cmp al,3Ah ;если буква корректируем код jl noHext add al,07 ;записываем в память noHext: stosb pop ax loop loop_B ;повторяем для всех прочитанных данных pop cx loop loop_A mov dx,offset dbOutInfo ;выводим сообщение outMessage: mov ah,09 int 21h ;ожидаем любую клавишу и выходим xor ax,ax int 16h ret ; dwFileHndl dw ? dbMaxName db 16 dbSizeName db ? dbInfoFile db 16h dup(?) ;Таблица указателей на записываемую информацию в тексте dwTable dw offset dbMod512 dw offset dbDiv512 dw offset dbCount dw offset dbHead dw offset dbMin dw offset dbMax dw offset dbStack dw offset dbSPEnter dw offset dbCheck dw offset dbIPEnter dw offset dbCSDelta szTable equ $-dwTable ; dbOutInfo db 13,10,'Признак ЕХЕ-файла:' dbPriznak dw ? db 13,10,'Длина файла(mod 512):' dbMod512 db ?,?,?,? db 13,10,'Размер в страницах(div 512)):' dbDiv512 db ?,?,?,? db 13,10,'Число элементов таблицы настройки:' dbCount db ?,?,?,? db 13,10,'Размер заголовка в параграфах(16):' dbHead db ?,?,?,? db 13,10,'Минимальное число параграфов:' dbMin db ?,?,?,? db 13,10,'Максимальное число параграфов:' dbMax db ?,?,?,? db 13,10,'Смещение сегмента стека:' dbStack db ?,?,?,? db 13,10,'Содержимое регистра SP:' dbSPEnter db ?,?,?,? db 13,10,'Контрольная сумма:' dbCheck db ?,?,?,? db 13,10,'Содержимое регистра IP:' dbIPEnter db ?,?,?,? db 13,10,'Смещение сегмента кода:' dbCSDelta db ?,?,?,? db 13,10,'Нажмите любую клавишу:$' dbErrorOpen db 13,10,'Error:ошибка открытия файла$' dbErrorLoad db 13,10,'Error:ошибка чтения файла$' dbEnter db 13,10,'Введите имя ЕХЕ-файла(имя.ехе):$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 136.921

Здавствуйте может быть вы сможете мне помоч. Срочно необходима программа на Ассемблере которая вводит 10 символов из стандартного потока ввода и выводит их (эхо) в стандартный поток вывода (каждый символ появляется на экране дважды... В ассемблере я полный чайник...может хоть сдесь мне смогут помочь Спасибо заранее

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sergey Kuzhel ! Держите свою программу под TASM Выход по ESC .model tiny .code .startup main_loop: mov ah,1 int 21h ;ждем нажатие с выводом введенного символа cmp al,1bh ;проверим на ESC je exit mov dl,al mov ah,2 int 21h ;выведем введенный символ еще раз jmp main_loop exit: mov ax,4c00h int 21h end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 15.05.2008, 12:13 Оценка за ответ: 5 Комментарий оценки: Супер, я даже не ожидал что ответят так быстро да еще и бесплатно...видно что работают настоящие професионалы

Вопрос № 136.933

Здравствуйте! Не совсем уверен туда ли я написал, если не туда скажите куда можно обратиться. Вопрос в следуещем: на асмовской вставке(в паскале) нужно ввести два числа, причем чтоб учитывался только знак или число(никаких других символов), потом сложить эти два числа и вывести рез-тат на экран уже в виде цифр(а не символов), пользоваться нужно 03h функцией 21го прерывания(ввод без эхо). Если можете помогите пожалуйста. Заранее благодарен.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Coperfild! Смотрите приложение. ps:функция 03Н прерывания 21Н(Дополнительный ввод) Int 21/AH=03h DOS 1+ - READ CHARACTER FROM STDAUX AH = 03h Return:AL = character read Notes: Keyboard checked for ^C / ^Break, and INT 23 executed if detected. STDAUX is usually the first serial port Переводя на русский, чтение символа из первого последовательного порта(СОМ1). Удачи! Приложение: begin asm {запоминаем и устанавливаем новый сегмент стека} push ds push cs pop ds {вводим первое число и запоминаем его в стеке} call @@000 push si {вводим второе число и востанавливаем первое} call @@000 pop ax {складываем оба числа} add ax,si {выводим результат} call @@006 jmp @@999 {под программа ввода числа} @000:{выводим сообщение} mov ah,9 mov dx,offset @@998 int 21h {в этих регистрах будет хранится число и знак} xor si,si xor di,di @001:{вводим символ без эхо} mov ah,08 int 21h {если нажата клавиша ENTER, то ввод числа закончен} cmp al,13 jz @@004 {нажата клавиша минус} cmp al,'-' jz @@003 {проверяем диапозон цифровых клавиш} cmp al,'0' jb @@001 cmp al,'9' ja @@001 {это цифра} push ax {запоминаем символ} and ax,0fh{переводим в цифру} xchg ax,si {обмениваем регистры} mov bx,10 {будем умножать на 10} xor dx,dx mul bx {умножаем} add si,ax {суммируем последнюю цифру и ранее введенное число} pop ax {востанавливаем символ} @002:{выводим символ} int 29h jmp @@001 @003:{нажат минус} or si,si {проверяем введенное число} jnz @@001 mov di,ax {запоминаем минус и выводим его} jmp @@002 @004:{проверяем знак минус} or di,di jz @@005 not si {переводим его в доп.код} inc si @005:{выход из подпрограммы} ret @006:{запоминаем выводимое число} push ax {выводим сообщение о результате} mov ah,9 mov dx,offset @@997 int 21h {востанавливаем выводимое число} pop ax {проверяем знак} or ax,ax jns @@007 push ax {был минус выводим его} mov al,'-' int 29h pop ax {переводим в абсолютное значение} dec ax not ax @007:{будем делить на 10 и считать цифры} mov di,10 xor cx,cx @008:{делим} xor dx,dx div di push dx{запоминаем в стеке и считаем их количество} inc cx or ax,ax{продолжаем пока число не равно нулю} jnz @@008 @009:{востанавливаем из стека цифру, переводим в символ и выводим его} pop ax or al,30h int 29h loop @@009 ret {выводимые сообщение} @997: db 13,10,'Result:$' @998: db 13,10,'Enterg Number:$' @999:{востанавливаем сегмент данных} pop ds {ожидаем любую клавишу} xor ax,ax int 16h end; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 136.950

Ув. эксперты, помогите пожалуйста. Напишите программу, которая вводит символы с клавиатуры в массив длиной 80 символов. Программа должна перевернуть каждое из слов находящихся этого массива (и разделенных пробелами) в самом массиве (т. е. не использовать дополнительный массив) Например: ввод: I am a student вывод: I ma a tneduts

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sbuber! Программа под TASM в приложении Приложение: .model tiny .data ;Сообщения prompt db 'Enter string: $' result db 0dh,0ah,'Result: $' press db 0dh,0ah,0ah,'Press any key$' ;Буфер для ф-и 0ah max db 80 ;Максимальное число символов len db 0 ;Здесь потом будет количество реально введенных buf db 80 dup (0) ;Сама строка .code .startup lea dx,prompt mov ah,9 int 21h ;Приглашающее сообщение lea dx,max mov ah,0ah int 21h ;Вводим строку lea si,buf ;Адрес строки mov di,si ;По этому адресу будем писать перевернутые слова xor cx,cx ;Счетчик букв main_loop: ;Цикл анализа символов веденной строки lodsb ;Очередной символ cmp al,0dh ;Этот код завершает строку je tail ;проанализируем cmp al,' ' ;пробел? je inverse ;на анализ push ax ;все остальные коды сохраняем в стеке! inc cx ;Увеличиваем счетчик jmp main_loop ;Повторяем inverse: ;Очередной символ - пробел test cx,cx ;пробел сразу за словом? jnz inverse_loop ;Да, есть символы слова в стеке mov di,si ;Для последующих пробелов корректируем адрес записи ; (в строке ничего не делаем) jmp main_loop ;На продолжение inverse_loop: ;Цикл инверсии слова pop ax ;Восстанавливаем символ из стека stosb ;Пишем по адресу [di] loop inverse_loop ;Повторяем cx раз mov al,' ' ;Добавляем пробел stosb jmp main_loop ;На продолжение tail: ;Встретился код 0dh jcxz finish ;Есть предыдущие пробелы? last_inverse_loop: ;Нет, надо перевернуть последнее слово pop ax ;Аналогично... stosb loop last_inverse_loop finish: ;Завершаем коррекцию строки mov byte ptr [di],'$' ;записью кода '$'(необходимо для 9-й ф-и) lea dx,result mov ah,9 int 21h ;Выводим 'Result:' lea dx,buf mov ah,9 int 21h ;Строка lea dx,press mov ah,9 int 21h ;Press any key mov ah,0 int 16h ;Ждем нажатие на клавишу mov ax,4c00h int 21h ;Выходим в ДОС end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 15.05.2008, 15:38

Вопрос № 136.951

Ув. эксперты, пожалуйста, напишите программу, вводящую матрицу размером 5*5. Программа должна посчитать сумму чисел каждой строки и столбца. Все числа матрицы должны быть двухзначными и десятичными (от 00 и до 99 ). Ввод чисел в матрицу должен быть построчным (строка за строкой). Вывод должен содержать эту же матрицу , но в конце каждой строки должна выводиться сумма всех чисел этой строки, а в конце каждого столбца – сумма всех чисел этого столбца.

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sbuber! Программа под TASM в приложении Приложение: .model tiny .data prompt db 'Enter array:',0dh,0ah,'$' result db 0dh,0ah,'Result:',0dh,0ah,'$' err_mes db 0dh,0ah,'***** Error *****$' array db 5*5 dup (0) max db 80 len db 0 buf db 80 dup (?) .code .startup lea dx,prompt mov ah,9 int 21h ;подсказка lea di,array ;адрес, где сохраним числа mov bl,10 ;константа для преобразования строки в число mov cx,5 ;вводим 5 строк rows_loop: ;цикл по строкам push cx ;сохраним счетчик строк lea dx,max ;адрес буфера для ввода данных с клавиатуры mov ah,0ah int 21h ;вводим всю строку сразу ;анализируем после ввода по Enter lea si,buf ;адрес строки mov cx,5 ;в строке 5 чисел nums_loop: ;цикл по числам в строке mov bh,0 ;здесь будем накапливать значение числа push cx ;сохраним счетчик чисел в строке mov cx,2 ;ждем 2 цифры num_loop: ;цикл по 2 цифрам числа lodsb ;читаем очередную символ цифры cmp al,' ' ;пробел ? jne cmp_0dh ;нет, идем дальше cmp cx,2 ;да, было ли что-то уже введено (ввели только одну цифру!)? je num_loop ;нет, пропускаем пробелы error: ;по любой ошибке lea dx,err_mes ; выводим сообщение mov ah,9 ; и завершаем работу int 21h ; надо очень аккуратно вводить числа... jmp finish cmp_0dh: ;продолжаем анализ cmp al,0dh ;встретили конец строки - мало ввели чисел! je error ; ошибка! cmp al,'0' ;проверим на корректность символов... jb error ;должны быть цифры! cmp al,'9' ja error sub al,'0' ;символ превращаем в число xchg al,bh ;поменяем местами было предыдущее значение числа и новый разряд mul bl ;умножим то, что было, на 10 add bh,al ;и добавим к номому разряду, результат в bh cmp bh,99 ;проверим на величину > 99 ja error ;ошибка! loop num_loop ;циклим по цифрам числа cmp byte ptr [si],' ' ;длина числа - ровно 2 цифры! je num_next ;если за числом пробел, то все ок cmp byte ptr [si],0dh ;или конец строки... jne error ;все остальное (число из > 2 цифр) - ошибка! num_next: ;очередное число сконвертировано mov [di],bh ;сохраним его inc di pop cx ;восстановим счетчик чисел loop nums_loop ;циклим по числам строки mov dl,0dh ;После обработки очередной строки mov ah,2 ;перейдем на следующую строку int 21h mov dl,0ah mov ah,2 int 21h pop cx ;восстановим счетчик строк loop rows_loop ;на запрос очередной строки lea dx,result ;выводим на экран строку 'Result' mov ah,9 int 21h ;Массив сформирован ;сейчас будем выводить и одновременно считать суммы строк lea si,array ;адрес массива mov cx,5 ;число строк r_loop: ;чикл по строкам push cx ;сохраним число строк mov cx,5 ;число колонок в строке xor bx,bx ;эдесь будем накапливать сумму в строке lea di,buf ;буфер для формирования выводимой строки c_loop: ;цикл по колонкам mov al,' ' ;нарисуем пробел чтобы выровнять с суммой в колонке (которая может быть >= 100 - 3 знака!) stosb lodsb ;очередное число mov ah,0 ;сделаем из байта слово add bx,ax ;сложим с суммой aam ;"хитрая" команда, с ее помощью сделаем из байта десятичные десятки и единицы xchg al,ah ;только надо поменять местами add ax,3030h ;превратим числа в символы stosw ;сохраним mov al,' ' ;отделим пробелом stosb loop c_loop ;на следующее число в строке mov ax,bx ;найденная сумма call form_sum_str ;преобразуем в строку цифр mov ax,0a0dh ;переход на следующую строку на экране stosw mov al,'$' ;конец строки для ф-и 9 stosb lea dx,buf ;адрес нашего буфера mov ah,9 int 21h ;выводим на экран pop cx ;восстанавливаем счетчик строк loop r_loop ;на вывод следующей строки ;посчитаем и выведем суммы в колонках lea di,buf ;адрес массива xor si,si ;индекс для адресации колонки строке mov cx,5 ;число колонок cols_loop: ;цикл по колонкам xor ax,ax ;нам важно, чтобы ah=0 для работы со словами mov bx,ax ;база для адресации очередной строки mov dx,ax ;здесь будем накапливать сумму в колонке push cx ;сохраним счетчик колонок mov cx,5 ;число строк col_sum: ;по всем строкам для выбранной колонки mov al,array[bx+si] ;получаем очередное значение add dx,ax ;складываем add bx,5 ;база следующей строки loop col_sum ;на следующую строку mov ax,dx ;найденная сумма call form_sum_str ;преобразуем в строку mov al,' ' ;отделим пробелом stosb inc si ;индекс следующей колонки pop cx ;восстановим счетчик колонок loop cols_loop ;на следующую колонку mov ax,0a0dh ;переход на следующую строку на экране stosw mov al,'$' ;конец строки stosb lea dx,buf ;выведем mov ah,9 int 21h finish: mov ah,0 ;ждем нажатия на клавишу int 16h mov ax,4c00h ;выход в ДОС int 21h form_sum_str proc ;преобразование числа в AX в строку из трех десятичных цифр mov bl,10 div bl ;сначала отделим еденицы, от десятков+сотен or ah,30h ;единицы - остаток от деления на 10 mov [di+2],ah ;запишем на место для единиц aam ;оставшиеся две цифры получим, как выше xchg al,ah add ax,3030h stosw inc di ;обойдем символ единиц ret form_sum_str endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 15.05.2008, 18:17

Вопрос № 136.959

Ув. эксперты, напишите, пожалуйста, программу, которая умножает "word" на "byte" с помощью операторов сдвига. Для вывода нужно использовать умножение 65535 на 255 в шестнадцатеричной и десятичной системе. Программа должна рассматривать числа как беззнаковые. Вывод должен выглядить так: FFFF * FF = 65535 * 255 =

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sbuber! Программа в приложении. Приложение: .model tiny,C .data w dw 0ffffh b db 0ffh r db 3 dup (0) ;т.к.умножаем слово на байт, то для ответа достаточно 2+1=3 байта .code .386 .startup mov al,b ;чтобы в стек отправить 2 байта call MulWordByte,w,ax,offset r ;умножим, в r будет ответ ;выводит результат mov ax,w ;слово w в hex call PrintWordHex mov ah,2 mov dl,' ' int 21h mov dl,'*' ;разделители int 21h mov dl,' ' int 21h mov al,b ;байт в hex call PrintByteHex mov ah,2 mov dl,' ' int 21h mov dl,'=' ;разделители int 21h mov dl,' ' int 21h mov al,r+2 ;сначала выведем старший байт результата call PrintByteHex mov ax,word ptr r ;затем два младших как слово call PrintWordHex mov ah,2 mov dl,0dh ;на новую строку int 21h mov dl,0ah int 21h call PrintWord, offset w ;выведем слово в десятичном виде mov ah,2 mov dl,' ' int 21h mov dl,'*' int 21h mov dl,' ' int 21h call PrintByte, offset b ;выведем бай в десятичном виде mov ah,2 mov dl,' ' int 21h mov dl,'=' int 21h mov dl,' ' int 21h call Print3Bytes,offset r ;выведем результат в десятичном виде mov ax,4c00h ;выход int 21h PrintWordHex proc ;слово в hex push ax ;сохраним al в стеке mov al,ah ;выведем старший байт call PrintByteHex pop ax ;восстановим младший PrintByteHex proc ;выводим байт в hex push ax ;сохраним младшую тетраду shr al,4 ;старшая тетрада 00-0f call PrintHexDigit ;выводим hex цифру pop ax ;восстановим младшую тетраду and al,0fh ;выделим PrintHexDigit proc ;выводим hex цифру add al,90h ;последующие 4 команды преобразовывают daa ;число 00-0f в символы '0'-'9','A'-'F' adc al,040h daa mov dl,al ;выводим mov ah,2 int 21h ret PrintHexDigit endp PrintByteHex endp PrintWordHex endp ;Для преобразования использую 32-битные регистры, так проще... ;Если нужны обязательно только 16-битные - придется переделать... PrintByte proc, pData:WORD ;выводим десятичное число - байт mov bx,pData ;bx - адрес байта movzx eax,byte ptr[bx] ;eax - число jmp PW_number ;на вывод PrintWord proc, pData:WORD ;выводим десятичное число - слово mov bx,pData ;bx - адрес слова movzx eax,word ptr[bx] ;eax - число jmp PW_number ;на вывод Print3Bytes proc, pData:WORD ;выводим десятичное число - 3 байта mov bx,pData ;bx - адрес 3 байт mov eax,dword ptr[bx] and eax,0ffffffh ;eax - число PW_number: ;конвертация число из eax в числовую последовательность mov ebx,10 ;будем делить на 10 xor cx,cx ;счетчик цифр PW_loop: ;цикл нахождения очередной цифры xor edx,edx ;подготавливаемся к делению div ebx ;в EDX остаток - очередная цифра (от младшего разряда к старшему) push dx ;сохраним в стеке! inc cx ;и посчитаем test eax,eax ;дошли до конца? jnz PW_loop ;еще есть... PW_print: ;выводим полученные цифры pop dx ;извлекаем из стека очередную цифру (от старшего разряда к младшему) or dl,'0' ;делаем из числа символ mov ah,2 ;выводим int 21h loop PW_print ;повторяем ret Print3Bytes endp PrintWord endp PrintByte endp MulWordByte proc, ww:word,bb:byte,p3bytes:word ;умножение сдвигами mov bx,p3bytes ;адрес, куда писать результат mov word ptr [bx],0 ;обнулим mov byte ptr [bx+2],0 mov ax,ww ;очередное слагаемое будет в регистрах dh:ax mov dl,bb ;биты dl будут нам указывать, складывать очередное слагаемое или нет mov dh,0 mov cx,8 ;анализируем 8 бит dl shift_loop: shr dl,1 ;сдвигаем очередной бит в C jnc shift_next ;если ноль, то не прибавляем add [bx],ax ;добавляем adc [bx+2],dh shift_next: ;формируем очередное слагаемое rcl ax,1 ;сдвигом на 1 бит rcl dh,1 ;всех 3 байтов! loop shift_loop ;циклим по битам dl ret MulWordByte endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 16.05.2008, 18:08

Вопрос № 137.014

Здравствуйте, уважаемые эксперты. Помогите пожалуйста написать программу на Ассемблере для МК51 (у нас используется программа Keil uvision 3 версии) , складывающую и умножающую числа, представленные в системе счисления с основанием 5.

Отправлен: 15.05.2008, 23:04 Вопрос задал: LordId (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лысков Игорь Витальевич Здравствуйте, LordId! В приложении необходимые подпрограммы. Сделаны следующие допущения: 1)Числа в упакованном виде: в стандарте intel - младший лежит по меньшему адресу, в байте - младший разряд в младших битах. 2)В работе используется первый банк регистров. PS Не проверял, Keil-а у меня нет, но вроде должно работать... По крайней мере, идея точно работоспособная :) Удачи! Приложение: ;Зададим три бита для управления разрядами b_ev_1 bit 20h.0 ;бит определения полубайта в байте 1 операнда (0-младший) b_ev_2 bit 20h.1 ;-//- 2 операнда b_ev_3 bit 20h.2 ;-//- результата text segment code rseg text ;r0 - адрес первого упакованного числа (2 байта) ;r1 - адрес второго упакованного числа (2 байта) ;r7 - адрес результата (2 байта) ;используются регистры первого банка ;на выходе C=1 - переполнение add55: mov r3,#4 ;длина чисел - 4 разряда clr c ;сбросим C anl 20h,#0f8h ;сбросим биты разрядов, начинаем с младших next: call getn1 ;получаем очередной разряд первого операнда (00h-04h) mov b,a ;сохраним в b call getn2 ;получаем очередной разряд второго операнда (00h-04h) add a,b ;сложим с учетом бита переноса cjne a,#5,cmp_5 ;сравним с 5 jmp sub_5 ;равно, идем на >= 5 cmp_5: jc set_val ;<5 - просто сохраняем sub_5: clr C ;>=5 - сбросим бит переноса subb A,#5 ;отнимаем 5 setb c ;и взведем перенос для последующей операции set_val:mov b,a ;п/п требует значение в b call setn ;сохраним результат djnz r3,next ;зацикливаем ret ;умножаем в столбик ;r2 - адрес первого упакованного числа (2 байта) ;r3 - адрес второго упакованного числа (2 байта) ;r4 - адрес результата (4 байта) ;используются и портятся все регистры первого банка + b mul55: mov r5,#4 ;повторяем 4 раза (по каждому разряду второго операнда) anl 20h,#0f8h ;сбросим биты разрядов, начинаем с младших mnext1: mov r0,2 ;стартовый адрес первого байта первого операнда mov r1,3 ;стартовый адрес первого байта второго операнда mov r7,4 ;стартовый адрес первого байта результата mov r4,#0 ;перенос mov r6,#4 ;повторяем 4 раза (по каждому разряду первого операнда) mnext2: call getn1 ;получаем очередной разряд первого операнда (00h-04h) mov b,a ;сохраним в b call getn2 ;получаем очередной разряд второго операнда (00h-04h) mul ab ;умножим clr c add a,r4 ;учтем перенос с предыдущей операции mov b,#5 ;вычислим новый перенос div ab ;в b имеем очередной разряд mov r4,a ;в а - перенос call setn ;сохраним очередной разряд из b djnz r6,mnext2 ;умножаем разряд 2 операнда на каждый разряд 1 операнда cpl b_ev_2 ;сдвигаем на один разряд операнд 2 jb b_ev_2,set_3 ;или указываем на старший полубайт в том же байте inc r4 ;либо сдвигаем на один байт set_3: cpl b_ev_3 ;сдвигаем на один разряд результат jb b_ev_3,to_loop ;или указываем на старший полубайт в том же байте inc r3 ;либо сдвигаем на один байт to_loop:djnz r5,mnext1 ;циклим по разрядам 2 операнда ret ;читаем очередной разряд 1 операнда getn1: mov a,@r0 ;читаем пару разрядов jnb b_ev_1,clr_hi1 ;если нужен младший полубайт, то идем дальше inc r0 ;если старший, то инкремент адреса для последующих операций rr a ;сдвигаем на 4 бита вправо rr a rr a rr a clr_hi1:anl a,#0fh ;отсекаем старшие биты cpl b_ev_1 ;меняем признак младшего/старшего разряда ret ;читаем очередной разряд 2 операнда getn2: mov a,@r1 ;аналогично getn1 jnb b_ev_1,clr_hi2 inc r1 rr a rr a rr a rr a clr_hi2:anl a,#0fh cpl b_ev_2 ret ;записываем результат setn: push 0 ;сохраним r0 первого банка mov 0,r7 ;адрес результата в r7 mov a,b ;в b - значение jnb b_ev_3,set_bit ;какой разряд? inc r7 ;для старшено инкрементируем адрес orl a,@r0 ;объединим с младшим разрядом set_bit:mov @r0,a ;запишем cpl b_ev_3 ;меняем младший/старший разряд pop 0 ;восстановим r0 - в нем адрес первого операнда ret end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.05.2008, 13:46 Оценка за ответ: 4

Вопрос № 137.058

Здравствуйте. Не пойму в чем дело. Есть программа вывода дня недели. В нерезедентной версии работает на ура. А вот при резидентном запуске выводит на экран не дни недели а бяку. Взгляните пожалуста. Резидентный вариант в приложении. Приложение: SEG1 SEGMENT ASSUME SS: SEG1, DS : SEG1, CS :SEG1, ES :SEG1 org 100h TSR: jmp P_Init N dw 0 old_2Fh dd 0 old_09h dd 0 tabl dw pr, sn, mn, tu, wd, th, fr, sa sn db '‚®бЄаҐбҐ­мҐ$';Воскресенье и т. д. mn db 'Џ®­Ґ¤Ґ«м­ЁЄ$' tu db '‚в®а­ЁЄ$' wd db '‘। $' th db '—ҐвўҐаЈ$' fr db 'Џпв­Ёж $' sa db '‘гЎЎ®в $' ;--------------- макрос вывода строки (L - длина строки, Str - строка) ------ Text_OUT macro L, Str Local Print ; локальная метка push CX push BX mov CX, L ; присваиваем длину строки mov BX, offset Str ; адрес строки mov AH, 0Eh ; функция вывода символа Print: mov AL, CS:[BX] ; выводимый символ inc BX ; сдвиг по строке int 10h ; прерывание BIOS Loop Print ; цикл по строке pop BX pop CX endm ;-------обработка прерывания 2Fh--------------------------------- P_New_2Fh proc cmp AH, 0C8h jne M_Old2Fh cmp AL, 0 je M_Mem cmp AL, 01h je M_M_Exit_2F M_Old2Fh: jmp CS:old_2Fh M_Mem: mov AL, 0FFh iret M_M_Exit_2F: push AX push DX push DS mov AX, 2509h lds DX, CS:old_09h int 21h mov AX, 252Fh lds DX, CS:old_2fh int 21h mov ES, CS:[2Ch] mov AH, 49h int 21h push CS pop ES mov AH, 49h int 21h pop DS pop DX pop AX iret P_New_2Fh endp ;-------обработка прерывания 09h--------------------------------- P_New_09h proc push AX push SI in AL, 60h cmp AL, 15h je M_09h M_M_Exit_09h: pop SI pop AX jmp CS:old_09h M_09h: push ES mov AX, 40h mov ES, AX mov AL, ES:[17h] pop ES test AL, 0100b je M_M_Exit_09h ;-------Выводим день недели--------------------------------- push BX mov AL, 06h OUT 70h, Al in Al, 71h mov ah,0 shl ax,1 mov bx,ax Text_OUT 7, tabl[bx] mov ah, 0 int 16h pop BX jmp M_M_Exit_09h P_New_09h endp ;-------инициирующая часть--------------------------------- P_Init proc mov CL, ES:80h cmp CL, 0 jge M_Parametrs jmp M_NoParametrs M_Parametrs: xor CH, CH mov DI, 81h mov AL, '/' repnz scasb cmp byte ptr [DI], 'M' jne M_UnLoad jmp M_Install M_UnLoad: cmp byte ptr [DI], 'R' jne M_NoParametrs jmp M_UnInstall M_Install: mov AX, 0C800h int 2Fh cmp AL, 0FFh je M_Run mov AX, 352Fh int 21h mov Word Ptr CS:old_2Fh, BX mov Word Ptr CS:old_2Fh+2, ES mov AX, 252Fh mov DX, offset P_New_2Fh int 21h mov AX, 3509h int 21h mov Word Ptr old_09h, BX mov Word Ptr old_09h+2, ES mov AX, 2509h mov DX, offset P_New_09h int 21h mov AH, 09h lea DX, Message_Load int 21h mov AX, 3100h mov DX, (P_Init-TSR+10Fh)/16 int 21h M_UnInstall: mov AX, 0C800h int 2Fh cmp AL, 0FFh jne M_UnRun mov AH, 09h lea DX, Message_UnLoad int 21h mov AX, 0C801h int 2Fh jmp M_Exit M_Run: mov AH, 09h lea DX, Message_Run int 21h jmp M_Exit M_UnRun: mov AH, 09h lea DX, Message_UnRun int 21h jmp M_Exit M_NoParametrs: mov AH, 09h lea DX, Message_Info int 21h M_Exit: mov AX, 4C00h int 21h Message_Info db 10, 13, '------------------------------------------------------', 10, 13 db 10, 13, '| Term paper on computing machine system and networks |', 10, 13 db 10, 13, '| Has executed: |', 10, 13 db 10, 13, '| Student group of I-53 |', 10, 13 db 10, 13, '------------------------------------------------------', 10, 13 db 10, 13, 'Format of parameters loading resident program: tsr.com /M or /R', 10, 13 db 9, '/R - Loading TSR in memory', 10, 13 db 9, '/M - M_UnLoading TSR from memory', 10, 13, '$' Message_Run db 10, 13, 'TSR is already loaded in memory', 10, 13, '$' Message_UnRun db 10, 13, 'TSR is not loaded in memory', 10, 13, '$' Message_Load db 10, 13, 'Loading TSR in memory', 10, 13, '$' Message_UnLoad db 10, 13, 'Unloading TSR from memory', 10, 13, '$' P_Init endp SEG1 ends end TSR

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Lammer! Согласен со Стасом. Исправленная версия в приложении. Ошибки: 1)Некорректно организован вывод строки в макро Text_OUT (длины-то у всех разные!) 2)Основная ошибка - параметр при вызове макро в прерывании должен указывать на адрес из кодового сегмента! 3)Нельзя в прерывании вызывать int 16h c ah=0, в буфере еще ничего нет И из прерывания не выйдем - будем висеть! Убрать код из рассмотрения только так, как я сделал! Не ошибка, так ... 1)т.к. дни недели считаются с 1, то проще отнять 1... 2)Почему-то код оказался без конца, я взял на себя смелость завершить... Приложение: SEG1 SEGMENT ASSUME SS: SEG1, DS : SEG1, CS :SEG1, ES :SEG1 org 100h TSR: jmp P_Init N dw 0 old_2Fh dd 0 old_09h dd 0 tabl dw sn, mn, tu, wd, th, fr, sa sn db '‚®бЄаҐбҐ­мҐ$';Воскресенье и т. д. mn db 'Џ®­Ґ¤Ґ«м­ЁЄ$' tu db '‚в®а­ЁЄ$' wd db '‘। $' th db '—ҐвўҐаЈ$' fr db 'Џпв­Ёж $' sa db '‘гЎЎ®в $' ;--------------- макрос вывода строки (Str - строка) ------ Text_OUT macro Str Local Print,ex ; локальная метка push BX mov BX, Str ; адрес строки mov AH, 0Eh ; функция вывода символа Print: mov AL, CS:[BX] ; выводимый символ inc BX ; сдвиг по строке cmp al,'$' je ex int 10h ; прерывание BIOS jmp Print ; цикл по строке ex: pop BX endm ;-------обработка прерывания 2Fh--------------------------------- P_New_2Fh proc cmp AH, 0C8h jne M_Old2Fh cmp AL, 0 je M_Mem cmp AL, 01h je M_M_Exit_2F M_Old2Fh: jmp CS:old_2Fh M_Mem: mov AL, 0FFh iret M_M_Exit_2F: push AX push DX push DS mov AX, 2509h lds DX, CS:old_09h int 21h mov AX, 252Fh lds DX, CS:old_2fh int 21h mov ES, CS:[2Ch] mov AH, 49h int 21h push CS pop ES mov AH, 49h int 21h pop DS pop DX pop AX iret P_New_2Fh endp ;-------обработка прерывания 09h--------------------------------- P_New_09h proc push AX in AL, 60h cmp AL, 15h je M_09h M_M_Exit_09h: pop AX jmp CS:old_09h M_09h: push ES mov AX, 40h mov ES, AX mov AL, ES:[17h] pop ES test AL, 0100b je M_M_Exit_09h ;-------Выводим день недели--------------------------------- push BX mov AL, 06h OUT 70h, Al in Al, 71h dec al ;счет с единицы mov ah,0 shl ax,1 mov bx,ax Text_OUT cs:tabl[bx] ;таблица в кодовом сегменте! pop BX mov al,20h out 20h,al pop ax iret P_New_09h endp ;-------инициирующая часть--------------------------------- P_Init proc mov CL, ES:80h cmp CL, 0 jge M_Parametrs jmp M_NoParametrs M_Parametrs: xor CH, CH mov DI, 81h mov AL, '/' repnz scasb cmp byte ptr [DI], 'M' jne M_UnLoad jmp M_Install M_UnLoad: cmp byte ptr [DI], 'R' jne M_NoParametrs jmp M_UnInstall M_Install: mov AX, 0C800h int 2Fh cmp AL, 0FFh je M_Run mov AX, 352Fh int 21h mov Word Ptr CS:old_2Fh, BX mov Word Ptr CS:old_2Fh+2, ES mov AX, 252Fh mov DX, offset P_New_2Fh int 21h mov AX, 3509h int 21h mov Word Ptr old_09h, BX mov Word Ptr old_09h+2, ES mov AX, 2509h mov DX, offset P_New_09h int 21h mov AH, 09h lea DX, Message_Load int 21h mov AX, 3100h mov DX, (P_Init-TSR+10Fh)/16 int 21h M_UnInstall: mov AX, 0C800h int 2Fh cmp AL, 0FFh jne M_UnRun mov AH, 09h lea DX, Message_UnLoad int 21h mov AX, 0C801h int 2Fh jmp M_Exit M_Run: mov AH, 09h lea DX, Message_Run int 21h jmp M_Exit M_UnRun: mov AH, 09h lea DX, Message_UnRun int 21h jmp M_Exit M_NoParametrs: mov AH, 09h lea DX, Message_Parms int 21h M_Exit: .exit 0 Message_Parms db 'tr.com /M | /R',0dh,0ah db '/M - load',0dh,0ah db '/R - unload',0dh,0ah db 'Ctrl+Y - print weekday',0dh,0ah,'$' Message_UnLoad db 'UnLoad$' Message_Run db 'Run$' Message_UnRun db 'UnRun$' Message_Load db 'Load$' P_INIT endp Seg1 ends end TSR --------- Удачи!

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

Вопрос № 137.185

Написать программу для перевода числа из девятиричной системы счисления в семиричную. Заранее спасибо!

Отправлен: 17.05.2008, 11:31 Вопрос задал: Быстров Владимир Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Arish Здравствуйте, Быстров Владимир Александрович! Вот процедура перевода любого числа в ASCII код с заданным основанием. Для компилятора TASM. Приложение: sgascii segment para public 'code' toascii proc far ;Входные параметры: ;ES:DI - адрес конца поля, куда будет записано символьное представление ;AX - число представление которого нужно получить ;CX - в какой системе счисления public toascii assume cs:sgascii, ds:sgascii jmp start digs db '012356789ABCDEF' start push ds push bx push si mov bx,sgascii ;загрузим адрес сегмента mov ds,bx ;в регистр dx rpl: dec di ;позиция для очередного разряда xor dx,dx div cx ;остаток будет смещением mov si,dx ;В таблице символов digs mov bl,digs[si] ;занесем очередной символ mov es:[di],bl ;в нужную позицию представления числа cmp ax,0 ;если частное не ноль jne rpl ;продолжим деление pop si pop bx pop ds ret toascii endp sgascii ends end --------- Кто хочет - ищет способ, кто не хочет ищет причины!

Ответ отправил: Arish (статус: 1-ый класс) Ответ отправлен: 17.05.2008, 17:12 Оценка за ответ: 5

Вопрос № 137.210

Здравствуйте, уважаемые эксперты! Помогите написать программу! У меня такая задача "Задать перемещение символа по экрану с образованием треугольника" из разряда "работа с дисплеями и прерываниями". Помогите, пожалуйста, потому что даже не знаю с какой стороны подступиться к решению.. зачетная неделя не за горами? очень срочно нужно С уважением и заранее спасибо!

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

Отвечает: Trulala Здравствуйте, Летова Екатерина Владимировна! Текст программы в приложении. Создание exe файла программы: tasm.exe {имя asm файла} tlink.exe {имя obj файла} Приложение: ASSUME cs:code, ds:data, ss:stk code SEGMENT entry_point: mov ax,SEG data mov ds,ax ;установка видеорежима 03h ;80x25 0B800h mov ax,0003h INT 10h ;отрисовка координатных осей mov ah,0 mov al,0 mov dl,'0' call Draw_Symbol_vm03h mov symbol_X,0 mov symbol_Y,1 mov symbol,01h mov cx,24 draw_Y_axis: mov ah,symbol_X mov al,symbol_Y mov dl,symbol call Draw_Symbol_vm03h inc symbol_Y loop draw_Y_axis mov symbol_X,1 mov symbol_Y,0 mov symbol,02h mov cx,79 draw_X_axis: mov ah,symbol_X mov al,symbol_Y mov dl,symbol call Draw_Symbol_vm03h inc symbol_X loop draw_X_axis ;инициализация координат и кода символа mov symbol_X,38 mov symbol_Y,10 mov symbol,'*' ;отрисовка 1-й стороны треугольника mov cx,4 draw_side1: mov ah,symbol_X mov al,symbol_Y mov dl,symbol call Draw_Symbol_vm03h inc symbol_X inc symbol_Y loop draw_side1 ;отрисовка 2-й стороны треугольника mov cx,8 draw_side2: mov ah,symbol_X mov al,symbol_Y mov dl,symbol call Draw_Symbol_vm03h dec symbol_X loop draw_side2 ;отрисовка 3-й стороны треугольника mov cx,4 draw_side3: mov ah,symbol_X mov al,symbol_Y mov dl,symbol call Draw_Symbol_vm03h inc symbol_X dec symbol_Y loop draw_side3 ;ожидать нажатия клавиши mov ah,0 INT 16h ;завершение процесса mov ax,4C00h INt 21h ;------------------------------------------------------------------------------------ ;подпрограмма вывода символа по заданным координатам экрана текстового видеорежима 03 ;------------------------------------------------------------------------------------ Draw_Symbol_vm03h PROC ;ah-x, al-y, dl-symbol push ds push bx push ax mov ax,0B800h mov ds,ax pop ax push dx push ax mov ah,80*2 ;в строке 80 символов, каждый символ представлен в памяти двумя байтами - (код символа)+(байт параметров отображения) mul ah ;ax=y*80*2 pop dx xchg dh,dl xor dh,dh shl dx,1 ;dx=x*2 add ax,dx ;ax=y*80+x*2 mov bx,ax pop dx mov ds:[bx],dl pop bx pop ds ret Draw_Symbol_vm03h ENDP code ENDS data SEGMENT symbol_X DB ? symbol_Y DB ? symbol DB ? data ENDS stk SEGMENT stack DB 200h DUP(?) stk ENDS END entry_point

Ответ отправил: Trulala (статус: 2-ой класс) Ответ отправлен: 20.05.2008, 14:30

Вопрос № 137.285

Здравствуйте! Вопрос таков: как посчитать длительность нажатия клавиши? есть ли такое прерывание?

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

Отвечает: Airyashov Перехватить 09h прерывание и в нём и считать время.

Ответ отправил: Airyashov (статус: 5-ый класс) Ответ отправлен: 19.05.2008, 08:03

Вопрос № 137.440

А на ассемблере сушествуют списки как сложная структуда даных ? Если да то не могли б литературу подсказать ?

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Rodin k v ! В ассемблере есть такое понятие, как структура. Структурой задается формат одной записи. Чтобы задать список, надо обеспечить ссылкы предыдущей записи на следующую. Обычно это делают с помощью одного или двух полей в структуре. И, разумеется, всю взаимосвязь осуществляют "ручками", на то это и ассемблер... --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.05.2008, 09:56 Оценка за ответ: 4

Вопрос № 137.447

Ув. эксперты, напиши пожалуйста программу, которая вычисляет сумму 3 положительных чисел с плавающей запятой. Все числа должны быть представлены в следующем виде: 0-ой байт – длина числа 1-ый байт – место плавающей запятой 2-ой байт – 0-вая цифра числа 3-ий байт – 1-ая цифра числа 4-ый байт – 2-ая цифра числа … Например, число 39.751: 0-ой байт – 5 1-ый байт – 2 2-ой байт – 3 3-ий байт – 9 4-ый байт – 7 5-ый байт – 5 6-ой байт – 1 Этап первый: Программа вводит 3 числа с плавающей запятой (максимум 30 цифр для каждого числа) и создает для каждого числа подходящую запись, которая соответствует приведенной выше схеме (длина числа, место плавающей запятой …) Нужно, также проверять вводимые числа: А. Все вводимые символы являются только цифрами или точкой Б. Точка может быть только одна Этап второй: Программа складывает 3 этих числа и их сумму тоже представляет в соответствии с выше указанной схемой. Этап третий: Программа выводит на экран все 3 числа и их сумму. Продемонстрировать действие программы на трех различных примерах.

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sbuber! Программа под TASM в приложении Приложение: ffloat struc ;структура, описывающая тип данных count db ? ;соличество знаков point db ? ;позиция точки number db 30 dup (?) ;цифры в символьном виде '0'-'9' ffloat ends .model tiny,C .data num1 ffloat <> ;три исходных числа num2 ffloat <> num3 ffloat <> res1 ffloat <> ;сумма первых двух res2 ffloat <> ;сумма трех prompt1 db 0dh,0ah,'Enter first float number : $' prompt2 db 0dh,0ah,'Enter second float number: $' prompt3 db 0dh,0ah,'Enter third float number: $' first db 0dh,0ah,'First number :$' second db 0dh,0ah,'Second number :$' third db 0dh,0ah,'Third number :$' result db 0dh,0ah,'Result :$' repeat db 0dh,0ah,'Repeat ? (Y/N)$' overflow db '*** overflow ***$' .code .startup main_loop: lea dx,prompt1 mov ah,9 int 21h lea bx,num1 call GetNum ;введем первое число lea dx,prompt2 mov ah,9 int 21h lea bx,num2 call GetNum ;введем второе число lea dx,prompt3 mov ah,9 int 21h lea bx,num3 call GetNum ;введем третье число lea si,num1 lea di,num2 lea bx,res1 call CalcSum ;сложим первые два lea si,res1 lea di,num3 lea bx,res2 call CalcSum ;добавим третье lea dx,first mov ah,9 int 21h lea bx,num1 call PrintNum ;"нарисуем" первое lea dx,second mov ah,9 int 21h lea bx,num2 call PrintNum ;"нарисуем" второе lea dx,third mov ah,9 int 21h lea bx,num3 call PrintNum ;"нарисуем" третье lea dx,result mov ah,9 int 21h lea bx,res1 cmp [ffloat ptr bx].point,-1 ;-1 означает переполнение в результате суммы двух je Pr_res lea bx,res2 Pr_res: call PrintNum ;"нарисуем" сумму трех или "overflow" (из res1) lea dx,repeat mov ah,9 int 21h mov ah,1 int 21h or al,20h cmp al,'y' ;'y' - повтор jne exit jmp main_loop exit: .exit 0 GetNum proc ;вводим число в структуру по адресу [bx] lea di,[ffloat ptr bx].number ;через di будем адресовать строку цифр mov [ffloat ptr bx].count,0 ;инициируем счетчик mov [ffloat ptr bx].point,0 ;точка не введена GN_loop: mov ah,8 int 21h ;ждем символ с клавиатуры (без эхо) cmp al,0dh je GN_number_entered ;по Enter заканчиваем ввод cmp [ffloat ptr bx].count,30 ;у нас максимум 30 цифр jae GN_loop ;ждем Enter... cmp al,'.' ;ввели точку? jne GN_cmp_digit cmp [ffloat ptr bx].point,0 ;если уже была введена, то jne GN_loop ;ждем что-то другое cmp [ffloat ptr bx].count,0 ;и первой тоже нельзя... je GN_loop mov al,[ffloat ptr bx].count ;число уже введенных цифр mov [ffloat ptr bx].point,al ;и есть позиция точки mov al,'.' ;нарисуем точку на экране jmp GN_next GN_cmp_digit: ;проверим на цифры cmp al,'0' jb GN_loop cmp al,'9' ja GN_loop stosb ;сохраняним inc [ffloat ptr bx].count ;и увеличим счетчик GN_next: mov dl,al ;отобразим на экране mov ah,2 int 21h jmp GN_loop ;продолжим ввод GN_number_entered: ;надана Enter cmp [ffloat ptr bx].count,0 ;надо, чтобы что-то было введено! je GN_loop cmp [ffloat ptr bx].point,0 ;если точки не было jne GN_ret mov al,[ffloat ptr bx].count ;то считаем, что она в конце... mov [ffloat ptr bx].point,al GN_ret: ret GetNum endp PrintNum proc ;выведем на экран число по адресу из [bx] lea si,[ffloat ptr bx].number ;адрес строки цифр xor cx,cx mov cl,[ffloat ptr bx].point ;cx-счетчик цифр до точки cmp cl,-1 ;переполнение? (как результат сложения) jne PN_point_ok lea dx,overflow ;Увы, так mov ah,9 int 21h ret PN_point_ok: ;продолжим вывод mov ah,2 ;ф-я вывода символа на экран PN_integer_loop: mov dl,[si] ;очередной символ int 21h inc si loop PN_integer_loop ;вывели целую часть mov dl,'.' ;рисуем точку int 21h mov cl,[ffloat ptr bx].count sub cl,[ffloat ptr bx].point ;cx-счетчик цифр дробной части jcxz PN_ret ;если нет дробной части, то выходим PN_fractional_loop: mov dl,[si] ;очередной символ int 21h inc si loop PN_fractional_loop ;вывели дробную часть PN_ret: ret PrintNum endp CalcSum proc ;складываем числа по адресам si и di, результат в [bx] xor ax,ax ;нам важно ah=0 для дальнейших операций mov cx,ax ;нам важно ch=0 для дальнейших операций cmp [ffloat ptr si].point,0ffh ;если признак переполнения, то выходим! jne GS_cmp_1_0 ret GS_cmp_1_0: mov dl,[ffloat ptr si].count sub dl,[ffloat ptr si].point ;dl-количество цифр дробной части первого числа cmp [ffloat ptr si].point,0ffh ;если признак переполнения, то выходим! jne GS_cmp_2_0 ret GS_cmp_2_0: mov dh,[ffloat ptr di].count sub dh,[ffloat ptr di].point ;dh-количество цифр дробной части второго числа ;скопируем в результат число с более длинной дробной частью sub dl,dh ;dl-dh - разница между кол цифр дробной части чисел jns GS_num1_gt_num2 ;если у второго >= дробной части GS_num2_gt_num1: ;у первого больше цифр дробной части neg dl ;воэьмем модуль разности, теперь dl>0 call CopyNumWithLongTail,di ;копируем второе число в конец буфера результата jmp GS_calc_sum ;второй операнд изначально адресуется si GS_num1_gt_num2: ;у второго числа >= цифр дробной части call CopyNumWithLongTail,si ;копируем первое число в конец буфера результата mov si,di ;пусть si будет адресовать второе число ;итак, один операнд в результате, второй будем адресовать si ;учтем, что в результате >= цифр дробной части, ;поэтому начальная позиция прибавления второго числа определяется разностью длин дробных частей! GS_calc_sum: mov al,[ffloat ptr si].count dec al lea di,[ffloat ptr si].number add di,ax ;di-адрес последней цифры (младшей) второго операнда lea bp,[ffloat ptr bx].number add bp,(size ffloat)-3 ;bp-адрес последней цифры результата (адрес последнего байта буфера) mov dh,0 sub bp,dx ;отнимем разницу длин дробной части и получим позицию, общую для чисел! mov cl,[ffloat ptr bx].count sub cl,dl ;cl-количество цифр результата (первого операнда), "лишние" пропускаем mov ch,[ffloat ptr si].count ;ch-количество цифр второго операнда mov dl,0 ;здесь будем хранить бит переноса GS_calc_loop: ;цикл суммирования jcxz GS_copy_result ;обработали все? cmp cl,0 ;есть еще цифры первого операнда? jne GS_next1_gr_0 mov al,0 ;если нет, то считаем, что 0 jmp GS_from_2 GS_next1_gr_0: mov al,[bp] ;очередной символ ;указатель декрементируем позже and al,0fh ;делаем из символа число dec cl ;уменьшаем счетчик GS_from_2: cmp ch,0 ;есть еще цифры второго операнда? jne GS_next2_gr_0 mov ah,0 ;если нет, то считаем, что 0 je GS_add_values GS_next2_gr_0: mov ah,[di] ;очередной символ dec di ;декремент адреса and ah,0fh ;делаем из символа число dec ch ;уменьшаем счетчик GS_add_values: shr dl,1 ;загоним младший бит из dl в С adc al,ah ;сложим величины с битом переноса aaa ;десятичная коррекция mov dl,0 ;бит переноса adc dl,0 ;сохраним в dl or al,30h ;число в символ цифры mov [bp],al ;и в результат dec bp ;и вот теперь декремент адреса GS_analize_next_digit: jmp GS_calc_loop ;пока не пройдем все цифры GS_copy_result: ;все цифры обработаны lea cx,[ffloat ptr bx+(size ffloat)-2].number inc bp sub cx,bp ;cx-число записанных цифр в результате суммирования mov al,cl sub al,[ffloat ptr bx].count ;al-сколько добавилось цифр по сравнению с первым операндом ;на столько надо будет увеличить позицию точки... mov [ffloat ptr bx].count,cl ;сохраним новый счетчик цифр cmp dl,0 ;проверим на неучтенный перенос je GS_no_overflow ;переноса нет? inc al ;если есть, то добавим еще один разряд (старшая '1') add [ffloat ptr bx].point,al ;соответственно увеличим на 1 позицию точки cmp [ffloat ptr bx].point,30 ;если целая часть оказалась > 30 jbe set_ok_overflow mov [ffloat ptr bx].point,-1 ;то переполнение!!! ret set_ok_overflow: ;проверим, результат заполнился полностью? lea dx,[ffloat ptr bx].number ;адрес начала строки результата cmp bp,dx ;bp дошло до начала? je GS_max_size ;если дошло, то обработаем по-другому inc [ffloat ptr bx].count ;нет, увеличиваем счетчик цифр mov [ffloat ptr bx].number,'1' ;добавляем старшую '1' inc bx ;будем писать со следующей позиции jmp GS_copy_loop ;на копирование суммы в надлежащее место с первой цифры до последней ;особый случай - буфер заполнился полностью ;в таком случае, мы теряем самый младший разряд дробной части, ;чтобы освободить место для старшей единицы ;позиция точки не меняется GS_max_size: dec cx ;уменьшим на 1 счетчик копируемых цифр (фактически 29) add bp,(size ffloat)-4 ;bp указывает на предпоследнюю цифру add bx,(size ffloat)-3 ;bx на последнюю GS_copy_loop_overflow: mov al,[bp] mov [ffloat ptr bx].number,al dec bp dec bx loop GS_copy_loop_overflow ;копируем сзаду наперед 29 цифр mov [ffloat ptr bx].number,'1' ;на первое мето ставим '1' ret GS_no_overflow: ;перенос отсутствует add [ffloat ptr bx].point,al ;корректируем позицию точки GS_copy_loop: mov al,[bp] mov [ffloat ptr bx].number,al inc bp inc bx loop GS_copy_loop ;копируем сумму в надлежащее место с первой цифры до последней ret CalcSum endp ;копируем число, адрес которого задан параметром, в конец результата по адресу [bx] ;ch предполагается равным 0 CopyNumWithLongTail proc uses bx di, pnum:word mov di,pnum ;адрес исходного числа mov al,[ffloat ptr di].point ;перенесем позицию точки mov [ffloat ptr bx].point,al ;в результат mov cl,[ffloat ptr di].count ;также счетчик mov [ffloat ptr bx].count,cl lea bp,[ffloat ptr bx].number add bp,(size ffloat)-3 ;bp-адрес последнего байта результата mov bx,cx ;bx-длина исходного числа push cx ;сохраним счетчик CN_copy_num: mov al,[ffloat ptr bx+di-1].number ;очередная цифра mov [bp],al dec bx dec bp loop CN_copy_num ;копируем строку цифр в конец результата pop cx ;заполним до начала буфера результата нулями sub cx,(size ffloat)-2 ;cx-сколько осталось (только < 0) jcxz CN_ret ;если "под завязку", то выходим mov al,0 neg cx ;теперь cx > 0 CN_copy_zero: mov [bp],al dec bp loop CN_copy_zero ;заполняем нулями CN_ret: ret CopyNumWithLongTail endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 20.05.2008, 10:58

Вопрос № 137.448

1. Напиши программу, которая вычисляет произведение 2-ух положительных чисел с плавающей запятой. Все числа должны быть представлены в следующем виде: 0-ой байт – длина числа 1-ый байт – место плавающей запятой 2-ой байт – 0-вая цифра числа 3-ий байт – 1-ая цифра числа 4-ый байт – 2-ая цифра числа … Например, число 39.751: 0-ой байт – 5 1-ый байт – 2 2-ой байт – 3 3-ий байт – 9 4-ый байт – 7 5-ый байт – 5 6-ой байт – 1 Этап первый: Программа вводит 2 числа с плавающей запятой (максимум 30 цифр для каждого числа) и создает для каждого числа подходящую запись, которая соответствует приведенной выше схеме (длина числа, место плавающей запятой …) Нужно, также проверять вводимые числа: А. Все вводимые символы являются только цифрами или точкой Б. Точка может быть только одна Этап второй: Программа умножает 2 этих числа и их произведение тоже представляет в соответствии с выше указанной схемой. Этап третий: Программа выводит на экран оба числа и их произведение. Как пример работы программы, нужно показать результат умножения 123456.78 * 123.45678 =

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sbuber! Программа под Tasm в приложении Приложение: ffloat struc ;структура, описывающая тип данных count db ? ;соличество знаков point db ? ;позиция точки number db 30 dup (?) ;цифры в символьном виде '0'-'9' ffloat ends fffloat struc ;структура, описывающая временный тип данных count db ? ;соличество знаков point db ? ;позиция точки number db 60 dup (?) ;цифры в символьном виде '0'-'9' fffloat ends ;длина 60 байт, чтобы поместилось 30*30 .model tiny,C .data num1 ffloat <> ;два исходных числа num2 ffloat <> res ffloat <> ;произведение prompt1 db 0dh,0ah,'Enter first float number : $' prompt2 db 0dh,0ah,'Enter second float number: $' first db 0dh,0ah,'First number :$' second db 0dh,0ah,'Second number :$' result db 0dh,0ah,'Result :$' repeat db 0dh,0ah,'Repeat ? (Y/N)$' overflow db '*** overflow ***$' .code .startup main_loop: lea dx,prompt1 mov ah,9 int 21h lea bx,num1 call GetNum ;введем первое число lea dx,prompt2 mov ah,9 int 21h lea bx,num2 call GetNum ;введем второе число lea si,num1 lea di,num2 lea bx,res call CalcMul ;умножим lea dx,first mov ah,9 int 21h lea bx,num1 call PrintNum ;"нарисуем" первое lea dx,second mov ah,9 int 21h lea bx,num2 call PrintNum ;"нарисуем" второе lea dx,result mov ah,9 int 21h lea bx,res call PrintNum ;"нарисуем" произведение или "overflow" lea dx,repeat mov ah,9 int 21h mov ah,1 int 21h or al,20h cmp al,'y' ;'y' - повтор jne exit jmp main_loop exit: .exit 0 GetNum proc ;вводим число в структуру по адресу [bx] lea di,[ffloat ptr bx].number ;через di будем адресовать строку цифр mov [ffloat ptr bx].count,0 ;инициируем счетчик mov [ffloat ptr bx].point,0 ;точка не введена GN_loop: mov ah,8 int 21h ;ждем символ с клавиатуры (без эхо) cmp al,0dh je GN_number_entered ;по Enter заканчиваем ввод cmp [ffloat ptr bx].count,30 ;у нас максимум 30 цифр jae GN_loop ;ждем Enter... cmp al,'.' ;ввели точку? jne GN_cmp_digit cmp [ffloat ptr bx].point,0 ;если уже была введена, то jne GN_loop ;ждем что-то другое cmp [ffloat ptr bx].count,0 ;и первой тоже нельзя... je GN_loop mov al,[ffloat ptr bx].count ;число уже введенных цифр mov [ffloat ptr bx].point,al ;и есть позиция точки mov al,'.' ;нарисуем точку на экране jmp GN_next GN_cmp_digit: ;проверим на цифры cmp al,'0' jb GN_loop cmp al,'9' ja GN_loop stosb ;сохраняним inc [ffloat ptr bx].count ;и увеличим счетчик GN_next: mov dl,al ;отобразим на экране mov ah,2 int 21h jmp GN_loop ;продолжим ввод GN_number_entered: ;надана Enter cmp [ffloat ptr bx].count,0 ;надо, чтобы что-то было введено! je GN_loop cmp [ffloat ptr bx].point,0 ;если точки не было jne GN_cmp_prezero mov al,[ffloat ptr bx].count ;то считаем, что она в конце... mov [ffloat ptr bx].point,al GN_cmp_prezero: ;уберем возможные лидирующие нули mov di,bx ;адресуем структуру и через di xor cx,cx mov cl,[ffloat ptr bx].point ;длина целой части mov al,0 ;признак того, что лидирующих нулей нет GN_prezero: cmp cl,1 ;если один знак целой части, je GN_cmp_res ;то то идем на проверку cmp [ffloat ptr bx].number,'0' jne GN_cmp_res ;не 0, то идем на проверку dec [ffloat ptr di].point ;уменьшаем счетчик цифр dec [ffloat ptr di].count ;и позицию точки mov al,1 ;встретили лидирующий нуль inc bx ;на следующую цифру loop GN_prezero GN_cmp_res: test al,al ;были ли лидирующие нули jz GN_ret ;не было, на выход mov cl,[ffloat ptr di].count ;скорректированная длина цифр GN_move_loop: mov al,[ffloat ptr bx].number mov [ffloat ptr di].number,al inc bx inc di loop GN_move_loop ;затрем лидирующие нули [bx]->[di] GN_ret: ret GetNum endp PrintNum proc ;выведем на экран число по адресу из [bx] lea si,[ffloat ptr bx].number ;адрес строки цифр xor cx,cx mov cl,[ffloat ptr bx].point ;cx-счетчик цифр до точки cmp cl,-1 ;переполнение? (как результат сложения) jne PN_point_ok lea dx,overflow ;Увы, так mov ah,9 int 21h ret PN_point_ok: ;продолжим вывод mov ah,2 ;ф-я вывода символа на экран PN_integer_loop: mov dl,[si] ;очередной символ int 21h inc si loop PN_integer_loop ;вывели целую часть mov dl,'.' ;рисуем точку int 21h mov cl,[ffloat ptr bx].count sub cl,[ffloat ptr bx].point ;cx-счетчик цифр дробной части jcxz PN_ret ;если нет дробной части, то выходим PN_fractional_loop: mov dl,[si] ;очередной символ int 21h inc si loop PN_fractional_loop ;вывели дробную часть PN_ret: ret PrintNum endp CalcMul proc ;умножим [si]*[di] -> [bx] local var:fffloat, x:ffloat, y:ffloat ;временные буфера push bx ;сохраним пока адрес результата lea bx,var ;обнулим рабочий буфер mov cx,(size fffloat)/2 xor ax,ax CM_clear_loop: mov [bx],ax add bx,2 loop CM_clear_loop push di ;скопируем исходые числа в рабочий буфер lea di,y ;это необходимо, т.к. их приходится "портить" mov cx,(size ffloat)/2 rep movsw pop si lea di,x mov cx,(size ffloat)/2 rep movsw lea si,x ;теперь si - адрес копии первого операнда call NormPoint,si ;нормализуем число! cmp [ffloat ptr si].count,0 ;операнд - 0? je CM_zero ;результат - 0! mov var.point,al ;формируем информацию для позиции точки результата lea di,y ;теперь di - адрес копии второго операнда call NormPoint,di ;нормализуем cmp [ffloat ptr di].count,0 ;операнд - 0? jne CM_cmp_var_point ;не 0 - идем дальше CM_zero: ;один из операндов - 0 -> результат 0 pop bx ;восстановим bx CM_set_zero: mov [ffloat ptr bx].count,1 mov [ffloat ptr bx].point,1 mov [ffloat ptr bx].number,'0' ret ;выходим с результатом 0! CM_cmp_var_point: ;дооформим информацию о позиции точки результата add al,var.point ;сложим с предыдущим js CM_set_var_point ;если результат >= 1.0 inc al ;то увелим еще на 1 CM_set_var_point: mov var.point,al ;сохраним информацию о позиции точки результата ;теперь имеем два нормализованных числа (мантиссы!), с точкой перед первым знаком! ;умножим их как обычные числа... mov al,[ffloat ptr si].count ;количество цифр первого числа cmp al,[ffloat ptr di].count ;сравним с количеством цифр второго числа jae CM_main ;пусть si адресует число с большим числом цифр xchg si,di ;а di - число с меньшим ;будем пробегать по цифрам короткого числа ;и поразрядно умножать на более длинное число CM_main: lea bx,var+(size fffloat)-1 ;bx - адрес последнего байта рабочего буфера xor cx,cx ;обнулим ch mov dh,[ffloat ptr si].count ;число байт длинного числа, сохраним для инициализации цикла mov cl,dh add si,cx dec si ;si - адрес последнего байта длинного числа mov cl,[ffloat ptr di].count add di,cx dec di ;di - адрес последнего байта короткого числа CM_main_loop: ;цикл по цифрам короткого числа push cx mov cl,dh ;счетчик цифр длинного числа mov dl,0 ;перенос push bx push si push di mov ch,[ffloat ptr di].number and ch,0fh ;очередной разряд короткого числа CM_num_loop: ;цикл по цифрам длинного числа mov al,[ffloat ptr si].number and al,0fh ;очередной разряд длинного числа mul ch ;умножим на цифру короткого числа aam ;десятичная коррекция после умножения, в ah - перенос add al,dl ;сложим с предыдущим переносом aaa ;десятичная коррекция, перенос учтется в ah mov dl,ah ;сохраним перенос в dl mov ah,[bx] ;прочитаем сохраненное значение из рабочего буфера and ah,0fh add al,ah ;сложим mov ah,0 ;подготовим к коррекции aaa ;коррекция, перенос в ah add dl,ah ;сложим с предыдущим значением переноса or al,30h ;число в символ mov [bx],al ;сохраним в рабочем буфере dec si ;уменьшим указатели dec bx dec cl ;уменьшим счетчик цифр длинного числа jnz CM_num_loop ;циклим cmp dl,0 ;проверим неучтенный перенос je CM_next_num ;если нет, то на следующую цифру короткого числа or dl,30h ;перенос -> следующий разряд mov [bx],dl dec bx CM_next_num: pop di ;восстанавливаем указатели dec di ;на следующий разряд короткого числа pop si ;длинное число с того же места, с начала! pop bx dec bx ;смещаем адрес для рабочего буфера (столбик) pop cx ;счетчик цифр короткого числа loop CM_main_loop ;мантиссы умножены, осталось вычислить позицию точки ;сначала найдем длину полученной мантиссы lea di,var.number mov cx,(size fffloat)-2 mov al,0 repe scasb dec di inc cx ;cx-искомая длина cmp cl,(size ffloat)-2 ;если получили больше 30 знаков, jbe CM_copy_to_res mov cl,(size ffloat)-2 ;то оставляем 30 старших CM_copy_to_res: pop bx ;восстановим адрес результата mov al,var.point ;сохраненное значение позиции точки cmp dl,0 ;если был перенос в старшем разряде je CM_test_lt_1 inc al ;то увеличим на 1 CM_test_lt_1: test al,al ;если 0, jnz CM_cmp_sign mov al,1 ;то меняем на 1! jmp CM_set_point CM_cmp_sign: ;проверим знак порядка jns CM_set_point ;для положительных копируем мантиссу в результат cmp al,3-(size ffloat) ;проверим на малую величину jge CM_add_first_zero ;число помещается в 30 разрядов jmp CM_set_zero ;иначе, меняем на 0 CM_add_first_zero: ;добавляем первые нули push di ;сохраним в стеке адрес первой цифры мантиссы mov di,bx ;будем адресовать и по di mov [ffloat ptr di].count,cl ;число знаков -> в результат neg al ;в al необходимое число нулей (со знаком -) mov ah,cl ;проверим на 30 сумму количества цифр мантиссы add ah,al ;и числа нулей cmp ah,(size ffloat)-2 jb CM_set_first_zeros ;ок, добавляем нули mov cl,(size ffloat)-2 sub cl,al ;подправим число копируемых цифр (чтобы было <= 30) CM_set_first_zeros: ;вставляем лидирующие нули inc [ffloat ptr di].count ;и увеличиваем счетчик mov [ffloat ptr bx].number,'0' inc bx dec al jnz CM_set_first_zeros mov al,1 ;зададим позицию точки после первого нуля mov [ffloat ptr di].point,al pop di ;в di-адрес первой цифры мантиссы jmp CM_copy_loop ;на копирование цифр мантиссы CM_set_point: cmp al,(size ffloat)-2 ;проверим на переполнение jbe CM_point_ok mov [ffloat ptr bx].point,-1 ;признак переполнения! ret CM_point_ok: ;сюда попадаем для положительного порядка mov [ffloat ptr bx].point,al ;сохраняем позицию точки результата mov [ffloat ptr bx].count,cl ;количество цифр результата CM_copy_loop: mov al,[di] ;в di-адрес очередной цифры мантиссы mov [ffloat ptr bx].number,al inc bx inc di loop CM_copy_loop ;копируем цифры мантиссы ret CalcMul endp NormPoint proc uses si bx, pNum:WORD ;нормализуем число по адресу в параметре ;фактически, вычислим порядок числа mov si,pNum ;адрес числа xor cx,cx ;ch=0 xor dh,dh ;счетчик лидирующих нулей mov dl,[ffloat ptr si].point ;позиция точки mov cl,[ffloat ptr si].count ;количество цифр NP_loop: ;проверим на лидирующие нули mov al,[ffloat ptr si].number cmp al,'0' jne NP_calc_point ;встретили не 0 inc dh ;есть лидирующий 0 inc si ;на следующую цифру loopne NP_loop NP_calc_point: ;закончили просмотр test dh,dh ;проверим, были ли лидирующие нули? jnz NP_lt_1 ;если были, то корректируем число dec dl ;иначе, просто декремент позиции точки mov al,dl ;на выходе: позиция точки - 1 jmp NP_ret NP_lt_1: ;число < 1 mov si,pNum ;адрес числа mov cl,dh ;число "лишних" нулей sub [ffloat ptr si].count,cl ;корректируем счетчик цифр mov bx,cx ;для адресации значащих цифр NP_normal_loop: mov al,[ffloat ptr bx+si].number mov [ffloat ptr si].number,al inc si loop NP_normal_loop ;копируем на начало буфера mov al,dh neg al ;возвращаем отрицательный счетчик "лишних" нулей! NP_ret: ret NormPoint endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 20.05.2008, 18:46

Вопрос № 137.617

Добрый день Элсперты. Я недавно стал заниматься программированием и для это для этого приобрел книгу Калашникова с приложениями. У меня такой вопрос я написал первую программу prog01.asm и запустил ее следующей командой C:\MASM611\BIN\ml.exe prog01.asm/AT, но после строчки Assembling: prog01.asm идет строка error A4910: cannot open file... Fatal error A1000: prog01.asm/AT

Отправлен: 20.05.2008, 13:05 Вопрос задал: Захаров Сергей Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Захаров Сергей Владимирович! Не хватает пробельчика между prog1.asm и /AT --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 20.05.2008, 13:54

Вопрос № 137.707

Здравствуйте! у меня такая проблема: необходимо выделить кусок памяти под массив m*n (m и n задаются) порядка 100 кб, м.б. больше. прерывание 48h int 21h такого количества памяти не даёт. Используется .model small. Подскажите, как можно таки выделить этот кусок средствами операционной системы.... Заранее спасибо =)

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Манкина Анна Сергеевна! Когда программа запускается, ей выделяется вся доступная память! В таких условиях запрос новой памяти, естественно, заканчивается крахом. Поэтому, чтобы иметь возможность запрашивать память ф-ей 48h, надо сначала "урезать" необходимую память до нужного размера ф-ей 4ah. Только после этого можно будет пользоваться ф-ей 48h --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 21.05.2008, 09:36

© 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