Coding - процедура печати 42 символа в строке (с трабутами), процедура быстрой печать спрайта с точностью до пикселя.

<b>Coding</b> - процедура печати 42 символа в строке (с трабутами), процедура быстрой печать спрайта с точностью до пикселя.

(С) D.M0r0Zz
__________________________________________


   Всем привет! Тема сегодняшней  програм-
мы: быстрая печать  42-х  символов в стро-
ке, атрибуты в этом же режиме,старые песни
о scroll'е и быстрый вывод спрайта  с точ-
ностью до пикселя (stack free). Поехали!

1.  Быстрая печать 42-х символов в строке.


   Итак, для начала необходимо сотворить 3
дополнительных фонта, причем,каждый из них
будет в 2 раза больше исходного (4096 байт
каждый), плюс ко всему прочему, за  каждым
из фонтов будет следовать табличка для ад-
ресов его символов (512 байт). Этим факин-
гом занимается подпрога под названием CRE-
AТ. Ее необходимо call'нуть в самом  нача-
ле, а затем можно безбоязненно пользовать-
ся PRINT, подробнее о котором далее.
   Предупреждение: ни одна из меток не не-
сет абсолютно никакой смысловой нагрузки;)


FONT    EQU     АДРЕС БАЗОВОГО ФОНТА
FONT2   EQU     49152
FONT3   EQU     FONT2+4096+512
FONT4   EQU     FONT3+4096+512


CREAT
        LD      DE,FONT2
        LD      HL,FONT
        LD      BC,2048
F_CR1   LD      A,(HL)
        RLCA
        RLCA
        AND     3
        LD      (DE),A
        INC     DE
        LD      A,(HL)
        RLCA
        RLCA
        AND     252
        LD      (DE),A
        INC     DE
        INC     HL
        DEC     BC
        LD      A,B
        OR      C
        JR      NZ,F_CR1
        LD      B,0
        LD      IX,FONT2+4096
        LD      HL,FONT2
        LD      DE,16
F_CR11  LD      (IX),L
        INC     IX
        LD      (IX),H
        INC     IX
        ADD     HL,DE
        DJNZ    F_CR11


        LD      HL,FONT
        LD      DE,FONT3
        LD      BC,2048
F_CR2   LD      A,(HL)
        RRCA
        RRCA
        RRCA
        RRCA
        AND     15
        LD      (DE),A
        INC     DE
        LD      A,(HL)
        RRCA
        RRCA
        RRCA
        RRCA
        AND     240
        LD      (DE),A
        INC     DE
        INC     HL
        DEC     BC
        LD      A,B
        OR      C
        JR      NZ,F_CR2
        LD      B,0
        LD      IX,FONT3+4096
        LD      HL,FONT3
        LD      DE,16
F_CR21  LD      (IX),L
        INC     IX
        LD      (IX),H
        INC     IX
        ADD     HL,DE
        DJNZ    F_CR21


        LD      BC,2048
        LD      HL,FONT
        LD      DE,FONT4
F_CR3   LD      A,(HL)
        RRCA
        RRCA
        AND     63
        LD      (DE),A
        INC     DE
        LD      A,(HL)
        RRCA
        RRCA
        AND     128+64
        LD      (DE),A
        INC     DE
        INC     HL
        DEC     BC
        LD      A,B
        OR      C
        JR      NZ,F_CR3
        LD      B,0
        LD      IX,FONT4+4096
        LD      HL,FONT4
        LD      DE,16
F_CR31  LD      (IX),L
        INC     IX
        LD      (IX),H
        INC     IX
        ADD     HL,DE
        DJNZ    F_CR31
        RET


   Ну вот,теперь можно и что-нибудь пропе-
чатать: адрес текста в HL и смело вызывать
PRINT (экран должен быть очишен),смысл ко-
торой в том, что для каждого смещения сим-
вола в знакоместе существует свой фонт, IY
хранит  адрес  перехода  на вывод с нужным
смещением. С целью экономии времени адреса
"смещенных  фонтов"  берутся из ранее соз-
данных таблиц, кому не лень, могут сделать
таблицу и для стандартного фонта.


