ZX Forum #04 19 ноября 1997

Программирование

Технология спрайтов - часть 6: подготовка данных к печати.

  ПОДГОТОВКА ДАННЫХ ДЛЯ ПЕЧАТИ

   Перед  тем   как   напечатать
спрайт на экране, мы должны под-
готовить для  этого  необходимые
данные, дабы при печати  не  от-
влекаться на эти детали.
   Давайте выделим несколько пе-
ременных, в которых у нас  будут
храниться данные:

   COORD - координаты печати 1 -
Y, 2 - X.
   LENHGT  -  длина  спрайта  (в
знакоместах)  и  его  высота  (в
пикселях).
   ADRSPR - адрес данных спрайта
в памяти.

   А теперь  давайте  посмотрим,
как же нам поместить нужные дан-
ные в эти переменные. Ранее мы с
вами уже  говорили  о  различных
способах хранения данных  и  со-
ответственно  о  разных   блоках
спрайтов и заголовков к ним. Для
начала заполним  эти  переменные
для спрайтов одинакового  разме-
ра. Одним из  параметров  такого
блока является полная длина  од-
ного спрайта (длина маски + дли-
на спрайта + (если  есть)  длина  
атрибутов):
   На входе в регистре A  должен
быть номер спрайта (нумеруются с
0).  На выходе в переменной ADR-
SPR будет адрес спрайта, в пере-
менной LENHGT его длина и  высо-
та.
140.
ODINAK  LD   HL,SPRDATA+4  ;В HL адрес данных спрайтов. Посколь-
                           ;ку первые 4 байта составляют заголо-
                           ;вок, мы их пропускаем.
        AND  A             ;Если номер спрайта 0, переходим.
        JR   Z,ODINAK1
        LD   B,A           ;Организуем цикл.
        LD   DE,LINESPR    ;В DE длина одного спрайта.
        ADD  HL,DE         ;Складываем.
        DJNZ $-1           ;Завершаем цикл.
ODINAK1 LD   (ADRSPR),HL   ;В переменную заносим адрес данных
                           ;спрайта.
        LD   HL,(ZAGOLOWOK);В HL длина и высота спрайта, которые
                           ;указаны в заголовке блока спрайтов
                           ;(помните, там должны быть эти  дан-
                           ;ные).
        LD   (LENHGT),HL   ;В переменную их.
        RET                ;Выход.
2
   Теперь  перейдем  ко  второму
типу блоков спрайтов - разнород-
ным спрайтом, то есть спрайты  в
этом блоке  могут  иметь  разные
размеры. Переменные остались  те
же, при входе в  подпрограмму  в
регистре  A  должен  быть  номер
спрайта (нумерация с 0). Для на-
чала  заполним  переменные   для
ОТДЕЛЬНОЙ таблицы:
140.
OTDEL  LD   L,A          ;Заносим номер спрайта в регистр L.
       LD   H,#00        ;Обнуляем H.
       ADD  HL,HL        ;Так как на каждый спрайт в таблице от-
                         ;водится 4 байта, умножаем номер спрай-
                         ;та на 4.
       ADD  HL,HL
       LD   DE,SPRDATA   ;В DE адрес таблицы.
       ADD  HL,DE        ;Получаем в HL адрес данных о спрайте.
       LD   E,(HL)       ;Заносим в DE адрес самого спрайта, для
                         ;чего читаем данные по адресу в  регис-
                         ;тре HL.
       INC  HL
       LD   D,(HL)
       INC  HL
       PUSH HL
-------------------------
       LD   HL,SPRDATA   ;Мы с Вами уже говорили, что вместо ко-
                         ;нкретного адреса спрайтов может указы-
                         ;ваться смещение до спрайта  от  адреса
                         ;загрузки. Если было  задано  смещение,
                         ;то и в регистре DE у нас к  этому  мо-
                         ;менту находится  смещение  до  нужного
                         ;нам  спрайта.  Чтобы  получить   адрес
                         ;спрайта, мы к смещению прибавляем  ад-
                         ;рес загрузки.  Если  задавался  адрес,
                         ;эти две строки нужно убрать.
       ADD  HL,DE
-------------------------
OTDEL1 LD   (ADRSPR),HL  ;Заносим в переменную адрес данных
                         ;спрайта.
       POP  HL

140.       LD   C,(HL)       ;Заносим в BC длину и высоту, на кото-
                         ;рые указывает HL.
       INC  HL
       LD   B,(HL)
       LD   (LENHGT),BC  ;Заносим в переменную длину и высоту.
       RET               ;Выход.
2
   Теперь  заполним  данные  для
СКВОЗНОЙ таблицы. Переменные ос-
тались те же.
140.
SKWOZ  LD   HL,SPRDATA   ;В HL адрес загрузки спрайтов.
       AND  A            ;Если номер спрайта 0, переходим.
       JR   Z,SKWOZ1
       LD   B,A          ;В B номер спрайта, организуем цикл.
SKWOZ2 LD   E,(HL)       ;Заносим в DE адрес следующего спрайта.
       INC  HL
       LD   D,(HL)
       EX   DE,HL
-------------------------
       LD   DE,SPRDATA   ;Мы с Вами уже говорили, что вместо ко-
                         ;нкретного адреса спрайтов может указы-
                         ;ваться смещение до спрайта  от  адреса
                         ;загрузки. Если было  задано  смещение,
                         ;то и в регистре DE у нас к  этому  мо-
                         ;менту находится  смещение  до  нужного
                         ;нам  спрайта.  Чтобы  получить   адрес
                         ;спрайта, мы к смещению прибавляем  ад-
                         ;рес загрузки.  Если  задавался  адрес,
                         ;эти две строки нужно убрать.
       ADD  HL,DE
-------------------------
SKWOZ3 DJNZ SKWOZ2       ;Закрываем цикл.
SKWOZ1 INC  HL           ;В HL адрес данных спрайта.
       INC  HL           ;Увеличиваем  HL на два. Теперь HL ука-
                         ;зывает на длину и высоту спрайта. Вре-
                         ;менно сохраняем.
       PUSH HL
       INC  HL           ;Увеличив HL еще на 2, мы получим адрес
                         ;данных спрайта.
       INC  HL
       LD   (ADRSPR),HL  ;В переменную заносим адрес данных
                         ;спрайта.
       POP  HL           ;Восстанавливаем HL.
       LD   C,(HL)       ;В BC заносим длину и высоту.
       INC  HL
       LD   B,(HL)
       LD   (LENHGT),BC  ;В переменную их.
       RET               ;Выход.
2
   Ну вот, теперь Вы сможете ра-
ботать практически с  любым  ти-
пом заголовков. Основное  разли-
чие  между  разными  программами
формирования  спрайтов   состоит
именно  в  формате  формируемого
ими  заголовка.  Мы  рассмотрели
основные, и Вам не составит тру-
да переделать эти процедурки для
немного измененных  типов  заго-
ловков.