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

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

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


Lonely_Raven
****

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

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


ПРИВЕТ!!! ALL!!
================
ВОт реализовано позиционирование сама строка
и атрибуты
==================
Procedure InitTV; assembler;
 asm
   mov ax,0003h
   int 10h
 end;


Procedure WK;Assembler;
 asm
   mov ax,0
   int 16h
   xor ax,ax
 end;

Procedure OS(x,y : Byte; S : String; c : Byte);
 Begin
  asm
   push ds
   mov ax,ss
   mov ds,ax
   lea si,y
   mov ax,80
   mov cx,[si]
   mul cx
   lea si,x
   mov cx,[si]
   add ax,cx
   mov cx,0002h
   mul cx
   mov di,ax
   mov ax,0b800h
   mov es,ax
   lea si,S
   mov ah,0
   mov al,[si]
   mov cx,ax
   inc si
@out:
   mov al,[si] {Symbol}
   mov ah,c    {attribut}
   inc si      {nex symbol}
   mov es:[di],ax  {to video memory}
   inc di      {movenau to video memory}
   inc di      {increment 2 se also for 1 symbol 2 byte memory}
   loop @out
   pop ds
  end;
 end;

BEGIN
 InitTV;
 OS(36,10,'Hello',254);
 WK;
END.


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

Сообщений в этой теме
Shadow   напрямую с памятью в тескст режиме   27.05.2004 2:51
BlackShadow   А зачем так сложно? Procedure OS(x,y : Byte; S : S…   27.05.2004 15:38
FreeMan   А шо такое CBW? Какая-то фишка с флагами?   27.05.2004 20:23
Shadow   BlackShadow не работает даже если и настроить то т…   27.05.2004 22:35
Shadow   BlackShadow кроме того CBW рушит адресс в регист…   27.05.2004 22:44
Shadow   to BlackShadow еще забыл адресс умножить на 2 т.к.…   27.05.2004 23:22
Shadow   FreeMan CBW преобразование байта в слово   28.05.2004 21:23
FreeMan   Я уже почитал в TechHelp'e, но всё-равно спаси…   29.05.2004 15:11
GLuk   Товарисчи!! Кто же юзает MUL, если все изн…   30.05.2004 0:47
Shadow   :D =========== Я на это и расчитывал что кто нибу…   30.05.2004 3:40
GLuk   Ну SHR конечно не прокатит... Может как-нибудь пер…   30.05.2004 14:15
Shadow   а вот тут по подробнее почему не прокатит делить…   30.05.2004 17:51
BlackShadow   Shadow, про ES согласен - забыл. Про "сбивает…   31.05.2004 14:40
GLuk   Там много переписывать не надо, исходник у меня ес…   1.06.2004 0:49
Shadow   GLuk нееет Я так понял что SHR там в CRT модуле не…   1.06.2004 15:25
GLuk   Shadow - Это вопрос или предложение?? :) Чой-то …   1.06.2004 16:17
Shadow   Значит мы оба не понимаем пост был вот таким а о…   1.06.2004 21:20
GLuk   Все догнано и понято :) , дык что там насчет CRT??   1.06.2004 22:24
Shadow   нет мы опять не поняли ----------- Я все-таки хоч…   1.06.2004 23:18
GLuk   SHR не прокатит только потому, что делить дам прос…   1.06.2004 23:24
Shadow   наконец разбрались а то я уж чуть не умер :) ----…   2.06.2004 0:34
GLuk   Исходники CRT у меня где-то были, а под 386 там ни…   2.06.2004 1:04
Shadow   а 32 регистры смошешь сделать или это скорей всег…   2.06.2004 2:38


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

 





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