ZXNet эхоконференция «zxnet.soft»

Hello, All!

Как исправить плеер Pro Tracker 3.51, чтобы команды 9 и A,
изменяющие частоту огибающей, обрабатывались правильно.

В исходном тексте плеера имеется такой фрагмент:

;--- install_E ---

E_ins0 JR Ei_form
Esl_ids LD HL,0 ;stp_sld_env
LD (Esl_sds+1),HL
Esl_ist LD A,0 ;stp_sld_p
LD (Esl_stp+1),A <──────────────────────────── (1)
LD (Esl_sts+1),A
LD A,#18
LD (E_ins0),A

Ei_form LD A,0 ;env_form
LD (E_form+1),A
AND A
JR Z,temp
Ei_frq LD HL,0 ;env_frq
LD (E_frq+1),HL
XOR A
LD L,A
LD H,A
LD (Ei_form+1),A
LD (Esl_stp+1),A <──────────────────────────── (2)
LD (Esl_frq+1),HL

Что мы видим? (1) - в переменную по адресу Esl_stp+1
помещается один из параметров команды 9 или A. Далее, если эта
команда стояла на ноте, использующей огибающую (т.е. Ei_form+1
не 0), то выполняется фрагмент программы, содержащий (2) -
обнуление переменной Esl_stp+1. Параметр команды обнуляется -
и в результате изменения частоты огибающей не будет.

Как исправить? Рецепт, который я приводил в описании
прошлой версии BestView (обнуление байта по смещению #4C1 от
начала плеера), фактически отменял команду (2). При этом
команды 9 и A начинали работать, но - не заканчивали изменять
частоту, когда встречалась следующая нота, использующая
огибающую. Так что все равно некоторые модули звучали
неправильно.

Для окончательного исправления фрагмент плеера надо
переделать так:

;--- install_E ---

E_ins0 JR Ei_form
Esl_ids LD HL,0 ;stp_sld_env
LD (Esl_sds+1),HL
Esl_ist LD A,0 ;stp_sld_p
LD (Esl_stp+1),A
LD (Esl_sts+1),A

LD A,(Ei_form+1)
AND A
JR Z,BUG_F3

LD A,#3E
LD (BUG_F2),A

BUG_F3 LD A,#18
LD (E_ins0),A

Ei_form LD A,0 ;env_form
LD (E_form+1),A
AND A
JR Z,temp
Ei_frq LD HL,0 ;env_frq
LD (E_frq+1),HL
XOR A
LD L,A
LD H,A
LD (Esl_frq+1),HL
LD (Ei_form+1),A

BUG_F2 JR BUG_F1

LD A,#18
LD (BUG_F2),A
JR temp

BUG_F1 LD (Esl_stp+1),A

Обратите внимание, что длина плеера при этом немного
увеличится.

С уважением, Иван Рощин.