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

Выпуск № 1017
от 08.04.2008, 15:05

Вопрос № 130.252

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

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, LNEOl! Программа в приложении. Команды компилятора: TASM PROGR TLINK PROGR / t Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;переходим в текстовый режим start: mov ax,3 int 10h ;выводим приглашении к вводу mov ah,9 mov dx,offset dbEnter int 21h ;вводим строку mov ah,0ah mov dx,offset dbMax int 21h ;настраиваемся на строку ;число введенных символов xor ch,ch mov cl,dbSize ;куда будем писать mov di,offset dbSize ;откуда будем читать mov si,offset dbString ;корректируем строку вывода mov dbMax,':' ;направление cld ;цикл проверки isLoop: lodsb ;проверяем цифры cmp al,'0' jb isNoChar cmp al,'9' ja isNoChar ;цифру заменяем пробелом mov al,' ' ;записываем isNoChar: stosb loop isLoop ;маркер конца строки mov al,'$' stosb ;выводим результат mov ah,09h mov dx,offset dbResult int 21h ;ожидаем любую клавишу xor ax,ax int 16h ;выход ret dbResult db 13,10,'Result' dbMax db 100 dbSize db ? dbString db 100 dup(?) dbEnter db 13,10,'Enter:$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 130.272

Доброго времени суток, Уважаемые!!! У меня к Вам просьба, объясните мне, ПОЖАЛУЙСТА, (КАК МОЖНО ДОХОДЧИВЕЕ) как работает эта программа, которая производит чтение и сравнение системного времени по прерываниям от таймера, что это за цифры мы загружаем в регистры… . И напишите, ПОЖАЛУЙСТА, комментарии. СПАСИБО!!!:-) Приложение: .586 assume CS : code, DS:code code segment use16 org 100h main proc mov AX,3508h int 21h mov word ptr old_08,BX mov word ptr old_08+2,ES mov AX,2508h mov DX,offset new_08 int 21h mov AX,40h mov ES,AX mov EAX, ES : 6Ch add EAX,time_int mov time_end,EAX again: test flag,0FFh jnz ok mov AH,2h mov DL,'.' int 21h jmp again ok: mov AH,9h mov DX,offset msg int 21h lds DX,old_08 mov AX,2508h int 21h mov AX,4C00h int 21h main endp таймера new_08 proc pushf call CS:old_08 push EAX push ES mov AX,40h mov ES,AX mov EAX,ES:6Ch cmp EAX,CS:time_end jb ex inc CS:flag ex: mov AL,20h out 20h,AL pop ES pop EAX iret new_08 endp old_08 dd 0 time_int dd 18*2 time_end dd 0 flag db 0 msg db 'Время истекло !$' code ends end main

