1,345
edits
Changes
Created page with "PT3Play C���_�`�*;Vortex Tracker II v1.0 PT3 player for ZX Spectrum ;(c)2004,2007 S.V.Bulba <vorobey@mail.khstu.ru> ;http://bulba.untergrund.net (http://bulba.at.kz)..."
PT3Play C���_�`�*;Vortex Tracker II v1.0 PT3 player for ZX Spectrum
;(c)2004,2007 S.V.Bulba <vorobey@mail.khstu.ru>
;http://bulba.untergrund.net (http://bulba.at.kz)
;Release number
Release="7"
IFN ?Id
Id=1
ENDIF
;Features
;--------
;-Can be compiled at any address (i.e. no need rounding ORG
; address).
;-Variables (VARS) can be located at any address (not only after
;code block).
;-INIT subroutine detects module version and rightly generates
; both note and volume tables outside of code block (in VARS).
;-Two portamento (spc. command 3xxx) algorithms (depending of
; module version).
;-New 1.XX and 2.XX special command behaviour (only for PT v3.7
; and higher).
;-Any Tempo value are accepted (including Tempo=1 and Tempo=2).
;-Fully compatible with Ay_Emul PT3 player codes.
;-See also notes at the end of this source code.
;Limitations
;-----------
;-Can run in RAM only (self-modified code is used).
;Warning!!! PLAY subroutine can crash if no module are loaded
;into RAM or INIT subroutine was not called before.
;Call MUTE or INIT one more time to mute sound after stopping
;playing
; ORG #C000
;Test codes (commented)
; CALL START
; EI
;_LP HALT
; CALL START+5
; XOR A
; IN A,(#FE)
; CPL
; AND 15
; JR Z,_LP
; JR START+8
TonA=0
TonB=2
TonC=4
Noise=6
Mixer=7
AmplA=8
AmplB=9
AmplC=10
Env=11
EnvTp=13
;ChannelsVars
; STRUCT CHP
;reset group
PsInOr=0
PsInSm=1
CrAmSl=2
CrNsSl=3
CrEnSl=4
TSlCnt=5
CrTnSl=6
TnAcc=8
COnOff=10
;reset group
OnOffD=11
;IX for PTDECOD here (+12)
OffOnD=12
OrnPtr=13
SamPtr=15
NNtSkp=17
Note=18
SlToNt=19
Env_En=20
Flags=21
;Enabled - 0,SimpleGliss - 2
TnSlDl=22
TSlStp=23
TnDelt=25
NtSkCn=27
Volume=28
; ENDS
CHP=29
;Entry and other points
;START initialization
;START+3 initialization with module address in HL
;START+5 play one quark
;START+8 mute
;START+10 setup and status flags
;START+11 pointer to current position value in PT3 module;
;After INIT (START+11) points to Postion0-1 (optimization)
START
LD HL,MDLADDR
JR INIT
JP PLAY
JR MUTE
SETUP DB 0 ;set bit0 to 1, if you want to play without looping
;bit7 is set each time, when loop point is passed
CrPsPtr DW 0
IFN Id
;Identifier
DB "=VTII PT3 Player r.",Release,"="
ENDIF
CHECKLP LD HL,SETUP
SET 7,(HL)
BIT 0,(HL)
RET Z
POP HL
LD HL,DelyCnt
INC (HL)
LD HL,ChanA+NtSkCn
INC (HL)
MUTE XOR A
LD H,A
LD L,A
LD (AYREGS+AmplA),A
LD (AYREGS+AmplB),HL
JP ROUT_A0
INIT
;HL - AddressOfModule
LD (MODADDR),HL
LD (MDADDR2),HL
PUSH HL
LD DE,100
ADD HL,DE
LD A,(HL)
LD (Delay),A
PUSH HL
POP IX
ADD HL,DE
LD (CrPsPtr),HL
LD E,(IX+102-100)
ADD HL,DE
INC HL
LD (LPosPtr),HL
POP DE
LD L,(IX+103-100)
LD H,(IX+104-100)
ADD HL,DE
LD (PatsPtr),HL
LD HL,169
ADD HL,DE
LD (OrnPtrs),HL
LD HL,105
ADD HL,DE
LD (SamPtrs),HL
LD HL,SETUP
RES 7,(HL)
;note table data depacker
LD DE,T_PACK
LD BC,T1_+(2*49)-1
TP_0 LD A,(DE)
INC DE
CP 15*2
JR NC,TP_1
LD H,A
LD A,(DE)
LD L,A
INC DE
JR TP_2
TP_1 PUSH DE
LD D,0
LD E,A
ADD HL,DE
ADD HL,DE
POP DE
TP_2 LD A,H
LD (BC),A
DEC BC
LD A,L
LD (BC),A
DEC BC
SUB #F8*2
JR NZ,TP_0
LD HL,VARS
LD (HL),A
LD DE,VARS+1
LD BC,VAR0END-VARS-1
LDIR
INC A
LD (DelyCnt),A
LD HL,#F001 ;H - Volume, L - NtSkCn
LD (ChanA+NtSkCn),HL
LD (ChanB+NtSkCn),HL
LD (ChanC+NtSkCn),HL
LD HL,EMPTYSAMORN
LD (AdInPtA),HL ;ptr to zero
LD (ChanA+OrnPtr),HL ;ornament 0 is "0,1,0"
LD (ChanB+OrnPtr),HL ;in all versions from
LD (ChanC+OrnPtr),HL ;3.xx to 3.6x and VTII
LD (ChanA+SamPtr),HL ;S1 There is no default
LD (ChanB+SamPtr),HL ;S2 sample in PT3, so, you
LD (ChanC+SamPtr),HL ;S3 can comment S1,2,3; see
;also EMPTYSAMORN comment
LD A,(IX+13-100) ;EXTRACT VERSION NUMBER
SUB #30
JR C,L20
CP 10
JR C,L21
L20 LD A,6
L21 LD (Version),A
PUSH AF
CP 4
LD A,(IX+99-100) ;TONE TABLE NUMBER
RLA
AND 7
;NoteTableCreator (c) Ivan Roshin
;A - NoteTableNumber*2+VersionForNoteTable
;(xx1b - 3.xx..3.4r, xx0b - 3.4x..3.6x..VTII1.0)
LD HL,NT_DATA
PUSH DE
LD D,B
ADD A,A
LD E,A
ADD HL,DE
LD E,(HL)
INC HL
SRL E
SBC A,A
AND #A7 ;#00 (NOP) or #A7 (AND A)
LD (L3),A
EX DE,HL
POP BC ;BC=T1_
ADD HL,BC
LD A,(DE)
ADD A,T_
LD C,A
ADC A,'T_
SUB C
LD B,A
PUSH BC
LD DE,NT_
PUSH DE
LD B,12
L1 PUSH BC
LD C,(HL)
INC HL
PUSH HL
LD B,(HL)
PUSH DE
EX DE,HL
LD DE,23
LD HX,8
L2 SRL B
RR C
L3 DB #19 ;AND A or NOP
LD A,C
ADC A,D ;=ADC 0
LD (HL),A
INC HL
LD A,B
ADC A,D
LD (HL),A
ADD HL,DE
DEC HX
JR NZ,L2
POP DE
INC DE
INC DE
POP HL
INC HL
POP BC
DJNZ L1
POP HL
POP DE
LD A,E
CP TCOLD_1
JR NZ,CORR_1
LD A,#FD
LD (NT_+#2E),A
CORR_1 LD A,(DE)
AND A
JR Z,TC_EXIT
RRA
PUSH AF
ADD A,A
LD C,A
ADD HL,BC
POP AF
JR NC,CORR_2
DEC (HL)
DEC (HL)
CORR_2 INC (HL)
AND A
SBC HL,BC
INC DE
JR CORR_1
TC_EXIT
POP AF
;VolTableCreator (c) Ivan Roshin
;A - VersionForVolumeTable (0..4 - 3.xx..3.4x;
;5.. - 3.5x..3.6x..VTII1.0)
CP 5
LD HL,#11
LD D,H
LD E,H
LD A,#17
JR NC,M1
DEC L
LD E,L
XOR A
M1 LD (M2),A
LD IX,VT_+16
LD C,#10
INITV2 PUSH HL
ADD HL,DE
EX DE,HL
SBC HL,HL
INITV1 LD A,L
M2 DB #7D
LD A,H
ADC A,0
LD (IX),A
INC IX
ADD HL,DE
INC C
LD A,C
AND 15
JR NZ,INITV1
POP HL
LD A,E
CP #77
JR NZ,M3
INC E
M3 LD A,C
AND A
JR NZ,INITV2
JP ROUT_A0
;pattern decoder
PD_OrSm LD (IX-12+Env_En),0
CALL SETORN
LD A,(BC)
INC BC
RRCA
PD_SAM ADD A,A
PD_SAM_ LD E,A
LD D,0
SamPtrs=$+1
LD HL,#2121
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
MODADDR=$+1
LD HL,#2121
ADD HL,DE
LD (IX-12+SamPtr),L
LD (IX-12+SamPtr+1),H
JR PD_LOOP
PD_VOL RLCA
RLCA
RLCA
RLCA
LD (IX-12+Volume),A
JR PD_LP2
PD_EOff LD (IX-12+Env_En),A
LD (IX-12+PsInOr),A
JR PD_LP2
PD_SorE DEC A
JR NZ,PD_ENV
LD A,(BC)
INC BC
LD (IX-12+NNtSkp),A
JR PD_LP2
PD_ENV CALL SETENV
JR PD_LP2
PD_ORN CALL SETORN
JR PD_LOOP
PD_ESAM LD (IX-12+Env_En),A
LD (IX-12+PsInOr),A
CALL NZ,SETENV
LD A,(BC)
INC BC
JR PD_SAM_
PTDECOD LD A,(IX-12+Note)
LD (PrNote+1),A
LD L,(IX-12+CrTnSl)
LD H,(IX-12+CrTnSl+1)
LD (PrSlide+1),HL
PD_LOOP LD DE,#2010
PD_LP2 LD A,(BC)
INC BC
ADD A,E
JR C,PD_OrSm
ADD A,D
JR Z,PD_FIN
JR C,PD_SAM
ADD A,E
JR Z,PD_REL
JR C,PD_VOL
ADD A,E
JR Z,PD_EOff
JR C,PD_SorE
ADD A,96
JR C,PD_NOTE
ADD A,E
JR C,PD_ORN
ADD A,D
JR C,PD_NOIS
ADD A,E
JR C,PD_ESAM
ADD A,A
LD E,A
LD HL,SPCCOMS+#FF20-#2000
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
PUSH DE
JR PD_LOOP
PD_NOIS LD (Ns_Base),A
JR PD_LP2
PD_REL RES 0,(IX-12+Flags)
JR PD_RES
PD_NOTE LD (IX-12+Note),A
SET 0,(IX-12+Flags)
XOR A
PD_RES LD (PDSP_+1),SP
LD SP,IX
LD H,A
LD L,A
PUSH HL
PUSH HL
PUSH HL
PUSH HL
PUSH HL
PUSH HL
PDSP_ LD SP,#3131
PD_FIN LD A,(IX-12+NNtSkp)
LD (IX-12+NtSkCn),A
RET
C_PORTM RES 2,(IX-12+Flags)
LD A,(BC)
INC BC
;SKIP PRECALCULATED TONE DELTA (BECAUSE
;CANNOT BE RIGHT AFTER PT3 COMPILATION)
INC BC
INC BC
LD (IX-12+TnSlDl),A
LD (IX-12+TSlCnt),A
LD DE,NT_
LD A,(IX-12+Note)
LD (IX-12+SlToNt),A
ADD A,A
LD L,A
LD H,0
ADD HL,DE
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
PUSH HL
PrNote LD A,#3E
LD (IX-12+Note),A
ADD A,A
LD L,A
LD H,0
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
POP HL
SBC HL,DE
LD (IX-12+TnDelt),L
LD (IX-12+TnDelt+1),H
LD E,(IX-12+CrTnSl)
LD D,(IX-12+CrTnSl+1)
Version=$+1
LD A,#3E
CP 6
JR C,OLDPRTM ;Old 3xxx for PT v3.5-
PrSlide LD DE,#1111
LD (IX-12+CrTnSl),E
LD (IX-12+CrTnSl+1),D
OLDPRTM LD A,(BC) ;SIGNED TONE STEP
INC BC
EXA
LD A,(BC)
INC BC
AND A
JR Z,NOSIG
EX DE,HL
NOSIG SBC HL,DE
JP P,SET_STP
CPL
EXA
NEG
EXA
SET_STP LD (IX-12+TSlStp+1),A
EXA
LD (IX-12+TSlStp),A
LD (IX-12+COnOff),0
RET
C_GLISS SET 2,(IX-12+Flags)
LD A,(BC)
INC BC
LD (IX-12+TnSlDl),A
AND A
JR NZ,GL36
LD A,(Version) ;AlCo PT3.7+
CP 7
SBC A,A
INC A
GL36 LD (IX-12+TSlCnt),A
LD A,(BC)
INC BC
EXA
LD A,(BC)
INC BC
JR SET_STP
C_SMPOS LD A,(BC)
INC BC
LD (IX-12+PsInSm),A
RET
C_ORPOS LD A,(BC)
INC BC
LD (IX-12+PsInOr),A
RET
C_VIBRT LD A,(BC)
INC BC
LD (IX-12+OnOffD),A
LD (IX-12+COnOff),A
LD A,(BC)
INC BC
LD (IX-12+OffOnD),A
XOR A
LD (IX-12+TSlCnt),A
LD (IX-12+CrTnSl),A
LD (IX-12+CrTnSl+1),A
RET
C_ENGLS LD A,(BC)
INC BC
LD (Env_Del),A
LD (CurEDel),A
LD A,(BC)
INC BC
LD L,A
LD A,(BC)
INC BC
LD H,A
LD (ESldAdd),HL
RET
C_DELAY LD A,(BC)
INC BC
LD (Delay),A
RET
SETENV LD (IX-12+Env_En),E
LD (AYREGS+EnvTp),A
LD A,(BC)
INC BC
LD H,A
LD A,(BC)
INC BC
LD L,A
LD (EnvBase),HL
XOR A
LD (IX-12+PsInOr),A
LD (CurEDel),A
LD H,A
LD L,A
LD (CurESld),HL
C_NOP RET
SETORN ADD A,A
LD E,A
LD D,0
LD (IX-12+PsInOr),D
OrnPtrs=$+1
LD HL,#2121
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
MDADDR2=$+1
LD HL,#2121
ADD HL,DE
LD (IX-12+OrnPtr),L
LD (IX-12+OrnPtr+1),H
RET
;ALL 16 ADDRESSES TO PROTECT FROM BROKEN PT3 MODULES
SPCCOMS DW C_NOP
DW C_GLISS
DW C_PORTM
DW C_SMPOS
DW C_ORPOS
DW C_VIBRT
DW C_NOP
DW C_NOP
DW C_ENGLS
DW C_DELAY
DW C_NOP
DW C_NOP
DW C_NOP
DW C_NOP
DW C_NOP
DW C_NOP
CHREGS XOR A
LD (Ampl),A
BIT 0,(IX+Flags)
PUSH HL
JP Z,CH_EXIT
LD (CSP_+1),SP
LD L,(IX+OrnPtr)
LD H,(IX+OrnPtr+1)
LD SP,HL
POP DE
LD H,A
LD A,(IX+PsInOr)
LD L,A
ADD HL,SP
INC A
CP D
JR C,CH_ORPS
LD A,E
CH_ORPS LD (IX+PsInOr),A
LD A,(IX+Note)
ADD A,(HL)
JP P,CH_NTP
XOR A
CH_NTP CP 96
JR C,CH_NOK
LD A,95
CH_NOK ADD A,A
EXA
LD L,(IX+SamPtr)
LD H,(IX+SamPtr+1)
LD SP,HL
POP DE
LD H,0
LD A,(IX+PsInSm)
LD B,A
ADD A,A
ADD A,A
LD L,A
ADD HL,SP
LD SP,HL
LD A,B
INC A
CP D
JR C,CH_SMPS
LD A,E
CH_SMPS LD (IX+PsInSm),A
POP BC
POP HL
LD E,(IX+TnAcc)
LD D,(IX+TnAcc+1)
ADD HL,DE
BIT 6,B
JR Z,CH_NOAC
LD (IX+TnAcc),L
LD (IX+TnAcc+1),H
CH_NOAC EX DE,HL
EXA
LD L,A
LD H,0
LD SP,NT_
ADD HL,SP
LD SP,HL
POP HL
ADD HL,DE
LD E,(IX+CrTnSl)
LD D,(IX+CrTnSl+1)
ADD HL,DE
CSP_ LD SP,#3131
EX (SP),HL
XOR A
OR (IX+TSlCnt)
JR Z,CH_AMP
DEC (IX+TSlCnt)
JR NZ,CH_AMP
LD A,(IX+TnSlDl)
LD (IX+TSlCnt),A
LD L,(IX+TSlStp)
LD H,(IX+TSlStp+1)
LD A,H
ADD HL,DE
LD (IX+CrTnSl),L
LD (IX+CrTnSl+1),H
BIT 2,(IX+Flags)
JR NZ,CH_AMP
LD E,(IX+TnDelt)
LD D,(IX+TnDelt+1)
AND A
JR Z,CH_STPP
EX DE,HL
CH_STPP SBC HL,DE
JP M,CH_AMP
LD A,(IX+SlToNt)
LD (IX+Note),A
XOR A
LD (IX+TSlCnt),A
LD (IX+CrTnSl),A
LD (IX+CrTnSl+1),A
CH_AMP LD A,(IX+CrAmSl)
BIT 7,C
JR Z,CH_NOAM
BIT 6,C
JR Z,CH_AMIN
CP 15
JR Z,CH_NOAM
INC A
JR CH_SVAM
CH_AMIN CP -15
JR Z,CH_NOAM
DEC A
CH_SVAM LD (IX+CrAmSl),A
CH_NOAM LD L,A
LD A,B
AND 15
ADD A,L
JP P,CH_APOS
XOR A
CH_APOS CP 16
JR C,CH_VOL
LD A,15
CH_VOL OR (IX+Volume)
LD L,A
LD H,0
LD DE,VT_
ADD HL,DE
LD A,(HL)
CH_ENV BIT 0,C
JR NZ,CH_NOEN
OR (IX+Env_En)
CH_NOEN LD (Ampl),A
BIT 7,B
LD A,C
JR Z,NO_ENSL
RLA
RLA
SRA A
SRA A
SRA A
ADD A,(IX+CrEnSl) ;SEE COMMENT BELOW
BIT 5,B
JR Z,NO_ENAC
LD (IX+CrEnSl),A
NO_ENAC LD HL,AddToEn
ADD A,(HL) ;BUG IN PT3 - NEED WORD HERE.
;FIX IT IN NEXT VERSION?
LD (HL),A
JR CH_MIX
NO_ENSL RRA
ADD A,(IX+CrNsSl)
LD (AddToNs),A
BIT 5,B
JR Z,CH_MIX
LD (IX+CrNsSl),A
CH_MIX LD A,B
RRA
AND #48
CH_EXIT LD HL,AYREGS+Mixer
OR (HL)
RRCA
LD (HL),A
POP HL
XOR A
OR (IX+COnOff)
RET Z
DEC (IX+COnOff)
RET NZ
XOR (IX+Flags)
LD (IX+Flags),A
RRA
LD A,(IX+OnOffD)
JR C,CH_ONDL
LD A,(IX+OffOnD)
CH_ONDL LD (IX+COnOff),A
RET
PLAY XOR A
LD (AddToEn),A
LD (AYREGS+Mixer),A
DEC A
LD (AYREGS+EnvTp),A
LD HL,DelyCnt
DEC (HL)
JR NZ,PL2
LD HL,ChanA+NtSkCn
DEC (HL)
JR NZ,PL1B
AdInPtA=$+1
LD BC,#0101
LD A,(BC)
AND A
JR NZ,PL1A
LD D,A
LD (Ns_Base),A
LD HL,(CrPsPtr)
INC HL
LD A,(HL)
INC A
JR NZ,PLNLP
CALL CHECKLP
LPosPtr=$+1
LD HL,#2121
LD A,(HL)
INC A
PLNLP LD (CrPsPtr),HL
DEC A
ADD A,A
LD E,A
RL D
PatsPtr=$+1
LD HL,#2121
ADD HL,DE
LD DE,(MODADDR)
LD (PSP_+1),SP
LD SP,HL
POP HL
ADD HL,DE
LD B,H
LD C,L
POP HL
ADD HL,DE
LD (AdInPtB),HL
POP HL
ADD HL,DE
LD (AdInPtC),HL
PSP_ LD SP,#3131
PL1A LD IX,ChanA+12
CALL PTDECOD
LD (AdInPtA),BC
PL1B LD HL,ChanB+NtSkCn
DEC (HL)
JR NZ,PL1C
LD IX,ChanB+12
AdInPtB=$+1
LD BC,#0101
CALL PTDECOD
LD (AdInPtB),BC
PL1C LD HL,ChanC+NtSkCn
DEC (HL)
JR NZ,PL1D
LD IX,ChanC+12
AdInPtC=$+1
LD BC,#0101
CALL PTDECOD
LD (AdInPtC),BC
Delay=$+1
PL1D LD A,#3E
LD (DelyCnt),A
PL2 LD IX,ChanA
LD HL,(AYREGS+TonA)
CALL CHREGS
LD (AYREGS+TonA),HL
LD A,(Ampl)
LD (AYREGS+AmplA),A
LD IX,ChanB
LD HL,(AYREGS+TonB)
CALL CHREGS
LD (AYREGS+TonB),HL
LD A,(Ampl)
LD (AYREGS+AmplB),A
LD IX,ChanC
LD HL,(AYREGS+TonC)
CALL CHREGS
; LD A,(Ampl) ;Ampl = AYREGS+AmplC
; LD (AYREGS+AmplC),A
LD (AYREGS+TonC),HL
LD HL,(Ns_Base_AddToNs)
LD A,H
ADD A,L
LD (AYREGS+Noise),A
AddToEn=$+1
LD A,#3E
LD E,A
ADD A,A
SBC A,A
LD D,A
LD HL,(EnvBase)
ADD HL,DE
LD DE,(CurESld)
ADD HL,DE
LD (AYREGS+Env),HL
XOR A
LD HL,CurEDel
OR (HL)
JR Z,ROUT_A0
DEC (HL)
JR NZ,ROUT
Env_Del=$+1
LD A,#3E
LD (HL),A
ESldAdd=$+1
LD HL,#2121
ADD HL,DE
LD (CurESld),HL
ROUT XOR A
ROUT_A0 LD DE,#FFBF
LD BC,#FFFD
LD HL,AYREGS
LOUT OUT (C),A
LD B,E
OUTI
LD B,D
INC A
CP 13
JR NZ,LOUT
OUT (C),A
LD A,(HL)
AND A
RET M
LD B,E
OUT (C),A
RET
;Stupid ALASM limitations
NT_DATA DB 50*2 ;(T_NEW_0-T1_)*2
DB TCNEW_0-T_
DB 50*2+1 ;(T_OLD_0-T1_)*2+1
DB TCOLD_0-T_
DB 0*2+1 ;(T_NEW_1-T1_)*2+1
DB TCNEW_1-T_
DB 0*2+1 ;(T_OLD_1-T1_)*2+1
DB TCOLD_1-T_
DB 74*2;(T_NEW_2-T1_)*2
DB TCNEW_2-T_
DB 24*2 ;(T_OLD_2-T1_)*2
DB TCOLD_2-T_
DB 48*2 ;(T_NEW_3-T1_)*2
DB TCNEW_3-T_
DB 48*2 ;(T_OLD_3-T1_)*2
DB TCOLD_3-T_
T_
TCOLD_0 DB #00+1,#04+1,#08+1,#0A+1,#0C+1,#0E+1,#12+1,#14+1
DB #18+1,#24+1,#3C+1,0
TCOLD_1 DB #5C+1,0
TCOLD_2 DB #30+1,#36+1,#4C+1,#52+1,#5E+1,#70+1,#82,#8C,#9C
DB #9E,#A0,#A6,#A8,#AA,#AC,#AE,#AE,0
TCNEW_3 DB #56+1
TCOLD_3 DB #1E+1,#22+1,#24+1,#28+1,#2C+1,#2E+1,#32+1,#BE+1,0
TCNEW_0 DB #1C+1,#20+1,#22+1,#26+1,#2A+1,#2C+1,#30+1,#54+1
DB #BC+1,#BE+1,0
TCNEW_1=TCOLD_1
TCNEW_2 DB #1A+1,#20+1,#24+1,#28+1,#2A+1,#3A+1,#4C+1,#5E+1
DB #BA+1,#BC+1,#BE+1,0
EMPTYSAMORN=$-1
DB 1,0,#90 ;delete #90 if you don't need default sample
;first 12 values of tone tables (packed)
T_PACK DB #06EC*2/256,#06EC*2
DB #0755-#06EC
DB #07C5-#0755
DB #083B-#07C5
DB #08B8-#083B
DB #093D-#08B8
DB #09CA-#093D
DB #0A5F-#09CA
DB #0AFC-#0A5F
DB #0BA4-#0AFC
DB #0C55-#0BA4
DB #0D10-#0C55
DB #066D*2/256,#066D*2
DB #06CF-#066D
DB #0737-#06CF
DB #07A4-#0737
DB #0819-#07A4
DB #0894-#0819
DB #0917-#0894
DB #09A1-#0917
DB #0A33-#09A1
DB #0ACF-#0A33
DB #0B73-#0ACF
DB #0C22-#0B73
DB #0CDA-#0C22
DB #0704*2/256,#0704*2
DB #076E-#0704
DB #07E0-#076E
DB #0858-#07E0
DB #08D6-#0858
DB #095C-#08D6
DB #09EC-#095C
DB #0A82-#09EC
DB #0B22-#0A82
DB #0BCC-#0B22
DB #0C80-#0BCC
DB #0D3E-#0C80
DB #07E0*2/256,#07E0*2
DB #0858-#07E0
DB #08E0-#0858
DB #0960-#08E0
DB #09F0-#0960
DB #0A88-#09F0
DB #0B28-#0A88
DB #0BD8-#0B28
DB #0C80-#0BD8
DB #0D60-#0C80
DB #0E10-#0D60
DB #0EF8-#0E10
DISPLAY $
;vars from here can be stripped
;you can move VARS to any other address
VARS
ChanA DS CHP
ChanB DS CHP
ChanC DS CHP
;GlobalVars
DelyCnt DB 0
CurESld DW 0
CurEDel DB 0
Ns_Base_AddToNs
Ns_Base DB 0
AddToNs DB 0
AYREGS
VT_ DS 256 ;CreatedVolumeTableAddress
EnvBase=VT_+14
T1_=VT_+16 ;Tone tables data depacked here
T_OLD_1=T1_
T_OLD_2=T_OLD_1+24
T_OLD_3=T_OLD_2+24
T_OLD_0=T_OLD_3+2
T_NEW_0=T_OLD_0
T_NEW_1=T_OLD_1
T_NEW_2=T_NEW_0+24
T_NEW_3=T_OLD_3
NT_ DS 192 ;CreatedNoteTableAddress
;local var
Ampl=AYREGS+AmplC
VAR0END=VT_+16 ;INIT zeroes from VARS to VAR0END-1
VARSEND=$
MDLADDR=$
DISPLAY $
;Release 0 steps:
;11.Sep.2004 - Note tables creator
;12.Sep.2004 - Volume tables creator; INIT subroutine
;13.Sep.2004 - Play counters, position counters
;14.Sep.2004 - Patterns decoder subroutine
;15.Sep.2004 - Resting (no code)
;16.Sep.2004 - CHREGS subroutine; global debugging; 1st stable
;version was born
;17.Sep.2004 - Debugging and optimization. First release!
;Release 1 steps:
;20.Sep.2004 - local vars moved to code (selfmodified code
;smaller and faster)
;22.Sep.2004 - added mute sound entry at START+8; position
;pointer moved to START+11; added setup and status byte at
;START+10 noloop mode and loop passed flags added
;Release 2 steps:
;28.Sep.2004 - Optimization: code around CHREGS's volume and
;vibrato faster now; zeroing PD_RES through stack; Ton and Ampl
;moved from channel vars to global ones; first position selector
;removed from INIT; optimization for packers(Ivan Roshin method)
;Release 3 steps:
;2.Oct.2004 - optimization in INIT and PD_LOOP (thanks to Ivan
;Roshin)
;4.Oct.2004 - load delay from (hl) in INIT (2 bytes shorter)
;5.Oct.2004 - optimization in PD_LOOP (->PD_LP2)
;7.Oct.2004 - swaping some commands for better packing
;Release 4 steps:
;9.Oct.2004 - optimization around LD HL,SPCCOMS (thanks to Ivan
;Roshin); in PTDECOD swapped BC and DE to optimize C_PORTM;
;removed sam and orn len and loop channel vars; CHREGS totally
;optimized
;Release 5 steps:
;11.Oct.2004 - PD_OrSm and C_PORTM optimized; Ivan Roshin's
;volume tables creator algorithm (51 bytes shorter than mine)
;12.Oct.2004 - Ivan Roshin's note tables creator algorithm (74
;bytes shorter than mine)
;Release 6 steps:
;14.Oct.2004 - loop and next position calculations moved to INIT
;15.Oct.2004 - AdInPt moved to code
;19.Oct.2004 - Env_Del moved to code
;20.Oct.2004 - Version PUSH and POP (1 byte shorter, thanks to
;Ivan Roshin)
;22.Oct.2004 - Env_En moved from Flags' bit to byte (shorter and
;faster code)
;25.Oct.2004 - SETENV optimized
;29.Oct.2004 - Optimized around AddToEn (SBC A,A, thanks to Ivan
;Roshin)
;3.Nov.2004 - Note tables data was compressed; with depacker it
;is 9 bytes shorter than uncompressed (thanks to Ivan Roshin)
;4.Nov.2004 - default sample and ornament both are fixed now
;and placed into code block (6 bytes shorter)
;7.Nov.2004 - LD A,(Ns_Base):LD L,A changed to LD HL,(Ns_Base)
;(thanks to Dima Bystrov)
;9.Nov.2004 - Ns_Base and AddToNs are merged to Ns_Base_AddToNs;
;LD A,255 changed to DEC A (at start of PLAY); added ROUT_A0
;12.Nov.2004 - NtSkCn&Volume are merged (8 bytes smaller init);
;LD BC,T1_ changed to PUSH DE...POP BC in note table creator
;19.Dec.2004 - NT_DATA reorganized (6 bytes shorter, thanks to
;Ivan Roshin); C_PORTM and C_GLISS are merged via SET_STP (48
;tacts slower, but 8 bytes smaller, thanks to Ivan Roshin)
;Release 7 steps:
;29.Apr.2007 - SjAsm adaptation; new 1.xx and 2.xx
;interpretation for PT 3.7+.
;Tests in IMMATION TESTER V1.0 by Andy Man/POS (thanks to
;Himik's ZxZ for help):
;Module name/author Min tacts Max tacts Average
;Spleen/Nik-O 1720 9256 5500
;Chuta/Miguel 1720 9496 5500
;Zhara/Macros 4536 8744 5500
;Size:
;Code block #651 bytes
;Variables #21D bytes (can be stripped)
;Size in RAM #651+#21D=#86E (2158) bytes
;Notes:
;Pro Tracker 3.4r can not be detected by header, so PT3.4r tone
;tables really used only for modules of 3.3 and older versions.
0.Sep.2004 - local vars moved to code (selfmodified code
;smaller and faster)
;22.Sep.2004 - added mute s
;(c)2004,2007 S.V.Bulba <vorobey@mail.khstu.ru>
;http://bulba.untergrund.net (http://bulba.at.kz)
;Release number
Release="7"
IFN ?Id
Id=1
ENDIF
;Features
;--------
;-Can be compiled at any address (i.e. no need rounding ORG
; address).
;-Variables (VARS) can be located at any address (not only after
;code block).
;-INIT subroutine detects module version and rightly generates
; both note and volume tables outside of code block (in VARS).
;-Two portamento (spc. command 3xxx) algorithms (depending of
; module version).
;-New 1.XX and 2.XX special command behaviour (only for PT v3.7
; and higher).
;-Any Tempo value are accepted (including Tempo=1 and Tempo=2).
;-Fully compatible with Ay_Emul PT3 player codes.
;-See also notes at the end of this source code.
;Limitations
;-----------
;-Can run in RAM only (self-modified code is used).
;Warning!!! PLAY subroutine can crash if no module are loaded
;into RAM or INIT subroutine was not called before.
;Call MUTE or INIT one more time to mute sound after stopping
;playing
; ORG #C000
;Test codes (commented)
; CALL START
; EI
;_LP HALT
; CALL START+5
; XOR A
; IN A,(#FE)
; CPL
; AND 15
; JR Z,_LP
; JR START+8
TonA=0
TonB=2
TonC=4
Noise=6
Mixer=7
AmplA=8
AmplB=9
AmplC=10
Env=11
EnvTp=13
;ChannelsVars
; STRUCT CHP
;reset group
PsInOr=0
PsInSm=1
CrAmSl=2
CrNsSl=3
CrEnSl=4
TSlCnt=5
CrTnSl=6
TnAcc=8
COnOff=10
;reset group
OnOffD=11
;IX for PTDECOD here (+12)
OffOnD=12
OrnPtr=13
SamPtr=15
NNtSkp=17
Note=18
SlToNt=19
Env_En=20
Flags=21
;Enabled - 0,SimpleGliss - 2
TnSlDl=22
TSlStp=23
TnDelt=25
NtSkCn=27
Volume=28
; ENDS
CHP=29
;Entry and other points
;START initialization
;START+3 initialization with module address in HL
;START+5 play one quark
;START+8 mute
;START+10 setup and status flags
;START+11 pointer to current position value in PT3 module;
;After INIT (START+11) points to Postion0-1 (optimization)
START
LD HL,MDLADDR
JR INIT
JP PLAY
JR MUTE
SETUP DB 0 ;set bit0 to 1, if you want to play without looping
;bit7 is set each time, when loop point is passed
CrPsPtr DW 0
IFN Id
;Identifier
DB "=VTII PT3 Player r.",Release,"="
ENDIF
CHECKLP LD HL,SETUP
SET 7,(HL)
BIT 0,(HL)
RET Z
POP HL
LD HL,DelyCnt
INC (HL)
LD HL,ChanA+NtSkCn
INC (HL)
MUTE XOR A
LD H,A
LD L,A
LD (AYREGS+AmplA),A
LD (AYREGS+AmplB),HL
JP ROUT_A0
INIT
;HL - AddressOfModule
LD (MODADDR),HL
LD (MDADDR2),HL
PUSH HL
LD DE,100
ADD HL,DE
LD A,(HL)
LD (Delay),A
PUSH HL
POP IX
ADD HL,DE
LD (CrPsPtr),HL
LD E,(IX+102-100)
ADD HL,DE
INC HL
LD (LPosPtr),HL
POP DE
LD L,(IX+103-100)
LD H,(IX+104-100)
ADD HL,DE
LD (PatsPtr),HL
LD HL,169
ADD HL,DE
LD (OrnPtrs),HL
LD HL,105
ADD HL,DE
LD (SamPtrs),HL
LD HL,SETUP
RES 7,(HL)
;note table data depacker
LD DE,T_PACK
LD BC,T1_+(2*49)-1
TP_0 LD A,(DE)
INC DE
CP 15*2
JR NC,TP_1
LD H,A
LD A,(DE)
LD L,A
INC DE
JR TP_2
TP_1 PUSH DE
LD D,0
LD E,A
ADD HL,DE
ADD HL,DE
POP DE
TP_2 LD A,H
LD (BC),A
DEC BC
LD A,L
LD (BC),A
DEC BC
SUB #F8*2
JR NZ,TP_0
LD HL,VARS
LD (HL),A
LD DE,VARS+1
LD BC,VAR0END-VARS-1
LDIR
INC A
LD (DelyCnt),A
LD HL,#F001 ;H - Volume, L - NtSkCn
LD (ChanA+NtSkCn),HL
LD (ChanB+NtSkCn),HL
LD (ChanC+NtSkCn),HL
LD HL,EMPTYSAMORN
LD (AdInPtA),HL ;ptr to zero
LD (ChanA+OrnPtr),HL ;ornament 0 is "0,1,0"
LD (ChanB+OrnPtr),HL ;in all versions from
LD (ChanC+OrnPtr),HL ;3.xx to 3.6x and VTII
LD (ChanA+SamPtr),HL ;S1 There is no default
LD (ChanB+SamPtr),HL ;S2 sample in PT3, so, you
LD (ChanC+SamPtr),HL ;S3 can comment S1,2,3; see
;also EMPTYSAMORN comment
LD A,(IX+13-100) ;EXTRACT VERSION NUMBER
SUB #30
JR C,L20
CP 10
JR C,L21
L20 LD A,6
L21 LD (Version),A
PUSH AF
CP 4
LD A,(IX+99-100) ;TONE TABLE NUMBER
RLA
AND 7
;NoteTableCreator (c) Ivan Roshin
;A - NoteTableNumber*2+VersionForNoteTable
;(xx1b - 3.xx..3.4r, xx0b - 3.4x..3.6x..VTII1.0)
LD HL,NT_DATA
PUSH DE
LD D,B
ADD A,A
LD E,A
ADD HL,DE
LD E,(HL)
INC HL
SRL E
SBC A,A
AND #A7 ;#00 (NOP) or #A7 (AND A)
LD (L3),A
EX DE,HL
POP BC ;BC=T1_
ADD HL,BC
LD A,(DE)
ADD A,T_
LD C,A
ADC A,'T_
SUB C
LD B,A
PUSH BC
LD DE,NT_
PUSH DE
LD B,12
L1 PUSH BC
LD C,(HL)
INC HL
PUSH HL
LD B,(HL)
PUSH DE
EX DE,HL
LD DE,23
LD HX,8
L2 SRL B
RR C
L3 DB #19 ;AND A or NOP
LD A,C
ADC A,D ;=ADC 0
LD (HL),A
INC HL
LD A,B
ADC A,D
LD (HL),A
ADD HL,DE
DEC HX
JR NZ,L2
POP DE
INC DE
INC DE
POP HL
INC HL
POP BC
DJNZ L1
POP HL
POP DE
LD A,E
CP TCOLD_1
JR NZ,CORR_1
LD A,#FD
LD (NT_+#2E),A
CORR_1 LD A,(DE)
AND A
JR Z,TC_EXIT
RRA
PUSH AF
ADD A,A
LD C,A
ADD HL,BC
POP AF
JR NC,CORR_2
DEC (HL)
DEC (HL)
CORR_2 INC (HL)
AND A
SBC HL,BC
INC DE
JR CORR_1
TC_EXIT
POP AF
;VolTableCreator (c) Ivan Roshin
;A - VersionForVolumeTable (0..4 - 3.xx..3.4x;
;5.. - 3.5x..3.6x..VTII1.0)
CP 5
LD HL,#11
LD D,H
LD E,H
LD A,#17
JR NC,M1
DEC L
LD E,L
XOR A
M1 LD (M2),A
LD IX,VT_+16
LD C,#10
INITV2 PUSH HL
ADD HL,DE
EX DE,HL
SBC HL,HL
INITV1 LD A,L
M2 DB #7D
LD A,H
ADC A,0
LD (IX),A
INC IX
ADD HL,DE
INC C
LD A,C
AND 15
JR NZ,INITV1
POP HL
LD A,E
CP #77
JR NZ,M3
INC E
M3 LD A,C
AND A
JR NZ,INITV2
JP ROUT_A0
;pattern decoder
PD_OrSm LD (IX-12+Env_En),0
CALL SETORN
LD A,(BC)
INC BC
RRCA
PD_SAM ADD A,A
PD_SAM_ LD E,A
LD D,0
SamPtrs=$+1
LD HL,#2121
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
MODADDR=$+1
LD HL,#2121
ADD HL,DE
LD (IX-12+SamPtr),L
LD (IX-12+SamPtr+1),H
JR PD_LOOP
PD_VOL RLCA
RLCA
RLCA
RLCA
LD (IX-12+Volume),A
JR PD_LP2
PD_EOff LD (IX-12+Env_En),A
LD (IX-12+PsInOr),A
JR PD_LP2
PD_SorE DEC A
JR NZ,PD_ENV
LD A,(BC)
INC BC
LD (IX-12+NNtSkp),A
JR PD_LP2
PD_ENV CALL SETENV
JR PD_LP2
PD_ORN CALL SETORN
JR PD_LOOP
PD_ESAM LD (IX-12+Env_En),A
LD (IX-12+PsInOr),A
CALL NZ,SETENV
LD A,(BC)
INC BC
JR PD_SAM_
PTDECOD LD A,(IX-12+Note)
LD (PrNote+1),A
LD L,(IX-12+CrTnSl)
LD H,(IX-12+CrTnSl+1)
LD (PrSlide+1),HL
PD_LOOP LD DE,#2010
PD_LP2 LD A,(BC)
INC BC
ADD A,E
JR C,PD_OrSm
ADD A,D
JR Z,PD_FIN
JR C,PD_SAM
ADD A,E
JR Z,PD_REL
JR C,PD_VOL
ADD A,E
JR Z,PD_EOff
JR C,PD_SorE
ADD A,96
JR C,PD_NOTE
ADD A,E
JR C,PD_ORN
ADD A,D
JR C,PD_NOIS
ADD A,E
JR C,PD_ESAM
ADD A,A
LD E,A
LD HL,SPCCOMS+#FF20-#2000
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
PUSH DE
JR PD_LOOP
PD_NOIS LD (Ns_Base),A
JR PD_LP2
PD_REL RES 0,(IX-12+Flags)
JR PD_RES
PD_NOTE LD (IX-12+Note),A
SET 0,(IX-12+Flags)
XOR A
PD_RES LD (PDSP_+1),SP
LD SP,IX
LD H,A
LD L,A
PUSH HL
PUSH HL
PUSH HL
PUSH HL
PUSH HL
PUSH HL
PDSP_ LD SP,#3131
PD_FIN LD A,(IX-12+NNtSkp)
LD (IX-12+NtSkCn),A
RET
C_PORTM RES 2,(IX-12+Flags)
LD A,(BC)
INC BC
;SKIP PRECALCULATED TONE DELTA (BECAUSE
;CANNOT BE RIGHT AFTER PT3 COMPILATION)
INC BC
INC BC
LD (IX-12+TnSlDl),A
LD (IX-12+TSlCnt),A
LD DE,NT_
LD A,(IX-12+Note)
LD (IX-12+SlToNt),A
ADD A,A
LD L,A
LD H,0
ADD HL,DE
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
PUSH HL
PrNote LD A,#3E
LD (IX-12+Note),A
ADD A,A
LD L,A
LD H,0
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
POP HL
SBC HL,DE
LD (IX-12+TnDelt),L
LD (IX-12+TnDelt+1),H
LD E,(IX-12+CrTnSl)
LD D,(IX-12+CrTnSl+1)
Version=$+1
LD A,#3E
CP 6
JR C,OLDPRTM ;Old 3xxx for PT v3.5-
PrSlide LD DE,#1111
LD (IX-12+CrTnSl),E
LD (IX-12+CrTnSl+1),D
OLDPRTM LD A,(BC) ;SIGNED TONE STEP
INC BC
EXA
LD A,(BC)
INC BC
AND A
JR Z,NOSIG
EX DE,HL
NOSIG SBC HL,DE
JP P,SET_STP
CPL
EXA
NEG
EXA
SET_STP LD (IX-12+TSlStp+1),A
EXA
LD (IX-12+TSlStp),A
LD (IX-12+COnOff),0
RET
C_GLISS SET 2,(IX-12+Flags)
LD A,(BC)
INC BC
LD (IX-12+TnSlDl),A
AND A
JR NZ,GL36
LD A,(Version) ;AlCo PT3.7+
CP 7
SBC A,A
INC A
GL36 LD (IX-12+TSlCnt),A
LD A,(BC)
INC BC
EXA
LD A,(BC)
INC BC
JR SET_STP
C_SMPOS LD A,(BC)
INC BC
LD (IX-12+PsInSm),A
RET
C_ORPOS LD A,(BC)
INC BC
LD (IX-12+PsInOr),A
RET
C_VIBRT LD A,(BC)
INC BC
LD (IX-12+OnOffD),A
LD (IX-12+COnOff),A
LD A,(BC)
INC BC
LD (IX-12+OffOnD),A
XOR A
LD (IX-12+TSlCnt),A
LD (IX-12+CrTnSl),A
LD (IX-12+CrTnSl+1),A
RET
C_ENGLS LD A,(BC)
INC BC
LD (Env_Del),A
LD (CurEDel),A
LD A,(BC)
INC BC
LD L,A
LD A,(BC)
INC BC
LD H,A
LD (ESldAdd),HL
RET
C_DELAY LD A,(BC)
INC BC
LD (Delay),A
RET
SETENV LD (IX-12+Env_En),E
LD (AYREGS+EnvTp),A
LD A,(BC)
INC BC
LD H,A
LD A,(BC)
INC BC
LD L,A
LD (EnvBase),HL
XOR A
LD (IX-12+PsInOr),A
LD (CurEDel),A
LD H,A
LD L,A
LD (CurESld),HL
C_NOP RET
SETORN ADD A,A
LD E,A
LD D,0
LD (IX-12+PsInOr),D
OrnPtrs=$+1
LD HL,#2121
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
MDADDR2=$+1
LD HL,#2121
ADD HL,DE
LD (IX-12+OrnPtr),L
LD (IX-12+OrnPtr+1),H
RET
;ALL 16 ADDRESSES TO PROTECT FROM BROKEN PT3 MODULES
SPCCOMS DW C_NOP
DW C_GLISS
DW C_PORTM
DW C_SMPOS
DW C_ORPOS
DW C_VIBRT
DW C_NOP
DW C_NOP
DW C_ENGLS
DW C_DELAY
DW C_NOP
DW C_NOP
DW C_NOP
DW C_NOP
DW C_NOP
DW C_NOP
CHREGS XOR A
LD (Ampl),A
BIT 0,(IX+Flags)
PUSH HL
JP Z,CH_EXIT
LD (CSP_+1),SP
LD L,(IX+OrnPtr)
LD H,(IX+OrnPtr+1)
LD SP,HL
POP DE
LD H,A
LD A,(IX+PsInOr)
LD L,A
ADD HL,SP
INC A
CP D
JR C,CH_ORPS
LD A,E
CH_ORPS LD (IX+PsInOr),A
LD A,(IX+Note)
ADD A,(HL)
JP P,CH_NTP
XOR A
CH_NTP CP 96
JR C,CH_NOK
LD A,95
CH_NOK ADD A,A
EXA
LD L,(IX+SamPtr)
LD H,(IX+SamPtr+1)
LD SP,HL
POP DE
LD H,0
LD A,(IX+PsInSm)
LD B,A
ADD A,A
ADD A,A
LD L,A
ADD HL,SP
LD SP,HL
LD A,B
INC A
CP D
JR C,CH_SMPS
LD A,E
CH_SMPS LD (IX+PsInSm),A
POP BC
POP HL
LD E,(IX+TnAcc)
LD D,(IX+TnAcc+1)
ADD HL,DE
BIT 6,B
JR Z,CH_NOAC
LD (IX+TnAcc),L
LD (IX+TnAcc+1),H
CH_NOAC EX DE,HL
EXA
LD L,A
LD H,0
LD SP,NT_
ADD HL,SP
LD SP,HL
POP HL
ADD HL,DE
LD E,(IX+CrTnSl)
LD D,(IX+CrTnSl+1)
ADD HL,DE
CSP_ LD SP,#3131
EX (SP),HL
XOR A
OR (IX+TSlCnt)
JR Z,CH_AMP
DEC (IX+TSlCnt)
JR NZ,CH_AMP
LD A,(IX+TnSlDl)
LD (IX+TSlCnt),A
LD L,(IX+TSlStp)
LD H,(IX+TSlStp+1)
LD A,H
ADD HL,DE
LD (IX+CrTnSl),L
LD (IX+CrTnSl+1),H
BIT 2,(IX+Flags)
JR NZ,CH_AMP
LD E,(IX+TnDelt)
LD D,(IX+TnDelt+1)
AND A
JR Z,CH_STPP
EX DE,HL
CH_STPP SBC HL,DE
JP M,CH_AMP
LD A,(IX+SlToNt)
LD (IX+Note),A
XOR A
LD (IX+TSlCnt),A
LD (IX+CrTnSl),A
LD (IX+CrTnSl+1),A
CH_AMP LD A,(IX+CrAmSl)
BIT 7,C
JR Z,CH_NOAM
BIT 6,C
JR Z,CH_AMIN
CP 15
JR Z,CH_NOAM
INC A
JR CH_SVAM
CH_AMIN CP -15
JR Z,CH_NOAM
DEC A
CH_SVAM LD (IX+CrAmSl),A
CH_NOAM LD L,A
LD A,B
AND 15
ADD A,L
JP P,CH_APOS
XOR A
CH_APOS CP 16
JR C,CH_VOL
LD A,15
CH_VOL OR (IX+Volume)
LD L,A
LD H,0
LD DE,VT_
ADD HL,DE
LD A,(HL)
CH_ENV BIT 0,C
JR NZ,CH_NOEN
OR (IX+Env_En)
CH_NOEN LD (Ampl),A
BIT 7,B
LD A,C
JR Z,NO_ENSL
RLA
RLA
SRA A
SRA A
SRA A
ADD A,(IX+CrEnSl) ;SEE COMMENT BELOW
BIT 5,B
JR Z,NO_ENAC
LD (IX+CrEnSl),A
NO_ENAC LD HL,AddToEn
ADD A,(HL) ;BUG IN PT3 - NEED WORD HERE.
;FIX IT IN NEXT VERSION?
LD (HL),A
JR CH_MIX
NO_ENSL RRA
ADD A,(IX+CrNsSl)
LD (AddToNs),A
BIT 5,B
JR Z,CH_MIX
LD (IX+CrNsSl),A
CH_MIX LD A,B
RRA
AND #48
CH_EXIT LD HL,AYREGS+Mixer
OR (HL)
RRCA
LD (HL),A
POP HL
XOR A
OR (IX+COnOff)
RET Z
DEC (IX+COnOff)
RET NZ
XOR (IX+Flags)
LD (IX+Flags),A
RRA
LD A,(IX+OnOffD)
JR C,CH_ONDL
LD A,(IX+OffOnD)
CH_ONDL LD (IX+COnOff),A
RET
PLAY XOR A
LD (AddToEn),A
LD (AYREGS+Mixer),A
DEC A
LD (AYREGS+EnvTp),A
LD HL,DelyCnt
DEC (HL)
JR NZ,PL2
LD HL,ChanA+NtSkCn
DEC (HL)
JR NZ,PL1B
AdInPtA=$+1
LD BC,#0101
LD A,(BC)
AND A
JR NZ,PL1A
LD D,A
LD (Ns_Base),A
LD HL,(CrPsPtr)
INC HL
LD A,(HL)
INC A
JR NZ,PLNLP
CALL CHECKLP
LPosPtr=$+1
LD HL,#2121
LD A,(HL)
INC A
PLNLP LD (CrPsPtr),HL
DEC A
ADD A,A
LD E,A
RL D
PatsPtr=$+1
LD HL,#2121
ADD HL,DE
LD DE,(MODADDR)
LD (PSP_+1),SP
LD SP,HL
POP HL
ADD HL,DE
LD B,H
LD C,L
POP HL
ADD HL,DE
LD (AdInPtB),HL
POP HL
ADD HL,DE
LD (AdInPtC),HL
PSP_ LD SP,#3131
PL1A LD IX,ChanA+12
CALL PTDECOD
LD (AdInPtA),BC
PL1B LD HL,ChanB+NtSkCn
DEC (HL)
JR NZ,PL1C
LD IX,ChanB+12
AdInPtB=$+1
LD BC,#0101
CALL PTDECOD
LD (AdInPtB),BC
PL1C LD HL,ChanC+NtSkCn
DEC (HL)
JR NZ,PL1D
LD IX,ChanC+12
AdInPtC=$+1
LD BC,#0101
CALL PTDECOD
LD (AdInPtC),BC
Delay=$+1
PL1D LD A,#3E
LD (DelyCnt),A
PL2 LD IX,ChanA
LD HL,(AYREGS+TonA)
CALL CHREGS
LD (AYREGS+TonA),HL
LD A,(Ampl)
LD (AYREGS+AmplA),A
LD IX,ChanB
LD HL,(AYREGS+TonB)
CALL CHREGS
LD (AYREGS+TonB),HL
LD A,(Ampl)
LD (AYREGS+AmplB),A
LD IX,ChanC
LD HL,(AYREGS+TonC)
CALL CHREGS
; LD A,(Ampl) ;Ampl = AYREGS+AmplC
; LD (AYREGS+AmplC),A
LD (AYREGS+TonC),HL
LD HL,(Ns_Base_AddToNs)
LD A,H
ADD A,L
LD (AYREGS+Noise),A
AddToEn=$+1
LD A,#3E
LD E,A
ADD A,A
SBC A,A
LD D,A
LD HL,(EnvBase)
ADD HL,DE
LD DE,(CurESld)
ADD HL,DE
LD (AYREGS+Env),HL
XOR A
LD HL,CurEDel
OR (HL)
JR Z,ROUT_A0
DEC (HL)
JR NZ,ROUT
Env_Del=$+1
LD A,#3E
LD (HL),A
ESldAdd=$+1
LD HL,#2121
ADD HL,DE
LD (CurESld),HL
ROUT XOR A
ROUT_A0 LD DE,#FFBF
LD BC,#FFFD
LD HL,AYREGS
LOUT OUT (C),A
LD B,E
OUTI
LD B,D
INC A
CP 13
JR NZ,LOUT
OUT (C),A
LD A,(HL)
AND A
RET M
LD B,E
OUT (C),A
RET
;Stupid ALASM limitations
NT_DATA DB 50*2 ;(T_NEW_0-T1_)*2
DB TCNEW_0-T_
DB 50*2+1 ;(T_OLD_0-T1_)*2+1
DB TCOLD_0-T_
DB 0*2+1 ;(T_NEW_1-T1_)*2+1
DB TCNEW_1-T_
DB 0*2+1 ;(T_OLD_1-T1_)*2+1
DB TCOLD_1-T_
DB 74*2;(T_NEW_2-T1_)*2
DB TCNEW_2-T_
DB 24*2 ;(T_OLD_2-T1_)*2
DB TCOLD_2-T_
DB 48*2 ;(T_NEW_3-T1_)*2
DB TCNEW_3-T_
DB 48*2 ;(T_OLD_3-T1_)*2
DB TCOLD_3-T_
T_
TCOLD_0 DB #00+1,#04+1,#08+1,#0A+1,#0C+1,#0E+1,#12+1,#14+1
DB #18+1,#24+1,#3C+1,0
TCOLD_1 DB #5C+1,0
TCOLD_2 DB #30+1,#36+1,#4C+1,#52+1,#5E+1,#70+1,#82,#8C,#9C
DB #9E,#A0,#A6,#A8,#AA,#AC,#AE,#AE,0
TCNEW_3 DB #56+1
TCOLD_3 DB #1E+1,#22+1,#24+1,#28+1,#2C+1,#2E+1,#32+1,#BE+1,0
TCNEW_0 DB #1C+1,#20+1,#22+1,#26+1,#2A+1,#2C+1,#30+1,#54+1
DB #BC+1,#BE+1,0
TCNEW_1=TCOLD_1
TCNEW_2 DB #1A+1,#20+1,#24+1,#28+1,#2A+1,#3A+1,#4C+1,#5E+1
DB #BA+1,#BC+1,#BE+1,0
EMPTYSAMORN=$-1
DB 1,0,#90 ;delete #90 if you don't need default sample
;first 12 values of tone tables (packed)
T_PACK DB #06EC*2/256,#06EC*2
DB #0755-#06EC
DB #07C5-#0755
DB #083B-#07C5
DB #08B8-#083B
DB #093D-#08B8
DB #09CA-#093D
DB #0A5F-#09CA
DB #0AFC-#0A5F
DB #0BA4-#0AFC
DB #0C55-#0BA4
DB #0D10-#0C55
DB #066D*2/256,#066D*2
DB #06CF-#066D
DB #0737-#06CF
DB #07A4-#0737
DB #0819-#07A4
DB #0894-#0819
DB #0917-#0894
DB #09A1-#0917
DB #0A33-#09A1
DB #0ACF-#0A33
DB #0B73-#0ACF
DB #0C22-#0B73
DB #0CDA-#0C22
DB #0704*2/256,#0704*2
DB #076E-#0704
DB #07E0-#076E
DB #0858-#07E0
DB #08D6-#0858
DB #095C-#08D6
DB #09EC-#095C
DB #0A82-#09EC
DB #0B22-#0A82
DB #0BCC-#0B22
DB #0C80-#0BCC
DB #0D3E-#0C80
DB #07E0*2/256,#07E0*2
DB #0858-#07E0
DB #08E0-#0858
DB #0960-#08E0
DB #09F0-#0960
DB #0A88-#09F0
DB #0B28-#0A88
DB #0BD8-#0B28
DB #0C80-#0BD8
DB #0D60-#0C80
DB #0E10-#0D60
DB #0EF8-#0E10
DISPLAY $
;vars from here can be stripped
;you can move VARS to any other address
VARS
ChanA DS CHP
ChanB DS CHP
ChanC DS CHP
;GlobalVars
DelyCnt DB 0
CurESld DW 0
CurEDel DB 0
Ns_Base_AddToNs
Ns_Base DB 0
AddToNs DB 0
AYREGS
VT_ DS 256 ;CreatedVolumeTableAddress
EnvBase=VT_+14
T1_=VT_+16 ;Tone tables data depacked here
T_OLD_1=T1_
T_OLD_2=T_OLD_1+24
T_OLD_3=T_OLD_2+24
T_OLD_0=T_OLD_3+2
T_NEW_0=T_OLD_0
T_NEW_1=T_OLD_1
T_NEW_2=T_NEW_0+24
T_NEW_3=T_OLD_3
NT_ DS 192 ;CreatedNoteTableAddress
;local var
Ampl=AYREGS+AmplC
VAR0END=VT_+16 ;INIT zeroes from VARS to VAR0END-1
VARSEND=$
MDLADDR=$
DISPLAY $
;Release 0 steps:
;11.Sep.2004 - Note tables creator
;12.Sep.2004 - Volume tables creator; INIT subroutine
;13.Sep.2004 - Play counters, position counters
;14.Sep.2004 - Patterns decoder subroutine
;15.Sep.2004 - Resting (no code)
;16.Sep.2004 - CHREGS subroutine; global debugging; 1st stable
;version was born
;17.Sep.2004 - Debugging and optimization. First release!
;Release 1 steps:
;20.Sep.2004 - local vars moved to code (selfmodified code
;smaller and faster)
;22.Sep.2004 - added mute sound entry at START+8; position
;pointer moved to START+11; added setup and status byte at
;START+10 noloop mode and loop passed flags added
;Release 2 steps:
;28.Sep.2004 - Optimization: code around CHREGS's volume and
;vibrato faster now; zeroing PD_RES through stack; Ton and Ampl
;moved from channel vars to global ones; first position selector
;removed from INIT; optimization for packers(Ivan Roshin method)
;Release 3 steps:
;2.Oct.2004 - optimization in INIT and PD_LOOP (thanks to Ivan
;Roshin)
;4.Oct.2004 - load delay from (hl) in INIT (2 bytes shorter)
;5.Oct.2004 - optimization in PD_LOOP (->PD_LP2)
;7.Oct.2004 - swaping some commands for better packing
;Release 4 steps:
;9.Oct.2004 - optimization around LD HL,SPCCOMS (thanks to Ivan
;Roshin); in PTDECOD swapped BC and DE to optimize C_PORTM;
;removed sam and orn len and loop channel vars; CHREGS totally
;optimized
;Release 5 steps:
;11.Oct.2004 - PD_OrSm and C_PORTM optimized; Ivan Roshin's
;volume tables creator algorithm (51 bytes shorter than mine)
;12.Oct.2004 - Ivan Roshin's note tables creator algorithm (74
;bytes shorter than mine)
;Release 6 steps:
;14.Oct.2004 - loop and next position calculations moved to INIT
;15.Oct.2004 - AdInPt moved to code
;19.Oct.2004 - Env_Del moved to code
;20.Oct.2004 - Version PUSH and POP (1 byte shorter, thanks to
;Ivan Roshin)
;22.Oct.2004 - Env_En moved from Flags' bit to byte (shorter and
;faster code)
;25.Oct.2004 - SETENV optimized
;29.Oct.2004 - Optimized around AddToEn (SBC A,A, thanks to Ivan
;Roshin)
;3.Nov.2004 - Note tables data was compressed; with depacker it
;is 9 bytes shorter than uncompressed (thanks to Ivan Roshin)
;4.Nov.2004 - default sample and ornament both are fixed now
;and placed into code block (6 bytes shorter)
;7.Nov.2004 - LD A,(Ns_Base):LD L,A changed to LD HL,(Ns_Base)
;(thanks to Dima Bystrov)
;9.Nov.2004 - Ns_Base and AddToNs are merged to Ns_Base_AddToNs;
;LD A,255 changed to DEC A (at start of PLAY); added ROUT_A0
;12.Nov.2004 - NtSkCn&Volume are merged (8 bytes smaller init);
;LD BC,T1_ changed to PUSH DE...POP BC in note table creator
;19.Dec.2004 - NT_DATA reorganized (6 bytes shorter, thanks to
;Ivan Roshin); C_PORTM and C_GLISS are merged via SET_STP (48
;tacts slower, but 8 bytes smaller, thanks to Ivan Roshin)
;Release 7 steps:
;29.Apr.2007 - SjAsm adaptation; new 1.xx and 2.xx
;interpretation for PT 3.7+.
;Tests in IMMATION TESTER V1.0 by Andy Man/POS (thanks to
;Himik's ZxZ for help):
;Module name/author Min tacts Max tacts Average
;Spleen/Nik-O 1720 9256 5500
;Chuta/Miguel 1720 9496 5500
;Zhara/Macros 4536 8744 5500
;Size:
;Code block #651 bytes
;Variables #21D bytes (can be stripped)
;Size in RAM #651+#21D=#86E (2158) bytes
;Notes:
;Pro Tracker 3.4r can not be detected by header, so PT3.4r tone
;tables really used only for modules of 3.3 and older versions.
0.Sep.2004 - local vars moved to code (selfmodified code
;smaller and faster)
;22.Sep.2004 - added mute s