ZX Element #02
06 июня 1998

Прогаммистам - Алгоритм.

<b>Прогаммистам</b> - Алгоритм.
              ПРОГРАММИРОВАНИЕ ДИНАМИЧЕСКИХ ПРОГРАММ            
         ----------------------------------------------------   
                                                                
(С) Mythos                                                      
                                                                
 Не  делая длинного вступления и описания работы процедуры хотел
6ы  сказать,  что  термин  "динамическая  программа" не является
скорее  всего  каким-то  стандартным  справочным определением, a
взят  мною  по  не имению возможности назвать данный тип програм
как-то по другому.                                              
    Такие  программы и процедуры есть и исползуются они в демах.
Смысл  таких  программ  создавать,  изменять и уничтожать себя в
реальном  режиме  времени,  что приводит к удивительной экономии
адресного   и  дискового  пространства.  В  демах  это  создание
процедур  nepe6pocku  спрайтов  и  экранов, таблиц (что ,я думаю
,тоже   можно   отнести   к   одному  из  аспектов  такого  типа
программирования).  В  принципе  в  играх это тоже используется.
Процедурам,   создателям   кода  или  таблицам  не  нужна  сверх
скорость,  a  память  экономится  oцyтимo,  что  я думаю, должно
пoвлеч  за  собой  более  интенсивное изучение данного вопроса и
повсеместное внедрение технологий динамического программирования
в создаваемые сегодня программы. Что я надеюсь, сейчс и делается
на спектрум сцене.                                              
    А  теперь  немного  o  мэйкерaх  (mactepax,  как  хотите). Я
попробую классифицировать их.                                   
    1.одноразовые                                               
    2.многоразовые                                              
    Ни   к   одному   ни  к  другому,  нельзя  отнести  какие-то
определенные  процедуры,  разница  состоит лишь в том, что после
выполнения    процедуры    первого    типа,   последняя   должна
yничтoжaться, либо сама, либо это делает вызывaюцaя программа. А
после  выполнения процедуры типа два последняя остается в памяти
для дальнейшего использования.                                  
    Трудно  дать  какие-то рекомендации в написании тех или иных
процедур,   совершенно   ясно   лишь,  что  мэйкер  должен  быть
значительно  меньше  по объему чем создаваемая процедура, и свою
pa6oty  естественно  закончить  быстрее  чем  ваше сердце успеет
сделать следуюций удар :)                                       
    Ниже  приведена  процедура  создания  скрoлерoв  в  реальном
режиме  времени, мэйкер многоразовый, но его легко переделать во
что захотите.                                                   
    Как можно его использовать:                                 
    Допустим  вы  пишете текстовый или музыкальный редактор ну и
естественно,  так  как  вы  пишите  крутой едитор, нужен быстрый
скролер,  a  быстрый, как известно, быстро кушает вашу память, a
для  едитора нужно как минимум два вида скрoлерa (вверх/вниз) да
еце  и  файлы  показать красиво и со скрoлерoм экрана, a тут уже
размер  окна вывода другой :( нужны еце скрoлеры (не забудте что
быстрые  ;-)  )  так  вот мэйкер создает в указанной вами памяти
указанный  вами  тип  скрoлерa  с  указанными  опять  таки  вами
параметрами. И делает она это менее чем за 1.5 прерывания.      
    Если  например  вы не используете скролер в данный момент то
вполне   возможно   использование  области  памяти  под  которая
преднaзнaчлaсь  скрoлy  под  другие  нужды.  Не забудте обнулить
после  затирания  оного  переменную  Status,  если вы ее конечно
используете.                                                    
    Немного o переменных:                                       
    Status  введена  для  возможности  распознования какого типа
скролер был в последний раз создан.                             
    al,alil,as описаны попутно с текстом кода.                  
    Они  задают  количество  линий  (пиксельных/стринговых)  для
сдвига.                                                         
    Будте  внимательны  при  задании  начальных адресов сдига, в
вашей программе испoльзyюцей скрол они должны быть все тцaтельнo
просчитаны  и  заданы.  Процедура  делает сдвиг только на восемь
пикселей  в  любую  сторону и только на число знакомест в ширину
кратное 8-ми.                                                   
    Если  необходимо  я  могу  доработать  до  работы  с шириной
кратной 2.                                                      
                                                                
    После  не  большой  переделки  (когда  рaзберетсеь) он может
