Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Ассемблер? Это просто! Учимся программировать" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2004   →
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30

Автор

Калашников Олег

Статистика

7.862 подписчиков
-1 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: программирование на языке Assembler

Информационный Канал Subscribe.Ru

---

RusFAQ.ru: программирование на языке Assembler

Выпуск № 766
от 06.09.2004, 11:10

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 5807 Отправлено ответов: 15594 Активность: 268.5 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

Tigran K. Kalaidjian Статус: Профессиональный Общий рейтинг: 185.06 URL: Персональная страничка [Подробней >>]	Алексей Статус: Доверительный Общий рейтинг: 150 [Подробней >>]	Александр Статус: Начальный Общий рейтинг: 153.84 [Подробней >>]
Евгений Иванов Статус: Профессиональный Общий рейтинг: 132.92 URL: Super Assembler Software Телефон: НСС +7 831 3107039 [Подробней >>]	SackTap Статус: Доверительный Общий рейтинг: 111.79 [Подробней >>]	_vt Статус: Профессиональный Общий рейтинг: 118.08 [Подробней >>]
Artemy Статус: Опытный Общий рейтинг: 108.51 Телефон: 8 905 549 38 66 [Подробней >>]	Bob Johnson Статус: Профессиональный Общий рейтинг: 134.71 URL: Программирование [Подробней >>]	bocha Статус: Профессиональный Общий рейтинг: 123.27 [Подробней >>]
Стас Статус: Опытный Общий рейтинг: 122.18 [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 5791. Доброго времени суток :))) 2Тигран : Вы без указанного ключа линковали успешно ? 2Александр : Это пр... (ответов: 1)
Вопрос № 5792. Господа, прошу прощения за беспокойство - до меня дошло :))) Если кому интересно : call dword ptr _l... (ответов: 2)
Вопрос № 5793. Можно ли создать окно нестандартной формы, в смысле не в виде прямоугольника а, например, в виде тре... (ответов: 6)
Вопрос № 5794. C funkciya s prototipom int decode2(int x, int y, int z); kompilirovana v assembler kod. The body... (ответов: 1)
Вопрос № 5795. Привет, извините, что не в тему! Помогите разобраться со следующей проблемой: В программе создается ... (ответов: 2)
Вопрос № 5796. Здравствуйте! Подскажите, пожалуйста, где взять информацию по режимам и распределению видеопамяти, к... (ответов: 3)
Вопрос № 5797. Здравствуйте уважаемые эксперты! Пишу в первый раз, так как все вопросы пытаюсь решить своими силами... (ответов: 3)
Вопрос № 5798. Здрасвуйте. Помогите разобраться в функции FindFirstFileEX. Чёто она не работает... (ответов: 1)
Вопрос № 5799. Приветсвую всех! Народ, пожалуйста подскажите как быть с мат. сопрпоцессором. Вот как он работает с... (ответов: 5)
Вопрос № 5800. Здравствуйте,подскажите как можно сделать чтобы патч не проверял CRC или ,как выставить в этом патче... (ответов: 3)

---

Вопросов: 10, ответов: 27

---

Вопрос № 5791

Доброго времени суток :)))
2Тигран : Вы без указанного ключа линковали успешно ?
2Александр : Это прыжок... Прыгать я умею :))) Меня вызов интересует...
2Алексей : А без сохранения руками в стеке call'ом никак ?
Я извиняюсь за назойливость, но ситуация такова :
Задали мне писать ... эээ ... "компилятор", причем в задании указано, что в тексте может встретиться межсегментный call... Меня не волнует, как ЕЩЕ можно сделать вызов :))) Вот я себе уже голову сломал - это у задание кривое или я такой тормоз...
Будьте так добры, убедите меня в первом :)))
Или, может, завалялся где-нить такой вызов загадочный ?..
Спасибо :)))
S/

---

Вопрос отправлен: 30.08.2004, 13:56
Отправитель: Sslash (assem@ukr.net)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Tigran K. Kalaidjian

Доброе время суток, Sslash!
По поводу части вопроса, которая мне предназначена. Ответ: да.

---

Ответ отправлен: 03.09.2004, 19:58
Отправитель: Tigran K. Kalaidjian

