Difference between revisions of "PROTRACKER372 JP AYFIX H"
From MSX MUSIC WIKI
(Tags: Mobile edit, Mobile web edit) |
(Tags: Mobile edit, Mobile web edit) |
||
Line 68: | Line 68: | ||
LD DE,#D0E | LD DE,#D0E | ||
CALL OUTAY ;уст.тип огибающей (E) | CALL OUTAY ;уст.тип огибающей (E) | ||
− | ; | + | ;これで初期フェーズのエンベロープ。 聞いてみましょう... |
− | |||
LD B,3 | LD B,3 | ||
HALT | HALT |
Latest revision as of 02:55, 1 March 2020
AYFIX C��m��� г
;このプログラムは、同じtone+ envの組み合わせで、トニックの位相を変え、O、Pキーで位相を回転させて、いくつかの異なる音が得られるかを示しています! ORG #6000 ;AYの全レジスタをゼロにする LD DE,#E00 DEC D CALL OUTAY JR NZ,$-4 LLL HALT LD DE,#7FF CALL OUTAY ;トーンを禁止する LD DE,#800 CALL OUTAY ;エンベロープを禁止する CALL 8020 ;BREAK RET NC ;位相を調整する (下記参照) LD HL,WAIT LD A,#DF IN A,(-2) RRA JR C,$+3 INC (HL) RRA JR C,$+3 DEC (HL) ;画面に位相を表示する LD B,(HL) LD HL,#5800 LD (HL),255 INC L DJNZ $-3 JR Z,$+7 LD (HL),0 INC L JR NZ,$-3 ;トーン周波数をゼロにする LD DE,#000 CALL OUTAY LD DE,#100 CALL OUTAY ;現在、トーンカウンターは固定位置にあります。 ;「オン」または「オフ」の2つの位置のいずれかに音色フラグがあります。 LD HL,#3C*8 ;период тональника LD D,#0 LD E,L CALL OUTAY ;устанавливаем (мл.) LD D,#1 LD E,H CALL OUTAY ;устанавливаем (ст.) ;делаем задержку для сдвига фазы тональника WAIT=$+1 LD B,1 WAIT0 LD A,8 DEC A JR NZ,$-1 DJNZ WAIT0 ;теперь тональник в выбранной нами фазе F ;но из-за непредсказуемости флага эта фаза может быть F+180° LD DE,#7FE CALL OUTAY ;разрешаем тональник LD DE,#810 CALL OUTAY ;разрешаем огибающую LD DE,#B1E CALL OUTAY ;устанавливаем период огибающей LD DE,#D0E CALL OUTAY ;уст.тип огибающей (E) ;これで初期フェーズのエンベロープ。 聞いてみましょう... LD B,3 HALT DJNZ $-1 JR LLL OUTAY LD BC,#FFFD OUT (C),D LD B,#BF OUT (C),E RET L8df4=$-2 module=#C000 END ELSE END module INCBIN "si*.m" ENDIF ORG tab_frq ;INCBIN "tb_ST DD F80E10