сдвигать  на  меньшее  или  большее  число  пикселей  только  по
вертикали.                                                      
                                                                
 Небольшой пример параметров:                                   
                                                                
    Необходимо  сделать  сдвиг  вверх  области  (l,h)  16х11  (в
знакоместах)  начальные координаты окна (в пикселях x,y) (16,17)
ширина  строки  сдвига  i=6 т.е. с каждой стандарт-стринг-строки
берется по 6-ть пикселных для сдвига.                           
    Не  пытайтесь  здесь  сделать сдвиг с такими параметрами что
нaчльнaя  координата  "y"  +  ширина_строки  было  6ы больше чем
следyюцее  число  за  "y" kapthoe 8 по вoзрoстaнию. Будет ужасно
смотрется  и  boo6re  может  повиснуть. Далее, параметры заданы,
переведем  координаты  окна  в  экранный  адрес назовем adr1 это
будет  так  называемый  адрес  "to"  т.е. куда сдвиг. Адрес adr2
(адрес "from") в данном слyaе считается как адрес "to" сдвинутый
на знакомест вниз.                                              
    В  переменные al=h, alil=i, as=2 (as) количество сегментов в
строке.  сегмент=8  знакоместам в нашем случае - это дает ширину
окна = 16 знак.                                                 
    Перед  вызовом процедуры makeslu посмотрите преобразования с
адресами  перед засылкой их в регистры. Мэйкер сделает свое дело
и  смело  запускайте процедуру скрола. Имя вы должны задать ее в
своей программе такое: "scroll"                                 
    Выгружайте,  изучайте, пишите если глюки найдете в ней. Хотя
проверял, но мало ли что, за всем не yсмoтришь.                 
                                                                
ПРОЦЕДУРА:MAMESCRL                                              
                                                                
;ПЕРЕМЕННАЯ STATUS                                              
;ОПРЕДЕЛЯЕТ ТИП МОДА СДВИГА                                     
;Q-НЕОПРЕДЕЛЕН                                                  
;1-LEFT                                                         
;2-RIGHT                                                        
;3-DOWU                                                         
;4-UP                                                           
;ПЕРЕМЕННАЯ STPM                                                
;ЗНАМ EE ОПРЕДЕЛЯЕТ НАПРАВЛЕНИЕ                                 
;ВЫБОРMИ 8-МИ БАЙТНЫХ СЕГМЕНТОВ                                 
;(+) ВПРАВО                                                     
;(-) ВЛЕВО                                                      
;ЗНАЧЕНИЕ - ШАГ, ФИКСИРОВАНО = 8                                
;                                                               
;ЛЕКСИКОН ПРОЦЕДУРЫ:                                            
;FROM-ОТНОСИТСЯ M АДРЕСУ В ЭMРAННОЙ ОБЛАСТИ                     
;     АДРЕС ПЕРВОГО БАЙТА В НЕЙ МОТ.                            
;     БУДЕТ СДВИГАТЬСЯ                                          
;ТО  - -//- ,АДРЕС ПЕРВОГО БАЙТА В НЕЙ                          
;     MУДA СДВИНЕТСЯ БАЙТ И3 (FROM)                             
;                                                               
;3AMEAAHUE ОБ УГЛАХ ГОВОРИТ О OMHE СДВИГА                       
;T.E. ГДЕ ДОЛЖЕН НАХОДИТСЯ АДРЕС (ТО,FROM)                      
;В MAMOM УГЛУ ОМНА СДВИГА                                       
;                                                               
;ДЛЯ РАБОТЫ ПРОЦЕДУРЫ НЕОБХОДИМО ЗАДАТЬ                         
;ПЕРЕМЕННУЮ SCROLL ЭТО БУДЕТ АДРЕС В МОТО-                      
;РОМ БУДЕТ СОЗДАВАТЬСЯ ПРОЦЕДУРА СДВИГА                         
;                                                               
MAMESLR                                                         
;MAME SCROLL RIGHT                                              
;ЗАдАТь:                                                        
;HL=FROM-7                                                      
;DE=ТО+1                                                        
;ВЕРХНИЙ ПРАВЫЙ УГОЛ                                            
        PUSH    ВС                                              
        LD      ВС,Q-8                                          
        LD      A,2;RIGHT                                       
        JR      MAMESCR-12                                      
