![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to music.gas CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [DOOM] / doom|
Return to music.gas CVS log | Up to [DOOM] / doom |
1.1 root 1: .long
2: .dc.l codeend-_music_dspcode
3: _music_dspcode::
4: .dsp
5: .org $f1b140
6:
7: S_LE .ccdef $14 ; PL
8: U_LE .ccdef $04 ; CC
9: S_GT .ccdef $18 ; MI
10: U_GT .ccdef $08 ; CS
11:
12: S_LT .ccdef $15 ; PL+NE
13: U_LT .ccdef $05 ; CC+NE
14:
15: FP .equr r14
16: scratch .equr r10
17: scratch2 .equr r11
18: RETURNVALUE .equr r29
19: RETURNPOINT .equr r28
20: MATH_A .equr r27
21: MATH_B .equr r26
22: MATH_C .equr r25
23: MATH_RTS .equr r24
24: MATH_SIGN .equr r23
25:
26: movei #codestart,scratch
27: jump T,(scratch)
28: nop
29:
30:
31: GPU_IMUL:
32: move MATH_A,MATH_SIGN
33: xor MATH_B,MATH_SIGN
34: abs MATH_A
35: abs MATH_B
36: move MATH_A,MATH_C
37: mult MATH_B,MATH_C
38: move MATH_B,scratch2
39: shrq #16,scratch2
40: mult MATH_A,scratch2
41: shlq #16,scratch2
42: add scratch2,MATH_C
43: move MATH_A,scratch2
44: shrq #16,scratch2
45: mult MATH_B,scratch2
46: shlq #16,scratch2
47: add scratch2, MATH_C
48: btst #31,MATH_SIGN
49: jump EQ,(MATH_RTS)
50: nop
51: jump T,(MATH_RTS)
52: neg MATH_C
53:
54: ;===========================================================================
55: ;
56: _M_WriteOutSamples:
57: ;
58: ;===========================================================================
59:
60: sw_source .equr r16
61: sw_samples .equr r17
62: sw_dest .equr r18
63: sw_sample .equr r19
64: sw_combined .equr r20
65: sw_zero .equr r21
66: sw_looppoint .equr r22
67:
68: .extern _musictime
69:
70: load (FP),sw_samples
71:
72: moveq #0,sw_zero
73:
74: movei #_musictime,scratch2
75: load (scratch2),sw_dest
76:
77: shlq #1,sw_dest
78: movei #$1fff,scratch
79: and scratch,sw_dest
80: movei #$1f0000,scratch
81: add scratch,sw_dest ; sw_dest = externbuffer[sfxtime*2]
82:
83: movei #_internal_buffer,sw_source
84: movei #satloop,sw_looppoint
85:
86: load (sw_source),sw_sample ; delay slotted
87: satloop:
88: store sw_zero,(sw_source)
89: sharq #8,sw_sample
90: addq #4,sw_source
91: sat16s sw_sample
92:
93: storew sw_sample,(sw_dest)
94: addqmod #2,sw_dest
95:
96: subq #1,sw_samples
97: jump NE,(sw_looppoint)
98: load (sw_source),sw_sample ; delay slot
99:
100: jump T,(RETURNPOINT)
101: nop
102:
103: ;===========================================================================
104:
105: ;====================
106: _M_PaintSingleChannel::
107: ;3 dag registers 8 register variables
108: ;localoffset:0 regoffset:4 argoffset:4
109: ;====================
110: ps_channel .equr r15
111: ps_samples .equr r16
112: ps_dest .equr r17
113: ps_source .equr r18
114: ps_sourcefrac .equr r19
115: ps_sourcestep .equr r20
116: ps_vol .equr r21
117: ps_data .equr r24
118: ps_looppoint .equr r25
119: ps_128 .equr r26
120: ps_ffff .equr r27
121:
122: load (FP),ps_channel
123: load (FP+1),ps_samples
124: movei #_internal_buffer,ps_dest
125:
126: load (FP+2), scratch ; get new
127: shlq #2, scratch
128: add scratch, ps_dest
129:
130: load (ps_channel+1),ps_source
131: load (ps_channel+4),ps_sourcefrac
132: load (ps_channel+3),ps_sourcestep
133: load (ps_channel+2),ps_vol
134:
135: shrq #1, ps_vol
136:
137: movei #addloop,ps_looppoint
138: movei #128,ps_128
139: movei #$ffff,ps_ffff
140:
141: loadb (ps_source),ps_data ; delay slotted
142: addloop:
143: add ps_sourcestep,ps_sourcefrac
144: move ps_sourcefrac,scratch
145: sub ps_128,ps_data
146: shrq #16,scratch
147: imult ps_vol,ps_data
148:
149: load (ps_dest),scratch2
150: and ps_ffff,ps_sourcefrac
151: add ps_data,scratch2
152: add scratch,ps_source
153: store scratch2,(ps_dest)
154:
155: subq #1,ps_samples
156: addqt #4,ps_dest
157: jump NE,(ps_looppoint)
158: loadb (ps_source),ps_data ; delay slot
159:
160: store ps_source,(ps_channel+1)
161: jump T,(RETURNPOINT)
162: store ps_sourcefrac,(ps_channel+4) ; delay slot
163:
164:
165: codestart:
166:
167: ;====================
168: _M_PaintMusic::
169: ;6 dag registers 3 register variables
170: ;localoffset:4 regoffset:4 argoffset:44
171: ;====================
172: movei #44,scratch
173: sub scratch,FP
174:
175: movei #_samplecount,r0
176: load (r0),r0
177: movei #8192,r1
178: add r1,r0
179: move r0,r17 ;(actual_endtime)
180:
181: movei #L43,r0
182: jump T,(r0)
183: nop
184:
185: L42:
186:
187: movei #_musictime,r0
188: load (r0),r0
189: movei #_next_eventtime,r1
190: load (r1),r1
191: cmp r0,r1
192: movei #L45,scratch
193: jump NE,(scratch)
194: nop
195:
196: movei #_next_eventtime,r0
197: load (r0),r1
198: movei #_music,r2
199: load (r2),r3
200: loadb (r3),r4
201: movei #_samples_per_midiclock,r5
202: load (r5),r5
203: move r4,MATH_A
204: movei #L60,MATH_RTS
205: movei #GPU_IMUL,scratch
206: jump T,(scratch)
207: move r5,MATH_B ; delay slot
208: L60:
209: move MATH_C,r4
210: add r4,r1
211: store r1,(r0)
212: move r3,r0
213: addq #1,r0
214: store r0,(r2)
215:
216: L45:
217:
218: movei #_next_eventtime,r0
219: load (r0),r0
220: cmp r17,r0 ;(actual_endtime)
221: movei #L47,scratch
222: jump EQ,(scratch)
223: nop
224: jump MI,(scratch)
225: nop
226:
227: move r17,r16 ;(actual_endtime)(stop_time)
228:
229: movei #L48,r0
230: jump T,(r0)
231: nop
232:
233: L47:
234:
235: movei #_next_eventtime,r0
236: load (r0),r0
237: move r0,r16 ;(stop_time)
238:
239: L48:
240:
241: movei #256,r0
242: move r0,r15 ;(samples)
243:
244: movei #L50,r0
245: jump T,(r0)
246: nop
247:
248: L49:
249:
250: movei #_musictime,r0
251: load (r0),r0
252: move r16,r1 ;(stop_time)
253: sub r0,r1
254: cmp r1,r15 ;(samples)
255: movei #L52,scratch
256: jump EQ,(scratch)
257: nop
258: jump MI,(scratch)
259: nop
260:
261: movei #_musictime,r0
262: load (r0),r0
263: move r16,r1 ;(stop_time)
264: sub r0,r1
265: move r1,r15 ;(samples)
266:
267: L52:
268:
269: store r15,(FP) ; arg[] ;(samples)
270: movei #_M_PaintUnsatSound,r0
271: store r28,(FP+1) ; push ;(RETURNPOINT)
272: store r17,(FP+2) ; push ;(actual_endtime)
273: store r16,(FP+3) ; push ;(stop_time)
274: movei #L61,RETURNPOINT
275: jump T,(r0)
276: store r15,(FP+4) ; delay slot push ;(samples)
277: L61:
278: load (FP+2),r17 ; pop ;(actual_endtime)
279: load (FP+3),r16 ; pop ;(stop_time)
280: load (FP+4),r15 ; pop ;(samples)
281: load (FP+1), RETURNPOINT ; pop
282:
283: store r15,(FP) ; arg[] ;(samples)
284: movei #_M_WriteOutSamples,r0
285: store r28,(FP+1) ; push ;(RETURNPOINT)
286: store r17,(FP+2) ; push ;(actual_endtime)
287: store r16,(FP+3) ; push ;(stop_time)
288: movei #L62,RETURNPOINT
289: jump T,(r0)
290: store r15,(FP+4) ; delay slot push ;(samples)
291: L62:
292: load (FP+2),r17 ; pop ;(actual_endtime)
293: load (FP+3),r16 ; pop ;(stop_time)
294: load (FP+4),r15 ; pop ;(samples)
295: load (FP+1), RETURNPOINT ; pop
296:
297: movei #_musictime,r0
298: load (r0),r1
299: add r15,r1 ;(samples)
300: store r1,(r0)
301:
302: L50:
303:
304: movei #_musictime,r0
305: load (r0),r0
306: cmp r0,r16 ;(stop_time)
307: movei #L49,scratch
308: jump NE,(scratch)
309: nop
310:
311: movei #_music,r0
312: load (r0),r0
313: movei #_music_end,r1
314: load (r1),r1
315: cmp r0,r1
316: movei #L54,scratch
317: jump NE,(scratch)
318: nop
319:
320: movei #_music,r0
321: movei #_music_start,r1
322: load (r1),r1
323: store r1,(r0)
324: load (r0),r0
325: moveq #0,r1
326: cmp r0,r1
327: movei #L56,scratch
328: jump EQ,(scratch)
329: nop
330:
331: movei #_music,r0
332: load (r0),r1
333: addq #1,r1
334: store r1,(r0)
335:
336: L56:
337:
338: L54:
339:
340: movei #_musictime,r0
341: load (r0),r0
342: movei #_next_eventtime,r1
343: load (r1),r1
344: cmp r0,r1
345: movei #L58,scratch
346: jump NE,(scratch)
347: nop
348: movei #_M_GetEvent,r0
349: store r28,(FP+1) ; push ;(RETURNPOINT)
350: store r17,(FP+2) ; push ;(actual_endtime)
351: store r16,(FP+3) ; push ;(stop_time)
352: movei #L63,RETURNPOINT
353: jump T,(r0)
354: store r15,(FP+4) ; delay slot push ;(samples)
355: L63:
356: load (FP+2),r17 ; pop ;(actual_endtime)
357: load (FP+3),r16 ; pop ;(stop_time)
358: load (FP+4),r15 ; pop ;(samples)
359: load (FP+1), RETURNPOINT ; pop
360: moveq #0,r0
361: cmp r29,r0 ;(RETURNVALUE)
362: movei #L58,scratch
363: jump EQ,(scratch)
364: nop
365:
366: movei #L44,r0
367: jump T,(r0)
368: nop
369:
370: L58:
371:
372: L43:
373:
374: movei #_musictime,r0
375: load (r0),r0
376: cmp r0,r17 ;(actual_endtime)
377: movei #L42,scratch
378: jump NE,(scratch)
379: nop
380:
381: L44:
382:
383:
384: L41:
385: movei #44,scratch
386: jump T,(RETURNPOINT)
387: add scratch,FP ; delay slot
388:
389: ;====================
390: _M_GetEvent::
391: ;6 dag registers 2 register variables
392: ;localoffset:8 regoffset:12 argoffset:48
393: ;====================
394: movei #48,scratch
395: sub scratch,FP
396:
397: movei #_music,r0
398: load (r0),r1
399: loadb (r1),r2
400: move r2,r15 ;(cmd)
401: moveq #28,r2
402: move r15,r3 ;(cmd)
403: moveq #15,r4
404: move r3,r5
405: and r4,r5
406: move r5,r4
407: move r2,MATH_A
408: movei #L83,MATH_RTS
409: movei #GPU_IMUL,scratch
410: jump T,(scratch)
411: move r4,MATH_B ; delay slot
412: L83:
413: move MATH_C,r2
414: movei #_music_channels,r4
415: add r4,r2
416: move r2,r16 ;(ch)
417: movei #240,r2
418: and r2,r3
419: move r3,r2
420: move r2,r15 ;(cmd)
421: addq #1,r1
422: store r1,(r0)
423: move r15,r0 ;(cmd)
424: movei #48,r1
425: cmp r0,r1
426: movei #L65,scratch
427: jump NE,(scratch)
428: nop
429:
430: movei #_samples_per_midiclock,r0
431: movei #_music,r1
432: load (r1),r2
433: loadb (r2),r3
434: shlq #24,r3
435: store r3,(r0)
436: load (r0),r3
437: move r2,r4
438: addq #1,r4
439: loadb (r4),r4
440: shlq #16,r4
441: add r4,r3
442: store r3,(r0)
443: load (r0),r3
444: move r2,r4
445: addq #2,r4
446: loadb (r4),r4
447: shlq #8,r4
448: add r4,r3
449: store r3,(r0)
450: load (r0),r3
451: move r2,r4
452: addq #3,r4
453: loadb (r4),r4
454: add r4,r3
455: store r3,(r0)
456: move r2,r0
457: addq #4,r0
458: store r0,(r1)
459:
460: movei #L66,r0
461: jump T,(r0)
462: nop
463:
464: L65:
465:
466: move r15,r0 ;(cmd)
467: moveq #16,r1
468: cmp r0,r1
469: movei #L67,scratch
470: jump NE,(scratch)
471: nop
472:
473: move FP,r0
474: addq #8,r0 ; &instrument
475: movei #_music,r1
476: load (r1),r2
477: loadb (r2),r3
478: store r3,(r0)
479: addq #1,r2
480: store r2,(r1)
481: load (r0),r0
482: shlq #2,r0
483: movei #_instruments,r1
484: add r1,r0
485: load (r0),r0
486: store r0,(r16) ;(ch)
487:
488: move r16,r0 ;(ch)
489: addq #8,r0
490: movei #_music,r1
491: load (r1),r1
492: loadb (r1),r1
493: movei #_sfxvolume,r2
494: load (r2),r2
495: move r1,MATH_A
496: movei #L84,MATH_RTS
497: movei #GPU_IMUL,scratch
498: jump T,(scratch)
499: move r2,MATH_B ; delay slot
500: L84:
501: move MATH_C,r1
502: store r1,(r0)
503:
504: movei #_music,r0
505: load (r0),r1
506: moveq #1,r2
507: add r2,r1
508: store r1,(r0)
509: load (r0),r1
510: add r2,r1
511: store r1,(r0)
512: move r16,r1 ;(ch)
513: addq #12,r1
514: load (r0),r0
515: loadb (r0),r3
516: shlq #16,r3
517: move r0,r4
518: add r2,r4
519: loadb (r4),r2
520: shlq #8,r2
521: add r2,r3
522: addq #2,r0
523: loadb (r0),r0
524: move r3,r2
525: add r0,r2
526: store r2,(r1)
527:
528: movei #_music,r0
529: load (r0),r1
530: addq #3,r1
531: store r1,(r0)
532: move r16,r0 ;(ch)
533: addq #4,r0
534: load (r16),r1 ;(ch)
535: addq #28,r1
536: store r1,(r0)
537:
538: move r16,r0 ;(ch)
539: addq #16,r0
540: moveq #0,r1
541: store r1,(r0)
542:
543: move r16,r0 ;(ch)
544: addq #20,r0
545: moveq #0,r1
546: store r1,(r0)
547:
548: store r16,(FP) ; arg[] ;(ch)
549: movei #_musictime,r0
550: load (r0),r0
551: or r0,scratch ; scoreboard bug
552: store r0,(FP+1) ; arg[]
553: movei #_M_CalculateEndTime,r0
554: store r28,(FP+3) ; push ;(RETURNPOINT)
555: store r16,(FP+4) ; push ;(ch)
556: movei #L85,RETURNPOINT
557: jump T,(r0)
558: store r15,(FP+5) ; delay slot push ;(cmd)
559: L85:
560: load (FP+4),r16 ; pop ;(ch)
561: load (FP+5),r15 ; pop ;(cmd)
562: load (FP+3), RETURNPOINT ; pop
563:
564: movei #L68,r0
565: jump T,(r0)
566: nop
567:
568: L67:
569:
570: move r15,r0 ;(cmd)
571: movei #32,r1
572: cmp r0,r1
573: movei #L69,scratch
574: jump NE,(scratch)
575: nop
576:
577: move r16,r0 ;(ch)
578: addq #24,r0
579: moveq #0,r1
580: store r1,(r0)
581:
582: movei #L70,r0
583: jump T,(r0)
584: nop
585:
586: L69:
587:
588: move r15,r0 ;(cmd)
589: movei #64,r1
590: cmp r0,r1
591: movei #L71,scratch
592: jump NE,(scratch)
593: nop
594:
595: move r16,r0 ;(ch)
596: addq #8,r0
597: movei #_music,r1
598: load (r1),r1
599: loadb (r1),r1
600: movei #_sfxvolume,r2
601: load (r2),r2
602: move r1,MATH_A
603: movei #L86,MATH_RTS
604: movei #GPU_IMUL,scratch
605: jump T,(scratch)
606: move r2,MATH_B ; delay slot
607: L86:
608: move MATH_C,r1
609: store r1,(r0)
610:
611: movei #_music,r0
612: load (r0),r1
613: addq #2,r1
614: store r1,(r0)
615:
616: movei #L72,r0
617: jump T,(r0)
618: nop
619:
620: L71:
621:
622: move r15,r0 ;(cmd)
623: movei #80,r1
624: cmp r0,r1
625: movei #L73,scratch
626: jump NE,(scratch)
627: nop
628:
629: move r16,r0 ;(ch)
630: addq #12,r0
631: movei #_music,r1
632: load (r1),r1
633: loadb (r1),r2
634: shlq #16,r2
635: move r1,r3
636: addq #1,r3
637: loadb (r3),r3
638: shlq #8,r3
639: add r3,r2
640: addq #2,r1
641: loadb (r1),r1
642: add r1,r2
643: store r2,(r0)
644:
645: movei #_music,r0
646: load (r0),r1
647: addq #3,r1
648: store r1,(r0)
649: move r16,r0 ;(ch)
650: addq #24,r0
651: load (r0),r0
652: movei #_musictime,r1
653: load (r1),r1
654: cmp r0,r1
655: movei #L74,scratch
656: jump CC,(scratch)
657: nop
658:
659: store r16,(FP) ; arg[] ;(ch)
660: movei #_musictime,r0
661: load (r0),r0
662: or r0,scratch ; scoreboard bug
663: store r0,(FP+1) ; arg[]
664: movei #_M_CalculateEndTime,r0
665: store r28,(FP+3) ; push ;(RETURNPOINT)
666: store r16,(FP+4) ; push ;(ch)
667: movei #L87,RETURNPOINT
668: jump T,(r0)
669: store r15,(FP+5) ; delay slot push ;(cmd)
670: L87:
671: load (FP+4),r16 ; pop ;(ch)
672: load (FP+5),r15 ; pop ;(cmd)
673: load (FP+3), RETURNPOINT ; pop
674:
675: movei #L74,r0
676: jump T,(r0)
677: nop
678:
679: L73:
680:
681: move r15,r0 ;(cmd)
682: moveq #0,r1
683: cmp r0,r1
684: movei #L77,scratch
685: jump NE,(scratch)
686: nop
687:
688: movei #L78,r0
689: jump T,(r0)
690: nop
691:
692: L77:
693:
694: moveq #1,r0
695: move r0,RETURNVALUE
696:
697: movei #L64,r0
698: jump T,(r0)
699: nop
700:
701: L78:
702:
703: L74:
704:
705: L72:
706:
707: L70:
708:
709: L68:
710:
711: L66:
712:
713: movei #_music,r0
714: load (r0),r0
715: movei #_music_end,r1
716: load (r1),r1
717: cmp r0,r1
718: movei #L79,scratch
719: jump NE,(scratch)
720: nop
721:
722: movei #_music,r0
723: movei #_music_start,r1
724: load (r1),r1
725: store r1,(r0)
726: load (r0),r0
727: moveq #0,r1
728: cmp r0,r1
729: movei #L81,scratch
730: jump NE,(scratch)
731: nop
732:
733: moveq #1,r0
734: move r0,RETURNVALUE
735:
736: movei #L64,r0
737: jump T,(r0)
738: nop
739:
740: L81:
741:
742: L79:
743:
744: moveq #0,r0
745: move r0,RETURNVALUE
746:
747: L64:
748: movei #48,scratch
749: jump T,(RETURNPOINT)
750: add scratch,FP ; delay slot
751:
752: ;====================
753: _M_PaintUnsatSound::
754: ;5 dag registers 4 register variables
755: ;localoffset:12 regoffset:12 argoffset:52
756: ;====================
757: movei #52,scratch
758: sub scratch,FP
759:
760: movei #_music_channels,r0
761: move r0,r16 ;(chan)
762: movei #_musictime,r0
763: load (r0),r0
764: load (FP+13),r1 ; local samples
765: add r1,r0
766: move r0,r18 ;(endtime)
767:
768: movei #L90,r0
769: jump T,(r0)
770: nop
771:
772: L89:
773:
774: movei #_musictime,r0
775: load (r0),r0
776: move r0,r15 ;(channeltime)
777: move r16,r0 ;(chan)
778: addq #24,r0
779: load (r0),r0
780: move r15,r1 ;(channeltime)
781: cmp r0,r1
782: movei #L93,scratch
783: jump CC,(scratch)
784: nop
785:
786: movei #L96,r0
787: jump T,(r0)
788: nop
789:
790: L95:
791:
792: move r16,r0 ;(chan)
793: addq #24,r0
794: load (r0),r0
795: move r18,r1 ;(endtime)
796: cmp r0,r1
797: movei #L98,scratch
798: jump EQ,(scratch)
799: nop
800: jump CS,(scratch)
801: nop
802:
803: move r16,r0 ;(chan)
804: addq #24,r0
805: load (r0),r0
806: move r0,r17 ;(stoptime)
807:
808: movei #L99,r0
809: jump T,(r0)
810: nop
811:
812: L98:
813:
814: move r18,r17 ;(endtime)(stoptime)
815:
816: L99:
817:
818: store r16,(FP) ; arg[] ;(chan)
819: move r17,r0 ;(stoptime)
820: sub r15,r0 ;(channeltime)
821: or r0,scratch ; scoreboard bug
822: store r0,(FP+1) ; arg[]
823: movei #_musictime,r0
824: load (r0),r0
825: move r15,r1 ;(channeltime)
826: sub r0,r1
827: or r1,scratch ; scoreboard bug
828: store r1,(FP+2) ; arg[]
829: movei #_M_PaintSingleChannel,r0
830: store r28,(FP+3) ; push ;(RETURNPOINT)
831: store r18,(FP+4) ; push ;(endtime)
832: store r17,(FP+5) ; push ;(stoptime)
833: store r16,(FP+6) ; push ;(chan)
834: movei #L104,RETURNPOINT
835: jump T,(r0)
836: store r15,(FP+7) ; delay slot push ;(channeltime)
837: L104:
838: load (FP+4),r18 ; pop ;(endtime)
839: load (FP+5),r17 ; pop ;(stoptime)
840: load (FP+6),r16 ; pop ;(chan)
841: load (FP+7),r15 ; pop ;(channeltime)
842: load (FP+3), RETURNPOINT ; pop
843:
844: move r17,r15 ;(stoptime)(channeltime)
845: move r16,r0 ;(chan)
846: addq #24,r0
847: load (r0),r0
848: move r15,r1 ;(channeltime)
849: cmp r0,r1
850: movei #L100,scratch
851: jump NE,(scratch)
852: nop
853:
854: load (r16),r0 ;(chan)
855: addq #12,r0
856: load (r0),r0
857: moveq #2,r1
858: and r1,r0
859: moveq #0,r1
860: cmp r0,r1
861: movei #L102,scratch
862: jump EQ,(scratch)
863: nop
864:
865: moveq #4,r0
866: move r16,r1 ;(chan)
867: add r0,r1
868: load (r1),r2
869: load (r16),r3 ;(chan)
870: move r3,r4
871: addq #8,r4
872: load (r4),r4
873: add r0,r3
874: load (r3),r0
875: move r4,r3
876: sub r0,r3
877: move r2,r0
878: sub r3,r0
879: store r0,(r1)
880:
881: store r16,(FP) ; arg[] ;(chan)
882: or r15,scratch ; scoreboard bug ;(channeltime)
883: store r15,(FP+1) ; arg[] ;(channeltime)
884: movei #_M_CalculateEndTime,r0
885: store r28,(FP+3) ; push ;(RETURNPOINT)
886: store r18,(FP+4) ; push ;(endtime)
887: store r17,(FP+5) ; push ;(stoptime)
888: store r16,(FP+6) ; push ;(chan)
889: movei #L105,RETURNPOINT
890: jump T,(r0)
891: store r15,(FP+7) ; delay slot push ;(channeltime)
892: L105:
893: load (FP+4),r18 ; pop ;(endtime)
894: load (FP+5),r17 ; pop ;(stoptime)
895: load (FP+6),r16 ; pop ;(chan)
896: load (FP+7),r15 ; pop ;(channeltime)
897: load (FP+3), RETURNPOINT ; pop
898:
899: movei #L103,r0
900: jump T,(r0)
901: nop
902:
903: L102:
904:
905: move r18,r15 ;(endtime)(channeltime)
906:
907: L103:
908:
909: L100:
910:
911: L96:
912:
913: cmp r15,r18 ;(channeltime)(endtime)
914: movei #L95,scratch
915: jump NE,(scratch)
916: nop
917:
918: L93:
919:
920: move r16,r0 ;(chan)
921: addq #28,r0
922: move r0,r16 ;(chan)
923:
924: L90:
925:
926: move r16,r0 ;(chan)
927: movei #_music_channels+280,r1
928: cmp r0,r1
929: movei #L89,scratch
930: jump NE,(scratch)
931: nop
932:
933:
934: L88:
935: movei #52,scratch
936: jump T,(RETURNPOINT)
937: add scratch,FP ; delay slot
938:
939: ;====================
940: _M_CalculateEndTime::
941: ;6 dag registers 1 register variables
942: ;localoffset:0 regoffset:0 argoffset:0
943: ;====================
944:
945: load (FP),r0 ; local channel
946: move r0,r1
947: addq #4,r1
948: load (r1),r1
949: load (r0),r2
950: addq #28,r2
951: sub r2,r1
952: move r1,r15 ;(samples_left)
953: load (r0),r0
954: addq #12,r0
955: load (r0),r0
956: moveq #2,r1
957: and r1,r0
958: moveq #0,r1
959: cmp r0,r1
960: movei #L107,scratch
961: jump EQ,(scratch)
962: nop
963:
964: load (FP),r0 ; local channel
965: load (r0),r0
966: addq #8,r0
967: load (r0),r0
968: sub r15,r0 ;(samples_left)
969: shlq #15,r0
970: move r0,r15 ;(samples_left)
971:
972: movei #L108,r0
973: jump T,(r0)
974: nop
975:
976: L107:
977:
978: load (FP),r0 ; local channel
979: load (r0),r0
980: load (r0),r0
981: sub r15,r0 ;(samples_left)
982: shlq #15,r0
983: move r0,r15 ;(samples_left)
984:
985: L108:
986:
987: load (FP),r0 ; local channel
988: move r0,r1
989: addq #24,r1
990: load (FP+1),r2 ; local t
991: move r15,r3 ;(samples_left)
992: move r0,r4
993: addq #16,r4
994: load (r4),r4
995: moveq #1,r5
996: sha r5,r4
997: sub r4,r3
998: addq #12,r0
999: load (r0),r0
1000: add r5,r0
1001: sha r5,r0
1002: div r0,r3
1003: move r2,r0
1004: add r3,r0
1005: store r0,(r1)
1006:
1007:
1008: L106:
1009: jump T,(RETURNPOINT)
1010: nop ; delay slot
1011:
1012: ;=======================
1013:
1014: .long
1015: _internal_buffer::
1016: .dc.l 0
1017: .dc.l 0
1018: .dc.l 0
1019: .dc.l 0
1020: .dc.l 0
1021: .dc.l 0
1022: .dc.l 0
1023: .dc.l 0
1024: .dc.l 0
1025: .dc.l 0
1026: .dc.l 0
1027: .dc.l 0
1028: .dc.l 0
1029: .dc.l 0
1030: .dc.l 0
1031: .dc.l 0
1032: .dc.l 0
1033: .dc.l 0
1034: .dc.l 0
1035: .dc.l 0
1036: .dc.l 0
1037: .dc.l 0
1038: .dc.l 0
1039: .dc.l 0
1040: .dc.l 0
1041: .dc.l 0
1042: .dc.l 0
1043: .dc.l 0
1044: .dc.l 0
1045: .dc.l 0
1046: .dc.l 0
1047: .dc.l 0
1048: .dc.l 0
1049: .dc.l 0
1050: .dc.l 0
1051: .dc.l 0
1052: .dc.l 0
1053: .dc.l 0
1054: .dc.l 0
1055: .dc.l 0
1056: .dc.l 0
1057: .dc.l 0
1058: .dc.l 0
1059: .dc.l 0
1060: .dc.l 0
1061: .dc.l 0
1062: .dc.l 0
1063: .dc.l 0
1064: .dc.l 0
1065: .dc.l 0
1066: .dc.l 0
1067: .dc.l 0
1068: .dc.l 0
1069: .dc.l 0
1070: .dc.l 0
1071: .dc.l 0
1072: .dc.l 0
1073: .dc.l 0
1074: .dc.l 0
1075: .dc.l 0
1076: .dc.l 0
1077: .dc.l 0
1078: .dc.l 0
1079: .dc.l 0
1080: .dc.l 0
1081: .dc.l 0
1082: .dc.l 0
1083: .dc.l 0
1084: .dc.l 0
1085: .dc.l 0
1086: .dc.l 0
1087: .dc.l 0
1088: .dc.l 0
1089: .dc.l 0
1090: .dc.l 0
1091: .dc.l 0
1092: .dc.l 0
1093: .dc.l 0
1094: .dc.l 0
1095: .dc.l 0
1096: .dc.l 0
1097: .dc.l 0
1098: .dc.l 0
1099: .dc.l 0
1100: .dc.l 0
1101: .dc.l 0
1102: .dc.l 0
1103: .dc.l 0
1104: .dc.l 0
1105: .dc.l 0
1106: .dc.l 0
1107: .dc.l 0
1108: .dc.l 0
1109: .dc.l 0
1110: .dc.l 0
1111: .dc.l 0
1112: .dc.l 0
1113: .dc.l 0
1114: .dc.l 0
1115: .dc.l 0
1116: .dc.l 0
1117: .dc.l 0
1118: .dc.l 0
1119: .dc.l 0
1120: .dc.l 0
1121: .dc.l 0
1122: .dc.l 0
1123: .dc.l 0
1124: .dc.l 0
1125: .dc.l 0
1126: .dc.l 0
1127: .dc.l 0
1128: .dc.l 0
1129: .dc.l 0
1130: .dc.l 0
1131: .dc.l 0
1132: .dc.l 0
1133: .dc.l 0
1134: .dc.l 0
1135: .dc.l 0
1136: .dc.l 0
1137: .dc.l 0
1138: .dc.l 0
1139: .dc.l 0
1140: .dc.l 0
1141: .dc.l 0
1142: .dc.l 0
1143: .dc.l 0
1144: .dc.l 0
1145: .dc.l 0
1146: .dc.l 0
1147: .dc.l 0
1148: .dc.l 0
1149: .dc.l 0
1150: .dc.l 0
1151: .dc.l 0
1152: .dc.l 0
1153: .dc.l 0
1154: .dc.l 0
1155: .dc.l 0
1156: .dc.l 0
1157: .dc.l 0
1158: .dc.l 0
1159: .dc.l 0
1160: .dc.l 0
1161: .dc.l 0
1162: .dc.l 0
1163: .dc.l 0
1164: .dc.l 0
1165: .dc.l 0
1166: .dc.l 0
1167: .dc.l 0
1168: .dc.l 0
1169: .dc.l 0
1170: .dc.l 0
1171: .dc.l 0
1172: .dc.l 0
1173: .dc.l 0
1174: .dc.l 0
1175: .dc.l 0
1176: .dc.l 0
1177: .dc.l 0
1178: .dc.l 0
1179: .dc.l 0
1180: .dc.l 0
1181: .dc.l 0
1182: .dc.l 0
1183: .dc.l 0
1184: .dc.l 0
1185: .dc.l 0
1186: .dc.l 0
1187: .dc.l 0
1188: .dc.l 0
1189: .dc.l 0
1190: .dc.l 0
1191: .dc.l 0
1192: .dc.l 0
1193: .dc.l 0
1194: .dc.l 0
1195: .dc.l 0
1196: .dc.l 0
1197: .dc.l 0
1198: .dc.l 0
1199: .dc.l 0
1200: .dc.l 0
1201: .dc.l 0
1202: .dc.l 0
1203: .dc.l 0
1204: .dc.l 0
1205: .dc.l 0
1206: .dc.l 0
1207: .dc.l 0
1208: .dc.l 0
1209: .dc.l 0
1210: .dc.l 0
1211: .dc.l 0
1212: .dc.l 0
1213: .dc.l 0
1214: .dc.l 0
1215: .dc.l 0
1216: .dc.l 0
1217: .dc.l 0
1218: .dc.l 0
1219: .dc.l 0
1220: .dc.l 0
1221: .dc.l 0
1222: .dc.l 0
1223: .dc.l 0
1224: .dc.l 0
1225: .dc.l 0
1226: .dc.l 0
1227: .dc.l 0
1228: .dc.l 0
1229: .dc.l 0
1230: .dc.l 0
1231: .dc.l 0
1232: .dc.l 0
1233: .dc.l 0
1234: .dc.l 0
1235: .dc.l 0
1236: .dc.l 0
1237: .dc.l 0
1238: .dc.l 0
1239: .dc.l 0
1240: .dc.l 0
1241: .dc.l 0
1242: .dc.l 0
1243: .dc.l 0
1244: .dc.l 0
1245: .dc.l 0
1246: .dc.l 0
1247: .dc.l 0
1248: .dc.l 0
1249: .dc.l 0
1250: .dc.l 0
1251: .dc.l 0
1252: .dc.l 0
1253: .dc.l 0
1254: .dc.l 0
1255: .dc.l 0
1256: .dc.l 0
1257: .dc.l 0
1258: .dc.l 0
1259: .dc.l 0
1260: .dc.l 0
1261: .dc.l 0
1262: .dc.l 0
1263: .dc.l 0
1264: .dc.l 0
1265: .dc.l 0
1266: .dc.l 0
1267: .dc.l 0
1268: .dc.l 0
1269: .dc.l 0
1270: .dc.l 0
1271: .dc.l 0
1272: .extern _M_WriteOutSamples
1273: .extern _samples_per_midiclock
1274: .extern _music_end
1275: .extern _music_start
1276: .extern _music
1277: .extern _next_eventtime
1278: .extern _musictime
1279: .extern _music_channels
1280: .extern _instruments
1281: .extern _samplecount
1282: .extern _sfxvolume
1283: .extern _M_PaintSingleChannel
1284:
1285: .phrase
1286: .68000
1287: codeend:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.