PRINT   XOR     A
        LD      (Y_POZ_+1),A
        LD      DE,#4000
        LD      (S_TBL_+1),DE


        LD      (SP_I+1),SP
        LD      IX,O1_
        LD      IY,FUCK1_
;^ установка стартовой конфигурации.

O1_     LD      A,(HL)
        CP      33
        JP      NC,O4_
        CP      32
        JP      NZ,O9_
;
;если  пробел,то сразу переходим к следую-
;щему символу
;
        INC     HL
        EX      DE,HL
        LD      A,LY
        CP      FUCK1_'&L
        JP      Z,O11_
        LD      HL,S_TBL_+1
        INC     (HL)
O11_    LD      A,LY
        CP      FUCK1_'&L
        LD      IY,FUCK2_
        JP      Z,O111_
        CP      FUCK2_'&L
        LD      IY,FUCK3_
        JP      Z,O111_
        CP      FUCK3_'&L
        LD      IY,FUCK4_
        JP      Z,O111_
        LD      IY,FUCK1_
O111_   EX      DE,HL
        JP      (IX)
;
;конструкция   типа  METKA'&L  означает,что
;взят младший байт адреса METKA.
;
O9_     CP      #0D;переход на след.строку
        JP      Z,Y_POZ_
        CP      3;конец текста
        JP      Z,SP_I
        INC     HL
        CP      #10;признак атрибутов
        JR      NZ,O1_
        INC     HL
        JP      (IX)


O4_     INC     HL
        EXX
        LD      L,A
        LD      H,0
S_TBL_  LD      DE,0
        JP      (IY)
;
;смещение 2 бита от начала знакоместа
;
FUCK4_  LD      IY,FUCK1_
        LD      BC,FONT4+4096
        JP      FUCK0_
;
;смещение 4 бита от начала знакометса
;
FUCK3_  LD      IY,FUCK4_
        LD      BC,FONT3+4096
        JP      FUCK0_
;
;смещение 6 бит от начала знакоместа
;
FUCK2_  LD      IY,FUCK3_
        LD      BC,FONT2+4096
FUCK0_  ADD     HL,HL
        ADD     HL,BC
        LD      SP,HL
        POP     HL
        LD      SP,HL
        EX      DE,HL
        POP     DE
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     L
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),D
        DEC     L
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     H
        POP     DE
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     L
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),D
        DEC     L
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     H
        POP     DE
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     L
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),D
        DEC     L
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     H
        POP     DE
        LD      A,E
        OR      (HL)
        LD      (HL),A
        INC     L
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),D
        DEC     L
        LD      A,E
        OR      (HL)
        LD      (HL),A
        LD      HL,S_TBL_+1
        INC     (HL)
        EXX
        JP      (IX)
;
;вывод символа без смещения
;
FUCK1_  ADD     HL,HL
        ADD     HL,HL
        ADD     HL,HL
        LD      BC,FONT
        ADD     HL,BC
        LD      SP,HL
        EX      DE,HL
        POP     DE
        LD      (HL),E
        INC     H
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),E
        INC     H
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),E
        INC     H
        LD      (HL),D
        INC     H
        POP     DE
        LD      (HL),E
        INC     H
        LD      (HL),D
        LD      IY,FUCK2_
        EXX
        JP      (IX)
;
;Вычисление адреса след.линии.Стандартно.
;
Y_POZ_  LD      A,0
        CP      23
        JP      Z,SP_I
        INC     A
        LD      (Y_POZ_+1),A
        EX      DE,HL
        LD      B,A
        AND     #18
        ADD     A,#40
        LD      H,A
        LD      A,B
        AND     7
        RRCA
        RRCA
        RRCA
        LD      L,A
        LD      (S_TBL_+1),HL
        EX      DE,HL
        INC     HL
        LD      IY,FUCK1_
        JP      (IX)