---

Вопрос № 5792

Господа, прошу прощения за беспокойство - до меня дошло :)))
Если кому интересно :
call dword ptr _label_
По адресу _label_ валяются сегмент:смещение
И никаких push, jmp, etc. :)))

---

Вопрос отправлен: 30.08.2004, 14:12
Отправитель: Sslash (assem@ukr.net)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Алексей

Доброе время суток, Sslash!
Однозначно, все гениальное просто ;)

---

Ответ отправлен: 30.08.2004, 16:49
Отправитель: Алексей

---

Отвечает Александр

Привет, Sslash!
№ 5792 - нет, не извиню. }:-Е```.
Ты замени в моём ответе "jmp far ptr @@Tst" на "call far ptr @@Tst" - работаить.
И всё!
ПОКА. Александр.
p.s.
Твой вариант ("call dword ptr") используеться в прерываниях.

---

Ответ отправлен: 30.08.2004, 18:09
Отправитель: Александр

---

Вопрос № 5793

Можно ли создать окно нестандартной формы, в смысле не в виде прямоугольника а, например, в виде треугольника или эллипса?

---

Вопрос отправлен: 30.08.2004, 18:50
Отправитель: geek
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Евгений Иванов

Доброе время суток, geek!
Можно.
Но обычно не нужно.

* EMan: -=- И легко перо, да на крышу не закинешь. =-=

---

Ответ отправлен: 01.09.2004, 14:12
Отправитель: Евгений Иванов

---

Отвечает SackTap

Доброе время суток, geek!
да, конечно, читайте документацию про регионы.

---

Ответ отправлен: 30.08.2004, 21:47
Отправитель: SackTap

---

Отвечает _vt

Доброе время суток, geek!
Кхм. Да. SetWindowRgn. Учти, что под ХР это некорректно работает - теряются стили ХР, хотя возможно, там нужно использовать дополнительные функции.

* Origin : Life begins at 1000Mhz!

---

Ответ отправлен: 02.09.2004, 23:54
Отправитель: _vt

---

Отвечает Александр

Доброе время суток, geek!
Посмотри файл: http://www.wasm.ru/src/1/rgn.zip
Александр.

---

Ответ отправлен: 31.08.2004, 07:13
Отправитель: Александр

---

Отвечает Artemy

Здравствуйте, geek!
Можно, используй SetWindowRegion.

---

Ответ отправлен: 31.08.2004, 09:10
Отправитель: Artemy

---

Отвечает Bob Johnson

Добрый день, geek!
Можно - создаешь регион любой (какой нужно) формы и вызываешь функцию
SetWindowRgn. Регион можно создать, например, с помощью: CreateRoundRectRgn

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 03.09.2004, 23:05
Отправитель: Bob Johnson

---

Вопрос № 5794

C funkciya s prototipom
int decode2(int x, int y, int z);
kompilirovana v assembler kod. The body of the code is
movl 16(%ebp), %eax
movl 12(%ebp), %edx
subl %eax, %edx
movl %edx, %eax
imull 8(%ebp), %edx
sall $31, %eax
sarl $31, %eax
xorl %edx, %eax
x, y, and z are stored in memory locations with ofsets 8, 12, and
16 relative to the address in register %ebp; and the returned value
is left in register %eax.
Pomogite pojaluisto napisat C code body that will have an equivalent effect to the
assembly language code.
Zaranee Spasibo Jenya.

---

Вопрос отправлен: 31.08.2004, 11:47
Отправитель: Jenya (welcome_to_m@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Алексей

Добрый день, Jenya!
int decode2(int x, int y, int z){
return (((z-y)*x) && 1)^(z-y);
}

---

Ответ отправлен: 31.08.2004, 12:13
Отправитель: Алексей

---

Вопрос № 5795

Привет, извините, что не в тему!
Помогите разобраться со следующей проблемой:
В программе создается список top-level окон (заголовок и хэндл). Все это выводится в listbox.
После выбора окна из списка и нажатия кнопки destroy (void inline OnDestroyWindow()) окно (приложение)
должно уничтожиться. Ну так вот - со всеми окнами, кроме окон проводника, это работает, окна проводника же
не закрываются... В чем тут может быть дело помимо кривых рук ;)
Спасибо всем сочувствующим. Ответ можно на ASM или ткните в MSDN.
З.Ы. Win98, VC6.0, код:
WORD CountOfWindows;
typedef struct _wininfo
{
char caption[256];
HWND hwnd;
} WININFO;
.
.
.
BOOL inline GetWindowsList(HWND hDlg)
{
CountOfWindows = 0;
ZeroMemory(WinInfo, sizeof(WININFO)*128);
WORD count = 0;
EnumWindows(EnumWindowsProc, NULL);
windows_list = GetDlgItem(hDlg, WINDOWS_LIST);
SendMessage(windows_list, LB_RESETCONT ENT, 0, 0);
while(WinInfo[count].hwnd)
SendMessage(windows_list, LB_ADDSTRING, 0, (LPARAM)(LPCTSTR)WinInfo[count++].caption);
return TRUE;
}
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
if(IsWindowVisible(hwnd) && GetWindowText(hwnd, WinInfo[CountOfWindows].caption, 256) && lstrcmp(WinInfo[CountOfWindows].caption, "Program Manager") && !GetParent(hwnd))
{
if(CountOfWindows)
for(int i = CountOfWindows; i; i--)
{
if(!lstrcmp(WinInfo[CountOfWindows].caption, WinInfo[i-1].caption))
{
WinInfo[CountOfWindows].caption[0] = '';
return TRUE;
}
}
WinInfo[CountOfWindows++].hwnd = hwnd;
}
return TRUE;
}
void inline OnDestroyWindow()
{
char data[256];
INT i = -1;
SendMessage(windows_list, LB_GETTEXT, SendMessage(windows_list, LB_GETCURSEL, 0, 0), (LPARAM)data);
while(WinInfo[++i].hwnd)
{
if(!lstrcmp(WinInfo[i].caption, data))
{
PostThreadMessage(GetWindowThreadProcessId(WinInfo[i].hwnd, NULL), WM_QUIT, 0, NULL);
return;
}
}
return;
}
P.S. Если повтор - sorry, подтверждения о доставке так и не получил...

---

Вопрос отправлен: 31.08.2004, 15:57
Отправитель: Nimnull
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Artemy

Доброе время суток, Nimnull!


Приложение:
.386 .model flat,stdcall option casemap:none IDM_HIDE equ 1 IDM_SHOW equ 2 IDM_ABOUT equ 3 IDM_EXIT equ 4 IDM_REFRESH equ 5 IDM_CLOSE equ 6 ID_TREEVIEW equ 101 include masm32includewindows.inc include masm32includeuser32.inc include masm32includekernel32.inc include masm32includecomctl32.inc includelib masm32libcomctl32.lib includelib masm32libuser32.lib includelib masm32libkernel32.lib WM_SUPERCLASS equ WM_USER+5 WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD ListProc PROTO :DWORD,:DWORD,:DWORD,:DWORD .data ClassName db "WindowsListClass",0 ListClassName db "LISTBOX",0 AppName db "Windows list",0 MenuName db "MainMenu",0 AboutText db "Windows hider v1.0(b)",00h,0Dh,0Ah IconName db "MAINICON",00h LClassName db "SysListView32",00h TClassName db "SysTreeView32", 00h ColumnTitle01 db "Text",00h ColumnTitle02 db "Class",00h ColumnTitle03 db "Handle",00h window_title db 256 dup(0) class_title db 256 dup(0) hwindow_text db '00000000h',00h .data? hInstance dd ? hL dd ? hTV dd ? cnt1 dd ? Item LV_ITEM <?> Column01 LV_COLUMN <?> Point POINT <?> WinRect RECT <?> TVItem TV_INSERTSTRUCT <?> OldProcAddr dd ? CurItem dd ? CurWindow dd ? F_Show dd ? .code start: invoke GetModuleHandle, NULL mov hInstance,eax invoke InitCommonControls invoke WinMain, hInstance,NULL,NULL, SW_SHOWDEFAULT invoke ExitProcess,eax WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL push hInst pop wc.hInstance mov wc.hbrBackground,COLOR_APPWORKSPACE mov wc.lpszMenuName,offset MenuName mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,hInst,offset IconName mov wc.hIcon,eax mov wc.hIconSm,eax invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName, WS_OVERLAPPEDWINDOW+WS_VISIBLE,CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL, hInst,NULL mov hwnd,eax .while TRUE invoke GetMessage, ADDR msg,NULL,0,0 .BREAK .IF (!eax) invoke TranslateMessage, ADDR msg invoke DispatchMessage, ADDR msg .endw mov eax,msg.wParam ret WinMain endp WndProc proc uses ebx edi hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM .if uMsg==WM_CREATE ; Создам листвьюв invoke CreateWindowEx,WS_EX_CLIENTEDGE,offset LClassName,NULL, WS_CHILD+WS_VISIBLE+LVS_REPORT ,5,5,330,200,hWnd,NULL, hInstance,NULL mov hL,eax invoke GetWindowLong, hL, GWL_WNDPROC mov OldProcAddr, eax invoke SetWindowLong, hL, GWL_WNDPROC, offset ListProc ; Добавляю колонки mov Column01.imask,LVCF_TEXT+LVCF_WIDTH mov Column01.iSubItem,0 mov Column01.fmt,LVCFMT_LEFT mov Column01.cchTextMax,255 mov Column01.lx,210 mov Column01.pszText,offset ColumnTitle01 invoke SendMessage, hL, LVM_INSERTCOLUMN, 0, offset Column01 mov Column01.iSubItem,1 mov Column01.lx,100 mov Column01.pszText,offset ColumnTitle02 invoke SendMessage, hL, LVM_INSERTCOLUMN, 1, offset Column01 mov Column01.iSubItem,2 mov Column01.lx,100 mov Column01.pszText,offset ColumnTitle03 invoke SendMessage, hL, LVM_INSERTCOLUMN, 2, offset Column01 BuildListLabel: ; Заполню список окон call BuildList xor eax,eax ret .elseif uMsg==WM_DESTROY invoke PostQuitMessage,NULL xor eax,eax ret .elseif uMsg==WM_COMMAND mov eax,wParam and eax,0FFFFh .if eax == IDM_EXIT invoke PostQuitMessage,NULL xor eax,eax ret .elseif eax == IDM_ABOUT invoke MessageBox,hWnd,offset AboutText, offset AppName, 48 xor eax,eax ret .elseif eax == IDM_REFRESH jmp BuildListLabel .elseif eax == IDM_SHOW mov F_Show,1 l_005: invoke SendMessage, hL, LVM_GETITEMCOUNT, 0, 0 cmp eax,0 je l_e001 mov ecx,eax l_001: push ecx mov eax,ecx dec eax mov CurItem,eax invoke SendMessage, hL, LVM_GETITEMSTATE, eax, LVNI_SELECTED cmp eax,LVNI_SELECTED jne l_002 mov eax,CurItem mov Item.iItem, eax mov Item.iSubItem,2 mov Item.pszText,offset window_title mov Item.cchTextMax,255 invoke SendMessage, hL, LVM_GETITEM, 0, offset Item push edi mov edi,offset window_title call Asci8ToDWord mov CurWindow,eax pop edi mov eax,F_Show cmp eax,1 jne l_004 invoke ShowWindow, CurWindow, SW_SHOWNORMAL jmp l_002 l_004: mov eax,F_Show cmp eax,2 jne l_006 invoke DestroyWindow, CurWindow jmp l_002 l_006: invoke ShowWindow, CurWindow, SW_HIDE l_002: pop ecx loop l_003 jmp l_e001 l_003: jmp l_001 l_e001: xor eax,eax ret .elseif eax == IDM_HIDE mov F_Show,0 jmp l_005 .elseif eax == IDM_CLOSE mov F_Show,2 jmp l_005 .endif .elseif uMsg==WM_SIZE invoke GetClientRect, hWnd, offset WinRect ;mov eax,WinRect.right ;sub eax,WinRect.left ;mov ecx,eax ;mov eax,WinRect.bottom ;mov ebx,2 ;div ebx ;push eax invoke SetWindowPos, hL, NULL, 0, 0, WinRect.right, WinRect.bottom, SWP_NOREPOSITION ;pop eax ;inc eax ;invoke SetWindowPos, hTV, NULL, 0, eax, WinRect.right, WinRect.bottom, SWP_NOREPOSITION xor eax,eax ret .else invoke DefWindowProc,hWnd,uMsg,wParam,lParam ret .endif xor eax,eax ret WndProc endp EnumWinFunc proc hWnd:HWND, lParam:DWORD invoke GetWindowText, hWnd, offset window_title, 255 invoke GetClassName, hWnd, offset class_title, 255 mov Item.imask, LVIF_TEXT mov eax,cnt1 mov Item.iItem, eax mov Item.iSubItem, 0 mov Item.pszText,offset window_title mov Item.cchTextMax,255 invoke SendMessage, hL, LVM_INSERTITEM, 0, offset Item mov eax,cnt1 mov Item.iItem, eax mov Item.iSubItem, 1 mov Item.pszText,offset class_title invoke SendMessage, hL, LVM_SETITEM, 0, offset Item push edi mov eax,hWnd mov edi,offset hwindow_text call OutHex32 pop edi mov eax,cnt1 mov Item.iItem, eax mov Item.iSubItem, 2 mov Item.pszText,offset hwindow_text invoke SendMessage, hL, LVM_SETITEM, 0, offset Item mov TVItem.hParent, TVI_ROOT mov TVItem.hInsertAfter, TVI_LAST ;mov TVItem.item. inc cnt1 mov eax, 1 ret EnumWinFunc endp BuildList proc mov cnt1, 0 invoke SendMessage, hL, LVM_DELETEALLITEMS, 0, 0 invoke EnumWindows, offset EnumWinFunc, eax ret BuildList endp ListProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM push eax push ebx push ecx push edx pop edx pop ecx pop ebx pop eax invoke CallWindowProc, OldProcAddr, hWnd, uMsg, wParam, lParam ret ListProc endp include OutHex.inc end start ; ; OutHex.inc ; OutHex32 proc push edi push ecx push eax add edi,7 mov ecx,8 OutHex32_l0: push eax and eax,0000000Fh add al,30h cmp al,39h jbe OutHex32_l1 add al,07h OutHex32_l1: mov [edi],al dec edi pop eax shr eax,4 loop OutHex32_l0 pop eax pop ecx pop edi ret OutHex32 endp OutHex16 proc push edi push ecx push eax add edi,3 mov ecx,4 OutHex16_l0: push eax and eax,0000000Fh add al,30h cmp al,39h jbe OutHex16_l1 add al,07h OutHex16_l1: mov [edi],al dec edi pop eax shr eax,4 loop OutHex16_l0 pop eax pop ecx pop edi ret OutHex16 endp OutHex8 proc push edi push ecx push eax inc edi mov ecx,2 OutHex8_l0: push eax and eax,0000000Fh add al,30h cmp al,39h jbe OutHex8_l1 add al,07h OutHex8_l1: mov [edi],al dec edi pop eax shr eax,4 loop OutHex8_l0 pop eax pop ecx pop edi ret OutHex8 endp Asci8ToDWord proc push ebx push ecx push edx push edi xor eax,eax xor ebx,ebx mov ecx,8 a8tdw_01: push ecx shl eax,4 mov bl,[edi] sub bl,30h cmp bl,9 jbe a8tdw_02 sub bl,7 a8tdw_02: add eax,ebx inc edi pop ecx loop a8tdw_01 pop edi pop edx pop ecx pop ebx ret Asci8ToDWord endp ;

---

Ответ отправлен: 31.08.2004, 17:47
Отправитель: Artemy

---

Отвечает Bob Johnson

Приветствую Вас, Nimnull!
а как ты их закрываешь-то?
можно попробовать посылать WM_CLOSE

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 03.09.2004, 23:05
Отправитель: Bob Johnson

---

Вопрос № 5796

Здравствуйте! Подскажите, пожалуйста, где взять информацию по режимам и распределению видеопамяти, как хранится информация о цвете; то есть как поставить, например, точку (100,50) красного цвета?

---

Вопрос отправлен: 31.08.2004, 18:46
Отправитель: iron (dimon4386@yandex.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Tigran K. Kalaidjian

Здравствуйте, iron!
У Зубкова http://www.bobjohnson.nm.ru/files/zubkov.zip
описание прерывания int 10h смотрите у Ральфа Брауна.
Вот список основных цветов:
000b black dark gray
001b blue light blue
010b green light green
011b cyan light cyan
100b red light red
101b magenta light magenta
110b brown yellow
111b light gray white

Нужная Вам программа - во вложении.

Приложение:
.model small .code main: mov ax, 0012h ;граф.режим (16 цветов) int 10h mov ah, 0Ch ;Вывести точку на экран xor bh,bh ; номер видеостраницы. mov dx, 100 ; номер строки mov cx, 50 ; номер столбца mov al, 100b ; номер цвета int 10h ; РИСОВАТЬ! mov ah, 00h ; ждем нажатия int 16h mov ax, 0003h ; текст. режим int 10h mov ah, 4ch ; выход int 21h end main

---

Ответ отправлен: 01.09.2004, 20:29
Отправитель: Tigran K. Kalaidjian

---

Отвечает Александр

Добрый день, iron!
Первое: надо указывать в каком режиме ставить точку. (|-)))).
Второе: у меня есть немного доков, пиши на yaamail@rambler.ru.
Чем могу - помогу.
С Уважением,
Александр.

---

Ответ отправлен: 01.09.2004, 09:58
Отправитель: Александр

---

Отвечает Алексей

Доброе время суток, iron!
Все просто. Бывает два типа графики (на самом деле больше).
Первый - через сервис БИОС: там максимум, который можно выжать - 640x480 16 цветов, 320x240 256 цветов. Если нужно "круче", то VESA. Там все посложней, но на самом деле тоже просто. Напиши мне clover@fromru.com, я тебе вышлю все, что нужно, даже с исходниками ;)

---

Ответ отправлен: 01.09.2004, 13:16
Отправитель: Алексей

---

Вопрос № 5797

Здравствуйте уважаемые эксперты! Пишу в первый раз, так как все вопросы пытаюсь решить своими силами (читай мозгами).
Изучаю АСМ по книге и там такое задание:Написать программу, генерирующую и отображающую последовательность первых 24 чисел в диапазоне от 1 до 46368:
1,1,2,3,5,8,13,21,34, и т.п.(каждое число после второй единицы - сумма двух предыдущих.
Проблема в отображении этой последовательности.
Всем огромное спасибо за ответы.
(прога для ДОС, Масм.)

Приложение:
.model small .stack 100h .data mult1 dw 1 mult2 dw 1 .code main proc mov ax,@data mov ds,ax mov cx,17h mov dx,mult1 start: add mult2,dx mov bx,mult2 add bx,dx mov dx,bx loop start mov ax,4c00h int 21h ;Выходим в ДОС main endp end main

---

Вопрос отправлен: 01.09.2004, 11:50
Отправитель: Johner
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Tigran K. Kalaidjian

Добрый день, Johner!
Читай RusFAQ.ru Assembler FAQ
http://kalaidjian.pochtamt.ru/rusfaq.rar
2All: сайт работал некорректно - сейчас выправил. Ох уж мне этот бесплатный хостинг - творят, что хотят...

---

Ответ отправлен: 01.09.2004, 20:08
Отправитель: Tigran K. Kalaidjian

---

Отвечает bocha

Добрый день, Johner!
напиши процедуру перевода числа в строку, алгоритм примерно такой: делим число на осрнование системы счисления, остаток - цифра, переводим ее в символ, заносим в массив, повторяем пока исходное число больше ноля, инвертируем массив.

---

Ответ отправлен: 01.09.2004, 13:46
Отправитель: bocha

---

Отвечает Алексей

Здравствуйте, Johner!
Держи процедурку ;) работает через биосовский сервис (даже дос не нужен) в eax запихиваешь число и вызываешь...

Приложение:
; DESCRIPTION: ; write value in decimal to stdout ; IN: ; eax - value ; OUT: ; nothing ; DESTROY: ; nothing decd proc pusha xor cx, cx mov ebx, 10 decd@1: xor edx, edx div ebx cmp edx, 0 je @decd@2 add dl, '0' mov dh, 0eh push dx inc cx jmp @decd@1 decd@2: cmp cx, 0 jne @decd@3 mov ax, 0e30h push ax inc cx decd@3: cmp cx, 0 je @decd@4 pop ax int 10h dec cx jmp @decd@3 decd@4: popa ret decd endp

---

Ответ отправлен: 01.09.2004, 13:10
Отправитель: Алексей

---

Вопрос № 5798

Здрасвуйте.
Помогите разобраться в функции FindFirstFileEX.
Чёто она не работает

Приложение:
.386 .model flat,stdcall .data filename db 'D:a.txt',0 FindExInfoStandard dd 0 data db 50 dup(?) .code start: run FindFirstFileEx,offset fileName,FindExInfoStandard,data,1,0,0 cmp eax,INVALID_HANDLE_VALUE jz exit run MessageBox,0,0,0,0 exit: push 0 call ExitProcess end start

---

Вопрос отправлен: 01.09.2004, 18:02
Отправитель: Семен
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Алексей

Доброе время суток, Семен!
как-будто все правильно на первый взгляд... не пробовал в пути после двоеточия слэш ставить (D:a.txt)

---

Ответ отправлен: 02.09.2004, 13:21
Отправитель: Алексей

---

Вопрос № 5799

Приветсвую всех!
Народ, пожалуйста подскажите как быть с мат. сопрпоцессором. Вот как он работает с данными заранее вещ. числами это вроде как-то понятно, а вот что же делать, если надо их вводить вручную с клавиатуры? Ведь получается, что вводиться последовательность символов - то бишь уже строка. если бы эта строка не содержала буквенных символов, то тады спокойно можно было бы перевести её в число, но тут же имеется символ "е". Как же быть в таком случае с ним-то? Я же не могу ввести строку в стек и далее работать с ней. Или же может есть какой-либо другой способ для пересылки таких вот данных в стек?
Please, подскажите что именно я здесь не доганяю и как же решить эту проблему-то.
Заранее благодарю.

---

Вопрос отправлен: 01.09.2004, 23:41
Отправитель: Tiana (ptaniya@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Александр

Добрый день, Tiana!
Действительно, ты кое-чего не "догоняеш".
Попытаюсь исправить:
Первое. Строку в любом случае надо сначало обработать - иначе злобный хакер может взорвать [со]процессор! ;)
Второе. Строка в стеке сопроцессора хранится в двоичном виде и мантисса - это 22-52 бита. Без всяки 'e'/'E'/'**' etc.
Дальше - сама.
Желаю моря удачи и дачи у моря.
Александр.

---

Ответ отправлен: 02.09.2004, 17:45
Отправитель: Александр

---

Отвечает Bob Johnson

Здравствуйте, Tiana!
надо писать процедуру перевода строки в вещественное число :)
то, что до "е" ты переводишь в обычное число, затем то, что после "е" тоже переводишь в другое число и затем умножаешь первое на 10 в степени второе

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 03.09.2004, 23:05
Отправитель: Bob Johnson

---

Отвечает Евгений Иванов

Добрый день, Tiana!
Милая моя, есть такая классная библиотека для HLA.
Это Ассемблер.
В ней есть все функции для работы со строчками, с числами и т.п.
Вот, скачивай с моего сайта:
http://superforest.narod.ru/add/hlalibsrc.rar
160 Кб, в распакованном виде 1.3 Мб.
В каталоге "conv" смотри эти функции.
Смотри подробнее файл "atof.hla".
/************************************************************/
/* */
/* atof- */
/* */
/* ESI points at a string of characters that represent a */
/* floating point value. This routine converts that string */
/* to the corresponding FP value and leaves the result on */
/* the top of the FPU stack. On return, ESI points at the */
/* first character this routine couldn't convert. */
/* */
/* Like the other ATOx routines, this routine raises an */
/* exception if there is a conversion error or if ESI */
/* contains NULL. */
/* */
/************************************************************/
Там всё на Ассемблере, так что бери и пользуйся, переводить в другой формат ассемблера несложно.
Удачи, Таня.
зы. появись в icq, пожалуйста! мне хочется с тобой пообщаться. ;)
Как у вас погода в Ташкенте?

* EMan: -=- И легко перо, да на крышу не закинешь. =-=

---

Ответ отправлен: 02.09.2004, 00:17
Отправитель: Евгений Иванов

---

Отвечает bocha

Здравствуйте, Tiana!
я в таких случаях пользуюсь includelib LIBC.LIB, там есть такая замечательная ф-я atof()

---

Ответ отправлен: 02.09.2004, 01:22
Отправитель: bocha

---

Отвечает Алексей

Добрый день, Tiana!
Ну все это конечно хорошо. Но:
1. При вводе строки можно попросить вводить без символов E, тогда все проблемы решены (хотя не все).
2. Если есть Е, то необходимо делать строчный разбор. Это сложный процесс...
3. Строку можно привести к двум целым числам: дробная часть (то, что после запятой) и, собственно, мантисса (то, что после Е). Например: введено число 123,456e2 нужно сначала нормализовать, т.е. 0,123456e5, а далее разбиваем на заветные 2 числа: 123456 и 5. После этого загружаем в st[0] первое число, а в st[1] второе число, возводим 10 в степень st[1] и умножаем полученное число на st[0]. В итоге имеем наше число в регистре мат. сопроцессора st[0]. Можно конечно не делать этих вычеслений, тогда мы должны знать формат, в котором хранится число в st[0] и грузить непосредственно в память. Если процесс непонятен - пиши на мыло, пришлю пример.

---

Ответ отправлен: 02.09.2004, 10:11
Отправитель: Алексей

---

Вопрос № 5800

Здравствуйте,подскажите как можно сделать чтобы патч не проверял CRC или ,как выставить в этом патче CRC нужного мне EXE файла.Если можно подскажите как это сделать или посоветуйте что-то еще.Спасибо

---

Вопрос отправлен: 02.09.2004, 11:02
Отправитель: Станислав (STAS4may@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Стас

Добрый день, Станислав !
Подсчитать самому и подставить CRC в патч.
Или перепрыгнуть проверку CRC, это дебагерром.

---

Ответ отправлен: 02.09.2004, 15:54
Отправитель: Стас

---

Отвечает _vt

Здравствуйте, Станислав !
Нужно найти переход к процедуре проверки, и поменять 75 на EB - проще некуда! ;-))

* Origin : Life begins at 1000Mhz!

---

Ответ отправлен: 02.09.2004, 23:54
Отправитель: _vt

---

Отвечает Алексей

Приветствую Вас, Станислав !
Если говорить напрямую, то в патчах обычно проверяется CRC только в случае, если этот патч может повредить файл .ЕХЕ. Ну, а если, рассматривать вопрос с твоей точки зрения: тебе нужно найти место в патче, где лежит этот CRC, пересчитать CRC твоего файла и записать туда. Это не сложно, если в программе используется стандартный метод подсчета CRC. А если нет, топридетсяискать формулу пересчета все в том же EXE... Это уже непросто. Проще отключить проверку на CRC. Для этого в EXEхе нужно искать место проверки этого CRC - это не просто, но возможно. И будет проще всего. Берешь Дизассемблер в руки (или SoftIce) и понеслась! Только ты скорее всего ничего не добъешься, потому как, если даже отключишь проверку - конечная программа скорее всего будет глючить ;(

---

Ответ отправлен: 02.09.2004, 13:17
Отправитель: Алексей

---

---

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (27) C / C++ (15) Perl (6) Builder / Delphi (13) Pascal (22) Basic / VBA (4) Java / JavaScript (5) PHP (15) Криптография (7) WinAPI (13) Радиоэлектроника (12)

Пользователю Windows 95/98/Me (48) Windows NT/2000/XP (63) "Железо" (42) Поиск информации (20)

Администратору Windows NT/2000/XP (39) Linux / Unix (14)

Юристу Гражданское право (10) Семейное право (7) Трудовое право (9) КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-2004 Россия, Москва. Дизайн, программирование: Калашников О.А.

---

http://subscribe.ru/ http://subscribe.ru/feedback/

Подписан адрес: Код этой рассылки: comp.soft.prog.faq

Отписаться

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}