Black Crow #04
01 сентября 2000

Программистам - Быстрый скроллер экрана с атрибутами.

<b>Программистам</b> - Быстрый скроллер экрана с атрибутами.
                                         
 СКРОЛЛИНГ ЭКРАНА С АТРИБУТАМИ 
                                         
(С) PunisHer/VooDoo People               
-----------------------------------------
   Я  хочу  представить  два  скроллера -
вниз  и вверх с атрибутами. Ничего толко-
вого  говорить не буду, скажу лишь одно -
эти  подпрограммы создают конструкции ти-
па:                                      
        LD   SP,Откуда                   
        РОР  HL                          
        LD   (Куда),HL                   
        РОР  HL                          
        LD   (Куда),HL                   
        РОР  HL                          
        LD   (Куда),HL                   
        ...........                      
        РОР  HL                          
        LD   (Куда),HL                   
        РОР  HL                          
        LD   (Куда),HL                   
        LD   SP,Откуда                   
        РОР  HL                          
        LD   (Куда),HL                   
                                         
   Вот листинги подпрограмм:             
                                         
;СКРОЛЛЕР ВНИЗ С АТРИБУТАМИ              
;(С) PunisHer/VooDoo People              
                                         
DOWN    EQU  #8000 ;по этому адресу будет
                   ;scroll`ер            
        LD   HL,#5740;откуда (экран)     
        LD   DE,#5760;куда               
        LD   IX,DOWN ;тут создать        
        LD   (IX),#ED;команда LD (0),SP  
        LD   (IX+1),#73                  
        LD   IX,DOWN+4                   
        EXX                              
        LD   HL,#5A40;откуда (attr)      
        LD   DE,#5A60;куда               
        LD   С,16    ;кол-во знаком. Y-1 
М3      EXX                              
        LD   A,8;пикселей в знакоместе   
        LD   (IX),#31;LD SP,откуда       
        LD   (IX+1),L                    
        LD   (IX+2),Н                    
        INC  IX                          
        INC  IX                          
        INC  IX                          
М2      PUSH DE                          
        LD   В,16    ;длина строки (X/2) 
М1      LD   (IX),#Е1;РОР HL             
        LD   (IX+1),#22;LD (куда),HL     
        LD   (IX+2),Е                    
        LD   (IX+3),D                    
        PUSH ВС                          
        LD   ВС,4                        
        ADD  IX,ВС                       
        РОР  ВС                          
        INC  DE                          
        INC  DE                          
        DJNZ М1                          
        РОР  DE                          
        ЕХ   AF,AF`                      
        CALL DEC_DE                      
        CALL DEC_HL                      
        LD   (IX),#31;LD SP,откуда       
        LD   (IX+1),L                    
        LD   (IX+2),Н                    
        LD   ВС,3                        
        ADD  IX,ВС                       
        ЕХ   AF,AF`                      
        DEC  A                           
        JR   NZ,М2                       
        EXX                              
        LD   В,16                        
        LD   (IX-2),L                    
        LD   (IX-1),Н                    
ММЧ     LD   (IX),#Е1;РОР HL             
        LD   (IX+1),#22;LD (куда),HL     
        LD   (IX+2),Е                    
        LD   (IX+3),D                    
        PUSH ВС                          
        LD   ВС,4                        
        ADD  IX,ВС                       
        РОР  ВС                          
        INC  DE                          
        DEC  HL                          
        DEC  HL                          
        INC  DE                          
        DJNZ ММЧ                         
        PUSH ВС                          
        ЕХ   DE,HL                       
        AND  A                           
        LD   ВС,#40                      
        SBC  HL,ВС                       
        ЕХ   DE,HL                       
        РОР  ВС                          
        DEC  С                           
        JR   NZ,М3                       
        LD   (IX),#31                    
        INC  IX                          
        LD   (IX+2),#С9;RET              
        PUSH IX                          
        РОР  HL                          
        LD   IX,DOWN                     
        LD   (IX+2),L                    
        LD   (IX+3),Н                    
        RET                              
                                         
;СКРОЛЛЕР ВВЕРХ С АТРИБУТАМИ             
;(С) PunisHer/VooDoo People              
UP      EQU  #С000                       
        LD   HL,#4080;ОТКУДА             
        LD   DE,#4060;КУДА               
        LD   IX,UP   ;ТУТ СОЗДАЁМ ROLLER 
        LD   (IX),#ED;LD (0) SP          
        LD   (IX+1),#73                  
        LD   IX,UP+4                     
        EXX                              
        LD   HL,#5880                    
        LD   DE,#5860                    
        LD   С,16    ;КОЛ-ВО ЗНАКОМ. Y-1 
ММЗ     EXX                              
        LD   A,8     ;ЛИНИЙ В ЗНАКОМЕСТЕ 
        LD   (IX),#31;LD SP,ОТКУДА       
        LD   (IX+1),L                    
        LD   (IX+2),Н                    
        INC  IX                          
        INC  IX                          
        INC  IX                          
ММ2     PUSH DE                          
        LD   В,16    ;ДЛИНА X/2          
ММ1     LD   (IX),#Е1;РОР HL             
        LD   (IX+1),#22;LD (КУДА),HL     
        LD   (IX+2),Е                    
        LD   (IX+3),D                    
        PUSH ВС                          
        LD   ВС,4                        
        ADD  IX,ВС                       
        РОР  ВС                          
        INC  DE                          
        INC  DE                          
        DJNZ ММ1                         
        РОР  DE                          
        ЕХ   AF,AF`                      
        CALL NEX_DE                      
        CALL NEX_HL                      
        LD   (IX),#31;LD SP,ОКУДА        
        LD   (IX+1),L                    
        LD   (IX+2),Н                    
        LD   ВС,3                        
        ADD  IX,ВС                       
        ЕХ   AF,AF`                      
        DEC  A                           
        JR   NZ,ММ2                      
        EXX                              
        LD   (IX-3),#31                  
        LD   (IX-2),L                    
        LD   (IX-1),Н                    
        LD   В,16                        
        LD   (IX-3),#31                  
        LD   (IX-2),L                    
        LD   (IX-1),Н                    
МММЧ    LD   (IX),#Е1;РОР HL             
        LD   (IX+1),#22;LD (КУДА),HL     
        LD   (IX+2),Е                    
        LD   (IX+3),D                    
        PUSH ВС                          
        LD   ВС,4                        
        ADD  IX,ВС                       
        РОР  ВС                          
        INC  DE                          
        INC  HL                          
        INC  HL                          
        INC  DE                          
        DJNZ МММЧ                        
        DEC  С                           
        JR   NZ,ММЗ                      
        LD   (IX),#31                    
        INC  IX                          
        LD   (IX+2),#С9;RET              
        PUSH IX                          
        РОР  HL                          
        LD   IX,UP                       
        LD   (IX+2),L                    
        LD   (IX+3),Н                    
        RET                              
                                         
;Дальше идут стандартные подпрограммы    
;увеличения и уменьшения адреса экрана:  
                                         
NEX_DE  INC  D                           
        LD   A,D                         
        AND  7                           
        RET  NZ                          
        LD   A,Е                         
        ADD  A,#20                       
        LD   Е,A                         
        RET  С                           
        LD   A,D                         
        SUB  8                           
        LD   D,A                         
        RET                              
                                         
NEX_HL  ЕХ   DE,HL                       
        CALL NEX_DE                      
        ЕХ   DE,HL                       
        RET                              
                                         
DEC_DE  DEC  D                           
        LD   A,D                         
        CPL                              
        AND  7                           
        RET  NZ                          
        LD   A,Е                         
        SUB  #20                         
        LD   Е,A                         
        RET  С                           
        LD   A,D                         
        ADD  A,8                         
        LD   D,A                         
        RET                              
                                         
DEC_HL  ЕХ   DE,HL                       
        CALL DEC_DE                      
        ЕХ   DE,HL                       
        RET                              
                                         
   Для чего это всё нужно? Абсурдно наби-
рать в ассемблере  многокилометровые лис-
тинги, где будет одно и то же, поэтому мы
предлагаем вам своеобразный  инсталлятор,
который сформирует нужный алгоритм в ОЗУ.
   Данный алгоритм скроллера является од-
ним из быстрых и рекомендуется к примене-
нию в различных  читалках текста, играх и
прочих программах, где память не критична
и можно себе позволить большой, но эконо-
мичный для процессора алгоритм переброски
памяти.                                  



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

Программистам - Структура программ.

Программистам - Современные программы.

Программистам - Быстрый скроллер экрана с атрибутами.

Программистам - Перехват IM 1

Программистам - Теория: передача данных на компьютере.

Очумелые ручки - Набор схем, блуждающих в сетях.

Очумелые ручки - Gigascreen для Пентагона с интерлейсом.

Белый попугай - Интернет похметолог и его полезные советы.

Белый попугай - Выйди замуж за кодера.

Белый попугай - Советы молодожёнам (продолжение).

Белый попугай - Анекдоты о Штирлице.

Раскрутка - Soft из Харькова: PiFormat,

Раскрутка - Gluk Reset Service v5.2

Раскрутка - Обзор новых системок: BGE, Best Viewer, ExHummer, Selicon Player, SlangPro, Quick Commander,

Раскрутка - Crime Santa Claus-2

Игротека - В мире NETHER World.

Игротека - Сценарии будущих игр.

Игротека - Впечатление от "Чёрного Ворона".

Игротека - Super Laser Squad.

Игротека - Потрясающий шедевр: описание игры 8-й отдел.

Игротека - Обзор игрушек: Clickmania, Japan Contrast, Smagly 3, Worm World, Демониада, Towdie, Пасьянс Пирамида.

Разное - Intel outside.

Разное - Страшилка.

Разное - Реклама.

Трибуна - Рассуждения на тему.

Трибуна - Занимательные советы.

Трибуна - Украинский национализм.

Трибуна - Pidarsoft: реакция.

Трибуна - От редакции.


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

Похожие статьи:
Креаторы - Sisoft: Решил-таки хоть что-то написать о себе.
Железо - Доработка модема - релюшка.
Клич - Что делать с Нечистью в "Святогоре"?

В этот день...   23 января