SP_I    LD      SP,0
        RET


2.  Установка атрибутов на экране со шриф-
    том в 42 символа в строке.


         LD      DE,#5800
         LD      BC,TEXT_ADRES;
         LD      A,68;атрибут по умолчанию
         LD      (A_CC+1),A
A_S0     LD      HL,A_TABLE
A_S1     LD      A,(BC)
         INC     BC
         CP      32
         JR      NC,A_K
         CP      3;КОД КОНЦА ТЕКСТА
         RET     Z
         CP      #0D;КОД КОНЦА СТРОКИ
         JR      Z,A_N
         CP      #10;КОД АТРИБУТА
         JR      Z,A_C
A_K      LD      A,E
         EX      AF,AF
         LD      A,E
         ADD     A,(HL)
         LD      E,A
A_CC     LD      A,0
         LD      (DE),A
         EX      AF,AF
         LD      E,A
         INC     HL
         JR      A_S1
A_C      LD      A,(BC)
         LD      (A_CC+1),A
         INC     BC
         JR      A_S1
A_N      LD      A,E
         EX      AF,AF
         LD      A,E
         ADD     A,(HL)
         LD      E,A
         LD      A,(A_CC+1)
         LD      (DE),A
         EX      AF,AF
         LD      E,A
         LD      HL,#20
         ADD     HL,DE
         EX      DE,HL
         LD      A,D
         CP      #5B
         JR      C,A_S0
         RET
A_TABLE  DB      0,0,1,2,3,3,4,5,6,6,7
         DB      8,9,9,10,11,12,12,13,14
         DB      15,15,16,17,18,18,19,20
         DB      21,21,22,23,24,24,25,26
         DB      27,27,28,29,30,30,31,31


   Данная процедура  создает себе подобную
для сдвига экрана вниз на 1 знакоместо.

ADRES    EQU  #4000;АДРЕС,С КОТОРОГО БУДЕМ
;                   СДВИГАТЬ
N        EQU     24;ЧИСЛО СКРОЛЛИРУЕМЫХ
;                   СТРОК
KUDA     EQU #C000;КУДА ПОМЕЩАЕМ ПРОЦЕДУРУ

         LD      IX,KUDA
         LD      DE,ADRES+16
         LD      HL,ADRES+#20
         LD      B,N*8
         LD      (IX),#F3;DI
         INC     IX
         LD      (IX),#ED
         INC     IX
         LD      (IX),#73
         INC     IX
         INC     IX
         INC     IX;LD (NNNN),SP
CKL1     PUSH    HL,DE
         CALL    SETS
         CALL    SETS
         POP     DE,HL
         CALL    DN_DE;СТАНДАРТНЫЕ ПРОЦЕ-
         CALL    DN_HL;ДУРЫ ПО НАХОЖДЕНИЮ
         DJNZ    CKL1;СЛЕД.ПОЗИЦИИ
;ДЛЯ ПОЛУЧЕНИЯ БЫСТРОГО СКРОЛЛА АТРИБУТОВ
;СЛЕДУЕТ СМЕНИТЬ АДРЕСА,УБРАТЬ "*8" ПЕРЕД
;N  И  ЗАМЕНИТЬ "КАЛЫ" НА НАХОЖДЕНИЕ СЛЕД.
;ПОЗИЦИИ В АТРИБУТАХ
         LD      (IX),#31
         INC     IX
         LD      (KUDA+3),IX
         INC     IX
         INC     IX
         LD      (IX+0),#FB;EI
         LD      (IX+1),#C9;RET
         RET


