Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 118 ∙ повысить рейтинг >>

Airyashov Статус: 10-ый класс Рейтинг: 53 ∙ повысить рейтинг >>

Командин Константин Евгениевич Статус: 5-ый класс Рейтинг: 38 ∙ повысить рейтинг >>

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

Выпуск № 1099
от 01.11.2008, 23:05

Вопрос № 148505: Здравствуйте уважаемые эксперты! Пожалуйста проверте на ошибки и правильность написания программы, если неправильно - исправьте. Программирую недавно и вполне возможно, что все это абсолютно неправильно. Очень важно!!!!!!...

Вопрос № 148.505

Здравствуйте уважаемые эксперты! Пожалуйста проверте на ошибки и правильность написания программы, если неправильно - исправьте. Программирую недавно и вполне возможно, что все это абсолютно неправильно. Очень важно!!!!!! Приложение: ;Написать программу, которая создает дисковый файл, содержащий записи из трех элементов ;номер товара - 5 символов, наименование товара - 12 символов, стоимость товара - одно слово ;ввод значений осуществляется с клавиатуры. model medium data namepar label bite ; описание первой записи maxspring_1 db 5 lenstring_1 db ? realstring_1 db 5 dup (' '), 0dh, 0ah namepar1 label bite ; описание второй записи maxstring_2 db 12 lenstring_2 db ? realstring_2 db 12 dup (' '), 0dh, 0ah namepar2 label word ; описание третьей записи maxstring_3 dw 1 lenstring_3 dw ? realstring_3 dw 1 dup (' '), 0dh, 0ah handle dw ? pathnam db'C:My_file.txt',0 string1 db 'Введите номер товара...' string2 db 'Введите наименование товара...' string3 db 'Введите стоимость товара...' row db 01 OpenMes db 'Ошибка открытия файла' WriteMes db 'Ошибка в записи файла' errcode db 00 stack 256h code main proc ;главная программа mov ax,@fardata mov ds, ax mov es, ax mov ax, 0600h call scroll1 call curs call create cmp errcode, 00 jz next ret next: call znach cmp lenstring_1, 00 jne next cmp lenstring_2,00 jne next cmp lenstring_3,00 jne next call filclose ret main endp ; Создание файла create proc mov ah, 3ch mov cx, 00 lea cx, pathnam int 21h jc c20 mov handle , ax ret c20: lea dx, OpenMes call err ret create endp ; ввод значений znach proc znach1: mov ah, 40h mov bx, 01 mov cx, 23 lea dx, string1 int 21h mov ah, 0ah lea dx, namepar int 21h cmp lenstring_1, 00 jne d20 ret d20: mov al, 20h sub ch, ch mov cl, lenstring_1 lea di, realstring_1 add di, cx neg cx add cx, 30 rep stosb call filewrit call scroll ret znach2: mov ah, 40h mov bx, 01 mov cx, 30 lea dx, string2 int 21h mov ah, 0ah lea dx, namepar1 int 21h cmp lenstring_2, 00 jne d21 ret d21: mov al, 20h sub ch, ch mov cl, lenstring_2 lea di, realstring_2 add di, cx neg cx add cx, 30 rep stosb call filewrit call scroll ret znach3: mov ah, 40h mov bx, 01 mov cx, 27 lea dx, string3 int 21h mov ah, 0ah lea dx, namepar2 int 21h cmp lenstring_3, 00 jne d22 ret d22: mov al, 20h sub ch, ch mov cl, lenstring_3 lea di, realstring_3 add di, cx neg cx add cx, 30 rep stosb call filewrit call scroll ret znach endp ;Проверка на скроллинг scroll proc cmp row,18 jae perejti inc row jmp pereyti pereyti: mov ax, 0601h call scroll1 call curs ret scroll endp ;запись на диск filewrit proc writznach1: mov ah, 40h mov bx, handle mov cx, 7 lea dx, realstring_1 int 21h jnc errwrite lea dx, WriteMes call err mov lenstring_1, 00 ret writznach2: mov ah, 40h mov bx, handle mov cx, 14 lea dx, realstring_2 int 21h jnc errwrite lea dx, WriteMes call err mov lenstring_2, 00 ret writznach3: mov ah, 40h mov bx, handle mov cx, 2 lea dx, realstring_3 int 21h jnc errwrite lea dx, WriteMes call err mov lenstring_3, 00 ret errwrite: ret filewrit endp ;закрытие файла filclose proc mov realstring_1, 1ah mov realsteing_2, 1ah mov realstring_3, 1ah call filewrit mov ah, 3eh mov bx, handle int 21h ret filclose endp ;прокрутка экрана scroll1 proc mov bh, 1eh mov cx, 0000 mov dx, 184fh int 10h ret scroll1 endp ;установка курсора curs proc mov ah,02 mov bh, 00 mov dh, row mov dl, 00 int 10h ret curs endp err proc mov AH,40H ; адрес сообщения mov BX,01 mov CX,21 ;Длина сообщения int 21H mov errcode,01 ;Установить код ошибки ret err endp end main

