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

 
 Ответить  Открыть новую тему 
> Вывод точки напрямую в видеопамять
сообщение
Сообщение #1


Lonely_Raven
****

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

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


:D
вывод точки напрямую в видео память
---
своя процедура
---
мне тут помогли (Dark) и я решил......
---
очень быстро
---

Код
Const color:array[0..10,0..14] of Byte=

((24,15,15,24,24,24,15,15,15,24,15,24,24,24,15),
(15,24,22,15,24,15,24,24,24,24,15,15,24,15,15),
(15,22,24,15,24,24,15,15,24,24,15,24,15,24,15),
(15,15,15,15,24,24,24,24,15,24,15,24,24,24,15),
(15,24,24,15,24,15,15,15,24,24,15,24,24,24,15),
(24,24,24,24,24,24,24,24,24,24,24,24,24,24,24),
(15,15,15,24,24,24,15,15,15,24,24,24,15,15,15),
(15,22,24,15,24,15,24,24,24,15,24,15,24,24,24),
(15,15,15,24,24,15,15,15,15,15,24,24,15,15,24),
(15,24,22,24,22,15,24,22,24,15,24,24,24,24,15),
(15,24,22,22,22,15,24,22,24,15,24,15,15,15,24));

Var
x,y,c,col:Word;

Procedure PixelOut(x,y:Word;c:Byte);
label we;
Begin
y:=y*320;

asm
xor ax,ax
mov bx,x            {in di 1000 smeshenie v video memory}
mov cx,y         {}
add bx,cx
    mov al,c
    cmp bx,64000
    je we
mov es:[bx],al  {<=> mov es:di, ds:si move strin byte 11 in vid memory es:di out ds:si}
we:
end;
end;
BEGIN
asm
mov ax,0013h
int 10h
mov ax,0a000h
mov es,ax
end;

for x:=0 to 14 do
   for y:=0 to 10 do begin
   col:=color[y,x];
PixelOut(100+x,50+y,col);
end;

asm
mov ah,0
int 16h
end;

end.


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


...
*****

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

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


Без помощи асмы напиши!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Lonely_Raven
****

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

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


:D а так чем хуже ???


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


...
*****

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

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


Ничем, только многие асму не знают и соответственно не понимают!  ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Lonely_Raven
****

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

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


:D
---
а PAS через порты еще более запутанно как в Фаронове
----


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


...
*****

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

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


А учить еще в нагрузку асму для многих еще запутанее!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Lonely_Raven
****

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

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


:D
---
две недели назад я ввобще не рубил ни единого бита в ASMe
---


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

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

 





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