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

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

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

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


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

 

- Текстовая версия 25.07.2025 22:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"