Changes

PROTRACKER372 PLATSTST H

1,586 bytes added, 23:19, 14 February 2020

Created page with "PLATSTSTC��┐���їПmodule1=#E000 module2=#F000 frq=0 ;чтобы не 4 таблицы, а одну ORG module1 INCBIN "mm?????1.m" ORG mod..."

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

• Newer edit →

Kumokosi

Bureaucrat, administrator

1,345

edits