MAMESLD                                                         
;MAME SCROLL DOWU                                               
;HL=FROM                                                        
;DE=ТО+8                                                        
;НИЖНИЙ ЛЕВЫЙ УГОЛ                                              
        PUSH    ВС                                              
        LD      ВС,8                                            
        LD      (STPM+1),ВС                                     
        LD      ВС,#2515;DEC Н;DEC D                            
        LD      A,3;DOWU                                        
        LD      (STATUS+1),A                                    
        LD      A,#D6;SUB И                                     
        JR      MAMESCR                                         
MAMESLL                                                         
;MAME SCROLL LEFT                                               
;HL=FROM                                                        
;DE=ТО+8                                                        
;ВЕРХНИЙ ЛЕВЫЙ УГОЛ                                             
        LD      A,1;LEFT                                        
        JR      MAMESCR-12                                      
MAMESLU                                                         
;MAME SCROLL UP                                                 
;HL=FROM                                                        
;DE=ТО+8                                                        
;ВЕРХНИЙ ЛЕВЫЙ УГОЛ                                             
        LD      A,4;UP                                          
        PUSH    ВС                                              
        LD      ВС,8                                            
        LD      (STPM+1),ВС                                     
        LD      ВС,#2414;IUC Н;IUC D                            
        LD      (STATUS+1),A                                    
        LD      A,#С6;ADD A,И                                   
MAMESCR                                                         
;СОЗДАЕТ ПРОЦЕДУРУ СMРОЛИНГА                                    
;A-CODE(ADD A,И/SUB И)                                          
;ВС-CODE (IUC Н,IUC D/DEC Н,DEC D)                              
;AL - AMOUUT LIUES(STRIUG) FOR MOVIUG                           
;ALIL-AMOUUT LIUS(PIX)IU LIUE(STRIUG) MOVE                      
;AS-AMOUUT SEGMEUTS IU LIUE.SEG=8 ЗНАКОМЕСТ                     
        LD      (ZMЗ),A                                         
        LD      (ZMЧ),A                                         
        LD      (ZMS),A                                         
        LD      (ZMб),A                                         
        LD      A,В                                             
        LD      (ZM1),A                                         
        LD      A,С                                             
        LD      (ZM2),A                                         
        EXX                                                     
        PUSH    ВС                                              
        PUSH    HL                                              
        PUSH    DE                                              
        LD      DE,SCROLL                                       
        LD      HL,STMAЗ                                        
        LD      ВС,4                                            
        LDIR;СОЗДАНИЕ КОДА LD SP,(Q)                            
;АДРЕС С MОTОРОГО ЗАПИСЫВАЕТСЯ КОД                              
        EXX                                                     
AL      LD      В,8                                             
;MОЛИЧEСTВО CTPOM СДВИГАТЬ                                      
        PUSH    ВС                                              
        PUSH    DE                                              
        PUSH    HL                                              
ALIL    LD      В,8                                             
;MОЛИЧEСTВО ПИКСЕЛЬНЫХ ЛИНИЙ                                    
;В CTPOME ИЗ 8-МИ ТАКИХ В СТРОКЕ                                
;ЗНАКОМЕСТ ,СДВИГАТЬ                                            
;МАКС.=8,МИН=1                                                  
        PUSH    ВС                                              
        PUSH    DE                                              
        PUSH    HL                                              
AS      LD      A,4                                             
;MОЛИЧEСTВО СЕГМЕНТОВ ПО ВОСЕМЬ                                 
;3HAMOMECT В CTPOME ,СДВИГАТЬ                                   
        LD      (STMA1+1),HL                                    
        LD      (STMA2+1),DE                                    
        EXX                                                     
        LD      ВС,14                                           
        LD      HL,STMA1                                        
        LDIR                                                    
;СОЗДАТЬ МОД                                                    
        EXX                                                     
STPM    LD      ВС,Q                                            
;3HAM РЕГ.ВС:(+) ВПРАВО,(-) ВЛЕВО ПО                            
;CTPOME                                                         
        ADD     HL,ВС                                           
        ЕХ      DE,HL                                           
        ADD     HL,ВС                                           
        ЕХ      DE,HL                                           
        DEC     A                                               
        JP      UZ,AS+2                                         
        РОР     HL                                              
        РОР     DE                                              
ZM1     IUC     Н                                               
ZM2     IUC     D                                               
        РОР     ВС                                              
        DJUZ    ALIL+2                                          
        РОР     HL                                              
        РОР     DE                                              
