PROTRACKER372 PLAYTSMK H

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