SETS     LD      (IX+0),#31
         LD      (IX+1),L
         LD      (IX+2),H
         LD      (IX+3),#F1
         LD      (IX+4),#C1
         LD      (IX+5),#D1
         LD      (IX+6),#E1
         LD      (IX+7),#D9
         LD      (IX+8),#C1
         LD      (IX+9),#D1
         LD      (IX+10),#E1
         LD      (IX+11),#DD
         LD      (IX+12),#E1
         LD      (IX+13),#31
         LD      (IX+14),E
         LD      (IX+15),D
         LD      (IX+16),#DD
         LD      (IX+17),#E5
         LD      (IX+18),#E5
         LD      (IX+19),#D5
         LD      (IX+20),#C5
         LD      (IX+21),#D9
         LD      (IX+22),#E5
         LD      (IX+23),#D5
         LD      (IX+24),#C5
         LD      (IX+25),#F5
         PUSH    BC
         LD      BC,16
         ADD     HL,BC
         EX      DE,HL
         ADD     HL,BC
         EX      DE,HL
         LD      BC,26
         ADD     IX,BC
         POP     BC
         RET
   Аналогично можно получить скролл в  об-
ратную сторону.

3.  Быстрый вывод  спрайта с  точностью до
    пикселя.


   Предлагаемый мною  алгоритм  отличается
от всех ранее опубликованных тем,что перед
началом работы создаются таблицы(а куда же
без них) длиной по 256 байт(именно столько
различных комбинаций битов содержится  в 1
байте),в таблицах хранятся половинки сдви-
нутых байтов.
   Пример создания пары таких  таблиц  для
печати спрайта со сдвигом в 2 бита от  на-
чала байта ("ld" free;)).

SM2_1   EQU #C000
SM2_2   EQU #C100
;Таблицы должны идти с ровных адресов 1 за
;другой, для каждогосдвига  потребуется  2
;таблицы, т.к.байт разбивается на 2 куска.
        HL,SM2_1
        DE,SM2_2
        C,0
CREAT   A,C
        SRL A;сдвиг для 1-ой половинки
        SRL A;вправо на 2 бита
        (HL),A
        A,C
        SLA A;вторая часть будет сдвинута
        SLA A;на 6 бит влево.
        SLA A
        SLA A
        SLA A
        SLA A
        (DE),A
        INC HL
        INC DE
        INC C
        JR NZ,CREAT


   Подобным образом можно получить и  дру-
гие  сдвиги. Вообще, совсем  необязательно
печатать с точностью до пикселя, во многих
случаях отличные результаты  получаются  и
при шаге в 2 пикселя.

   Пример  "голой"  печати  горизонтальной
линии спрайта длиной 2  байта со смещением
2 бита (bc-адрес в экране, de-в спрайте).

        A,(DE);взяли байт спрайта
        L,A;в hl получаем местонахождение
        H,SM2_1'&H;смещенного вправо байта
        A,(HL);взяли...
        (BC),A;поместили...
        INC L;след.знакоместо...
        INC H;перешли к таблице "левых"
;             сдвигов.
        A,(HL);взяли...
        (BC),A;поместили...
        INC DE;след.байт спрайта
        DEC H;снова перешли на исходную
;             таблицу.
        A,(DE);взяли байт спрайта
        L,A;и получили сдвинутый вариант
        A,(BC);аналогично...
        OR (HL)
        (BC),A
        INC H
        INC C
        A,(HL)
        (BC),A


        и т.д.

   Надеюсь, суть вы уловили ;). Как видим,
довольно приличная скорость даже  без  ис-
пользования стека.

P.S. Я  уже  несколько раз пытался перейти
после Xas'a в Аlasm, но то LD  забуду наб-
рать, то на EDIT нажать,при работе с  дис-
ком меня тянет ко сну, а вместо "#" упорно
ставлю точку...
   Помогите, люди добрые ;).

         ВНИМАНИЕ, ВНИМАНИЕ !!!!!


   Все, кто хочет получить от меня злобный
наезд и что б его вероломные злодеяния уз-
нали потом все бедные провинциальные  юсе-
ры, пишите !!!