PROTRACKER372 PLAYTSMK H

From MSX MUSIC WIKI
Revision as of 20:10, 8 March 2020 by Kumokosi (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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