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