Слушай, это ж был просто тестовый код! Зачем ты его переписываешь на асм?
Насчёт скролла понял. Попробую написать. Процедура будет брать адрес экрана по Y из таблички (это уже готово, кроме расчёта самой таблички - вот его точно надо на асм).
Высоту тайлов сделаем или 12, как ты и предложил, или 14. Что скажешь? Непарную (типа 13) делать нельзя, потому что тогда не будет полутайловой позиции.
Скорость на глазок получается весьма недурная. Когда сделаю вывод тайлов в полупозиции с битовыми сдвигами - отпишусь. Пока пришла мысль хранить два набора тайлов - обычный и сдвинутый на 2 пикселя (на полубайт). И при выводе каждой строки (4 байта) левый байт накладывать, потом выводить два следующих, и накладывать правый. Я такой вывод уже делал, правда, не для Львова, а для DOS/CGA.
Когда будет готов скролл и вывод тайла - тогда будем уже запускать игровой процесс. Ещё у нас есть процедура постепенного гашения экрана. Я так смотрю, что её можно будет взять из Мутельской версии (для Спека пришлось похачить). Погляди, может перепишешь для Львова.
Code:
static void lmove (unsigned to, unsigned from)
/*Пересылка (копирование) линии from в to*/
{{
struct line {char __[80];};
struct line _es * Lto;
struct line _es * Lfrom;
if (to == from || !(to < 192 && from < 192))
return;
_ES = seg;
to += 4;
from += 4;
Lto = (struct line _es *)((to >> 1) * 80 + ((to & 1) << 13));
Lfrom = (struct line _es *)((from >> 1) * 80 + ((from & 1) << 13));
*Lto = *Lfrom;
}}
static void lclr (unsigned line)
/*Очистка линии экрана с данным номером*/
{{
unsigned e = line;
long _es* L;
if (e < 192) {
e += 4;
_ES = seg;
L = (long _es*)((e >> 1) * 80 + ((e & 1) << 13));
for (e = 20; e; e--)
*L ++ = 0;
}
}}
void cls (void)
{{
unsigned char _es* i;
unsigned j;
_ES = seg;
i = 0;
for (j = 17; j; j--) {
run_delay (1);
while ((unsigned)i < 16384)
*i = 0, i += 17;
i = (unsigned char _es*)(0x3FFF & (unsigned)i);
wait_delay ();
}
ttyx = ttyy = 0;
}}
void scroll (signed lines)
/* +UP, -DOWN */
{{
unsigned media, line;
if (lines == 0)
return;
if (abs (lines) >= 192) {
cls ();
return;
}
if (lines > 0) {
media = 192 - lines;
for (line = 0; line < media; line ++)
lmove (line, line + lines);
while (line < 192)
lclr (line ++);
}
else {
media = -lines;
for (line = 191; line >= media; line --)
lmove (line, line + lines);
while (line < 192)
lclr (line --);
}
}}
!!! Спасибо !!!"