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

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

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

←   Июль 2004   →
			1	2	3	4
5	6	7	8	9	10 10.07.2004 00:43:23 21:40:12	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31

Автор

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

Статистика

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

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

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

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

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

---

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

Выпуск № 752
от 21.07.2004, 19:30

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

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

---

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

Стас Статус: Опытный Общий рейтинг: 126.21 [Подробней >>]	Евгений Иванов Статус: Профессиональный Общий рейтинг: 133.43 URL: Super Assembler Software Телефон: НСС +7 831 3107039 [Подробней >>]	_vt Статус: Профессиональный Общий рейтинг: 118.3 [Подробней >>]
Tigran K. Kalaidjian Статус: Профессиональный Общий рейтинг: 193 URL: Оптимизация ПК [Подробней >>]	Dragoon Статус: Доверительный Общий рейтинг: 107.86 [Подробней >>]	bocha Статус: Опытный Общий рейтинг: 133.12 [Подробней >>]
Горячев Игорь Статус: Начальный Общий рейтинг: 112.67 [Подробней >>]	Bob Johnson Статус: Профессиональный Общий рейтинг: 136.63 URL: Программирование [Подробней >>]	Ayl Статус: Профессиональный Общий рейтинг: 116.56 [Подробней >>]
PavPS Статус: Начальный Общий рейтинг: 117.85 [Подробней >>]	flasher Статус: Доверительный Общий рейтинг: 105.51 [Подробней >>]

---

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

Вопрос № 5600. Привет. Я начинающий. Только взялся за первый урок и вот такая ошибка в таком примере: CSEG segment ... (ответов: 4)
Вопрос № 5601. Здравствуйте, уважаемые эксперты! Подкинте алгоритмик рисования линии на Ассемблере, ну типо алгорит... (ответов: 5)
Вопрос № 5602. Привет всем! У меня 2 вопроса. 1)Как удалить саму себя?(я так понял нет такой функции, типа: DeleteM... (ответов: 5)
Вопрос № 5603. Здравствуйте, уважаемые эксперты! Программа должна читать данные из com-порта и выводить их на экран... (ответов: 1)
Вопрос № 5604. Доброе время суток! У меня возник вопрос слудающего содержания. Как вызвать BSOD ("синий экран ... (ответов: 1)
Вопрос № 5605. Решил изучать асм. Вот как и все, наверное, начал с регистров. Только плохо понял. Объяснить пожалуй... (ответов: 5)
Вопрос № 5606. Здравствуйте, уважаемые Эксперты. Не могли бы вы мне сказать, как можно послать на аську сообщение..... (ответов: 3)
Вопрос № 5607. Доброго дня ув.Экспкрты.. Вопросик такой… Как можно программно отправить сообщение на ICQ (корп)? Ка... (ответов: 1)

---

Вопросов: 8, ответов: 25

---

Вопрос № 5600

Привет. Я начинающий. Только взялся за первый урок и вот такая ошибка в таком примере:
CSEG segment
org 100h
Begin:
mov ah,9
mov dx,offset Message
int 21h
int 20h
Message db 'Hello, world!$'
CSEG ends
end Begin
1. На masm
Assembling: 1.asm
Microsoft (R) Incremental Linker Version 6.00.8168
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.
/z2
"1.obj"
"1.exe"
NUL
LINK : warning LNK4044: unrecognized option "z2"; ignored
1.obj : warning LNK4033: converting object format from OMF to COFF
1.obj : fatal error LNK1190: invalid fixup found, type 0x0001
2. На tasm:
TASM Assembler. Version 3.2 September, 2001.
Copyright (C) 2001 Squak Valley Software
tasm: pass 1 complete.
1.asm line 0001: Label not found: (CSEG)
1.asm line 0001: label value misalligned. (CSEG)
1.asm line 0001: unrecognized instruction. (CSEG)
1.asm line 0002: Label not found: (org)
1.asm line 0002: label value misalligned. (org)
1.asm line 0002: unrecognized directive. (org)
1.asm line 0006: unrecognized instruction. (MOV)
1.asm line 0007: unrecognized instruction. (MOV)
1.asm line 0008: unrecognized instruction. (INT)
1.asm line 0010: unrecognized instruction. (INT)
1.asm line 0012: Label not found: (Message)
1.asm line 0012: label value misalligned. (Message)
1.asm line 0012: unrecognized instruction. (Message)
1.asm line 0014: Label not found: (CSEG)
1.asm line 0014: label value misalligned. (CSEG)
1.asm line 0014: unrecognized instruction. (CSEG)
1.asm line 0015: Label not found: (end)
1.asm line 0015: label value misalligned. (end)
1.asm line 0015: unrecognized instruction. (end)
line 0015: No END directive before EOF.
Объясните пожалуйста.

---

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

---

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

Доброе время суток, Ян!
У тебя вероятно "старый" MASM и "новый" LINK (судя по сообщению). С "родным" компилится без проблем:
c:>ml /AT l.asm
Assembling: l.asm
Microsoft (R) Segmented-Executable Linker Version 5.13
Copyright (C) Microsoft Corp 1984-1991. All rights reserved.
Object Modules [.OBJ]: l.obj/t
Run File [l.com]: "l.com"
List File [NUL.MAP]: NUL
Libraries [.LIB]:
Definitions File [NUL.DEF]: ;
==========================================================
Что касается TASMа - то же самое - он такой "древний" что требует "правильного" написания пограммы. А "правильно" это так: если первый символ строки не пробел значит это метка.
Соответсвенно все твои команды вопринимаются как метки причем неправильные. TASM 4.1 уже компилит без проблем.

---

Ответ отправлен: 16.07.2004, 00:24
Отправитель: Стас

---

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

Здравствуйте, Ян!
в TASM-е нужно писать сначала директиву, потом параметры.
Что правильно, нежели у других.
Бывай.

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 16.07.2004, 11:30
Отправитель: Евгений Иванов

---

Отвечает _vt

Приветствую Вас, Ян!
1) Скачай более старую версию link.exe, которая умеет создавать com-файлы. Например, у меня при вызове ml /AT hello.asm происходит следующее:

Assembling: hello.asm
Microsoft (R) Segmented Executable Linker Version 5.31.009 Jul 13 1992
Copyright (C) Microsoft Corp 1984-1992. All rights reserved.
Object Modules [.obj]: hello.obj /t
Run File [hello.com]: "hello.com"
List File [nul.map]: NUL
Libraries [.lib]:
Definitions File [nul.def]:

2)
> TASM Assembler. Version 3.2 September, 2001. Copyright (C) 2001 Squak Valley Software
Какой-то странный у тебя TASM! Вообще-то, должно быть так:

