Ассемблер? Это просто! Учимся программировать Выпуск N 26 (Оболочка) (comp.prog.assembler) : Рассылка : Subscribe.Ru

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 11.448 RSS

← Март 2001 →
	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	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru
Открыта: 28-06-2000

Автор

Калашников О.А.

Статистика

11.448 подписчиков
0 за неделю

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

Ассемблер? Это просто! Учимся программировать Выпуск N 26 (Оболочка)

Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Ассемблер? Это просто! Учимся программировать
______________________________________

Выпуск N 026 (Оболочка)

Доброе время суток, дорогие подписчики!

Сегодня в номере:

Информация для новых подписчиков

Ваши письма.

История развития IBM-совместимых компьютеров (кратко)

Оболочка

!!! Сюрприз !!!

Информация для новых подписчиков

Благодарю Вас, что подписались на рассылку "Ассемблер? Это просто! Учимся программировать". Надеюсь, что Вы не останетесь равнодушны к ней и почерпнете море полезной информации, а также повысите свой уровень в "общении" с IBM-совместимыми компьютерами.

Прежде, чем приступать к изучению материала в данном выпуске, Вам необходимо внимательно ознакомиться с предыдущими. Я уверен, что Вы очень быстро и без труда догоните остальных подписчиков, не смотря на то, что у нас уже 26 выпуск.

Все, что нужно для изучения Ассемблера (предыдущие выпуски, адреса экспертов, необходимые программы, документацию, а также многое другое), можно найти на сайте http://www.Kalashnikoff.ru. Рекомендую Вам сперва ознакомиться с разделом "Информация для новых подписчиков".

Если у Вас нет выхода в Сеть, то предыдущие выпуски рассылки, информацию для новеньких и адреса экспертов можно получить по почте, направив пустое письмо по адресу AssmIssues@Kalashnikoff.ru. Информация (350 Кб) будет выслана Вам в течение двух рабочих дней с момента получения Вашего письма. Однако, пожалуйста, не злоупотребляйте этим, т. к. высылка писем подобного объема несет существенную нагрузку на почтовые сервера.

Ваши письма.

В предыдущих выпусках рассылки я писал про язык С и, видимо, допустил ошибку. Заострю на этом внимание, т.к. мне кажется, что многим подписчикам данная информация будет полезна (учитывая то, что вскоре приступим к Windows + С). Ко мне пришло письмо от Алексея следующего содержания (привожу выдержки):

Здравствуйте, уважаемый Олег!
Вы действительно ошиблись по поводу языка C. Файл stdio.h (и другие *.h) не содержит самих функций, они находятся в различных (в зависимости от модели памяти) библиотечных файлах. А файлы *.h (они называются заголовочными) содержат прототипы (заголовки) функций и представляют собой обычные текстовые файлы.

Прототип показывает компилятору, какого типа, в каком порядке и каким образом (через стек или регистры) функции передаются аргументы, а так же какого типа функция возвращает значения. Можно в библиотеку включить свои функции, написанные на C или ассемблере, и пользоваться этими функциями как стандартными, создав свой заголовочный файл.
Практически каждый стандартный заголовочный файл содержит несколько десятков прототипов, но в код программы включаются ТОЛЬКО ИСПОЛЬЗУЕМЫЕ В ДАННОЙ ПРОГРАММЕ ФУНКЦИИ.

Причины большего объёма программы, написанной на C в другом.
Во-первых, в каждую C-программу включается так называемый загрузчик C (находящийся в файлах c0?.obj, различных в зависимости от модели памяти). С него начинается работа программы, затем вызывается функция main С-программы, завершает программу опять же загрузчик C. А в нём содержатся обработчики некоторых прерываний, переменные, определение версии операционной системы и много ещё чего (в комплект поставки C/C++ входит файл c0.asm, так что его можно посмотреть).
Во-вторых, ... Впрочем, я начинаю увлекаться. Ведь это не рассылка по C/C++, а я не автор. Хочется только добавить, что С-компилятор генерирует довольно эффективный код, в этом можно убедиться, задав при компиляции ключ -S и посмотрев листинг на ассемблере.

____________

Некотрые уточнения по поводу 386/486 SX/DX машин. В принципе, пришло несколько подобных писем (от: Serge I.Driantsov, Дмитрий Сердюк). Однако, письмо Максима Белова более-менее точно описывало ситуацию с SX/DX машинами:

...С процессорами ситуация несколько иная была.

1. 486 начались с 16 или с 20 или с 25 МГц (у меня на рабочем ящике стоял такой уродец - 486SX-25).

2. 486 DX-33 (домашний первый ящик) - сопроцессор был уже там.

3. 386 серия - совершенно отдельная песня. Если в 486 сопроцессор был встроен и отключен (процент выхода годных чипов), то в 386 индекс DX/SX говорит о ширине внешней шины данных процессора - 32/16 бит. (как 8086/8088 - 16 разрядный внутри, а вот снаружи 16/8).

4. Что-то я еще слышал про 486SX/387DX связку, но плохо себе это представляю, как это возможно.

5. Говоря о выпайке, может быть, имелось в виду выпаивание распаянного на материнской плате процессора?

___________

Мой комментарий.

1. Читайте следующий раздел: "История развития IBM-совместимых компьютеров".

3. Полностью согласен, что индекс SX в 386 машинах свидетельствовал о разрядности шины.

4. Дело в том, что 487 сопроцессор ничем не отличается от 387. Поэтому структура и принцип работы, а также команды 387 сопроцессора ничем не отличаются от 487. Иначе говоря, в "четверках" стоял обычный "трешный" сопроцессор, только располагался он на одном кристалле с процессором.

5. Лично я купил в свое время 386DX-40, рассчитывая, что в нем присутствует сопроцессор (теперь понятно, что я ошибался). При вскрытии системного блока, оказалось, что сопроцессор действительно присутствовал когда-то, но его выпаяли. Это было явно видно на разъеме...

____________

Granit прислал алгоритм вывода десятичных чисел на экран. Спасибо!

Но! Дело в том, что максимальное число, которое может вывести данная процедура, гораздо меньше, чем то, которое выводим мы в нашем примере. Тем не менее, я опубликовываю данный алгоритм (без проверки с моей стороны):