Отправлен: 02.04.2008, 20:44 Вопрос задала: Alena De Lon (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Alena De Lon! Программа работает так получает адрес старого обработчика 08h Перехватывает прерывание 08h своей подпрограммой new_08 Читает время из прараметров системы 40h:6Ch -лежит dword это счетчик таймера, прибавляет к нему значение 18*2, 1 сек в тактах прерывания часов 08h, сохраняет это значение в переменной окончания времени time_end затем устанавливает переменную flag в значение FFh и выводит точку пока flag не 0 когда flag=0, выводит сообщение, востанавливает перехваченное прерывание и завершается в обработчике прерывания 80h каждые 55мс усменьшается значение переменной flag

Ответ отправил: Airyashov (статус: 1-ый класс) Ответ отправлен: 02.04.2008, 21:51

Отвечает: Лысков Игорь Витальевич Здравствуйте, Alena De Lon! В приложении программа с подро-о-обными комментариями :) Если останется что-то непонятное, милости просим в мини-форум. Да, если запустить программу под Windows, то увидим слишком много точек. Явно больше 18*2... Этого не стоит пугаться. Дело в том, что если программу запустить под чистым ДОС-ом, то увидим ожидаемый результат. Там программа полностью владеет всеми ресурсами и работает практически одна. Но под Windows программа работает, можно сказать, под эмулятором ДОС-а, а он работает только тогда, когда ему выделится время! Отсюда значительные задержки... Удачи в освоении ассемблера... Приложение: ; Разрешение использовать команды 586 процессора. ; Нам надо для возможности работы с 32-битными регистрами EAX,... ; Вообще говоря, достаточно было и .386 .586 ; Указание ассемблеру связать сегментные регистры с сегментом code ; Это необходимо для того, чтобы ассемблер знал, как адресовать метки и переменные assume CS : code, DS:code ; Кодовый 16-битный (для ДОС) сегмент с именем code code segment use16 ; Указание установить начальный адрес 100h. ; Это необходимо для программ в формате COM org 100h ; Начало процедуры (по большому счету, необязательно оформлять, как процедуру) main proc ; Узнаем адрес прцедуры прерывания таймера ; AH=35h - ф-я чтения вектора, AL=8 - номер прерывания (8-таймер) mov AX,3508h int 21h ; Сохраняем результат ES:BX mov word ptr old_08,BX mov word ptr old_08+2,ES ; Устанавливаем новый вектор ; AH=25h - ф-я установки вектора, AL=8 - номер прерывания (8-таймер) ; DS:DX - адрес новой процедуры. У нас автоматом DS=CS mov AX,2508h mov DX,offset new_08 int 21h ; Заносим в ES адрес сегмента переменных БИОС-а mov AX,40h mov ES,AX ; Читаем текущее значение тиков таймера (двойное слово) по адресу ES:[6ch] ; Прерывание таймера каждые 55мс (18,2 раза в секунду) увеличивает это двойное слово на единицу mov EAX, ES : 6Ch ; Добавляем 18*2 тика. В одной секунде 18,2 тика. ; Т.е., формируем значение счетчика, которое будет примерно через 2 секунды add EAX,time_int ; Сохраняем для будущего анализа mov time_end,EAX ; Здесль начинается основной цикл ; Проверяем значение флага, циклим, пока 0 ; Изменение произойдет в прерывании таймера... again: test flag,0FFh ; проверяем, изменился, ли jnz ok ; Рисуем на экране точку, для этого используем ф-ю 2 (ah=2) mov AH,2h mov DL,'.' int 21h ; на повтор jmp again ; Кончились 2 секунды ok: ; Выводим сообщение "Время истекло !" mov AH,9h mov DX,offset msg int 21h ;Восстанавливаем старый вектор lds DX,old_08 mov AX,2508h int 21h ; Завершаемся mov AX,4C00h int 21h ; Конец основной процедуры main endp ; Процедура таймера new_08 proc ; Вызовем старый вектор по адресу в ячейке old_8 в сегменте cs ; CS указывать надо обязательно, потому что сегментный регистр DS ; может указывать куда угодно ; Т.к. это не просто процедура, а вектор прерывания, то сначала ; надо отправить в стек регистр флагов pushf call CS:old_08 ; Сохраним используемые регистры push EAX push ES ; Нам надо сегмент данных БИОС-а mov AX,40h mov ES,AX ; Читаем текщее число тиков mov EAX,ES:6Ch ; Сравниваем с конечным значением ; Переменная опять же адресуется через CS cmp EAX,CS:time_end ; Если меньше, то ничего не делаем jb ex ; Все! Взводим фдаг для выхода inc CS:flag ex: ; А вот следующие команды здесь лишние!!!! ; Они нужны для того, чтобы контроллер прерываний нормально восстановился ; после аппаратного прерывания таймера. ; Но это было уже сделано в старой процедуре таймера, которую мы вызвали ; внвчале! ;mov AL,20h ;out 20h,AL ; Восстанавливаем регистры pop ES pop EAX ; Возврат из прерывания iret ; Конец процедуры прерывания new_08 endp ; Данные old_08 dd 0 ; Здесь будем хранить адрес старого вектора time_int dd 18*2 ; Столько тиков будем ждать time_end dd 0 ; Здесь будем хранить конечное число тиков flag db 0 ; Флаг завершения msg db 'Время истекло !$' ; Сообщение ; Конец сегмента code ends ; Конец программы, указание на то, что стартовый адрес - main end main --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 03.04.2008, 10:28 Оценка за ответ: 5 Комментарий оценки: Игорь Витальевич, ОГРОМНОЕ СПАСИБО!!!:-) Буду теперь разбираться... . И Вам УДАЧИ!!!

Вопрос № 130.281