Turbo Assembler Version 5.0r Copyright (c) 1988, 1996 Borland International
Serial No: Tester:
Assembling file: hello.ASM
Error messages: None
Warning messages: None
Passes: 1
Turbo Link Version 7.1.30.1. Copyright (c) 1987, 1996 Borland International


* Origin : Life begins at 1000Mhz!

---

Ответ отправлен: 15.07.2004, 20:51
Отправитель: _vt

---

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

Приветствую Вас, Ян!
У меня TASM не выдаёт ошибок. Обновите компилятор и линкер к нему родной поставьте.

---

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

---

Вопрос № 5601

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

---

Вопрос отправлен: 15.07.2004, 21:37
Отправитель: Vitaliy (Lytonin@rambler.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Dragoon

Здравствуйте, Vitaliy!
Есть в книге Р.Уилтона "Видеосистемы персональных компьютеров"

---

Ответ отправлен: 17.07.2004, 12:04
Отправитель: Dragoon

---

Отвечает bocha

Доброе время суток, Vitaliy!
Берешь тот самый алгоритм Брэзенхама, и каждую его строку переводишь в инструкции асма, алгоритм не зависит от используемого языка программирования. Вот когда возникнет конкретный вопрос по реализации этого алгоритма, тогда и задавай его, а исходник в любом поисковике найти можно.

Приложение:
;в досе рисует горизонтальную линию в графическом режиме(masm) horline proc near ;es - текущее окно видеопамяти ;di - адрес начала линии ;cx - длина ;al - цвет mov ah, al push ax shl eax, 16 pop ax push dx mov dx, di add dx, cx jc @F xor dx, dx @@: sub cx, dx shr cx, 1 jnc @F stosb @@: shr cx, 1 jnc @F stosw @@: rep stosd or di,di jnz @1 call NextWindow mov cx, dx shr cx, 1 jnc @F stosb @@: shr cx, 1 jnc @F stosw @@: rep stosd @1: pop dx retn horline endp

---

Ответ отправлен: 16.07.2004, 04:51
Отправитель: bocha

---

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

Доброе время суток, Vitaliy!
;IN->w[KX],w[KY]-первая точка; CX,DX-вторая точка; b[INK]-цвет;
proc Line ;=l1 =======================================
pusha
mov bx,101h
mov ax,cx
sub ax,wptr [bp+KX-dat]
jnc m10l1
mov bh,-1
neg ax
m10l1:
mov cx,ax
push dx
mov dx,3CEh
mov ax,205h
out dx,ax
pop ax
sub ax,wptr [bp+KY-dat]
jnc m20l1
mov bl,-1
neg ax
m20l1:
mov dx,ax
line_all:
mov wptr [bp+Zip1-dat],bx
cmp cx,dx
jnc m25l1
mov di,cx
sub bh,bh
jmp m30l1
m25l1:
or cx,cx
jz m90l1
mov di,dx
mov dx,cx
sub bl,bl
m30l1:
mov si,dx
mov ax,dx
shr ax,1
m33l1:
add ax,di
jc m35l1
cmp ax,si
jc m37l1
m35l1:
sub ax,si
mov cx,ax
push cx dx
mov cx,wptr [bp+Zip1-dat]
jmp m40l1
m37l1:
mov cx,ax
push cx dx bx
pop cx
m40l1:
movsx dx,cl
movsx cx,ch
add dx,wptr [bp+KY-dat]
add cx,wptr [bp+KX-dat]
mov wptr [bp+KX-dat],cx
mov wptr [bp+KY-dat],dx
push bx ;Рисуем точку
mov bx,cx
shr bx,3
imul ax,dx,Xmax/8
add bx,ax
mov al,[es:bx]
mov dx,3CEh
and cl,7
mov ax,8008h
shr ah,cl
out dx,ax
mov cl,bptr [bp+INK-dat]
mov [es:bx],cl
pop bx ;
pop dx cx
mov ax,cx
dec dx
jnz m33l1
m90l1:
mov dx,3CEh
mov ax,0FF08h
out dx,ax
jcxz $+2
mov ax,5
out dx,ax
popa
ret
endp

* EMan: -=- Любовь существует! =-=

---

Ответ отправлен: 16.07.2004, 11:31
Отправитель: Евгений Иванов

---

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

Здравствуйте, Vitaliy!
Hаиболее общий метод изобpажения линий включает использование алгоpитма Бpезенхама. Хотя основой в нем слyжит также отношение междy pасстояниями по кооpдинатам X и Y, в данном слyчае не тpебyется выполнять деление или вычисление чисел с плавающей точкой. Вместо этого, отношение междy значениями кооpдинат X и Y пpедставляется косвенным обpазом чеpез сеpии сложений и вычитаний. Основной идеей алгоpитма Бpезенхама, является pегистpация сpедних значений погpешностей междy идеальным положением каждой точки и той позицией на экpане дисплея, в котоpой она действительно отобpажается. Погpешность междy идеальным и действительным положением точки возникает ввидy огpаниченных возможностей технических сpедств. Фактически не сyществyет дисплеев с бесконечно большой pазpешающей способностью, и, следовательно, действительное положение каждой точки на линии тpебyет наилyчшей аппpоксимации. В каждой итеpации цикла вычеpчивания линии вызываются две пеpеменные xerr и yerr, котоpые yвеличиваются в зависимости от изменения величин кооpдинат X и Y соответственно. Когда значение погpешности достигает опpеделенного значения, оно вновь yстанавливается в исходное положение, а соответствyющий счетчик кооpдинат yвеличивается. Этот пpоцесс пpодолжается до тех поp, пока линия не бyдет полностью вычеpчена. Фyнкция line(), пpиведенная ниже, pеализyет этот метод. Перевод на ассемблер не доставляет труда, но несколько усложняет понимание.
Фyнкция mempoint() выполняет отобpажение точки на экpане теpминала – она описывается отдельно.


Приложение:
/* Вычеpчивание линии заданного цвета с использованием алгоpитма Бpезенхама */ void line(startx,starty,endx,endy,color) int startx,starty,endx,endy,color; { register int t,distаnce; int xerr=0,yerr=0,delta_x,delta_y; int incx,incy; /* вычисление pасстояния в обоих напpавлениях */ delta_x=endx-startx; delta_y=endy-starty; /* опpеделение напpавления шага, шаг вычисляется либо по веpтикальной, либо гоpизонтальной линии */ if (delta_x>0) incx=1; else if (delta_x==0) incx=0; else incx= -1; if (delta_y>0) incy=1; else if (delta_y==0) incy=0; else incy= -1; /* опpеделение какое pасстояние больше */ delta_x=abs(delta_x); delta_y=abs(delta_y); if (delta_x>delta_y) distance=delta_x; else distance=delta_y; /* вычеpчивание линии */ for (t=0; t<=distance+1; t++) { mempoint(startx,starty,color); xerr+=delta_x; yerr+=delta_y; if (xerr>distance) { xerr-=distance; startx+=incx; } if (yerr>distance) { yerr-=distance; starty+=incy; } } }

---

Ответ отправлен: 16.07.2004, 09:59
Отправитель: Tigran K. Kalaidjian

---

Отвечает Горячев Игорь

Доброе время суток, Vitaliy!
А чем тебя не устраивают кривые Безье, реализованные в WinAPI?
В общем виде кривые Безье описываются так (параметрическое описание с параметром t):
x = Px(t) = сумма по i от 0 до m следующих слагаемых:
число сочетаний из m по i умноженное на t в степени i умноженное на (1-t) в степени m-i умноженное на Xi (Xi - координата точек-ориентиров. Именно точками-ориентирами надо баловаться, чтоб получить сложную кривую)
y вычисляется аналогично, заменяя везде x на y
Надеюсь, все понятно :)
Геометрический алгоритм для кривой Безье:
Этот алгоритм позволяет вычислить координаты (x,y) точки кривой по параметру t.
1. Каждая сторона контура многоугольника, проходящего по точкам-ориентирам, делиться пропорционально значению t
2. Точки деления соединяются отрезками прямых и образуют новый многоугольник. Количество узлов нового многоугольника на единицу меньше, чем в предыдущем.
3. Стороны нового контура снова делятся пропорционально t, И так далее. Это продолжаеться до тех пор, пока не будет получена единственная точка деления. Эта точка и будет точкой кривой.
Да, 0<=t<=1
Удачи!