DEC.ASM

p486 ideal model small dataseg dest db 5 dup (0) source dd 0ffffffffh codeseg start: mov ax,@data mov ds,ax mov es,ax mov eax,[source] mov ecx,32 ;-------------------------------------- next: push cx mov cx,5 mov bx,offset dest ;---------------------------- j0: mov dl,[bx] and dl,0fh cmp dl,5 jc short j1 add [byte bx],3 j1: mov dl,[bx] and dl,0f0h cmp dl,80 jc short j2 add [byte bx],48 j2: inc bx loop j0 ;---------------------------- shl eax,1 mov cx,5 mov bx,offset dest +4 j3: rcl [byte bx],1 dec bx loop j3 ;-------------------------------------- pop cx loop next ;==================================================================== mov ecx,5 mov bx,offset dest next2: push cx mov dl,[bx] and dl,0f0h ror dl,4 add dl,48 mov al,0 mov ah,2 int 21h mov dl,[bx] and dl,0fh add dl,48 mov al,0 mov ah,2 int 21h inc bx pop cx loop next2 mov ax,4c00h int 21h stack 200h end start

ВНИМАНИЕ! Это - типичный формат *.exe-файла. Ассемблировать его нужно следующим образом:

ML.EXE DEC.ASM

Или:

TASM DEC.ASM

TLINK DEC.OBJ

И все! Никаких параметров! В результате должен получиться DEC.EXE. Судя по структуре файла, видно, что Granit использует TASM...

___________

Добрый день или другое какое время суток!

Я решил узнать, что же такое Ассемблер и подписался на рассылку, не забыв и заказать предыдущие выпуски. Но вот одно немного смущает еще до начала всех проб и ошибок. Как-то кто-то говорил мне, что для программирования на Ассемблере надо знать архитектуру именного того процессора, для которого пишется код на Ассемблере: Pentium ли это, Pentium Pro, Pentium-II или Pentium-III. А у меня дома машина на AMD-K6 бегает. Действитеьно ли этот процессор имеет свою систему команд, и правда ли то, что книги или рассылки по программированию на Ассеблере для Пентиума или 486 ничем не помогут мне, так как я хочу работать на AMD-K6? Спасибо заранее за разъяснения.

С уважением, Michael.

___________

Мой комментарий.

Уважаемый Михаил!

Дело в том, что в 1979 году появились первые компьютеры на базе процессора Intel. Назывались они IBM PC. Со временем появились IBM PC/XT, IBM PC/Jr, IBM PC/AT, IBM PS/2 и т.д. Главное не это. Главное то, что программа, написанная для процессора Intel 8086 должна работать и на Pentium-III, т.к. Pentium - это процессор, совместимый с 8086. Иначе говоря, совместимость программ идет снизу вверх. Например, многие любят старые XT-шные игры: Pirates, Civilization, King's Bounty, Arcanoid и пр. Естественно, они были написаны для 8086 процессора, но работают также на 386-Pentium. AMD - это IBM-совместимый компьютер. Это означает, что программы, написанные для IBM PC/XT будут работать на Pentium, на AMD и на других IBM-совместимых компьютерах. Отсюда правило - если Вы пишите программу, используя инструкции 8086 процессора, то я даю гарантию (точнее не я, а фирма-производитель процессоров), что они будут корректно работать на последующих процессорах (80286, 80386, AMD, Compaq и пр.).

___________

Хочу выразить благодарность Сергею Юрьевичу за проделанную работу по переводу *.txt-файлов в формат DOC. Спасибо!

История развития IBM-совместимых компьютеров

Если я не ошибаюсь, то ситуация такая:

Процессор	Тип (SX/DX)	ОЗУ	Винчестер (Мб)	Мегагерцы (Mhz)	Монитор	Отечественный вариант
8086/8088	---	256-640 Кб	10-20	4,77 - 8	Mono, CGA	ЕС-1840, 1841, 1851 и пр.
80286	---	до 4 Мб	20-60	6 - 16	CGA - VGA	EC-1849
80386	SX/DX	4-8 Мб	40-120	16-40	EGA - VGA	EC-1863
80486	SX/DX	4-12 Мб	80-370	25-120	EGA - VGA	Не помню
Pentium	---	16 Мб	300-800	60	VGA - sVGA	---

Некоторые комментарии. Приведенную в таблице информацию не следует считать обязательной для того или иного компьютера. Например, при желании можно было укомплектовать такую машину: IBM 486 SX-25, 10Мб - винчестер, 32Мб - ОЗУ, MDA - монитор...

Что же касается отечественных вариантов, то могу сказать, что лучшим конструкторским решением (не беру во внимание форму системного блока и шум вентилятора) можно считать ЕC-1849 (12Mhz, 640 Кб основной + 384 КБ расширенной (XMS) памяти, 40Мб винчестер, EGA - изначальная конфигурация завода МЗВТ). Самыми неудачными оказались: ЕС-1840 (не имел возможности подключать винчестер вообще, содержал ошибки в ПЗУ, а также (как и в ЕС-1841 - 1843) два здоровых ящика (системный блок), которые нужно было включать (дисководы и сам компьютер)), ЕС-1863 ("мутант" 386SX - 2 Мб памяти, EGA-монитор, 16 Mhz, высокая цена).

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

