Difference between revisions of "PROTRACKER372 PLATSTST H"

From MSX MUSIC WIKI
Jump to: navigation, search
(Created page with "PLATSTSTC��┐���їПmodule1=#E000 module2=#F000 frq=0 ;чтобы не 4 таблицы, а одну ORG module1 INCBIN "mm?????1.m" ORG mod...")
(Tags: Mobile edit, Mobile web edit)
 
(Tags: Mobile edit, Mobile web edit)
 
Line 1: Line 1:
−
PLATSTSTC��┐���їПmodule1=#E000
+
PLATSTSTC��┐���їП
−
module2=#F000
+
module1=#E000
−
frq=0 ;чтобы не 4 таблицы, а одну
+
module2=#F000
−
        ORG module1
+
frq=0 ;чтобы не 4 таблицы, а одну
−
        INCBIN "mm?????1.m"
+
        ORG module1
−
        ORG module2
+
        INCBIN "mm?????1.m"
−
        INCBIN "mm?????2.p"
+
        ORG module2
−
        ORG #C000
+
        INCBIN "mm?????2.p"
−
;todo структуру:
+
        ORG #C000
−
;ker,vol$frq,DS64$var,smp,or,ef,COD
+
;todo структуру:
−
;ker,vol$frq,TSINI$var1,smp1,or1,ef1,COD1$var2,smp2,or2,ef2,COD2
+
;ker,vol$frq,DS64$var,smp,or,ef,COD
−
TSINI
+
;ker,vol$frq,TSINI$var1,smp1,or1,ef1,COD1$var2,smp2,or2,ef2,COD2
−
        LD HL,module1
+
TSINI
−
        JR TSINI1
+
        LD HL,module1
−
TSPLAY
+
        JR TSINI1
−
        LD BC,#FFFD
+
TSPLAY
−
        LD A,#FE
+
        LD BC,#FFFD
−
        OUT (C),A ;AY #2(1)
+
        LD A,#FE
−
        CALL PLAYER1+5
+
        OUT (C),A ;AY #2(1)
−
        LD BC,#FFFD
+
        CALL PLAYER1+5
−
        LD A,#FF
+
        LD BC,#FFFD
−
        OUT (C),A ;AY #1(0)
+
        LD A,#FF
−
        JP PLAYER2+5
+
        OUT (C),A ;AY #1(0)
−
TSINI1
+
        JP PLAYER2+5
−
      PUSH HL
+
TSINI1
−
        LD BC,#FFFD
+
        PUSH HL
−
        LD A,#FE
+
        LD BC,#FFFD
−
        OUT (C),A ;AY #2(1)
+
        LD A,#FE
−
        CALL PLAYER1+3
+
        OUT (C),A ;AY #2(1)
−
      POP HL
+
        CALL PLAYER1+3
−
      LD HL,module2
+
        POP HL
−
        LD BC,#FFFD
+
        LD HL,module2
−
        LD A,#FF
+
        LD BC,#FFFD
−
        OUT (C),A ;AY #1(0)
+
        LD A,#FF
−
        JP PLAYER2+3
+
        OUT (C),A ;AY #1(0)
−
;module  INCBIN "vec_1.m"
+
        JP PLAYER2+3
−
      DISPLAY "module end=",$
+
;module  INCBIN "vec_1.m"
−
 
+
        DISPLAY "module end=",$
−
        DS .(-$)
+
−
module=module1
+
        DS .(-$)
−
PLAYER1
+
module=module1
−
        LOCAL  
+
PLAYER1
−
ts2=0;1
+
        LOCAL  
−
        INCLUDE "playFAS*",#C4
+
ts2=0;1
−
        ENDL  
+
        INCLUDE "playFAS*",#C4
−
        DS .(-$)
+
        ENDL  
−
module=module2
+
        DS .(-$)
−
PLAYER2
+
module=module2
−
ts2=0
+
PLAYER2
−
        INCLUDE "playFAS*",#C4
+
ts2=0
−
      DISPLAY "end=",$
+
        INCLUDE "playFAS*",#C4
−
 
+
        DISPLAY "end=",$
−
        ORG #7000
+
−
        CALL TSINI
+
        ORG #7000
−
play_l  EI  
+
        CALL TSINI
−
        HALT  
+
play_l  EI  
−
        CALL TSPLAY
+
        HALT  
−
        LD A,#7F
+
        CALL TSPLAY
−
        IN A,(-2)
+
        LD A,#7F
−
        RRA  
+
        IN A,(-2)
−
        JR C,play_l
+
        RRA  
−
        JP TSINI
+
        JR C,play_l
−
      IFN 0
+
        JP TSINI
−
        LD A,#FE ;AY #2(1)
+
        IFN 0
−
        CALL SHUTFFFD
+
        LD A,#FE ;AY #2(1)
−
        LD A,#FF ;AY #1(0)
+
        CALL SHUTFFFD
−
SHUTFFFD
+
        LD A,#FF ;AY #1(0)
−
        LD BC,#FFFD
+
SHUTFFFD
−
        OUT (C),A
+
        LD BC,#FFFD
−
        LD DE,#E00
+
        OUT (C),A
−
SHUT0  LD BC,-3
+
        LD DE,#E00
−
        DEC D
+
SHUT0  LD BC,-3
−
        OUT (C),D
+
        DEC D
−
        LD B,#BF
+
        OUT (C),D
−
        OUT (C),E
+
        LD B,#BF
−
        JNZ SHUT0
+
        OUT (C),E
−
        RET  
+
        JNZ SHUT0
−
      ENDIF D (DE),A
+
        RET  
−
      LD (IX),A
+
        ENDIF D (DE),A
−
      LD HL,#616,(l8FA0+1),HL
+
        LD (IX),A
 +
        LD HL,#616,(l8FA0+1),HL

Latest revision as of 20:05, 8 March 2020

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
Retrieved from "http://mus.msx.click/index.php?title=PROTRACKER372_PLATSTST_H&oldid=960"