---

Ответ отправлен: 16.07.2004, 23:10
Отправитель: Горячев Игорь

---

Вопрос № 5602

Привет всем!
У меня 2 вопроса.
1)Как удалить саму себя?(я так понял нет такой функции, типа: DeleteMe :})
2)Как замутить определённое действие в обределённый день?
вот что я делаю:
.data
data db '1607',0
date db 'ddMM',0
gf dd ?
.code
push sizeof gf
push offset gf
push offset date
push 00h
push 00h
push 00h
call GetDateFormatA ;получаю дату
;сравниваю
mov edi,offset data
push edi
or ecx,-1
xor eax,eax
repnz scasb
mov esi,offset gf
pop edi
repz cmpsb
ja _G0
je _G0
на первый взгляд, вроде номано, но если data db '1607',0 поменять на data db '1508',0 - серавно будет выполнять действие _G0. Как разрешить эту проблему?
Благодарю заранее.
p.s.Tigran K. Kalaidjian, барев земляк ;)

---

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

---

Отвечает Bob Johnson

Добрый день, Flashik!
1. По теме есть хорошая статья в MSDN, написанная с умеренной долей юмора. В общем, наилучшый вариант - это использование bat-файлов. Только бат файл может беспрепятственно удалить себя (а также все, что нужно). Т.е. твоя программа создает бат файл и настраивает его на удаление этой программы, а после - самого себя.
Под 9х еще есть возможность выгрузить процесс с помощью FreeLibrary, после чего удалить (код при этом должен находиться в независимом участке памяти).

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

---

Ответ отправлен: 20.07.2004, 12:39
Отправитель: Bob Johnson

---

Отвечает Ayl