С чего все начиналось (речь идет о IBM'ках!).

Итак, прототипом IBM-совместимых компьютеров был ZX Spectrum с процессором Z80, который имел 64Кб памяти (с возможностью расширения до 128Кб). Отечественные аналоги: "Балтик", "Сантака". В ПЗУ вшивался язык Бейсик. Собственно, названия регистров 8086 процессор перенял у этого компьютера. В "Спектруме", например, команда LD A,10 равносильна MOV AX,10 (LD - LoaD - загрузить). По сути дела, программа, написанная на "Спектруме" была прототипом *.com-файла в IBM'ках...

Как таковой операционной системы не было. Хотя, если подключить дисковод, то можно было загрузить CP/M и некоторые другие. Не знаю, насколько они были востребованы... Лично мой первый опыт знакомства с Бесиком и Паскалем был именно на "Спектруме".

Z80 прослужил довольно-таки долго, т.к. для него было написано огромное количество игр и прочих программ, причем очень даже неплохих. Вероятно, многие играли в "Fist", "Lode Runner", "Jumping Jack", разные тетрисы и пр. И именно "Lode Runner" впервые появился в "Спектруме", а не на IBM'ке, как и многие другие...

В 1979 году на свет появляется первый персональный компьютер IBM PC. Затем, как уже писалось, XT, AT и т.д.

286 процессор мало чем отличался от своих "братьев". Имел несколько новых команд (например, PUSH число), а также позволял переводить компьютер в т.н. "защищенный режим" (protected mode). Сомневаюсь, что многие программы им пользовались, т.к. этот режим сильно чем отличался от "трешного". Немного прибавилась скорость работы, да памяти чуть-чуть нарастили. Вот, собственно, и все.

"Тройки" (т.е. 386 процессоры) существенно отличались от всех предшествующих поколений компьютеров. Прежде всего - полноценный защищенный режим, много дополнительных команд для работы с ним, возможнось управлять до 4 Гб ОЗУ и многое другое. По сути дела, современный Пентиум - это не что иное, как обычная "тройка", только работающая в несколько раз быстрее.

"Четверки" далеко не ушли от 386. Единственное, что их отличало от "трешек", так это расположение сопроцессора на одном кристалле с основным процессором. Существенно увеличилась скорость работы, добавилось несколько новых команд и др. по мелочам. Все остально было также, как у "тройки".

Ну, а "Пентиум" - он, как говорится, и в Африке "Пентиум"...

Надеюсь, о компьютерах еще поговорим подробней позже...

Оболочка

Sshell26.asm (головной файл) ; Sshell26.ASM - программа к рассылке № 026 ; (С) Авторские права на файлы-приложения принадлежат подписчикам рассылки ; "Ассемблер? Это просто! Учимся программировать" ; Автор рассылки: ; Калашников Олег Александрович (e-mail: Assembler@Kalashnikoff.ru) ; http://www.Kalashnikoff.ru ; --- Ассемблирование (получение *.com файла) --- ;При использовании MASM 6.11 - 6.13: ;ML.EXE Sshell26.asm /AT ;При использовании TASM: ;TASM.EXE Sshell26.asm ;TLINK.EXE Sshell26.obj /t/x ;______________________________________________________ .386 ;Будем использовать регистры и команды 80386 процессора, .287 ;А также команды 80287 сопроцессора CSEG segment use16 assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG org 100h Start: jmp Begin ; ======= Процедуры ========= ; Головная include main.asm ; Работа с дисплеем include display.asm ; Работа с файлами include files.asm ; Работа с клавиатурой include keyboard.asm ; Сообщения include messages.asm ; Переменные include data.asm ; Начало программы Begin: call Check_video ;Проверим видеорежим и текущую страницу mov ah,9 mov dx,offset Mess_about int 21h ;выводим сообщение с приветствием call Main_proc ; === Головная процедура === ; Выходим в DOS int 20h Current_dir equ $ ;Область хранения текущего каталога Finish equ Current_dir+300 ;Это финиш! CSEG ends end Start
Display.asm ; ===== DISPLAY.ASM - процедуры работы с экраном ====== ; === Рисуем рамку заданного размера в центре экрана === Draw_frame proc mov bp,sp add bp,2 push es push 0B800h pop es ;Производим вычисления для того, чтобы разместить ЛЮБУЮ рамку в цетре экрана. mov ax,Height_X shr al,1 mov dh,11 sub dh,al mov ax,Width_Y shr al,1 mov dl,39 sub dl,al ;Теперь DH содержит центрированный ряд (строку), ;а DL - колонку относительно размеров рамки (окошка)... ;Сохраним полученный адрес, с которого начинается вывод рамки mov Num_DX,dx mov ax,Other test al,1 ;Нулевой бит равен 0? jz No_copyscr ;Если так, то копировать экран не нужно. mov ax,Height_X ;Иначе копируем в область 2 видеостраницы add ax,2 call Copy_scr No_copyscr: call Get_linear push di mov ax,Attr mov al,'г' stosw mov al,'=' mov cx,Width_Y rep stosw mov al,'¬' ;завершаем верхний ряд stosw pop di ;восстановим DI + 160 (следующий ряд) add di,160 inc dh mov cx,Height_X ;CX - кол-во повторов (высота) Next_lined: push cx push di mov al,'¦' stosw mov al,32 mov cx,Width_Y rep stosw mov al,'¦' stosw pop di add di,160 inc dh pop cx loop Next_lined ;следующий ряд... mov al,'L' ;низ рамки... stosw mov al,'=' mov cx,Width_Y rep stosw mov al,'-' stosw ;Выводим сообщение внизу рамки mov si,Mess_dn call Draw_messfr ;Выводим сообщение вверху рамки mov dx,Num_DX push dx mov si,Mess_up call Draw_messfr pop dx add dx,0101h mov si,Mess_ins ;Адрес сообщения, которое будет внутри рамки or si,si ;Если там 0, то не выводим... jz No_draw mov ah,[si] inc si call Print_string ;теперь у нас примерно такая ситуация на экране: ;г==== Сообщение вверху =====¬ ;¦Сообщение внутри ¦ ;¦ ¦ ;¦ ¦ ;L==== Сообщение внизу ======- No_draw: mov ax,Other ;Получим дополнительную информацию test ax,10b jz No_upline mov dx,Num_dx add dh,2 call Get_linear mov ax,Attr mov al,'¦' mov cx,1 stosw mov cx,Width_Y mov al,'-' rep stosw mov al,'¦' stosw ;теперь у нас примерно такая ситуация на экране: ;г==== Сообщение вверху =====¬ ;¦Сообщение внутри ¦ ;¦--------- линия -----------¦ ;¦ ¦ ;¦ ¦ ;L==== Сообщение внизу ======- No_upline: pop es ret 14 Draw_frame endp ; --- Вывод сообщениий вверху и внизу рамки --- ;Вспомогательна процедура. Draw_messfr proc or si,si ;SI = 0?.. jz No_drawup ;тогда ничего выводить не надо, выходим mov ah,[si] inc si call Count_strmid ;Вычисляем середину строки call Print_string ;Выводим строку на экран No_drawup: ret Draw_messfr endp ; === Вычисляем середину строки === ;Вход: CS:SI - адрес строки ;Выход: DL - середина адреса для вывода строки Count_strmid proc push es push di push ax push cs pop es mov di,si xor al,al mov cx,0FFFFh ;сколько символов перебирать (возьмем максимум)... repne scasb ;Ищем 0 в строке ;SI=начало строки ;DI=конец строки+1 sub di,si ;DI=DI-SI-1 = длина строки dec di shr di,1 ;Делим длину на 2 mov ax,40 ;Делим кол-во символов в строке на 2 = 40 sub ax,di ;AX=40-половина длины строки = нужная колонка mov dl,al ;DL=колонка, с которой следует выводить строку! pop ax pop di pop es ret Count_strmid endp ; === Вывод стоки на экран === ;Вход: DS:SI - адрес строки для вывода ; DX - координаты для вывода ; AH - атрибуты строки ;Выход: ничего Print_string proc call Get_linear Next_symstr: lodsb ;Получаем очередной символ строки or al,al ;Это 0 (конец строки?) jz Stop_outstr stosw jmp short Next_Symstr ;Следующий символ Stop_outstr: ret Print_string endp ; === Вывод символа на экран === ;Вход: AL - символ для вывода ; AH - атрибуты символа ; DX - координаты для вывода ;Выход: ничего Print_sym proc call Get_linear ;Получаем линейный адрес строки stosw ;Заносим в видеобуфер атрибут (AH) и символ (AL) ret Print_sym endp ; === Преобразование DH:DL в линейный массив === Get_linear proc push ax ;сохраним все используемые регистры push bx push dx shl dl,1 ;умножаем DL на 2. mov al,dh ;в AL - ряд, mov bl,160 ;который нужно умножить на 160 mul bl ;умножаем: AL(ряд)*160; результат --- в AX mov di,ax ;результат умножения - в DI xor dh,dh ;аннулируем DH add di,dx ;теперь в DI линейный адрес в видеобуфере. pop dx pop bx pop ax ret Get_linear endp ; === Проверяем видеорежим монитора и текущую видеостраницу === Check_video proc mov ah,0Fh int 10h cmp al,3 ;Текстовый режим? je Ok_video mov ax,3 int 10h Ok_video: or bh,bh ;Нулевая страница? jz Ok_page mov ax,0500h int 10h Ok_page: ret Check_video endp ; === Сохраним экран === Save_mainscr proc pusha push es push ds push 0B800h ;с нулевой страницы pop ds xor si,si push 0B900h ;в первую страницу... pop es xor di,di mov cx,2000 ;4000 байт rep movsw pop ds ;восстановим регистры. pop es popa ret Save_mainscr endp ; === Восстановим экран === Restore_mainscr proc pusha push es push ds push 0B900h ;с первой видеостраницы pop ds xor si,si push 0B800h ;в нулевую... pop es xor di,di mov cx,2000 rep movsw pop ds pop es popa ret Restore_mainscr endp ; === Копируем часть экрана === ;Вход: DH - ряд, с которого необходимо начать копирование ; AL - количество рядов для копирования ;Выход: ничего Copy_scr proc pusha push es push ds xor dl,dl call Get_linear mov bl,160 ;Получим количество байт, котрые нужно копировать mul bl mov cx,ax ;Их - в CX (будем использовать CX как счетчик) mov si,di ;DS:SI - откуда копируем xor di,di ;ES:SI - куда копируем mov Num_copySI,si ;Сохраним полученные значения для восстановления mov Num_copyDI,di mov Num_copyCX,cx push 0B800h pop ds push 0BA00h pop es rep movsb pop ds pop es popa ret Num_copySI dw ? Num_copyDI dw ? Num_copyCX dw ? Copy_scr endp ; === Восстанавливаем часть экрана === ;Вход: ничего (все уже сохранено в переменных ) ;Выход: ничего Restore_scr proc pusha push es push ds mov di,Num_copySI ;Получим сохраненные процедурой Copy_scr значения mov si,Num_copyDI mov cx,Num_copyCX push 0BA00h pop ds push 0B800h pop es rep movsb ;Копируем со 2-ой страницы в 0-ую... pop ds pop es popa ret Restore_scr endp ; === Прячем курсор, сохранив предварительно его текущую позицию === Hide_cursor proc mov ah,3 ;получаем текущую позицию курсора mov bh,Video_page int 10h mov Pos_cursor,dx mov ah,2 ;Установим курсор на первую страницу как на нулевой mov bh,1 int 10h mov bh,Video_page ;прячем курсор на 0-ой видеостранице mov dx,1900h int 10h ret Hide_cursor endp ; === Восстановим курсор === Restore_cursor proc mov ah,2 mov bh,Video_page ;видеостраница mov dx,Pos_cursor ;сохраненная позиция int 10h ;установим (позиционируем) курсор ret Restore_cursor endp ; === Вывод десятичных чисел на экран (сопроцессор) === ;Вход: Number_dec - 64-х битное число для вывода ; DX - адрес для вывода ; AH - атрибуты для вывода ;Выход: ничего Out_dec proc pusha push es push 0B800h pop es xor cx,cx ;CX - счетчик для точек (см. ниже ) finit ;Инициализация сопроцессора ;Проведем необходимую настройку сопроцессора для округления чисел... fstcw Dat or Dat,0C00h fldcw Dat fldz fild Divider fild Number_dec fst st(7) ;ST(7)=ST(0) Next_sym: fprem ;Делим и получаем остаток от деления в ST(0) fistp Dat ;Dat=ST(0) ;Выводим остаток от деления, который загружен в Dat. mov al,byte ptr Dat add al,'0' call Print_sym dec dx ;Вывели. DX=DX-1 - следующий символ ;Подготовимся к выводу следующего символа... fld st(6) ;ST(0)=ST(6) fdiv st,st(1) ;Теперь делим ST(0) на ST(1) frndint ;Округлим полученное число fst st(7) ;ST(7)=ST(0). ;Теперь проверим, равно ли делимое нулю. push ax fcom st(2) ;ST(0)=ST(2)? fstsw ax ;AX=состояние сопроцессора and ax,100010100000000b ;Аннулируем ненужные нам биты cmp ax,100000000000000b ;ST(0)=ST(2)? pop ax je Finish_dec ;Если равно, то на выход ;Точкой будем отделять три цифры для удобства. Пример: 1.568 inc cx cmp cx,3 ;Три цифры выведено? jne Next_sym ;Пока нет. Следующая цифра mov al,'.' ;Выводим разделитель разрядов (точку) call Print_sym dec dx xor cx,cx ;Обнулим счетчик jmp short Next_sym ;Следующая цифра Finish_dec: pop es popa ret Number_dec dq ? ;64-х разрядная переменная для выводимого числа Divider dw 10 ;Делитель всегда 10 Dat dw ? ;Временная переменная для хранения остатка от деления на 10 ;Данная процедура выводит всего лишь одно число на экран. Представляете, ;сколько работы проделывает процессор за считанные доли миллисекунд, выводя ;на экран несколько файлов? ;А ведь кроме вывода чисел мы еще проверяем текущий режим монитора и текущую ;видеостраницу, копируем пользовательский экран, читаем и сохраняем ;текущую позицию курсора, рисуем рамку, производя необходимые расчеты, ;читаем каталог в память и выводим первые файлы на экран по одному символу... ;Имейте также в виду, что наши алгоритмы пока не совсем оптимальны. ;Уверяю вас, что даже на PC/XT вывод будет осуществлен мгновенно. Т.е. ;на глаз совсем не заметно... Впечатляет скорость работы процессора? ;Надеюсь, что так... Out_dec endp ; === Выделяем строку определенным цветом === ;На входе: DX - координаты ; CX - длина строки ; AH - атрибут Color_line proc pusha push es push 0B800h pop es call Get_linear inc di ;Указываем не на символ, а на атрибут Next_symbc: mov es:[di],ah ;Заносим атрибут... inc di ;Следующий... inc di loop Next_symbc pop es popa ret Color_line endp	Files.asm ; ==== FILES.ASM - процедуры работы с файлами ==== ; !!! Здесь придется повозиться не меньше, чем с Keyboard.asm !!! ; === Читаем файлы в текущем каталоге === Get_files proc push es mov es,Seg_files mov Current_offset,500 mov Prev_file,0 mov di,Current_offset xor eax,eax stosd call Get_first ;Получаем первый файл jc No_morefiles ;Если нет файлов вообще - на выход cmp word ptr es:[2Ch],002Eh ;Первый файл - '.'? je Next_file_ ;Если так, то ищем следующий файл... call Move_file ;Если нет, то переносим файл в память. Next_file_: call Get_other ;Получаем следующий файл... jc No_morefiles ;Файлы закончились - на выход. call Move_file ;Если нет, то переносим файл в память. jmp short Next_file_ ;Ищем следующий файл... No_morefiles: mov di,Next_file xor ax,ax stosw mov di,500 mov Current_file,di ;Будет указывать на то, что первый файл - текущий mov di,Current_file or byte ptr es:[di+4],1 pop es ret All_files db '.',0 Seg_files dw ? ;Сегментный адрес буфера файлов Current_offset dw 500 Next_file dw ? Prev_file dw 0 Get_files endp ; === Поиск первого файла в текущем каталоге === Get_first proc ;Здесь можно поставить инструкцию int 3 и в процессе отладки позволить ;отладчику выполнить программу до конца (Run). Дойдя до int 3 отладчик ;обязательно остановится, что позволит вам проанализировать работу ;приведенных ниже строк. Попробуйте! ; int 3 ;<=== Как точка останова для отладчика (BreakPoint) mov ax,714Eh ;Функция поиска первого файла xor di,di ;DI должен указывать на буфер, куда будут записываться xor si,si ;данные о найденном файле (типа DTA). SI пока остается тайной! mov cx,0FFh ;Ищем все возможные файлы. Это что-то вроде атрибутов файла mov dx,offset All_files ;Маска поиска int 21h mov Handle,ax ;Сохраним номер процесса поиска файлов для 714Fh ret Get_first endp ; === Поиск следующих файлов === Get_other proc mov bx,Handle ;Указываем номер процесса. mov ax,714Fh ;Функция поиска следующих файлов xor si,si xor di,di ;DI должен указывать на буфер, куда будут записываться int 21h ;данные о найденном файле (типа DTA). ret Get_other endp ; --- Перенос имени найденного файла в сегмент файлов нашей программы --- Move_file proc ;Рекомендую здесь также установить точку останова, как показано выше ; int 3 push ds mov di,Current_offset ;Текущее свободное смещение push di ;Пропустим 4 байта, в которые будут занесены адреса предыдущего и следующего ;файлов в цепочке. 0000h будет свидетельствовать о первом или последнем файле. add di,4 xor al,al ;Занесем 0, что будет свидетельствовать... stosb ;...о статусе файла (текущий и/или отмеченный) mov ds,Seg_files mov si,2Ch ;SI=имя найденного файла Next_fbyte: lodsb ;Получаем первый символ имени файла stosb ;Сохраним символ в памяти or al,al ;Это нуль (конец имени)? jnz Next_fbyte ;Следующий символ... ;Заносим размер файла mov si,1Ch ;По этому смещению будет размер файла (4 слова) lodsd stosd lodsd stosd pop si pop ds mov es:[si],di ;Адрес следующего файла mov Next_file,si mov ax,Prev_file ;Адрес предыдущего файла mov es:[si+2],ax mov Prev_file,si mov Current_offset,di ;Сохраним текущее смещение ret Move_file endp ; === Вывод наденных файлов на экран === Out_files proc ;int 3 ;--- !!! ОБЯЗАТЕЛЬНО установите здесь точку останова !!! mov bl,Number_files ;BL указывает на количество выводимых файлов push ds push es push 0B800h pop es mov si,Start_file ;SI = начальную позицию при выводе на экран mov ah,1Bh mov dx,0302h ;Начало для вывода файлов mov ds,Seg_files ;DS=сегмент найденных файлов в памяти Next_fileout: mov di,[si] mov bh,[si+4] push di add si,5 call Print_string ;Выводим очередной файл... call Print_fsize ;Выводим размер файла... call Get_status ;Проверим статус файла... pop si or si,si ;Последний файл? jz Exit_files ;Тогда выходим. add dx,0100h ;Иначе увеличиваем DH на 1 для вывода следующего имени... dec bl ;Уменьшаем количество выводимых файлов на 1 jnz short Next_fileout ;Уже 0? Тогда больше выводить не нужно... Exit_files: pop es pop ds ret Number_files db 21 ;Количество выводимых файлов на экран. Start_file dw 500 ;Адрес (смещение) стартового файла для вывода на экран ;Первые 500 байт отводятся для функций 714Eh и 714Fh, куда ;они будут помещать информацию о найденном файле. ;Что-то вроде DTA, только "посовременней"... Out_files endp ; === Проверяем статус файла === Get_status proc pusha mov ah,1Bh ;Обычный файл... or bh,bh ;Есть какие-нибудь метки? jz Quit_sts ;Нет - на выход mov ah,30h cmp bh,1 ;Это текущий файл? jz Quit_sts ;Да - на выход mov ah,1Eh cmp bh,2 ;Это отмеченный файл? jz Quit_sts ;Да - на выход mov ah,3Eh ;Получается, что текущий + отмеченный... Quit_sts: mov dl,1 ;Разрисовываем его... mov cx,78 call Color_line popa ret Get_status endp ; === Выводим размер файла === Print_fsize proc pusha push ds mov eax,ds:[si] ;Получим первую часть размера файла mov ebx,ds:[si+4] ;Получим вторую часть push cs pop ds mov si,offset Number_dec ;Занесем размер файла в переменную Number_dec mov dword ptr [si],ebx ;Процедура Out_dec будет выводить число, mov dword ptr [si+4],eax ;которое находится именно в этой переменной. mov dl,50 ;DL указывает на колонку mov ah,1Bh ;AH содержит атрибуты для выводимого числа call Out_dec ;Выводим число pop ds popa ret Print_fsize endp
Keyboard.asm ; ==== KEYBOARD.ASM - процедуры работы с клавиатурой ==== ;!!! Теперь над этими процедурами придется поработать "на славу" !!! ;Хотите выучить Ассемблер, научиться "ковыряться" в коде других программ - ;разбирайте! ; === Ждем нажатия клавиши === Pause proc mov ah,0 int 16h ret Pause endp ; === Клавиша вниз === ;Пользователь нажал клавишу вниз! Переводим курсор на следующий файл... Down_pressed proc ;int 3 ;--- !!! ОБЯЗАТЕЛЬНО установите здесь точку останова !!! push es mov es,Seg_files mov di,Current_file mov ax,es:[di] or ax,ax jz Lowest_file mov Current_file,ax and byte ptr es:[di+4],11111110b mov di,ax or byte ptr es:[di+4],1 Lowest_file: pop es ret Down_pressed endp ; === Клавиша вверх === ;Пользователь нажал клавишу вврех! Переводим курсор на предыдущий файл... Up_pressed proc ;int 3 ;--- !!! ОБЯЗАТЕЛЬНО установите здесь точку останова !!! push es mov es,Seg_files mov di,Current_file mov ax,es:[di+2] or ax,ax jz Uppest_file mov Current_file,ax and byte ptr es:[di+4],11111110b mov di,ax or byte ptr es:[di+4],1 Uppest_file: pop es ret Up_pressed endp ; === Клавиша Enter === Enter_pressed proc ;Пользователь нажал клавишу Enter! Меняем текущий каталог... ;!!! Обратите внимание, что мы пока не проверяем, нажал ли пользователь Enter ;на каталоге или файле !!! ;!!! Более того, мы "коряво" переходим на каталог верхнего уровня (..) !!! push ds push cs pop es mov si,Current_file add si,5 mov di,Current_dir mov cx,0FFFFh xor al,al repne scasb dec di mov ds,Seg_files Next_cdir: lodsb or al,al jz Got_dir stosb jmp short Next_cdir Got_dir: mov ax,005Ch ;'\' stosw pop ds call Draw_main_frame call Change_dir call Get_files call Out_files ret Enter_pressed endp	Main.asm ; === MAIN.ASM - Головная процедура === Main_proc proc call Hide_cursor ;прячем курсор call Prepare_all call Save_mainscr ;сохраним содержимое экрана... Re_Read_dir: call Draw_main_frame ;Рисуем головную рамку call Get_curdir ;Получаем текущий каталог call Change_dir ;Делаем его текущим call Get_files ;Читаем каталог в память Out_filesl: call Out_files ;Выводим файлы на экран Next_key: call Pause or al,al jz Ext_code ;Это расширенный ASCII-код клавиши? Да - проверяем его. cmp al,27 ;Нажали ESC? je Quit_prg ;Да! На метку cmp al,13 je Enter_prsd jmp short Next_key Quit_prg: call Quit_prog ;Подтвердим намерения пользователя выйти из программы. jnc Next_key ;Пользователь подтвердил выход? НЕТ? Тогда на Next_key ;Да, подтвердил (а жаль!). Тогда выходим. call Restore_mainscr ;восстановим содержимое экрана call Restore_cursor ;восстановим позицию курсор ret ;Выходим из процедуры MAIN.ASM, а затем сразу в DOS! Enter_prsd: call Enter_pressed jmp short Next_key Ext_code: cmp ah,60h ;Нажали Ctrl+F3? je Re_read_dir ;Да - перечитываем каталог . cmp ah,62h ;Нажали Ctrl+F5? je User_screenl ;Да - показываем экран пользователю . cmp ah,50h ;Стрелка вниз? je Key_down cmp ah,48h je Key_up jmp short Next_key ;Нет - ждем другую клавишу Key_down: call Down_pressed jmp Out_filesl Key_up: call Up_pressed jmp Out_filesl User_screenl: mov ax,0501h ;Показываем пользователю 1 видеостраницу. int 10h call Pause ;Ждем до тех пор, пока пользователь не налюбуется... mov ax,0500h ;Опять на нулевую устанавливаем. int 10h jmp short Next_key ;Ждем дальше... Main_proc endp ; === Готовим все необходимое для работы === Prepare_all proc call Prepare_memory ;Отводим память ret Prepare_all endp ;--- Ужимаем память --- Prepare_memory proc mov bx,offset Finish shr bx,4 inc bx mov ah,4Ah int 21h mov ah,48h mov bx,1000h int 21h mov Seg_files,ax ret Prepare_memory endp ; === Получаем текущий диск+каталог === Get_curdir proc mov dword ptr [Current_dir],005C3A43h ;Заносим ASCIIZ C:\ mov ah,19h int 21h ;Получаем текущий диск add al,'A' mov byte ptr [Current_dir],al ret Get_curdir endp ; === Change_dir === Change_dir proc mov ax,713Bh mov dx,offset Current_dir int 21h push 0B800h pop es mov ah,1Fh mov dx,0102h mov si,offset Current_dir call Print_string ret Change_dir endp ; === Выходим из программы? === Quit_prog proc push 1 ;высота рамки push offset Mess_quitl ;ширина рамки push 4F00h ;цвет - светло-белый на синем фоне push offset Mess_qup ;надпись вверху рамки (если 0, то не выводить) push 0 ;надпись внизу рамки (если 0, то не выводить) push offset Mess_quit ;сообщение внутри рамки push 01b ;Копировать экран, но не выводить верхнюю линию call Draw_frame ;Рисуем рамку call Pause call Restore_scr ;Восстановим сохранунную часть экрана. cmp al,'Y' ;Нажали 'Y' / 'y' / Enter (13)? je Yes_quit ;Да! cmp al,'y' je Yes_quit cmp al,13 je Yes_quit clc ;Ставим меточку, что нажали другую клавишу (сбросим флаг переноса). ret Yes_quit: stc ;Установим флаг переноса (нажали 'Y', значит выходим)... ret Quit_prog endp ; === Рисуем головную рамку === Draw_main_frame proc push 23 ;высота рамки push 78 ;ширина рамки (т.е. на весь экран) push Main_color ;цвет - светло-белый на синем фоне push offset Mess_head ;надпись вверху рамки (если 0, то не выводить) push offset Mess_down ;надпись внизу рамки (если 0, то не выводить) push 0 ;сообщение внутри рамки (если 0, то не выводить) push 10b ;Экран не копировать, но вывести верхнюю линию. call Draw_frame ;Рисуем рамку на весь экран ret Draw_main_frame endp
Messages.asm ; === MESSAGES.ASM - Конфигурационный файл === Begin_ini equ $ Mess_about db 0Ah, 0Dh, 'SuperShell - оболочка для DOS, написанная на Ассемблере.',0Ah, 0Dh db 'Рассылка "Ассемблер? Это просто! Учимся программировать", Выпуск № 026',0Ah,0Dh db 'http://www.Kalashnikoff.ru. E-mail: Assembler@Kalashnikoff.ru',0Ah,0Dh,0Ah db '(C) Авторские права на файлы-приложения принадлежат всем подписчикам рассылки.',0Ah, 0Dh, 0Ah db 9,9,'=== Россия, Москва, 2001 год ===',0Ah,0Dh,'$' Main_color dw 1F00h Mess_head db 1Eh, ' Super Shell, Версия 1.0 ',0 Mess_down db 1Dh, ' Россия, Москва, 2001 ',0 Mess_qup db 4Eh, ' Выход ',0 Mess_quit db 4Bh, ' Вы действительно хотите выйти в DOS (Y/N)?',0 Mess_quitl equ $-Mess_quit-1 ;Один байт занимает код цвета (4Bh) Size_ini equ $-Begin_ini	Data.asm ; === DATA.ASM - данные оболочки === ; ==== ПЕРЕМЕННЫЕ ==== Num_attr db ? ;переменная для атрибутов Num_DX dw ? Video_page db 0 ;текущая видеостраница Pos_cursor dw ? ;главная позиция курсора Handle dw ? ;Номер файла Current_file dw ? ;Текущий файл ; --- Данные для процедуры Draw_frame --- Height_X equ [bp+12] ;высота рамки Width_Y equ [bp+10] ;ширина рамки Attr equ [bp+8] ;атрибуты рамки Mess_up equ [bp+6] ;сообщение вверху рамки Mess_dn equ [bp+4] ;сообщение внизу рамки Mess_ins equ [bp+2] ;сообщение внутри рамки Other equ [bp] ;иная конфигурация окна

Приложение в Интернете

ВНИМАНИЕ! Прилагаемый алгоритм перехода по файлам при нажатии на "стрелку вниз" и "стрелку вверх" очень сложный и не доделаный (т.е. содержит море ошибок)! Читайте ниже...

_____________

Что нового у нас? Теперь оболочка сразу после загрузки переходит в корневой каталог текущего диска, читает файлы, выводит их длинные имена на экран, размеры, текущий каталог вверху, а также...

...А также теперь мы можем самостоятельно менять каталоги, т.е. лазить по диску! И еще перечитывать его (Ctrl+F3).

Обратите внимание, что теперь "бегает" (как это?) курсорчик, что ли? В общем, как в настоящем "Нортоне"! Только это все далеко не доделано (например, программа пытается перейти в каталог, которые на самом деле является файлом! Или не делает прокрутку на экране. Если файлов много, и они не вмещаются на экран, то курсор просто исчезает из поля видения, когда мы переходим нижнюю границу. Проще всего самим посмотреть, что делает оболочка и прямо сейчас). Почему мы не доделали ее?

Дело в том, что все не так просто, как кажется. Я вообще, когда увидел "Нортон" первый раз, то подумал, что курсорчик должен бегать по файлам обязательно. Т.е. это как бы не забота программы, а так, само собой. Потом, со временем, я понял, что все, что происходит на экране, должен делать программист. Даже этот злосчастный курсорчик...

Интересно, а как вы думаете, как вообще можно сделать выбор файла. Насколько это сложно - судить вам...

Рассмотрим алгоритм считывания файлов в память и перемещение по ним "стрелками".

Чтение файлов из каталога и размещение их в отведенной памяти.

Есть несколько способов размещения файлов в отведенной памяти программы.

1. Самый примитивный и простой. Предположим, что работаем мы ТОЛЬКО с короткими именами файлов (как в предыдущих версиях DOS, когда никто "слыхом не слыхивал" об имени файла длиной более 200 символов). Раньше все файлы имели длину не больше чем 12 байт (8 символов имя файла + "точка" + 3 символа расширение). Тогда отводим 13 байт памяти для каждого файла. Почему 13? Первый байт будет сигнализировать о статусе файла (т.е. либо отмеченный, либо текущий (на который будет указывать курсорчик), либо текущий + отмеченный). Статус файла будем получать при проведении некоторых операций с файлами (копирование, удаление, запуск и пр.). Т.о. в 64Кб отведенной памяти можно поместить более 5.000 файлов!

Чем хорош данный способ?

По файлам просто "бегать" и искать отмеченный или текущий. Просто перемещаем указатель на 13 и... получаем смещение следующего файл. Вы улавливаете мысль? Если нет, то попробуйте "проработать" наш файл-приложение под отладчиком. Будет о-о-очень сложно, но нужно!

2. Второй способ гораздо сложнее, зато экономит память. Файлы с длинными именами могут содеражть чуть более 255 символов. Теперь посчитаем, сколько файлов мы сможем поместить в 64Кб: 65536/255=256. Но некоторые каталоги содержат 400 и более файлов... Тогда нужно отводить еще один сегмент или использовать расширенную память (но этим будем заниматься позже), что усложнит задачу.

Как мы поступаем в оболочке?

Допустим, в некоторм каталоге существуют следующие файлы или каталоги:

1. assm.txt
2. Мои документы
3. Супер новый файл!.asm

Теперь внимательно следите за тем, как размещаем их в памяти. Для этого нужно будет вооружиться листком и ручкой (что я и делал при составлении данной таблицы). Допустим мы размещаем файлы в сегменте 1234h начиная со смещения 0000h (обратите внимание, что в оболочке файлы размещаются со смещения 500!):

Адрес	Статус файла (один байт)	Адрес следующего файла (два байта)	Адрес предыдущего файла (два байта)	Имя файла + ASCII 0
1234:0000h	0000h	0001h	0003h	0005h (assm.txt (8 + ASCCI 0 = 9 байт)
1234:000Dh	000Dh	000Eh	0010h	0012h (Мои документы = 13 + ASCII 0 = 14 байт)
1234:001Fh	001Fh	0020h	0022h	0024h (Супер новый файл!.asm = 21 + ASCII 0 = 22 байта)

Примечание. ВНИМАТЕЛЬНО изучите таблицу. Посмотрите, насколько поля, приведенные в данной таблице отличаются от нашей оболочки.

Теперь два слова.

Перед первым файлом мы заносим в поле "Адрес предыдущего файла" 0000h. Когда пользователь нажмет "стрелку вверх" на верхнем файле, то наша программа, прочитав смещение предыдущего файла, "поймет", что "выше" уже файлов нет и ничего не сделает.

Перед последним файлом занесем в поле "Адрес следующего файла" также 0000h. Когда пользователь нажмет "стрелку вниз", то наша программа "поймет", что "ниже" уже файлов нет и ничего не произойдет.

Если вы до сих пор не поняли, о чем идет речь, то нужно посидеть еще над файлом-приложением и поковыряться в нем до утра. Уверяю вас: то, что делает наша оболочка, когда заносит файлы в буфер - почти "ювелирная" работа. Занесенный по ошибке один байт "плюс-минус" - разрушит всю базу данный по файлам. Надеюсь, что принцип будет понятен, когда вы проведете несколько часов перед монитором...

"Зачем мне нужно сидеть перед монитором и ковыряться"?

Отвечу вопросом на вопрос: "Вы хотите научиться "разбирать по полочкам" чужие программы?" Поверьте, простая программа, написанная на Паскале, гораздо сложнее "понимается", чем аналогичная на ассемблере. Сегодня-завтра вы захотите разобрать чужую программу (ну, или уже захотели!), да мало что получится, если вы не разберете наш файл-приложение. Опыт приходит со временем и знания увеличиваются пропорционально часам, проведенным за отладчиком! Помните это!

На сегодня все!

Сюрприз

Уважаемые подписчики!

Я благодарен всем вам за то, что читаете нашу рассылку, что присылаете вопросы, программы, стараетесь всеми силами помочь мне, поддерживаете морально. Поверьте: я внимательно знакомлюсь со всеми письмами, приходящими ко мне на ящик. А писем, уверяю вас, много... Если есть возможность - отвечаю. Кто все-таки не получил ответ - извините... Времени у меня не так и много, вы знаете...

В общем, отвлекаюсь я. Дело в том, что я приготовил вам небольшой сюрприз, так сказать, ма-а-аленький подарок... К сожалению, не все вы сможете им воспользоваться (если можно так сказать), но все же... Итак, дорогие мои, жду вас всех прямо сейчас здесь. Очень надеюсь, что... В общем, обсудим позже...

С уважением,

Калашников Олег: Assembler@Kalashnikoff.ru
ICQ No.: 68951340
URL сайта подписчиков: http://www.Kalashnikoff.ru

______________

По вопросам сотрудничества, рекламы и спонсорства обращайтесь:

Публичное размещение материала из рассылки: Cooperation@Kalashnikoff.ru
Реклама на сайте: http://www.Kalashnikoff.ru/Reklama.html, Reklama@Kalashnikoff.ru
Издание книги (спонсорство): Sponsor@Kalashnikoff.ru

(C) Москва, 2001. Авторское право принадлежит Калашникову О.А. Публичное размещение материала из рассылки, а также его использование полностью или частично в коммерческих или иных подобных целях без письменного согласия автора влечет ответственность за нарушение авторских прав.

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="Войти">  <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> {#/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}

RFpro.ru: Ассемблер? Это просто! Учимся программировать

Статистика

Ассемблер? Это просто! Учимся программировать Выпуск N 26 (Оболочка)