?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
FS#8961 - Anti-Aliased Fonts.
[kugel-rb/myfork.git] / apps / codecs / libasap / asap.c
blob31de730d93e84c74afbe6a5559b32ab6573256ed
1 /*
2 * asap.c - ASAP engine
3 *
4 * Copyright (C) 2005-2008 Piotr Fusik
5 *
6 * This file is part of ASAP (Another Slight Atari Player),
7 * see http://asap.sourceforge.net
8 *
9 * ASAP is free software; you can redistribute it and/or modify it
10 * under the terms of the GNU General Public License as published
11 * by the Free Software Foundation; either version 2 of the License,
12 * or (at your option) any later version.
13 *
14 * ASAP is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty
16 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
17 * See the GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with ASAP; if not, write to the Free Software Foundation, Inc.,
21 * 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
22 */
23 #include "codeclib.h"
24 #if !defined(JAVA) && !defined(CSHARP)
25 #include <string.h>
26 #endif
27
28 #include "asap_internal.h"
29 #if !defined(JAVA) && !defined(CSHARP)
30 #include "players.h"
31 #endif
32
33 #define memcpy ci->memcpy
34 #define memcmp ci->memcmp
35 #define memset ci->memset
36 #define strcpy ci->strcpy
37 #define strcmp ci->strcmp
38 #define strstr ci->strcasestr
39
40
41 #define CMR_BASS_TABLE_OFFSET 0x70f
42
43 CONST_LOOKUP(byte, cmr_bass_table) = {
44 0x5C, 0x56, 0x50, 0x4D, 0x47, 0x44, 0x41, 0x3E,
45 0x38, 0x35, (byte) 0x88, 0x7F, 0x79, 0x73, 0x6C, 0x67,
46 0x60, 0x5A, 0x55, 0x51, 0x4C, 0x48, 0x43, 0x3F,
47 0x3D, 0x39, 0x34, 0x33, 0x30, 0x2D, 0x2A, 0x28,
48 0x25, 0x24, 0x21, 0x1F, 0x1E
49 };
50
51 ASAP_FUNC int ASAP_GetByte(ASAP_State PTR ast, int addr)
52 {
53 switch (addr & 0xff0f) {
54 case 0xd20a:
55 return PokeySound_GetRandom(ast, addr);
56 case 0xd20e:
57 if ((addr & AST extra_pokey_mask) != 0)
58 return 0xff;
59 return AST irqst;
60 case 0xd20f:
61 return 0xff;
62 case 0xd40b:
63 return AST scanline_number >> 1;
64 default:
65 return dGetByte(addr);
66 }
67 }
68
69 ASAP_FUNC void ASAP_PutByte(ASAP_State PTR ast, int addr, int data)
70 {
71 if ((addr >> 8) == 0xd2) {
72 if ((addr & (AST extra_pokey_mask + 0xf)) == 0xe) {
73 AST irqst |= data ^ 0xff;
74 #define SET_TIMER_IRQ(ch) \
75 if ((data & AST irqst & ch) != 0) { \
76 if (AST timer##ch##_cycle == NEVER) { \
77 int t = AST base_pokey.tick_cycle##ch; \
78 while (t < AST cycle) \
79 t += AST base_pokey.period_cycles##ch; \
80 AST timer##ch##_cycle = t; \
81 if (AST nearest_event_cycle > t) \
82 AST nearest_event_cycle = t; \
83 } \
84 } \
85 else \
86 AST timer##ch##_cycle = NEVER;
87 SET_TIMER_IRQ(1);
88 SET_TIMER_IRQ(2);
89 SET_TIMER_IRQ(4);
90 }
91 else
92 PokeySound_PutByte(ast, addr, data);
93 }
94 else if ((addr & 0xff0f) == 0xd40a) {
95 if (AST cycle <= AST next_scanline_cycle - 8)
96 AST cycle = AST next_scanline_cycle - 8;
97 else
98 AST cycle = AST next_scanline_cycle + 106;
99 }
100 else
101 dPutByte(addr, data);
102 }
103
104 #define MAX_SONGS 32
105
106 CONST_LOOKUP(int, perframe2fastplay) = { 312, 312 / 2, 312 / 3, 312 / 4 };
107
108 FILE_FUNC abool load_native(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
109 const byte ARRAY module, int module_len, ASAP_OBX player)
110 {
111 #if defined(JAVA) || defined(CSHARP)
112 try
113 #endif
114 {
115 int player_last_byte;
116 int block_len;
117 if (UBYTE(module[0]) != 0xff || UBYTE(module[1]) != 0xff)
118 return FALSE;
119 #ifdef JAVA
120 try {
121 player.read();
122 player.read();
123 MODULE_INFO player = player.read();
124 MODULE_INFO player += player.read() << 8;
125 player_last_byte = player.read();
126 player_last_byte += player.read() << 8;
127 } catch (IOException e) {
128 throw new RuntimeException();
129 }
130 #elif defined(CSHARP)
131 player.ReadByte();
132 player.ReadByte();
133 MODULE_INFO player = player.ReadByte();
134 MODULE_INFO player += player.ReadByte() << 8;
135 player_last_byte = player.ReadByte();
136 player_last_byte += player.ReadByte() << 8;
137 #else
138 MODULE_INFO player = UBYTE(player[2]) + (UBYTE(player[3]) << 8);
139 player_last_byte = UBYTE(player[4]) + (UBYTE(player[5]) << 8);
140 #endif
141 MODULE_INFO music = UBYTE(module[2]) + (UBYTE(module[3]) << 8);
142 if (MODULE_INFO music <= player_last_byte)
143 return FALSE;
144 block_len = UBYTE(module[4]) + (UBYTE(module[5]) << 8) + 1 - MODULE_INFO music;
145 if (6 + block_len != module_len) {
146 int info_addr;
147 int info_len;
148 if (MODULE_INFO type != 'r' || 11 + block_len > module_len)
149 return FALSE;
150 /* allow optional info for Raster Music Tracker */
151 info_addr = UBYTE(module[6 + block_len]) + (UBYTE(module[7 + block_len]) << 8);
152 if (info_addr != MODULE_INFO music + block_len)
153 return FALSE;
154 info_len = UBYTE(module[8 + block_len]) + (UBYTE(module[9 + block_len]) << 8) + 1 - info_addr;
155 if (10 + block_len + info_len != module_len)
156 return FALSE;
157 }
158 if (ast != NULL) {
159 COPY_ARRAY(AST memory, MODULE_INFO music, module, 6, block_len);
160 #ifdef JAVA
161 int addr = MODULE_INFO player;
162 do {
163 int i;
164 try {
165 i = player.read(AST memory, addr, player_last_byte + 1 - addr);
166 } catch (IOException e) {
167 throw new RuntimeException();
168 }
169 if (i <= 0)
170 throw new RuntimeException();
171 addr += i;
172 } while (addr <= player_last_byte);
173 #elif defined(CSHARP)
174 int addr = MODULE_INFO player;
175 do {
176 int i = player.Read(AST memory, addr, player_last_byte + 1 - addr);
177 if (i <= 0)
178 throw new Exception();
179 addr += i;
180 } while (addr <= player_last_byte);
181 #else
182 COPY_ARRAY(AST memory, MODULE_INFO player, player, 6, player_last_byte + 1 - MODULE_INFO player);
183 #endif
184 }
185 return TRUE;
186 }
187 #ifdef JAVA
188 finally {
189 try {
190 player.close();
191 } catch (IOException e) {
192 throw new RuntimeException();
193 }
194 }
195 #elif defined(CSHARP)
196 finally {
197 player.Close();
198 }
199 #endif
200 }
201
202 FILE_FUNC void set_song_duration(ASAP_ModuleInfo PTR module_info, int player_calls)
203 {
204 MODULE_INFO durations[MODULE_INFO songs] = (int) (player_calls * MODULE_INFO fastplay * 114000.0 / 1773447);
205 MODULE_INFO songs++;
206 }
207
208 #define SEEN_THIS_CALL 1
209 #define SEEN_BEFORE 2
210 #define SEEN_REPEAT 3
211
212 FILE_FUNC void parse_cmc_song(ASAP_ModuleInfo PTR module_info, const byte ARRAY module, int pos)
213 {
214 int tempo = UBYTE(module[0x19]);
215 int player_calls = 0;
216 int rep_start_pos = 0;
217 int rep_end_pos = 0;
218 int rep_times = 0;
219 NEW_ARRAY(byte, seen, 0x55);
220 INIT_ARRAY(seen);
221 while (pos >= 0 && pos < 0x55) {
222 int p1;
223 int p2;
224 int p3;
225 if (pos == rep_end_pos && rep_times > 0) {
226 for (p1 = 0; p1 < 0x55; p1++)
227 if (seen[p1] == SEEN_THIS_CALL || seen[p1] == SEEN_REPEAT)
228 seen[p1] = 0;
229 rep_times--;
230 pos = rep_start_pos;
231 }
232 if (seen[pos] != 0) {
233 if (seen[pos] != SEEN_THIS_CALL)
234 MODULE_INFO loops[MODULE_INFO songs] = TRUE;
235 break;
236 }
237 seen[pos] = SEEN_THIS_CALL;
238 p1 = UBYTE(module[0x206 + pos]);
239 p2 = UBYTE(module[0x25b + pos]);
240 p3 = UBYTE(module[0x2b0 + pos]);
241 if (p1 == 0xfe || p2 == 0xfe || p3 == 0xfe) {
242 pos++;
243 continue;
244 }
245 p1 >>= 4;
246 if (p1 == 8)
247 break;
248 if (p1 == 9) {
249 pos = p2;
250 continue;
251 }
252 if (p1 == 0xa) {
253 pos -= p2;
254 continue;
255 }
256 if (p1 == 0xb) {
257 pos += p2;
258 continue;
259 }
260 if (p1 == 0xc) {
261 tempo = p2;
262 pos++;
263 continue;
264 }
265 if (p1 == 0xd) {
266 pos++;
267 rep_start_pos = pos;
268 rep_end_pos = pos + p2;
269 rep_times = p3 - 1;
270 continue;
271 }
272 if (p1 == 0xe) {
273 MODULE_INFO loops[MODULE_INFO songs] = TRUE;
274 break;
275 }
276 p2 = rep_times > 0 ? SEEN_REPEAT : SEEN_BEFORE;
277 for (p1 = 0; p1 < 0x55; p1++)
278 if (seen[p1] == SEEN_THIS_CALL)
279 seen[p1] = (byte) p2;
280 player_calls += tempo << 6;
281 pos++;
282 }
283 set_song_duration(module_info, player_calls);
284 }
285
286 FILE_FUNC abool parse_cmc(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
287 const byte ARRAY module, int module_len, abool cmr)
288 {
289 int last_pos;
290 int pos;
291 if (module_len < 0x306)
292 return FALSE;
293 MODULE_INFO type = cmr ? 'z' : 'c';
294 if (!load_native(ast, module_info, module, module_len, GET_OBX(cmc)))
295 return FALSE;
296 if (ast != NULL && cmr)
297 COPY_ARRAY(AST memory, 0x500 + CMR_BASS_TABLE_OFFSET, cmr_bass_table, 0, sizeof(cmr_bass_table));
298 /* auto-detect number of subsongs */
299 last_pos = 0x54;
300 while (--last_pos >= 0) {
301 if (UBYTE(module[0x206 + last_pos]) < 0xb0
302 || UBYTE(module[0x25b + last_pos]) < 0x40
303 || UBYTE(module[0x2b0 + last_pos]) < 0x40)
304 break;
305 }
306 MODULE_INFO songs = 0;
307 parse_cmc_song(module_info, module, 0);
308 for (pos = 0; pos < last_pos && MODULE_INFO songs < MAX_SONGS; pos++)
309 if (UBYTE(module[0x206 + pos]) == 0x8f || UBYTE(module[0x206 + pos]) == 0xef)
310 parse_cmc_song(module_info, module, pos + 1);
311 return TRUE;
312 }
313
314 FILE_FUNC void parse_mpt_song(ASAP_ModuleInfo PTR module_info, const byte ARRAY module,
315 abool ARRAY global_seen, int song_len, int pos)
316 {
317 int addr_to_offset = UBYTE(module[2]) + (UBYTE(module[3]) << 8) - 6;
318 int tempo = UBYTE(module[0x1cf]);
319 int player_calls = 0;
320 NEW_ARRAY(byte, seen, 256);
321 NEW_ARRAY(int, pattern_offset, 4);
322 NEW_ARRAY(int, blank_rows, 4);
323 NEW_ARRAY(int, blank_rows_counter, 4);
324 INIT_ARRAY(seen);
325 INIT_ARRAY(blank_rows);
326 while (pos < song_len) {
327 int i;
328 int ch;
329 int pattern_rows;
330 if (seen[pos] != 0) {
331 if (seen[pos] != SEEN_THIS_CALL)
332 MODULE_INFO loops[MODULE_INFO songs] = TRUE;
333 break;
334 }
335 seen[pos] = SEEN_THIS_CALL;
336 global_seen[pos] = TRUE;
337 i = UBYTE(module[0x1d0 + pos * 2]);
338 if (i == 0xff) {
339 pos = UBYTE(module[0x1d1 + pos * 2]);
340 continue;
341 }
342 for (ch = 3; ch >= 0; ch--) {
343 i = UBYTE(module[0x1c6 + ch]) + (UBYTE(module[0x1ca + ch]) << 8) - addr_to_offset;
344 i = UBYTE(module[i + pos * 2]);
345 if (i >= 0x40)
346 break;
347 i <<= 1;
348 i = UBYTE(module[0x46 + i]) + (UBYTE(module[0x47 + i]) << 8);
349 pattern_offset[ch] = i == 0 ? 0 : i - addr_to_offset;
350 blank_rows_counter[ch] = 0;
351 }
352 if (ch >= 0)
353 break;
354 for (i = 0; i < song_len; i++)
355 if (seen[i] == SEEN_THIS_CALL)
356 seen[i] = SEEN_BEFORE;
357 for (pattern_rows = UBYTE(module[0x1ce]); --pattern_rows >= 0; ) {
358 for (ch = 3; ch >= 0; ch--) {
359 if (pattern_offset[ch] == 0 || --blank_rows_counter[ch] >= 0)
360 continue;
361 for (;;) {
362 i = UBYTE(module[pattern_offset[ch]++]);
363 if (i < 0x40 || i == 0xfe)
364 break;
365 if (i < 0x80)
366 continue;
367 if (i < 0xc0) {
368 blank_rows[ch] = i - 0x80;
369 continue;
370 }
371 if (i < 0xd0)
372 continue;
373 if (i < 0xe0) {
374 tempo = i - 0xcf;
375 continue;
376 }
377 pattern_rows = 0;
378 }
379 blank_rows_counter[ch] = blank_rows[ch];
380 }
381 player_calls += tempo;
382 }
383 pos++;
384 }
385 if (player_calls > 0)
386 set_song_duration(module_info, player_calls);
387 }
388
389 FILE_FUNC abool parse_mpt(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
390 const byte ARRAY module, int module_len)
391 {
392 int track0_addr;
393 int pos;
394 int song_len;
395 /* seen[i] == TRUE if the track position i has been processed */
396 NEW_ARRAY(abool, global_seen, 256);
397 if (module_len < 0x1d0)
398 return FALSE;
399 MODULE_INFO type = 'm';
400 if (!load_native(ast, module_info, module, module_len, GET_OBX(mpt)))
401 return FALSE;
402 track0_addr = UBYTE(module[2]) + (UBYTE(module[3]) << 8) + 0x1ca;
403 if (UBYTE(module[0x1c6]) + (UBYTE(module[0x1ca]) << 8) != track0_addr)
404 return FALSE;
405 /* Calculate the length of the first track. Address of the second track minus
406 address of the first track equals the length of the first track in bytes.
407 Divide by two to get number of track positions. */
408 song_len = (UBYTE(module[0x1c7]) + (UBYTE(module[0x1cb]) << 8) - track0_addr) >> 1;
409 if (song_len > 0xfe)
410 return FALSE;
411 INIT_ARRAY(global_seen);
412 MODULE_INFO songs = 0;
413 for (pos = 0; pos < song_len && MODULE_INFO songs < MAX_SONGS; pos++) {
414 if (!global_seen[pos]) {
415 MODULE_INFO song_pos[MODULE_INFO songs] = (byte) pos;
416 parse_mpt_song(module_info, module, global_seen, song_len, pos);
417 }
418 }
419 return MODULE_INFO songs != 0;
420 }
421
422 CONST_LOOKUP(byte, rmt_volume_silent) = { 16, 8, 4, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1 };
423
424 FILE_FUNC int rmt_instrument_frames(const byte ARRAY module, int instrument, int volume, int volume_frame, abool extra_pokey)
425 {
426 int addr_to_offset = UBYTE(module[2]) + (UBYTE(module[3]) << 8) - 6;
427 int per_frame = module[0xc];
428 int player_call;
429 int player_calls;
430 int index;
431 int index_end;
432 int index_loop;
433 int volume_slide_depth;
434 int volume_min;
435 abool looping;
436 int volume_slide;
437 abool silent_loop;
438 instrument = UBYTE(module[0xe]) + (UBYTE(module[0xf]) << 8) - addr_to_offset + (instrument << 1);
439 if (module[instrument + 1] == 0)
440 return 0;
441 instrument = UBYTE(module[instrument]) + (UBYTE(module[instrument + 1]) << 8) - addr_to_offset;
442 player_calls = player_call = volume_frame * per_frame;
443 index = UBYTE(module[instrument]) + 1 + player_call * 3;
444 index_end = UBYTE(module[instrument + 2]) + 3;
445 index_loop = UBYTE(module[instrument + 3]);
446 if (index_loop >= index_end)
447 return 0; /* error */
448 volume_slide_depth = UBYTE(module[instrument + 6]);
449 volume_min = UBYTE(module[instrument + 7]);
450 looping = index >= index_end;
451 if (looping)
452 index = (index - index_end) % (index_end - index_loop) + index_loop;
453 else {
454 do {
455 int vol = module[instrument + index];
456 if (extra_pokey)
457 vol >>= 4;
458 if ((vol & 0xf) >= rmt_volume_silent[volume])
459 player_calls = player_call + 1;
460 player_call++;
461 index += 3;
462 } while (index < index_end);
463 }
464 if (volume_slide_depth == 0)
465 return player_calls / per_frame;
466 volume_slide = 128;
467 silent_loop = FALSE;
468 for (;;) {
469 int vol;
470 if (index >= index_end) {
471 if (silent_loop)
472 break;
473 silent_loop = TRUE;
474 index = index_loop;
475 }
476 vol = module[instrument + index];
477 if (extra_pokey)
478 vol >>= 4;
479 if ((vol & 0xf) >= rmt_volume_silent[volume]) {
480 player_calls = player_call + 1;
481 silent_loop = FALSE;
482 }
483 player_call++;
484 index += 3;
485 volume_slide -= volume_slide_depth;
486 if (volume_slide < 0) {
487 volume_slide += 256;
488 if (--volume <= volume_min)
489 break;
490 }
491 }
492 return player_calls / per_frame;
493 }
494
495 FILE_FUNC void parse_rmt_song(ASAP_ModuleInfo PTR module_info, const byte ARRAY module,
496 abool ARRAY global_seen, int song_len, int pos_shift, int pos)
497 {
498 int ch;
499 int addr_to_offset = UBYTE(module[2]) + (UBYTE(module[3]) << 8) - 6;
500 int tempo = UBYTE(module[0xb]);
501 int frames = 0;
502 int song_offset = UBYTE(module[0x14]) + (UBYTE(module[0x15]) << 8) - addr_to_offset;
503 int pattern_lo_offset = UBYTE(module[0x10]) + (UBYTE(module[0x11]) << 8) - addr_to_offset;
504 int pattern_hi_offset = UBYTE(module[0x12]) + (UBYTE(module[0x13]) << 8) - addr_to_offset;
505 int instrument_frames;
506 NEW_ARRAY(byte, seen, 256);
507 NEW_ARRAY(int, pattern_begin, 8);
508 NEW_ARRAY(int, pattern_offset, 8);
509 NEW_ARRAY(int, blank_rows, 8);
510 NEW_ARRAY(int, instrument_no, 8);
511 NEW_ARRAY(int, instrument_frame, 8);
512 NEW_ARRAY(int, volume_value, 8);
513 NEW_ARRAY(int, volume_frame, 8);
514 INIT_ARRAY(seen);
515 INIT_ARRAY(instrument_no);
516 INIT_ARRAY(instrument_frame);
517 INIT_ARRAY(volume_value);
518 INIT_ARRAY(volume_frame);
519 while (pos < song_len) {
520 int i;
521 int pattern_rows;
522 if (seen[pos] != 0) {
523 if (seen[pos] != SEEN_THIS_CALL)
524 MODULE_INFO loops[MODULE_INFO songs] = TRUE;
525 break;
526 }
527 seen[pos] = SEEN_THIS_CALL;
528 global_seen[pos] = TRUE;
529 if (UBYTE(module[song_offset + (pos << pos_shift)]) == 0xfe) {
530 pos = UBYTE(module[song_offset + (pos << pos_shift) + 1]);
531 continue;
532 }
533 for (ch = 0; ch < 1 << pos_shift; ch++) {
534 i = UBYTE(module[song_offset + (pos << pos_shift) + ch]);
535 if (i == 0xff)
536 blank_rows[ch] = 256;
537 else {
538 pattern_offset[ch] = pattern_begin[ch] = UBYTE(module[pattern_lo_offset + i])
539 + (UBYTE(module[pattern_hi_offset + i]) << 8) - addr_to_offset;
540 blank_rows[ch] = 0;
541 }
542 }
543 for (i = 0; i < song_len; i++)
544 if (seen[i] == SEEN_THIS_CALL)
545 seen[i] = SEEN_BEFORE;
546 for (pattern_rows = UBYTE(module[0xa]); --pattern_rows >= 0; ) {
547 for (ch = 0; ch < 1 << pos_shift; ch++) {
548 if (--blank_rows[ch] > 0)
549 continue;
550 for (;;) {
551 i = UBYTE(module[pattern_offset[ch]++]);
552 if ((i & 0x3f) < 62) {
553 i += UBYTE(module[pattern_offset[ch]++]) << 8;
554 if ((i & 0x3f) != 61) {
555 instrument_no[ch] = i >> 10;
556 instrument_frame[ch] = frames;
557 }
558 volume_value[ch] = (i >> 6) & 0xf;
559 volume_frame[ch] = frames;
560 break;
561 }
562 if (i == 62) {
563 blank_rows[ch] = UBYTE(module[pattern_offset[ch]++]);
564 break;
565 }
566 if ((i & 0x3f) == 62) {
567 blank_rows[ch] = i >> 6;
568 break;
569 }
570 if ((i & 0xbf) == 63) {
571 tempo = UBYTE(module[pattern_offset[ch]++]);
572 continue;
573 }
574 if (i == 0xbf) {
575 pattern_offset[ch] = pattern_begin[ch] + UBYTE(module[pattern_offset[ch]]);
576 continue;
577 }
578 /* assert(i == 0xff); */
579 pattern_rows = -1;
580 break;
581 }
582 if (pattern_rows < 0)
583 break;
584 }
585 if (pattern_rows >= 0)
586 frames += tempo;
587 }
588 pos++;
589 }
590 instrument_frames = 0;
591 for (ch = 0; ch < 1 << pos_shift; ch++) {
592 int frame = instrument_frame[ch];
593 frame += rmt_instrument_frames(module, instrument_no[ch], volume_value[ch], volume_frame[ch] - frame, ch >= 4);
594 if (instrument_frames < frame)
595 instrument_frames = frame;
596 }
597 if (frames > instrument_frames) {
598 if (frames - instrument_frames > 100)
599 MODULE_INFO loops[MODULE_INFO songs] = FALSE;
600 frames = instrument_frames;
601 }
602 if (frames > 0)
603 set_song_duration(module_info, frames);
604 }
605
606 FILE_FUNC abool parse_rmt(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
607 const byte ARRAY module, int module_len)
608 {
609 int per_frame;
610 int pos_shift;
611 int song_len;
612 int pos;
613 NEW_ARRAY(abool, global_seen, 256);
614 if (module_len < 0x30 || module[6] != 'R' || module[7] != 'M'
615 || module[8] != 'T' || module[0xd] != 1)
616 return FALSE;
617 switch ((char) module[9]) {
618 case '4':
619 pos_shift = 2;
620 break;
621 case '8':
622 MODULE_INFO channels = 2;
623 pos_shift = 3;
624 break;
625 default:
626 return FALSE;
627 }
628 per_frame = module[0xc];
629 if (per_frame < 1 || per_frame > 4)
630 return FALSE;
631 MODULE_INFO type = 'r';
632 if (!load_native(ast, module_info, module, module_len,
633 MODULE_INFO channels == 2 ? GET_OBX(rmt8) : GET_OBX(rmt4)))
634 return FALSE;
635 song_len = UBYTE(module[4]) + (UBYTE(module[5]) << 8) + 1
636 - UBYTE(module[0x14]) - (UBYTE(module[0x15]) << 8);
637 if (pos_shift == 3 && (song_len & 4) != 0
638 && UBYTE(module[6 + UBYTE(module[4]) + (UBYTE(module[5]) << 8)
639 - UBYTE(module[2]) - (UBYTE(module[3]) << 8) - 3]) == 0xfe)
640 song_len += 4;
641 song_len >>= pos_shift;
642 if (song_len >= 0x100)
643 return FALSE;
644 INIT_ARRAY(global_seen);
645 MODULE_INFO songs = 0;
646 for (pos = 0; pos < song_len && MODULE_INFO songs < MAX_SONGS; pos++) {
647 if (!global_seen[pos]) {
648 MODULE_INFO song_pos[MODULE_INFO songs] = (byte) pos;
649 parse_rmt_song(module_info, module, global_seen, song_len, pos_shift, pos);
650 }
651 }
652 /* must set fastplay after song durations calculations, so they assume 312 */
653 MODULE_INFO fastplay = perframe2fastplay[per_frame - 1];
654 MODULE_INFO player = 0x600;
655 return MODULE_INFO songs != 0;
656 }
657
658 FILE_FUNC void parse_tmc_song(ASAP_ModuleInfo PTR module_info, const byte ARRAY module, int pos)
659 {
660 int addr_to_offset = UBYTE(module[2]) + (UBYTE(module[3]) << 8) - 6;
661 int tempo = UBYTE(module[0x24]) + 1;
662 int frames = 0;
663 NEW_ARRAY(int, pattern_offset, 8);
664 NEW_ARRAY(int, blank_rows, 8);
665 while (UBYTE(module[0x1a6 + 15 + pos]) < 0x80) {
666 int ch;
667 int pattern_rows;
668 for (ch = 7; ch >= 0; ch--) {
669 int pat = UBYTE(module[0x1a6 + 15 + pos - 2 * ch]);
670 pattern_offset[ch] = UBYTE(module[0xa6 + pat]) + (UBYTE(module[0x126 + pat]) << 8) - addr_to_offset;
671 blank_rows[ch] = 0;
672 }
673 for (pattern_rows = 64; --pattern_rows >= 0; ) {
674 for (ch = 7; ch >= 0; ch--) {
675 if (--blank_rows[ch] >= 0)
676 continue;
677 for (;;) {
678 int i = UBYTE(module[pattern_offset[ch]++]);
679 if (i < 0x40) {
680 pattern_offset[ch]++;
681 break;
682 }
683 if (i == 0x40) {
684 i = UBYTE(module[pattern_offset[ch]++]);
685 if ((i & 0x7f) == 0)
686 pattern_rows = 0;
687 else
688 tempo = (i & 0x7f) + 1;
689 if (i >= 0x80)
690 pattern_offset[ch]++;
691 break;
692 }
693 if (i < 0x80) {
694 i = module[pattern_offset[ch]++] & 0x7f;
695 if (i == 0)
696 pattern_rows = 0;
697 else
698 tempo = i + 1;
699 pattern_offset[ch]++;
700 break;
701 }
702 if (i < 0xc0)
703 continue;
704 blank_rows[ch] = i - 0xbf;
705 break;
706 }
707 }
708 frames += tempo;
709 }
710 pos += 16;
711 }
712 if (UBYTE(module[0x1a6 + 14 + pos]) < 0x80)
713 MODULE_INFO loops[MODULE_INFO songs] = TRUE;
714 set_song_duration(module_info, frames);
715 }
716
717 FILE_FUNC abool parse_tmc(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
718 const byte ARRAY module, int module_len)
719 {
720 int i;
721 int last_pos;
722 if (module_len < 0x1d0)
723 return FALSE;
724 MODULE_INFO type = 't';
725 if (!load_native(ast, module_info, module, module_len, GET_OBX(tmc)))
726 return FALSE;
727 MODULE_INFO channels = 2;
728 i = 0;
729 /* find first instrument */
730 while (module[0x66 + i] == 0) {
731 if (++i >= 64)
732 return FALSE; /* no instrument */
733 }
734 last_pos = (UBYTE(module[0x66 + i]) << 8) + UBYTE(module[0x26 + i])
735 - UBYTE(module[2]) - (UBYTE(module[3]) << 8) - 0x1b0;
736 if (0x1b5 + last_pos >= module_len)
737 return FALSE;
738 /* skip trailing jumps */
739 do {
740 if (last_pos <= 0)
741 return FALSE; /* no pattern to play */
742 last_pos -= 16;
743 } while (UBYTE(module[0x1b5 + last_pos]) >= 0x80);
744 MODULE_INFO songs = 0;
745 parse_tmc_song(module_info, module, 0);
746 for (i = 0; i < last_pos && MODULE_INFO songs < MAX_SONGS; i += 16)
747 if (UBYTE(module[0x1b5 + i]) >= 0x80)
748 parse_tmc_song(module_info, module, i + 16);
749 /* must set fastplay after song durations calculations, so they assume 312 */
750 i = module[0x25];
751 if (i < 1 || i > 4)
752 return FALSE;
753 if (ast != NULL)
754 AST tmc_per_frame = module[0x25];
755 MODULE_INFO fastplay = perframe2fastplay[i - 1];
756 return TRUE;
757 }
758
759 FILE_FUNC void parse_tm2_song(ASAP_ModuleInfo PTR module_info, const byte ARRAY module, int pos)
760 {
761 int addr_to_offset = UBYTE(module[2]) + (UBYTE(module[3]) << 8) - 6;
762 int tempo = UBYTE(module[0x24]) + 1;
763 int player_calls = 0;
764 NEW_ARRAY(int, pattern_offset, 8);
765 NEW_ARRAY(int, blank_rows, 8);
766 for (;;) {
767 int ch;
768 int pattern_rows = UBYTE(module[0x386 + 16 + pos]);
769 if (pattern_rows == 0)
770 break;
771 if (pattern_rows >= 0x80) {
772 MODULE_INFO loops[MODULE_INFO songs] = TRUE;
773 break;
774 }
775 for (ch = 7; ch >= 0; ch--) {
776 int pat = UBYTE(module[0x386 + 15 + pos - 2 * ch]);
777 pattern_offset[ch] = UBYTE(module[0x106 + pat]) + (UBYTE(module[0x206 + pat]) << 8) - addr_to_offset;
778 blank_rows[ch] = 0;
779 }
780 while (--pattern_rows >= 0) {
781 for (ch = 7; ch >= 0; ch--) {
782 if (--blank_rows[ch] >= 0)
783 continue;
784 for (;;) {
785 int i = UBYTE(module[pattern_offset[ch]++]);
786 if (i == 0) {
787 pattern_offset[ch]++;
788 break;
789 }
790 if (i < 0x40) {
791 if (UBYTE(module[pattern_offset[ch]++]) >= 0x80)
792 pattern_offset[ch]++;
793 break;
794 }
795 if (i < 0x80) {
796 pattern_offset[ch]++;
797 break;
798 }
799 if (i == 0x80) {
800 blank_rows[ch] = UBYTE(module[pattern_offset[ch]++]);
801 break;
802 }
803 if (i < 0xc0)
804 break;
805 if (i < 0xd0) {
806 tempo = i - 0xbf;
807 continue;
808 }
809 if (i < 0xe0) {
810 pattern_offset[ch]++;
811 break;
812 }
813 if (i < 0xf0) {
814 pattern_offset[ch] += 2;
815 break;
816 }
817 if (i < 0xff) {
818 blank_rows[ch] = i - 0xf0;
819 break;
820 }
821 blank_rows[ch] = 64;
822 break;
823 }
824 }
825 player_calls += tempo;
826 }
827 pos += 17;
828 }
829 set_song_duration(module_info, player_calls);
830 }
831
832 FILE_FUNC abool parse_tm2(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
833 const byte ARRAY module, int module_len)
834 {
835 int i;
836 int last_pos;
837 int c;
838 if (module_len < 0x3a4)
839 return FALSE;
840 MODULE_INFO type = 'T';
841 if (!load_native(ast, module_info, module, module_len, GET_OBX(tm2)))
842 return FALSE;
843 i = module[0x25];
844 if (i < 1 || i > 4)
845 return FALSE;
846 MODULE_INFO fastplay = perframe2fastplay[i - 1];
847 MODULE_INFO player = 0x500;
848 if (module[0x1f] != 0)
849 MODULE_INFO channels = 2;
850 last_pos = 0xffff;
851 for (i = 0; i < 0x80; i++) {
852 int instr_addr = UBYTE(module[0x86 + i]) + (UBYTE(module[0x306 + i]) << 8);
853 if (instr_addr != 0 && instr_addr < last_pos)
854 last_pos = instr_addr;
855 }
856 for (i = 0; i < 0x100; i++) {
857 int pattern_addr = UBYTE(module[0x106 + i]) + (UBYTE(module[0x206 + i]) << 8);
858 if (pattern_addr != 0 && pattern_addr < last_pos)
859 last_pos = pattern_addr;
860 }
861 last_pos -= UBYTE(module[2]) + (UBYTE(module[3]) << 8) + 0x380;
862 if (0x386 + last_pos >= module_len)
863 return FALSE;
864 /* skip trailing stop/jump commands */
865 do {
866 if (last_pos <= 0)
867 return FALSE;
868 last_pos -= 17;
869 c = UBYTE(module[0x386 + 16 + last_pos]);
870 } while (c == 0 || c >= 0x80);
871 MODULE_INFO songs = 0;
872 parse_tm2_song(module_info, module, 0);
873 for (i = 0; i < last_pos && MODULE_INFO songs < MAX_SONGS; i += 17) {
874 c = UBYTE(module[0x386 + 16 + i]);
875 if (c == 0 || c >= 0x80)
876 parse_tm2_song(module_info, module, i + 17);
877 }
878 return TRUE;
879 }
880
881 #if !defined(JAVA) && !defined(CSHARP)
882
883 static abool parse_hex(int *retval, const char *p)
884 {
885 int r = 0;
886 do {
887 char c = *p;
888 if (r > 0xfff)
889 return FALSE;
890 r <<= 4;
891 if (c >= '0' && c <= '9')
892 r += c - '0';
893 else if (c >= 'A' && c <= 'F')
894 r += c - 'A' + 10;
895 else if (c >= 'a' && c <= 'f')
896 r += c - 'a' + 10;
897 else
898 return FALSE;
899 } while (*++p != '\0');
900 *retval = r;
901 return TRUE;
902 }
903
904 static abool parse_dec(int *retval, const char *p, int minval, int maxval)
905 {
906 int r = 0;
907 do {
908 char c = *p;
909 if (c >= '0' && c <= '9')
910 r = 10 * r + c - '0';
911 else
912 return FALSE;
913 if (r > maxval)
914 return FALSE;
915 } while (*++p != '\0');
916 if (r < minval)
917 return FALSE;
918 *retval = r;
919 return TRUE;
920 }
921
922 static abool parse_text(char *retval, const char *p)
923 {
924 int i;
925 if (*p != '"')
926 return FALSE;
927 p++;
928 if (p[0] == '<' && p[1] == '?' && p[2] == '>' && p[3] == '"')
929 return TRUE;
930 i = 0;
931 while (*p != '"') {
932 if (i >= 127)
933 return FALSE;
934 if (*p == '\0')
935 return FALSE;
936 retval[i++] = *p++;
937 }
938 retval[i] = '\0';
939 return TRUE;
940 }
941
942 int ASAP_ParseDuration(const char *s)
943 {
944 int r;
945 if (*s < '0' || *s > '9')
946 return -1;
947 r = *s++ - '0';
948 if (*s >= '0' && *s <= '9')
949 r = 10 * r + *s++ - '0';
950 if (*s == ':') {
951 s++;
952 if (*s < '0' || *s > '5')
953 return -1;
954 r = 60 * r + (*s++ - '0') * 10;
955 if (*s < '0' || *s > '9')
956 return -1;
957 r += *s++ - '0';
958 }
959 r *= 1000;
960 if (*s != '.')
961 return r;
962 s++;
963 if (*s < '0' || *s > '9')
964 return r;
965 r += 100 * (*s++ - '0');
966 if (*s < '0' || *s > '9')
967 return r;
968 r += 10 * (*s++ - '0');
969 if (*s < '0' || *s > '9')
970 return r;
971 r += *s - '0';
972 return r;
973 }
974
975 static char *two_digits(char *s, int x)
976 {
977 s[0] = '0' + x / 10;
978 s[1] = '0' + x % 10;
979 return s + 2;
980 }
981
982 void ASAP_DurationToString(char *s, int duration)
983 {
984 if (duration >= 0) {
985 int seconds = duration / 1000;
986 int minutes = seconds / 60;
987 s = two_digits(s, minutes);
988 *s++ = ':';
989 s = two_digits(s, seconds % 60);
990 duration %= 1000;
991 if (duration != 0) {
992 *s++ = '.';
993 s = two_digits(s, duration / 10);
994 duration %= 10;
995 if (duration != 0)
996 *s++ = '0' + duration;
997 }
998 }
999 *s = '\0';
1000 }
1001
1002 #endif /* !defined(JAVA) && !defined(CSHARP) */
1003
1004 FILE_FUNC abool parse_sap_header(ASAP_ModuleInfo PTR module_info,
1005 const byte ARRAY module, int module_len)
1006 {
1007 int module_index = 0;
1008 abool sap_signature = FALSE;
1009 int duration_index = 0;
1010 for (;;) {
1011 NEW_ARRAY(char, line, 256);
1012 int i;
1013 #if !defined(JAVA) && !defined(CSHARP)
1014 char *p;
1015 #endif
1016 if (module_index + 8 >= module_len)
1017 return FALSE;
1018 if (UBYTE(module[module_index]) == 0xff)
1019 break;
1020 i = 0;
1021 while (module[module_index] != 0x0d) {
1022 line[i++] = (char) module[module_index++];
1023 if (module_index >= module_len || (unsigned)i >= sizeof(line) - 1)
1024 return FALSE;
1025 }
1026 if (++module_index >= module_len || module[module_index++] != 0x0a)
1027 return FALSE;
1028
1029 #ifdef JAVA
1030 String tag = new String(line, 0, i);
1031 String arg = null;
1032 i = tag.indexOf(' ');
1033 if (i >= 0) {
1034 arg = tag.substring(i + 1);
1035 tag = tag.substring(0, i);
1036 }
1037 #define TAG_IS(t) tag.equals(t)
1038 #define CHAR_ARG arg.charAt(0)
1039 #define SET_HEX(v) v = Integer.parseInt(arg, 16)
1040 #define SET_DEC(v, min, max) do { v = Integer.parseInt(arg); if (v < min || v > max) return FALSE; } while (FALSE)
1041 #define SET_TEXT(v) v = arg.substring(1, arg.length() - 1)
1042 #define DURATION_ARG parseDuration(arg)
1043 #define ARG_CONTAINS(t) (arg.indexOf(t) >= 0)
1044 #elif defined(CSHARP)
1045 string tag = new string(line, 0, i);
1046 string arg = null;
1047 i = tag.IndexOf(' ');
1048 if (i >= 0) {
1049 arg = tag.Substring(i + 1);
1050 tag = tag.Substring(0, i);
1051 }
1052 #define TAG_IS(t) tag == t
1053 #define CHAR_ARG arg[0]
1054 #define SET_HEX(v) v = int.Parse(arg, System.Globalization.NumberStyles.HexNumber)
1055 #define SET_DEC(v, min, max) do { v = int.Parse(arg); if (v < min || v > max) return FALSE; } while (FALSE)
1056 #define SET_TEXT(v) v = arg.Substring(1, arg.Length - 1)
1057 #define DURATION_ARG ParseDuration(arg)
1058 #define ARG_CONTAINS(t) (arg.IndexOf(t) >= 0)
1059 #else
1060 line[i] = '\0';
1061 for (p = line; *p != '\0'; p++) {
1062 if (*p == ' ') {
1063 *p++ = '\0';
1064 break;
1065 }
1066 }
1067 #define TAG_IS(t) (strcmp(line, t) == 0)
1068 #define CHAR_ARG *p
1069 #define SET_HEX(v) do { if (!parse_hex(&v, p)) return FALSE; } while (FALSE)
1070 #define SET_DEC(v, min, max) do { if (!parse_dec(&v, p, min, max)) return FALSE; } while (FALSE)
1071 #define SET_TEXT(v) do { if (!parse_text(v, p)) return FALSE; } while (FALSE)
1072 #define DURATION_ARG ASAP_ParseDuration(p)
1073 #define ARG_CONTAINS(t) (strstr(p, t) != NULL)
1074 #endif
1075
1076 if (TAG_IS("SAP"))
1077 sap_signature = TRUE;
1078 if (!sap_signature)
1079 return FALSE;
1080 if (TAG_IS("AUTHOR"))
1081 SET_TEXT(MODULE_INFO author);
1082 else if (TAG_IS("NAME"))
1083 SET_TEXT(MODULE_INFO name);
1084 else if (TAG_IS("DATE"))
1085 SET_TEXT(MODULE_INFO date);
1086 else if (TAG_IS("SONGS"))
1087 SET_DEC(MODULE_INFO songs, 1, MAX_SONGS);
1088 else if (TAG_IS("DEFSONG"))
1089 SET_DEC(MODULE_INFO default_song, 0, MAX_SONGS - 1);
1090 else if (TAG_IS("STEREO"))
1091 MODULE_INFO channels = 2;
1092 else if (TAG_IS("TIME")) {
1093 int duration = DURATION_ARG;
1094 if (duration < 0 || duration_index >= MAX_SONGS)
1095 return FALSE;
1096 MODULE_INFO durations[duration_index] = duration;
1097 if (ARG_CONTAINS("LOOP"))
1098 MODULE_INFO loops[duration_index] = TRUE;
1099 duration_index++;
1100 }
1101 else if (TAG_IS("TYPE"))
1102 MODULE_INFO type = CHAR_ARG;
1103 else if (TAG_IS("FASTPLAY"))
1104 SET_DEC(MODULE_INFO fastplay, 1, 312);
1105 else if (TAG_IS("MUSIC"))
1106 SET_HEX(MODULE_INFO music);
1107 else if (TAG_IS("INIT"))
1108 SET_HEX(MODULE_INFO init);
1109 else if (TAG_IS("PLAYER"))
1110 SET_HEX(MODULE_INFO player);
1111 }
1112 if (MODULE_INFO default_song >= MODULE_INFO songs)
1113 return FALSE;
1114 switch (MODULE_INFO type) {
1115 case 'B':
1116 case 'D':
1117 if (MODULE_INFO player < 0 || MODULE_INFO init < 0)
1118 return FALSE;
1119 break;
1120 case 'C':
1121 if (MODULE_INFO player < 0 || MODULE_INFO music < 0)
1122 return FALSE;
1123 break;
1124 case 'S':
1125 if (MODULE_INFO init < 0)
1126 return FALSE;
1127 MODULE_INFO fastplay = 78;
1128 break;
1129 default:
1130 return FALSE;
1131 }
1132 if (UBYTE(module[module_index + 1]) != 0xff)
1133 return FALSE;
1134 MODULE_INFO header_len = module_index;
1135 return TRUE;
1136 }
1137
1138 FILE_FUNC abool parse_sap(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
1139 const byte ARRAY module, int module_len)
1140 {
1141 int module_index;
1142 if (!parse_sap_header(module_info, module, module_len))
1143 return FALSE;
1144 if (ast == NULL)
1145 return TRUE;
1146 ZERO_ARRAY(AST memory);
1147 module_index = MODULE_INFO header_len + 2;
1148 while (module_index + 5 <= module_len) {
1149 int start_addr = UBYTE(module[module_index]) + (UBYTE(module[module_index + 1]) << 8);
1150 int block_len = UBYTE(module[module_index + 2]) + (UBYTE(module[module_index + 3]) << 8) + 1 - start_addr;
1151 if (block_len <= 0 || module_index + block_len > module_len)
1152 return FALSE;
1153 module_index += 4;
1154 COPY_ARRAY(AST memory, start_addr, module, module_index, block_len);
1155 module_index += block_len;
1156 if (module_index == module_len)
1157 return TRUE;
1158 if (module_index + 7 <= module_len
1159 && UBYTE(module[module_index]) == 0xff && UBYTE(module[module_index + 1]) == 0xff)
1160 module_index += 2;
1161 }
1162 return FALSE;
1163 }
1164
1165 #define ASAP_EXT(c1, c2, c3) (((c1) + ((c2) << 8) + ((c3) << 16)) | 0x202020)
1166
1167 FILE_FUNC int get_packed_ext(STRING filename)
1168 {
1169 #ifdef JAVA
1170 int i = filename.length();
1171 int ext = 0;
1172 while (--i > 0) {
1173 if (filename.charAt(i) == '.')
1174 return ext | 0x202020;
1175 ext = (ext << 8) + filename.charAt(i);
1176 }
1177 return 0;
1178 #elif defined(CSHARP)
1179 int i = filename.Length;
1180 int ext = 0;
1181 while (--i > 0) {
1182 if (filename[i] == '.')
1183 return ext | 0x202020;
1184 ext = (ext << 8) + filename[i];
1185 }
1186 return 0;
1187 #else
1188 const char *p;
1189 int ext;
1190 for (p = filename; *p != '\0'; p++);
1191 ext = 0;
1192 for (;;) {
1193 if (--p <= filename || *p <= ' ')
1194 return 0; /* no filename extension or invalid character */
1195 if (*p == '.')
1196 return ext | 0x202020;
1197 ext = (ext << 8) + (*p & 0xff);
1198 }
1199 #endif
1200 }
1201
1202 FILE_FUNC abool is_our_ext(int ext)
1203 {
1204 switch (ext) {
1205 case ASAP_EXT('C', 'M', 'C'):
1206 case ASAP_EXT('C', 'M', 'R'):
1207 case ASAP_EXT('D', 'M', 'C'):
1208 case ASAP_EXT('M', 'P', 'D'):
1209 case ASAP_EXT('M', 'P', 'T'):
1210 case ASAP_EXT('R', 'M', 'T'):
1211 case ASAP_EXT('S', 'A', 'P'):
1212 case ASAP_EXT('T', 'M', '2'):
1213 case ASAP_EXT('T', 'M', '8'):
1214 case ASAP_EXT('T', 'M', 'C'):
1215 return TRUE;
1216 default:
1217 return FALSE;
1218 }
1219 }
1220
1221 ASAP_FUNC abool ASAP_IsOurFile(STRING filename)
1222 {
1223 int ext = get_packed_ext(filename);
1224 return is_our_ext(ext);
1225 }
1226
1227 ASAP_FUNC abool ASAP_IsOurExt(STRING ext)
1228 {
1229 #ifdef JAVA
1230 return ext.length() == 3
1231 && is_our_ext(ASAP_EXT(ext.charAt(0), ext.charAt(1), ext.charAt(2)));
1232 #else
1233 return ext[0] > ' ' && ext[1] > ' ' && ext[2] > ' ' && ext[3] == '\0'
1234 && is_our_ext(ASAP_EXT(ext[0], ext[1], ext[2]));
1235 #endif
1236 }
1237
1238 FILE_FUNC abool parse_file(ASAP_State PTR ast, ASAP_ModuleInfo PTR module_info,
1239 STRING filename, const byte ARRAY module, int module_len)
1240 {
1241 int i;
1242 #ifdef JAVA
1243 int basename = 0;
1244 int ext = -1;
1245 for (i = 0; i < filename.length(); i++) {
1246 int c = filename.charAt(i);
1247 if (c == '/' || c == '\\')
1248 basename = i + 1;
1249 else if (c == '.')
1250 ext = i;
1251 }
1252 if (ext < 0)
1253 ext = i;
1254 module_info.author = "";
1255 module_info.name = filename.substring(basename, ext);
1256 module_info.date = "";
1257 #elif defined(CSHARP)
1258 int basename = 0;
1259 int ext = -1;
1260 for (i = 0; i < filename.Length; i++) {
1261 int c = filename[i];
1262 if (c == '/' || c == '\\')
1263 basename = i + 1;
1264 else if (c == '.')
1265 ext = i;
1266 }
1267 if (ext < 0)
1268 ext = i;
1269 module_info.author = string.Empty;
1270 module_info.name = filename.Substring(basename, ext - basename);
1271 module_info.date = string.Empty;
1272 #else
1273 const char *p;
1274 const char *basename = filename;
1275 const char *ext = NULL;
1276 for (p = filename; *p != '\0'; p++) {
1277 if (*p == '/' || *p == '\\')
1278 basename = p + 1;
1279 else if (*p == '.')
1280 ext = p;
1281 }
1282 if (ext == NULL)
1283 ext = p;
1284 module_info->author[0] = '\0';
1285 i = ext - basename;
1286 memcpy(module_info->name, basename, i);
1287 module_info->name[i] = '\0';
1288 module_info->date[0] = '\0';
1289 #endif
1290 MODULE_INFO channels = 1;
1291 MODULE_INFO songs = 1;
1292 MODULE_INFO default_song = 0;
1293 for (i = 0; i < MAX_SONGS; i++) {
1294 MODULE_INFO durations[i] = -1;
1295 MODULE_INFO loops[i] = FALSE;
1296 }
1297 MODULE_INFO type = '?';
1298 MODULE_INFO fastplay = 312;
1299 MODULE_INFO music = -1;
1300 MODULE_INFO init = -1;
1301 MODULE_INFO player = -1;
1302 switch (get_packed_ext(filename)) {
1303 case ASAP_EXT('C', 'M', 'C'):
1304 return parse_cmc(ast, module_info, module, module_len, FALSE);
1305 case ASAP_EXT('C', 'M', 'R'):
1306 return parse_cmc(ast, module_info, module, module_len, TRUE);
1307 case ASAP_EXT('D', 'M', 'C'):
1308 MODULE_INFO fastplay = 156;
1309 return parse_cmc(ast, module_info, module, module_len, FALSE);
1310 case ASAP_EXT('M', 'P', 'D'):
1311 MODULE_INFO fastplay = 156;
1312 return parse_mpt(ast, module_info, module, module_len);
1313 case ASAP_EXT('M', 'P', 'T'):
1314 return parse_mpt(ast, module_info, module, module_len);
1315 case ASAP_EXT('R', 'M', 'T'):
1316 return parse_rmt(ast, module_info, module, module_len);
1317 case ASAP_EXT('S', 'A', 'P'):
1318 return parse_sap(ast, module_info, module, module_len);
1319 case ASAP_EXT('T', 'M', '2'):
1320 return parse_tm2(ast, module_info, module, module_len);
1321 case ASAP_EXT('T', 'M', '8'):
1322 case ASAP_EXT('T', 'M', 'C'):
1323 return parse_tmc(ast, module_info, module, module_len);
1324 default:
1325 return FALSE;
1326 }
1327 }
1328
1329 ASAP_FUNC abool ASAP_GetModuleInfo(ASAP_ModuleInfo PTR module_info, STRING filename,
1330 const byte ARRAY module, int module_len)
1331 {
1332 return parse_file(NULL, module_info, filename, module, module_len);
1333 }
1334
1335 ASAP_FUNC abool ASAP_Load(ASAP_State PTR ast, STRING filename,
1336 const byte ARRAY module, int module_len)
1337 {
1338 AST silence_cycles = 0;
1339 return parse_file(ast, ADDRESSOF AST module_info, filename, module, module_len);
1340 }
1341
1342 ASAP_FUNC void ASAP_DetectSilence(ASAP_State PTR ast, int seconds)
1343 {
1344 AST silence_cycles = seconds * ASAP_MAIN_CLOCK;
1345 }
1346
1347 FILE_FUNC void call_6502(ASAP_State PTR ast, int addr, int max_scanlines)
1348 {
1349 AST cpu_pc = addr;
1350 /* put a CIM at 0xd20a and a return address on stack */
1351 dPutByte(0xd20a, 0xd2);
1352 dPutByte(0x01fe, 0x09);
1353 dPutByte(0x01ff, 0xd2);
1354 AST cpu_s = 0xfd;
1355 Cpu_RunScanlines(ast, max_scanlines);
1356 }
1357
1358 /* 50 Atari frames for the initialization routine - some SAPs are self-extracting. */
1359 #define SCANLINES_FOR_INIT (50 * 312)
1360
1361 FILE_FUNC void call_6502_init(ASAP_State PTR ast, int addr, int a, int x, int y)
1362 {
1363 AST cpu_a = a & 0xff;
1364 AST cpu_x = x & 0xff;
1365 AST cpu_y = y & 0xff;
1366 call_6502(ast, addr, SCANLINES_FOR_INIT);
1367 }
1368
1369 ASAP_FUNC void ASAP_PlaySong(ASAP_State PTR ast, int song, int duration)
1370 {
1371 AST current_song = song;
1372 AST current_duration = duration;
1373 AST blocks_played = 0;
1374 AST silence_cycles_counter = AST silence_cycles;
1375 AST extra_pokey_mask = AST module_info.channels > 1 ? 0x10 : 0;
1376 PokeySound_Initialize(ast);
1377 AST cycle = 0;
1378 AST cpu_nz = 0;
1379 AST cpu_c = 0;
1380 AST cpu_vdi = 0;
1381 AST scanline_number = 0;
1382 AST next_scanline_cycle = 0;
1383 AST timer1_cycle = NEVER;
1384 AST timer2_cycle = NEVER;
1385 AST timer4_cycle = NEVER;
1386 AST irqst = 0xff;
1387 switch (AST module_info.type) {
1388 case 'B':
1389 call_6502_init(ast, AST module_info.init, song, 0, 0);
1390 break;
1391 case 'C':
1392 case 'c':
1393 case 'z':
1394 call_6502_init(ast, AST module_info.player + 3, 0x70, AST module_info.music, AST module_info.music >> 8);
1395 call_6502_init(ast, AST module_info.player + 3, 0x00, song, 0);
1396 break;
1397 case 'D':
1398 case 'S':
1399 AST cpu_a = song;
1400 AST cpu_x = 0x00;
1401 AST cpu_y = 0x00;
1402 AST cpu_s = 0xff;
1403 AST cpu_pc = AST module_info.init;
1404 break;
1405 case 'm':
1406 call_6502_init(ast, AST module_info.player, 0x00, AST module_info.music >> 8, AST module_info.music);
1407 call_6502_init(ast, AST module_info.player, 0x02, AST module_info.song_pos[song], 0);
1408 break;
1409 case 'r':
1410 call_6502_init(ast, AST module_info.player, AST module_info.song_pos[song], AST module_info.music, AST module_info.music >> 8);
1411 break;
1412 case 't':
1413 case 'T':
1414 call_6502_init(ast, AST module_info.player, 0x70, AST module_info.music >> 8, AST module_info.music);
1415 call_6502_init(ast, AST module_info.player, 0x00, song, 0);
1416 AST tmc_per_frame_counter = 1;
1417 break;
1418 }
1419 ASAP_MutePokeyChannels(ast, 0);
1420 }
1421
1422 ASAP_FUNC void ASAP_MutePokeyChannels(ASAP_State PTR ast, int mask)
1423 {
1424 PokeySound_Mute(ast, ADDRESSOF AST base_pokey, mask);
1425 PokeySound_Mute(ast, ADDRESSOF AST extra_pokey, mask >> 4);
1426 }
1427
1428 ASAP_FUNC abool call_6502_player(ASAP_State PTR ast)
1429 {
1430 int s;
1431 PokeySound_StartFrame(ast);
1432 switch (AST module_info.type) {
1433 case 'B':
1434 call_6502(ast, AST module_info.player, AST module_info.fastplay);
1435 break;
1436 case 'C':
1437 case 'c':
1438 case 'z':
1439 call_6502(ast, AST module_info.player + 6, AST module_info.fastplay);
1440 break;
1441 case 'D':
1442 s = AST cpu_s;
1443 #define PUSH_ON_6502_STACK(x) dPutByte(0x100 + s, x); s = (s - 1) & 0xff
1444 #define RETURN_FROM_PLAYER_ADDR 0xd200
1445 /* save 6502 state on 6502 stack */
1446 PUSH_ON_6502_STACK(AST cpu_pc >> 8);
1447 PUSH_ON_6502_STACK(AST cpu_pc & 0xff);
1448 PUSH_ON_6502_STACK(((AST cpu_nz | (AST cpu_nz >> 1)) & 0x80) + AST cpu_vdi + \
1449 ((AST cpu_nz & 0xff) == 0 ? Z_FLAG : 0) + AST cpu_c + 0x20);
1450 PUSH_ON_6502_STACK(AST cpu_a);
1451 PUSH_ON_6502_STACK(AST cpu_x);
1452 PUSH_ON_6502_STACK(AST cpu_y);
1453 /* RTS will jump to 6502 code that restores the state */
1454 PUSH_ON_6502_STACK((RETURN_FROM_PLAYER_ADDR - 1) >> 8);
1455 PUSH_ON_6502_STACK((RETURN_FROM_PLAYER_ADDR - 1) & 0xff);
1456 AST cpu_s = s;
1457 dPutByte(RETURN_FROM_PLAYER_ADDR, 0x68); /* PLA */
1458 dPutByte(RETURN_FROM_PLAYER_ADDR + 1, 0xa8); /* TAY */
1459 dPutByte(RETURN_FROM_PLAYER_ADDR + 2, 0x68); /* PLA */
1460 dPutByte(RETURN_FROM_PLAYER_ADDR + 3, 0xaa); /* TAX */
1461 dPutByte(RETURN_FROM_PLAYER_ADDR + 4, 0x68); /* PLA */
1462 dPutByte(RETURN_FROM_PLAYER_ADDR + 5, 0x40); /* RTI */
1463 AST cpu_pc = AST module_info.player;
1464 Cpu_RunScanlines(ast, AST module_info.fastplay);
1465 break;
1466 case 'S':
1467 Cpu_RunScanlines(ast, AST module_info.fastplay);
1468 {
1469 int i = dGetByte(0x45) - 1;
1470 dPutByte(0x45, i);
1471 if (i == 0)
1472 dPutByte(0xb07b, dGetByte(0xb07b) + 1);
1473 }
1474 break;
1475 case 'm':
1476 case 'r':
1477 case 'T':
1478 call_6502(ast, AST module_info.player + 3, AST module_info.fastplay);
1479 break;
1480 case 't':
1481 if (--AST tmc_per_frame_counter <= 0) {
1482 AST tmc_per_frame_counter = AST tmc_per_frame;
1483 call_6502(ast, AST module_info.player + 3, AST module_info.fastplay);
1484 }
1485 else
1486 call_6502(ast, AST module_info.player + 6, AST module_info.fastplay);
1487 break;
1488 }
1489 PokeySound_EndFrame(ast, AST module_info.fastplay * 114);
1490 if (AST silence_cycles > 0) {
1491 if (PokeySound_IsSilent(ADDRESSOF AST base_pokey)
1492 && PokeySound_IsSilent(ADDRESSOF AST extra_pokey)) {
1493 AST silence_cycles_counter -= AST module_info.fastplay * 114;
1494 if (AST silence_cycles_counter <= 0)
1495 return FALSE;
1496 }
1497 else
1498 AST silence_cycles_counter = AST silence_cycles;
1499 }
1500 return TRUE;
1501 }
1502
1503 FILE_FUNC int milliseconds_to_blocks(int milliseconds)
1504 {
1505 return milliseconds * (ASAP_SAMPLE_RATE / 100) / 10;
1506 }
1507
1508 ASAP_FUNC void ASAP_Seek(ASAP_State PTR ast, int position)
1509 {
1510 int block = milliseconds_to_blocks(position);
1511 if (block < AST blocks_played)
1512 ASAP_PlaySong(ast, AST current_song, AST current_duration);
1513 while (AST blocks_played + AST samples - AST sample_index < block) {
1514 AST blocks_played += AST samples - AST sample_index;
1515 call_6502_player(ast);
1516 }
1517 AST sample_index += block - AST blocks_played;
1518 AST blocks_played = block;
1519 }
1520
1521 ASAP_FUNC int ASAP_Generate(ASAP_State PTR ast, VOIDPTR buffer, int buffer_len,
1522 ASAP_SampleFormat format)
1523 {
1524 int block_shift;
1525 int buffer_blocks;
1526 int block;
1527 if (AST silence_cycles > 0 && AST silence_cycles_counter <= 0)
1528 return 0;
1529 block_shift = (AST module_info.channels - 1) + (format != ASAP_FORMAT_U8 ? 1 : 0);
1530 buffer_blocks = buffer_len >> block_shift;
1531 if (AST current_duration > 0) {
1532 int total_blocks = milliseconds_to_blocks(AST current_duration);
1533 if (buffer_blocks > total_blocks - AST blocks_played)
1534 buffer_blocks = total_blocks - AST blocks_played;
1535 }
1536 block = 0;
1537 do {
1538 int blocks = PokeySound_Generate(ast, buffer, block << block_shift, buffer_blocks - block, format);
1539 AST blocks_played += blocks;
1540 block += blocks;
1541 } while (block < buffer_blocks && call_6502_player(ast));
1542 return block << block_shift;
1543 }
1544
1545 #if !defined(JAVA) && !defined(CSHARP)
1546
1547 abool ASAP_ChangeExt(char *filename, const char *ext)
1548 {
1549 char *dest = NULL;
1550 while (*filename != '\0') {
1551 if (*filename == '/' || *filename == '\\')
1552 dest = NULL;
1553 else if (*filename == '.')
1554 dest = filename + 1;
1555 filename++;
1556 }
1557 if (dest == NULL)
1558 return FALSE;
1559 strcpy(dest, ext);
1560 return TRUE;
1561 }
1562
1563 abool ASAP_CanSetModuleInfo(const char *filename)
1564 {
1565 int ext = get_packed_ext(filename);
1566 return ext == ASAP_EXT('S', 'A', 'P');
1567 }
1568
1569 static byte *put_string(byte *dest, const char *str)
1570 {
1571 while (*str != '\0')
1572 *dest++ = *str++;
1573 return dest;
1574 }
1575
1576 static byte *put_dec(byte *dest, int value)
1577 {
1578 if (value >= 10) {
1579 dest = put_dec(dest, value / 10);
1580 value %= 10;
1581 }
1582 *dest++ = '0' + value;
1583 return dest;
1584 }
1585
1586 static byte *put_text_tag(byte *dest, const char *tag, const char *value)
1587 {
1588 dest = put_string(dest, tag);
1589 *dest++ = ' ';
1590 *dest++ = '"';
1591 if (*value == '\0')
1592 value = "<?>";
1593 while (*value != '\0') {
1594 if (*value < ' ' || *value > 'z' || *value == '"' || *value == '`')
1595 return NULL;
1596 *dest++ = *value++;
1597 }
1598 *dest++ = '"';
1599 *dest++ = '\r';
1600 *dest++ = '\n';
1601 return dest;
1602 }
1603
1604 static byte *put_hex_tag(byte *dest, const char *tag, int value)
1605 {
1606 int i;
1607 if (value < 0)
1608 return dest;
1609 dest = put_string(dest, tag);
1610 *dest++ = ' ';
1611 for (i = 12; i >= 0; i -= 4) {
1612 int digit = (value >> i) & 0xf;
1613 *dest++ = (byte) (digit + (digit < 10 ? '0' : 'A' - 10));
1614 }
1615 *dest++ = '\r';
1616 *dest++ = '\n';
1617 return dest;
1618 }
1619
1620 static byte *put_dec_tag(byte *dest, const char *tag, int value)
1621 {
1622 dest = put_string(dest, tag);
1623 *dest++ = ' ';
1624 dest = put_dec(dest, value);
1625 *dest++ = '\r';
1626 *dest++ = '\n';
1627 return dest;
1628 }
1629
1630 static byte *start_sap_header(byte *dest, const ASAP_ModuleInfo *module_info)
1631 {
1632 dest = put_string(dest, "SAP\r\n");
1633 dest = put_text_tag(dest, "AUTHOR", module_info->author);
1634 if (dest == NULL)
1635 return NULL;
1636 dest = put_text_tag(dest, "NAME", module_info->name);
1637 if (dest == NULL)
1638 return NULL;
1639 dest = put_text_tag(dest, "DATE", module_info->date);
1640 if (dest == NULL)
1641 return NULL;
1642 if (module_info->songs > 1) {
1643 dest = put_dec_tag(dest, "SONGS", module_info->songs);
1644 if (module_info->default_song > 0)
1645 dest = put_dec_tag(dest, "DEFSONG", module_info->default_song);
1646 }
1647 if (module_info->channels > 1)
1648 dest = put_string(dest, "STEREO\r\n");
1649 return dest;
1650 }
1651
1652 static byte *put_durations(byte *dest, const ASAP_ModuleInfo *module_info)
1653 {
1654 int song;
1655 for (song = 0; song < module_info->songs; song++) {
1656 if (module_info->durations[song] < 0)
1657 break;
1658 dest = put_string(dest, "TIME ");
1659 ASAP_DurationToString((char *) dest, module_info->durations[song]);
1660 while (*dest != '\0')
1661 dest++;
1662 if (module_info->loops[song])
1663 dest = put_string(dest, " LOOP");
1664 *dest++ = '\r';
1665 *dest++ = '\n';
1666 }
1667 return dest;
1668 }
1669
1670 static byte *put_sap_header(byte *dest, const ASAP_ModuleInfo *module_info, char type, int music, int init, int player)
1671 {
1672 dest = start_sap_header(dest, module_info);
1673 if (dest == NULL)
1674 return NULL;
1675 dest = put_string(dest, "TYPE ");
1676 *dest++ = type;
1677 *dest++ = '\r';
1678 *dest++ = '\n';
1679 if (module_info->fastplay != 312)
1680 dest = put_dec_tag(dest, "FASTPLAY", module_info->fastplay);
1681 dest = put_hex_tag(dest, "MUSIC", music);
1682 dest = put_hex_tag(dest, "INIT", init);
1683 dest = put_hex_tag(dest, "PLAYER", player);
1684 dest = put_durations(dest, module_info);
1685 return dest;
1686 }
1687
1688 int ASAP_SetModuleInfo(const ASAP_ModuleInfo *module_info, const byte ARRAY module,
1689 int module_len, byte ARRAY out_module)
1690 {
1691 byte *dest;
1692 int i;
1693 if (memcmp(module, "SAP\r\n", 5) != 0)
1694 return -1;
1695 dest = start_sap_header(out_module, module_info);
1696 if (dest == NULL)
1697 return -1;
1698 i = 5;
1699 while (i < module_len && module[i] != 0xff) {
1700 if (memcmp(module + i, "AUTHOR ", 7) == 0
1701 || memcmp(module + i, "NAME ", 5) == 0
1702 || memcmp(module + i, "DATE ", 5) == 0
1703 || memcmp(module + i, "SONGS ", 6) == 0
1704 || memcmp(module + i, "DEFSONG ", 8) == 0
1705 || memcmp(module + i, "STEREO", 6) == 0
1706 || memcmp(module + i, "TIME ", 5) == 0) {
1707 while (i < module_len && module[i++] != 0x0a);
1708 }
1709 else {
1710 int b;
1711 do {
1712 b = module[i++];
1713 *dest++ = b;
1714 } while (i < module_len && b != 0x0a);
1715 }
1716 }
1717 dest = put_durations(dest, module_info);
1718 module_len -= i;
1719 memcpy(dest, module + i, module_len);
1720 dest += module_len;
1721 return dest - out_module;
1722 }
1723
1724 #define RMT_INIT 0x0c80
1725 #define TM2_INIT 0x1080
1726
1727 const char *ASAP_CanConvert(const char *filename, const ASAP_ModuleInfo *module_info,
1728 const byte ARRAY module, int module_len)
1729 {
1730 (void)filename;
1731 switch (module_info->type) {
1732 case 'B':
1733 if (module_info->init == 0x4f3 || module_info->init == 0xf4f3 || module_info->init == 0x4ef)
1734 return module_info->fastplay == 156 ? "mpd" : "mpt";
1735 if (module_info->init == RMT_INIT)
1736 return "rmt";
1737 if ((module_info->init == 0x4f5 || module_info->init == 0xf4f5 || module_info->init == 0x4f2)
1738 || ((module_info->init == 0x4e7 || module_info->init == 0xf4e7 || module_info->init == 0x4e4) && module_info->fastplay == 156)
1739 || ((module_info->init == 0x4e5 || module_info->init == 0xf4e5 || module_info->init == 0x4e2) && (module_info->fastplay == 104 || module_info->fastplay == 78)))
1740 return "tmc";
1741 if (module_info->init == TM2_INIT)
1742 return "tm2";
1743 break;
1744 case 'C':
1745 if (module_info->player == 0x500 || module_info->player == 0xf500) {
1746 if (module_info->fastplay == 156)
1747 return "dmc";
1748 return module[module_len - 170] == 0x1e ? "cmr" : "cmc";
1749 }
1750 break;
1751 case 'c':
1752 case 'z':
1753 case 'm':
1754 case 'r':
1755 case 't':
1756 case 'T':
1757 return "sap";
1758 default:
1759 break;
1760 }
1761 return NULL;
1762 }
1763
1764 int ASAP_Convert(const char *filename, const ASAP_ModuleInfo *module_info,
1765 const byte ARRAY module, int module_len, byte ARRAY out_module)
1766 {
1767 (void) filename;
1768 int out_len;
1769 byte *dest;
1770 int addr;
1771 int player;
1772 static const int tmc_player[4] = { 3, -9, -10, -10 };
1773 static const int tmc_init[4] = { -14, -16, -17, -17 };
1774 switch (module_info->type) {
1775 case 'B':
1776 case 'C':
1777 out_len = module[module_info->header_len + 4] + (module[module_info->header_len + 5] << 8)
1778 - module[module_info->header_len + 2] - (module[module_info->header_len + 3] << 8) + 7;
1779 if (out_len < 7 || module_info->header_len + out_len >= module_len)
1780 return -1;
1781 memcpy(out_module, module + module_info->header_len, out_len);
1782 return out_len;
1783 case 'c':
1784 case 'z':
1785 dest = put_sap_header(out_module, module_info, 'C', module_info->music, -1, module_info->player);
1786 if (dest == NULL)
1787 return -1;
1788 memcpy(dest, module, module_len);
1789 dest += module_len;
1790 memcpy(dest, cmc_obx + 2, sizeof(cmc_obx) - 2);
1791 if (module_info->type == 'z')
1792 memcpy(dest + 4 + CMR_BASS_TABLE_OFFSET, cmr_bass_table, sizeof(cmr_bass_table));
1793 dest += sizeof(cmc_obx) - 2;
1794 return dest - out_module;
1795 case 'm':
1796 if (module_info->songs != 1) {
1797 addr = module_info->player - 17 - module_info->songs;
1798 dest = put_sap_header(out_module, module_info, 'B', -1, module_info->player - 17, module_info->player + 3);
1799 }
1800 else {
1801 addr = module_info->player - 13;
1802 dest = put_sap_header(out_module, module_info, 'B', -1, addr, module_info->player + 3);
1803 }
1804 if (dest == NULL)
1805 return -1;
1806 memcpy(dest, module, module_len);
1807 dest += module_len;
1808 *dest++ = (byte) addr;
1809 *dest++ = (byte) (addr >> 8);
1810 *dest++ = mpt_obx[4];
1811 *dest++ = mpt_obx[5];
1812 if (module_info->songs != 1) {
1813 memcpy(dest, module_info->song_pos, module_info->songs);
1814 dest += module_info->songs;
1815 *dest++ = 0x48; /* pha */
1816 }
1817 *dest++ = 0xa0; /* ldy #<music */
1818 *dest++ = (byte) module_info->music;
1819 *dest++ = 0xa2; /* ldx #>music */
1820 *dest++ = (byte) (module_info->music >> 8);
1821 *dest++ = 0xa9; /* lda #0 */
1822 *dest++ = 0;
1823 *dest++ = 0x20; /* jsr player */
1824 *dest++ = (byte) module_info->player;
1825 *dest++ = (byte) (module_info->player >> 8);
1826 if (module_info->songs != 1) {
1827 *dest++ = 0x68; /* pla */
1828 *dest++ = 0xa8; /* tay */
1829 *dest++ = 0xbe; /* ldx song2pos,y */
1830 *dest++ = (byte) addr;
1831 *dest++ = (byte) (addr >> 8);
1832 }
1833 else {
1834 *dest++ = 0xa2; /* ldx #0 */
1835 *dest++ = 0;
1836 }
1837 *dest++ = 0xa9; /* lda #2 */
1838 *dest++ = 2;
1839 memcpy(dest, mpt_obx + 6, sizeof(mpt_obx) - 6);
1840 dest += sizeof(mpt_obx) - 6;
1841 return dest - out_module;
1842 case 'r':
1843 dest = put_sap_header(out_module, module_info, 'B', -1, RMT_INIT, module_info->player + 3);
1844 if (dest == NULL)
1845 return -1;
1846 memcpy(dest, module, module_len);
1847 dest += module_len;
1848 *dest++ = (byte) RMT_INIT;
1849 *dest++ = (byte) (RMT_INIT >> 8);
1850 if (module_info->songs != 1) {
1851 addr = RMT_INIT + 10 + module_info->songs;
1852 *dest++ = (byte) addr;
1853 *dest++ = (byte) (addr >> 8);
1854 *dest++ = 0xa8; /* tay */
1855 *dest++ = 0xb9; /* lda song2pos,y */
1856 *dest++ = (byte) (RMT_INIT + 11);
1857 *dest++ = (byte) ((RMT_INIT + 11) >> 8);
1858 }
1859 else {
1860 *dest++ = (byte) (RMT_INIT + 8);
1861 *dest++ = (byte) ((RMT_INIT + 8) >> 8);
1862 *dest++ = 0xa9; /* lda #0 */
1863 *dest++ = 0;
1864 }
1865 *dest++ = 0xa2; /* ldx #<music */
1866 *dest++ = (byte) module_info->music;
1867 *dest++ = 0xa0; /* ldy #>music */
1868 *dest++ = (byte) (module_info->music >> 8);
1869 *dest++ = 0x4c; /* jmp player */
1870 *dest++ = (byte) module_info->player;
1871 *dest++ = (byte) (module_info->player >> 8);
1872 if (module_info->songs != 1) {
1873 memcpy(dest, module_info->song_pos, module_info->songs);
1874 dest += module_info->songs;
1875 }
1876 if (module_info->channels == 1) {
1877 memcpy(dest, rmt4_obx + 2, sizeof(rmt4_obx) - 2);
1878 dest += sizeof(rmt4_obx) - 2;
1879 }
1880 else {
1881 memcpy(dest, rmt8_obx + 2, sizeof(rmt8_obx) - 2);
1882 dest += sizeof(rmt8_obx) - 2;
1883 }
1884 return dest - out_module;
1885 case 't':
1886 player = module_info->player + tmc_player[module[0x25] - 1];
1887 addr = player + tmc_init[module[0x25] - 1];
1888 if (module_info->songs != 1)
1889 addr -= 3;
1890 dest = put_sap_header(out_module, module_info, 'B', -1, addr, player);
1891 if (dest == NULL)
1892 return -1;
1893 memcpy(dest, module, module_len);
1894 dest += module_len;
1895 *dest++ = (byte) addr;
1896 *dest++ = (byte) (addr >> 8);
1897 *dest++ = tmc_obx[4];
1898 *dest++ = tmc_obx[5];
1899 if (module_info->songs != 1)
1900 *dest++ = 0x48; /* pha */
1901 *dest++ = 0xa0; /* ldy #<music */
1902 *dest++ = (byte) module_info->music;
1903 *dest++ = 0xa2; /* ldx #>music */
1904 *dest++ = (byte) (module_info->music >> 8);
1905 *dest++ = 0xa9; /* lda #$70 */
1906 *dest++ = 0x70;
1907 *dest++ = 0x20; /* jsr player */
1908 *dest++ = (byte) module_info->player;
1909 *dest++ = (byte) (module_info->player >> 8);
1910 if (module_info->songs != 1) {
1911 *dest++ = 0x68; /* pla */
1912 *dest++ = 0xaa; /* tax */
1913 *dest++ = 0xa9; /* lda #0 */
1914 *dest++ = 0;
1915 }
1916 else {
1917 *dest++ = 0xa9; /* lda #$60 */
1918 *dest++ = 0x60;
1919 }
1920 switch (module[0x25]) {
1921 case 2:
1922 *dest++ = 0x06; /* asl 0 */
1923 *dest++ = 0;
1924 *dest++ = 0x4c; /* jmp player */
1925 *dest++ = (byte) module_info->player;
1926 *dest++ = (byte) (module_info->player >> 8);
1927 *dest++ = 0xa5; /* lda 0 */
1928 *dest++ = 0;
1929 *dest++ = 0xe6; /* inc 0 */
1930 *dest++ = 0;
1931 *dest++ = 0x4a; /* lsr @ */
1932 *dest++ = 0x90; /* bcc player+3 */
1933 *dest++ = 5;
1934 *dest++ = 0xb0; /* bcs player+6 */
1935 *dest++ = 6;
1936 break;
1937 case 3:
1938 case 4:
1939 *dest++ = 0xa0; /* ldy #1 */
1940 *dest++ = 1;
1941 *dest++ = 0x84; /* sty 0 */
1942 *dest++ = 0;
1943 *dest++ = 0xd0; /* bne player */
1944 *dest++ = 10;
1945 *dest++ = 0xc6; /* dec 0 */
1946 *dest++ = 0;
1947 *dest++ = 0xd0; /* bne player+6 */
1948 *dest++ = 12;
1949 *dest++ = 0xa0; /* ldy #3 */
1950 *dest++ = module[0x25];
1951 *dest++ = 0x84; /* sty 0 */
1952 *dest++ = 0;
1953 *dest++ = 0xd0; /* bne player+3 */
1954 *dest++ = 3;
1955 break;
1956 default:
1957 break;
1958 }
1959 memcpy(dest, tmc_obx + 6, sizeof(tmc_obx) - 6);
1960 dest += sizeof(tmc_obx) - 6;
1961 return dest - out_module;
1962 case 'T':
1963 dest = put_sap_header(out_module, module_info, 'B', -1, TM2_INIT, module_info->player + 3);
1964 if (dest == NULL)
1965 return -1;
1966 memcpy(dest, module, module_len);
1967 dest += module_len;
1968 *dest++ = (byte) TM2_INIT;
1969 *dest++ = (byte) (TM2_INIT >> 8);
1970 if (module_info->songs != 1) {
1971 *dest++ = (byte) (TM2_INIT + 16);
1972 *dest++ = (byte) ((TM2_INIT + 16) >> 8);
1973 *dest++ = 0x48; /* pha */
1974 }
1975 else {
1976 *dest++ = (byte) (TM2_INIT + 14);
1977 *dest++ = (byte) ((TM2_INIT + 14) >> 8);
1978 }
1979 *dest++ = 0xa0; /* ldy #<music */
1980 *dest++ = (byte) module_info->music;
1981 *dest++ = 0xa2; /* ldx #>music */
1982 *dest++ = (byte) (module_info->music >> 8);
1983 *dest++ = 0xa9; /* lda #$70 */
1984 *dest++ = 0x70;
1985 *dest++ = 0x20; /* jsr player */
1986 *dest++ = (byte) module_info->player;
1987 *dest++ = (byte) (module_info->player >> 8);
1988 if (module_info->songs != 1) {
1989 *dest++ = 0x68; /* pla */
1990 *dest++ = 0xaa; /* tax */
1991 *dest++ = 0xa9; /* lda #0 */
1992 *dest++ = 0;
1993 }
1994 else {
1995 *dest++ = 0xa9; /* lda #0 */
1996 *dest++ = 0;
1997 *dest++ = 0xaa; /* tax */
1998 }
1999 *dest++ = 0x4c; /* jmp player */
2000 *dest++ = (byte) module_info->player;
2001 *dest++ = (byte) (module_info->player >> 8);
2002 memcpy(dest, tm2_obx + 2, sizeof(tm2_obx) - 2);
2003 dest += sizeof(tm2_obx) - 2;
2004 return dest - out_module;
2005 default:
2006 return -1;
2007 }
2008 }
2009
2010 #endif /* !defined(JAVA) && !defined(CSHARP) */