If you are still using the old URL (datacrystal.romhacking.net), please update your bookmarks! The old URL may stop working soon.
The current URL is datacrystal.tcrf.net.
The current URL is datacrystal.tcrf.net.
Chrono Trigger (SNES)/Sound Core Documentation: Difference between revisions
Jump to navigation
Jump to search
(→top) |
m (Hawk moved page Chrono Trigger/Sound Core Documentation to Chrono Trigger (SNES)/Sound Core Documentation) |
(No difference)
| |
Latest revision as of 21:03, 28 January 2024
This is a sub-page of Chrono Trigger (SNES).
; Chrono Trigger sound core documentation ; MathOnNapkins ; Version 4 1C = $0D2D (D 5) 2A = ??? (D#5) 46 = $0FAB (F) 54 = $109B (F#5) 8C = $14EA (A#5) 8C / 0x0E -> A octave + note - 0x0A 0x3C + 0x0A - 0x0A = 0x3C (final note value) we go to routine $06BD ; $02[0x10] = ; $22 = KON mirror (notes to key on each frame) ; $23 = KOFF mirror (notes to key off each frame) ; $24 = primary ???? ; $25 = secondary ???? ; $26[0x10] = low byte per channel: frames left until the next note is keyed (similar to N-SPC) = high byte per channel: number of loops deep the channel is currently nested in. ; $27 = see $26 ; $36[0x10] = frames left until the next sound effect note is keyed ; $46 = fractional part of tempo, only relevant when doing tempo fade ; $47 = tempo ; $48 = ; $4A = tempo fade countdown timer (while this is nonzero it counts down and $47 decreases gradually, though not at the same rate as this location.) ; $4B[0x02] = tempo fade rate (technically it can be used to increase tempo too) ; $4D = global volume multiplier ; $4E = low byte of echo volume but doesn't actually affect output (used as a fractional portion for echo fades) ; $4F = echo volume (capped at 0x7F more or less) ; $50 = echo volume step value (low byte) ; $51 = echo volume step value (high byte) each frame when echo slide is enabled, this amount gets added to $4E.w ; $52 = countdown timer for echo slide (similar to $4E for volume tempo fade) ; $53 = ; $54 = flag byte for channels that have echo enabled ; $55 = secondary version of $54 (for sfx) ; $56 = ???? ; $57 = ???? ; $58 = ???? ; $59 = ???? ; $5A = primary ???? ; $5B = secondary ; $91 = current channel number expressed in terms of a bit that gets shifted to indicate which one ; $7C = each bit represents a channel that has percussion mode enabled (meaning a single byte can change the instrument) ; $A3 = similar to $91 but is used to indicate how many tracks still need processing ; $1E00[0x100] = sample table (DIR) ; $1F00[0x80] = data relating to instruments ; $1F80[0x80] = data relating to instruments ; $2000[0x02] = pointer to the start of the song data ; $2002[0x02] = pointer to the end of the song data ; $2004[0x10] = starting track pointers ; $2014[0x10] = always seems to be a copy of $2004[0x10]... not sure when this is used ; $2024[0xEEC] = main song track data ; $2F00[0x400] = table of 2 byte pointers to reusable track data. ; $3300[0x1400]= reusable track data? maybe sound effects? ; $4700[0x ; $E100[0x1000] = echo buffer ; $F200[0x10] = 2 bytes per channel. First byte is octave, second is instrument (aka sample) ; $F210[0x10] = sfx version of $F200[0x10] ; $F220+X = per channel volume gain (multiplier, so this isn't the same as $F240+X below ; $F221+X = ; $F240+X[2] = per channel volume ; $F260+X[2] = volume ramp increment amount ; $F280+X = ???? ; $F2C0+X = channel volume ramp countdown timer ; $F380+X = channel sample tuning value (low byte) ; $F381+X = channel sample tuning value (high byte) ; $F3A0+X = channel fine tune value (not used much and probably shouldn't be either) ; $F3A1+X = ; $F500+X = low byte of value that gets added to the baes note when vibrato is active ; $F501+X = high byte of value that gets added to the base note when vibrato is active ; $F520+X = low byte of pitch register value ; $F521+X = high byte of pitch register value ; $F540+X = channel ADSR1 ; $F541+X = channel ADSR2 ; $F5C0+X[2] = return address for a call loop SoundStart: ; start of the sound engine 0200: 20 clrp 0201: c0 di 0202: cd ff mov x,#$ff 0204: bd mov sp,x 0205: e8 00 mov a,#$00 0207: 5d mov x,a $0208: 0208: af mov (x)+,a 0209: c8 f0 cmp x,#$f0 020b: d0 fb bne $0208 020d: 8b 80 dec $80 020f: 1a bb decw $bb 0211: 8d 2c mov y,#$2c 0213: 3f a3 07 call WriteDSP ; EVOLL = 0x00; 0216: 8d 3c mov y,#$3c 0218: 3f a3 07 call WriteDSP ; EVOLR = 0x00; 021b: cd 40 mov x,#$40 $021D: 021d: d5 6e f1 mov $f16e+x,a 0220: 1d dec x 0221: 1d dec x 0222: 1d dec x 0223: 1d dec x 0224: d0 f7 bne $021d 0226: e8 1e mov a,#$1e 0228: 8d 5d mov y,#$5d 022a: 3f a3 07 call WriteDSP ; DIR = 0x1E; // sample table is at $1E00 022d: 8d 07 mov y,#$07 022f: cd a0 mov x,#$a0 $0231: 0231: cb f2 mov $f2,y 0233: d8 f3 mov $f3,x ; VxGAIN = 0xA0; // all 8 voices are written 0235: dd mov a,y 0236: 60 clrc 0237: 88 10 adc a,#$10 0239: fd mov y,a ; Y += 0x10; 023a: 10 f5 bpl $0231 ; if(y < 0x80) goto $0231; 023c: 8f 30 f1 mov $f1,#$30 ; Reset input ports 023f: 8f 2a fa mov $fa,#$2a ; Timer 0 set point is 0x2A; 0242: 8f 80 fb mov $fb,#$80 ; Timer 1 set point is 0x80; 0245: 8f 03 f1 mov $f1,#$03 ; Enable T0 and T1 (timers 0 and 1) 0248: 8f 05 8e mov $8e,#$05 ; $8E = 0x05; 024b: 3f 2e 13 call $132e ; 024e: 8b 23 dec $23 0250: 8f 07 bd mov $bd,#$07 0253: cd 06 mov x,#$06 ; $23--; $BD = 0x07; X = 0x06; $0255: 0255: e8 ff mov a,#$ff 0257: d5 5f f1 mov $f15f+x,a 025a: bc inc a 025b: d5 64 f1 mov $f164+x,a 025e: 1d dec x 025f: 1d dec x ; $F15F+X = 0xFF; $F164+X = 0x00; X -= 2; 0260: d0 f3 bne $0255 ; if(X) goto $0255; 0262: e8 c2 mov a,#$c2 0264: c5 40 1e mov $1e40,a ; $1E40 = 0xC2; 0267: e8 1d mov a,#$1d 0269: c5 41 1e mov $1e41,a ; $1E41 = 0x1D; 026c: e8 cb mov a,#$cb 026e: c5 42 1e mov $1e42,a ; $1E42 = 0xCB; 0271: e8 1d mov a,#$1d 0273: c5 43 1e mov $1e43,a ; $1E43 = 0x1D; 0276: e8 ff mov a,#$ff 0278: c5 a0 1f mov $1fa0,a ; $1FA0 = 0xFF; 027b: e8 e0 mov a,#$e0 027d: c5 a1 1f mov $1fa1,a ; $1FA1 = 0xE0; 0280: e8 e1 mov a,#$e1 0282: c5 20 1f mov $1f20,a ; $1F20 = 0xE1; 0285: e8 00 mov a,#$00 0287: c5 21 1f mov $1f21,a ; $1F21 = 0x00; 028a: e8 40 mov a,#$40 028c: 8d 0c mov y,#$0c 028e: 3f a3 07 call WriteDSP ; MVOLL = 0x40; 0291: 8d 1c mov y,#$1c 0293: 3f a3 07 call WriteDSP ; MVOLR = 0x40; 0296: 8f 02 d8 mov $D8,#$02 ; $D8 = 0x02; $0299: 0299: 3f 96 0b call $0b96 ; Checks for S-CPU communication while waiting for the timer to increment 029c: eb fd mov y,$fd 029e: f0 f9 beq $0299 ; if(!T0Out) goto $0299; 02a0: 8d 11 mov y,#$11 02a2: e4 4f mov a,$4f ; Echo settings, (exact affect on the DSP unknown at the moment) 02a4: 73 87 07 bbc3 $87,$02AE ; if(($87 & 0x08) == 0) goto $02AE; 02a7: 1c asl a ; A <<= 1; 02a8: 90 04 bcc $02AE ; if(!carry) $02AE; 02aa: e8 7f mov a,#$7f ; A = 0x7F; 02ac: 2f 00 bra $02ae $02AE: ; *sigh* zero length branch >_> 02ae: c4 d9 mov $d9,a $02B0: 02b0: f6 ff 16 mov a,RegList-1+y 02b3: c4 f2 mov $f2,a ; latch DSP register indicated from $16FF+Y 02b5: f6 10 17 mov a,LoadList-1+y 02b8: 5d mov x,a ; X = $1710+Y 02b9: e6 mov a,(x) 02ba: c4 f3 mov $f3,a ; set DSP register to value loaded from 02bc: fe f2 dbnz y,$02B0 ; Y--; if(Y) goto $02B0; 02be: cb 23 mov $23,y 02c0: cb 22 mov $22,y 02c2: e3 88 1a bbs7 $88,$02DF ; if($88 & 0x80) goto $02DF; 02c5: e4 53 mov a,$53 02c7: 9f xcn a 02c8: 04 53 or a,$53 02ca: 28 0f and a,#$0f 02cc: 04 86 or a,$86 02ce: fd mov y,a ; Y = ($53 >> 4) | $86; 02cf: e4 d3 mov a,$d3 02d1: 9f xcn a 02d2: 04 7b or a,$7b ; A = ($D3 >> 4) | ($D3 << 4) | $7B; 02d4: da f6 movw $f6,ya ; CPUO2.w = YA; 02d6: ec 66 f1 mov y,$f166 02d9: e8 00 mov a,#$00 02db: da f4 movw $f4,ya ; CPUO0.w = $1F66 << 8; 02dd: 2f 03 bra $02E2 $02DF: 02df: 3f 38 14 call $1438 $02E2: 02e2: 83 87 b4 bbs4 $87,$0299 02e5: 8b bd dec $bd 02e7: d0 06 bne $02ef 02e9: 8f 07 bd mov $bd,#$07 02ec: 3f 92 14 call $1492 $02EF: 02ef: 3f 77 03 call $0377 ; does general note setup, including calling the tracker 02f2: 3f cd 08 call $08cd ; probably more handshaking crap.... 02f5: 83 87 a1 bbs4 $87,$0299 ; ignore this 02f8: cd 00 mov x,#$00 02fa: 8f 01 91 mov $91,#$01 02fd: e4 86 mov a,$86 02ff: 48 ff eor a,#$ff 0301: 24 53 and a,$53 0303: 24 24 and a,$24 0305: c4 a3 mov $a3,a ; $A3 = (($86 ^ 0xFF) & $53 & $24); (these are the channels that have permission to play this frame) 0307: e5 61 f1 mov a,$f161 030a: c4 a8 mov $a8,a ; $A8 = $F161; 030c: 2f 15 bra $0323 $030E: ; play loop? 030e: d8 a6 mov $a6,x 0310: e4 86 mov a,$86 0312: d0 05 bne $0319 0314: 3f 03 09 call $0903 ; plays the actual note 0317: 2f 03 bra $031c $0319: 0319: 3f f6 09 call $09f6 $031C: 031c: 3f 92 08 call $0892 ; check for S-CPU side commands $031F: 031f: 3d inc x 0320: 3d inc x 0321: 0b 91 asl $91 ; X += 2; $91 <<= 1; $0323: 0323: 4b a3 lsr $a3 ; $A3 >>= 1; 0325: b0 e7 bcs $030e ; if(carry) goto $030E; 0327: d0 f6 bne $031f ; if($A3) goto $031F; this channel is off but other channels still need to play 0329: cd 1e mov x,#$1e 032b: 8f 80 91 mov $91,#$80 ; X = 0x1E; $91 = 0x80; 032e: e4 86 mov a,$86 0330: 24 25 and a,$25 0332: c4 a3 mov $a3,a ; $A3 = ($86 & $25) 0334: e5 63 f1 mov a,$f163 0337: c4 a8 mov $a8,a ; $A8 = $F163; 0339: 2f 0f bra $034a ; goto $034A; $033B: 033b: d8 a6 mov $a6,x 033d: 3f 03 09 call $0903 0340: 3f 92 08 call $0892 $0343: 0343: 1d dec x 0344: 1d dec x 0345: 4b 91 lsr $91 0347: a3 91 06 bbs5 $91,$0350 $034A: 034a: 0b a3 asl $a3 034c: b0 ed bcs $033b 034e: 2f f3 bra $0343 $0350: 0350: e5 65 f1 mov a,$f165 0353: c4 a8 mov $a8,a 0355: 2f 0c bra $0363 0357: d8 a6 mov $a6,x 0359: 3f 03 09 call $0903 035c: 3f 92 08 call $0892 035f: 1d dec x 0360: 1d dec x 0361: 4b 91 lsr $91 $0363: 0363: 0b a3 asl $a3 0365: b0 f0 bcs $0357 0367: d0 f6 bne $035f 0369: e8 00 mov a,#$00 036b: fd mov y,a 036c: da d0 movw $d0,ya 036e: 3f cd 08 call $08cd 0371: 3f 5c 0b call $0b5c 0374: 5f 99 02 jmp $0299 ; *********************************************** 0377: a3 88 1f bbs5 $88,$0399 037a: e4 47 mov a,$47 037c: eb aa mov y,$aa 037e: f0 12 beq $0392 0380: cf mul ya 0381: dd mov a,y 0382: e3 aa 0a bbs7 $aa,$038F 0385: 1c asl a 0386: 60 clrc 0387: 84 47 adc a,$47 0389: 90 07 bcc $0392 038b: e8 ff mov a,#$ff 038d: 2f 03 bra $0392 $038F: 038f: d0 01 bne $0392 0391: bc inc a $0392: 0392: 60 clrc 0393: 84 48 adc a,$48 0395: c4 48 mov $48,a 0397: 90 63 bcc $03FC $0399: 0399: cd 00 mov x,#$00 039b: 8f 01 91 mov $91,#$01 039e: fa 53 a3 mov ($a3),($53) ; ($A3) = ($53); 03a1: 2f 44 bra $03e7 ; $03A3: 03a3: d8 a6 mov $a6,x ; save track index incase X gets used for something else 03a5: 9b 26 dec $26+x ; wait timer for each track before playing a new note 03a7: d0 0a bne $03B3 ; if($26+X) goto $03B3; // if note is still playing don't do any tracking for this channel for this frame 03a9: 72 88 clr3 $88 ; $88 &= $F7; // zero out bit 3 03ab: 3f 07 05 call $0507 ; call the tracker 03ae: 73 88 2c bbc3 $88,$03DD 03b1: 2f 30 bra $03E3 $03B3: 03b3: 8d 00 mov y,#$00 03b5: c8 10 cmp x,#$10 03b7: b0 01 bcs $03BA ; bug? or disassembling error? 03b9: e8 fc mov a,#$fc ; ... 03bb: e8 02 mov a,#$02 03bd: de 26 1d cbne $26+x,$03DD ; if($26+X != 0x02) goto $03DD; 03c0: f6 5a 00 mov a,$005a+y ; either loads from $5A or $5B (depending on primary or secondary track) 03c3: 24 91 and a,$91 03c5: d0 16 bne $03dd ; if($5A+Y & $91) goto $03DD; 03c7: e4 91 mov a,$91 03c9: 48 ff eor a,#$ff 03cb: 36 24 00 and a,$0024+y 03ce: d6 24 00 mov $0024+y,a ; $24+Y = ($24+Y & ($91 ^ 0xFF)); // masks the current channel out of $24+Y, (whatever that does) 03d1: dd mov a,y 03d2: d0 06 bne $03da ; if(Y == 1) goto $03DA; // it will only be 1 or 0 based on the code above ; Y = 0 means we're using primary tracks, 1 means secondary tracks 03d4: e4 86 mov a,$86 03d6: 24 91 and a,$91 03d8: d0 03 bne $03dd ; if($86 & $91) goto $03DD; 03da: 09 91 23 or ($23),($91) ; $23 |= $91; $03DD: 03dd: 3f af 07 call $07af ; 03e0: 3f 92 08 call $0892 $03E3: 03e3: 3d inc x 03e4: 3d inc x 03e5: 0b 91 asl $91 ; track number...? $03E7: 03e7: 4b a3 lsr $a3 03e9: b0 b8 bcs $03a3 ; if(carry) goto $03A3; 03eb: d0 f6 bne $03e3 ; if($A3) goto $03E3; 03ed: c8 18 cmp x,#$18 03ef: b0 23 bcs $0414 ; if(X >= 0x18) return; 03f1: 3f c7 04 call $04c7 03f4: e4 86 mov a,$86 03f6: 4e d0 00 tclr1 $00d0 03f9: 4e d1 00 tclr1 $00d1 $03FC: 03fc: a3 88 09 bbs5 $88,$0407 03ff: e8 81 mov a,#$81 0401: 60 clrc 0402: 84 49 adc a,$49 0404: c4 49 mov $49,a 0406: 90 0c bcc $0414 0408: cd 18 mov x,#$18 040a: 8f 10 91 mov $91,#$10 040d: e4 86 mov a,$86 040f: 9f xcn a 0410: c4 a3 mov $a3,a 0412: 2f d3 bra $03e7 $0414: 0414: 6f ret ; ********************************************* $0415: 0415: 83 87 4b bbs4 $87,$0463 ; if($87 & 0x80) return; 0418: 8d 11 mov y,#$11 $041A: 041a: f6 ff 16 mov a,RegList-1+y 041d: c4 f2 mov $f2,a 041f: f6 10 17 mov a,LoadList-1+y 0422: 5d mov x,a 0423: e6 mov a,(x) 0424: c4 f3 mov $f3,a 0426: fe f2 dbnz y,$041a 0428: cb 23 mov $23,y ; nothing is keyed off 042a: cb 22 mov $22,y ; but nothing is keyed on 042c: 8b bd dec $bd 042e: d0 06 bne $0436 0430: 8f 07 bd mov $bd,#$07 0433: 3f 92 14 call $1492 ; $0436: 0436: 3f 64 04 call $0464 0439: cd 00 mov x,#$00 043b: 8f 01 91 mov $91,#$01 043e: e4 86 mov a,$86 0440: 48 ff eor a,#$ff 0442: 24 53 and a,$53 0444: 24 24 and a,$24 0446: c4 a3 mov $a3,a 0448: e5 61 f1 mov a,$f161 044b: c4 a8 mov $a8,a 044d: 2f 09 bra $0458 $044F: 044f: d8 a6 mov $a6,x 0451: 3f 03 09 call $0903 $0454" 0454: 3d inc x 0455: 3d inc x 0456: 0b 91 asl $91 0458: 4b a3 lsr $a3 045a: b0 f3 bcs $044F 045c: d0 f6 bne $0454 045e: e8 00 mov a,#$00 0460: fd mov y,a 0461: da d0 movw $d0,ya $0463: 0463: 6f ret 0464: e4 47 mov a,$47 0466: eb aa mov y,$aa 0468: f0 12 beq $047c 046a: cf mul ya 046b: dd mov a,y 046c: e3 aa 0a bbs7 $aa,$0479 046f: 1c asl a 0470: 60 clrc 0471: 84 47 adc a,$47 0473: 90 07 bcc $047C 0475: e8 ff mov a,#$ff 0477: 2f 03 bra $047c $0479: 0479: d0 01 bne $047c 047b: bc inc a $047C: 047c: 60 clrc 047d: 84 48 adc a,$48 047f: c4 48 mov $48,a 0481: 90 43 bcc $04c6 0483: cd 00 mov x,#$00 0485: 8f 01 91 mov $91,#$01 0488: fa 53 a3 mov ($a3),($53) 048b: 2f 30 bra $04bd $048D: 048d: d8 a6 mov $a6,x 048f: 9b 26 dec $26+x 0491: d0 0a bne $049d 0493: 72 88 clr3 $88 0495: 3f 07 05 call $0507 ; call the tracker... 0498: 73 88 1b bbc3 $88,$04b5 049b: 2f 1c bra $04b9 $049D: 049d: e8 02 mov a,#$02 049f: de 26 14 cbne $26+x,$04b6 04a2: e4 5a mov a,$5a 04a4: 24 91 and a,$91 04a6: d0 0e bne $04b6 04a8: e4 91 mov a,$91 04aa: 4e 24 00 tclr1 $0024 04ad: e4 86 mov a,$86 04af: 24 91 and a,$91 04b1: d0 03 bne $04b6 04b3: 09 91 23 or ($23),($91) $04B6: 04b6: 3f af 07 call $07af 04b9: 3d inc x 04ba: 3d inc x 04bb: 0b 91 asl $91 $04BD: 04bd: 4b a3 lsr $a3 04bf: b0 cc bcs $048d 04c1: d0 f6 bne $04b9 04c3: 3f c7 04 call $04c7 $04C6: 04c6: 6f ret ; ****************************************** $04C7: 04c7: e4 4a mov a,$4a 04c9: f0 08 beq $04d3 ; if(!$4A) goto $04D3; 04cb: 8b 4a dec $4a ; $4A--; 04cd: ba 4b movw ya,$4b 04cf: 7a 46 addw ya,$46 04d1: da 46 movw $46,ya ; $46.w += $4B.w; $04D3: 04d3: e4 52 mov a,$52 04d5: f0 08 beq $04df ; if(!$52) goto $04DF; 04d7: 8b 52 dec $52 ; $52--; 04d9: ba 50 movw ya,$50 04db: 7a 4e addw ya,$4e 04dd: da 4e movw $4e,ya ; $4E.w += $50.w; $04DF: 04df: e4 78 mov a,$78 04e1: f0 08 beq $04eb ; if(!$78) goto $04EB; 04e3: 8b 78 dec $78 ; $78--; 04e5: ba 79 movw ya,$79 ; echo feedback slide... 04e7: 7a 75 addw ya,$75 04e9: da 75 movw $75,ya ; $75 += $79; $04EB: 04eb: e4 77 mov a,$77 04ed: f0 17 beq $0506 ; if($!77) return; 04ef: 8b 77 dec $77 ; $77--; 04f1: cd 10 mov x,#$10 $04F3: 04f3: f4 63 mov a,$63+x 04f5: 60 clrc 04f6: 95 fe 00 adc a,$00fe+x 04f9: d4 63 mov $63+x,a 04fb: f4 64 mov a,$64+x 04fd: 95 ff 00 adc a,$00ff+x 0500: d4 64 mov $64+x,a ; $64+X.w += $00FF+X.w; 0502: 1d dec x 0503: 1d dec x ; X -= 2; 0504: d0 ed bne $04f3 ; if(X) goto $04F3; $0506: 0506: 6f ret ; tracker... $0507: 0507: 3f 53 07 call $0753 ; get next track_byte; 050a: 68 c4 cmp a,#$c4 050c: 90 05 bcc $0513 ; if(track_byte < 0xC4) goto $0513; 050e: 3f 3d 07 call $073d ; values >= 0xC4 are commands and need some processing. 0511: 2f f4 bra $0507 ; process commands until we hit an actual note or rest $0513: 0513: fb 26 mov y,$26+x ; ... ? 0515: d0 0a bne $0521 ; if($26+X != 0) goto $0521; 0517: cd 0e mov x,#$0e 0519: 9e div ya,x ; YA = note / 0x0E; 051a: f8 a6 mov x,$a6 ; restore track index 051c: f6 b3 1d mov a,NoteLengths+y ; (n.b.: Y is note % 0x0E) 051f: d4 26 mov $26+x,a ; $26+X = $1DB3+Y; set note length based on a table $0521: 0521: e4 a5 mov a,$a5 0523: 68 a8 cmp a,#$a8 0525: 90 08 bcc $052f ; if(track_byte < 0xA8) goto $052F; // means it's a musical note. 0527: 68 b6 cmp a,#$b6 0529: 90 01 bcc $052c ; if(track_byte < 0xB6) goto $052C; // means it's a note held longer 052b: 6f ret $052C: 052c: 5f 01 06 jmp $0601 ; goto $0601; do shadow commands (commands that play while a note is in progress) $052F: 052f: 8d 00 mov y,#$00 0531: cd 0e mov x,#$0e 0533: 9e div ya,x 0534: c4 a5 mov $a5,a ; $A5 = (A / 0x0E); // the quotient of the result. 0536: f8 a6 mov x,$a6 0538: c8 10 cmp x,#$10 053a: b0 0b bcs $0547 ; if(X >= 0x10) goto $0547; 053c: e4 91 mov a,$91 053e: 24 7c and a,$7c 0540: f0 05 beq $0547 ; if(($91 & $7C) == 0) goto $0547; // if percussion is disabled branch away 0542: 3f 20 07 call $0720 ; does SetInstrument, and grabs a value for A from a table 0545: 2f 06 bra $054d $0547: 0547: f5 00 f2 mov a,$f200+x ; get octave 054a: 60 clrc $054D: 054b: 84 a5 adc a,$a5 054d: 60 clrc 054e: 95 61 f3 adc a,$f361+x ; transpose value for this channel (usually 0) 0551: 80 setc 0552: a8 0a sbc a,#$0a 0554: d5 a1 f3 mov $f3a1+x,a ; $F3A1+X = octave + $A5 + $F361+X - 0x0A; 0557: 3f bd 06 call $06bd ; (gets a value based on note and tuning values to write to the pitch registers) 055a: e4 b5 mov a,$b5 055c: d5 20 f5 mov $f520+x,a 055f: e4 b6 mov a,$b6 0561: d5 21 f5 mov $f521+x,a ; $F520+X.w = finalized pitch scaling value to be written to pitch register 0564: f5 51 01 mov a,$0151+x 0567: f0 33 beq $059c ; if(!$0151+X) goto $059C; // this is vibrato? or tremelo? 0569: c4 a5 mov $a5,a 056b: 3f a2 18 call $18a2 ; presuambly does some vibrato voodoo 056e: c8 10 cmp x,#$10 0570: b0 04 bcs $0576 0572: 8d 00 mov y,#$00 0574: 2f 04 bra $057a $0576: 0576: f5 10 01 mov a,$0110+x 0579: fd mov y,a 057a: f6 87 1d mov a,$1d87+y 057d: fd mov y,a 057e: d0 04 bne $0584 0580: ba b5 movw ya,$b5 0582: 2f 11 bra $0595 0584: cb 9d mov $9d,y 0586: e4 b6 mov a,$b6 0588: cf mul ya 0589: da 9b movw $9b,ya 058b: e4 b5 mov a,$b5 058d: eb 9d mov y,$9d 058f: cf mul ya 0590: dd mov a,y 0591: 8d 00 mov y,#$00 0593: 7a 9b addw ya,$9b 0595: d5 00 f3 mov $f300+x,a 0598: dd mov a,y 0599: d5 01 f3 mov $f301+x,a $059C: 059c: f5 70 01 mov a,$0170+x ; tremelo enabled? 059f: f0 07 beq $05A8 05a1: c4 a5 mov $a5,a 05a3: 3f 60 19 call $1960 ; handle tremelo for this frame 05a6: e8 00 mov a,#$00 $05A8: 05a8: d5 00 f5 mov $f500+x,a 05ab: d5 01 f5 mov $f501+x,a 05ae: d5 a0 f4 mov $f4a0+x,a 05b1: d5 a1 f4 mov $f4a1+x,a 05b4: d5 c0 f3 mov $f3c0+x,a 05b7: d5 c1 f3 mov $f3c1+x,a 05ba: d5 e0 f4 mov $f4e0+x,a 05bd: c8 10 cmp x,#$10 05bf: b0 1e bcs $05DF ; if(X >= 0x10) goto $05DF; 05c1: 09 91 24 or ($24),($91) 05c4: e4 86 mov a,$86 05c6: 24 91 and a,$91 05c8: d0 37 bne $0601 ; seems to permanently hold a channel in the keyed state ? 05ca: e4 91 mov a,$91 05cc: 24 60 and a,$60 05ce: d0 25 bne $05f5 ; if($91 & $60) goto $05F5; 05d0: e4 91 mov a,$91 05d2: 24 5c and a,$5c 05d4: f0 1f beq $05f5 ; if(($91 & $5C) == 0) goto $05F5; 05d6: 24 5e and a,$5e 05d8: d0 1e bne $05f8 ; if($91 & $5E) goto $05F8; 05da: 09 91 5e or ($5e),($91) ; $5E |= $91; 05dd: 2f 16 bra $05f5 $05DF: 05df: 09 91 25 or ($25),($91) 05e2: e4 91 mov a,$91 05e4: 24 61 and a,$61 05e6: d0 0d bne $05f5 ; if($91 & $61) goto $05F5; 05e8: e4 91 mov a,$91 05ea: 24 5d and a,$5d 05ec: f0 07 beq $05f5 ; if(($91 & $5D) == 0) goto $05F5; 05ee: 24 5f and a,$5f 05f0: d0 06 bne $05f8 ; if($91 & $5F) == 0) goto $05F8; 05f2: 09 91 5f or ($5f),($91) ; $5F |= $91; $05F5: 05f5: 09 91 22 or ($22),($91) $05F8: 05f8: 09 91 d0 or ($d0),($91) 05fb: 09 91 d1 or ($d1),($91) 05fe: 3f ed 1a call $1aed ; sets VxSRCN (sample number) in the DSP based on what instrument we're using $0601: 0601: 3f 5e 07 call $075e ; performs "shadow" commands. their purpose isn't exactly known yet. 0604: fd mov y,a 0605: e4 91 mov a,$91 0607: c8 10 cmp x,#$10 0609: b0 21 bcs $062c ; if(X >= 0x10) goto $062C; 060b: ad b6 cmp y,#$b6 060d: b0 09 bcs $0618 ; if(Y >= 0xB6) goto $0618; // rest 060f: ad a8 cmp y,#$a8 0611: 90 0b bcc $061e ; if(Y < 0xA8) goto $061E; // sustain the note longer 0613: 0e 5a 00 tset1 $005a 0616: 2f 33 bra $064B $0618: 0618: 4e 5c 00 tclr1 $005c 061b: 4e 60 00 tclr1 $0060 $061E: 061e: 4e 5a 00 tclr1 $005a ; 0621: e4 5c mov a,$5c 0623: 04 60 or a,$60 0625: 24 91 and a,$91 0627: 0e 5a 00 tset1 $005a 062a: 2f 1f bra $064b $062C: 062c: ad b6 cmp y,#$b6 062e: b0 09 bcs $0639 0630: ad a8 cmp y,#$a8 0632: 90 0b bcc $063F 0634: 0e 5b 00 tset1 $005b 0637: 2f 12 bra $064b $0639: 0639: 4e 5d 00 tclr1 $005d 063c: 4e 61 00 tclr1 $0061 063f: 4e 5b 00 tclr1 $005b 0642: e4 5d mov a,$5d 0644: 04 61 or a,$61 0646: 24 91 and a,$91 0648: 0e 5b 00 tset1 $005b ; $5B = ($5D | $61) & $91; $064B: 064b: f5 50 01 mov a,$0150+x 064e: f0 6c beq $06bc ; if($0150+X == 0) goto $06BC; 0650: 60 clrc 0651: 95 a1 f3 adc a,$f3a1+x 0654: d5 a1 f3 mov $f3a1+x,a 0657: 3f bd 06 call $06bd 065a: f5 21 f5 mov a,$f521+x 065d: fd mov y,a 065e: f5 20 f5 mov a,$f520+x 0661: da 9b movw $9b,ya 0663: ba b5 movw ya,$b5 0665: 80 setc 0666: 9a 9b subw ya,$9b 0668: da 9b movw $9b,ya 066a: 0d push psw 066b: b0 08 bcs $0675 066d: 58 ff 9b eor $9b,#$ff 0670: 58 ff 9c eor $9c,#$ff 0673: 3a 9b incw $9b $0675: 0675: f5 60 f3 mov a,$f360+x 0678: d0 05 bne $067f 067a: 8f 00 9d mov $9d,#$00 067d: 2f 12 bra $0691 $067F: 067f: 5d mov x,a 0680: e4 9c mov a,$9c 0682: 8d 00 mov y,#$00 0684: 9e div ya,x 0685: c4 9d mov $9d,a 0687: e4 9b mov a,$9b 0689: 9e div ya,x 068a: c4 9c mov $9c,a 068c: e8 00 mov a,#$00 068e: 9e div ya,x 068f: c4 9b mov $9b,a $0691: 0691: 8e pop psw 0692: b0 0f bcs $06A3 0694: 58 ff 9b eor $9b,#$ff 0697: 58 ff 9c eor $9c,#$ff 069a: 58 ff 9d eor $9d,#$ff 069d: 3a 9b incw $9b 069f: d0 02 bne $06A3 06a1: ab 9d inc $9d $06A3: 06a3: f8 a6 mov x,$a6 06a5: e4 9b mov a,$9b 06a7: d5 e0 f4 mov $f4e0+x,a 06aa: e4 9c mov a,$9c 06ac: d5 c0 f3 mov $f3c0+x,a 06af: e4 9d mov a,$9d 06b1: d5 c1 f3 mov $f3c1+x,a 06b4: e8 00 mov a,#$00 06b6: d5 50 01 mov $0150+x,a 06b9: d5 e1 f4 mov $f4e1+x,a $06BC: 06bc: 6f ret ; ************************************************ $06BD: ; Converts the tracker note value to a value that VxPITCHL/H can use ; The formulas here aren't that complex but they aren't that easy to read in assembly either ; So I thought I'd break them down a bit: ; ; inputs: A (note value) ; A gets divided by 0x0C (12 decimal). The remainder is the note (Y), and the quotient is the octave (A) ; 06bd: cd 0c mov x,#$0c 06bf: 8d 00 mov y,#$00 06c1: 9e div ya,x ; convert value to octave (A) and note (Y) 06c2: f8 a6 mov x,$a6 06c4: c4 a4 mov $a4,a ; $A4 = quotient; 06c6: dd mov a,y 06c7: 1c asl a 06c8: fd mov y,a ; Y <<= 1; (Y was the remainder) 06c9: f6 6d 1d mov a,$1d6d+y 06cc: c4 b7 mov $b7,a 06ce: f6 6e 1d mov a,$1d6e+y 06d1: c4 b8 mov $b8,a ; $B7.w = $1D6D+Y.w; these seem to be "standard" pitch settings ; apparently not the same as those in LTTP... 06d3: fd mov y,a 06d4: f5 80 f3 mov a,$f380+x ; $F380+X = low byte of pitch setting 06d7: 60 clrc 06d8: 95 a0 f3 adc a,$f3a0+x ; add in the fine tune value for this channel 06db: c4 9b mov $9b,a ; $9B = A 06dd: cf mul ya 06de: da b5 movw $b5,ya ; $B5 = multiplication result 06e0: eb b7 mov y,$b7 ; Y = $B7 06e2: e4 9b mov a,$9b 06e4: cf mul ya ; YA = $B7 * $9B (low byte of stock pitch * low byte of tuning pitch) 06e5: dd mov a,y 06e6: 8d 00 mov y,#$00 06e8: 7a b5 addw ya,$b5 06ea: da b5 movw $b5,ya ; $B5.w += YA; 06ec: f5 81 f3 mov a,$f381+x ; A = $F381+X 06ef: f0 08 beq $06F9 ; if(!$F381+X) goto $06F9; 06f1: cf mul ya 06f2: dd mov a,y 06f3: 8d 00 mov y,#$00 06f5: 7a b5 addw ya,$b5 ; YA += $B5.w 06f7: 2f 02 bra $06FB $06F9: 06f9: e4 b5 mov a,$b5 $06FB: 06fb: e3 9b 02 bbs7 $9b,$0700 ; if($9B & 0x80) goto $0700; 06fe: 7a b7 addw ya,$b7 $0700: 0700: da b5 movw $b5,ya 0702: e8 04 mov a,#$04 0704: eb a4 mov y,$a4 0706: 30 0f bmi $0717 0708: f0 0d beq $0717 ; if( $A4 <= 0x00) goto $0717; 070a: 64 a4 cmp a,$a4 070c: b0 0e bcs $071c ; if($A4 <= 0x04) goto $071C; // if octave is >= 0x04 branch $070E: 070e: 0b b5 asl $b5 0710: 2b b6 rol $b6 0712: bc inc a 0713: 2e a4 f8 cbne $a4,$070E 0716: 6f ret $0717: 0717: 4b b6 lsr $b6 0719: 6b b5 ror $b5 071b: 9c dec a $071C: 071c: 2e a4 f8 cbne $a4,$0717 ; if octave is 4, don't adjust, otherwise it's more 071f: 6f ret ; ******************************************** ; In brief this uses a table to set some memory locations to certain value ; And also calls SetInstrument. It returns a value via the A register seemingly ; It seems to me that this routine is just for percussion enabled tracks $0720: 0720: e4 a5 mov a,$a5 ; note value 0722: 8d 03 mov y,#$03 0724: cf mul ya ; YA = $A5 * 0x03; 0725: fd mov y,a ; Y = low byte of multiplication result 0726: f6 22 f1 mov a,$f122+y ; A = $F122+Y; 0729: 30 04 bmi $072f ; if(A & 0x80) goto $072F; 072b: 1c asl a 072c: d5 81 f2 mov $f281+x,a ; $F281+X = A; (pan level) instruments have a pan setting? $072F: 072f: f6 21 f1 mov a,$f121+y 0732: c4 a5 mov $a5,a ; $A5 = $F121+Y; (second byte in the entry) 0734: f6 20 f1 mov a,$f120+y ; A = $F120+Y; (1st byte in the entry) 0737: 3f cf 1a call SetInstrument 073a: e4 a5 mov a,$a5 ; A = $A5; 073c: 6f ret ; ******************************************* $073D: 073d: a8 c4 sbc a,#$c4 073f: c4 a5 mov $a5,a ; $A5 = command_byte - 0xC4; 0741: 1c asl a 0742: fd mov y,a 0743: f6 55 15 mov a,$1555+y 0746: 2d push a 0747: f6 54 15 mov a,$1554+y 074a: 2d push a 074b: eb a5 mov y,$a5 074d: f6 cc 15 mov a,$15cc+y ; number of arguments 0750: d0 01 bne $0753 0752: 6f ret ; jump straight to the command if there are no arguments $0753: 0753: e7 02 mov a,($02+x) ; pull a byte off the track data so it's ready for the command 0755: c4 a5 mov $a5,a ; store it to $A5 0757: bb 02 inc $02+x ; increment track pointer 0759: d0 02 bne $075d 075B: bb 03 inc $03+x ; if the byte portion of the track pointer overflowed, increment the high byte. (guess there's no INCW $addr+x ...) $075D: 075d: 6f ret ; ********************************************* $075E: 075e: f4 02 mov a,$02+x 0760: fb 03 mov y,$03+x 0762: da 93 movw $93,ya ; $93.w = track_pointer; 0764: f4 27 mov a,$27+x 0766: c4 ba mov $ba,a ; $BA will be the shadow version of $27+X $0768: 0768: 8d 00 mov y,#$00 $076A: 076a: f7 93 mov a,($93)+y 076c: 68 c4 cmp a,#$c4 076e: 90 32 bcc $07a2 ; if(track_byte < 0xC4) return; 0770: 3a 93 incw $93 0772: 68 eb cmp a,#$eb 0774: f0 2c beq $07a2 ; if(track_byte == 0xEB) return; 0776: 80 setc 0777: a8 c4 sbc a,#$c4 0779: c4 92 mov $92,a ; $92 = track_byte - 0xC4; 077b: 1c asl a 077c: fd mov y,a ; Y = $92 << 1; 077d: f6 09 16 mov a,$1609+y 0780: f0 12 beq $0794 ; if(highbyte == 0) goto $0794; 0782: c4 9b mov $9b,a 0784: e8 07 mov a,#$07 0786: 2d push a 0787: e8 68 mov a,#$68 0789: 2d push a ; push 0x0768 to the stack (meaning once finished screwing around go to $0768) 078a: e4 9b mov a,$9b 078c: 2d push a 078d: f6 08 16 mov a,$1608+y 0790: 2d push a ; push address of the shadow command routine to the stack 0791: 8d 00 mov y,#$00 0793: 6f ret ; jump to that address $0794: 0794: eb 92 mov y,$92 0796: f6 cc 15 mov a,$15cc+y ; get number of parameters for this command 0799: f0 cd beq $0768 ; if(num_params == 0) goto $0768; 079b: fd mov y,a $079C: 079c: 3a 93 incw $93 079e: fe fc dbnz y,$079c ; Y--; if(Y) goto $079C; 07a0: 2f c8 bra $076a $07A2: 07a2: 6f ret ; *************************************** WriteDSP: 07a3: cb f2 mov $f2,y 07a5: c4 f3 mov $f3,a 07a7: 6f ret ; *************************************** ResetCpuIn: 07a8: 8f 13 f1 mov $f1,#$13 ; clear CPUI0 and CPUI1 (this is useful) 07ab: 8f 03 f1 mov $f1,#$03 ; this however, is useless; not sure if they knew what they were doing 07ae: 6f ret ; *************************************** $07AF: 07af: 40 setp ; direct page is now at $100, not $00 07b0: f4 11 mov a,$11+x ; A = $111+X 07b2: f0 02 beq $07b6 ; if($111+X == 0) goto $07B6; 07b4: 9b 11 dec $11+x ; $111+X--; $07B6: 07b6: f4 31 mov a,$31+x 07b8: f0 02 beq $07bc ; if($0131+X == 0) goto $07BC; 07ba: 9b 31 dec $31+x ; $0131+X--; $07BC: 07bc: 20 clrp ; set direct page back to $00 07bd: f5 c0 f2 mov a,$f2c0+x 07c0: f0 1f beq $07e1 ; if($F2C0+X == 0) goto $07E1; 07c2: 9c dec a 07c3: d5 c0 f2 mov $f2c0+x,a ; $F2C0+X--; 07c6: f5 40 f2 mov a,$f240+x 07c9: 60 clrc 07ca: 95 60 f2 adc a,$f260+x 07cd: d5 40 f2 mov $f240+x,a ; $F240+X += $F260+X; 07d0: f5 41 f2 mov a,$f241+x 07d3: 95 61 f2 adc a,$f261+x 07d6: 75 41 f2 cmp a,$f241+x 07d9: d5 41 f2 mov $f241+x,a ; $F241+X += $F261+X; 07dc: f0 03 beq $07e1 ; if($F261+X == 0) goto $07E1; 07de: 09 91 d0 or ($d0),($91) ; $D0 |= $91; $07E1: 07e1: f5 c1 f2 mov a,$f2c1+x 07e4: f0 1f beq $0805 ; if($F2C1+X == 0) goto $0805; 07e6: 9c dec a 07e7: d5 c1 f2 mov $f2c1+x,a ; $F2C1+X--; 07ea: f5 80 f2 mov a,$f280+x 07ed: 60 clrc 07ee: 95 a0 f2 adc a,$f2a0+x 07f1: d5 80 f2 mov $f280+x,a ; $F280+X += $F2A0+X 07f4: f5 81 f2 mov a,$f281+x 07f7: 95 a1 f2 adc a,$f2a1+x 07fa: 75 81 f2 cmp a,$f281+x 07fd: d5 81 f2 mov $f281+x,a ; $F281+X += $F2A1+X; 0800: f0 03 beq $0805 ; if($F2A1+X == 0) goto $0805; 0802: 09 91 d0 or ($d0),($91) ; $D0 |= $91; $0805: 0805: f5 e0 f4 mov a,$f4e0+x 0808: c4 9b mov $9b,a 080a: f5 c0 f3 mov a,$f3c0+x 080d: c4 9c mov $9c,a 080f: f5 c1 f3 mov a,$f3c1+x 0812: c4 9d mov $9d,a 0814: ba 9b movw ya,$9b 0816: d0 04 bne $081c 0818: e4 9d mov a,$9d 081a: f0 2e beq $084a $081C: 081c: f5 60 f3 mov a,$f360+x 081f: 9c dec a 0820: d0 09 bne $082B 0822: d5 c0 f3 mov $f3c0+x,a 0825: d5 c1 f3 mov $f3c1+x,a 0828: d5 e0 f4 mov $f4e0+x,a $082B: 082b: d5 60 f3 mov $f360+x,a 082e: 60 clrc 082f: f5 20 f5 mov a,$f520+x 0832: fd mov y,a 0833: f5 e1 f4 mov a,$f4e1+x 0836: 7a 9b addw ya,$9b 0838: d5 e1 f4 mov $f4e1+x,a 083b: dd mov a,y 083c: d5 20 f5 mov $f520+x,a 083f: e4 9d mov a,$9d 0841: 95 21 f5 adc a,$f521+x 0844: d5 21 f5 mov $f521+x,a 0847: 09 91 d1 or ($d1),($91) 084a: f5 71 01 mov a,$0171+x 084d: f0 42 beq $0891 084f: f5 e0 f3 mov a,$f3e0+x 0852: c4 9b mov $9b,a 0854: f5 e1 f3 mov a,$f3e1+x 0857: c4 9c mov $9c,a 0859: f5 c1 f4 mov a,$f4c1+x 085c: fd mov y,a 085d: c4 9d mov $9d,a 085f: f5 c0 f4 mov a,$f4c0+x 0862: 7a 9b addw ya,$9b 0864: d5 c0 f4 mov $f4c0+x,a 0867: dd mov a,y 0868: 75 c1 f4 cmp a,$f4c1+x 086b: d5 c1 f4 mov $f4c1+x,a 086e: f0 03 beq $0873 0870: 09 91 d0 or ($d0),($91) $0873: 0873: f5 41 f3 mov a,$f341+x 0876: 9c dec a 0877: d0 15 bne $088e 0879: 58 ff 9b eor $9b,#$ff 087c: 58 ff 9c eor $9c,#$ff 087f: 3a 9b incw $9b 0881: e4 9b mov a,$9b 0883: d5 e0 f3 mov $f3e0+x,a 0886: e4 9c mov a,$9c 0888: d5 e1 f3 mov $f3e1+x,a 088b: f5 40 f3 mov a,$f340+x $088E: 088e: d5 41 f3 mov $f341+x,a $0891: 0891: 6f ret ; ************************************************ $0892: 0892: e4 f4 mov a,$f4 0894: f0 36 beq $08cc ; if(CPUI0 == 0) return; 0896: 64 f4 cmp a,$f4 0898: d0 f8 bne $0892 ; if(A != CPUI0) goto $0892; 089a: 68 fe cmp a,#$fe 089c: f0 2e beq $08cc ; if(A == 0xFE) return; 089e: 68 10 cmp a,#$10 08a0: 90 04 bcc $08a6 ; if(A < 0x10) goto $08A6; 08a2: 68 18 cmp a,#$18 08a4: 90 26 bcc $08cc ; if(A < 0x18) return; $08A6: 08a6: 4d push x 08a7: f8 d7 mov x,$d7 08a9: d5 72 f1 mov $f172+x,a ; X = $D7; $F172+X = A; 08ac: fd mov y,a 08ad: e4 f5 mov a,$f5 08af: d5 73 f1 mov $f173+x,a ; $F173+X = CPUI1; 08b2: e4 f6 mov a,$f6 08b4: d5 74 f1 mov $f174+x,a ; $F174+X = CPUI2; 08b7: e4 f7 mov a,$f7 08b9: d5 75 f1 mov $f175+x,a ; $F175+X = CPUI3; 08bc: 7d mov a,x 08bd: 60 clrc 08be: 88 04 adc a,#$04 ; A = X + 4; 08c0: 68 40 cmp a,#$40 08c2: b0 02 bcs $08c6 ; if(A >= 0x40) goto $08C6; 08c4: c4 d7 mov $d7,a ; $D7 = A; $08C6: 08c6: ce pop x 08c7: 3f a8 07 call ResetCpuIn ; clear CPUI0 and CPUI1 08ca: cb f4 mov $f4,y $08CC: 08cc: 6f ret ; ************************************ $08CD: 08cd: cd 00 mov x,#$00 $08CF: 08cf: f5 72 f1 mov a,$f172+x 08d2: f0 1e beq $08f2 ; if(!F172+X) goto $08F2; 08d4: c4 8d mov $8d,a 08d6: f5 73 f1 mov a,$f173+x 08d9: c4 8e mov $8e,a 08db: f5 74 f1 mov a,$f174+x 08de: c4 8f mov $8f,a 08e0: f5 75 f1 mov a,$f175+x 08e3: c4 90 mov $90,a 08e5: 4d push x 08e6: 3f ac 0b call $0bac 08e9: ae pop a 08ea: 60 clrc 08eb: 88 04 adc a,#$04 08ed: 5d mov x,a 08ee: c8 40 cmp x,#$40 08f0: d0 dd bne $08CF $08F2: 08f2: 7d mov a,x 08f3: f0 0b beq $0900 08f5: e8 00 mov a,#$00 $08F7: 08f7: d5 6e f1 mov $f16e+x,a 08fa: 1d dec x 08fb: 1d dec x 08fc: 1d dec x 08fd: 1d dec x ; $F16E = 0x00; X -= 4; 08fe: d0 f7 bne $08f7 ; if(X != 0) goto $08F7; $0900: 0900: c4 d7 mov $d7,a ; $D7 = A 0902: 6f ret ; ************************************************* 0903: f5 51 01 mov a,$0151+x 0906: f0 0b beq $0913 ; vibrato off? branch 0908: c4 a5 mov $a5,a 090a: c8 10 cmp x,#$10 090c: b0 08 bcs $0916 090e: f5 11 01 mov a,$0111+x 0911: f0 03 beq $0916 $0913: 0913: 5f 95 09 jmp $0995 $0916: 0916: f5 21 f4 mov a,$f421+x 0919: fd mov y,a 091a: f5 20 f4 mov a,$f420+x 091d: da b5 movw $b5,ya 091f: f5 81 f4 mov a,$f481+x 0922: fd mov y,a 0923: f5 80 f4 mov a,$f480+x 0926: 7a b5 addw ya,$b5 0928: da b7 movw $b7,ya 092a: d5 80 f4 mov $f480+x,a 092d: dd mov a,y 092e: 75 81 f4 cmp a,$f481+x 0931: f0 2e beq $0961 0933: d5 81 f4 mov $f481+x,a 0936: 0b b7 asl $b7 0938: 2b b8 rol $b8 093a: f5 01 f3 mov a,$f301+x 093d: fd mov y,a 093e: f5 00 f3 mov a,$f300+x 0941: da 9b movw $9b,ya 0943: e4 b8 mov a,$b8 0945: cf mul ya 0946: da 9d movw $9d,ya 0948: eb 9b mov y,$9b 094a: e4 b8 mov a,$b8 094c: cf mul ya 094d: dd mov a,y 094e: 8d 00 mov y,#$00 0950: 7a 9d addw ya,$9d 0952: f3 b8 02 bbc7 $b8,$0957 0955: 9a 9b subw ya,$9b $0957: 0957: d5 00 f5 mov $f500+x,a 095a: dd mov a,y 095b: d5 01 f5 mov $f501+x,a 095e: 09 91 d1 or ($d1),($91) $0961: 0961: f5 e1 f2 mov a,$f2e1+x 0964: 9c dec a 0965: d0 2b bne $0992 0967: f5 01 f4 mov a,$f401+x 096a: fd mov y,a 096b: f5 00 f4 mov a,$f400+x 096e: da 9b movw $9b,ya 0970: e4 b6 mov a,$b6 0972: c4 b7 mov $b7,a 0974: f5 21 f2 mov a,$f221+x 0977: c4 9e mov $9e,a 0979: 38 70 9e and $9e,#$70 097c: 28 07 and a,#$07 097e: 3f de 0a call $0ade 0981: d5 20 f4 mov $f420+x,a 0984: dd mov a,y 0985: d5 21 f4 mov $f421+x,a 0988: e4 9d mov a,$9d 098a: 04 9e or a,$9e 098c: d5 21 f2 mov $f221+x,a 098f: f5 e0 f2 mov a,$f2e0+x $0992: 0992: d5 e1 f2 mov $f2e1+x,a $0995: 0995: f5 70 01 mov a,$0170+x 0998: f0 5c beq $09f6 ; tremelo off? branch 099a: c4 a5 mov $a5,a 099c: f5 31 01 mov a,$0131+x 099f: d0 55 bne $09f6 09a1: f5 61 f4 mov a,$f461+x 09a4: fd mov y,a 09a5: f5 60 f4 mov a,$f460+x 09a8: da b5 movw $b5,ya 09aa: cb b7 mov $b7,y 09ac: f5 a1 f4 mov a,$f4a1+x 09af: fd mov y,a 09b0: f5 a0 f4 mov a,$f4a0+x 09b3: 7a b5 addw ya,$b5 09b5: d5 a0 f4 mov $f4a0+x,a 09b8: dd mov a,y 09b9: 75 a1 f4 cmp a,$f4a1+x 09bc: f0 06 beq $09c4 09be: d5 a1 f4 mov $f4a1+x,a 09c1: 09 91 d0 or ($d0),($91) 09c4: f5 21 f3 mov a,$f321+x 09c7: 9c dec a 09c8: d0 29 bne $09f3 09ca: f5 41 f4 mov a,$f441+x 09cd: fd mov y,a 09ce: f5 40 f4 mov a,$f440+x 09d1: da 9b movw $9b,ya 09d3: f5 21 f2 mov a,$f221+x 09d6: c4 9e mov $9e,a 09d8: 38 07 9e and $9e,#$07 09db: 9f xcn a 09dc: 28 07 and a,#$07 09de: 3f de 0a call $0ade 09e1: d5 60 f4 mov $f460+x,a 09e4: dd mov a,y 09e5: d5 61 f4 mov $f461+x,a 09e8: e4 9d mov a,$9d 09ea: 9f xcn a 09eb: 04 9e or a,$9e 09ed: d5 21 f2 mov $f221+x,a 09f0: f5 20 f3 mov a,$f320+x $09F3: 09f3: d5 21 f3 mov $f321+x,a $09F6: 09f6: ba d0 movw ya,$d0 ; active channels 09f8: d0 01 bne $09FB 09fa: 6f ret $09FB: 09fb: 7d mov a,x 09fc: 28 0f and a,#$0f 09fe: c4 9b mov $9b,a 0a00: 9f xcn a 0a01: 5c lsr a 0a02: c4 9c mov $9c,a ; $9C = a DSP register 0a04: e4 91 mov a,$91 0a06: 24 d0 and a,$d0 0a08: f0 66 beq $0a70 0a0a: 8f 80 9d mov $9d,#$80 0a0d: 03 87 0e bbs0 $87,$0A1E 0a10: f5 81 f2 mov a,$f281+x ; A = pan 0a13: fd mov y,a 0a14: f5 c1 f4 mov a,$f4c1+x 0a17: 3f de 12 call $12de ; ????? 0a1a: 48 ff eor a,#$ff 0a1c: c4 9d mov $9d,a ; $9D = result ^ 0xFF; $0A1E: 0a1e: f5 41 f2 mov a,$f241+x 0a21: fd mov y,a 0a22: c4 9e mov $9e,a ; $9E = channel volume level 0a24: f5 a1 f4 mov a,$f4a1+x ; tremelo something or other 0a27: f0 0e beq $0a37 0a29: 1c asl a 0a2a: cf mul ya 0a2b: b0 0a bcs $0a37 ; branch if the tremelo argument is negative 0a2d: dd mov a,y 0a2e: 84 9e adc a,$9e 0a30: 10 04 bpl $0a36 0a32: 90 02 bcc $0a36 0a34: e8 7f mov a,#$7f 0a36: fd mov y,a $0A37: 0a37: e4 a8 mov a,$a8 0a39: cf mul ya 0a3a: c8 10 cmp x,#$10 0a3c: b0 11 bcs $0a4f ; if(X >= 0x10) goto $0A4F; 0a3e: e4 91 mov a,$91 0a40: 24 a7 and a,$a7 0a42: f0 04 beq $0a48 ; if( ($91 & $A7) == 0x00) ) goto $0A48; 0a44: 8d 00 mov y,#$00 0a46: 2f 07 bra $0a4f $0A48: 0a48: f5 20 f2 mov a,$f220+x 0a4b: cf mul ya 0a4c: e4 4d mov a,$4d 0a4e: cf mul ya $0A4F: 0a4f: cb 9e mov $9e,y 0a51: e4 9d mov a,$9d ; pan result from earlier $0A53: 0a53: cf mul ya 0a54: dd mov a,y 0a55: eb 9b mov y,$9b 0a57: d6 be 00 mov $00be+y,a 0a5a: eb 9c mov y,$9c 0a5c: cb f2 mov $f2,y ; latches either VxVOLL or VxVOLR (depending on what stage of the loop we're in) 0a5e: c4 f3 mov $f3,a ; write to VxVOLL/R 0a60: ea 9b 00 not1 $009B,0 0a63: ab 9c inc $9c 0a65: 23 9c 08 bbs1 $9c,$0A70 0a68: e4 9d mov a,$9d 0a6a: 48 ff eor a,#$ff ; invert the volume value to obtain the other channel's volume level 0a6c: eb 9e mov y,$9e 0a6e: 2f e3 bra $0a53 ; goes on to set volume right $0A70: 0a70: e4 91 mov a,$91 0a72: 24 d1 and a,$d1 0a74: f0 67 beq $0ADD 0a76: 22 9c set1 $9c $0A78: 0a78: f5 20 f5 mov a,$f520+x 0a7b: 60 clrc 0a7c: 95 00 f5 adc a,$f500+x 0a7f: c4 9d mov $9d,a 0a81: f5 21 f5 mov a,$f521+x 0a84: 95 01 f5 adc a,$f501+x 0a87: c4 9e mov $9e,a 0a89: c8 10 cmp x,#$10 0a8b: 90 25 bcc $0ab2 0a8d: c8 1c cmp x,#$1c 0a8f: b0 04 bcs $0a95 $0A91: 0a91: ba 9d movw ya,$9d 0a93: 2f 39 bra $0ace $0A95: 0a95: eb b1 mov y,$b1 0a97: f0 f8 beq $0a91 0a99: cf mul ya 0a9a: da 9f movw $9f,ya 0a9c: eb b1 mov y,$b1 0a9e: e4 9d mov a,$9d 0aa0: cf mul ya 0aa1: dd mov a,y 0aa2: 8d 00 mov y,#$00 0aa4: 7a 9f addw ya,$9f 0aa6: 1c asl a 0aa7: c4 a1 mov $a1,a 0aa9: dd mov a,y 0aaa: 3c rol a 0aab: fd mov y,a 0aac: e4 a1 mov a,$a1 0aae: 7a 9d addw ya,$9d 0ab0: 2f 1c bra $0ace $0AB2: 0ab2: eb af mov y,$af 0ab4: cf mul ya 0ab5: da 9f movw $9f,ya 0ab7: eb af mov y,$af 0ab9: e4 9d mov a,$9d 0abb: cf mul ya 0abc: dd mov a,y 0abd: 8d 00 mov y,#$00 0abf: 7a 9f addw ya,$9f 0ac1: e3 af 0a bbs7 $af,$0ACE 0ac4: 1c asl a 0ac5: c4 a1 mov $a1,a 0ac7: dd mov a,y 0ac8: 3c rol a 0ac9: fd mov y,a 0aca: e4 a1 mov a,$a1 0acc: 7a 9d addw ya,$9d $0ACE: 0ace: d8 9b mov $9b,x ; save X's old value 0ad0: f8 9c mov x,$9c 0ad2: d8 f2 mov $f2,x 0ad4: c4 f3 mov $f3,a 0ad6: 3d inc x 0ad7: d8 f2 mov $f2,x 0ad9: cb f3 mov $f3,y ; VxPITCHL.w = $9D.w 0adb: f8 9b mov x,$9b ; restore X's old value $0ADD: 0add: 6f ret ; ********************************************** $0ADE: 0ade: 8f 00 9d mov $9d,#$00 0ae1: 78 c0 a5 cmp $a5,#$c0 0ae4: b0 49 bcs $0b2f 0ae6: 78 80 a5 cmp $a5,#$80 0ae9: b0 1e bcs $0b09 0aeb: 58 ff b5 eor $b5,#$ff 0aee: 58 ff b6 eor $b6,#$ff 0af1: 3a b5 incw $b5 0af3: fd mov y,a 0af4: f0 63 beq $0b59 0af6: 9c dec a 0af7: c4 9d mov $9d,a 0af9: e3 b6 5d bbs7 $b6,$0b58 0afc: 4b 9c lsr $9c 0afe: 6b 9b ror $9b 0b00: 4b 9c lsr $9c 0b02: 6b 9b ror $9b 0b04: ba 9b movw ya,$9b 0b06: 7a b5 addw ya,$b5 0b08: 6f ret $0B09: 0b09: 58 ff b5 eor $b5,#$ff 0b0c: 58 ff b6 eor $b6,#$ff 0b0f: 3a b5 incw $b5 0b11: fd mov y,a 0b12: f0 45 beq $0b59 0b14: 9c dec a 0b15: c4 9d mov $9d,a 0b17: f3 b6 3f bbc7 $b6,$0b58 0b1a: 4b 9c lsr $9c 0b1c: 6b 9b ror $9b 0b1e: 4b 9c lsr $9c 0b20: 6b 9b ror $9b 0b22: 58 ff 9b eor $9b,#$ff 0b25: 58 ff 9c eor $9c,#$ff 0b28: 3a 9b incw $9b 0b2a: ba 9b movw ya,$9b 0b2c: 7a b5 addw ya,$b5 0b2e: 6f ret 0b2f: fd mov y,a 0b30: f0 1f beq $0b51 0b32: 9c dec a 0b33: c4 9d mov $9d,a 0b35: f3 b6 08 bbc7 $b6,$0B40 0b38: 58 ff b5 eor $b5,#$ff 0b3b: 58 ff b6 eor $b6,#$ff 0b3e: 3a b5 incw $b5 $0B40: 0b40: 4b 9c lsr $9c 0b42: 6b 9b ror $9b 0b44: 4b 9c lsr $9c 0b46: 6b 9b ror $9b 0b48: ba 9b movw ya,$9b 0b4a: 7a b5 addw ya,$b5 0b4c: da b5 movw $b5,ya 0b4e: e3 b7 08 bbs7 $b7,$0B59 $0B51: 0b51: 58 ff b5 eor $b5,#$ff 0b54: 58 ff b6 eor $b6,#$ff 0b57: 3a b5 incw $b5 $0B59: 0b59: ba b5 movw ya,$b5 0b5b: 6f ret ; ****************************************** $0B5C: 0b5c: e4 d8 mov a,$d8 0b5e: 68 23 cmp a,#$23 0b60: f0 28 beq $0B8A $0B62: 0b62: 5c lsr a 0b63: fd mov y,a 0b64: e8 70 mov a,#$70 0b66: 90 01 bcc $0B69 0b68: 9f xcn a $0B69: 0b69: 56 cb 1d eor a,$1dcb+y 0b6c: d6 cb 1d mov $1dcb+y,a 0b6f: e4 d8 mov a,$d8 0b71: bc inc a 0b72: 68 24 cmp a,#$24 0b74: f0 0f beq $0B85 0b76: 2d push a 0b77: 5c lsr a 0b78: 8d 00 mov y,#$00 0b7a: cd 09 mov x,#$09 0b7c: 9e div ya,x 0b7d: dd mov a,y 0b7e: ae pop a 0b7f: d0 06 bne $0B87 0b81: bc inc a 0b82: bc inc a 0b83: 2f 02 bra $0b87 $0B85: 0b85: e8 03 mov a,#$03 $0B87: 0b87: c4 d8 mov $d8,a 0b89: 6f ret $0B8A: 0b8a: e8 70 mov a,#$70 0b8c: 45 cc 1d eor a,$1dcc 0b8f: c5 cc 1d mov $1dcc,a 0b92: e4 d8 mov a,$d8 0b94: 2f cc bra $0b62 $0B96: 0b96: f8 f4 mov x,$f4 0b98: d0 03 bne $0b9d ; if(CPUI0) goto $0B9D; 0b9a: 6f ret $0B9B: 0b9b: f8 f4 mov x,$f4 ; $0B9D: 0b9d: 3e f4 cmp x,$f4 0b9f: d0 fa bne $0b9b ; if(CPUI0 != X) goto $0B9B; ; // makes sure the value didn't transition while we were reading it. 0ba1: ba f6 movw ya,$f6 0ba3: da 8f movw $8f,ya ; $8F.w = $F6.w; buffer CPUI2 and CPUI3 to ram 0ba5: ba f4 movw ya,$f4 0ba7: da 8d movw $8d,ya ; $8D.w = $F4.w; buffer CPUI0 and CPUI1 to ram 0ba9: 3f a8 07 call ResetCpuIn ; Zeroes CPUI0 and 1 0bac: f8 8d mov x,$8d 0bae: 7d mov a,x ; A = $8D; 0baf: 10 05 bpl $0bb6 ; if(A <= 0x7F) goto $0BB6; 0bb1: d8 f4 mov $f4,x ; CPUO0 = X; 0bb3: 5f fb 0d jmp $0dfb $0BB6: 0bb6: c8 10 cmp x,#$10 0bb8: 90 1b bcc $0bd5 ; if(X < 0x10) goto $0BD5; 0bba: c8 20 cmp x,#$20 0bbc: b0 17 bcs $0bd5 ; if(X >= 0x20) goto $0BD5; 0bbe: 28 0f and a,#$0f 0bc0: 1c asl a 0bc1: fd mov y,a 0bc2: f6 81 16 mov a,$1681+y 0bc5: 2d push a 0bc6: f6 80 16 mov a,$1680+y 0bc9: 2d push a 0bca: f6 a1 16 mov a,$16a1+y 0bcd: f0 05 beq $0bd4 ; if($16A1+Y == 0) goto $0BD4; // means the function has no arguments 0bcf: 2d push a 0bd0: f6 a0 16 mov a,$16a0+y 0bd3: 2d push a ; push not one but a second routine to the stack? $0BD4: 0bd4: 6f ret $0BD5: 0bd5: d8 f4 mov $f4,x 0bd7: 6f ret ; **************************************************** $0BD8: 0bd8: 3f a9 13 call $13a9 0bdb: 8f 10 b9 mov $b9,#$10 0bde: 2f 06 bra $0be6 0be0: 3f a9 13 call $13a9 $0BE3: 0be3: 8f 20 b9 mov $b9,#$20 $0BE6: 0be6: e8 ff mov a,#$ff 0be8: 8d 5c mov y,#$5c 0bea: 3f a3 07 call WriteDSP ; KOFF = 0xFF; // keys off all voices 0bed: fa 8e bc mov ($bc),($8e) ; $BC |= $8E; 0bf0: e4 8f mov a,$8f 0bf2: c4 4d mov $4d,a ; global volume = $8F 0bf4: e4 90 mov a,$90 0bf6: 28 0f and a,#$0f 0bf8: 64 81 cmp a,$81 0bfa: f0 09 beq $0c05 0bfc: c4 81 mov $81,a 0bfe: 02 88 set0 $88 0c00: 22 88 set1 $88 0c02: 3f 16 13 call $1316 0c05: 3f 0e 10 call $100e 0c08: e8 00 mov a,#$00 0c0a: fd mov y,a 0c0b: c4 86 mov $86,a 0c0d: b2 88 clr5 $88 0c0f: da d2 movw $d2,ya 0c11: c4 d1 mov $d1,a 0c13: 69 bc bb cmp ($bb),($bc) 0c16: d0 46 bne $0c5e 0c18: 3f e5 13 call $13e5 0c1b: e4 53 mov a,$53 0c1d: f0 3f beq $0c5e 0c1f: 38 e0 8c and $8c,#$e0 0c22: 09 62 8c or ($8c),($62) 0c25: cd 00 mov x,#$00 0c27: 8f 01 91 mov $91,#$01 0c2a: bb 26 inc $26+x 0c2c: d8 a6 mov $a6,x 0c2e: 3f ed 1a call $1aed 0c31: 7d mov a,x 0c32: 9f xcn a 0c33: 5c lsr a 0c34: fd mov y,a ; Y = X << 3; 0c35: e8 00 mov a,#$00 0c37: 3f a3 07 call WriteDSP ; VxVOLL = 0x00; 0c3a: fc inc y 0c3b: 3f a3 07 call WriteDSP ; VxVOLR = 0x00; 0c3e: fc inc y 0c3f: cb 9c mov $9c,y 0c41: 3f 78 0a call $0a78 0c44: 3d inc x 0c45: 3d inc x 0c46: 0b 91 asl $91 0c48: d0 e0 bne $0C2A 0c4a: e8 00 mov a,#$00 0c4c: c4 55 mov $55,a 0c4e: c4 57 mov $57,a 0c50: c4 59 mov $59,a 0c52: fa 24 22 mov ($22),($24) 0c55: c4 23 mov $23,a 0c57: c4 25 mov $25,a 0c59: fa 53 d0 mov ($d0),($53) 0c5c: 2f 6f bra $0CCD 0c5e: e8 00 mov a,#$00 0c60: fd mov y,a 0c61: c4 53 mov $53,a 0c63: da 54 movw $54,ya 0c65: da 56 movw $56,ya 0c67: da 58 movw $58,ya 0c69: c4 22 mov $22,a 0c6b: c4 23 mov $23,a 0c6d: da 24 movw $24,ya 0c6f: c4 5a mov $5a,a 0c71: c4 5c mov $5c,a 0c73: c4 60 mov $60,a 0c75: c4 7c mov $7c,a 0c77: c4 7b mov $7b,a ; zero a bunch of shit 0c79: 8f 01 47 mov $47,#$01 0c7c: 8f ff 48 mov $48,#$ff ; $47.w = 0x01FF; 0c7f: eb b9 mov y,$b9 0c81: cd 10 mov x,#$10 $0C83: 0c83: f6 03 20 mov a,$2003+y ; initializes the track pointers to an offset (not the actual finalized value) 0c86: d4 01 mov $01+x,a 0c88: dc dec y 0c89: 1d dec x 0c8a: d0 f7 bne $0c83 0c8c: e5 00 20 mov a,$2000 0c8f: c4 00 mov $00,a 0c91: e5 01 20 mov a,$2001 0c94: c4 01 mov $01,a ; starting point ($00.w is the starting point of the song) 0c96: e8 24 mov a,#$24 0c98: 8d 20 mov y,#$20 0c9a: 9a 00 subw ya,$00 0c9c: da 00 movw $00,ya ; $00 = 0x2024 - starting_point; 0c9e: cd 0e mov x,#$0e ; put us on channel 7 (7*2 since this is a two byte index) 0ca0: 8f 80 91 mov $91,#$80 ; Put us on channel 7 0ca3: e5 02 20 mov a,$2002 0ca6: ec 03 20 mov y,$2003 0ca9: da 9b movw $9b,ya ; $9B = end_point; (not sure if this is right) $0CAB: 0cab: f4 02 mov a,$02+x ; 0x78D5 start, 0xAFA3 0cad: fb 03 mov y,$03+x 0caf: 5a 9b cmpw ya,$9b 0cb1: f0 11 beq $0cc4 ; if(track_pointer == init_pointer) goto $0CC4; 0cb3: 09 91 53 or ($53),($91) ; 0cb6: 7a 00 addw ya,$00 ; bad assumption? (that $02.w is zero) >_> 0cb8: d4 02 mov $02+x,a 0cba: db 03 mov $03+x,y ; track_pointer = [ 0cbc: 3f f6 0c call $0cf6 ; init channel 0cbf: e8 ff mov a,#$ff 0cc1: d5 20 f2 mov $f220+x,a ; Set channel volume gain to max... (or min?) $0CC4: 0cc4: 1d dec x 0cc5: 1d dec x 0cc6: 4b 91 lsr $91 0cc8: d0 e1 bne $0CAB 0cca: 8f 00 d0 mov $d0,#$00 $0CCD: 0ccd: 13 88 15 bbc0 $88,$0CE5 ; if( !($88 & 0x01) ) goto $0CE5; 0cd0: 33 88 0b bbc1 $88,$0CDE ; if( !($88 & 0x02) ) goto $0CE5; 0cd3: cd 82 mov x,#$82 ; some shit... 0cd5: 3f f9 12 call $12f9 ; ....? 0cd8: 8f 00 83 mov $83,#$00 ; ....? 0cdb: 3f 97 13 call $1397 ; enables timers 0 and 1 and disables echo buffer $0CDE: 0cde: cd 81 mov x,#$81 0ce0: 3f f9 12 call $12f9 ; 0ce3: 12 88 clr0 $88 ; $88 &= 0xFE; $0CE5: 0ce5: fa 54 89 mov ($89),($54) ; 0ce8: fa 56 8a mov ($8a),($56) ; 0ceb: fa 58 8b mov ($8b),($58) ; set some initial settings 0cee: cd ff mov x,#$ff 0cf0: bd mov sp,x ; stack_pointer = 0xFF; 0cf1: e4 fd mov a,$fd ; A = T0Out 0cf3: 5f 99 02 jmp $0299 ; ***************************************************************** $0CF6: ; channel initialization? 0cf6: 7d mov a,x 0cf7: 1c asl a 0cf8: d4 27 mov $27+x,a ; iteration_level = track_index * 2; 0cfa: e8 00 mov a,#$00 0cfc: d5 50 01 mov $0150+x,a 0cff: d5 c0 f3 mov $f3c0+x,a 0d02: d5 c1 f3 mov $f3c1+x,a 0d05: d5 e0 f4 mov $f4e0+x,a 0d08: d5 51 01 mov $0151+x,a 0d0b: d5 70 01 mov $0170+x,a 0d0e: d5 71 01 mov $0171+x,a 0d11: d5 c0 f4 mov $f4c0+x,a 0d14: d5 c1 f4 mov $f4c1+x,a 0d17: d5 a0 f3 mov $f3a0+x,a 0d1a: d5 61 f3 mov $f361+x,a 0d1d: d5 00 f3 mov $f300+x,a ; zeroes out a bunch of shite. 0d20: bc inc a 0d21: d4 26 mov $26+x,a ; set sustain to 1. 0d23: e8 10 mov a,#$10 0d25: d5 01 f3 mov $f301+x,a ; no idea 0d28: 6f ret ; ********************************************************************** $0D29: 0d29: e4 8e mov a,$8e ; $8E is the same value as CPUI1 0d2b: 64 80 cmp a,$80 ; 0d2d: c4 80 mov $80,a ; $80 = $8E; 0d2f: f0 05 beq $0d36 ; if($8E == $80) goto $0D36; 0d31: c4 f5 mov $f5,a 0d33: d8 f4 mov $f4,x ; CPUO1 = $8E; CPUO0 = X; 0d35: 6f ret ; return; $0D36: 0d36: ae pop a 0d37: ae pop a ; don't go to that extra routine we had stored on the stack 0d38: e8 ff mov a,#$ff 0d3a: c4 f5 mov $f5,a 0d3c: d8 f4 mov $f4,x ; CPUO1 = 0xFF; CPUO0 = X; $0D3E: 0d3e: e4 f4 mov a,$f4 0d40: f0 fc beq $0d3e ; wait for handshake 0d42: 5f a8 07 jmp ResetCpuIn ; 0d45: d8 f4 mov $f4,x 0d47: cd 1e mov x,#$1e 0d49: 8f 80 91 mov $91,#$80 0d4c: 8f c0 90 mov $90,#$c0 0d4f: 2f 0a bra $0d5b 0d51: d8 f4 mov $f4,x 0d53: cd 1a mov x,#$1a 0d55: 8f 20 91 mov $91,#$20 0d58: 8f 30 90 mov $90,#$30 $0D5B: 0d5b: 93 87 01 bbc4 $87,$0D5F 0d5e: 6f ret $0D5F: 0d5f: fa 8e 93 mov ($93),($8e) 0d62: 8f 00 94 mov $94,#$00 0d65: 0b 93 asl $93 0d67: 2b 94 rol $94 0d69: 0b 93 asl $93 0d6b: 2b 94 rol $94 0d6d: e8 00 mov a,#$00 0d6f: 8d 2f mov y,#$2f 0d71: 7a 93 addw ya,$93 0d73: da 93 movw $93,ya 0d75: 8d 03 mov y,#$03 0d77: 8f 00 a4 mov $a4,#$00 0d7a: f7 93 mov a,($93)+y 0d7c: f0 34 beq $0db2 0d7e: d4 03 mov $03+x,a 0d80: dc dec y 0d81: f7 93 mov a,($93)+y 0d83: d4 02 mov $02+x,a 0d85: 09 91 a4 or ($a4),($91) 0d88: 3f f6 0c call $0cf6 ; initializes a number of things for a channel (iteration and sustain level, for example) 0d8b: bb 26 inc $26+x 0d8d: e8 46 mov a,#$46 0d8f: d5 41 f2 mov $f241+x,a ; volume level = 0x46 0d92: e4 8f mov a,$8f 0d94: d5 81 f2 mov $f281+x,a ; 0d97: e8 48 mov a,#$48 0d99: d5 00 f2 mov $f200+x,a ; set to the 6th octave (soprano?) 0d9c: e8 00 mov a,#$00 0d9e: d5 c0 f2 mov $f2c0+x,a 0da1: d5 c1 f2 mov $f2c1+x,a ; pan slide and volume ramp disabled 0da4: cb 9b mov $9b,y 0da6: e8 02 mov a,#$02 0da8: 3f cf 1a call SetInstrument 0dab: eb 9b mov y,$9b 0dad: 1d dec x 0dae: 1d dec x 0daf: 4b 91 lsr $91 0db1: e8 dc mov a,#$dc 0db3: dc dec y 0db4: 10 c4 bpl $0d7a 0db6: e4 86 mov a,$86 0db8: 24 90 and a,$90 0dba: 04 a4 or a,$a4 0dbc: 4e 22 00 tclr1 $0022 0dbf: 4e 5b 00 tclr1 $005b 0dc2: 4e 5d 00 tclr1 $005d 0dc5: 4e 61 00 tclr1 $0061 0dc8: 4e d0 00 tclr1 $00d0 0dcb: 4e d1 00 tclr1 $00d1 0dce: 0e 23 00 tset1 $0023 0dd1: 4e 25 00 tclr1 $0025 0dd4: c4 a5 mov $a5,a 0dd6: cd 1e mov x,#$1e 0dd8: 8f 80 91 mov $91,#$80 0ddb: 0b a5 asl $a5 0ddd: 90 03 bcc $0de2 0ddf: 3f 4c 1d call $1d4c 0de2: 1d dec x 0de3: 1d dec x 0de4: 4b 91 lsr $91 0de6: 73 91 f2 bbc3 $91,$0dda 0de9: e4 a4 mov a,$a4 0deb: 0e 86 00 tset1 $0086 0dee: 4e 89 00 tclr1 $0089 0df1: 4e 8b 00 tclr1 $008b 0df4: 4e 8a 00 tclr1 $008a 0df7: 4e 24 00 tclr1 $0024 0dfa: 6f ret ; ******************************************** $0DFB: 0dfb: c8 f0 cmp x,#$f0 0dfd: b0 04 bcs $0E03 ; if(X >= 0xF0) goto $0E03; 0dff: c8 90 cmp x,#$90 0e01: b0 0d bcs $0E10 ; if(X >= 0x90) return; $0E03: 0e03: 7d mov a,x 0e04: 28 1f and a,#$1f 0e06: 1c asl a 0e07: fd mov y,a 0e08: f6 c1 16 mov a,$16c1+y 0e0b: 2d push a 0e0c: f6 c0 16 mov a,$16c0+y 0e0f: 2d push a $0E10: 0e10: 6f ret ; ************************************ $0E1A: 0E11: 3f 1a 0e call $0e1a 0E14: 3f 22 0e call $0e22 0E17: 5f 2a 0e jmp $0e2a $0E1A: 0E1a: 18 7f d0 or $d0,#$7f 0E1d: cd 00 mov x,#$00 ; $D0 |= 0x7F; X = 00; 0E1f: 5f 2f 0e jmp $0e2f $0E22: 0E22: 18 c0 d0 or $d0,#$c0 0E25: cd 02 mov x,#$02 ; $D0 |= 0xC0; X = 0x02; 0E27: 5f 2f 0e jmp $0e2f ; goto $0E2Fl $0E2A: 0E2A: 18 30 d0 or $d0,#$30 0e2d: cd 04 mov x,#$04 ; $D0 |= 0x30; X = 0x04; $0E2F: 0e2f: eb 8f mov y,$8f 0e31: e4 8e mov a,$8e $0E33: 0e33: d5 66 f1 mov $f166+x,a 0e36: d0 0e bne $0e46 0e38: d5 60 f1 mov $f160+x,a 0e3b: d5 6c f1 mov $f16c+x,a 0e3e: d5 6d f1 mov $f16d+x,a 0e41: dd mov a,y 0e42: d5 61 f1 mov $f161+x,a 0e45: 6f ret $0E46: 0e46: dd mov a,y 0e47: 80 setc 0e48: b5 61 f1 sbc a,$f161+x 0e4b: f0 e6 beq $0e33 0e4d: 4d push x 0e4e: 3f 5f 0e call $0e5f 0e51: ce pop x 0e52: d5 6c f1 mov $f16c+x,a 0e55: dd mov a,y 0e56: d5 6d f1 mov $f16d+x,a 0e59: e8 00 mov a,#$00 0e5b: d5 60 f1 mov $f160+x,a 0e5e: 6f ret ; ********************************** $0E5F: 0e5f: 0d push psw 0e60: b0 03 bcs $0e65 0e62: 48 ff eor a,#$ff 0e64: bc inc a ; A = abs(A); $0E65: 0e65: f8 8e mov x,$8e 0e67: 8d 00 mov y,#$00 0e69: 9e div ya,x 0e6a: c4 b6 mov $b6,a ; $B6 = quotient(YA / $8E); 0e6c: e8 00 mov a,#$00 0e6e: 9e div ya,x 0e6f: c4 b5 mov $b5,a ; $B5 = quotient((YA % $8E) / YA); // $B5.w is a 2 byte hexadecimal fraction 0e71: 8e pop psw ;(fixed point fraction representation), and oh yeah, pop the Processor Status Word 0e72: b0 08 bcs $0e7c ; if original input was positive, skip the next 3 instructions 0e74: 58 ff b5 eor $b5,#$ff 0e77: 58 ff b6 eor $b6,#$ff 0e7a: 3a b5 incw $b5 ; reinstate the original sign of the input data $0E7C: 0e7c: ba b5 movw ya,$b5 ; YA = $B5; 0e7e: 6f ret ; ********************************** $0E7F: 0e7f: 3f aa 0e call $0eaa $0E82: 0e82: eb 8f mov y,$8f ; Y = $8F; 0e84: e4 8e mov a,$8e $0E86: 0e86: c4 ad mov $ad,a ; $AD = $8E; 0e88: d0 09 bne $0e93 ; if($8E) goto $0E93; 0e8a: cb aa mov $aa,y ; $AA = $8F; 0e8c: c4 a9 mov $a9,a 0e8e: c4 ac mov $ac,a 0e90: c4 ab mov $ab,a ; $$AB = $AC = $A9 = 0x00; 0e92: 6f ret $0E93: 0e93: fa aa a5 mov ($a5),($aa) 0e96: 58 80 a5 eor $a5,#$80 ; $A5 ^= 0x80; 0e99: dd mov a,y 0e9a: 48 80 eor a,#$80 0e9c: 80 setc 0e9d: a4 a5 sbc a,$a5 0e9f: f0 e5 beq $0e86 ; if( ( (Y ^ 0x80) - $A5) == 0 ) goto $0E86; 0ea1: 3f 5f 0e call $0e5f ; YA = 0ea4: da ab movw $ab,ya 0ea6: 8f 00 a9 mov $a9,#$00 ; $AB = YA; $A9 = 0x00; 0ea9: 6f ret ; ****************************************** 0eaa: eb 8f mov y,$8f 0eac: e4 8e mov a,$8e 0eae: c4 b4 mov $b4,a 0eb0: d0 0a bne $0ebc 0eb2: cb af mov $af,y 0eb4: c4 ae mov $ae,a 0eb6: c4 b3 mov $b3,a 0eb8: c4 b2 mov $b2,a 0eba: 2f 16 bra $0ed2 0ebc: fa af a5 mov ($a5),($af) 0ebf: 58 80 a5 eor $a5,#$80 0ec2: dd mov a,y 0ec3: 48 80 eor a,#$80 0ec5: 80 setc 0ec6: a4 a5 sbc a,$a5 0ec8: f0 e4 beq $0eae 0eca: 3f 5f 0e call $0e5f 0ecd: da b2 movw $b2,ya 0ecf: 8f 00 ae mov $ae,#$00 0ed2: 8f ff d1 mov $d1,#$ff 0ed5: 6f ret 0ed6: e4 8e mov a,$8e 0ed8: 64 b1 cmp a,$b1 0eda: c4 b1 mov $b1,a 0edc: f0 07 beq $0ee5 0ede: e8 c0 mov a,#$c0 0ee0: 24 86 and a,$86 0ee2: 0e d1 00 tset1 $00d1 0ee5: 6f ret $0EE6: 0ee6: e8 ff mov a,#$ff 0ee8: 60 clrc 0ee9: 84 8e adc a,$8e 0eeb: ca 87 60 mov1 $0c10,7,c 0eee: b0 04 bcs $0ef4 0ef0: e8 40 mov a,#$40 0ef2: 2f 02 bra $0ef6 $0EF4: 0ef4: e8 7f mov a,#$7f 0ef6: 8d 0c mov y,#$0c 0ef8: 3f a3 07 call WriteDSP 0efb: 8d 1c mov y,#$1c 0efd: 5f a3 07 jmp WriteDSP ; third command set command $0F00: 0f00: e4 8e mov a,$8e 0f02: d0 04 bne $0f08 0f04: 12 87 clr0 $87 0f06: 2f 02 bra $0f0a $0F08: 0f08: 02 87 set0 $87 0f0a: 8f ff d0 mov $d0,#$ff 0f0d: 6f ret ; ********************************************** $0F0E: 0f0e: 3f 17 0f call $0f17 0f11: 3f 3f 0f call $0f3f 0f14: 5f 71 0f jmp $0f71 ; *********************************** $0F17: 0f17: e4 86 mov a,$86 0f19: 48 ff eor a,#$ff 0f1b: 0e 23 00 tset1 $0023 0f1e: 4e 22 00 tclr1 $0022 0f21: 4e 89 00 tclr1 $0089 0f24: 4e 8b 00 tclr1 $008b 0f27: 4e 8a 00 tclr1 $008a 0f2a: e8 00 mov a,#$00 0f2c: c4 53 mov $53,a 0f2e: c4 54 mov $54,a 0f30: c4 58 mov $58,a 0f32: c4 56 mov $56,a ; $56 = $58 = $54 = $53 = 0x00; 0f34: 9c dec a 0f35: c4 80 mov $80,a 0f37: c4 bb mov $bb,a 0f39: c4 bc mov $bc,a ; $BC = $BB = $80 = 0xFF; 0f3b: 6f ret ; *********************************** $0F3C: 0f3c: 03 8e 32 bbs0 $8e,$0F71 0f3f: e4 86 mov a,$86 0f41: 28 c0 and a,#$c0 0f43: 0e 23 00 tset1 $0023 0f46: 4e 22 00 tclr1 $0022 0f49: 4e 25 00 tclr1 $0025 0f4c: 4e d0 00 tclr1 $00d0 0f4f: 4e d1 00 tclr1 $00d1 0f52: c4 a4 mov $a4,a 0f54: cd 1e mov x,#$1e 0f56: 8f 80 91 mov $91,#$80 $0F59: 0f59: 0b a4 asl $a4 0f5b: 90 0c bcc $0f69 0f5d: e8 c1 mov a,#$c1 0f5f: d4 02 mov $02+x,a 0f61: e8 1d mov a,#$1d 0f63: d4 03 mov $03+x,a 0f65: e8 02 mov a,#$02 0f67: d4 26 mov $26+x,a $0F69: 0f69: 1d dec x 0f6a: 1d dec x 0f6b: 4b 91 lsr $91 0f6d: b3 91 e9 bbc5 $91,$0F59 0f70: 6f ret $0F71: 0f71: e4 86 mov a,$86 0f73: 28 30 and a,#$30 0f75: 0e 23 00 tset1 $0023 0f78: 4e 22 00 tclr1 $0022 0f7b: 4e 25 00 tclr1 $0025 0f7e: 4e d0 00 tclr1 $00d0 0f81: 4e d1 00 tclr1 $00d1 0f84: 1c asl a 0f85: 1c asl a 0f86: c4 a4 mov $a4,a 0f88: cd 1a mov x,#$1a 0f8a: 8f 20 91 mov $91,#$20 $0F8D: 0f8d: 0b a4 asl $a4 0f8f: 90 0c bcc $0F9D 0f91: e8 c1 mov a,#$c1 0f93: d4 02 mov $02+x,a 0f95: e8 1d mov a,#$1d 0f97: d4 03 mov $03+x,a 0f99: e8 02 mov a,#$02 0f9b: d4 26 mov $26+x,a $0F9D: 0f9d: 1d dec x 0f9e: 1d dec x 0f9f: 4b 91 lsr $91 0fa1: 73 91 e9 bbc3 $91,$0F8D 0fa4: 6f ret ; ****************************************** $0FA5: 0fa5: fa 8e a7 mov ($a7),($8e) 0fa8: 8f ff d0 mov $d0,#$ff 0fab: 6f ret ; ****************************************** $0FAC: 0fac: e4 8e mov a,$8e 0fae: 4e a7 00 tclr1 $00a7 0fb1: 0e d0 00 tset1 $00d0 0fb4: 6f ret $0FB5: 0fb5: e4 8e mov a,$8e 0fb7: 0e a7 00 tset1 $00a7 0fba: 0e d0 00 tset1 $00d0 0fbd: 6f ret $0FBE: 0fbe: e4 8e mov a,$8e 0fc0: f0 35 beq $0ff7 0fc2: 8d 05 mov y,#$05 $0FC4: 0fc4: cb f2 mov $f2,y 0fc6: e4 f3 mov a,$f3 0fc8: 28 7f and a,#$7f 0fca: c4 f3 mov $f3,a 0fcc: dd mov a,y 0fcd: 60 clrc 0fce: 88 10 adc a,#$10 0fd0: fd mov y,a 0fd1: 10 f1 bpl $0fc4 0fd3: cd 00 mov x,#$00 0fd5: 8d 00 mov y,#$00 $0FD7: 0fd7: cb f2 mov $f2,y 0fd9: d8 f3 mov $f3,x 0fdb: fc inc y 0fdc: cb f2 mov $f2,y 0fde: d8 f3 mov $f3,x 0fe0: dd mov a,y 0fe1: 60 clrc 0fe2: 88 0f adc a,#$0f 0fe4: fd mov y,a 0fe5: 10 f0 bpl $0fd7 0fe7: 82 87 set4 $87 0fe9: e8 00 mov a,#$00 0feb: c4 d0 mov $d0,a 0fed: c4 22 mov $22,a 0fef: 8d 10 mov y,#$10 $0FF1: 0ff1: d6 bd 00 mov $00bd+y,a 0ff4: fe fb dbnz y,$0FF1 0ff6: 6f ret 0ff7: 8d 05 mov y,#$05 0ff9: cb f2 mov $f2,y 0ffb: e4 f3 mov a,$f3 0ffd: 08 80 or a,#$80 0fff: c4 f3 mov $f3,a 1001: dd mov a,y 1002: 60 clrc 1003: 88 10 adc a,#$10 1005: fd mov y,a 1006: 10 f1 bpl $0ff9 1008: 92 87 clr4 $87 100a: 8f ff d0 mov $d0,#$ff 100d: 6f ret 100e: 7d mov a,x 100f: bc inc a 1010: 28 7f and a,#$7f 1012: c4 9b mov $9b,a 1014: e4 f4 mov a,$f4 1016: f0 fc beq $1014 1018: 64 f4 cmp a,$f4 101a: d0 f8 bne $1014 101c: 3e f4 cmp x,$f4 101e: d0 04 bne $1024 1020: d8 f4 mov $f4,x 1022: 2f f0 bra $1014 1024: 64 9b cmp a,$9b 1026: d0 ec bne $1014 1028: 5d mov x,a 1029: 13 88 03 bbc0 $88,$102e 102c: 3f 26 13 call $1326 102f: ba f6 movw ya,$f6 1031: da 97 movw $97,ya 1033: e4 f5 mov a,$f5 1035: 68 e0 cmp a,#$e0 1037: f0 3b beq $1074 1039: c4 f5 mov $f5,a 103b: d8 f4 mov $f4,x 103d: 28 07 and a,#$07 103f: 1c asl a 1040: ad 1e cmp y,#$1e 1042: 90 10 bcc $1054 1044: ad 2f cmp y,#$2f 1046: d0 0e bne $1056 1048: 4d push x 1049: 2d push a 104a: 3f 3f 0f call $0f3f 104d: 3f 71 0f call $0f71 1050: ae pop a 1051: ce pop x 1052: 2f 02 bra $1056 $1054: 1054: e8 00 mov a,#$00 $1056: 1056: fd mov y,a 1057: e8 10 mov a,#$10 1059: 2d push a 105a: e8 29 mov a,#$29 105c: 2d push a 105d: f6 45 15 mov a,$1545+y 1060: 2d push a 1061: f6 44 15 mov a,$1544+y 1064: 2d push a ; best guess so far is that these are header interface commands 1065: 3e f4 cmp x,$f4 1067: f0 fc beq $1065 1069: f8 f4 mov x,$f4 106b: 3e f4 cmp x,$f4 106d: d0 fa bne $1069 106f: e8 ee mov a,#$ee 1071: c4 f5 mov $f5,a 1073: 6f ret $1074: 1074: 8f 00 f5 mov $f5,#$00 1077: d8 f4 mov $f4,x 1079: 5f a8 07 jmp ResetCpuIn ; special command of some sort 107c: ba 97 movw ya,$97 107e: c5 9b 10 mov $109b,a ; self modifying code... lovely 1081: cc 9c 10 mov $109c,y 1084: c5 a3 10 mov $10a3,a 1087: cc a4 10 mov $10a4,y 108a: c5 a9 10 mov $10a9,a 108d: cc aa 10 mov $10aa,y 1090: 8d 00 mov y,#$00 1092: 2f 04 bra $1098 1094: 3e f4 cmp x,$f4 1096: d0 1a bne $10b2 $1098: 1098: e4 f5 mov a,$f5 109a: d6 20 f1 mov $f120+y,a 109d: fc inc y 109e: d8 f4 mov $f4,x 10a0: e4 f6 mov a,$f6 10a2: d6 20 f1 mov $f120+y,a 10a5: fc inc y 10a6: e4 f7 mov a,$f7 10a8: d6 20 f1 mov $f120+y,a 10ab: fc inc y 10ac: 30 1e bmi $10cc $10AE: 10ae: 3e f4 cmp x,$f4 10b0: f0 fc beq $10ae $10B2: 10b2: f8 f4 mov x,$f4 10b4: 10 de bpl $1094 10b6: 3e f4 cmp x,$f4 10b8: d0 f8 bne $10b2 10ba: c8 e0 cmp x,#$e0 10bc: f0 2d beq $10eb 10be: c8 ff cmp x,#$ff 10c0: d0 ec bne $10ae 10c2: e8 f0 mov a,#$f0 10c4: 2e f5 e7 cbne $f5,$10ad 10c7: c4 8e mov $8e,a 10c9: 5f bd 12 jmp $12bd 10cc: dd mov a,y 10cd: 28 7f and a,#$7f 10cf: fd mov y,a 10d0: e5 9b 10 mov a,$109b 10d3: 48 80 eor a,#$80 10d5: 30 09 bmi $10e0 10d7: ac 9c 10 inc $109c 10da: ac a4 10 inc $10a4 10dd: ac aa 10 inc $10aa 10e0: c5 9b 10 mov $109b,a 10e3: c5 a3 10 mov $10a3,a 10e6: c5 a9 10 mov $10a9,a 10e9: 2f c3 bra $10ae 10eb: 6f ret 10ec: ba 97 movw ya,$97 10ee: c5 0b 11 mov $110b,a 10f1: cc 0c 11 mov $110c,y 10f4: c5 13 11 mov $1113,a 10f7: cc 14 11 mov $1114,y 10fa: c5 19 11 mov $1119,a 10fd: cc 1a 11 mov $111a,y 1100: 8d 00 mov y,#$00 1102: 2f 04 bra $1108 1104: 3e f4 cmp x,$f4 1106: d0 25 bne $112d 1108: e4 f5 mov a,$f5 110a: d6 00 47 mov $4700+y,a 110d: fc inc y 110e: d8 f4 mov $f4,x 1110: e4 f6 mov a,$f6 1112: d6 00 47 mov $4700+y,a 1115: fc inc y 1116: e4 f7 mov a,$f7 1118: d6 00 47 mov $4700+y,a 111b: fc inc y 111c: 30 29 bmi $1147 111e: e4 fd mov a,$fd 1120: f0 07 beq $1129 1122: 4d push x 1123: 6d push y 1124: 3f 15 04 call $0415 1127: ee pop y 1128: ce pop x 1129: 3e f4 cmp x,$f4 112b: f0 f1 beq $111e 112d: f8 f4 mov x,$f4 112f: 10 d3 bpl $1104 1131: 3e f4 cmp x,$f4 1133: d0 f8 bne $112d 1135: c8 e0 cmp x,#$e0 1137: f0 2d beq $1166 1139: c8 ff cmp x,#$ff 113b: d0 e1 bne $111e 113d: e8 f0 mov a,#$f0 113f: 2e f5 dc cbne $f5,$111d 1142: c4 8e mov $8e,a 1144: 5f bd 12 jmp $12bd 1147: dd mov a,y 1148: 28 7f and a,#$7f 114a: fd mov y,a 114b: e5 0b 11 mov a,$110b 114e: 48 80 eor a,#$80 1150: 30 09 bmi $115b 1152: ac 0c 11 inc $110c 1155: ac 14 11 inc $1114 1158: ac 1a 11 inc $111a 115b: c5 0b 11 mov $110b,a 115e: c5 13 11 mov $1113,a 1161: c5 19 11 mov $1119,a 1164: 2f b8 bra $111e 1166: 6f ret 1167: ba 97 movw ya,$97 1169: c5 80 11 mov $1180,a 116c: cc 81 11 mov $1181,y 116f: c5 88 11 mov $1188,a 1172: cc 89 11 mov $1189,y 1175: 8d 00 mov y,#$00 1177: 2f 04 bra $117d 1179: 3e f4 cmp x,$f4 117b: d0 1a bne $1197 117d: e4 f5 mov a,$f5 117f: d6 c0 1f mov $1fc0+y,a 1182: fc inc y 1183: e4 f6 mov a,$f6 1185: d8 f4 mov $f4,x 1187: d6 c0 1f mov $1fc0+y,a 118a: fc inc y 118b: d0 06 bne $1193 118d: ac 81 11 inc $1181 1190: ac 89 11 inc $1189 1193: 3e f4 cmp x,$f4 1195: f0 fc beq $1193 1197: f8 f4 mov x,$f4 1199: 10 de bpl $1179 119b: 3e f4 cmp x,$f4 119d: d0 f8 bne $1197 119f: c8 e0 cmp x,#$e0 11a1: f0 0e beq $11b1 11a3: c8 ff cmp x,#$ff 11a5: d0 ec bne $1193 11a7: e8 f0 mov a,#$f0 11a9: 2e f5 e7 cbne $f5,$1192 11ac: c4 8e mov $8e,a 11ae: 5f bd 12 jmp $12bd 11b1: 6f ret 11b2: 8d 00 mov y,#$00 11b4: 2f 04 bra $11ba 11b6: 3e f4 cmp x,$f4 11b8: d0 0f bne $11c9 11ba: d8 f4 mov $f4,x 11bc: e4 f5 mov a,$f5 11be: d7 97 mov ($97)+y,a 11c0: fc inc y 11c1: d0 02 bne $11c5 11c3: ab 98 inc $98 11c5: 3e f4 cmp x,$f4 11c7: f0 fc beq $11c5 11c9: f8 f4 mov x,$f4 11cb: 10 e9 bpl $11b6 11cd: 3e f4 cmp x,$f4 11cf: d0 f8 bne $11c9 11d1: c8 e0 cmp x,#$e0 11d3: f0 0e beq $11e3 11d5: c8 ff cmp x,#$ff 11d7: d0 ec bne $11c5 11d9: e8 f0 mov a,#$f0 11db: 2e f5 e7 cbne $f5,$11c4 11de: c4 8e mov $8e,a 11e0: 5f bd 12 jmp $12bd 11e3: 6f ret ; ************************************* $11E4: 11e4: d8 f4 mov $f4,x ; CPUO0 = X; $11E6: 11e6: 3e f4 cmp x,$f4 11e8: f0 fc beq $11e6 ; if(CPUI0 == X) goto $11E6; $11EA: 11ea: f8 f4 mov x,$f4 11ec: 3e f4 cmp x,$f4 11ee: d0 fa bne $11ea 11f0: 7d mov a,x 11f1: 10 f1 bpl $11e4 11f3: c8 e0 cmp x,#$e0 11f5: f0 0e beq $1205 11f7: c8 ff cmp x,#$ff 11f9: d0 e9 bne $11e4 11fb: e8 f0 mov a,#$f0 11fd: 2e f5 e4 cbne $f5,$11e3 1200: c4 8e mov $8e,a 1202: 5f bd 12 jmp $12bd 1205: 6f ret $1205: 1206: ba f6 movw ya,$f6 1208: da 99 movw $99,ya 120a: d8 f4 mov $f4,x 120c: 3f 75 12 call $1275 120f: b0 63 bcs $1274 1211: ba f6 movw ya,$f6 1213: da 9b movw $9b,ya 1215: d8 f4 mov $f4,x 1217: dd mov a,y 1218: f0 28 beq $1242 121a: ba 97 movw ya,$97 121c: c5 2d 12 mov $122d,a 121f: cc 2e 12 mov $122e,y 1222: ba 99 movw ya,$99 1224: c5 30 12 mov $1230,a 1227: cc 31 12 mov $1231,y 122a: 8d 00 mov y,#$00 122c: f6 26 6b mov a,$6b26+y 122f: d6 01 4e mov $4e01+y,a 1232: fc inc y 1233: d0 f7 bne $122c 1235: ab 98 inc $98 1237: ab 9a inc $9a 1239: ac 2e 12 inc $122e 123c: ac 31 12 inc $1231 123f: 6e 9c ea dbnz $9c,$122b 1242: 1a 97 decw $97 1244: 1a 99 decw $99 1246: ba 97 movw ya,$97 1248: c5 5b 12 mov $125b,a 124b: cc 5c 12 mov $125c,y 124e: ba 99 movw ya,$99 1250: c5 5e 12 mov $125e,a 1253: cc 5f 12 mov $125f,y 1256: eb 9b mov y,$9b 1258: f0 08 beq $1262 125a: f6 25 6b mov a,$6b25+y 125d: d6 00 4e mov $4e00+y,a 1260: fe f8 dbnz y,$125a 1262: 3f 75 12 call $1275 1265: b0 0d bcs $1274 1267: ba f6 movw ya,$f6 1269: da 97 movw $97,ya 126b: d8 f4 mov $f4,x 126d: 3f 75 12 call $1275 1270: b0 02 bcs $1274 1272: 2f 92 bra $1206 1274: 6f ret 1275: 3e f4 cmp x,$f4 1277: f0 fc beq $1275 1279: f8 f4 mov x,$f4 127b: 10 16 bpl $1293 127d: 3e f4 cmp x,$f4 127f: d0 f8 bne $1279 1281: c8 e0 cmp x,#$e0 1283: f0 14 beq $1299 1285: c8 ff cmp x,#$ff 1287: d0 ec bne $1275 1289: e8 f0 mov a,#$f0 128b: 2e f5 e7 cbne $f5,$1274 128e: c4 8e mov $8e,a 1290: 5f bd 12 jmp $12bd 1293: 3e f4 cmp x,$f4 1295: f0 04 beq $129b 1297: 2f dc bra $1275 1299: 80 setc 129a: 8d 60 mov y,#$60 129c: 6f ret 129d: e4 8e mov a,$8e 129f: 60 clrc 12a0: 88 ff adc a,#$ff 12a2: ca 88 a0 mov1 $1411,0,c 12a5: b0 04 bcs $12ab 12a7: e8 2a mov a,#$2a 12a9: 2f 02 bra $12ad 12ab: e8 01 mov a,#$01 12ad: 8f 02 f1 mov $f1,#$02 12b0: c4 fa mov $fa,a 12b2: 8f 03 f1 mov $f1,#$03 12b5: 6f ret 12b6: e4 8e mov a,$8e 12b8: 28 0f and a,#$0f 12ba: c4 d2 mov $d2,a 12bc: 6f ret 12bd: e4 8e mov a,$8e 12bf: 68 01 cmp a,#$01 12c1: d0 09 bne $12cc 12c3: e4 8f mov a,$8f $12C5: 12c5: 60 clrc 12c6: 88 ff adc a,#$ff 12c8: ca 88 e0 mov1 $1c11,0,c ; (A == 0) ? $1C11 &= 0xFF : $1C11 |= 0xFF; $12CB: 12cb: 6f ret $12CC: 12cc: 68 f0 cmp a,#$f0 12ce: d0 fb bne $12CB ; if(A != 0xF0) goto $12CB; 12d0: e8 e0 mov a,#$e0 12d2: 8d 6c mov y,#$6c 12d4: 3f a3 07 call WriteDSP ; FLG = 0xE0 (this soft resets the DSP, turns off echo buffer, sets EFB frequency to 0, and mutes all sound) 12d7: 8f 80 f1 mov $f1,#$80 ; Makes sure IPL rom is enabled 12da: 5f c0 ff jmp $ffc0 ; Jumps to the IPL rom... ; ********************************************* ; Commands E5 and E7 (and other things) - does absolutely nothing Dummy: 12dd: 6f ret ; ********************************************* $12DE: 12de: cb b5 mov $b5,y ; $B5 = input2 12e0: 60 clrc 12e1: fd mov y,a 12e2: 30 07 bmi $12EB ; if(input1 & 0x80) goto $12EB; 12e4: 84 b5 adc a,$b5 ; A = (input1 + input2); 12e6: 90 09 bcc $12F1 ; if(result < 0x100) return; 12e8: e8 ff mov a,#$ff ; return 0xFF; 12ea: 6f ret $12EB: 12eb: 84 b5 adc a,$b5 ; A = (input1 + input2) 12ed: b0 02 bcs $12f1 ; if(result >= 0x100) goto $12Fl; 12ef: e8 00 mov a,#$00 ; return 0x00; $12F1: 12f1: 6f ret ; ************************************************ 12f2: eb 8e mov y,$8e 12f4: e4 8f mov a,$8f 12f6: 5f a3 07 jmp WriteDSP ; *********************************************** $12F9: 12f9: 8f 00 d7 mov $d7,#$00 12fc: e6 mov a,(x) 12fd: f0 16 beq $1315 12ff: e4 83 mov a,$83 1301: 2f 0c bra $130f $1303: 1303: eb fe mov y,$fe ; Y = T1OUT (timer 1) 1305: d0 07 bne $130e ; if(Y) goto $130E; 1307: 2d push a 1308: 3f 92 08 call $0892 ; 130b: ae pop a 130c: 2f f5 bra $1303 ; $130E: 130e: bc inc a $130F: 130f: 66 cmp a,(x) 1310: 90 f1 bcc $1303 1312: 3f cd 08 call $08cd $1315: 1315: 6f ret 1316: 3f 52 13 call $1352 1319: 8f 00 83 mov $83,#$00 131c: e4 82 mov a,$82 131e: f0 01 beq $1321 1320: 6f ret $1321: 1321: 32 88 clr1 $88 1323: 5f 97 13 jmp $1397 ; ********************************************* $1326: 1326: e4 fe mov a,$fe 1328: 60 clrc 1329: 84 83 adc a,$83 132b: c4 83 mov $83,a ; $83 += T1OUT 132d: 6f ret ; ********************************************* $132E: 132e: e4 8e mov a,$8e 1330: 28 0f and a,#$0f 1332: 64 81 cmp a,$81 1334: f0 1b beq $1351 ; if(($8E & 0x0F) == $81) goto $1351; // return; 1336: 8f 00 83 mov $83,#$00 1339: c4 81 mov $81,a ; $83 = 0x00; $81 = ($8E & 0x0F); 133b: 3f 52 13 call $1352 ; does Echo settings initialization 133e: cd 82 mov x,#$82 1340: 3f f9 12 call $12f9 1343: 3f 97 13 call $1397 1346: cd 81 mov x,#$81 1348: 3f f9 12 call $12f9 134b: e4 53 mov a,$53 134d: d0 02 bne $1351 134f: c4 4f mov $4f,a ; Sets echo to zero in this scenario. $1351: 1351: 6f ret ; ********************************************* $1352: 1352: 8f 6c f2 mov $f2,#$6c 1355: e4 f3 mov a,$f3 ; A = FLG; 1357: 08 20 or a,#$20 1359: c4 f3 mov $f3,a ; FLG |= 0x20; // stop echo ring buffer processing 135b: e8 00 mov a,#$00 135d: 8d 4d mov y,#$4d 135f: 3f a3 07 call WriteDSP ; EON = 0x00; // disables echo mixing for all voices 1362: 8d 0d mov y,#$0d 1364: 3f a3 07 call WriteDSP ; FFB = 0x00; // sets echo feedback volume to 0. 1367: 8d 2c mov y,#$2c 1369: 3f a3 07 call WriteDSP ; EVOLL = 0x00; 136c: 8d 3c mov y,#$3c 136e: 3f a3 07 call WriteDSP ; EVOLR = 0x00; 1371: 8d 7d mov y,#$7d 1373: cb f2 mov $f2,y 1375: e4 f3 mov a,$f3 ; obtain current echo ring buffer size 1377: 28 0f and a,#$0f 1379: c4 82 mov $82,a ; cache the current value somewhere? 137b: e4 81 mov a,$81 137d: 3f a3 07 call WriteDSP ; EDL = $81; // echo ring buffer size is set to whatever $81 is 1380: 1c asl a ; depending on the value $81 has, the echo buffer will range anywhere from $7900 to $F100 1381: 1c asl a ; But as for actual values that are used for $81 in reality, that remains to be seen. 1382: 1c asl a ; note that an echo buffer location of $F100 also means that there is no echo buffer b/c EDL = 0 in that case. 1383: 48 ff eor a,#$ff 1385: bc inc a 1386: 60 clrc 1387: 88 f1 adc a,#$f1 1389: 8d 6d mov y,#$6d 138b: 3f a3 07 call WriteDSP ; ESA = (((EDL < 3) ^ 0xFF) + 1) + 0xF1; 138e: 8f 01 f1 mov $f1,#$01 ; confusing... 1391: eb fe mov y,$fe 1393: 8f 03 f1 mov $f1,#$03 ; but according to anomie, timer 1 is probably transitioned from 1 -> 0 -> 1 to get it to reset its stage 2 state 1396: 6f ret ; ************************************************** $1397: 1397: 8f 01 f1 mov $f1,#$01 ; enable Timer 0 139a: eb fe mov y,$fe 139c: 8f 03 f1 mov $f1,#$03 ; Y = T1OUT; enable Timers 0 and 1 139f: 8f 6c f2 mov $f2,#$6c 13a2: e4 f3 mov a,$f3 13a4: 28 df and a,#$df 13a6: c4 f3 mov $f3,a ; FLG &= 0xDF ; (disables echo buffer) 13a8: 6f ret ; ************************************************** 13a9: fa bc bb mov ($bb),($bc) 13ac: e8 00 mov a,#$00 13ae: c4 93 mov $93,a 13b0: e8 f2 mov a,#$f2 13b2: c4 94 mov $94,a 13b4: e8 00 mov a,#$00 13b6: c4 95 mov $95,a 13b8: e8 f8 mov a,#$f8 13ba: c4 96 mov $96,a 13bc: 8d 00 mov y,#$00 $13BE: 13be: f7 93 mov a,($93)+y 13c0: d7 95 mov ($95)+y,a 13c2: fc inc y 13c3: d0 f9 bne $13bE 13c5: ab 94 inc $94 13c7: ab 96 inc $96 13c9: 78 f8 94 cmp $94,#$f8 13cc: d0 f0 bne $13BE 13ce: 1a 95 decw $95 13d0: 8d 80 mov y,#$80 $13D2: 13d2: f6 ff ff mov a,$ffff+y 13d5: d7 95 mov ($95)+y,a 13d7: fe f9 dbnz y,$13D2 13d9: ab 96 inc $96 13db: 8d 90 mov y,#$90 $13DD: 13dd: f6 ff 00 mov a,$00ff+y 13e0: d7 95 mov ($95)+y,a 13e2: fe f9 dbnz y,$13dd 13e4: 6f ret 13e5: 8f ff bb mov $bb,#$ff 13e8: e8 00 mov a,#$00 13ea: c4 93 mov $93,a 13ec: e8 f2 mov a,#$f2 13ee: c4 94 mov $94,a 13f0: e8 00 mov a,#$00 13f2: c4 95 mov $95,a 13f4: e8 f8 mov a,#$f8 13f6: c4 96 mov $96,a 13f8: 8d 00 mov y,#$00 13fa: f7 95 mov a,($95)+y 13fc: d7 93 mov ($93)+y,a 13fe: fc inc y 13ff: d0 f9 bne $13fa 1401: ab 94 inc $94 1403: ab 96 inc $96 1405: 78 f8 94 cmp $94,#$f8 1408: d0 f0 bne $13fa 140a: 1a 95 decw $95 140c: 8d 80 mov y,#$80 140e: f7 95 mov a,($95)+y 1410: d6 ff ff mov $ffff+y,a 1413: fe f9 dbnz y,$140e 1415: ab 96 inc $96 1417: 8d 90 mov y,#$90 1419: f7 95 mov a,($95)+y 141b: d6 ff 00 mov $00ff+y,a 141e: fe f9 dbnz y,$1419 $1420: 1420: e8 10 mov a,#$10 1422: c5 66 f1 mov $f166,a 1425: cc 60 f1 mov $f160,y 1428: 8d f0 mov y,#$f0 142a: cc 6c f1 mov $f16c,y 142d: 8d 0e mov y,#$0e 142f: cc 6d f1 mov $f16d,y 1432: e8 10 mov a,#$10 1434: c5 61 f1 mov $f161,a 1437: 6f ret ; **************************************** $1438: 1438: e8 9b mov a,#$9b 143a: c4 a0 mov $a0,a ; $A0 = 0x9B; 143c: e8 be mov a,#$be 143e: 8f 00 a4 mov $a4,#$00 1441: 60 clrc 1442: 8f 09 91 mov $91,#$09 ; A = 0xBE; $A4 = 0x00; $91 = 0x09; 1445: 83 88 02 bbs4 $88,$144A ; if($88 & 0x10) goto $144A; 1448: 2f 06 bra $1450 $144A: 144a: 88 08 adc a,#$08 144c: c2 91 set6 $91 ; $91 |= 0x40; 144e: e2 a4 set7 $a4 ; $A4 |= 0x80; $1450: 1450: c4 a1 mov $a1,a 1452: 88 08 adc a,#$08 1454: c4 a3 mov $a3,a 1456: f8 a1 mov x,$a1 $1458: 1458: eb 91 mov y,$91 145a: cb f2 mov $f2,y ; DSPADDR = $91; 145c: eb f3 mov y,$f3 145e: cb a2 mov $a2,y ; $A2 = DSPDATA; 1460: bf mov a,(x)+ ; A = (X++); 1461: 1c asl a 1462: cf mul ya 1463: dd mov a,y 1464: 28 70 and a,#$70 1466: c4 9f mov $9f,a ; $9F = A & 0x70; 1468: eb a2 mov y,$a2 146a: bf mov a,(x)+ 146b: 1c asl a 146c: cf mul ya 146d: dd mov a,y 146e: d8 a1 mov $a1,x 1470: f8 a0 mov x,$a0 1472: 9f xcn a 1473: 28 07 and a,#$07 1475: 04 9f or a,$9f 1477: 04 a4 or a,$a4 1479: af mov (x)+,a 147a: d8 a0 mov $a0,x 147c: 60 clrc 147d: 98 10 91 adc $91,#$10 1480: f8 a1 mov x,$a1 1482: 3e a3 cmp x,$a3 1484: d0 d2 bne $1458 ; if($A1 != $A3) goto $1458; 1486: ba 9b movw ya,$9b 1488: da f4 movw $f4,ya ; CPUO0.w = $9B; 148a: ba 9d movw ya,$9d 148c: da f6 movw $f6,ya ; CPUO2.w = $9D; 148e: ea 88 80 not1 $1011,0 1491: 6f ret ; ******************************************** $1492: 1492: e5 66 f1 mov a,$f166 1495: f0 31 beq $14c8 ; if($F166 == 0) goto $14C8; 1497: 9c dec a 1498: c5 66 f1 mov $f166,a ; $F166--; 149b: 5d mov x,a 149c: e5 60 f1 mov a,$f160 149f: 60 clrc 14a0: 85 6c f1 adc a,$f16c 14a3: c5 60 f1 mov $f160,a ; $F160 += $F16C; 14a6: e5 61 f1 mov a,$f161 14a9: 85 6d f1 adc a,$f16d 14ac: 65 61 f1 cmp a,$f161 14af: c5 61 f1 mov $f161,a ; $F161 += $F16D; 14b2: f0 03 beq $14b7 ; if($F16D == 0) goto $14B7; 14b4: 09 53 d0 or ($d0),($53) ; $D0 |= $53; $14B7: 14b7: fd mov y,a 14b8: d0 0e bne $14c8 14ba: 7d mov a,x 14bb: d0 0b bne $14c8 14bd: ba bb movw ya,$bb 14bf: 2d push a 14c0: 6d push y 14c1: 3f 17 0f call $0f17 14c4: ee pop y 14c5: ae pop a 14c6: da bb movw $bb,ya $14C8: 14c8: e5 68 f1 mov a,$f168 14cb: f0 29 beq $14f6 ; if($F168 == 0) goto $14F6; 14cd: 9c dec a 14ce: c5 68 f1 mov $f168,a 14d1: 5d mov x,a 14d2: e5 62 f1 mov a,$f162 14d5: 60 clrc 14d6: 85 6e f1 adc a,$f16e 14d9: c5 62 f1 mov $f162,a 14dc: e5 63 f1 mov a,$f163 14df: 85 6f f1 adc a,$f16f 14e2: 65 63 f1 cmp a,$f163 14e5: c5 63 f1 mov $f163,a 14e8: f0 03 beq $14ed 14ea: 18 c0 d0 or $d0,#$c0 $14ED: 14ed: fd mov y,a 14ee: d0 06 bne $14f6 14f0: 7d mov a,x 14f1: d0 03 bne $14f6 14f3: 3f 3f 0f call $0f3f $14F6: 14f6: e5 6a f1 mov a,$f16a 14f9: f0 29 beq $1524 ; if($F16A == 0) goto $1524; 14fb: 9c dec a 14fc: c5 6a f1 mov $f16a,a 14ff: 5d mov x,a 1500: e5 64 f1 mov a,$f164 1503: 60 clrc 1504: 85 70 f1 adc a,$f170 1507: c5 64 f1 mov $f164,a 150a: e5 65 f1 mov a,$f165 150d: 85 71 f1 adc a,$f171 1510: 65 65 f1 cmp a,$f165 1513: c5 65 f1 mov $f165,a 1516: f0 03 beq $151b 1518: 18 30 d0 or $d0,#$30 $151B: 151b: fd mov y,a 151c: d0 06 bne $1524 151e: 7d mov a,x 151f: d0 03 bne $1524 1521: 3f 71 0f call $0f71 $1524: 1524: e4 ad mov a,$ad 1526: f0 08 beq $1530 1528: 8b ad dec $ad 152a: ba ab movw ya,$ab 152c: 7a a9 addw ya,$a9 152e: da a9 movw $a9,ya $1530: 1530: e4 b4 mov a,$b4 1532: f0 0f beq $1543 1534: 8b b4 dec $b4 1536: ba b2 movw ya,$b2 1538: 7a ae addw ya,$ae 153a: 7e af cmp y,$af 153c: da ae movw $ae,ya 153e: f0 03 beq $1543 1540: 09 53 d1 or ($d1),($53) $1543" 1543: 6f ret ; *************************************************** ; some other routine table (not main commands though) $1544: dw $11E4 ; command xx dw $11B2 ; command xx dw $1167 ; command xx dw $107C ; command xx dw $11E4 ; command xx dw $10EC ; command xx dw $11E4 ; command xx dw $1206 ; command xx ; ************************************ CommandRoutines: $1554: dw ChanVol ; command C4 (1 arg), Sets channel volume (additive) -> N-SPC ED (same arguments, maybe need tweaking) dw ChanVolSlide ; command C5 (2 args), Volume Slide (volume ramp, fade, etc) -> N-SPC EE (same arguments probably) dw ChanPan ; command C6 (1 arg), sets pan on the left and right volume for the channel -> N-SPC E1 (byte1 -> byte1 / 0x06 (approximately) dw ChanPanSlide ; command C7 (2 args), does a gradual change of the pan from the current value to a target one -> N-SPC E2 dw $17F2 ; command C8 (2 args), channel pitch slide -> N-SPC F9 dw $186E ; command C9 (3 args), sets up vibrato -> N-SPC E3 dw $192E ; command CA (0 args), turns off vibrato -> N-SPC E4 dw $1938 ; command CB (3 args), SetTremlo -> N-SPC EA dw $198E ; command CC (0 args), TremeloOff -> N-SPC EC dw $1998 ; command CD (2 args), pan loop on (not me) -> not supported dw $19EE ; command CE (0 args), pan loop off (not me) -> not supported dw NoiseFreq ; command CF (1 arg), Sets the noise output frequency (0 to 0x1F are valid values) -> could support with a negative instrument setup, but probably won't support dw NoiseOn ; command D0 (0 args), Turns noise on for this channel -> see CF dw NoiseOff ; command D1 (0 args), Turns noise off for this channel -> see D1 dw PitchModOn ; command D2 (0 args), Sets pitch modulation as "on" for the channel -> not supported dw PitchModOff ; command D3 (0 args), Sets pitch modulation as "off" for the channel -> not supported dw EchoOn ; command D4 (0 args), enables echo for this channel -> dw EchoOff ; command D5 (0 args), disables echo for this channel -> N-SPC dw SetOctave ; command D6 (1 arg), sets octave to the inputted value dw OctaveUp ; command D7 (0 args), sets octave one higher dw OctaveDown ; command D8 (0 args), sets octave one lower dw Tranpose ; command D9 (1 arg), zero means no transpose is taking place, any other value either shifts the channel up or down by X semitones -> N-SPC EA dw TranposeRel ; command DA (1 arg), TransposeRel (Rel stands for "relative") dw FineTune ; command DB (1 arg), does an additive tuning to the low byte of a channel's pitch (this is NOT the same as tranpose!) dw SetInstrument ; command DC (1 arg), SetInstrument dw SetAttack ; command DD (1 arg), SetAttack dw SetDecay ; command DE (1 arg), SetDecay dw SetSustainLevel; command DF (1 arg), SetSustainLevel dw SetSustainRate ; command E0 (1 arg), SetSustainRate dw ResetADSR ; command E1 (0 args), ResetADSR sets ADSR1 and ADSR2 to predetermines values picked from a table (similar to N-SPC) dw $1C64 ; command E2 (1 arg), loop (not me) dw $1C94 ; command E3 (0 args), end loop (not me) dw $1B72 ; command E4 (0 args), .... has something to do with sustain or keying on or off dw Dummy ; command E5 (0 args), does nothing, the S-SPC equivilent of NOP dw DisableKeyOff ; command E6 (0 args), seems to keep the engine from forcing a channel to key off (enabled per channel) dw Dummy ; command E7 (0 args), does nothing, same as command E5 dw NoteExtend ; command E8 (1 arg), extends the current note's sustain time dw SetTrackA ; command E9 (1 arg), argument picks a new track location from a table ($2F00 + (4*arg) dw SetTrackB ; command EA (1 arg), argument picks a new track from a table ($2F02 + (4*arg)) dw Error ; command EB (0 args), Error dw Error ; command EC (0 args), Error dw Error ; command ED (0 args), Error dw Error ; command EE (0 args), Error dw Error ; command EF (0 args), Error dw SetTempo ; command F0 (1 arg), sets tempo (globally) dw TempoSlide ; command F1 (2 args), gradually changes tempo from the current one to a new value dw EchoVolume ; command F2 (1 arg), sets echo volume left and right (EVOLL / R) -> N-SPC F5 dw EchoVolSlide ; command F3 (2 args), causes a gradual echo volume change (see command) -> N-SPC F8 dw GlobalVol ; command F4 (1 arg), sets global volume -> N-SPC E5 dw $1C09 ; command F5 (3 args), waits until a loop has done X iterations and if it has, jumps to a supplied 16-bit offset (if not, this whole command is skipped) dw GotoTrack ; command F6 (2 args), sets the track pointer to a 16-bit argument relative from the value at $00.w dw SetEchoFB ; command F7 (2 args), sets echo feedback volume to gradually change over time (if first parameter is zero, just sets EFB) -> slide feature not supported dw SetFirCoeff ; command F8 (2 args), sets the echo FIRx (echo filter) coefficients for all 8 voices and optionally slide. (if the first byte is zero it just sets it as fixed) dw TalkBack ; command F9 (1 arg), sends a status notification to the S-CPU (for gameplay synchronization) dw EventGotoTrack ; command FA (3 args), event based version of GotoTrack. (see command for details) dw DrumsOn ; command FB (0 args), sets it so this channel uses percussion oriented note handling dw DrumsOff ; command FC (0 args), disables the percussion oriented note handling dw ChanVolGain ; command FD (1 arg), Sets Channel Volume Gain (multiplier) dw Error ; command FE (0 args), Error dw Error ; command FF (0 args), Error ; WIP $1608: dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $1B86 ; Shadow Command DC (negates the effects 0f normal E4) dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $1CC9 ; Shadow Command E3 (same functionality as normal E3) dw $1B86 ; Shadow Command E4 (negates the effects 0f normal E4) dw $1B86 ; Shadow Command E5 (negates the effects 0f normal E4) dw $1B86 ; Shadow Command E6 (negates the effects 0f normal E4) dw $1B86 ; Shadow Command E7 (negates the effects 0f normal E4) dw $0000 dw $1BD9 ; Shadow Command E9 (same functionality as normal E9) dw $1BDD ; Shadow Command EA (same functionality as normal EA) dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $1C39 ; Shadow command F5 dw GotoTrack_S ; Shadow command F6 dw $0000 dw $0000 dw $0000 dw $1D2A ; Shadow Command FA (similar but not identical to normal FA. checks $D2 rather than $D3) dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 ; startup routines 1? $1680: dw $0BDB dw $0BE3 dw $12DD dw $12DD dw $0BD8 dw $0BE0 dw $12DD dw $12DD dw $0D45 dw $0D51 dw $12DD dw $12DD dw $12DD dw $12DD dw $12DD dw $12DD ; startup routines 2? $16A0: dw $0D29 dw $0D29 dw $0000 dw $0000 dw $0D29 dw $0D29 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 dw $0000 ; ******************************************** ThirdCommandSet: dw $0E11 ; * dw $0E1A ; * dw $0E22 ; * dw $0E2A ; * dw Dummy ; Dummy dw $0E7F ; * dw $0E82 ; * dw $0EAA ; * dw $12B6 ; * dw $0ED6 dw Dummy ; * dw Dummy ; * dw Dummy ; * dw Dummy ; * dw $0EE6 ; * dw Dummy ; * dw $0F0E ; * dw $0F17 ; * dw $0F3C ; * dw $0F00 ; * dw $0FA5 ; * dw $0E7F dw $0E82 dw $0EAA dw $0E11 dw $0E1A dw $0E22 dw $0E2A dw $12DD dw $0E7F dw $0E82 dw $0EAA ; ****************************************************** RegList: db $4C, $2D, $3D, $6C, $5C, $4D, $2C, $3C, $0D, $0F, $1F, $2F, $3F, $4F, $5F, $6F, $7F ; KON, PMON, NON, FLG, KOFF, EON, EVOLL, EVOLR, EFB, FIR0, FIR1, FIR2, FIR3, FIR4, FIR5, FIR6, FIR7 LoadList: db $22, $8B, $8A, $8C, $23, $89, $D9, $D9, $76, $66, $68, $6A, $6C, $6E, $70, $72, $74 ; ********************************************** ; Command F0 - SetTempo SetTempo: 1722: 8d 14 mov y,#$14 1724: cf mul ya ; YA = 0x14 * track_byte; 1725: dd mov a,y ; A = high byte of result 1726: 60 clrc 1727: 84 a5 adc a,$a5 1729: c4 47 mov $47,a ; $47 += (track_byte + A); 172b: e8 00 mov a,#$00 172d: c4 46 mov $46,a $172F: 172f: c4 4a mov $4a,a ; $4A = $46 = 0x00; 1731: 6f ret ; ********************************************** ; Command F1 - TempoSlide TempoSlide: 1732: c4 4a mov $4a,a ; Tempo fade countdown timer = track_byte; 1734: c4 8e mov $8e,a 1736: 3f 53 07 call $0753 ; Get next track_byte; 1739: eb 8e mov y,$8e 173b: f0 e5 beq SetTempo ; if($8E) SetTempo(); // just sets tempo if the countdown is zero 173d: 8d 14 mov y,#$14 173f: cf mul ya 1740: dd mov a,y 1741: 60 clrc 1742: 84 a5 adc a,$a5 1744: 80 setc 1745: a4 47 sbc a,$47 ; A = (highbyte(0x14 * track_byte) + track_byte) - current volume; 1747: f0 e6 beq $172F ; if(current_tempo == target_tempo) return; // actually it branches up and sets the tempo fade counter to zero as well 1749: 3f 5f 0e call $0E5F ; YA = A / $8E; // A divided by countdown timer 174c: f8 a6 mov x,$a6 174e: da 4b movw $4b,ya ; $4B = YA; // note YA is a fixed point hexadecimal fraction 1750: 6f ret ; ******************************************** ; Command F4 - Sets a global volume gain (multiplier) GlobalVol: 1751: c4 4d mov $4d,a 1753: 09 53 d0 or ($d0),($53) ; $4D = track_byte; $D0 |= $53; 1756: 6f ret ; ******************************************** ; Command FD - Channel Volume Multiplier ChanVolGain: 1757: 1c asl a 1758: d5 20 f2 mov $f220+x,a ; $F220+X = track_byte << 1; 175b: 09 91 d0 or ($d0),($91) ; $D0 |= $91; 175e: 6f ret ; ******************************************** ; Command C4 - Channel Volume ChanVol: 175f: 28 7f and a,#$7f 1761: d5 41 f2 mov $f241+x,a ; sets the channel volume (capped at 0x7F) to byte 1; 1764: e8 00 mov a,#$00 1766: d5 40 f2 mov $f240+x,a ; $F240+X.w = (track_byte & 0x7F) << 8); 1769: 09 91 d0 or ($d0),($91) ; $D0 |= $91; $176C: 176c: d5 c0 f2 mov $f2c0+x,a ; Disable channel volume ramp 176f: 6f ret ; ******************************************** ; Command C5 - Volume Ramp ; Parameter info: byte1 - ticks it takes to reach target volume, byte2 - target volume ChanVolSlide: 1770: d5 c0 f2 mov $f2c0+x,a ; Set volume ramp 1773: c4 8e mov $8e,a ; $F2C0+X = track_byte; // byte 1 1775: 3f 53 07 call $0753 ; get next track_byte; 1778: 28 7f and a,#$7f 177a: eb 8e mov y,$8e 177c: f0 e1 beq ChanVol ; if(!Y) goto $175F; ; // if volume ramp is set to zero, this is just the channel volume command. 177e: 80 setc 177f: b5 41 f2 sbc a,$f241+x ; A -= $F241+X; // Subtract off current channel volume from the argument. 1782: f0 e8 beq $176c ; if(!A) goto $176C; // i.e. set channel volume ramp to off as well ; // (since a volume ramp wouldn't go anywhere even if we did one anyway.) 1784: 3f 5f 0e call $0e5f ; YA = (target_chan_volume - current_chan_volume) / (volume_ramp_frames); 1787: f8 a6 mov x,$a6 ; restore track index 1789: d5 60 f2 mov $f260+x,a 178c: dd mov a,y 178d: d5 61 f2 mov $f261+x,a ; $F260+X.w = YA; // sets volume ramp step variable 1790: 6f ret ; return; ; ********************************************** ; Command F2 - sets echo volume (both channels always have the same echo volume in this engine. Also note that this is a global setting.) ; Parameter info: byte1 - sets echo volume left (EVOLL) and EVOLR to this value EchoVolume: 1791: c4 4f mov $4f,a ; $4F = track_byte; 1793: e8 00 mov a,#$00 1795: c4 4e mov $4e,a $1797: 1797: c4 52 mov $52,a ; $52 = $4E = 0; 1799: 6f ret ; ********************************************* ; Command F3 - causes a gradual change from the current echo volume to a target echo volume ; Parameter info: byte1 - number of ticks to reach echo volume level, byte 2 - target echo volume level (for both channels) EchoVolSlide: 179a: c4 52 mov $52,a 179c: c4 8e mov $8e,a 179e: 3f 53 07 call $0753 ; get next track_byte; 17a1: eb 8e mov y,$8e 17a3: f0 ec beq EchoVolume 17a5: 48 80 eor a,#$80 17a7: ea 4f e0 not1 $004F,6 17aa: 80 setc 17ab: a4 4f sbc a,$4f 17ad: ea 4f e0 not1 $004F,6 17b0: f0 e5 beq $1797 ; if( 17b2: 3f 5f 0e call $0e5f ; performs a division of (A / $8E); 17b5: f8 a6 mov x,$a6 17b7: da 50 movw $50,ya ; sets the echo slide step variable (to gradually assume the new echo volume) 17b9: 6f ret ; *********************************************** ; Command C6 - Set Channel Pan ; Parameter info: value * 2 is stored to $F281+X. A value of 0x40 means balanced pan, 0x00 would be full left pan, 0x7F would be full right pan ChanPan: 17ba: c8 10 cmp x,#$10 17bc: b0 0f bcs $17cd ; if(X >= 0x10) return; // though I don't see why this should ever occur in reality >_> 17be: 1c asl a 17bf: d5 81 f2 mov $f281+x,a ; $F281+X = track_byte << 1; 17c2: e8 00 mov a,#$00 17c4: d5 80 f2 mov $f280+x,a 17c7: 09 91 d0 or ($d0),($91) $17CA: 17ca: d5 c1 f2 mov $f2c1+x,a ; $F280+X = 0x00; $D0 |= $91; F2C1+X = 0x00; ; sets Channel Pan Slide to "off" $17CD: 17cd: 6f ret ; return; ; ********************************************** ; Command C7 - Channel Pan Slide ; Parameter info: byte1 - ticks it takes to reach target pan value, byte2 - target pan value ChanPanSlide: 17ce: d5 c1 f2 mov $f2c1+x,a 17d1: c4 8e mov $8e,a ; $8E = $F2C1+X = track_byte; // byte 1 17d3: 3f 53 07 call $0753 ; get next track_byte; 17d6: c8 10 cmp x,#$10 17d8: b0 17 bcs $17f1 ; if(X >= 0x10) return; 17da: eb 8e mov y,$8e 17dc: f0 dc beq ChanPan ; if(!$8E) goto $17BA; // do Command C6 in this case. ; (sets Pan level appropriately then sets Pan Slide to "off") 17de: 1c asl a 17df: 80 setc 17e0: b5 81 f2 sbc a,$f281+x ; A = (track_byte << 1) - $F281+X; 17e3: f0 e5 beq $17ca ; if(!A) goto $17CA; // current_pan and target_pan are the same, so turn Pan Slide "off" 17e5: 3f 5f 0e call $0e5f ; YA = (target_pan - current_pan) / byte1; 17e8: f8 a6 mov x,$a6 ; restore track index. 17ea: d5 a0 f2 mov $f2a0+x,a 17ed: dd mov a,y 17ee: d5 a1 f2 mov $f2a1+x,a ; set Pan Slide step variable ($F2A0+X.w) $17F1: 17f1: 6f ret ; ******************************************** ; Command C8 - channel pitch slide $17F2: 17f2: bc inc a 17f3: d5 60 f3 mov $f360+x,a ; $F360+X = track_byte + 1; 17f6: 3f 53 07 call $0753 ; get next track_byte; 17f9: d5 50 01 mov $0150+x,a 17fc: 6f ret ; ******************************************** ; Command DA - tranposes relative to the old tranpose state (meaning it doesn't set an explicit tranpose value, just adds one to the existing one) TransposeRel: 17fd: 60 clrc 17fe: 95 61 f3 adc a,$f361+x ; Command D9 - tranposes the channel by one or more semitones (e.g. 0x04 would be up 4 semitones, 0xFF would be down 1 semitone) Transpose: 1801: d5 61 f3 mov $f361+x,a 1804: 6f ret ; ******************************************** ; Command F7 - sets echo feedback volume to gradually change over time SetEchoFB: 1805: c4 78 mov $78,a 1807: c4 8e mov $8e,a ; $8E = $78 = track_byte 1809: 3f 53 07 call $0753 ; get next track_byte (target volume) 180c: eb 8e mov y,$8e 180e: f0 13 beq $1823 ; if(!$8E) goto $1823; // if high byte is nonzero... pretty much return, I think 1810: 48 80 eor a,#$80 1812: ea 76 e0 not1 $1c0e,6 ; $1C0E ^= 0x40; 1815: 80 setc 1816: a4 76 sbc a,$76 1818: ea 76 e0 not1 $1c0e,6 ; $1C0E ^= 0x40; 181b: 3f 5f 0e call $0e5f ; YA = (A / $8E); 181e: f8 a6 mov x,$a6 ; restore track_pointer; 1820: da 79 movw $79,ya ; echo feedback volume step variable 1822: 6f ret $1823: 1823: c4 76 mov $76,a ; Set echo feedback volume to zero. 1825: 6f ret ; ******************************************** ; Command F8 - Sets Fir coefficients for echo filters ; parameter info: byte1 - ticks it takes to reach target fir coefficient set, byte2 - target fir coefficient inde SetFIRCoeff: 1826: c4 77 mov $77,a 1828: c4 8e mov $8e,a ; $8E = $77 = track_byte; (number of ticks until target fir coefficients are reached) 182a: 3f 53 07 call $0753 ; Get next track_byte 182d: 28 03 and a,#$03 182f: bc inc a 1830: 1c asl a 1831: 1c asl a 1832: 1c asl a 1833: fd mov y,a ; Y = ((byte1 & 0x03) + 1) << 3; // 0 -> 0x8, 1 -> 0x10, 2 -> 0x18, 3 -> 0x20 1834: cd 10 mov x,#$10 1836: e4 8e mov a,$8e 1838: f0 27 beq $1861 ; if(byte1 == 0) goto $1861; $183A: 183a: e8 00 mov a,#$00 183c: d4 63 mov $63+x,a ; $63+X = 0; 183e: f4 64 mov a,$64+x 1840: 48 80 eor a,#$80 1842: c4 9b mov $9b,a ; $9B = $64+X ^ 0x80; // FIRx ^ 0x80; 1844: f6 92 1d mov a,$1d92+y 1847: 48 80 eor a,#$80 1849: 80 setc 184a: a4 9b sbc a,$9b ; A = ($1D92+Y ^ 0x80) - $9B; 184c: 6d push y 184d: 4d push x 184e: 3f 5f 0e call $0e5f 1851: ce pop x 1852: d5 fe 00 mov $00fe+x,a 1855: dd mov a,y 1856: d5 ff 00 mov $00ff+x,a 1859: ee pop y 185a: dc dec y 185b: 1d dec x 185c: 1d dec x 185d: d0 db bne $183a 185f: 2f 0a bra $186b $1861: 1861: f6 92 1d mov a,$1d92+y 1864: d4 64 mov $64+x,a 1866: dc dec y 1867: 1d dec x 1868: 1d dec x 1869: d0 f6 bne $1861 $186B: 186b: f8 a6 mov x,$a6 186d: 6f ret ; ********************************************** ; Command C9 - Vibrato $186E: 186e: c8 10 cmp x,#$10 1870: 90 08 bcc $187a 1872: 8d 00 mov y,#$00 1874: cd 0c mov x,#$0c 1876: 9e div ya,x 1877: f8 a6 mov x,$a6 1879: dd mov a,y $187A: 187a: d5 10 01 mov $0110+x,a 187d: 3f 53 07 call $0753 ; Get next track_byte; 1880: d5 e0 f2 mov $f2e0+x,a 1883: c4 9b mov $9b,a 1885: 3f 53 07 call $0753 ; get next track_byte; 1888: d5 51 01 mov $0151+x,a ; $0151+X = byte3; // either a switch or intensity... 188b: 3f de 18 call $18de 188e: f8 a6 mov x,$a6 1890: e4 9b mov a,$9b 1892: d5 00 f4 mov $f400+x,a 1895: e4 9c mov a,$9c 1897: d5 01 f4 mov $f401+x,a 189a: e8 00 mov a,#$00 189c: d5 00 f5 mov $f500+x,a 189f: d5 01 f5 mov $f501+x,a ; vibrato timers? ; alternate entry point used during playback when vibrato is enabled 18a2: e8 00 mov a,#$00 18a4: d5 80 f4 mov $f480+x,a 18a7: d5 81 f4 mov $f481+x,a ; um....? 18aa: f5 e0 f2 mov a,$f2e0+x 18ad: d5 e1 f2 mov $f2e1+x,a ; um....? 18b0: f5 01 f4 mov a,$f401+x 18b3: fd mov y,a 18b4: f5 00 f4 mov a,$f400+x 18b7: da 9b movw $9b,ya 18b9: f5 21 f2 mov a,$f221+x 18bc: 28 70 and a,#$70 18be: fd mov y,a 18bf: c8 10 cmp x,#$10 18c1: 90 04 bcc $18c7 ; if(X < 0x10) goto $18C7; 18c3: e8 00 mov a,#$00 18c5: 2f 03 bra $18ca $18C7: 18c7: f5 10 01 mov a,$0110+x $18CA: 18ca: d5 11 01 mov $0111+x,a 18cd: 3f 08 19 call $1908 ; 18d0: d5 21 f2 mov $f221+x,a ; 18d3: e4 9b mov a,$9b 18d5: d5 20 f4 mov $f420+x,a 18d8: e4 9c mov a,$9c 18da: d5 21 f4 mov $f421+x,a ; $F420+X.w = 0; 18dd: 6f ret ; ********************************************** $18DE: 18de: 28 3f and a,#$3f 18e0: bc inc a ; A = (A & 0x3F) + 1; 18e1: 8d 00 mov y,#$00 18e3: cb 9c mov $9c,y ; $9C = 0; 18e5: f8 9b mov x,$9b 18e7: f0 06 beq $18ef ; if(!9B) goto $18EF; 18e9: 9e div ya,x 18ea: c4 9c mov $9c,a ; $9C = quotient(A / $9B); 18ec: e8 00 mov a,#$00 18ee: 9e div ya,x ; divide the remainder by $9B (which will then be stored to $9B) $18EF: 18ef: c4 9b mov $9b,a ; if the above branch wasn't taken, $9B.w is a hexadecimal fraction (fixed point) of $A / $9B; 18f1: 4b 9c lsr $9c 18f3: 6b 9b ror $9b 18f5: 4b 9c lsr $9c 18f7: 6b 9b ror $9b ; $9B.w >>= 2; 18f9: ba 9b movw ya,$9b 18fb: d0 02 bne $18FF ; if($9B.w) goto $18FF; 18fd: ab 9b inc $9b ; $9B++; (ensures that this multiplier is at least 1) $18FF: 18ff: 0b 9b asl $9b 1901: 2b 9c rol $9c 1903: 0b 9b asl $9b 1905: 2b 9c rol $9c ; $9B.w <<= 2; 1907: 6f ret ; *********************************************** $1908: 1908: 0d push psw 1909: f0 08 beq $1913 ; if(A == 0) goto $1913; 190b: 4b 9c lsr $9c 190d: 6b 9b ror $9b 190f: 4b 9c lsr $9c 1911: 6b 9b ror $9b ; $9B.w >>= 2; $1913: 1913: 78 80 a5 cmp $a5,#$80 1916: 90 0d bcc $1925 ; if($A5 < 0x80) goto $1925; 1918: 78 c0 a5 cmp $a5,#$c0 191b: b0 08 bcs $1925 ; if($A5 >= 0xC0) goto $1925; 191d: 58 ff 9b eor $9b,#$ff 1920: 58 ff 9c eor $9c,#$ff 1923: 3a 9b incw $9b ; $9B *= -1; $1925: 1925: 8e pop psw 1926: f0 04 beq $192c 1928: dd mov a,y 1929: 08 07 or a,#$07 192b: 8d dd mov y,#$dd 192d: 6f ret ; ******************************************** ; Command CA - Vibrato Off 192e: d5 51 01 mov $0151+x,a ; $0151+X = 0; vibrato off apparently... 1931: d5 00 f5 mov $f500+x,a ; set vibrato step variable to zero? 1934: d5 01 f5 mov $f501+x,a 1937: 6f ret ; ******************************************** ; Command CB - performs tremelo settings $1938: 1938: d5 30 01 mov $0130+x,a 193b: 3f 53 07 call $0753 ; get next track byte 193e: d5 20 f3 mov $f320+x,a 1941: c4 9b mov $9b,a 1943: 3f 53 07 call $0753 ; get next track byte 1946: d5 70 01 mov $0170+x,a 1949: 3f de 18 call $18de ; performs a division of byte3 / byte2 194c: f8 a6 mov x,$a6 194e: e4 9b mov a,$9b 1950: d5 40 f4 mov $f440+x,a ; 1953: e4 9c mov a,$9c 1955: d5 41 f4 mov $f441+x,a 1958: e8 00 mov a,#$00 195a: d5 a0 f4 mov $f4a0+x,a 195d: d5 a1 f4 mov $f4a1+x,a ; alternate entry point. this is used to produce tremelo effect during playback 1960: f5 20 f3 mov a,$f320+x 1963: d5 21 f3 mov $f321+x,a 1966: f5 41 f4 mov a,$f441+x 1969: fd mov y,a 196a: f5 40 f4 mov a,$f440+x 196d: da 9b movw $9b,ya 196f: f5 21 f2 mov a,$f221+x 1972: 28 07 and a,#$07 1974: 9f xcn a 1975: fd mov y,a 1976: f5 30 01 mov a,$0130+x 1979: d5 31 01 mov $0131+x,a 197c: 3f 08 19 call $1908 197f: 9f xcn a 1980: d5 21 f2 mov $f221+x,a 1983: e4 9b mov a,$9b 1985: d5 60 f4 mov $f460+x,a 1988: e4 9c mov a,$9c 198a: d5 61 f4 mov $f461+x,a 198d: 6f ret ; *********************************************** ; Command CC - ???? $198E: 198e: d5 70 01 mov $0170+x,a 1991: d5 a0 f4 mov $f4a0+x,a 1994: d5 a1 f4 mov $f4a1+x,a 1997: 6f ret ; *********************************************** ; Command CD - PanLoopOn $1998: 1998: 60 clrc 1999: bc inc a 199a: f0 08 beq $19a4 199c: 28 fe and a,#$fe 199e: d0 05 bne $19a5 19a0: e8 02 mov a,#$02 19a2: 2f 01 bra $19a5 19a4: 80 setc 19a5: d5 40 f3 mov $f340+x,a 19a8: 7c ror a 19a9: d5 41 f3 mov $f341+x,a 19ac: fd mov y,a 19ad: 3f 53 07 call $0753 19b0: 1c asl a 19b1: e4 a5 mov a,$a5 19b3: 28 7f and a,#$7f 19b5: 90 02 bcc $19b9 19b7: 48 7f eor a,#$7f 19b9: c4 9b mov $9b,a 19bb: dd mov a,y 19bc: 10 05 bpl $19c3 19be: 8f 00 9c mov $9c,#$00 19c1: 2f 13 bra $19d6 19c3: 5d mov x,a 19c4: 8d 00 mov y,#$00 19c6: e4 9b mov a,$9b 19c8: 9e div ya,x 19c9: c4 9c mov $9c,a 19cb: e8 00 mov a,#$00 19cd: 9e div ya,x 19ce: c4 9b mov $9b,a 19d0: ba 9b movw ya,$9b 19d2: d0 02 bne $19d6 19d4: ab 9b inc $9b $19D6: 19d6: 90 08 bcc $19e0 19d8: 58 ff 9b eor $9b,#$ff 19db: 58 ff 9c eor $9c,#$ff 19de: 3a 9b incw $9b $19E0: 19e0: f8 a6 mov x,$a6 19e2: e4 9b mov a,$9b 19e4: d5 e0 f3 mov $f3e0+x,a 19e7: e4 9c mov a,$9c 19e9: d5 e1 f3 mov $f3e1+x,a 19ec: e4 a5 mov a,$a5 ; Command CE - pan loop off $19EE: 19ee: d5 71 01 mov $0171+x,a 19f1: e8 00 mov a,#$00 19f3: d5 c0 f4 mov $f4c0+x,a 19f6: d5 c1 f4 mov $f4c1+x,a 19f9: 6f ret ; ***************************************** ; Command D7 - OctaveUp OctaveUp: 19fa: f5 00 f2 mov a,$f200+x 19fd: 60 clrc 19fe: 88 0c adc a,#$0c 1a00: d5 00 f2 mov $f200+x,a ; shift up an octave 1a03: 6f ret ; ***************************************** ; Command D8 - OctaveDown OctaveDown: 1a04: f5 00 f2 mov a,$f200+x 1a07: 80 setc 1a08: a8 0c sbc a,#$0c 1a0a: d5 00 f2 mov $f200+x,a ; shift down an octave 1a0d: 6f ret ; ************************************** ; Command D6 - Set Octave SetOctave: 1a0e: 8d 0c mov y,#$0c 1a10: cf mul ya ; YA = 12 * track_byte; (12 notes in an octave, makes sense right?) 1a11: d5 00 f2 mov $f200+x,a 1a14: 6f ret ; ************************************** ; Command D4 - enables echo for this voice EchoOn: 1a15: c8 10 cmp x,#$10 1a17: b0 05 bcs $1A1E ; if(X >= 0x10) goto $1A1E; 1a19: 09 91 54 or ($54),($91) ; $54 |= $91; 1a1c: 2f 03 bra $1A21 $1A1E: 1a1e: 09 91 55 or ($55),($91) ; $55 |= $81; $1A21: 1a21: e4 86 mov a,$86 1a23: 48 ff eor a,#$ff 1a25: 24 54 and a,$54 1a27: 04 55 or a,$55 1a29: c4 89 mov $89,a ; $89 = (($86 ^ 0xFF) & $54) | $55; 1a2b: 6f ret ; ************************************** ; Command D5 - disables echo for this voice EchoOff: 1a2c: e4 91 mov a,$91 1a2e: c8 10 cmp x,#$10 1a30: b0 05 bcs $1A37 ; if(X >= 0x10) goto $1A37; 1a32: 4e 54 00 tclr1 $0054 ; unset a bit in $54 corresponding to this channel 1a35: 2f ea bra $1a21 $1A37: 1a37: 4e 55 00 tclr1 $0055 ; unset a bit in $55 corresponding to this channel 1a3a: 2f e5 bra $1A21 ; finalizes the disabling of the echo ; ****************************************** ; Command D0 - enables noise on this channel NoiseOn: 1a3c: c8 10 cmp x,#$10 1a3e: b0 05 bcs $1a45 ; if(X >= 0x10) goto $1A45; 1a40: 09 91 56 or ($56),($91) ; $56 |= $91; 1a43: 2f 03 bra $1a48 ; goto $1A48; $1A45: 1a45: 09 91 57 or ($57),($91) ; $57 |= $91; $1A48: 1a48: fa 57 9b mov ($9b),($57) 1a4b: 12 9b clr0 $9b ; $9B |= $57; $9B &= 0xFE; 1a4d: e4 8c mov a,$8c 1a4f: 28 e0 and a,#$e0 ; A = $8C & 0xE0; 1a51: eb 57 mov y,$57 1a53: d0 04 bne $1a59 ; if($57) goto $1A59; 1a55: 04 62 or a,$62 ; A |= $62; 1a57: 2f 02 bra $1a5b $1A59: 1a59: 04 63 or a,$63 ; A |= $63; $1A5B: 1a5b: c4 8c mov $8c,a 1a5d: e4 86 mov a,$86 1a5f: 48 ff eor a,#$ff 1a61: 24 56 and a,$56 1a63: 04 9b or a,$9b 1a65: c4 8a mov $8a,a ; $8A = ((($86 ^ 0xFF) & $56) | $9B); 1a67: 6f ret ; ************************************************************************* ; Command D1 - Disables noise for this channel NoiseOff: 1a68: e4 91 mov a,$91 1a6a: c8 10 cmp x,#$10 1a6c: b0 05 bcs $1a73 ; if(X >= 0x10) goto $1A73; 1a6e: 4e 56 00 tclr1 $0056 ; mask out bits of $56 based on bits that are set in $91 1a71: 2f d5 bra $1a48 $1A73: 1a73: 4e 57 00 tclr1 $0057 ; mask out bits of $57 based on bits that are set in $91 1a76: 2f d0 bra $1a48 ; ******************************************************************* ; Command CF - Sets the noise frequency of the noise output (this cannot be set for each channel) NoiseFreq: 1a78: 28 1f and a,#$1f 1a7a: c8 10 cmp x,#$10 1a7c: b0 0d bcs $1a8b ; if(X >= 0x10) goto $1A8B; 1a7e: 64 a5 cmp a,$a5 1a80: f0 05 beq $1A87 ; if(!track_byte) goto $1A87; 1a82: 60 clrc 1a83: 84 62 adc a,$62 1a85: 28 1f and a,#$1f ; A = (track_byte + $62) & 0x1F; $1A87: 1a87: c4 62 mov $62,a ; $62 = ($62 + A) & 0x1F; 1a89: 2f bd bra $1A48 ; disable noise.... $1A8B: 1a8b: 64 a5 cmp a,$a5 1a8d: f0 05 beq $1A94 ; if(!track_byte) goto $1A94; 1a8f: 60 clrc 1a90: 84 63 adc a,$63 1a92: 28 1f and a,#$1f ; A = (track_byte + $63) & 0x1F; $1A94: 1a94: c4 63 mov $63,a ; $63 = A; 1a96: 2f b0 bra $1a48 ; ************************************************** ; Command D2 - enables pitch modulation for this voice) PitchModOn: 1a98: c8 10 cmp x,#$10 1a9a: b0 05 bcs $1aa1 ; if(X >= 0x10) goto $1AA1; 1a9c: 09 91 58 or ($58),($91) ; $58 |= $91; 1a9f: 2f 09 bra $1aaa $1AA1: 1aa1: e4 91 mov a,$91 1aa3: 28 50 and a,#$50 1aa5: d0 03 bne $1aaa ; if($91 & 0x50) goto $1AAA; (if using secondary channels 4 or 6 don't do anything?) 1aa7: 09 91 59 or ($59),($91) ; $59 |= $91; $1AAA: 1aaa: e4 86 mov a,$86 1aac: 48 ff eor a,#$ff 1aae: 24 58 and a,$58 1ab0: 04 59 or a,$59 1ab2: c4 8b mov $8b,a ; $8B = (($86 ^ 0xFF) & $58) | $59; 1ab4: 6f ret ; ******************************************** ; Command D3 - Turns off Pitch Modulation PitchModOff: 1ab5: e4 91 mov a,$91 1ab7: c8 10 cmp x,#$10 1ab9: b0 05 bcs $1AC0 ; if(X >= 0x10) goto $1AC0; 1abb: 4e 58 00 tclr1 $0058 ; unset bits in $58 according to $91 1abe: 2f ea bra $1aaa $1AC0: 1ac0: 4e 59 00 tclr1 $0059 ; unset bits in $59 according to $91 1ac3: 2f e5 bra $1aaa ; gotes into command D2 to make sure the settings are finished ; ******************************************** ; Command FB - sets it so this channel plays its notes in a way that is more common for percussion (drums) DrumsOn: 1ac5: 09 91 7c or ($7c),($91) ; set a bit in $7C for this channel 1ac8: 6f ret ; ******************************************** ; Command FC - ???? DrumsOff: 1ac9: e4 91 mov a,$91 1acb: 4e 7c 00 tclr1 $007c ; unset a bit in $7C for this channel 1ace: 6f ret ; ******************************************** ; Command DC - Sets the Instrument (ADSR1, ADSR2, tuning value (normalizes the pitch), and SetInstrument: 1acf: d5 01 f2 mov $f201+x,a ; $F201+X = track_byte; (instrument number?) 1ad2: 1c asl a 1ad3: fd mov y,a ; Y = $F201+X << 1; 1ad4: f6 00 1f mov a,$1f00+y 1ad7: d5 80 f3 mov $f380+x,a ; $F380+X = $1F00+Y; Instrument tuning low byte 1ada: f6 01 1f mov a,$1f01+y 1add: d5 81 f3 mov $f381+x,a ; $F381+X = $1F01+Y; Instrument tuning high byte 1ae0: f6 80 1f mov a,$1f80+y 1ae3: d5 40 f5 mov $f540+x,a ; $F540+X = $1F80+Y; (ADSR1 mirror) 1ae6: f6 81 1f mov a,$1f81+y 1ae9: d5 41 f5 mov $f541+x,a ; $F541+X = $1F81+Y; (ADSR2 mirror) 1aec: 6f ret ; ****************************************** $1AED: 1aed: f5 01 f2 mov a,$f201+x ; get sample number 1af0: fd mov y,a ; Y = A; 1af1: 7d mov a,x 1af2: 9f xcn a 1af3: 5c lsr a 1af4: 08 04 or a,#$04 ; A = (track_index << 3) | 0x04; 1af6: c4 f2 mov $f2,a ; meaning, we're latching to VxSRCN 1af8: cb f3 mov $f3,y ; VxSRCN = Y; 1afa: 2f 10 bra $1B0C ; ****************************************** ; Command DD - SetAttack (sets attack level in ADSR1 setting) SetAttack: 1afc: 28 0f and a,#$0f 1afe: c4 a5 mov $a5,a ; $A5 = track_byte & 0x0F; 1b00: f5 40 f5 mov a,$f540+x 1b03: 28 70 and a,#$70 1b05: 04 a5 or a,$a5 1b07: 08 80 or a,#$80 1b09: d5 40 f5 mov $f540+x,a ; $F540+X = ($F540+X & 0x70) | $A5 | 0x80; $1B0C: 1b0c: c8 10 cmp x,#$10 1b0e: b0 07 bcs $1b17 ; if(X >= 0x10) goto $1B17; 1b10: e4 86 mov a,$86 1b12: 24 91 and a,$91 1b14: f0 01 beq $1b17 ; if(($86 & $91) == 0) goto $1B17; 1b16: 6f ret $1B17: 1b17: 7d mov a,x 1b18: 9f xcn a 1b19: 5c lsr a 1b1a: 08 05 or a,#$05 ; (A = X << 3) | 0x05; 1b1c: fd mov y,a 1b1d: f5 40 f5 mov a,$f540+x ; Y = A; A = $F540+X 1b20: 3f a3 07 call WriteDSP ; ADSR1 = A; 1b23: fc inc y 1b24: f5 41 f5 mov a,$f541+x 1b27: 5f a3 07 jmp WriteDSP ; ADSR2 = $F541+X ; ********************************************** ; Command DE - SetDecay (Decay is a setting in ADSR1) SetDecay: 1b2a: 28 07 and a,#$07 1b2c: 9f xcn a 1b2d: c4 a5 mov $a5,a ; $A5 = (track_byte & 0x07) << 4; 1b2f: f5 40 f5 mov a,$f540+x 1b32: 28 0f and a,#$0f 1b34: 04 a5 or a,$a5 1b36: 08 80 or a,#$80 1b38: d5 40 f5 mov $f540+x,a ; $F540+X = ($F540+X & 0x0F) | $A5 | 0x80; 1b3b: 2f cf bra $1b0c ; goes on to set ADSR1 and ADSR2 to their new values ; ********************************************** ; Command DF - SetSustainLevel (Setting in ADSR2) SetSustainLevel: 1b3d: 28 07 and a,#$07 ; A &= 0x07; 1b3f: 9f xcn a 1b40: 1c asl a 1b41: c4 a5 mov $a5,a ; $A5 = (track_byte & 0x07) << 5); 1b43: f5 41 f5 mov a,$f541+x 1b46: 28 1f and a,#$1f 1b48: 04 a5 or a,$a5 1b4a: d5 41 f5 mov $f541+x,a ; $F541+X = ($F541+X & 0x1F) | $A5; 1b4d: 2f bd bra $1b0c ; goes on to set ADSR1 and ADSR2 to their new values ; ********************************************** ; Command E0 - SetSustainRate (Setting in ADSR2) SetSustainRate: 1b4f: 28 1f and a,#$1f 1b51: c4 a5 mov $a5,a ; $A5 = (track_byte & 0x1F); 1b53: f5 41 f5 mov a,$f541+x 1b56: 28 e0 and a,#$e0 1b58: 04 a5 or a,$a5 1b5a: d5 41 f5 mov $f541+x,a ; $F541+X = ($F541+X & 0xE0) | $A5); 1b5d: 2f ad bra $1b0c ; goes on to set ADSR1 and ADSR2 to their new values ; ********************************************** ; Command E1- Reset Instrument's ADSR ResetADSR: 1b5f: f5 01 f2 mov a,$f201+x 1b62: 1c asl a 1b63: fd mov y,a ; A = $F201 << 1; 1b64: f6 80 1f mov a,$1f80+y 1b67: d5 40 f5 mov $f540+x,a ; Sets ADSR1 mirror from an instrument table 1b6a: f6 81 1f mov a,$1f81+y 1b6d: d5 41 f5 mov $f541+x,a ; Sets ADSR2 mirror from an instrument table 1b70: 2f 9a bra $1b0c ; goes on to set ADSR1 and ADSR2 to their new value ; ********************************************** ; Command E4 - Sustain??? 1b72: e4 91 mov a,$91 1b74: c8 10 cmp x,#$10 1b76: b0 07 bcs $1b7f ; if($X >= 0x10) goto $1B7F; 1b78: 0e 5c 00 tset1 $005c 1b7b: 4e 5e 00 tclr1 $005e 1b7e: 6f ret $1B7F: 1b7f: 0e 5d 00 tset1 $005d 1b82: 4e 5f 00 tclr1 $005f 1b85: 6f ret ; ********************************************** ; Shadow command DC, E4, E5, E6, E7 - unsets $5C and $60 for this channel $1B86: 1b86: e4 91 mov a,$91 1b88: c8 10 cmp x,#$10 1b8a: b0 07 bcs $1b93 if(X >= 0x10) goto $1B93; 1b8c: 4e 5c 00 tclr1 $005c 1b8f: 4e 60 00 tclr1 $0060 1b92: 6f ret $1B93: 1b93: 4e 5d 00 tclr1 $005d 1b96: 4e 61 00 tclr1 $0061 1b99: 6f ret ; ********************************************** ; Command E6 - seems to make a note sustain indefinitely? DisableKeyOff: 1b9a: e4 91 mov a,$91 1b9c: c8 10 cmp x,#$10 1b9e: b0 04 bcs $1BA4 ; if(X >= 0x10) goto $1BA4 1ba0: 0e 60 00 tset1 $0060 ; set a bit in $60 corresponding to this channel. 1ba3: 6f ret $1BA4: 1ba4: 0e 61 00 tset1 $0061 ; set a bit in $60 corresponding to this channel. 1ba7: 6f ret ; ********************************************** ; Command E9 - SetTrackA 1ba8: 8d 00 mov y,#$00 1baa: 2f 02 bra $1bae ; Command EA - SetTrackB 1bac: 8d 02 mov y,#$02 $1BAE: 1bae: 3f bc 1b call $1bbc ; gets a track pointer from a table at $2F00 to $32FF 1bb1: d4 02 mov $02+x,a 1bb3: db 03 mov $03+x,y ; track_pointer = return value from $1BBC 1bb5: dd mov a,y 1bb6: d0 03 bne $1bbb ; if(track_pointer & 0xFF00) goto $1BBB; 1bb8: 5f 4a 1d jmp $1d4a ; goto $1D4A if the high byte was zero (error condition, serious business) $1BBB: 1bbb: 6f ret ; ***************************************** ; through various trickery, obtains a new track pointer address :/ $1BBC: ; Example: if track_byte = 0 and this is used with Command E9 (Y = 0) ; $96 will end up as 0 ; $95 will end up as 0 ; YA = 0x2F00 (0x2F02 if called from Command EA) 1bbc: 8f 00 96 mov $96,#$00 1bbf: 1c asl a 1bc0: 2b 96 rol $96 1bc2: 1c asl a 1bc3: 2b 96 rol $96 ; $96's bottom two bits are the top two bits of what track_byte was. 1bc5: c4 95 mov $95,a ; $95 = A; 1bc7: dd mov a,y ; A = 0x02 or 0x00 depending upon which routine called this above 1bc8: 8d 2f mov y,#$2f ; Y = 0x2F; 1bca: 7a 95 addw ya,$95 1bcc: da 95 movw $95,ya ; $95.w += YA; 1bce: 8d 00 mov y,#$00 1bd0: f7 95 mov a,($95)+y 1bd2: 2d push a 1bd3: fc inc y 1bd4: f7 95 mov a,($95)+y 1bd6: fd mov y,a 1bd7: ae pop a ; basically, YA = [$95.w] (indirection). This will end up as the track pointer's new address. 1bd8: 6f ret ; ********************************************** ; Shadow Command E9 - while a note is playing takes advantage of the down time to jump to the next location $1BD9: 1bd9: f7 93 mov a,($93)+y ; a = ($93)+y 1bdb: 2f 04 bra $1be1 ; ; Shadow Command EA - smilar to the above routine. Both of these are equivalent to their non shadow counterparts of the same number $1BDD: 1bdd: f7 93 mov a,($93)+y 1bdf: 8d 02 mov y,#$02 $1BE1: 1be1: 3f bc 1b call $1bbc ; obtains the new track pointer address that this command references 1be4: da 93 movw $93,ya 1be6: dd mov a,y 1be7: d0 04 bne $1bed ; if(highbyte != 0) goto $1BED; 1be9: ae pop a 1bea: ae pop a 1beb: e8 eb mov a,#$eb ; tells us to stop fucking around in shadow commands until the note finishes $1BED: 1bed: 6f ret ; ***************************************** ; Command F6 - sets the track pointer given a relative offset from $00 (start of the song data?) GotoTrack: 1bee: fd mov y,a ; Y = track_byte; // first one 1bef: 3f 53 07 call $0753 ; Get next track_byte; 1bf2: dd mov a,y 1bf3: eb a5 mov y,$a5 1bf5: 7a 00 addw ya,$00 1bf7: d4 02 mov $02+x,a ; going to set the track pointer to elsewhere 1bf9: db 03 mov $03+x,y ; $02+X.w = (byte2 << 8) | (byte1) + $00; // relative to start of the song? 1bfb: 6f ret ; **************************************** ; Shadow command F6 - shadow version of the F6 command above GotoTrack_S: 1bfc: f7 93 mov a,($93)+y 1bfe: 2d push a 1bff: fc inc y 1c00: f7 93 mov a,($93)+y 1c02: fd mov y,a 1c03: ae pop a 1c04: 7a 00 addw ya,$00 1c06: da 93 movw $93,ya 1c08: 6f ret ; *************************************** ; Command F5 - waits until a specific iteration of a loop then ends it. $1C09: ; Example: 02 55 55 ; $27+X is 4; ; then A <- $F564 1c09: c4 9d mov $9d,a ; $9D = track_byte; 1c0b: 3f 53 07 call $0753 ; get next track_byte; 1c0e: c4 9b mov $9b,a ; $9B = track_byte; 1c10: 3f 53 07 call $0753 ; get third track_byte; 1c13: c4 9c mov $9c,a ; $9C = track_byte; 1c15: fb 27 mov y,$27+x 1c17: f6 60 f5 mov a,$f560+y ; checks to see what iteration of a loop we might be on 1c1a: 2e 9d 1b cbne $9d,$1C38 ; if($F560+y != $9D) goto $1C38; (meaning if we're not on the iteration of the loop that this command expects, we return and do nothing) 1c1d: f6 80 f5 mov a,$f580+y ; decrease the the number of iterations left for us to loop 1c20: 9c dec a ; A = $F580+X - 1; 1c21: d0 0d bne $1c30 ; if(A) goto $1C30; 1c23: 7d mov a,x 1c24: 1c asl a 1c25: 9c dec a 1c26: 9b 27 dec $27+x 1c28: de 27 05 cbne $27+x,$1C30 ; if( ( (track_index << 1) - 1 ) != $27+X) goto $1C30; 1c2b: 60 clrc 1c2c: 88 04 adc a,#$04 ; preventing stack underflow 1c2e: d4 27 mov $27+x,a ; $27+X += 0x04; $1C30: 1c30: ba 9b movw ya,$9b 1c32: 7a 00 addw ya,$00 1c34: d4 02 mov $02+x,a 1c36: db 03 mov $03+x,y ; track_pointer = $9B.w + $00.w $1C38: 1c38: 6f ret ; ************************************************ ; Shadow Command F5 - not the normal command F5, only used if a note is in progress $1C39: 1c39: eb ba mov y,$ba ; mirror of iteration levels for this channel 1c3b: f6 60 f5 mov a,$f560+y 1c3e: 8d 00 mov y,#$00 1c40: 77 93 cmp a,($93)+y 1c42: d0 19 bne $1c5d 1c44: eb ba mov y,$ba 1c46: f6 80 f5 mov a,$f580+y 1c49: 9c dec a 1c4a: d0 0c bne $1c58 1c4c: 7d mov a,x 1c4d: 1c asl a 1c4e: 9c dec a 1c4f: 8b ba dec $ba 1c51: 2e ba 04 cbne $ba,$1C58 1c54: 60 clrc 1c55: 98 04 ba adc $ba,#$04 $1C58: 1c58: 8d 01 mov y,#$01 1c5a: 5f fc 1b jmp $1bfc $1C5D: 1c5d: 3a 93 incw $93 1c5f: 3a 93 incw $93 1c61: 3a 93 incw $93 1c63: 6f ret ; ***************************************** ; Command E2 - Loop. Takes one argument $1C64: ; Example: ; X = 0x0E (track 7); ; A = 0x1C + 0x04 -> 0x20; ; $27+X += 1; ; 1c64: 7d mov a,x 1c65: 1c asl a ; A = track_index << 1; 1c66: 60 clrc 1c67: 88 04 adc a,#$04 1c69: bb 27 inc $27+x ; A = (X << 1) + 0x04; $27+X++; 1c6b: de 27 05 cbne $27+x,$1C73 ; if(A != $27+X) goto $1C73; // if the iteration counter has not reached its limit 1c6e: 80 setc ; if it has, reset it to 0. 1c6f: a8 04 sbc a,#$04 1c71: d4 27 mov $27+x,a ; $27+X = A - 0x04; $1C73: 1c73: fb 27 mov y,$27+x ; Y = $27+X; 1c75: e4 a5 mov a,$a5 1c77: f0 01 beq $1c7a ; if(!track_byte) goto $1C7A; 1c79: bc inc a ; A++; $1C7A: 1c7a: d6 80 f5 mov $f580+y,a ; $F580+Y = A; 1c7d: c8 10 cmp x,#$10 1c7f: b0 05 bcs $1c86 ; if(X >= 0x10) goto $1C86; 1c81: e8 01 mov a,#$01 1c83: d6 60 f5 mov $f560+y,a ; $F560+Y = 0x01; $1C86: 1c86: dd mov a,y 1c87: 1c asl a 1c88: fd mov y,a ; Y <<= 1; // only purpose is to make Y a multiple of 2. (storing to a 16-bit aligned table) 1c89: f4 02 mov a,$02+x 1c8b: d6 c0 f5 mov $f5c0+y,a ; $F5C0+Y = $02+X ; 1c8e: f4 03 mov a,$03+x 1c90: d6 c1 f5 mov $f5c1+y,a ; $F5C1+Y = $03+X; // sets the return address for this call loop (once it's finished iterating) ; note that return address means return address in the track data, not an spc execution address 1c93: 6f ret ; *************************************** ; Command E3 - End loop $1C94: 1c94: fb 27 mov y,$27+x ; Y = $27+X; 1c96: c8 10 cmp x,#$10 1c98: b0 07 bcs $1CA1 ; if(X >= 0x10) goto $1CA1; 1c9a: f6 60 f5 mov a,$f560+y 1c9d: bc inc a 1c9e: d6 60 f5 mov $f560+y,a ; $F560+Y += 1; $1CA1: 1ca1: f6 80 f5 mov a,$f580+y ; A = $F580+Y; 1ca4: f0 15 beq $1CBB ; if(!A) goto $1CBB; 1ca6: 9c dec a ; A--; 1ca7: d0 0f bne $1CB8 ; if(A) goto $1CB8; 1ca9: 7d mov a,x 1caa: 1c asl a 1cab: 9c dec a 1cac: 9b 27 dec $27+x ; $27+X -= 1; A = (track_index << 1) - 1); 1cae: de 27 17 cbne $27+x,$1CC8 ; if(A != $27+X) goto $1CC8; $1CB1: 1cb1: 60 clrc 1cb2: 88 04 adc a,#$04 1cb4: d4 27 mov $27+x,a ; $27+X = A + 0x04; 1cb6: 2f 10 bra $1cc8 $1CB8: 1cb8: d6 80 f5 mov $f580+y,a ; Set the number of iterations properly $1CBB: 1cbb: dd mov a,y 1cbc: 1c asl a 1cbd: fd mov y,a ; Y <<= 1; 1cbe: f6 c0 f5 mov a,$f5c0+y 1cc1: d4 02 mov $02+x,a 1cc3: f6 c1 f5 mov a,$f5c1+y 1cc6: d4 03 mov $03+x,a ; restores the track pointer to where it was before the call loop $1CC8: 1cc8: 6f ret ; *************************************************** ; Shadow Command E3 - ???? $1CC9: 1cc9: eb ba mov y,$ba ; shadow version of $27+X 1ccb: f6 80 f5 mov a,$f580+y 1cce: f0 11 beq $1ce1 1cd0: 9c dec a 1cd1: d0 0e bne $1ce1 1cd3: 7d mov a,x 1cd4: 1c asl a 1cd5: 9c dec a 1cd6: 8b ba dec $ba 1cd8: 2e ba 13 cbne $ba,$1CEE 1cdb: 60 clrc 1cdc: 98 04 ba adc $ba,#$04 1cdf: 2f 0d bra $1CEE $1CE1: 1ce1: dd mov a,y 1ce2: 1c asl a 1ce3: fd mov y,a 1ce4: f6 c0 f5 mov a,$f5c0+y 1ce7: c4 93 mov $93,a 1ce9: f6 c1 f5 mov a,$f5c1+y 1cec: c4 94 mov $94,a ; $93.w = $F5C0+Y; restores old track pointer $1CEE: 1cee: 6f ret ; ************************************************** ; Command E8 - extends the time a note is being held NoteExtend: 1cef: d4 26 mov $26+x,a 1cf1: 6f ret ; ******************************************** ; Command DB - sets a very fine tune for an instrument (not half steps, smaller than that) FineTune: 1cf2: d5 a0 f3 mov $f3a0+x,a 1cf5: 6f ret ; ******************************************** ; Command F9 - gives output to the S-CPU? no other easy explanation... TalkBack: 1cf6: 28 0f and a,#$0f 1cf8: c4 7b mov $7b,a ; lovely.... 1cfa: 6f ret ; ******************************************** ; Command FA - seems to jump to a new location but only if it has permission to do so... something of that sort ; event based version of GotoTrack. S-CPU has to tell us it's ready before we can jump to the 16-bit address (otherwise it ignores it and keeps chugging along) ; you would want to loop other music while waiting for the event to occur EventGotoTrack: 1cfb: 28 0f and a,#$0f 1cfd: c4 a5 mov $a5,a 1cff: 64 d3 cmp a,$d3 1d01: 90 02 bcc $1d05 ; if((track_byte & 0x0F) < $D3) goto $1D05; 1d03: c4 d3 mov $d3,a ; $D3 = A; $1D05: 1d05: e4 d2 mov a,$d2 1d07: 64 a5 cmp a,$a5 1d09: b0 0e bcs $1d19 ; if((track_byte & 0x0F) >= $D2) goto $1D19; 1d0b: bb 02 inc $02+x ; increment track pointer by one byte without reading a value 1d0d: d0 02 bne $1d11 1d0f: bb 03 inc $03+x $1D11: 1d11: bb 02 inc $02+x ; increments the whole word, not just $02+X 1d13: d0 14 bne $1d29 1d15: bb 03 inc $03+x 1d17: 2f 10 bra $1d29 ; ignores the last two arguments and returns. (this occurs when: track_byte < $D2. Perhaps $D2 and $D3 are priority codes for sending data to the S-CPU?) $1D19: 1d19: 3f 53 07 call $0753 1d1c: fd mov y,a 1d1d: 3f 53 07 call $0753 1d20: dd mov a,y 1d21: eb a5 mov y,$a5 1d23: 7a 00 addw ya,$00 1d25: d4 02 mov $02+x,a 1d27: db 03 mov $03+x,y ; set track pointer to 16-bit argument plus $00 (start of song?) $1D29: 1d29: 6f ret ; ********************************************** ; Shadow Command FA - 1d2a: f7 93 mov a,($93)+y ; Get track_byte; 1d2c: c4 a5 mov $a5,a 1d2e: e4 d2 mov a,$d2 1d30: 64 a5 cmp a,$a5 1d32: b0 08 bcs $1d3c ; if($D2 >= $A5) goto $1D3C; 1d34: 3a 93 incw $93 1d36: 3a 93 incw $93 1d38: 3a 93 incw $93 ; $93 += 3; skip this command if the event has not happened yet 1d3a: 2f 0d bra $1d49 ; return; $1D3C: ; event has happened, allow us to set the track pointer to the 16-bit argument 1d3c: fc inc y 1d3d: f7 93 mov a,($93)+y 1d3f: 2d push a 1d40: fc inc y 1d41: f7 93 mov a,($93)+y 1d43: fd mov y,a 1d44: ae pop a 1d45: 7a 00 addw ya,$00 1d47: da 93 movw $93,ya ; set track poiner (shadow version though) $1D49: 1d49: 6f ret ; ********************************************* ; Command FF - Error detection? Error: 1d4a: ae pop a 1d4b: ae pop a ; pop the return address off of the stack 1d4c: 62 88 set3 $88 ; error mode? 1d4e: e4 91 mov a,$91 1d50: c8 10 cmp x,#$10 1d52: b0 0a bcs $1d5e ; if(X >= 0x10) goto $1D5E; 1d54: 4e 53 00 tclr1 $0053 ; unset bits in $53 according to $91 1d57: d0 0b bne $1d64 ; if( 1d59: 8f ff 80 mov $80,#$ff ; $80 = 0xFF; 1d5c: 2f 06 bra $1d64 $1D5E: 1d5e: 4e 86 00 tclr1 $0086 ; unset bits in $86 according to $91; 1d61: 4e 5e 00 tclr1 $005e ; ditto for $5E; $1D64: 1d64: 3f 68 1a call NoiseOff 1d67: 3f b5 1a call PitchModOff 1d6a: 5f 2c 1a jmp EchoOff ; this is data, not code (at least it seems that way for not) $1D6D: dw $0879 dw $08fa dw $0983 dw $0A14 dw $0AAD dw $0B50 dw $0BFC dw $0CB2 dw $0D74 dw $0E41 dw $0F1A dw $1000 dw $10F3 1d87: db $0f 1d88: 1f 30 42 jmp ($4230+x) 1d8b: 55 6a 7f eor a,$7f6a+x 1d8e: 96 ae c8 adc a,$c8ae+y 1d91: e3 00 7f bbs7 $00,$1e12 1d94: 00 nop $1D95: 1d95: 00 nop 1d96: 00 nop 1d97: 00 nop 1d98: 00 nop 1d99: 00 nop 1d9a: 00 nop 1d9b: 0c 21 2b asl $2b21 1d9e: 2b 13 rol $13 1da0: fe f3 dbnz y,$1d95 1da2: f9 58 mov x,$58+y 1da4: bf mov a,(x)+ 1da5: db f0 mov $f0+x,y 1da7: fe 07 dbnz y,$1db0 1da9: 0c 0c 34 asl $340c 1dac: 33 00 d9 bbc1 $00,$1d87 1daf: e5 01 fc mov a,$fc01 1db2: eb c0 mov y,$c0 NoteLengths: db $C0, $60, $40, $48, $30, $20, $24, $18, $10, $0C, $08, $06, $04, $03 1dc1: eb 02 mov y,$02 1dc3: 00 nop 1dc4: 00 nop 1dc5: 00 nop 1dc6: 00 nop 1dc7: 00 nop 1dc8: 00 nop 1dc9: 00 nop 1dca: 00 nop 1dcb: c2 77 set6 $77 1dcd: 77 77 cmp a,($77)+y 1dcf: 77 77 cmp a,($77)+y 1dd1: 77 77 cmp a,($77)+y 1dd3: 77 c2 cmp a,($c2)+y 1dd5: 77 77 cmp a,($77)+y 1dd7: 77 77 cmp a,($77)+y 1dd9: 77 77 cmp a,($77)+y 1ddb: 00 nop 1ddc: 00 nop 1ddd: c2 77 set6 $77 1ddf: 77 77 cmp a,($77)+y 1de1: 77 77 cmp a,($77)+y 1de3: 77 77 cmp a,($77)+y 1de5: 77 c3 cmp a,($c3)+y 1de7: 77 77 cmp a,($77)+y 1de9: 77 77 cmp a,($77)+y 1deb: 77 77 cmp a,($77)+y 1ded: 77 77 cmp a,($77)+y 1def: ff stop 1df0: ff stop
- Back to Chrono Trigger