Здравствуйте, Flashik!
2. Вариантов 2. Первый - считать разницу между двумя датами и выполнять, если она равна 0 (долго и неудобно). Второй - изменить формат дат для сравнения. Например, поменять месяц и день. В таком формате даты будут упорядочены в течении одного года и 15 августа будет по-любому больше 16 июля. А в тво текущий алгоритм будет работать только в пределах одного месяца, т.к. при сравнении 15 августа (1508) и 16 июля (1607) будет обнаружено, что 6 > 5, т.е. 16 > 15, т.е. 1608 > 1507 (что правильно в числах), т.е. 16 июля > 15 августа (что неправильно). При обратном же порядке записи 8 > 7, т.е. 0815 > 0716 (что правильно в числах), т.е. 15 августа > 16 июля (что также правильно). Можно еще добавить год, тогда можно сравнивать любые даты.

---

Ответ отправлен: 19.07.2004, 13:47
Отправитель: Ayl

---

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

Приветствую Вас, Flashik!
Держи. Но учти, что работает только под XP.
В 98 GetDateFormatA дату не возвращает.

Приложение:
.data data db '1907',0 date db 'ddMM',0 gf dd ? msg_title db "Check date",0 msg1 db "Ok!",0 msg2 db "Bad date!",0 .code start: push sizeof gf push offset gf push offset date push 0 push 0 push 0 call GetDateFormatA mov edi,offset data push edi or ecx,-1 xor eax,eax repnz scasb neg ecx dec ecx dec ecx mov esi,offset gf pop edi repz cmpsb lea eax,msg1 jz _G1 lea eax,msg2 _G1: push MB_EXCLAMATION push offset msg_title push eax push 0 call MessageBoxA push 0 call ExitProcess end start

---

Ответ отправлен: 18.07.2004, 23:58
Отправитель: Стас

---

Отвечает _vt

Добрый день, Flashik!
1) Запущенную под Windows программу саму из себя удалить нельзя.
2) Если уж ты пишешь под Винды на ассемблере, что само по себе неверно, то и продолжай использовать системные функции - в частности, для сравнения строк подойдет strcmp из msvcrt.dll. ИМХО, ошибаешься в алгоритме где-то.

* Origin : Life begins at 1000Mhz!

---

Ответ отправлен: 19.07.2004, 05:05
Отправитель: _vt

---

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


Barev Flashik, jan!
Ты еще не застал того момента, когда здесь 3-е haerey-экспертов по ассемблеру было!
1. Смотря откуда. В ДОС можно из памяти - забить всё nop'ами, с диска стандартными методами (если не ошибаюсь, функция 41h прерывания 21h). Под виндами - никак.
2. Поменяй формат даты на MMdd (ещё лучше ввести год) - ведь по-твоему 1601>1502, хотя по смыслу должно было быть наоборот: 16.01<15.02
P.S. напиши что-нибудь о себе на мой mail: kalaidjian@pochtamt.ru Я скоро уезжаю, но, думаю, смогу ответить.

---

Ответ отправлен: 19.07.2004, 22:03
Отправитель: Tigran K. Kalaidjian

---

Вопрос № 5603

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

