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

 



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