Последний заход по расстояние Левенштейна... Задача след. сделать данный алг. на ассембере, или переделать, то я я написал на Паскале на ассемблер, вернее сделать просто вставки. вот сам алг. int LevenshteinDistance(char s[1..n], char t[1..m]) declare int d[0..n,0..m] declare int i, j, cost for i := 0 to n d[i,0] := i for j := 0 to m d[0,j] := j for i := 1 to n for j := 1 to m if s[i] = t[j] then cost := 0 else cost := 1 d[i,j] := minimum(d[i-1,j ] + 1, // insertion d[i, j-1] + 1, // deletion d[i-1,j-1] + cost) // substitution return d[n,m] Код на Паскале const cuthalf = 100; // константа, ограничивающая макс. длину // обрабатываемых строк var buf: array[0..cuthalf * 2) - 1)] of integer; // рабочий буффер, заменяет // матрицу, представленную // в описании function min3(a, b, c: integer): integer; // вспомогательная функция begin Result := a; if b < Result then Result := b; if c < Result then Result := c; end; // реализация функции в принципе соответствует описанию с одной оговоркой: // матрица из описания заменена статическим буффером, длина которого // равна удвоенной максимальной длине строк // это сделано для 1) экономии памяти и во избежание её перераспределений // 2) повышения быстродействия (у меня функция работает // в обработчике onfilterRecord) // таким образом, в реализации половинами буффера представлены только // две последние строки матрицы, которые меняются местами каждую // итерацию внешнего цикла (по i)... для определения того, какая из половин // буффера является "нижней строкой", служит переменная flip // т. е. при flip = false первая половина буффера является предпоследней // строкой, а вторая - последней; при flip = true наоборот, // первая половина - последняя строка, вторая половина - предпоследняя function LeveDist(s, t: string): integer; var i, j, m, n: integer; cost: integer; flip: boolean; begin s := copy(s, 1, cuthalf - 1); t := copy(t, 1, cuthalf - 1); m := length(s); n := length(t); if m = 0 then Result := n else if n = 0 then Result := m else begin flip := false; for i := 0 to n do buf[i] := i; for i := 1 to m do begin if flip then buf[0] := i else buf[cuthalf] := i; for j := 1 to n do begin if s[i] = t[j] then cost := 0 else cost := 1; if flip then buf[j] := min3buf[cuthalf + j] + 1), (buf[j - 1] + 1), (buf[cuthalf + j - 1] + cost else buf[cuthalf + j] := min3buf[j] + 1), (buf[cuthalf + j - 1] + 1), (buf[j - 1] + cost; end; flip := not flip; end; if flip then Result := buf[cuthalf + n] else Result := buf[n]; end; end; П.С. Я переделал, но оно выдает неправильный результат вообще. Переделанный мною код в приложении Приложение: uses crt; const cuthalf = 100; var buf : array[0..((cuthalf*2)-1)] of Integer; a, b : string[cuthalf]; i : integer; function min3(a, b, c: integer): integer; begin asm mov ax,a mov bx,b mov cx,c cmp ax,bx jl @@1 mov ax,bx @@1: cmp ax,cx jl @@2 mov ax,cx @@2: mov @Result,ax end; end; function LeveDist(s, t: string): integer; var i, j, m, n : integer; cost : integer; flip : boolean; p:char; begin s := copy(s,1,cuthalf-1); t := copy(t,1,cuthalf-1); asm { m := length(s) } mov al,byte ptr s mov m, 0 mov byte ptr m ,al { n := length(t) } xor al,al mov n, 0 mov al, byte ptr t mov byte ptr n, al { if ( m = 0 ) } cmp m, 0 jnz @check_n { then Result := n } mov ax, n jmp @finish @check_n: cmp n, 0 jnz @go_for_cmp { else Result := m } mov ax, m jmp @finish @go_for_cmp: {for i := 0 to n do} mov flip, 0 mov i, 0 jmp @go_to_cycle_1 @cycle_1: inc word ptr i @go_to_cycle_1: mov ax, i mov di, ax shl di, 1 mov word ptr [buf+di], ax mov ax, i cmp ax, n jnz @cycle_1 {for i:= 1 to m do } mov i, 1 @cycle_2: cmp flip, 1 { 00 - false, 01- true } jnz @else { tyt mojet bit' drygaya metka} mov ax, i mov word ptr [buf], ax jmp @need_for_cycle_3 @else: mov ax, i mov word ptr buf[cuthalf], ax @need_for_cycle_3: { for j := 1 to n do } mov j, 1 @cycle_3: {if (s[i] = t[j] } push ds mov di, i shl di, 1 lds si, dword ptr s[di] pop ds push es push si mov si, j shl si, 1 les di, dword ptr t[si] pop si pop es mov ax, word ptr ds:[si] cmp word ptr es:[di], ax jnz @else1 mov cost, 0 jmp @1 @else1: mov cost, 1 @1: cmp flip, 1 jnz @2 push word ptr buf[cuthalf+j]+1 push word ptr buf[j-1]+1 mov ax, word ptr buf[cuthalf+j-1] add ax, cost push ax call min3 mov word ptr buf[j], ax jmp @go_for_end_cycle3 @2: push word ptr buf[j]+1 push word ptr buf[cuthalf+j-1]+1 mov ax, word ptr buf[j-1] add ax, cost push ax call min3 mov word ptr buf[cuthalf+j],ax @go_for_end_cycle3: inc j mov ax, word ptr n cmp word ptr j, ax jnz @cycle_3 not flip inc i mov ax, word ptr m cmp word ptr i, ax jnz @cycle_2 cmp flip, 1 jnz @3 mov ax, word ptr buf[cuthalf+n] jmp @finish @3: mov ax, word ptr buf[n] @finish: mov @Result,ax end; end; Begin clrscr; readln(a); readln(b); writeln('levedist=',levedist(a,b)); End.

Отправлен: 02.04.2008, 21:36 Вопрос задал: _Алексей Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Trulala Здравствуйте, _Алексей Сергеевич ! Смотрите текст программы в приложении. Trulala просил изменить ответ: Данные у нас в стеке, а мы обращаемся к ним с использованием DS по умолчанию. В функции LevenshteinDistance_asm нужно регистру DS присвоить значение SS или же указывать префикс переопределения сегмента при адресации SS:[bx+...] Нужно добавить четыре строки в функцию: function LevenshteinDistance_asm begin asm push ds mov ax,ss mov ds,ax ;DS:= SS ... pop ds end end; ----- ∙ Отредактировал: Boriss (Профессор) ∙ Дата редактирования: 07.04.2008, 17:34 Приложение: {int LevenshteinDistance(char s[1..n], char t[1..m]) declare int d[0..n,0..m] declare int i, j, cost for i := 0 to n d[i,0] := i for j := 0 to m d[0,j] := j for i := 1 to n for j := 1 to m if s[i] = t[j] then cost := 0 else cost := 1 d[i,j] := minimum(d[i-1,j ] + 1, // insertion d[i, j-1] + 1, // deletion d[i-1,j-1] + cost) // substitution return d[n,m] } {function Min_3(a,b,c:BYTE):BYTE; var Result:BYTE; begin Result:= a; if b < Result then Result:= b; if c < Result then Result:= c; Min_3:= Result; end; function LevenshteinDistance(s,t:STRING):BYTE; var d:array[0..10,0..10] of BYTE; n,m:BYTE; i,j:BYTE; cost:BYTE; begin n:= Length(s); m:= Length(t); for i:= 0 to n do d[i,0]:=i; for j:= 1 to m do d[0,j]:=j; for i:=1 to n do for j:= 1 to m do begin if s[i] = t[j] then cost:= 0 else cost:= 1; d[i,j]:= Min_3(d[i-1,j]+1, d[i,j-1]+1, d[i-1,j-1]+cost); end; LevenshteinDistance:= d[n,m]; end; } function Min_3_asm(a,b,c:BYTE):BYTE; begin asm push dx mov al,a mov ah,b mov dl,c cmp al,ah jl @cmp_c xchg al,ah @cmp_c: cmp al,dl jl @ret_al xchg al,dl @ret_al: mov [bp-1],al pop dx end end; function LevenshteinDistance_asm(s,t:STRING):BYTE; var n,m:BYTE; cost:BYTE; {d:array[0..n,0..m] of BYTE;} begin asm push ds mov ax, ss mov ds, ax { DS = SS} mov al,BYTE PTR s mov n,al { n:= Length(s); } mov ah,al inc ah mov al,BYTE PTR t mov m,al { m:= Length(t); } inc al mul ah {ax = (n+1)*(m+1)} mov dx,sp sub sp,ax { d:array[0..n,0..m] of BYTE; } mov bx,sp push dx mov ah,n mov al,0 xor di,di mov dl,m xor dh,dh inc dl @l1: { for i:= 0 to n do d[i,0]:=i; } mov [bx+di],al add di,dx inc al cmp al,ah jbe @l1 mov ah,m mov al,1 mov di,1 @l2: { for j:= 1 to m do d[0,j]:=j; } mov [bx+di],al inc di inc al cmp al,ah jbe @l2 mov cx,1 @ext_loop: { for i:=1 to n do } mov dx,1 @int_loop: { for j:= 1 to m do } mov si,cx push bx lea bx,s mov al,[bx+si] { s[i] } mov si,dx lea bx,t mov ah,[bx+si] { t[j] } pop bx mov cost,0 cmp al,ah je @find_min { if s[i] = t[j] then cost:= 0 else cost:= 1; } mov cost,1 @find_min: mov al,m inc al mov ah,cl dec ah mul ah mov si,ax add si,dx mov al,[bx+si] inc al xor ah,ah push ax { d[i-1,j]+1 } mov al,m inc al mul cl mov si,ax add si,dx dec si mov al,[bx+si] inc al xor ah,ah push ax { d[i,j-1]+1 } mov al,m inc al mov ah,cl dec ah mul ah mov si,ax add si,dx dec si mov al,[bx+si] mov ah,cost add al,ah xor ah,ah push ax { d[i-1,j-1]+cost } call Min_3_asm push ax mov al,m inc al mul cl mov si,ax add si,dx pop ax mov [bx+si],al { d[i,j]:= Min_3_asm(d[i-1,j]+1, d[i,j-1]+1, d[i-1,j-1]+cost); } inc dl cmp dl,m jbe @int_loop inc cl cmp cl,n jbe @ext_loop mov al,m inc al mov ah,n mul ah mov si,ax mov al,m xor ah,ah add si,ax mov al,[bx+si] { d[n,m] } pop sp pop ds {!!! Исправлено} mov [bp-1],al { LevenshteinDistance_asm:= d[n,m]; } end end; var s,t:STRING; ld:BYTE; begin s:= 'kot'; t:= 'kon*'; ld:= LevenshteinDistance_asm(s,t); end.

Ответ отправил: Trulala (статус: 1-ый класс) Ответ отправлен: 04.04.2008, 20:53 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за помощь

Вопрос № 130.304

Здравствуйте, уважаемые эксперты. При выполнении лабораторной работы столкнулся со следующей проблемой: не получается сделать переключение бита яркость фона/мерцание. Выкладываю код лабораторной полностью. Заранее спасибо. Приложение: IDEAL P386N MODEL small STACK 256 ;Макросы ;Макрос инициализации окна с цветом (N=0) или его скроллинг вверх на N-строк MACRO window N,attrib,y1,x1,y2,x2 mov ah,06h ;Функция инициализация окна или его скроллинг вверх mov al,N mov bh,attrib ;Атрибут цвета mov ch,y1 ;Координаты левого верхнего угла (у1,х1) mov cl,x1 mov dh,y2 ;Координаты правого нижнего угла (у2,х2) mov dl,x2 int 10h ENDM window ;Макрос позиционирования курсора в точку k-го локального окна "у-строка(row), ;х-столбец(col)" с запоминанием координат в памяти переменных: row_k,col_k MACRO locate y,x,k mov ah,02h ;Функция позиционирования курсора mov bh,0 ;Номер страницы mov dh,y mov dl,x mov [row_&k],dh mov [col_&k],dl int 10h ENDM locate ;Макрос вывода сообщения mes, длиной leng, атрибутом цвета attrib и с ;позиции (row_k,col_k), здесь k -номер окна. После вывода сообщения ;курсор перемещается в его конец. Если сообщение не укладывается в одну ;строку можно применить управляющие коды 10h (перевод строки) и 13h (возврат ;каретки) MACRO out_str mes,leng,attrib,k mov ah,13h mov al,1 ;Признак смещения курсора в конец строки mov bh,0 ;Номер видеостраницы mov bl,attrib mov cx,leng mov dh,[row_&k] mov dl,[col_&k] mov bp,offset mes ;Адрес строки ES:BP int 10h ENDM out_str ;WRITE crlf EQU 13,10,5 DUP(20h) DATASEG exCode DB 0 about DB 'Инициализировать экран и два локальных окна в нем. Организовать' DB crlf,' циклическое переключение бита "яркость фона/мерцание". Выход из' DB crlf,' программы восстанавливает значение бита по умолчанию' leng_about = $-about mes1 DB 'local window 1' leng_mes1 = $-mes1 mes2 DB 'local window 2' leng_mes2 = $-mes2 text1 DB 'text for window 1' leng_text1 = $-text1 text2 DB 'text for window 2' leng_text2 = $-text2 ASCIIchar DB ? attrib DB ? row_0 DB ? col_0 DB ? row_1 DB ? col_1 DB ? row_2 DB ? col_2 DB ? CODESEG Start: mov ax,@data ;Установка в ds адреса mov ds,ax ;сегмента данных mov es,ax ;es=ds ;Включение повышенной яркости экрана ; mov ax,1003h ;Вызов функции ; mov bl,0 ;Повышенная яркость ; int 10h locate 1,7,0 ;row_0=1, col_0=5 out_str about,leng_about,07h,0 ;Вывод сообщения mes0 ;Инициализация локального окна_1 с атрибутом 0C1h (синий по розовому) ;с координатами: (8,6)- левый верхний угол, (23,38)- правый нижний window 0,0C1h,8,6,23,38 locate 7,7,0 ;row_0=7, col_0=7 out_str mes1,leng_mes1,0Fh,0 ;Вывод сообщения mes1 locate 9,7,0 out_str text1,leng_text1,0C1h,0 ;Вывод сообщения text1 ;Инициализация локального окна_2 с атрибутом 0E4h (красный по жёлтому) ;с координатами: (10,42)- левый верхний угол, (23,76)- правый нижний window 0,0E4h,11,42,23,76 locate 10,43,0 ;row_0=7, col_0=7 out_str mes2,leng_mes2,0Fh,0 ;Вывод сообщения mes1 locate 12,43,0 out_str text2,leng_text2,0E4h,0 ;Вывод сообщения text1 mov ax,0C00h ;Очистка буфера клавиатуры int 21h continue: ;Включим мерцание mov ah,10h mov al,03h mov bl,1 ;Мерцание int 21h ; ;Введём задержку на 3 сек mov ah,0 ;Функция "чтения" циклов таймера int 1Ah ;Получаем значение счетчика циклов в cx:dx add dx,15 ;Добавляем 5 сек. к младшему слову в dx mov bx,dx ;Запоминаем требуемое значение в bx и выполняем ;постоянную проверку значений счетчика времени суток repeat: int 1Ah ;Вновь получаем значение счетчика cmp dx,bx ;Сравниваем с искомым jne repeat ;Если не равно, то повторяем снова, иначе задержка окончена ;Включим повышенную яркость mov ax,1003h ;вызов функции mov bl,0 ;повышенная яркость int 10h ;Введём задержку на 3 сек mov ah,0 ;Функция "чтения" циклов таймера int 1Ah ;Получаем значение счетчика циклов в cx:dx add dx,15 ;Добавляем 5 сек. к младшему слову в dx mov bx,dx ;Запоминаем требуемое значение в bx и выполняем ;постоянную проверку значений счетчика времени суток repeat2: int 1Ah ;Вновь получаем значение счетчика cmp dx,bx ;Сравниваем с искомым jne repeat2 ;Если не равно, то повторяем снова, иначе задержка окончена ;Анализ буфера клавиатуры функцией DOS 06h int 21h с целью её завершения нажатием ;произвольной клавиши mov ah,06h ;Функция ввода без ожидания mov dl,0FFh ;Ввод int 21h jnz out_program ;zf=0, есть символ, на выход jmp continue ;zf=1, символа нет, продолжим работу int 21h cmp ah,44h ;Нажата <F10>? je out_program ;Да out_program: ;Восстановим мерцание (по умолчанию) mov ax,1003h ;Вызов функции mov bl,1 ;Мерцание символа  int 10h int 21h ;Вызов DOS. Останов Exit: mov ah,04Ch ;Функция DOS 4Сh:выход из программы int 21h ;Вызов DOS остановки END Start ;Конец программы/точка входа

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

Отвечает: Airyashov Здравствуйте, Saidman! continue: ;Включим мерцание mov ah,10h mov al,03h mov bl,1 ;Мерцание какой бит устанавливайте 7? int 21h ;// сдесь 10h!!! BL 0 - бит D7 байта атрибутов управляет интенсивностью фона символов (символы не мигают), 1 - бит D7 байта атрибутов управляет миганием символов

Ответ отправил: Airyashov (статус: 1-ый класс) Ответ отправлен: 03.04.2008, 08:04 Оценка за ответ: 5 Комментарий оценки: спс))проглядел)

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