PROTRACKER372 PLATSTST H

PLATSTSTC��┐���їП

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