VPF::Как частично заполнить экран символами

sharq

Дата 24.10.2005, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: нет
Всего: 28

Мне нужно заполнить экран 80х25 символом так, чтобы было заполнено пол-экрана по диагонали, т.е.

Цитата

aaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaa
aaaaaaaaaaaaa
aaaaaaaaaa
aaaaaaaa
aaaaaa
aaaa
aa

Делаю два цикла, но что-то не получается:

Код


     mov AX, 0B800h
     mov ES, AX

     mov CX, 25
     mov BX, 0
     mov DX, 0

lexter: push CX

        mov AX, 80
        sub AX, DX
         
        mov CX, AX
  
        linter: mov AL, 'a'
                  mov ES:[BX], AL
                  add BX, 2
                  loop linter
        
        mov AX, 0
        add AX, DX    
        add DX, 4

        add BX, AX
      
        pop CX
        loop lexter

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Akina

Дата 24.10.2005, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

алгоритмическая ошибка в строке 24.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

sharq

Дата 24.10.2005, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: нет
Всего: 28

Akina блин, а что именно, я понимаю, что неправильно указываю смещение для перехода на новую строку, как переделать не знаю...

Это сообщение отредактировал(а) sharq - 24.10.2005, 15:44

--------------------

[color=gray]There's More Than One Way To Do It[/color]

sharq

Дата 24.10.2005, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: нет
Всего: 28

Мне нужно сдвигаться на столько - сколько не достает символов до конца строки + 2 байта

--------------------

[color=gray]There's More Than One Way To Do It[/color]

sharq

Дата 25.10.2005, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: нет
Всего: 28

Вот другой вариант, но тоже не так работает.
Почему? понять не могу.

Код


     mov CX, 25
     mov BX, 0
     mov SI, 0

 l1: push CX  
     mov CX, 0
     
     l2: cmp BX, SI
         jng adda
         mov AL, 'o'
         jmp dalee   
         adda:  mov AL, 'a'
         dalee: mov ES:[BX], AL
         add BX, 2
         loop l2

     add BX, 80
     add SI, 82

     pop CX
     loop l1

--------------------

[color=gray]There's More Than One Way To Do It[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm для Windows/Dos \| Следующая тема »