IPB
ЛогинПароль:

> -=FAQ=-
сообщение
Сообщение #1


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


F A Q

Содержание
Все примеры в COM-формате


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


Графический курсор мыши



.8086
.MODEL TINY
.CODE
ORG 100h

START:
xor ax,ax ; Сбросить драйвер
int 33h ;
inc ax ; Если AX=0FFFFh - драйвер установлен
jz MouseInstalled ;
lea dx,Error ; Не установлен...
mov ah,9 ;
int 21h ;
jmp Exit ;

MouseInstalled:
mov ax,13h ; Устанавливаем графический видеорежим
int 10h
mov ax,9 ; Установить графический курсор мыши
mov bx,8 ; Положение координатной точки от левого края
mov cx,8 ; от верхнего края
lea dx,M1 ; Адрес маски курсор и экрана
int 33h
mov ax,0A000h ;
mov es,ax ;
xor di,di ;
mov cx,32000 ;

NextRandPix: ;
inc ax ;
stosw ;
loop NextRandPix ; Заполняем экран разноцветными пикселями
mov ax,1 ; Отобразить курсор мыши
int 33h

@Wait:
mov ax,3 ; Ожидание нажатия клавиши (любой)
int 33h ;
and bx,7
jz @Wait

Exit:
mov ax,4C00h
int 21h

mes db 'CopyRight xxxxxxxh','$'
mes1 db 'The Nick Shadow Maverick','$'
Error db 'Драйвер мыши не установлен, либо не соответствует стандарту Microsoft$'

; Желательно, чтобы маска экрана была инверсна самому изображению
; если, конечно нет каких либо весомых причин, чтобы делать иначе :)
; 1234567890123456
m1 dw 1001110000101110b;1
dw 0110101111100100b;2
dw 0000110001101010b;3
dw 0110111110101110b;4
dw 0110100001101110b;5
dw 1111111111111111b;6
dw 0001110000110000b;7
dw 0110110111101111b;8
dw 0000110001110001b;9
dw 0111010111111110b;10
dw 0000010000100001b;11
dw 1111111111111111b;12
dw 0000000000000000b;13
dw 1111110000111111b;14
dw 1111110000111111b;15
dw 1111110000111111b;16
; Само изображение курсора
; 0123456789012345
m2 dw 0110001111010001b;1
dw 1001010000011011b;2
dw 1111001110010101b;3
dw 1001000001010001b;4
dw 1001011110010001b;5
dw 0000000000000000b;6
dw 1110001111001111b;7
dw 1001001000010000b;8
dw 1111001110001110b;9
dw 1000101000000001b;10
dw 1111101111011110b;11
dw 0000000000000000b;12
dw 1111111111111111b;13
dw 0000001111000000b;14
dw 0000001111000000b;15
dw 0000001111000000b;16
END START



--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Shadow   -=FAQ=-   9.05.2003 6:53
Shadow   Re: -=FAQ=-   9.05.2003 7:04
Shadow   Re: -=FAQ=-   9.05.2003 7:09
Shadow   Re: -=FAQ=-   9.05.2003 7:11
Shadow   Re: -=FAQ=-   9.05.2003 7:12
GLuk   Re: -=FAQ=-   11.05.2003 18:30


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.04.2024 21:11
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name