Changes

PLAYTSmKC�� ���l� ORG #DADF module INCBIN "??????TS.m" DISPLAY "module end=",$ ORG #C000 frq=1 ;чтобы не 4 таблицы, а одну ;todo структуру: ;ker,vol$frq,DS64$var,smp,or,ef,COD ;ker,vol$frq,TSINI$var1,smp1,or1,ef1,COD1$var2,smp2,or2,ef2,COD2 TSINI LD HL,module JR TSINI1 TSPLAY LD BC,#FFFD LD A,#FE OUT (C),A ;AY #2(1) CALL PLAYER1+5 LD BC,#FFFD LD A,#FF OUT (C),A ;AY #1(0) JP PLAYER2+5 TSINI1 PUSH HL LD BC,#FFFD LD A,#FE OUT (C),A ;AY #2(1) CALL PLAYER1+3 POP HL LD BC,#FFFD LD A,#FF OUT (C),A ;AY #1(0) JP PLAYER2+3 DS .(-$) PLAYER1 LOCAL ts2=1 INCLUDE "playFAS*",#C4 ENDL DS .(-$) PLAYER2 ts2=0 INCLUDE "playFAS*",#C4 DISPLAY "end=",$ ORG #7000 CALL TSINI play_l EI HALT CALL TSPLAY LD A,#7F IN A,(-2) RRA JR C,play_l JP TSINI IFN 0 LD A,#FE ;AY #2(1) CALL SHUTFFFD LD A,#FF ;AY #1(0) SHUTFFFD LD BC,#FFFD OUT (C),A LD DE,#E00 SHUT0 LD BC,-3 DEC D OUT (C),D LD B,#BF OUT (C),E JNZ SHUT0 RET ENDIF 084007C0075006F00 DD 690063005D00580053004E004A00460042003E003B003700 DD 340031002F002C00290027002500230021001F001D001C00 DD 1A00190017001600150014001200110010000F000E000D00 ENDIF IF0 .{module+99}-3