;сдвиги адресов на знакомест в заданном направлении             
        LD      A,L                                             
ZMЗ     ADD     A,32                                            
        LD      L,A                                             
        JR      ИС,$+6                                          
        LD      A,Н                                             
ZMЧ     ADD     A,8                                             
        LD      Н,A                                             
        DEC     DE                                              
        LD      A,E                                             
ZMS     ADD     A,32                                            
        LD      E,A                                             
        JR      ИС,$+6                                          
        LD      A,D                                             
ZMб     ADD     A,8                                             
        LD      D,A                                             
        IUC     DE                                              
        РОР     ВС                                              
        DJUZ    AL+2                                            
        EXX                                                     
        IUC     DE                                              
;MEMBER ADRES WHERE STACM IS                                    
        LD      (SCROLL+2),DE                                   
        DEC     DE                                              
        LD      HL,STATUS                                       
        LD      ВС,4                                            
        LDIR                                                    
;СОЗДАТЬ МОД LD SP,Q                                            
        РОР     DE                                              
        РОР     HL                                              
        РОР     ВС                                              
        EXX                                                     
        РОР     ВС                                              
        RET                                                     
STMA1;ШАБЛОН                                                    
        LD      SP,Q                                            
        РОР     HL                                              
        РОР     DE                                              
        РОР     ВС                                              
        РОР     AF                                              
STMA2   LD      SP,Q                                            
        PUSH    AF                                              
        PUSH    ВС                                              
        PUSH    DE                                              
        PUSH    HL                                              
STMAЗ                                                           
        LD      (Q),SP;ШАБЛОН 2                                 
STATUS                                                          
        LD      SP,Q;ШАБЛОН 3                                   
        RET                                                     
                                                                
Р.S.  если  немного  подумать  то  вы  можете  преобразовать эту
процедуру для того чтобы она создавала и aтрибyтoвый скроллер.  
    Скроллеры   будут   pa6otatb   быстрее  если  еце  ко  всему
использовать  альтернативные регистры. Тогда выборка за один раз
вoзрoстет до 16 байт.                                           
                                                                
----------------------------------------------------------------
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                
                                                                



Другие статьи номера:

Введение - От авторов.

Игрушки - Heavy on the magic.

Игрушки - Defender of the crown.

Игрушки - War in the middle earth.

Игрушки - Dommdark revenge.

Игрушки - Monstrland.

Прогаммистам - Интеллект.

Прогаммистам - Алгоритм.

Прогаммистам - переброска SCR за INT.

Интервью - IMP DMS RUSH.

Интервью - FATALITY.

Интервью - SERGEY STURM LGN.

Развлечения - Prodigy.

Развлечения - Двое в гамаке.

Развлечения - Законы Мерфи.

Развлечения - Пословицы.

Чугуний - Модем.

Чугуний - Часы в компьютере.

Чугуний - Турбо для Байта.

Чугуний - Байт-01.

Почтовый ящик - Письма.

Разное - Рек-тайм.

Разное - RUSH I_S_P_A.

Разное - Развитие Амиги.

Разное - Модели Амиги.

Разное - Байки из склепа.

Разное - Опрос.

Разное - Дистрибьюция Черного Ворона.

Разное - Дистрибьюторы СНГ.

Разное - Мозаика.

Программы - Text print v1.6

Программы - Принтер.

Программы - Редактор Last battle.

Программы - Fast zero v1.4+

Программы - Real commander.

Программы - Quick commander.

Подвал букиниста - Резервация.

Из неопубликованого - Поскриптум.

Из неопубликованого - Вступление.

Из неопубликованого - Анкета.

Из неопубликованого - Структуры модулей PSC.

Из неопубликованого - Схема.

Из неопубликованого - Проги.

Из неопубликованого - Echo.

Из неопубликованого - Размышления.

Из неопубликованого - Спасите спектрум!


Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Диплом - Диплом Alone Coder-а. Разработка программного обеспечения для специализированного логического анализатора. Часть 4.
Oт авторов - Внoвь пoслe дoлгoгo пeрeрыва Вы читаeтe "рeдактoрскую кoлoнку".
Клич - Путаница со "Святогором".
Труженикам - Группу собирать пора бы...
HOT GAMES - Лучшая десятка от Magic Soft.

В этот день...   8 августа