Приложение:
title net net group net2,net1 assume cs:net, ds:net net2 segment net2 ends net1 segment text0 db 'imya faila s putem',10,13,'$' path db 53 dup (0) buf db 0,0,0,'$' old_vec_off dw ? old_vec_seg dw ? handle dw 0 text1 db 'speed:',10,13,'a- 110',10,13,'b - 300',10,13,'c - 600',10,13,'d - 1200',10,13,'e - 1800',10,13,'f - 2400',10,13,'g - 3600',10,13,'h - 4800',10,13,'i - 9600',10,13,'$' text2 db 'dlina:',10,13,'a - 5 bit',10,13,'b - 6 bit',10,13,'c - 7 bit',10,13,'d - 8 bit',10,13,'$' text3 db 'chislo stop-bitov:',10,13,'a - 1',10,13,'b - 2',10,13,'$' text4 db 'chetnost:',10,13,'a - net',10,13,'b - est chetnaya',10,13,'c - est nechetnaya',10,13,'$' chet db 0 numbers db 0 speed dw 0 mistake1 db 10,13,'open failed',10,13,'$' dlina db 0 net1 ends net2 segment org 100h begin: ;ВЫБОР ДЛИНЫ, КОЛИЧЕСТВА СТОП-БИТОВ И ЧЕТНОСТИ call others ;ВЫБОР СКОРОСТИ call skorost call s ;ОТКРЫТИЕ ФАЙЛА call open ;УСТАНОВКА НОВОГО ВЕКТОРА ПРЕРЫВАНИЙ mov ax,0 mov es,ax mov bx,word ptr es:[0ch*4] mov ds:old_vec_off,bx mov bx, word ptr es:[0ch*4+2] mov ds:old_vec_seg,bx cli lea bx,cs:int_ad mov es:[0ch*4],bx push cs pop bx mov es:[0ch*4+2],bx ;РАЗРЕШЕНИЕ ПРЕРЫВАНИЙ mov al,0 out 21h,al ;ОЖИДАНИЕ mov ah,0 int 16h ;ВОССТАНОВЛЕНИЕ ВЕКТОРА cli mov bx,ds:old_vec_off mov word ptr es:[0ch*4],bx mov bx,ds:[old_vec_seg] mov word ptr es:[0ch*4+2],bx mov al,0 out dx,al sti ;ЗАКРЫТИЕ ФАЙЛА quit: mov bx,handle mov ah,3eh int 21h ;ВЫХОД mov ah,4ch int 21h int_ad proc far push ds push ax push dx push es mov ax,seg buf mov ds,ax mov ax,0 mov es,ax mov dx,es:[400h] in al,dx call obrabotka mov al,20h out 20h,al pop es pop dx pop ax pop ds iret int_ad endp others proc mov ah,9h lea dx,text2 int 21h cmp al,0 je else2 cmp al,61h jne b2 mov bh, 00b mov dlina,bh b2: cmp al,62h jne c2 mov bh, 01b mov dlina,bh c2: cmp al,63h jne d2 mov bh, 10b mov dlina,bh d2: cmp al,64h jne else2 mov bh, 11b mov dlina,bh mov ah,9h lea dx,text3 int 21h cmp al,0 je else2 cmp al,61h jne b3 mov bh, 000b mov numbers,bh b3: cmp al,62h jne else2 mov bh, 100b mov numbers,bh mov ah,9h lea dx,text4 int 21h cmp al,0 je else2 cmp al,61h jne b4 mov bh, 00000b mov chet,bh b4: cmp al,62h jne c4 mov bh, 01000b mov chet,bh c4: cmp al,63h jne else2 mov bh, 11000b mov chet,bh else2: mov ah,4ch int 21h free: ret others endp open proc ; vvod puti mov ah,9h lea dx,text0 int 21h lea dx,path mov bx,dx mov al,51 mov [bx],al mov ah,0ah int 21h ;open lea dx,path add dx,2 mov al,1 mov ah,3dh int 21h jc open_error mov handle,ax jmp no_mistakes open_error: mov ah,9h lea dx,mistake1 int 21h mov ah, 4ch int 21h no_mistakes: ret open endp skorost proc mov ah,9h lea dx,text1 int 21h mov ah,1 int 21h cmp al,0 je quit2 cmp al,61h jne b mov bx, 0417h mov speed,bx b: cmp al,62h jne c mov bx,0180h mov speed,bx c: cmp al,63h jne d mov bx, 00c0h mov speed,bx d: cmp al,64h jne e mov bx,0060h mov speed,bx e: cmp al,65h jne f mov bx,0040h mov speed,bx f: cmp al,66h jne g mov bx,0030h mov speed,bx g: cmp al,67h jne h mov bx,0020h mov speed,bx h: cmp al,68h jne i mov bx,0018h mov speed,bx i: cmp al,69h jne quit2 mov bx,000ch mov speed,bx jmp no quit2: mov ah,4ch int 21h no: ret skorost endp obrabotka proc ;na EOF mov bx,handle mov cx,0 mov dx,0 mov al,2 mov ah,42h int 21h jc vihod mov ah,40h mov bx,handle mov cx,1 lea dx,buf inc dx inc dx int 21h jc vihod mov ah,9h lea dx,buf add dx,2 int 21h mov ah,0 mov buf,ah vihod: ret obrabotka endp s proc mov ax,40h mov es,ax mov dx,es:[0] add dx,3 mov al,10000000b out dx,al dec dx dec dx mov cx,speed mov al,cl out dx,al dec dx mov al,ch out dx,al mov al,0 mov bl,dlina or al,bl mov bl,numbers or al,bl mov bl,chet or al,bl add dx,3 out dx,al ret s endp net2 ends end begin

---

Вопрос отправлен: 16.07.2004, 16:58
Отправитель: volk
[Следующий вопрос >>] [Список вопросов]

---

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

Доброе время суток, volk!
Ты сам запускал свою прогу? Дебаггил?
1) Если программа COM (на что указывает org 100h), то почему у тебя разные сегменты CS и DS? Если же EXE то зачем org 100h? У меня вместо сообщений белиберда.
(Привел к COM виду.)
2) Зашел в others, вывел сообщение и проверяешь AL. А чему равен AL? Откуда там что либо возьмется? Сначала положи...
(Исправил)
Дошел до проверки паритета, хорошо, положили в chet число, а дальше что? Вышел из проги...
(Исправил).
В skorost, так, косметика.
Еще, для COM порта (как и для котроллера прерываний) нужно разрешить перывания по приему.
(Исправил).
В open почему lea dx,path; add dx,2, а не lea dx,path+2?
Строка введеная через func 0ah int 21h заканчивается кодом 13(0dh), неужели ты думашь, что имя файла может содержать этот код?
(исправлено)
3) Ты открываешь файл для записи функцией 3d01h Int21h, а если его не существует? Нужно создавать 3ch int21h.
4) На конец файла лучше прыгнуть до прерываний. (перенес в процедуру OPEN)
Вообще не рекомендую делать файловые операции во время прерывания. Пиши в буффер, записывай потом.
(набросал на скорую руку)
5) Чтобы вывести один символ. Используй ah=2 int21h или, еще лучше, int29h.
(Исравлено).
Вообщем теперь работает. Проверено.
Ты хотел рекомендаций? Пожалуйста:
Возьми дебаггер в ручки и отладь все, что можно (кроме получения байта от COM порта, раз нет возможности).
Если не секрет зачем тебе все это?

