PLATSTSTC��┐���їПmodule1PLATSTSTC��┐���їП module1=#E000 module2=#F000 frq=0 ;чтобы не 4 таблицы, а одну ORG module1 INCBIN "mm?????1.m" ORG module2 INCBIN "mm?????2.p" ORG #C000 ;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,module1 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 HL,module2 LD BC,#FFFD LD A,#FF OUT (C),A ;AY #1(0) JP PLAYER2+3 ;module INCBIN "vec_1.m" DISPLAY "module end=",$ DS .(-$) module=module1 PLAYER1 LOCAL ts2=0;1 INCLUDE "playFAS*",#C4 ENDL DS .(-$) module=module2 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 D (DE),A LD (IX),A LD HL,#616,(l8FA0+1),HL
