(C) VfNG/NEW
   Многим  в  процессе  написаний эффектов не хватало где-нибудьпары тысяч тактов. Обычно в таких случаях первым делом  пытаютсяоптимизировать проигрыватель музыки. Думаю, что не лишним  будетопубликовать  форматы  компилированых  модулей  самых  известныхмузыкальных редакторов. Это немного облегчит вам жизнь и сделаетболее простым ковыряние в старом PLAYER'е.   Начнем, пожалуй, с PRO TRACKER 2.101 by GDC. В следующий раз,может быть, опубликуем формат музыки STP PRO.   Tерминология:QUARK: те элементы, из которых состоят SAMPLES, ORNAMENTS.QUANT:  число  QUARKS в каждом элементе PATTERN. Фактически-ско-рость проигрывания;PATTERN: куплет;POSITION LIST: порядок проигрывания PATTERNS;POSITION: позиция в POSITION LIST;                 Формат компилированого модуля: +0   DELAY-число QUARKS, за которое проигрывается 1 QUANT; +1   MUS_LEN-число позиций в мелодии; +2   LOOP TO POSITION-номер позиции, в которую будет производитьсязацикливание по проигрывании всей мелодии (0-#FF); +3,64   SAMP_A-смещения от +0 до каждого из 32-х SAMPLE. SAMPLE с но-мером 0-не описан. Его номер используется для заглушения канала. +67,32   ORN_A-аналогично  SAMP_A  для  16  орнаментов. Орнамент номер0-отсутствие орнамента. +99,2   PAT_OFFSET-смещение  от  +0  до  первого описателя PATTERN'овPAT. +101,30   NAME-имя музыки в ASCII. +131   POSITION  LIST-список позиций-номера PATTERN для каждой пози-ции. Окончание таблицы-#FF. +?   PAT-описатели PATTERN'ов. Kaждый PATTERN состоит из 3-х кана-лов. В этой таблице-смещения от +0 до описателей каналов каждогоPATTERN.  Таким  образом  по  6  байт/PATTERN.  Окончание табли-цы-#0000. +?   CHAN-описатели  каналов. Канал представлен в виде списка бай-тов, которые анализируются следующим образом:LOOP   LD A,(DE)       INC DE       ADD A,#20       JR C,L1       ADD A,#60       JR C,L2       ADD A,#10       JR C,L3       ADD A,#10       JR C,L4       ADD A,#40       JR C,L5       ADD A,#10       JR C,L6       INC A       JR Z,L7       INC A       JR Z,L8       INC A       JR Z,L9       INC A       JR NZ,L10L11 Отключение команд и переход на LOOP.L10  Извлечь следующий байт-в нем значение прибавления к частотеNOISE. Затем на LOOP.L9  Извлечь три байта. В 1-м значение PORT, т.е. то число, кото-рое  будет  прибавляться к текущей частоте ноты. Следует учесть,что значение частоты самой высокой ноты самое маленькое, а самойнизкой-самое большое, значит: положит. 128-255, отриц. 0-127. Во2-м и 3-м байтах-разница в значениях частоты новой (той на кото-рой вызван PORT) и предидущей ноты. Существует ошибка компилято-ра,  который  неверно  определяет  это значение, если новая нотастоит  в  начале PATTERN. Команду следует выключить, когда суммаприбавлений из +1 превысит значение +2,+3. Переход на LOOP.L8  Извлечь  1  байт.  В нем значение GLISSADE. Знаки-аналогичноPORT. Затем переход на LOOP.L7 Извлечь 1 байт. В нем значение для DELAY (скорость проигрыва-ния). Затем переход на LOOP.L6  В А-громкость (0-F). Это значение умножается на 16 и прибав-ляется к началу таблицы TABL1. К полученому значению следует от-носиться  как к началу 16-байтовой таблицы, где содержаться зна-чения  для регистров амплитуды сопроцессора для каждого значенияизвлекаемого из SAMPLE. Затем переход на LOOP.L5  В  А-сколько  QUANTS  не  надо проводить анализ канала, т.е.расстояние  в QUANTS между очередными изменениями параметров ка-нала. Затем на LOOP.L4  В  А-номер орнамента. Если равен 0, то отсутствие орнамента.Переход на LOOP.L3  Если  А=0 то выход. Если 0<А<F, то установка типа огибающей,затем  извлечение 2-х следующих байт с периодом огибающей, пере-ход на LOOP. Ecли А=F, то отключение огибающих, переход на LOOP.L2 В А-номер ноты. Всего 8 октав по 12 нот, итого 96 нот. Значе-ния  частоы для каждой из нот в таблице TABL2 (по 2 байта/кажда-я). Переход на LOOP.L1  В А-номер SAMPLE. Eсли=0, то отключение канала, выход. Иначеустановка номера SAMPLE и переход на LOOP. +?   SAMPLES-описатели SAMPLES. Каждый SAMPLE состоит из:   ++0 Число QUARKS в SAMPLE.   ++1 Номер QUARK в SAMPLE, на который производиться зациклива-ние по окончании SAMPLE.   ++2 Описатели QUARKS по 3 байта каждый:      +++0           Биты 7-3-частота NOISE (0-31);           Бит 2-знак вибратто (1="-", 0="+");           Бит 1-маска TONE;           Бит 0-маска NOISE.      +++1           Биты 7-4-амплитуда (0-15);           Биты 3-0-старшая часть значения частотного вибратто.      +++2           Биты 7-0-младшая часть значения частотного вибратто. +?   ORNAMENTS-описатели орнаментов. Они состоят из:   ++0-Длина орнамента в QUARKS;   ++1-Номер QUARK в орнаменте, на который надо перейти по окон-чании ORNAMENT;   ++2-Отклонения  от текущего значения ноты в полутонах. Значе-ния 0-63. Старший бит-знаковый:0='+',1='-'.   В  описании могут быть отдельные неточности, которые нетруднообнаружить и скорректировать.   Теперь  о том, как вообще происходит проигрывание музыки. Бе-рется значение DELAY и записывается в спец. переменную. При каж-дом вызове проигрывателя это значение уменьшается на 1. Если онобольше  2-х, то параметры каналов не меняются. Если 2, то прове-ряется  на  конец  канал. Если конец-то обрабатывается следующаяпозиция,  устанавливаются новые значения в переменные, указываю-щие  на  текущие позиции в каналах. Обрабатывается канал А. Если1,  то обрабатывается канал B. Если 0, то обрабатывается канал Cи  полученные  данные  в  результате обработки всех трех каналов(номера  SAMPLES, ORNAMENTS, etc...) устанавливаются на проигры-вание, переменная снова получает значение DELAY.                     ***** ПРИЛОЖЕНИЕ *****;Стандартный проигрыватель. Здесь же и таблички.;---------------------------------------------------------------        LD      HL,MUSIC ;Адрес компилированного модуля        JP      INIT     ;Инициализация        JP      PLAY     ;ПроигрываниеINIT    DI        PUSH    HL        LD      (LF84D+1),HL        PUSH    HL        LD      A,(HL)        LD      (LFBE0+1),A        LD      (LFAB2+1),A        INC     HL        INC     HL        LD      A,(HL)        INC     HL        LD      (LF7F0+1),HL        LD      DE,#0020        ADD     HL,DE        ADD     HL,DE        LD      (LF803+1),HL        ADD     HL,DE        LD      E,(HL)        INC     HL        LD      D,(HL)        INC     HL        LD      BC,#001E        ADD     HL,BC        LD      (LF83A+1),HL        LD      C,A        ADD     HL,BC        LD      (LF82F+1),HL        POP     HL        ADD     HL,DE        LD      (LF848+1),HL        LD      HL,LF74B        LD      DE,LF74C        LD      BC,#000D        LD      (HL),B        LDIR        XOR     A        LD      (LF748),A        LD      (LF749),A        LD      (LF74A),A        LD      (LFB38+1),A        LD      (LFB9D+1),A        LD      (LF8DA+1),A        LD      (LF959+1),A        LD      (LF9DB+1),A        LD      (LFB33+1),A        LD      (LFB98+1),A        LD      (LF928+1),A        LD      (LF9AA+1),A        LD      (LFA2D+1),A        LD      B,A        CPL        LD      (LF8AE+1),A        LD      (LF92D+1),A        LD      (LF9AF+1),A        LD      A,#2F        LD      (LFB82),A        LD      (LFB1D),A        LD      HL,TABL1_F        LD      (LFB3D+1),HL        LD      (LFBA2+1),HL        LD      (LF923+1),HL        LD      (LF9A5+1),HL        LD      (LFA28+1),HL        CALL    LF836        LD      (LFACA+1),DE        POP     BC        LD      (LF816+1),SPLF7F0   LD      SP,#0000        LD      DE,SMP_A        LD      A,#20LF7F8   POP     HL        ADD     HL,BC        EX      DE,HL        LD      (HL),E        INC     HL        LD      (HL),D        INC     HL        EX      DE,HL        DEC     A        JR      NZ,LF7F8LF803   LD      SP,#0000        LD      DE,ORN_A        LD      A,#10LF80B   POP     HL        ADD     HL,BC        EX      DE,HL        LD      (HL),E        INC     HL        LD      (HL),D        INC     HL        EX      DE,HL        DEC     A        JR      NZ,LF80BLF816   LD      SP,#0000        LD      HL,(ORN_A)        LD      (LFB4D+1),HL        LD      (LFBB2+1),HL        LD      (LF8B9+1),HL        LD      (LF938+1),HL        LD      (LF9BA+1),HL        CALL    INITVOL        JP      LFA32;Для продолжения щелкните статейкой...;---------------------------------------------------------------;Продолжение проигрывателя;---------------------------------------------------------------PLAY    DI        XOR     A        LD      B,A        EX      AF,AF'LFAB2   LD      A,#03        DEC     A        LD      (LFAB2+1),A        JR      Z,LFAF8        DEC     A        JR      Z,LFADF        DEC     A        JP      NZ,LF8AE        LD      HL,LF748        DEC     (HL)        JP      P,LF8AELFAC8   LD      (HL),#00LFACA   LD      DE,#0000        LD      A,(DE)        AND     A        CALL    Z,LF836        CALL    LFC74        LD      (LFACA+1),DE        LD      (LFB0C),A        JP      LF8AELFADF   LD      HL,LF749        DEC     (HL)        JP      P,LF8AELFAE6   LD      (HL),#00LFAE8   LD      DE,#0000        CALL    LFD98        LD      (LFAE8+1),DE        LD      (LFB71),A        JP      LF8AELFAF8   LD      HL,LF74A        DEC     (HL)        JP      P,LFB0BLFAFF   LD      (HL),#00LFB01   LD      DE,#0000        CALL    LFE9F        LD      (LFB01+1),DELFB0B   XOR     ALFB0C   NOP        JR      NC,LFB2D        LD      (LFB0C),A        LD      (LF8E7+2),A        LD      H,A        LD      L,A        LD      (LF8B3+1),HL        LD      (LF8DF+1),HLLFB1D   CPL        LD      (LF8AE+1),ALFB21   LD      A,#00        LD      (LF8D8+1),ALFB26   LD      HL,#0000        LD      (LF8B6+1),HL        XOR     ALFB2D   NOP        JR      NC,LFB44        LD      (LFB2D),ALFB33   LD      A,#00        LD      (LF928+1),ALFB38   LD      A,#00        LD      (LF8DA+1),ALFB3D   LD      HL,#0000        LD      (LF923+1),HL        XOR     ALFB44   NOP        JR      NC,LFB54        LD      (LF8B3+1),A        LD      (LFB44),ALFB4D   LD      HL,#0000        LD      (LF8B9+1),HL        XOR     ALFB54   NOP        JR      NC,LFB71        LD      (LFB54),ALFB5A   LD      A,#00        LD      (LF902+1),ALFB5F   LD      HL,#0000        LD      (LF8F1+1),HLLFB65   LD      A,#00        LD      (LF916+1),ALFB6A   LD      HL,#0000        LD      (LF8E7+1),HL        XOR     ALFB71   NOP        JR      NC,LFB92        LD      H,A        LD      L,A        LD      (LF966+2),A        LD      (LF95E+1),HL        LD      (LF932+1),HL        LD      (LFB71),ALFB82   CPL        LD      (LF92D+1),ALFB86   LD      A,#00        LD      (LF957+1),ALFB8B   LD      HL,#0000        LD      (LF935+1),HL        XOR     ALFB92   NOP        JR      NC,LFBA9        LD      (LFB92),ALFB98   LD      A,#00        LD      (LF9AA+1),ALFB9D   LD      A,#00        LD      (LF959+1),ALFBA2   LD      HL,#0000        LD      (LF9A5+1),HL        XOR     ALFBA9   NOP        JR      NC,LFBB9        LD      (LF932+1),A        LD      (LFBA9),ALFBB2   LD      HL,#0000        LD      (LF938+1),HL        XOR     ALFBB9   NOP        JR      NC,LFBD5        LD      (LFBB9),ALFBBF   LD      HL,#0000        LD      (LF970+1),HLLFBC5   LD      A,#00        LD      (LF981+1),ALFBCA   LD      A,#00        LD      (LF995+1),ALFBCF   LD      HL,#0000        LD      (LF966+1),HLLFBD5   LD      A,#00        LD      (LF758),ALFBDA   LD      HL,#0000        LD      (LF756),HLLFBE0   LD      A,#05        LD      (LFAB2+1),A        XOR     A        LD      (LFBD5+1),A        JP      LF8AELF863   LD      A,E        ADD     A,A        ADD     A,E        LD      E,A        LD      D,#00        ADD     HL,DE        LD      A,(HL)        RRA        JR      NC,LF870        LD      D,#04LF870   RRA        RL      D        RRA        EX      AF,AF'        INC     HL        LD      A,(HL)        RRCA        RRCA        RRCA        RRCA        AND     #0F        EX      AF,AF'        BIT     3,D        JR      NZ,LF888        PUSH    AF        ADD     A,B        LD      (LF751),A        POP     AFLF888   LD      A,(HL)        RLA        AND     #1F        INC     HL        LD      L,(HL)        LD      H,A        DB    #DD        LD      H,D        EX      DE,HL        LD      B,#00LF894   LD      HL,#0000        ADD     HL,BC        DB    #DD        LD      A,L        ADD     A,(HL)        ADD     A,A        LD      C,A        LD      HL,TONE_TB        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        SRL     D        JR      C,LF8AC        SBC     HL,DE        RETLF8AC   ADD     HL,DE        RETLF8AE   LD      A,#00        INC     A        JR      Z,LF92ALF8B3   LD      BC,#0000LF8B6   LD      DE,#0000LF8B9   LD      HL,#0000        LD      A,C        INC     A        CP      (HL)        INC     HL        JR      NZ,LF8C3        LD      A,(HL)LF8C3   LD      (LF8B3+1),A        INC     HL        LD      (LF894+1),HL        EX      DE,HL        LD      A,B        LD      E,A        INC     A        CP      (HL)        INC     HL        JR      NZ,LF8D3        LD      A,(HL)LF8D3   LD      (LF8B3+2),A        INC     HL        DB    #DDLF8D8   LD      L,#00LF8DA   LD      B,#00        CALL    LF863LF8DF   LD      DE,#0000        ADD     HL,DE        LD      (LF74B),HL        EX      DE,HLLF8E7   LD      DE,#0000        DEC     D        JP      M,LF91C        JR      Z,LF916        PUSH    HLLF8F1   LD      HL,#0000        LD      A,E        AND     A        JP      P,LF8FB        NEGLF8FB   LD      C,A        AND     A        SBC     HL,BC        JR      NC,LF912        POP     HLLF902   LD      A,#00        LD      (LF8D8+1),A        XOR     A        LD      (LF8E7+2),A        LD      H,A        LD      L,A        LD      (LF8DF+1),HL        JR      LF91CLF912   LD      (LF8F1+1),HL        POP     HLLF916   LD      D,#00        ADD     HL,DE        LD      (LF8DF+1),HLLF91C   DB    #DD        LD      A,H        LD      (LF752),A        EX      AF,AF'        LD      C,ALF923   LD      HL,#0000        ADD     HL,BC        LD      A,(HL)LF928   OR      #00LF92A   LD      (LF753),ALF92D   LD      A,#00        INC     A        JR      Z,LF9ACLF932   LD      BC,#0000LF935   LD      DE,#0000LF938   LD      HL,#0000        LD      A,C        INC     A        CP      (HL)        INC     HL        JR      NZ,LF942        LD      A,(HL)LF942   LD      (LF932+1),A        INC     HL        LD      (LF894+1),HL        EX      DE,HL        LD      A,B        LD      E,A        INC     A        CP      (HL)        INC     HL        JR      NZ,LF952        LD      A,(HL)LF952   LD      (LF932+2),A        INC     HL        DB    #DDLF957   LD      L,#00LF959   LD      B,#00        CALL    LF863LF95E   LD      DE,#0000        ADD     HL,DE        LD      (LF74D),HL        EX      DE,HLLF966   LD      DE,#0000        DEC     D        JP      M,LF99B        JR      Z,LF995        PUSH    HLLF970   LD      HL,#0000        LD      A,E        AND     A        JP      P,LF97A        NEGLF97A   LD      C,A        AND     A        SBC     HL,BC        JR      NC,LF991        POP     HLLF981   LD      A,#00        LD      (LF957+1),A        XOR     A        LD      (LF966+2),A        LD      H,A        LD      L,A        LD      (LF95E+1),HL        JR      LF99BLF991   LD      (LF970+1),HL        POP     HLLF995   LD      D,#00        ADD     HL,DE        LD      (LF95E+1),HLLF99B   DB    #DD        LD      A,H        LD      HL,LF752        RLCA        OR      (HL)        LD      (HL),A        EX      AF,AF'        LD      C,ALF9A5   LD      HL,#0000        ADD     HL,BC        LD      A,(HL)LF9AA   OR      #00LF9AC   LD      (LF754),ALF9AF   LD      A,#00        INC     A        JR      Z,LFA2FLF9B4   LD      BC,#0000LF9B7   LD      DE,#0000LF9BA   LD      HL,#0000        LD      A,C        INC     A        CP      (HL)        INC     HL        JR      NZ,LF9C4        LD      A,(HL)LF9C4   LD      (LF9B4+1),A        INC     HL        LD      (LF894+1),HL        EX      DE,HL        LD      A,B        LD      E,A        INC     A        CP      (HL)        INC     HL        JR      NZ,LF9D4        LD      A,(HL)LF9D4   LD      (LF9B4+2),A        INC     HL        DB    #DDLF9D9   LD      L,#00LF9DB   LD      B,#00        CALL    LF863LF9E0   LD      DE,#0000        ADD     HL,DE        LD      (LF74F),HL        EX      DE,HLLF9E8   LD      DE,#0000        DEC     D        JP      M,LFA1D        JR      Z,LFA17        PUSH    HLLF9F2   LD      HL,#0000        LD      A,E        AND     A        JP      P,LF9FC        NEGLF9FC   LD      C,A        AND     A        SBC     HL,BC        JR      NC,LFA13LFA02   LD      A,#00        LD      (LF9D9+1),A        XOR     A        LD      (LF9E8+2),A        LD      H,A        LD      L,A        LD      (LF9E0+1),HL        POP     HL        JR      LFA1DLFA13   LD      (LF9F2+1),HL        POP     HLLFA17   LD      D,#00        ADD     HL,DE        LD      (LF9E0+1),HLLFA1D   DB    #DD        LD      A,H        LD      HL,LF752        RLCA        RLCA        OR      (HL)        LD      (HL),A        EX      AF,AF'        LD      C,ALFA28   LD      HL,#0000        ADD     HL,BC        LD      A,(HL)LFA2D   OR      #00LFA2F   LD      (LF755),ALFA32   LD      HL,LF758        LD      DE,#FFBF        LD      C,#FD        XOR     A        OR      (HL)        LD      A,#0D        JR      NZ,LFA47        SUB     #03        LD      HL,LF755        JR      LFA5CLFA47   LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     ALFA5C   LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        DEC     A        LD      B,D        OUT     (C),A        LD      B,E        OUTD        LD      (LF752),A        LD      (LF758),A        RETLFBEC   LD      (LFB5A+1),A        LD      A,(LFB6A+2)        DEC     A        JR      Z,LFBFA        LD      A,C        LD      (LFB21+1),A        XOR     ALFBFA   LD      (LFB1D),A        LD      A,#37        LD      (LFB54),A        RETLFC03   EX      AF,AF'        LD      (LFB2D),A        LD      A,(LF8D8+1)        LD      C,A        EX      AF,AF'        LD      (LFB21+1),A        INC     B        JR      Z,LFBEC        XOR     A        LD      (LFB6A+2),A        LD      (LFB1D),A        LD      A,#37        RETLFC1C   ADD     A,A        ADD     A,A        ADD     A,A        ADD     A,A        LD      HL,VOLTAB        LD      C,A        ADD     HL,BC        LD      (LFB3D+1),HL        LD      A,#37        EX      AF,AF'        JP      LFC74LFC2E   LD      A,#37        LD      (LFB54),A        LD      A,(DE)        INC     DE        LD      H,#01        LD      L,A        LD      (LFB6A+1),HL        AND     A        LD      A,B        JP      P,LFC41        CPLLFC41   LD      (LFB65+1),A        DEC     B        JR      LFC74LFC47   LD      A,(DE)        INC     DE        LD      H,#02        LD      L,A        LD      (LFB6A+1),HL        AND     A        LD      A,B        JP      P,LFC55        CPLLFC55   LD      (LFB65+1),A        LD      A,(DE)        LD      L,A        INC     DE        LD      A,(DE)        INC     DE        LD      H,A        LD      (LFB5F+1),HL        DEC     B        JR      LFC74LFC64   LD      A,(DE)        INC     DE        LD      (LFB38+1),A        LD      A,#37        EX      AF,AF'        JR      LFC74LFC6E   LD      (LF748),A        LD      (LFAC8+1),ALFC74   LD      A,(DE)        INC     DE        ADD     A,#20        JR      C,LFCA5        ADD     A,#60        JR      C,LFC03        ADD     A,#10        JR      C,LFCE9        ADD     A,#10        JR      C,LFCB7        ADD     A,#40        JR      C,LFC6E        ADD     A,#10        JR      C,LFC1C        INC     A        JR      Z,LFD07        INC     A        JR      Z,LFC2E        INC     A        JR      Z,LFC47        INC     A        JR      NZ,LFC64        XOR     A        LD      (LFB6A+2),A        LD      A,#37        LD      (LFB54),A        JR      LFC74LFCA5   JR      Z,LFCCC        ADD     A,A        LD      HL,SMP_A        LD      C,A        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        LD      (LFB26+1),HL        JP      LFC74LFCB7   LD      HL,ORN_A        ADD     A,A        LD      C,A        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        LD      (LFB4D+1),HL        LD      A,#37        LD      (LFB44),A        JP      LFC74LFCCC   EX      AF,AF'        LD      (LFB2D),A        LD      A,#2F        LD      (LFB1D),A        LD      A,#37        RETLFCD8   EX      AF,AF'        LD      (LFB2D),A        LD      A,#A7        RETLFCDF   XOR     A        LD      (LFB33+1),A        LD      A,#37        EX      AF,AF'        JP      LFC74LFCE9   JR      Z,LFCD8        CP      #0F        JR      Z,LFCDF        LD      (LFBD5+1),A        LD      A,#10        LD      (LFB33+1),A        LD      A,(DE)        LD      (LFBDA+1),A        INC     DE        LD      A,(DE)        LD      (LFBDA+2),A        INC     DE        LD      A,#37        EX      AF,AF'        JP      LFC74LFD07   LD      A,(DE)        INC     DE        LD      (LFBE0+1),A        JP      LFC74LFD0F   LD      (LFBC5+1),A        LD      A,(LFBCF+2)        DEC     A        JP      Z,LFD1E        LD      A,C        LD      (LFB86+1),A        XOR     ALFD1E   LD      (LFB82),A        LD      A,#37        LD      (LFBB9),A        RETLFD27   EX      AF,AF'        LD      (LFB92),A        LD      A,(LF957+1)        LD      C,A        EX      AF,AF'        LD      (LFB86+1),A        INC     B        JR      Z,LFD0F        XOR     A        LD      (LFBCF+2),A        LD      (LFB82),A        LD      A,#37        RETLFD40   ADD     A,A        ADD     A,A        ADD     A,A        ADD     A,A        LD      HL,VOLTAB        LD      C,A        ADD     HL,BC        LD      (LFBA2+1),HL        LD      A,#37        EX      AF,AF'        JP      LFD98LFD52   LD      A,#37        LD      (LFBB9),A        LD      A,(DE)        INC     DE        LD      H,#01        LD      L,A        LD      (LFBCF+1),HL        AND     A        LD      A,B        JP      P,LFD65        CPLLFD65   LD      (LFBCA+1),A        DEC     B        JR      LFD98LFD6B   LD      A,(DE)        INC     DE        LD      H,#02        LD      L,A        LD      (LFBCF+1),HL        AND     A        LD      A,B        JP      P,LFD79        CPLLFD79   LD      (LFBCA+1),A        LD      A,(DE)        LD      L,A        INC     DE        LD      A,(DE)        INC     DE        LD      H,A        LD      (LFBBF+1),HL        DEC     B        JR      LFD98LFD88   LD      A,(DE)        INC     DE        LD      (LFB9D+1),A        LD      A,#37        EX      AF,AF'        JR      LFD98LFD92   LD      (LF749),A        LD      (LFAE6+1),ALFD98   LD      A,(DE)        INC     DE        ADD     A,#20        JR      C,LFDC9        ADD     A,#60        JR      C,LFD27        ADD     A,#10        JR      C,LFE0D        ADD     A,#10        JR      C,LFDDB        ADD     A,#40        JR      C,LFD92        ADD     A,#10        JR      C,LFD40        INC     A        JR      Z,LFE2B        INC     A        JR      Z,LFD52        INC     A        JR      Z,LFD6B        INC     A        JR      NZ,LFD88        XOR     A        LD      (LFBCF+2),A        LD      A,#37        LD      (LFBB9),A        JR      LFD98LFDC9   JR      Z,LFDF0        ADD     A,A        LD      HL,SMP_A        LD      C,A        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        LD      (LFB8B+1),HL        JP      LFD98LFDDB   LD      HL,ORN_A        ADD     A,A        LD      C,A        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        LD      (LFBB2+1),HL        LD      A,#37        LD      (LFBA9),A        JP      LFD98LFDF0   EX      AF,AF'        LD      (LFB92),A        LD      A,#2F        LD      (LFB82),A        LD      A,#37        RETLFDFC   EX      AF,AF'        LD      (LFB92),A        LD      A,#A7        RETLFE03   XOR     A        LD      (LFB98+1),A        LD      A,#37        EX      AF,AF'        JP      LFD98LFE0D   JR      Z,LFDFC        CP      #0F        JR      Z,LFE03        LD      (LFBD5+1),A        LD      A,#10        LD      (LFB98+1),A        LD      A,(DE)        LD      (LFBDA+1),A        INC     DE        LD      A,(DE)        LD      (LFBDA+2),A        INC     DE        LD      A,#37        EX      AF,AF'        JP      LFD98LFE2B   LD      A,(DE)        INC     DE        LD      (LFBE0+1),A        JP      LFD98LFE33   EX      AF,AF'        LD      A,(LF9D9+1)        LD      C,A        EX      AF,AF'        LD      (LF9D9+1),A        INC     B        JR      Z,LFE46        XOR     A        LD      (LF9E8+2),A        JP      LFE55LFE46   LD      (LFA02+1),A        LD      A,(LF9E8+2)        DEC     A        JP      Z,LFE55        LD      A,C        LD      (LF9D9+1),A        XOR     ALFE55   LD      H,A        LD      L,A        LD      (LF9E0+1),HL        LD      (LF9AF+1),A        LD      (LF9B4+1),HL        RETLFE61   LD      A,(DE)        INC     DE        LD      H,#01        LD      L,A        LD      (LF9E8+1),HL        AND     A        LD      A,B        JP      P,LFE6F        CPLLFE6F   LD      (LFA17+1),A        DEC     B        JR      LFE9FLFE75   LD      A,(DE)        INC     DE        LD      L,A        LD      H,#02        LD      (LF9E8+1),HL        AND     A        LD      A,B        JP      P,LFE83        CPLLFE83   LD      (LFA17+1),A        LD      A,(DE)        LD      L,A        INC     DE        LD      A,(DE)        INC     DE        LD      H,A        LD      (LF9F2+1),HL        DEC     B        JR      LFE9FLFE92   LD      A,(DE)        INC     DE        LD      (LF9DB+1),A        JR      LFE9FLFE99   LD      (LF74A),A        LD      (LFAFF+1),ALFE9F   LD      A,(DE)        INC     DE        ADD     A,#20        JR      C,LFECB        ADD     A,#60        JR      C,LFE33        ADD     A,#10        JR      C,LFEF7        ADD     A,#10        JR      C,LFEDD        ADD     A,#40        JR      C,LFE99        ADD     A,#10        JR      C,LFF20        INC     A        JR      Z,LFF18        INC     A        JR      Z,LFE61        INC     A        JR      Z,LFE75        INC     A        JR      NZ,LFE92        XOR     A        LD      (LF9E8+2),A        JR      LFE9FLFECB   JR      Z,LFEF1        ADD     A,A        LD      HL,SMP_A        LD      C,A        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        LD      (LF9B7+1),HL        JP      LFE9FLFEDD   LD      HL,ORN_A        ADD     A,A        LD      C,A        ADD     HL,BC        LD      A,(HL)        INC     HL        LD      H,(HL)        LD      L,A        LD      (LF9BA+1),HL        XOR     A        LD      (LF9B4+1),A        JP      LFE9FLFEF1   LD      A,#FF        LD      (LF9AF+1),A        RETLFEF7   RET     Z        CP      #0F        JR      Z,LFF11        LD      (LFBD5+1),A        LD      A,#10        LD      (LFA2D+1),A        LD      A,(DE)        LD      (LFBDA+1),A        INC     DE        LD      A,(DE)        LD      (LFBDA+2),A        INC     DE        JP      LFE9FLFF11   XOR     A        LD      (LFA2D+1),A        JP      LFE9FLFF18   LD      A,(DE)        INC     DE        LD      (LFBE0+1),A        JP      LFE9FLFF20   ADD     A,A        ADD     A,A        ADD     A,A        ADD     A,A        LD      HL,VOLTAB        LD      C,A        ADD     HL,BC        LD      (LFA28+1),HL        JP      LFE9FLF82F   LD      HL,#0000        LD      A,(HL)        ADD     A,A        JR      LF841LF836   LD      (LF85D+1),SPLF83A   LD      HL,#0000        LD      A,(HL)        ADD     A,A        JR      C,LF82FLF841   ADD     A,(HL)        ADD     A,A        INC     HL        LD      (LF83A+1),HL        LD      C,ALF848   LD      HL,#0000        ADD     HL,BC        LD      SP,HLLF84D   LD      BC,#0000        POP     HL        ADD     HL,BC        EX      DE,HL        POP     HL        ADD     HL,BC        LD      (LFAE8+1),HL        POP     HL        ADD     HL,BC        LD      (LFB01+1),HLLF85D   LD      SP,#0000        LD      B,#00        RET;---------------------------------------------------------------INITVOL LD      IX,VOLTAB        LD      DE,#0000        LD      B,#10INITV2  LD      HL,0        LD      C,#10INITV1  LD      A,L        RLA        LD      A,H        ADC     A,0INITV3  LD      (IX+0),A        ADD     HL,DE        INC     IX        DEC     C        JR      NZ,INITV1        LD      A,E        CP      119        JR      NZ,INITV4        INC     EINITV4  EX      DE,HL        LD      DE,17        ADD     HL,DE        EX      DE,HL        DJNZ    INITV2        RET;---------------------------------------------------------------TABL2TONE_TB DB    #F8,#0E,#10        DB    #0E,"`",#0D        DB    #80,#0C,#D8        DB    #0B,"(",#0B        DB    #88,#0A,#F0        DB    #09,"`",#09        DB    #E0,#08,"X"        DB    #08,#E0,#07        DB    "|",#07,#08        DB    #07,#B0,#06        DB    "@",#06,#EC        DB    #05,#94,#05        DB    "D",#05,#F8        DB    #04,#B0,#04        DB    "p",#04,","        DB    #04,#FD,#03        DB    #BE,#03,#84        DB    #03,"X",#03        DB    " ",#03,#F6        DB    #02,#CA,#02        DB    #A2,#02,"|"        DB    #02,"X",#02        DB    "8",#02,#16        DB    #02,#F8,#01        DB    #DF,#01,#C2        DB    #01,#AC,#01        DB    #90,#01,"{"        DB    #01,"e",#01        DB    "Q",#01,">"        DB    #01,",",#01        DB    #1C,#01,#0A        DB    #01,#FC,#00        DB    #EF,#00,#E1        DB    #00,#D6,#00        DB    #C8,#00,#BD        DB    #00,#B2,#00        DB    #A8,#00,#9F        DB    #00,#96,#00        DB    #8E,#00,#85        DB    #00,"~",#00        DB    "w",#00,"p"        DB    #00,"k",#00        DB    "d",#00,"^"        DB    #00,"Y",#00        DB    "T",#00,"O"        DB    #00,"K",#00        DB    "G",#00,"B"        DB    #00,"?",#00        DB    ";",#00,"8"        DB    #00,"5",#00        DB    "2",#00,"/"        DB    #00,",",#00        DB    "*",#00,"'"        DB    #00,"%",#00        DB    "#",#00,"!"        DB    #00,#1F,#00        DB    #1D,#00,#1C        DB    #00,#1A,#00        DB    #19,#00,#17        DB    #00,#16,#00        DB    #15,#00,#13        DB    #00,#12,#00        DB    #11,#00,#10        DB    #00,#0F,#00;---------------------------------------------------------------TABL1         ;ИНИЦИАЛИЗИРУЕТСЯ ПРОЦЕДУРОЙ              ;INITVOLVOLTAB  DS    #F0TABL1_F DS    #10;---------------------------------------------------------------LF748   DB    #00             ;COUNTER ALF749   DB    #00             ;COUNTER BLF74A   DB    #00             ;COUNTER C;---------------------------------------------------------------LF74B   DB    #00             ;TONE ALF74C   DB    #00LF74D   DB    #00,#00         ;TONE BLF74F   DB    #00,#00         ;TONE CLF751   DB    #00             ;NOISELF752   DB    #00             ;MASKSLF753   DB    #00             ;AMPLITUDE ALF754   DB    #00             ;AMPLITUDE BLF755   DB    #00             ;AMPLITUDE CLF756   DB    #00             ;ENVELOPE TYPELF757   DB    #00             ;ENVELOPE PERIODLF758   DB    #00             ;;---------------------------------------------------------------SMP_A   DS    #40ORN_A   DS    #20;---------------------------------------------------------------