Приложение:
bufsize = 512 .model tiny .code org 100h begin: ;ВЫБОР ДЛИНЫ, КОЛИЧЕСТВА СТОП-БИТОВ И ЧЕТНОСТИ call others ;ВЫБОР СКОРОСТИ call skorost call cominit ;ОТКРЫТИЕ ФАЙЛА call open ;УСТАНОВКА НОВОГО ВЕКТОРА ПРЕРЫВАНИЙ mov ax,0 mov es,ax mov bx,word ptr es:[0ch*4] mov old_vec_off,bx mov bx, word ptr es:[0ch*4+2] mov old_vec_seg,bx lea bx,buf mov tek_buf,bx ;Инициализируем переменную cli mov dx,portbase add dx,4 in al,dx or al,1+2+8 ;DTR(1)+RTS(2)+GPO2(8) out dx,al mov dx,portbase inc dx mov al,1 ;для COM1 разрешить прерывание по приходу байта out dx,al ;РАЗРЕШЕНИЕ ПРЕРЫВАНИЙ от COM1 in al,21h and al,0efh out 21h,al lea bx,int_ad mov es:[0ch*4],bx push cs pop bx mov es:[0ch*4+2],bx sti ;ОЖИДАНИЕ wait0: lea ax,buf cmp ax,tek_buf ;Что нибудь пришло? jz wait1 call obrabotka wait1: mov ah,1 int 16h jz wait0 ;ВОССТАНОВЛЕНИЕ ВЕКТОРА cli mov bx,old_vec_off mov word ptr es:[0ch*4],bx mov bx,[old_vec_seg] mov word ptr es:[0ch*4+2],bx mov al,0 out dx,al sti ;ЗАКРЫТИЕ ФАЙЛА quit: mov bx,handle mov ah,3eh int 21h ;ВЫХОД mov ah,4ch int 21h int_ad proc far push bx push ds push ax push dx mov ax,cs mov ds,ax cmp tek_buf,offset buf+bufsize jae int_exit ;дабы не выити за границы буффера mov dx,portbase in al,dx mov bx,tek_buf mov [bx],al inc tek_buf int 29h ;вывод на экран int_exit: mov al,20h out 20h,al pop es pop ax pop ds pop bx iret int_ad endp obrabotka proc mov ah,40h mov bx,handle cli ;Чтобы буффер не заполнялся пока мы записываем lea dx,buf mov cx,tek_buf sub cx,offset buf ;Количество байт в буффере вычисляем int 21h lea bx,buf mov tek_buf,bx ;сбрасываем sti jnc vihod mov ah,9h lea dx,mistake2 int 21h vihod: ret obrabotka endp others proc mov ah,9h lea dx,text2 int 21h mov bh, 00b ;По умолчанию mov dlina,bh mov ah,1 int 21h cmp al,0 je else2 cmp al,62h jne c2 mov bh, 01b mov dlina,bh c2: cmp al,63h jne d2 mov bh, 10b mov dlina,bh d2: cmp al,64h jne e2 mov bh, 11b mov dlina,bh e2: mov ah,9h lea dx,text3 int 21h mov bh, 000b mov numbers,bh mov ah,1 int 21h cmp al,0 je else2 cmp al,62h jne a3 mov bh, 100b mov numbers,bh a3: mov ah,9h lea dx,text4 int 21h mov bh, 00000b mov chet,bh mov ah,1 int 21h cmp al,0 je else2 b4: cmp al,62h jne c4 mov bh, 01000b mov chet,bh ret c4: cmp al,63h jne d4 mov bh, 11000b mov chet,bh d4: ret else2: mov ah,4ch int 21h others endp open proc ; vvod puti mov ah,9h lea dx,text0 int 21h lea dx,path mov bx,dx mov al,51 ;? mov [bx],al mov ah,0ah int 21h ;open lea bx,path+1 mov al,byte ptr [bx] inc al xor ah,ah add bx,ax mov byte ptr [bx],ah lea dx,path+2 mov al,1 mov ah,3dh int 21h jc open_error mov handle,ax mov bx,ax mov cx,0 mov dx,cx mov ax,4202h int 21h ret open_error: mov ah,9h lea dx,mistake1 int 21h mov ah,4ch int 21h open endp skorost proc mov ah,9h lea dx,text1 int 21h mov ah,1 int 21h cmp al,0 je quit2 mov bx, 0417h ;по умолчанию mov speed,bx cmp al,62h jne c mov bx,0180h mov speed,bx c: cmp al,63h jne d mov bx, 00c0h mov speed,bx d: cmp al,64h jne e mov bx,0060h mov speed,bx e: cmp al,65h jne f mov bx,0040h mov speed,bx f: cmp al,66h jne g mov bx,0030h mov speed,bx g: cmp al,67h jne h mov bx,0020h mov speed,bx h: cmp al,68h jne i mov bx,0018h mov speed,bx i: cmp al,69h jne k mov bx,000ch mov speed,bx k: ret quit2: mov ah,4ch int 21h skorost endp cominit proc mov ax,40h mov es,ax mov dx,es:[0] mov portbase,dx add dx,3 in al,dx or al,10000000b out dx,al dec dx dec dx mov cx,speed mov al,ch out dx,al dec dx mov al,cl out dx,al mov al,0 mov bl,dlina or al,bl mov bl,numbers or al,bl mov bl,chet or al,bl add dx,3 out dx,al ret cominit endp text0 db 10,13,'imya faila s putem :$' path db 53 dup (0) buf db bufsize dup (0) old_vec_off dw ? old_vec_seg dw ? handle dw 0 text1 db 10,13,'speed:',10,13,'a- 110',10,13,'b - 300',10,13,'c - 600',10,13,'d - 1200',10,13,'e - 1800',10,13,'f - 2400',10,13,'g - 3600',10,13,'h - 4800',10,13,'i - 9600 $' text2 db 10,13,'dlina:',10,13,'a - 5 bit',10,13,'b - 6 bit',10,13,'c - 7 bit',10,13,'d - 8 bit $' text3 db 10,13,'chislo stop-bitov:',10,13,'a - 1',10,13,'b - 2 $' text4 db 10,13,'chetnost:',10,13,'a - net',10,13,'b - est chetnaya',10,13,'c - est nechetnaya $' chet db 0 numbers db 0 speed dw 0 portbase dw 0 tek_buf dw 0 mistake1 db 10,13,'open failed',10,13,'$' mistake2 db 10,13,'write error!',10,13,'$' dlina db 0 end begin end

