Super Typer/ru

Super Typer -- программа для KolibriOS, написанная Ксениусом. Является примером программирования, более интересным, чем Hello World, но тем не менее достаточно простым для понимания.

Исходный код версии от 16.04.2007:

<asm>; Super Typer 1.0 beta предоставит вам потрясающие

возможности по выводу на экран строки, набираемой вами.

Copileft (c) Xenius, 2007

Вы можете свободно распространять, изменять и использовать

данную программу на условиях GNU GPL (см www.gnu.org).

Часть программы основана на bye.asm из статьи

"Прикладное программирование для Kolibri OS. Вводный курс.", написанной Johnny_B

use32 ; используюся 32-х разрядные команды

Заголовок, используется Kolibri OS для запуска программы

 db 'MENUET01'   ; 1. идентификатор исполняемого файла (8 байт)
 dd 0x01	  ; 2. версия формата заголовка исполняемого файла
 dd START	  ; 3. адрес, на который система передаёт управление
 dd I_END	  ; 4. размер приложения
 dd I_END+0x1000 ; 5. объём необходимой приложению памяти
 dd I_END+0x1000 ; 6. вершина стека в диапазоне памяти, указанном выше
 dd 0x0	  ; 7. указатель на строку с параметрами.
 dd 0x0	  ; 8. указатель на строку, в которую записан путь запуска

START:  ; адрес начала программы call draw_window  ; вызываем функцию рисования окна xor esi,esi  ; инициализируем счетчик символов

затем переходим в цикл ожидания событий

event_wait: mov eax,10  ; функция 10: ожидание событие, int 0x40  ; его тип возвращён в eax cmp eax,1  ; запрос на перерисовку? je redraw cmp eax,2  ; нажата клавиша? je key cmp eax,3  ; нажата кнопка в окне программы? je button jmp event_wait  ; возвращаемся к началу цикла ожидания событий

после того, как событие идентифицировано, его надо обработать

redraw: call draw_window  ; вызываем функцию draw_window и jmp event_wait  ; возвращаемся назад к циклу ожидания key: mov eax,2  ; считываем код нажатой клавиши. Возвращен в ah. int 0x40 mov [I_END+esi],ah ; запишем этот код в конец строки inc esi ; увеличим счетчик символов cmp esi,255 ; проверка переполнения строки jg owerflow call typing ; выводим эту строку jmp event_wait

owerflow:			; при переполнении строки

xor esi,esi ; очистить ее jmp redraw ; и перерисовать окно button: mov eax,17  ; считываем идентификатор нажатой кнопки int 0x40  ; возвращен ah.

смотрим, какая кнопка была нажата и соответствующим образом реагируем.

cmp ah,1  ; кнопка с id=1("закрыть")? jne noclose

 clouse:

mov eax,-1  ; функция -1: завершить программу int 0x40

 noclose:

здесь проверяем остальные кнопки

jmp event_wait  ; и, конечно, возвращаемся к циклу ожидания :)

draw_window:  ; функция отрисовки окна mov eax,12 mov ebx,1  ; начало перерисовки int 0x40  ; ОКНО xor eax,eax  ; функция 0: определить и вывести окно mov ebx,100*65536+300  ; [x начальный] *65536 + [x размер] mov ecx,100*65536+120  ; [y начальный] *65536 + [y размер] mov edx,0x13ffffff  ; цвет рабочей области RRGGBB и стиль окна mov edi,text  ; текст в заголовке int 0x40

call typing  ; набранную строчку тоже надо перерисовать

mov eax,12 mov ebx,2  ; перерисовка окна окончена int 0x40 ret  ; конец функции typing:  ; функция прорисовки набираемой строки mov eax,4  ; четвертая функция рисует строку mov ebx,6*65536+30  ; координаты начала строки mov ecx,0x00000000  ; черный моноширинный шрифт mov edx,I_END  ; указатель на начало строки int 0x40  ; вызов прерывания Kolibri OS ret  ; возврат к точке вызова

ДАННЫЕ ПРОГРАММЫ

text db 'Type something:',0 I_END:  ; Указатель на конец файла и начало набираемой строки</asm>