Отправлен: 26.10.2008, 16:04 Вопрос задала: Коняхина Наталья (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Коняхина Наталья! Программа в приложении. Для ввода строк использована одна подпрограмма loadStr. Вся вводимая информация последовательно копируется в буфер вывода, а также дополняется до нужного размера пробелами, организованно с помощью строковых команд. Введенный параметр стоимость товара преобразовывается со строки в 16-тибитное число, с помощью подпрограммы str2num. Ещё добавлена одна ошибка :NumberMes db 13,10,'Ошибка неверное число$'. Если будет введена пустая строка, то ввод параметра повторяется. Использовал малую модель организации памяти(сегмент кода + сегмент данных и стека), средняя модель организации памяти(несколько сегментов кода + сегмент данных) нерациональна для такой программы(всего 921 байт). ps:вопросы по программе задавайте в мини-форум. Удачи! Приложение: ;Написать программу, которая создает дисковый файл, ; содержащий записи из трех элементов ;номер товара - 5 символов, наименование товара - 12 символов, ; стоимость товара - одно слово ;ввод значений осуществляется с клавиатуры. model small data handle dw ? pathnam db 'My_file.txt',0 string1 db 13,10,'Введите номер товара:$' string2 db 13,10,'Введите наименование товара:$' string3 db 13,10,'Введите стоимость товара:$' OpenMes db 13,10,'Ошибка открытия файла$' WriteMes db 13,10,'Ошибка в записи файла$' NumberMes db 13,10,'Ошибка неверное число$' dbResult db (5+12)dup(?) ;эти два байта используются как при чтении строки, так и призаписи в файл dbMax db ? dbSize db ? dbInput db 13 dup(?) stack 256h code 186 main proc ;главная программа ;ассоциируем сегментные регистры assume cs:@code,ds:@data,es:@data mov ax,@data mov ds,ax mov es,ax ;перходим в текстовый режим mov ax,03 int 10h ;ставим напрвеление +1 для строковых команд cld ;по этому адресу будем формировать записываемые данные mov di,offset dbResult ;вводим номер товара mov ax,5 mov dx,offset string1 call loadStr ;вводим наименование товара mov ax,12 mov dx,offset string2 call loadStr ;вводим стоимость mov ax,5 mov dx,offset string3 call loadStr ;переводим строку в число call str2num jc noSave ;записываем данные call fileSave ;завершаем программу noSave: mov ax,4c00h adc al,0 int 21h main endp ;подпрограмма записи файла fileSave proc ;вызываем подпрограмму создания файла call create ;если ошибка выходим jc isError ;вызываем подпрограмму записи данных call save ;сохраняем флаг pushf ;вызываем подпрограмму закрытия файла call close ;востанавливаем регистр флага popf ;выходим из подпрограммы isError: ret fileSave endp ; Создание файла create proc ;создаем файл без особых аттрибутов mov ah,3ch xor cx,cx mov dx,offset pathnam int 21h ;если ошибка то выводим сообщение jc c20 ;запоминаем указатель на файл и выходим mov handle,ax ret ;выводим сообщение ошибки c20: mov dx,offset OpenMes call errorMes ret create endp ; запись в файл save proc ;записываем в файл 19 байтов mov ah,40h mov bx,handle mov cx,(12+5+2) mov dx,offset dbResult int 21h ;проверяем ошибку записи jnc s20 ;выводим сообщение ошибки mov dx,offset WriteMes call errorMes s20: ret save endp ;закрытие файла close proc ;закрываем открытый файл mov ah,3eh mov bx,handle int 21h ret close endp ; ввод значений loadStr proc ;запоминаем вводимый размер в стеке push ax ;записываем в переменную как максимальный размер вводимой строки, с учетом клавиши "ввод" inc al mov dbMax,al ;выводим сообщение о вводимом параметре isRepeat: push dx mov ah,9 int 21h ;вводим строку mov ah,0ah mov dx,offset dbMax int 21h ;востанавливаем сообщение о вводимом параметре pop dx ;загружаем длину введенной строки xor ch,ch mov cl,dbSize ;если равно 0, то повторяем ввод jcxz isRepeat pop bx ;вычисляем количество замыкающих пробелов sub bx,cx mov si,offset dbInput ;копируем введенную строку rep movsb ;дописываем нужное количество пробелов mov cx,bx jcxz noSpace mov al,' ' rep stosb noSpace: ret loadStr endp ;перевод строки в число str2num proc ;устанавливаем указатель на первую цифру mov si,offset dbMax xor bx,bx;тут будет хранится введенное число mov di,10;основание системы счисления mov cx,5;максимальное количество цифр в слове ;загружаем символ isLoop: lodsb ;если пробел число закончилось cmp al,' ' jz isStop ;проверяем диапазон цифр cmp al,'9' ja s2n20 cmp al,'0' jl s2n20 ;переводим символ в число and ax,0fh ;обмениваем только что прочитанную цифру с ранее введенным числом xchg ax,bx ;умножаем ранее введенное число на 10 xor dx,dx mul di ;проверяем диапазон числа 0:65535 or dx,dx jnz s2n20 ;суммируем полученное число add bx,ax loop isLoop ;число закончилось записываем результат isStop: mov word ptr dbMax,bx ret ;выводим сообщение о ;- нарушении диапазона введенного числа ;- наличие других символов, кроме цифр s2n20: mov dx,offset NumberMes call errorMes stc;устанавливаем флаг ошибки ret str2num endp ;подпрограмма вывода сообщени об ошибке errorMes proc pushf mov AH,9H; адрес сообщения int 21H ;ожидаем нажатия любой клавиши xor ax,ax int 16h popf ret errorMes endp end main --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 29.10.2008, 20:03 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148505 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 148.615

Здравствуйте, у меня два вопроса. 1) В первом приложении у меня написана программа «lohotron», она не много не доделана – еще скорость и ускорение нужно подобрать получше. Я столкнулся вот с чем. В процедуре int_08h proc, которая вызывается таймером, пришлось обращения к переменным организовывать через сегментный регистр CS. Если такой префикс не добавлять, то по умолчанию используется DS. А вот DS как раз воспользоваться не получилось, так как он, почему-то изменяется. Вот это и оказалось для меня новостью. До сих пор я считал, что при входе в прерывание в стек закидывается регистр флагов и дальний адрес возврата – и больше ничего не происходит. А вот оказывается не так: может я что не так понял? То что в коде взято в {{{…}}} – этого для работы программы не нужно – это эксперимент, чтобы увидеть регистры в этой процедуре. На каждых машинах конечно по разному, но например, «лог-файл» выглядит так: 48 0E 40 00 00 B8 48 0E. Как видите DS=0040H, хотя я сам его не трогаю, а CS=0E48H. Код: .model tiny ; #################### .data? old_08h dd ? .data KLV db 0 jobTime db 0 place dw 0 ;************************************** CountList equ 11 List db 'ѓ ­гиЄ®ў  ћ«Ёп',13,10 db '‹ҐЇҐвоеЁ­ ЌЁЄ®« ©',13,10 db '‹®бЄгв®ў Ђа⥬',13,10 db 'Њ®«®Є ­®ў €ў ­',13,10 db 'џЄг­Ё­  Ћ«мЈ ',13,10 db 'ѓҐа бЁ¬Ґ­Є® Ђ«ҐЄб ­¤а',13,10 db 'Љг§­Ґж®ў Ђ«ҐЄб ­¤а',13,10 db '“⥯ЎҐаЈҐ­®ў …аб Ё­',13,10 db ' а®ў аЁ­ „Ґ­Ёб',13,10 db '‹®Ґ­Є® „¬ЁваЁ©',13,10 db '„㤮Ј® ‚ЁЄв®а$' ;************************************** ; #################### .code .startup ; ######## ############ mov ax,3 int 10h ;устанавливаем текстовый режим mov ah,9 mov dx,offset List int 21h ;выводим список, в данном случае, людей mov ah,2 mov bh,0 mov dx,1900h int 10h ;убираем курсор за пределы экрана mov ax,3508h int 21h mov word ptr old_08h,bx mov word ptr old_08h+2,es mov ax,2508h ;подменяем int 08h mov dx,offset int_08h ;{правильно потом назад возвращать - int 21h ;но запускаю из-под WINDOWS (так называемый NTVDM), поэтому считаю не зачем} mov ax,0b800h mov es, ax ;строки будем закрашивать напрямую в видеобуфер ;==================================== ;далее придумка следующая: ;давим любую клавишу (кроме Esc) происходит разгон лохотрона - переменная jobTime уменьшается до нуля, ;отпустили клавишу - переменная jobTime увеличивается до 150 - полный останов. ;все изменения этой переменной в таймере. RIS: ;с этой метки основной цикл mov ah, 0 mov al, jobTime mov bx, 10 div bl inc al mov ah,0 mov di, ax ;di = jobTime div 10 + 1 число для задержки (ниже) int 1ah mov bx,dx ;---------------------------- PAUSE: mov ah,1 int 16h jz PAUSE2 mov ah,0 ;если символ готов - извлекаем из очереди, int 16h cmp al, 1bh jz exit ;(Esc - выход) mov KLV,1 ;и пометка для таймера - что клавиша нажата PAUSE2: mov ah,0 int 1ah sub dx,bx cmp dx, di ;задержка - пока dx - bx < di jc PAUSE ;---------------------------- mov al, 07h call blood ;убираем цветную строку на предыдущем месте add place, 160 ;получаем адрес следующей строки, .if place == 160*CountList mov place, 0 ;с учетом закольцовки по количеству строк в списке .endif .if jobTime > 10 ;это место для красоты - чтобы видеть, когда достигли полного разгона, mov al, 17h ;т.е. пока job Time от 150 до 10 - цвет синий, .else ;если скорость разогналась от 10 до 0 - цвет зеленый. mov al, 27h .endif call blood cmp jobTime, 150 ;когда jobTime достигла 150 - выполняется останов, jc RIS ; т.е. зацикливание прекращается. ;==================================== mov al, 47h call blood ; выпавшая строка - заливается красным цветом mov ah,0 int 16h ; есть возможность повторить разгон любой клавишей, кроме Esc cmp al, 1bh jnz RIS ;==================================== exit: mov ax,3 ;если убрать эти строки: появлялась ошибка - int 10h ;"Системная ошибка NTVDM Параметр задан неверно" ;причем это связано с установкой курсора за пределы экрана - если там этого не делать, то и здесь не надо. ;{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ mov ah,3ch mov dx,offset file xor cx,cx int 21h mov bx,ax mov ah,40h mov dx,offset buf mov cx,8 int 21h mov ah,3eh int 21h ;}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} .exit 0 ;{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ file db '1.txt',0 buf dw 4 dup (?) ;}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} blood proc ;заливка текущей строки шириной в 21 знакоместо mov di, place inc di mov cx, 21 BLACK: mov es:[di], al add di,2 loop BLACK ret blood endp int_08h proc ;{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ mov cs:buf, cs mov cs:buf+2, ds mov cs:buf+4, es mov cs:buf+6, ss ;}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} ; push ds ; push cs ; pop ds .if cs:KLV ; если клавиша нажата: mov cs:KLV,0 ;то, во-первых, скидываем признак нажатия, .if cs:jobTime>=2 ;во-вторых, если разгон еще можно делать, то делаем dec cs:jobTime ; dec cs:jobTime .endif .elseif cs:jobTime<150 ;когд а клавиша не нажата и еще не подошел момент останова, то уменьшаем "скорость" inc cs:jobTime .endif ; pop ds jmp dword ptr cs:[old_08h] int_08h endp ; #################### END 2) Можно ли пользоваться нулевым прерыванием для обработки «переполнение при делении на ноль». Опять же чтобы не приняли меня за лодыря – я уже помучался (приложение 2). Примитивная мысль, которая меня посетила это скидывать бит переполнения в регистре флагов (настоящий обработчик я вызывать как раз не хочу, потому что он выбрасывает программу в DOS). Этот бит скидываю в своем обработчике нулевого прерывания. Там конечно может что лишнее, проще сказать черновик. Содержимое стека скидываю в «лог-файл». В файле следующее: 02 30 19 01 47 0E 02 32 11 01 47 0E 02 32. 02 30 – содержимое флага в обработчике до того, как я его изменяю 19 01 47 0E 02 32 – адрес возврата и флаг до того, как я его изменяю 11 01 47 0E 02 32 – адрес возврата и флаг после того, как я его изменил. Что здесь можно увидеть: Во-первых, 02 30 ни какого переполнения не вижу, а вот прерывания запрещены. Хотя если я не буду этот бит скидывать, то, однако работать не будет. Во флагах до захода в обработчик прерывания конечно разрешены : 02 32. А вот теперь с адресами возврата: 119h указывает на команду div bl, что собственно в литературе и говорится, т.е. на само деление. А вот когда я руки приложил к флагу, то 111h – совершенно левый адрес. Перед делением есть закомментированная команда stc – с ней все сразу же висит. Но если и без нее просто визуально вреда не видно, а так в памяти все портится как я понял (по крайней мере как я видел с адреса cs:0). Код: CCC SEGMENT ORG 100H BEGIN: ; ############################## comment % mov si,sp mov di,offset buf mov cx,6 rep movsb ; call vyvyod % ; скопировать адрес предыдущего обработчика в переменную old_handler mov ax,3500h ; АН = 35h, AL = номер прерывания int 21h ; функция DOS: считать ; адрес обработчика прерывания mov word ptr old_handler,bx ; возвратить ; смещение в ВХ mov word ptr old_handler+2,es ; и сегментный ; адрес в ES, ; обработчик ; (не забывайте, что ES изменился после вызова функции 35h!) ; установить наш обработчик mov ax,2500h ; АН = 25h, AL = номер прерывания mov dx,offset int_handler ; смещение в DX int 21h ; функция DOS: установить ;push cs ;pop es ; mov ax,5 ;stc mov bl,0 ;test bl,bl div bl mov ah,9 mov dx,offset stroka1 int 21h ;========================================= ; vyvyod: mov ah,3ch mov dx,offset file xor cx,cx int 21h mov bx,ax mov ah,40h mov dx,offset buf mov cx,14 int 21h mov ah,3eh int 21h ; ret ;========================================= mov ah,0 int 16h int 20h stroka1 db '¬л ҐйҐ §¤Ґбм$' stroka2 db '®Ўа Ў®взЁЄ' ,13,10,'$' old_h andler dd ? save dw 2 dup (?) int_handler proc ;========================================= ; comment % mov save,ds mov save+2,es mov ax, cs mov es, ax mov ds, ax ;% ;========================================= ; sti pushf mov si,sp mov di,offset buf mov cx,8 rep movsb mov bp,sp mov ah,[bp+2] and ah, 11110111b mov [bp+2], ah popf mov si,sp mov di,offset buf+8 mov cx,6 rep movsb mov ah,9 mov dx,offset stroka2 int 21h mov ds,save mov es,save+2 iret ;jmp dword ptr cs:[old_handler] int_handler endp file db '1.txt',0 buf db 14 dup (?) ; ############################## CCC ENDS END BEGIN

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

Отвечает: Airyashov Здравствуйте, Бартосик Феликс Михайлович! 1. т.к. прерывание может вызыватся из любой программы, у всех свой DS, то кто вам должен гарантировать какое-то значение в DS, если хотите использовать инициализируйте при в ходе в прерывание, только старое значение не портите.

Ответ отправил: Airyashov (статус: 10-ый класс) Ответ отправлен: 27.10.2008, 12:12 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148615 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 3 Комментарий оценки: Собственно говоря, я и сам заметил что DS изменился и его нужно инициализировать. Я предполагал узнать - что в нем за число и зачем. Кстати, ES и SS тоже в каждой программе свои, но они не изменились. Ну а про второй мой вопрос ни слова.

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