|
ZX Element
#02
06 июня 1998 |
|
Прогаммистам - Алгоритм.
ПРОГРАММИРОВАНИЕ ДИНАМИЧЕСКИХ ПРОГРАММ ---------------------------------------------------- (С) 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 байт. ----------------------------------------------------------------
Другие статьи номера:
Похожие статьи:
В этот день... 19 апреля