1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
/* testMOD() */
/* Rip_MOD() */
/*
this funtion will handle any MOD-alike formats
meaning whatever the number of channels. This
number is the arg in fact.
*/
#include "globals.h"
#include "extern.h"
short testMOD ( int nbrchannels )
{
/* test 1 */
if ( PW_i < 1080 )
{
/*printf ( "#1 (PW_i:%ld)\n" , PW_i );*/
return BAD;
}
/* test 2 */
PW_Start_Address = PW_i-1080;
PW_WholeSampleSize = 0;
for ( PW_k=0 ; PW_k<31 ; PW_k++ )
{
/* size */
PW_j = (((in_data[PW_Start_Address+42+PW_k*30]*256)+in_data[PW_Start_Address+43+PW_k*30])*2);
/* loop start */
PW_m = (((in_data[PW_Start_Address+46+PW_k*30]*256)+in_data[PW_Start_Address+47+PW_k*30])*2);
/* loop size */
PW_n = (((in_data[PW_Start_Address+48+PW_k*30]*256)+in_data[PW_Start_Address+49+PW_k*30])*2);
if ( test_smps(PW_j*2, PW_m, PW_n, in_data[PW_Start_Address+45+30*PW_k], in_data[PW_Start_Address+44+30*PW_k] ) == BAD )
{
/*printf ( "start : %ld\n", PW_Start_Address );*/
return BAD;
}
PW_WholeSampleSize += PW_j;
}
/* test #4 pattern list size */
PW_l = in_data[PW_Start_Address+950];
if ( (PW_l>127) || (PW_l==0) )
{
/*printf ( "#4,0 (Start:%ld)\n" , PW_Start_Address );*/
return BAD;
}
/* PW_l holds the size of the pattern list */
PW_k=0;
for ( PW_j=0 ; PW_j<128 ; PW_j++ )
{
if ( in_data[PW_Start_Address+952+PW_j] > PW_k )
PW_k = in_data[PW_Start_Address+952+PW_j];
if ( in_data[PW_Start_Address+952+PW_j] > 127 )
{
/*printf ( "#4,1 (Start:%ld)\n" , PW_Start_Address );*/
return BAD;
}
}
/* PW_k holds the highest pattern number */
/* test last patterns of the pattern list = 0 ? */
PW_j += 2; /* found some obscure ptk :( */
while ( PW_j < 128 )
{
if ( in_data[PW_Start_Address+952+PW_j] > 0x7f )
{
/*printf ( "#4,2 (Start:%ld) (PW_j:%ld) (at:%ld)\n" , PW_Start_Address,PW_j ,PW_Start_Address+952+PW_j );*/
return BAD;
}
PW_j += 1;
}
/* PW_k is the number of pattern in the file (-1) */
PW_k += 1;
/* test #5 pattern data ... */
if ( ((PW_k*256*nbrchannels)+1084+PW_Start_Address) > PW_in_size )
{
/*printf ( "#5,0 (Start:%ld)(1patsize:%ld)\n" , PW_Start_Address, 256*nbrchannels);*/
return BAD;
}
for ( PW_j=0 ; PW_j<(PW_k*256) ; PW_j++ )
{
/* sample > 1f or pitch > 358 ? */
if ( in_data[PW_Start_Address+1084+PW_j*nbrchannels] > 0x13 )
{
/*printf ( "#5.1 (Start:%ld)(sample value:%x)(Where:%lx)\n" , PW_Start_Address,in_data[PW_Start_Address+1084+PW_j*nbrchannels],PW_Start_Address+1084+PW_j*nbrchannels);*/
return BAD;
}
PW_l = ((in_data[PW_Start_Address+1084+PW_j*nbrchannels]&0x0f)*256)+in_data[PW_Start_Address+1085+PW_j*nbrchannels];
if ( (PW_l>0) && (PW_l<0x1C) )
{
/*printf ( "#5,2 (Start:%ld)(PW_l:%lx)(Where:%lx)\n" , PW_Start_Address,PW_l,PW_Start_Address+1084+PW_j*nbrchannels );*/
return BAD;
}
}
return GOOD;
}
void Rip_MOD ( int nbrchannels )
{
char whatever[64];
BZERO (whatever,64);
/* PW_k is still the nbr of pattern */
/* PW_WholeSampleSize is still the whole sample size */
OutputSize = PW_WholeSampleSize + (PW_k*256*nbrchannels) + 1084;
CONVERT = BAD;
sprintf(whatever,"Pro|Star|whatever tracker %d channels module",nbrchannels);
Save_Rip ( whatever, Protracker );
if ( Save_Status == GOOD )
PW_i += 1084;
}
|