---

Ответ отправлен: 18.07.2004, 17:48
Отправитель: Стас

---

Вопрос № 5604

Доброе время суток!
У меня возник вопрос слудающего содержания. Как вызвать BSOD ("синий экран смерти") в Windows 2000/XP? Следующий пародоксальный вопрос - как вывести компьютер из вызванного состояния например через 2 минуты? Можно "эмулировать" (т.е. подсунуть картинку с "экраном смерти"), но хотелось бы ПОЛНОЦЕННЫЙ BSOD. Если ответа на второй вопрос не находиться, то просто помогите с кодом для MASM | NASM для вызова экрана.
Заранее спасибо!

---

Вопрос отправлен: 17.07.2004, 10:40
Отправитель: ALx
[Следующий вопрос >>] [Список вопросов]

---

Отвечает _vt

Здравствуйте, ALx!
BSOD можно вызвать нажатием или эмуляцией нажатия Ctrl+Scroll Lock, если значение DWORD-ключа HKLM\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters - CrashOnCtrlScroll равно 1.
Вывести из BSOD систему можно только перезагрузкой.
Твой код на MASM должен внести указанный мной параметр в реестр, и только после перезагрузки системы можно будет вызвать BSOD.

* Origin : Life begins at 1000Mhz!

---

Ответ отправлен: 19.07.2004, 05:11
Отправитель: _vt

---

Вопрос № 5605

Решил изучать асм.
Вот как и все, наверное, начал с регистров.
Только плохо понял.
Объяснить пожалуйста следущее
регистры
операнды
для чего служат
EAX
EBX
ECX
EDX
AX
BX
CX
DX
ESI
EDI
EBP
ESP
и др
сегменты
селекторы
DS
ES
GS
FS
и др
стек
адресацию
объясните чтоб и щкольнику было понятно, заранее благодарю

---

Вопрос отправлен: 17.07.2004, 16:26
Отправитель: Gift (Gift@udmlink.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает PavPS

Здравствуйте, Gift!
Постараюсь - как школьнику(1-й класс)!
Если будешь писать под винду, то с регистрами гараздо проше - ипользуй как хочешь. Под дос они чуть-чуть более специализированы, но на этом я останавливаться не будем.
Так вот, если представить, что Ты на каком-то языке пишешь прогу, и тебе нужно пару-тройку переменных, то ессно Ты их описываешь как-то. А в ASM - халява! Тут уже есть заранее определенные (ну или описаные) переменные. Эти переменные регистры. Если дальше проводить аналогию с переменными, то они глобальные.
Из перечисленых Тобой регистров, с префиксом "E" это 32-х битные (тип unsignet long).
Без префикса - 16-и битные.
Связь EAX и AX: EAX:=(16 бит)+(16 бит), где вторые 16 бит - это его младшая часть AX. Так же аналогично и с другими.
Вообще регистры бывают,грубо говоря, служебного назначения и общего.
Так например, EIP - указывает на следующую комманду. Изменив его на определенную величину мы, соотв-но, переместимся к другой комманде. После выполнения команды его проц сам авт-ки увеличивает.
ESP - указатель на вершину стека. Он показывает адрес, который будет использоваться каммандами push и pop. А стек, по-детски говоря, это стопка торелок. При закладывании нового элемента, он соотв-но кладется вверх стопки. При вытаскивании - берется сверху. Так например, если в стопке 10 тарелок, то чтобы достать самую нижнюю, Тебе надо снять первые 9 (чтобы не разбить) а потом 10-ю. Так вот он работает.
На остальные вопросы и многое другое Тебе более грамотно ответит ряд великолепных статей Broken Sword-а
http://www.wasm.ru/publist.php?list=24

---

Ответ отправлен: 17.07.2004, 17:15
Отправитель: PavPS

---

Отвечает Горячев Игорь

Добрый день, Gift!
Если это все объяснять, то целая книга получиться.
Попробуй книгу В. И. Юрова. И экспертам геммора меньше и тебе пользы больше :)

---

Ответ отправлен: 17.07.2004, 23:34
Отправитель: Горячев Игорь

---

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

