Changes

PROTRACKER372 PLAYTSMK H

1,592 bytes added, 23:21, 14 February 2020

Created page with "PLAYTSmKC�� ���l� ORG #DADF module INCBIN "??????TS.m" DISPLAY "module end=",$ ORG #C000 frq=1 ;чтобы не 4 таблицы, а одн..."

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

• Newer edit →

Kumokosi

Bureaucrat, administrator

1,345

edits