Приветствую Вас, Gift!
Почитай FAQ: http://kalaidjian.narod.ru/rusfaq.rar
Там будут книги и всё, что нужно.
Из справки Эдуарда Титова:
Регистр - это определенный участок памяти внутри самого процессора, от 8-ми до 32-х бит длиной, который используется для промежуточного хранения информации, обрабатываемой процессором. Некоторые регистры содержат только определенную информацию.
Регистры общего назначения - EAX, EBX, ECX, EDX. Они 32-х битные и делятся еще на две части, нижние из которых AX, BX, CD, DX - 16-ти битные, и деляется еще на два 8-ми битных регистра. Так, АХ делится на AH и AL, DX на DH и DL и т.д. Буква "Н" означает верхний регистр.
Так, AH и AL каждый по одному байту, АХ - 2 байта (или word - слово), ЕАХ - 4 байта (или dword - двойное слово). Эти регистры используются для операций с данными, такими, как сравнение, математические операции или запись данных в память.
Регистр СХ чаще всего используется как счетчик в циклах.
АН в DOS программах используется как определитель, какой сервис будет использоваться при вызове INT.
Регистры сегментов - это CS, DS, ES, FS, GS, SS. Эти регистры 16-ти битные, и содержат в себе первую половину адреса "оффсет:сегмент".
CS - сегмент кода (страница памяти) исполняемой в данный момент программы.
DS - сегмент (страница) данных исполняемой программы, т.е. константы, строковые ссылки и т.д.
SS - сегмент стека исполняемой программы.
ES, FS, GS - дополнительные сегменты, и могут не использоваться программой.
Регистры оффсета - EIP, ESP, EBP, ESI, EDI. Эти регистры 32-х битные, нижняя половина которых доступна как регистры IP, SP, BP, SI, DI.
EIP - указатель команд, и содержит оффсет (величину смещения относительно начала программы) на линию кода, которая будет исполняться следующей. То есть полный адрес на следующую исполняемую линию кода будет CS:ЕIP.
Регистр ESP указывает на адрес вершины стека (адрес, куда будет заноситься следующая переменная командой PUSH).
Регистр ЕВР содержит адрес, начиная с которого в стек вносится или забирается информация (или "глубина" стека). Параметры функций имеют положительный сдвиг относительно ЕВР, локальные переменные - отрицательный сдвиг, а полный адрес этого участка памяти будет SS:EBP.
Регистр ESI - адрес источника, и содержит адрес начала блока информации для операции "переместить блок" (полный адрес DS:SI), а регистр EDI- адрес назначения в этой операции (полный адрес ES:EDI).
Регистры управления - CR0, CR1, CR2, CR3. Эти 32-х битные регистры устанавливают режим работы процессора (нормальный, защищенный и т.д.), постраничное распределение памяти и т.д. Они доступны только для программ в первом кольце памяти (Kernel, например). Трогать их не следует.
Регистры дебаггера - DR0, DR1, DR2, DR3, DR4, DR5, DR6, DR7. Первые четыре регистра содержат адреса на точки прерывания, остальные устанавливают, что должно произойти при достижении точки прерывания.
Контрольные регистры - TR6, TR7. Используются для контроля постраничной системы распределения памяти операционной системой. Нужны только если вы собираетесь написать свою ОС.

---

Ответ отправлен: 17.07.2004, 18:16
Отправитель: Tigran K. Kalaidjian

---

Отвечает bocha

Здравствуйте, Gift!
Вам сперва необходимо почитать какой-нибуть учебник, и если по мере его изучения что-то становится непонятным, задавать вопрос. А этот вопрос тянет на несколько глав учебника(кто же в рассылке столько печатать будет). И нужно правильно формулировать вопрос, предварительно хорошенько обдумав его. Возьмем твой пример:
1.для чего служит eax
2.для чего служит ax
уже из одного этого разделения вопроса(регистр-то один) видно, что ты вообще не читал никакой литературы по предмету изучения, либо не обдумывал его когда задавал вопрос. Зная, что это один и тот же регистр, сам собой напрашивается вопрос: а дело случайно не в размере операндов и разрядности сегментов? Далше можно посмотреть опять же учебник, и вопрос возможно решится сам собой. Учись прежде всего работать с литературой, которая имеется под рукой.

---

Ответ отправлен: 18.07.2004, 04:47
Отправитель: bocha

---

Отвечает _vt

Доброе время суток, Gift!
Для этого есть книжки. Задавай вопросы по непонятным местам, а не по системе в целом! ;-)

* Origin : Life begins at 1000Mhz!

---

Ответ отправлен: 19.07.2004, 05:11
Отправитель: _vt

---

Вопрос № 5606

Здравствуйте, уважаемые Эксперты.
Не могли бы вы мне сказать, как можно послать на аську сообщение...? через апи или длл....
может ф-ции какие нить есть?
или может можно длл-эшку аськину потягать?
А может у кого и исходники есть... :)
Заранее спасибо...

---

Вопрос отправлен: 17.07.2004, 18:08
Отправитель: pAcU (pacu@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает flasher

Здравствуйте, pAcU!
на fasm'е в инете были исходники..., но у вы урл не помню... :(

---

Ответ отправлен: 17.07.2004, 19:43
Отправитель: flasher

---

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

http://icq2000cc.hobi.ru/page1.html
:)
Удачи!

* EMan: -=- Любовь всегда неразделённая... =-=

---

Ответ отправлен: 18.07.2004, 15:40
Отправитель: Евгений Иванов

---

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

Приветствую Вас, pAcU!
см. 5606

---

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

---

Вопрос № 5607

Доброго дня ув.Экспкрты..
Вопросик такой…
Как можно программно отправить сообщение на
ICQ (корп)?
Какой используется протокол?
Формат пакета и т.д.
Буду признателен за пример или исходник..
Заранее Спасибо.

---

Вопрос отправлен: 17.07.2004, 19:28
Отправитель: pAcU (pacu@mail.ru)
[Следующий вопрос >>] [Список вопросов]

---

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

Здравствуйте, pAcU!
1. Библиотека на http://softsearch.ru/programs/30-276-icq-socket-zhivoe-obschenie-po-protokolu-icq-download.shtml
2. А есть еще возможность работать с шлюзами, типа ********@pager.icq.com - но я не знаю, работает ли это сейчас.

---

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

---

---

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

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

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

---

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

Ваше имя:

Ваш e-mail:

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

---

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

Ваш вопрос:


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


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

---

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

Программисту Assembler (24) C / C++ (11) Perl (4) Builder / Delphi (14) Pascal (23) Basic / VBA (8) Java / JavaScript (5) PHP (13) Криптография (8) WinAPI (11) Радиоэлектроника (9)

Пользователю Windows 95/98/Me (41) Windows NT/2000/XP (52) "Железо" (38) Поиск информации (14)

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

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

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

---

---

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

---

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

---

http://subscribe.ru/ E-mail: ask@subscribe.ru

Адрес подписки

Отписаться

---

В избранное

{#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}