// This document was previously called "DSP_UC_AX1.txt" and "Crazy Taxi.txt"
// CR is set to #FF all the time in this ucode, so srs/lrs always operate on hw registers.
//////////////////////////////////////////////////////////////////////////
// Known addresses in DRAM
Addr Name Description/Notes
// Buffers
0x0000 Main Right
0x0140 Main Left
0x0280
0x0400
0x0540
0x0680
0x07c0
0x0900
0x0a40
0x03c0 update_block Contains <offset, value> pairs to update current PB with
0x0b80 pb Current pb, length = 0xc0
0x0e04 ms_remaining Milliseconds remaining to process for current voice
0x0e05 pUpdate_block Pointer to update_block
0x0e06 pUpdates_this_ms Pointer to number of updates
// Pointers to buffers
0x0e08 0x0000 See buffers at 0x0000
0x0e09 0x0140
0x0e0a 0x0280
0x0e0b 0x0400
0x0e0c 0x0540
0x0e0d 0x0680
0x0e0e 0x07c0
0x0e0f 0x0900
0x0e10 0x0a40
// Func pointers
0x0e14 selectedMixCtrl
0x0e15 selectedSRC
0x0e16 selectedCoef Points into DROM
// ITD
0x0e40
0x0e41
0x0e42
0x0e43
//////////////////////////////////////////////////////////////////////////
// Good ol' exception table
0000 0000 nop
0001 0000 nop // 0 Reset falls through, kinda wierd...
0002 029f 0c10 jmp 0x0c10 // 1 Stack U/O flow
0004 029f 0c1f jmp 0x0c1f // 2
0006 029f 0c3b jmp 0x0c3b // 3
0008 029f 0c4a jmp 0x0c4a // 4 ? empty
000a 029f 0c50 jmp 0x0c50 // 5 accelerator address overflow
000c 029f 0c82 jmp 0x0c82 // 6 ? empty
000e 029f 0c88 jmp 0x0c88 // 7 ? empty
// Entry point
void Task_Init() {
// AX operates in this context all the time
// 0010 1302 sbset #0x02
// 0011 1303 sbset #0x03
// 0012 1204 sbclr #0x04
// 0013 1305 sbset #0x05
// 0014 1306 sbset #0x06
// 0015 8e00 set16
// 0016 8c00 clr15
// 0017 8b00 m0
// 0018 0092 00ff lri $CR, #0x00ff
// 001a 8100 clr $ACC0
// 001b 8900 clr $ACC1
// 001c 009e 0e80 lri $AC0.M, #0x0e80
// 001e 00fe 0e1b sr @0x0e1b, $AC0.M
// 0020 8100 clr $ACC0
// 0021 00fe 0e31 sr @0x0e31, $AC0.M
ACC0 = ACC1 = 0
*0x0e1b = 0xe80 // Used in Cmd8
*0x0e31 = 0
// Send DSP_INIT mail
// 0023 16fc dcd1 si @DMBH, #0xdcd1
// 0025 16fd 0000 si @DMBL, #0x0000
// 0027 16fb 0001 si @DIRQ, #0x0001
DMB = 0xdcd10000
// 0029 26fc lrs $AC0.M, @DMBH
// 002a 02a0 8000 andf $AC0.M, #0x8000
// 002c 029c 0029 jlnz 0x0029
while (@DMBH & 0x8000 == 0);
// 002e 029f 0045 jmp 0x0045
goto GetNextCmdBlock;
}
void Task_Resume() {
// Ensure sane context
// 0030 1302 sbset #0x02
// 0031 1303 sbset #0x03
// 0032 1204 sbclr #0x04
// 0033 1305 sbset #0x05
// 0034 1306 sbset #0x06
// 0035 8e00 set16
// 0036 8c00 clr15
// 0037 8b00 m0
// 0038 0092 00ff lri $CR, #0x00ff
// Send DSP_RESUME mail
// 003a 16fc dcd1 si @DMBH, #0xdcd1
// 003c 16fd 0001 si @DMBL, #0x0001
// 003e 16fb 0001 si @DIRQ, #0x0001
DMB = 0xdcd10001
// 0040 26fc lrs $AC0.M, @DMBH
// 0041 02a0 8000 andf $AC0.M, #0x8000
// 0043 029c 0040 jlnz 0x0040
while (@DMBH & 0x8000 == 0);
GetNextCmdBlock:
0045 8e00 set16
0046 8100 clr $ACC0
0047 8900 clr $ACC1
0048 009f babe lri $AC1.M, #0xbabe
// Wait for 0xbabexxxx mail from cpu
do {
// 004a 26fe lrs $AC0.M, @CMBH
// 004b 02c0 8000 andcf $AC0.M, #0x8000
// 004d 029c 004a jlnz 0x004a
while (@CMBH & 0x8000 == 0);
// 004f 8200 cmp
// 0050 0294 004a jnz 0x004a
} while (@CMBH != 0xbabe);
// Save the low 16bits of the mail
// 0052 23ff lrs $AX1.H, @CMBL
u16 length = @CMBL
// Get next mail
// 0053 8100 clr $ACC0
// 0054 26fe lrs $AC0.M, @CMBH
// 0055 02c0 8000 andcf $AC0.M, #0x8000
// 0057 029c 0054 jlnz 0x0054
while (@CMBH & 0x8000 == 0);
// 0059 27ff lrs $AC1.M, @CMBL
// 005a 0240 7fff andi $AC0.M, #0x7fff
// 005c 2ece srs @DSMAH, $AC0.M
// 005d 2fcf srs @DSMAL, $AC1.M
// 005e 16cd 0c00 si @DSPA, #0x0c00
// 0060 8100 clr $ACC0
// 0061 2ec9 srs @DSCR, $AC0.M
// 0062 1ffb mrr $AC1.M, $AX1.H
// 0063 2fcb srs @DSBL, $AC1.M
// DMA in the CmdBlock
static u16* CmdBlockBuf = 0x0c00
DSMA = (@CMBH & ~0x8000) << 16 | @CMBL
DSPA = CmdBlockBuf
DSCR = 0 // CPU -> DMEM
DSBL = length
// 0064 02bf 055c call 0x055c
WaitDMA();
// Init the CmdBlock pointer
0066 0080 0c00 lri $AR0, #0x0c00
DoNextCommand:
// 0068 8e00 set16
// 0069 8100 clr $ACC0
// 006a 8970 clr'l $ACC1 : $AC0.M, @$AR0
// 006b b100 tst $ACC0
// 006c 0291 007e jl 0x007e
u16 Cmd = *(CmdBlockBuf++)
if (Cmd < 0) // How could this be possible? 'l is 16bit load...
Die_InvalidCmd();
// 006e 0a12 lris $AX0.H, #0x12
// 006f c100 cmpar $ACC0, $AX0.H
// 0070 0292 007e jg 0x007e
if (Cmd > 0x12)
Die_InvalidCmd();
// 0072 009f 0aff lri $AC1.M, #0x0aff
// 0074 4c00 add $ACC0, $ACC1
// 0075 1c7e mrr $AR3, $AC0.M
// 0076 0213 ilrr $AC0.M, @$AR3
// 0077 1c7e mrr $AR3, $AC0.M
// 0078 176f jmpr $AR3
switch (Cmd) {
case 0: Cmd_0(); break; // 0082
case 1: Cmd_1(); break; // 013e
case 2: Cmd_2(); break; // 01bc
case 3: Cmd_3(); break; // 0248
case 4: Cmd_4(); break; // 0413
case 5: Cmd_5(); break; // 0427
case 6: Cmd_6(); break; // 0165
case 7: Cmd_7(); break; // 0574
case 8: Cmd_8(); break; // 0b37
case 9: Cmd_9(); break; // 015f
case 0xa: Cmd_a(); break; // 0478
case 0xb: Cmd_b(); break; // 0474
case 0xc: Cmd_c(); break; // 0476
case 0xd: Cmd_d(); break; // 01a9
case 0xe: Cmd_e(); break; // 043b
case 0xf: Cmd_f(); break; // 047a
case 0x10: Cmd_10(); break; // 0bb1
case 0x11: Cmd_11(); break; // 0175
}
// Somehow we've passed the cmd proccessor; DIE!!
// 0079 16fc fbad si @DMBH, #0xfbad
// 007b 16fd 8080 si @DMBL, #0x8080
DMB = 0xfbad8080
007d 0021 halt
}
// Die and conveniently tell the cpu which cmd was baad
void Die_InvalidCmd() {
007e 16fc baad si @DMBH, #0xbaad
0080 2efd srs @DMBL, $AC0.M
0081 0021 halt
}
// Executes the same operation 3 times on buffers: (0, 0x0400, 0x07c0)
void Cmd_0() {
// 0082 8100 clr $ACC0
// 0083 8970 clr'l $ACC1 : $AC0.M, @$AR0
// 0084 8e78 set16'l : $AC1.M, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 0085 2ece srs @DSMAH, $AC0.M
// 0086 2fcf srs @DSMAL, $AC1.M
// 0087 009e 0e44 lri $AC0.M, #0x0e44
// 0089 2ecd srs @DSPA, $AC0.M
// 008a 0e00 lris $AC0.M, #0x00
// 008b 2ec9 srs @DSCR, $AC0.M
// 008c 009e 0040 lri $AC0.M, #0x0040
// 008e 2ecb srs @DSBL, $AC0.M
// DMA 0x0040bytes to DRAM @ 0x0e44 from CPU @ maddr
008f 0081 0e44 lri $AR1, #0x0e44 // source
0091 0082 0000 lri $AR2, #0x0000 // destination
0093 009b 009f lri $AX1.H, #0x009f
0095 009a 0140 lri $AX0.H, #0x0140 // loop length if !ACC0
0097 8100 clr $ACC0
0098 8900 clr $ACC1
0099 8f00 set40
// 009a 02bf 055c call 0x055c
WaitDMA();
009c 193e lrri $AC0.M, @$AR1
009d 193c lrri $AC0.L, @$AR1
009e b100 tst $ACC0
009f 193f lrri $AC1.M, @$AR1 // added to ACC0 in confusing ways
// 00a0 0294 00a6 jnz 0x00a6
if (!$ACC0) {
00a2 005a loop $AX0.H
00a3 1b5e srri @$AR2, $AC0.M
// 00a4 029f 00ae jmp 0x00ae
} else {
00a6 9900 asr16 $ACC1
00a7 1b5e srri @$AR2, $AC0.M
00a8 1b5c srri @$AR2, $AC0.L
00a9 007b 00ad bloop $AX1.H, 0x00ad
00ab 4c00 add $ACC0, $ACC1
00ac 1b5e srri @$AR2, $AC0.M
00ad 1b5c srri @$AR2, $AC0.L
}
// same code block as above...epic fail?
00ae 193e lrri $AC0.M, @$AR1
00af 193c lrri $AC0.L, @$AR1
00b0 b100 tst $ACC0
00b1 193f lrri $AC1.M, @$AR1
// 00b2 0294 00b8 jnz 0x00b8
if (!$ACC0) {
00b4 005a loop $AX0.H
00b5 1b5e srri @$AR2, $AC0.M
// 00b6 029f 00c0 jmp 0x00c0
} else {
00b8 9900 asr16 $ACC1
00b9 1b5e srri @$AR2, $AC0.M
00ba 1b5c srri @$AR2, $AC0.L
00bb 007b 00bf bloop $AX1.H, 0x00bf
00bd 4c00 add $ACC0, $ACC1
00be 1b5e srri @$AR2, $AC0.M
00bf 1b5c srri @$AR2, $AC0.L
}
// ...and again! wtf
00c0 193e lrri $AC0.M, @$AR1
00c1 193c lrri $AC0.L, @$AR1
00c2 b100 tst $ACC0
00c3 193f lrri $AC1.M, @$AR1
// 00c4 0294 00ca jnz 0x00ca
if (!$ACC0) {
00c6 005a loop $AX0.H
00c7 1b5e srri @$AR2, $AC0.M
// 00c8 029f 00d2 jmp 0x00d2
} else {
00ca 9900 asr16 $ACC1
00cb 1b5e srri @$AR2, $AC0.M
00cc 1b5c srri @$AR2, $AC0.L
00cd 007b 00d1 bloop $AX1.H, 0x00d1
00cf 4c00 add $ACC0, $ACC1
00d0 1b5e srri @$AR2, $AC0.M
00d1 1b5c srri @$AR2, $AC0.L
}
// set to next buffer
00d2 0082 0400 lri $AR2, #0x0400
// same code block, uses tst'l in one place...otherwise the same
00d4 193e lrri $AC0.M, @$AR1
00d5 193c lrri $AC0.L, @$AR1
00d6 b179 tst'l $ACC0 : $AC1.M, @$AR1
// 00d7 0294 00dd jnz 0x00dd
if (!$ACC0) {
00d9 005a loop $AX0.H
00da 1b5e srri @$AR2, $AC0.M
// 00db 029f 00e5 jmp 0x00e5
} else {
00dd 9900 asr16 $ACC1
00de 1b5e srri @$AR2, $AC0.M
00df 1b5c srri @$AR2, $AC0.L
00e0 007b 00e4 bloop $AX1.H, 0x00e4
00e2 4c00 add $ACC0, $ACC1
00e3 1b5e srri @$AR2, $AC0.M
00e4 1b5c srri @$AR2, $AC0.L
}
// same code block, using tst'l again...wonder if it actually changes behavior?
00e5 193e lrri $AC0.M, @$AR1
00e6 193c lrri $AC0.L, @$AR1
00e7 b179 tst'l $ACC0 : $AC1.M, @$AR1
// 00e8 0294 00ee jnz 0x00ee
if (!$ACC0) {
00ea 005a loop $AX0.H
00eb 1b5e srri @$AR2, $AC0.M
// 00ec 029f 00f6 jmp 0x00f6
} else {
00ee 9900 asr16 $ACC1
00ef 1b5e srri @$AR2, $AC0.M
00f0 1b5c srri @$AR2, $AC0.L
00f1 007b 00f5 bloop $AX1.H, 0x00f5
00f3 4c00 add $ACC0, $ACC1
00f4 1b5e srri @$AR2, $AC0.M
00f5 1b5c srri @$AR2, $AC0.L
}
// see comments above
00f6 193e lrri $AC0.M, @$AR1
00f7 193c lrri $AC0.L, @$AR1
00f8 b179 tst'l $ACC0 : $AC1.M, @$AR1
// 00f9 0294 00ff jnz 0x00ff
if (!$ACC0) {
00fb 005a loop $AX0.H
00fc 1b5e srri @$AR2, $AC0.M
// 00fd 029f 0107 jmp 0x0107
} else {
00ff 9900 asr16 $ACC1
0100 1b5e srri @$AR2, $AC0.M
0101 1b5c srri @$AR2, $AC0.L
0102 007b 0106 bloop $AX1.H, 0x0106
0104 4c00 add $ACC0, $ACC1
0105 1b5e srri @$AR2, $AC0.M
0106 1b5c srri @$AR2, $AC0.L
}
// set to next buffer
0107 0082 07c0 lri $AR2, #0x07c0
// see comments above
0109 193e lrri $AC0.M, @$AR1
010a 193c lrri $AC0.L, @$AR1
010b b179 tst'l $ACC0 : $AC1.M, @$AR1
// 010c 0294 0112 jnz 0x0112
if (!$ACC0) {
010e 005a loop $AX0.H
010f 1b5e srri @$AR2, $AC0.M
// 0110 029f 011a jmp 0x011a
} else {
0112 9900 asr16 $ACC1
0113 1b5e srri @$AR2, $AC0.M
0114 1b5c srri @$AR2, $AC0.L
0115 007b 0119 bloop $AX1.H, 0x0119
0117 4c00 add $ACC0, $ACC1
0118 1b5e srri @$AR2, $AC0.M
0119 1b5c srri @$AR2, $AC0.L
}
// see comments above
011a 193e lrri $AC0.M, @$AR1
011b 193c lrri $AC0.L, @$AR1
011c b179 tst'l $ACC0 : $AC1.M, @$AR1
// 011d 0294 0123 jnz 0x0123
if (!$ACC0) {
011f 005a loop $AX0.H
0120 1b5e srri @$AR2, $AC0.M
// 0121 029f 012b jmp 0x012b
} else {
0123 9900 asr16 $ACC1
0124 1b5e srri @$AR2, $AC0.M
0125 1b5c srri @$AR2, $AC0.L
0126 007b 012a bloop $AX1.H, 0x012a
0128 4c00 add $ACC0, $ACC1
0129 1b5e srri @$AR2, $AC0.M
012a 1b5c srri @$AR2, $AC0.L
}
// see comments above
012b 193e lrri $AC0.M, @$AR1
012c 193c lrri $AC0.L, @$AR1
012d b179 tst'l $ACC0 : $AC1.M, @$AR1
// 012e 0294 0134 jnz 0x0134
if (!$ACC0) {
0130 005a loop $AX0.H
0131 1b5e srri @$AR2, $AC0.M
// 0132 029f 013c jmp 0x013c
} else {
0134 9900 asr16 $ACC1
0135 1b5e srri @$AR2, $AC0.M
0136 1b5c srri @$AR2, $AC0.L
0137 007b 013b bloop $AX1.H, 0x013b
0139 4c00 add $ACC0, $ACC1
013a 1b5e srri @$AR2, $AC0.M
013b 1b5c srri @$AR2, $AC0.L
}
// 013c 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_1() {
013e 0085 ffff lri $IX1, #0xffff // -1
// 0140 8150 clr'l $ACC0 : $AX0.H, @$AR0
// 0141 8940 clr'l $ACC1 : $AX0.L, @$AR0
// 0142 8e48 set16'l : $AX1.L, @$AR0
// 0143 00fa 0e17 sr @0x0e17, $AX0.H
// 0145 00f8 0e18 sr @0x0e18, $AX0.L
// 0147 0081 0000 lri $AR1, #0x0000
// 0149 02bf 04f1 call 0x04f1
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
u16 unkForMulBuffer1 = *(CmdBlockBuf++)
u16 unkForMulBuffer2 = 0 // a buffer in dram
Unk(maddrh << 16 | maddrl, unkForMulBuffer1, unkForMulBuffer2)
// 014b 00da 0e17 lr $AX0.H, @0x0e17
// 014d 00d8 0e18 lr $AX0.L, @0x0e18
// 014f 8948 clr'l $ACC1 : $AX1.L, @$AR0
// 0150 0081 0400 lri $AR1, #0x0400
// 0152 02bf 04f1 call 0x04f1
unkForMulBuffer1 = *(CmdBlockBuf++)
unkForMulBuffer2 = 0x0400
Unk(maddrh << 16 | maddrl, unkForMulBuffer1, unkForMulBuffer2)
// 0154 00da 0e17 lr $AX0.H, @0x0e17
// 0156 00d8 0e18 lr $AX0.L, @0x0e18
// 0158 8948 clr'l $ACC1 : $AX1.L, @$AR0
// 0159 0081 07c0 lri $AR1, #0x07c0
// 015b 02bf 04f1 call 0x04f1
unkForMulBuffer1 = *(CmdBlockBuf++)
unkForMulBuffer2 = 0x07c0
Unk(maddrh << 16 | maddrl, unkForMulBuffer1, unkForMulBuffer2)
// 015d 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_9() {
015f 0086 07c0 lri $IX2, #0x07c0 // often used buffer in dram
0161 02bf 0484 call 0x0484
// 0163 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_6() {
0165 8100 clr $ACC0
0166 8e00 set16
// 0167 191e lrri $AC0.M, @$AR0
// 0168 191c lrri $AC0.L, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 0169 2ece srs @DSMAH, $AC0.M
// 016a 2ccf srs @DSMAL, $AC0.L
// 016b 16cd 0000 si @DSPA, #0x0000
// 016d 16c9 0001 si @DSCR, #0x0001
// 016f 16cb 0780 si @DSBL, #0x0780
// DMA 0x780bytes to CPU @ maddr from DMEM @ 0
// 0171 02bf 055c call 0x055c
WaitDMA();
// 0173 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_11() {
// 0175 8100 clr $ACC0
// 0176 8970 clr'l $ACC1 : $AC0.M, @$AR0
// 0177 8e60 set16'l : $AC0.L, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 0178 2ece srs @DSMAH, $AC0.M
// 0179 2ccf srs @DSMAL, $AC0.L
// 017a 16cd 0e44 si @DSPA, #0x0e44
// 017c 16c9 0000 si @DSCR, #0x0000
// 017e 8900 clr $ACC1
// 017f 0d20 lris $AC1.L, #0x20
// 0180 2dcb srs @DSBL, $AC1.L
// DMA 0x20bytes to DRAM @ 0x0e44 from CPU @ maddr
u16 length_of_0e44 = 0x20
// 0181 4c00 add $ACC0, $ACC1
maddr += length_of_0e44
// Save CmdBlockBuf
// 0182 1c80 mrr $IX0, $AR0
// 0183 0080 0280 lri $AR0, #0x0280
// 0185 0081 0000 lri $AR1, #0x0000
// 0187 0082 0140 lri $AR2, #0x0140
// 0189 0083 0e44 lri $AR3, #0x0e44
// 018b 0a00 lris $AX0.H, #0x00
// 018c 27c9 lrs $AC1.M, @DSCR
// 018d 03a0 0004 andf $AC1.M, #0x0004
// 018f 029c 018c jlnz 0x018c
while (@DSCR & 4);
// 0191 2ece srs @DSMAH, $AC0.M
// 0192 2ccf srs @DSMAL, $AC0.L
// 0193 16cd 0e54 si @DSPA, #0x0e54
// 0195 16c9 0000 si @DSCR, #0x0000
// 0197 16cb 0260 si @DSBL, #0x0260
// DMA 0x0260bytes to DRAM @ 0x0e54 from CPU @ maddr
// 0199 009f 00a0 lri $AC1.M, #0x00a0
// 019b 8f00 set40
// 019c 007f 01a5 bloop $AC1.M, 0x01a5
// 019e 197e lrri $AC0.M, @$AR3
// 019f 1b1a srri @$AR0, $AX0.H
// 01a0 197c lrri $AC0.L, @$AR3
// 01a1 1b1a srri @$AR0, $AX0.H
// 01a2 1b5e srri @$AR2, $AC0.M
// 01a3 7c22 neg's $ACC0 : @$AR2, $AC0.L
// 01a4 1b3e srri @$AR1, $AC0.M
// 01a5 1b3c srri @$AR1, $AC0.L
// high reg will only be sign bits, and it's never stored, so we can use s32 here
s32* buffer_source = 0x0e44
s32* buffer_dest = 0x0140
s32* buffer_to_zero = 0x0280
s32* buffer_dest_neg = 0x0000
for (i = 0x00a0; i > 0; i--) {
s32 thing = *(buffer_source++)
*(buffer_to_zero++) = 0
*(buffer_dest++) = thing
*(buffer_dest_neg++) = ~thing
}
// Restore CmdBlockBuf
01a6 1c04 mrr $AR0, $IX0
// 01a7 029f 0068 jmp 0x0068
goto DoNextCommand;
}
// Interesting, DMAs in new CmdBlock and starts executing it
void Cmd_D() {
// 01a9 8e70 set16'l : $AC0.M, @$AR0
// 01aa 8960 clr'l $ACC1 : $AC0.L, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 01ab 191f lrri $AC1.M, @$AR0
u16 numbytes = *(CmdBlockBuf++)
// 01ac 2ece srs @DSMAH, $AC0.M
// 01ad 2ccf srs @DSMAL, $AC0.L
// 01ae 16cd 0c00 si @DSPA, #0x0c00
// 01b0 16c9 0000 si @DSCR, #0x0000
// 01b2 0503 addis $AC1.M, #0x03
// 01b3 0340 fff0 andi $AC1.M, #0xfff0
// 01b5 2fcb srs @DSBL, $AC1.M
// DMA ((numbytes + 3) & 0xfff0)bytes to DMEM @ 0x0c00 from CPU @ maddr
// 01b6 02bf 055c call 0x055c
WaitDMA();
// 01b8 0080 0c00 lri $AR0, #0x0c00
CmdBlockBuf = 0x0c00
// 01ba 029f 0068 jmp 0x0068
goto DoNextCommand;
}
// DMAs in a new PB and inits values (itd, func pointers, etc)
// DMAs in new update_block, but doesn't apply it
void Cmd_2() {
01bc 8100 clr $ACC0
// 01bd 8970 clr'l $ACC1 : $AC0.M, @$AR0
// 01be 8e78 set16'l : $AC1.M, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 01bf 2ece srs @DSMAH, $AC0.M
// 01c0 2fcf srs @DSMAL, $AC1.M
// 01c1 16cd 0b80 si @DSPA, #0x0b80
// 01c3 16c9 0000 si @DSCR, #0x0000
// 01c5 16cb 00c0 si @DSBL, #0x00c0
// DMA 0x00c0bytes to DMEM @ 0x0b80 from CPU @ maddr
// 01c7 0082 0e08 lri $AR2, #0x0e08
// 01c9 009f 0000 lri $AC1.M, #0x0000
// 01cb 1b5f srri @$AR2, $AC1.M
// 01cc 009f 0140 lri $AC1.M, #0x0140
// 01ce 1b5f srri @$AR2, $AC1.M
// 01cf 009f 0280 lri $AC1.M, #0x0280
// 01d1 1b5f srri @$AR2, $AC1.M
// 01d2 009f 0400 lri $AC1.M, #0x0400
// 01d4 1b5f srri @$AR2, $AC1.M
// 01d5 009f 0540 lri $AC1.M, #0x0540
// 01d7 1b5f srri @$AR2, $AC1.M
// 01d8 009f 0680 lri $AC1.M, #0x0680
// 01da 1b5f srri @$AR2, $AC1.M
// 01db 009f 07c0 lri $AC1.M, #0x07c0
// 01dd 1b5f srri @$AR2, $AC1.M
// 01de 009f 0900 lri $AC1.M, #0x0900
// 01e0 1b5f srri @$AR2, $AC1.M
// 01e1 009f 0a40 lri $AC1.M, #0x0a40
// 01e3 1b5f srri @$AR2, $AC1.M
*0x0e08 = 0x0000
*0x0e09 = 0x0140
*0x0e0a = 0x0280
*0x0e0b = 0x0400
*0x0e0c = 0x0540
*0x0e0d = 0x0680
*0x0e0e = 0x07c0
*0x0e0f = 0x0900
*0x0e10 = 0x0a40
// 01e4 02bf 055c call 0x055c
WaitDMA();
// 01e6 00de 0ba7 lr $AC0.M, @0x0ba7
// 01e8 00df 0ba8 lr $AC1.M, @0x0ba8
// 01ea 2ece srs @DSMAH, $AC0.M
// 01eb 2fcf srs @DSMAL, $AC1.M
// 01ec 16cd 03c0 si @DSPA, #0x03c0
// 01ee 16c9 0000 si @DSCR, #0x0000
// 01f0 16cb 0080 si @DSBL, #0x0080
// DMA 0x80bytes from CPU @ ((pb.update.dataHi << 16) | pb.update.dataLo) to DRAM @ 0x03c0
// 01f2 8100 clr $ACC0
// 01f3 8900 clr $ACC1
// 01f4 00de 0b84 lr $AC0.M, @0x0b84
// 01f6 009f 0b31 lri $AC1.M, #0x0b31
// 01f8 4c00 add $ACC0, $ACC1
// 01f9 1c7e mrr $AR3, $AC0.M
// 01fa 0213 ilrr $AC0.M, @$AR3
// 01fb 00fe 0e15 sr @0x0e15, $AC0.M
*0x0e15 = *(0x0b31 + pb.srcSelect) // func ptr for src
// 01fd 00de 0b85 lr $AC0.M, @0x0b85
// 01ff 009f 0b34 lri $AC1.M, #0x0b34
// 0201 4c00 add $ACC0, $ACC1
// 0202 1c7e mrr $AR3, $AC0.M
// 0203 0213 ilrr $AC0.M, @$AR3
// 0204 00fe 0e16 sr @0x0e16, $AC0.M
*0x0e16 = *(0x0b34 + pb.coefSelect) // ptr to coef table
// 0206 00de 0b86 lr $AC0.M, @0x0b86
// 0208 009f 0b11 lri $AC1.M, #0x0b11
// 020a 4c00 add $ACC0, $ACC1
// 020b 1c7e mrr $AR3, $AC0.M
// 020c 0213 ilrr $AC0.M, @$AR3
// 020d 00fe 0e14 sr @0x0e14, $AC0.M
*0x0e14 = *(0x0b11 + pb.mixerCtrl) // func ptr for mixer
// 020f 8100 clr $ACC0
// 0210 00de 0b9b lr $AC0.M, @0x0b9b
// 0212 b100 tst $ACC0
// 0213 0295 023a jz 0x023a
if (pb.itd.flag != AX_PB_ITD_OFF) {
// 0215 8900 clr $ACC1
// 0216 00df 0b9e lr $AC1.M, @0x0b9e
// 0218 0300 0cc0 addi $AC1.M, #0x0cc0
// 021a 00ff 0e40 sr @0x0e40, $AC1.M
*0x0e40 = 0x0cc0 + pb.itd.shiftL
// 021c 00df 0b9f lr $AC1.M, @0x0b9f
// 021e 0300 0cc0 addi $AC1.M, #0x0cc0
// 0220 00ff 0e41 sr @0x0e41, $AC1.M
*0x0e41 = 0x0cc0 + pb.itd.shiftR
// 0222 009f 0ce0 lri $AC1.M, #0x0ce0
// 0224 00ff 0e42 sr @0x0e42, $AC1.M
// 0226 00ff 0e43 sr @0x0e43, $AC1.M
*0x0e42 = 0x0ce0
*0x0e43 = 0x0ce0
// 0228 02bf 055c call 0x055c
WaitDMA();
// 022a 00de 0b9c lr $AC0.M, @0x0b9c
// 022c 2ece srs @DSMAH, $AC0.M
// 022d 00de 0b9d lr $AC0.M, @0x0b9d
// 022f 2ecf srs @DSMAL, $AC0.M
// 0230 16cd 0cc0 si @DSPA, #0x0cc0
// 0232 16c9 0000 si @DSCR, #0x0000
// 0234 16cb 0040 si @DSBL, #0x0040
// DMA 0x0040bytes to DMEM @ 0x0cc0 from CPU @ (pb.itd.bufferHi << 16) | pb.itd.bufferLo
// 0236 02bf 055c call 0x055c
WaitDMA();
// 0238 029f 0068 jmp 0x0068
goto DoNextCommand;
} else {
// 023a 009f 0ce0 lri $AC1.M, #0x0ce0
// 023c 00ff 0e42 sr @0x0e42, $AC1.M
// 023e 00ff 0e40 sr @0x0e40, $AC1.M
// 0240 00ff 0e41 sr @0x0e41, $AC1.M
// 0242 00ff 0e43 sr @0x0e43, $AC1.M
*0x0e42 = 0x0ce0
*0x0e40 = 0x0ce0
*0x0e41 = 0x0ce0
*0x0e43 = 0x0ce0
// 0244 02bf 055c call 0x055c
WaitDMA();
// 0246 029f 0068 jmp 0x0068
goto DoNextCommand;
}
}
// Function calls itself until there are no more linked PBs
void Cmd_3() {
0248 8e00 set16
// Save CmdBlockBuf ptr
0249 00e0 0e07 sr @0x0e07, $AR0
// Processes pb.update.updNum[0] to pb.update.updNum[5]
// Applies specified number of updates for every millisecond of voice frame (5 millisecs)
// first millisec's updates are ignored <- not proven, yet
// 024b 0080 0ba2 lri $AR0, #0x0ba2 // pb.update.updNum[0]
// 024d 0081 03c0 lri $AR1, #0x03c0
// 024f 0e05 lris $AC0.M, #0x05
// 0250 00fe 0e04 sr @0x0e04, $AC0.M // counter to decrement
// 0252 8900 clr $ACC1
u16* pUpdates_this_ms = 0x0ba2
u16* pUpdate_block = 0x03c0
u16 ms_remaining = 5
NextMillisecUpd:
// 0253 8150 clr'l $ACC0 : $AX0.H, @$AR0
// 0254 009f 0b80 lri $AC1.M, #0x0b80
// 0256 007a 025b bloop $AX0.H, 0x025b
// 0258 193e lrri $AC0.M, @$AR1
// 0259 4c49 add'l $ACC0, $ACC1 : $AX1.L, @$AR1
// 025a 1c5e mrr $AR2, $AC0.M
// 025b 1a59 srr @$AR2, $AX1.L // AR2 isn't changed till updates are done
// Write updates from update_block to pb in dram
for (int i = 0; i < *pUpdates_this_ms; i+=2) {
// Looks like 0x03c0 is a struct of <offset, value> pairs to write into PB
*(0x0b80 + *(pUpdate_block + i)) = *(pUpdate_block + i + 1)
}
pUpdates_this_ms++
// 025c 0083 0e05 lri $AR3, #0x0e05
// 025e 1b61 srri @$AR3, $AR1
// 025f 1b60 srri @$AR3, $AR0
*0x0e05 = pUpdate_block
*0x0e06 = pUpdates_this_ms
// They are restored before jmping back to NextMillisecUpd
// 0260 00de 0b87 lr $AC0.M, @0x0b87
// 0262 0601 cmpis $AC0.M, #0x01
// 0263 0295 0267 jz 0x0267
// 0265 029f 0332 jmp 0x0332
if (pb.state == AX_PB_STATE_RUN) {
// 0267 00de 0e42 lr $AC0.M, @0x0e42
// 0269 00fe 0e1c sr @0x0e1c, $AC0.M
*0x0e1c = *0x0e42
// 026b 00c3 0e15 lr $AR3, @0x0e15
// 026d 177f callr $AR3
DoSelectedSRC()
// Volume Envelope Processing
// 026e 8e00 set16
// 026f 8a00 m2
// 0270 8100 clr $ACC0
// 0271 8900 clr $ACC1
// 0272 00de 0bb3 lr $AC0.M, @0x0bb3 // currentDelta (s16)
// 0274 00df 0bb2 lr $AC1.M, @0x0bb2 // currentVolume (u16)
// 0276 1f1f mrr $AX0.L, $AC1.M
// 0277 4d00 add $ACC1, $ACC0
// 0278 1481 asl $ACC0, #1
// 0279 8d1e set15'mv : $AX1.H, $AC0.M // unsigned mulx,
// 027a 1fd8 mrr $AC0.M, $AX0.L
// 027b 0098 8000 lri $AX0.L, #0x8000
// 027d 0080 0e44 lri $AR0, #0x0e44
// 027f a830 mulx's $AX0.L, $AX1.H : @$AR0, $AC0.M
// 0280 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0281 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0282 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0283 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0284 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0285 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0286 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0287 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0288 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0289 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 028a ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 028b ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 028c ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 028d ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 028e ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 028f ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0290 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0291 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0292 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0293 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0294 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0295 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0296 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0297 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 0298 ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 0299 ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 029a ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 029b ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 029c ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 029d ad30 mulxac's $AX0.L, $AX1.H, $ACC1 : @$AR0, $AC0.M
// 029e ac38 mulxac's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC1.M
// 029f 00fe 0bb2 sr @0x0bb2, $AC0.M
u40 temp1 = pb.ve.currentVolume << 16
u40 temp2 = (pb.ve.currentVolume + pb.ve.currentDelta) << 16
*0x0e44 = temp1 >> 16
*0x0e45 = temp2 >> 16
u40 PROD = (u16)0x8000 * (u16)(pb.ve.currentDelta << 1) * 2
for (u16* i = 0x0e46; i < 0x0e46 + 30; i+=2) {
temp1 += PROD
temp2 += PROD
*i = temp1 >> 16
*(i + 1) = temp2 >> 16
}
temp1 += PROD
pb.ve.currentVolume = temp1 >> 16
// 02a1 8f00 set40
// 02a2 0080 0e44 lri $AR0, #0x0e44
// 02a4 00c1 0e43 lr $AR1, @0x0e43
// 02a6 1c61 mrr $AR3, $AR1
// 02a7 193a lrri $AX0.H, @$AR1
// 02a8 1918 lrri $AX0.L, @$AR0
// 02a9 9059 mul'l $AX0.L, $AX0.H : $AX1.H, @$AR1
// 02aa 1919 lrri $AX1.L, @$AR0
// 02ab 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02ac 8080 nx'ls : $AX0.L, $AC0.M
// 02ad 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02ae 8091 nx'ls : $AX1.L, $AC1.M
// 02af 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02b0 8080 nx'ls : $AX0.L, $AC0.M
// 02b1 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02b2 8091 nx'ls : $AX1.L, $AC1.M
// 02b3 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02b4 8080 nx'ls : $AX0.L, $AC0.M
// 02b5 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02b6 8091 nx'ls : $AX1.L, $AC1.M
// 02b7 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02b8 8080 nx'ls : $AX0.L, $AC0.M
// 02b9 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02ba 8091 nx'ls : $AX1.L, $AC1.M
// 02bb 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02bc 8080 nx'ls : $AX0.L, $AC0.M
// 02bd 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02be 8091 nx'ls : $AX1.L, $AC1.M
// 02bf 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02c0 8080 nx'ls : $AX0.L, $AC0.M
// 02c1 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02c2 8091 nx'ls : $AX1.L, $AC1.M
// 02c3 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02c4 8080 nx'ls : $AX0.L, $AC0.M
// 02c5 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02c6 8091 nx'ls : $AX1.L, $AC1.M
// 02c7 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02c8 8080 nx'ls : $AX0.L, $AC0.M
// 02c9 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02ca 8091 nx'ls : $AX1.L, $AC1.M
// 02cb 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02cc 8080 nx'ls : $AX0.L, $AC0.M
// 02cd 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02ce 8091 nx'ls : $AX1.L, $AC1.M
// 02cf 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02d0 8080 nx'ls : $AX0.L, $AC0.M
// 02d1 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02d2 8091 nx'ls : $AX1.L, $AC1.M
// 02d3 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02d4 8080 nx'ls : $AX0.L, $AC0.M
// 02d5 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02d6 8091 nx'ls : $AX1.L, $AC1.M
// 02d7 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02d8 8080 nx'ls : $AX0.L, $AC0.M
// 02d9 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02da 8091 nx'ls : $AX1.L, $AC1.M
// 02db 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02dc 8080 nx'ls : $AX0.L, $AC0.M
// 02dd 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02de 8091 nx'ls : $AX1.L, $AC1.M
// 02df 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02e0 8080 nx'ls : $AX0.L, $AC0.M
// 02e1 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02e2 8091 nx'ls : $AX1.L, $AC1.M
// 02e3 9e51 mulmv'l $AX1.L, $AX1.H, $ACC0 : $AX0.H, @$AR1
// 02e4 8080 nx'ls : $AX0.L, $AC0.M
// 02e5 9759 mulmv'l $AX0.L, $AX0.H, $ACC1 : $AX1.H, @$AR1
// 02e6 8091 nx'ls : $AX1.L, $AC1.M
// 02e7 9e00 mulmv $AX1.L, $AX1.H, $ACC0
// 02e8 6f33 movp's $ACC1 : @$AR3, $AC0.M
// 02e9 1b7f srri @$AR3, $AC1.M
u16* dst = *0x0e43
u16* temp1 = 0x0e44
for (x = 0; x < 0x20; x++) {
*(dst + x) = ((u16)*(temp1 + x) * (u16)*(dst + x) * 2) >> 16
}
// 02ea 00c3 0e14 lr $AR3, @0x0e14
// 02ec 8f00 set40
// 02ed 8d00 set15
// 02ee 8a00 m2
// 02ef 177f callr $AR3
// Keep in mind: 40bit, unsigned, *2
DoSelectedMixer()
// Note: 40bit, unsigned, *2 not changed till 0x0332
// 02f0 8100 clr $ACC0
// 02f1 00de 0b9b lr $AC0.M, @0x0b9b
// 02f3 b100 tst $ACC0
// 02f4 0295 032a jz 0x032a
if (pb.itd.flag != AX_PB_ITD_OFF) {
// 02f6 00de 0e42 lr $AC0.M, @0x0e42
// 02f8 00fe 0e43 sr @0x0e43, $AC0.M
*0x0e43 = *0x0e42
// 02fa 8100 clr $ACC0
// 02fb 8900 clr $ACC1
// 02fc 00de 0b9e lr $AC0.M, @0x0b9e
// 02fe 00df 0ba0 lr $AC1.M, @0x0ba0
// 0300 8200 cmp
// 0301 0293 0306 jle 0x0306
if (pb.itd.shiftL > pb.itd.targetShiftL) {
// 0303 7800 decm $AC0.M
// 0304 029f 0309 jmp 0x0309
pb.itd.shiftL--
} else if (pb.itd.shiftL < pb.itd.targetShiftL) {
// 0306 0295 0309 jz 0x0309
// 0308 7400 incm $AC0.M
pb.itd.shiftL++
}
// 0309 00fe 0b9e sr @0x0b9e, $AC0.M // Store pb.itd.shiftL
// 030b 00df 0e43 lr $AC1.M, @0x0e43
// 030d 05e0 addis $AC1.M, #0xe0
// 030e 4c00 add $ACC0, $ACC1
// 030f 00fe 0e40 sr @0x0e40, $AC0.M
*0x0e40 = *0x0e43 - 32
// 0311 8100 clr $ACC0
// 0312 8900 clr $ACC1
// 0313 00de 0b9f lr $AC0.M, @0x0b9f
// 0315 00df 0ba1 lr $AC1.M, @0x0ba1
// 0317 8200 cmp
// 0318 0293 031d jle 0x031d
if (pb.itd.shiftR > pb.itd.targetShiftR) {
// 031a 7800 decm $AC0.M
// 031b 029f 0320 jmp 0x0320
pb.itd.shiftR--
} else if (pb.itd.shiftR < pb.itd.targetShiftR) {
// 031d 0295 0320 jz 0x0320
// 031f 7400 incm $AC0.M
pb.itd.shiftR++
}
// 0320 00fe 0b9f sr @0x0b9f, $AC0.M // Store pb.itd.shiftR
// 0322 00df 0e43 lr $AC1.M, @0x0e43
// 0324 05e0 addis $AC1.M, #0xe0
// 0325 4c00 add $ACC0, $ACC1
// 0326 00fe 0e41 sr @0x0e41, $AC0.M
*0x0e41 = *0x0e43 - 32
0328 029f 0332 jmp 0x0332
} else { // pb.itd.flag == AX_PB_ITD_OFF
// 032a 00de 0e42 lr $AC0.M, @0x0e42
// 032c 00fe 0e40 sr @0x0e40, $AC0.M
// 032e 00fe 0e41 sr @0x0e41, $AC0.M
// 0330 00fe 0e43 sr @0x0e43, $AC0.M
*0x0e40 = *0x0e42
*0x0e41 = *0x0e42
*0x0e43 = *0x0e42
}
}
// 0332 8100 clr $ACC0
// 0333 8e00 set16
// 0334 8400 clrp
// 0335 8900 clr $ACC1
// 0336 1efe mrr $PROD.M2, $AC0.M
// 0337 0e40 lris $AC0.M, #0x40
// 0338 1ebe mrr $PROD.M1, $AC0.M
// 0339 0083 0e08 lri $AR3, #0x0e08
// 033b 1c03 mrr $AR0, $AR3
// 033c 1ff5 mrr $AC1.M, $PROD.M1
// 033d 191a lrri $AX0.H, @$AR0
// 033e f858 addpaxz'l $ACC0, $AX0.H : $AX1.H, @$AR0
// 033f fba0 addpaxz'ls $ACC1, $AX1.H : $AX0.H, $AC0.M
// 0340 f8b1 addpaxz'ls $ACC0, $AX0.H : $AX1.H, $AC1.M
// 0341 fba0 addpaxz'ls $ACC1, $AX1.H : $AX0.H, $AC0.M
// 0342 f8b1 addpaxz'ls $ACC0, $AX0.H : $AX1.H, $AC1.M
// 0343 fba0 addpaxz'ls $ACC1, $AX1.H : $AX0.H, $AC0.M
// 0344 f8b1 addpaxz'ls $ACC0, $AX0.H : $AX1.H, $AC1.M
// 0345 fba0 addpaxz'ls $ACC1, $AX1.H : $AX0.H, $AC0.M
// 0346 f83b addpaxz's $ACC0, $AX0.H : @$AR3, $AC1.M
// 0347 1b7e srri @$AR3, $AC0.M
for (u16* i = 0x0e08; i <= 0x0e10; i++) {
*i = (u16)( (0xff00400000 + (u40)(*i << 16)) >> 16 )
}
// 0348 0083 0e04 lri $AR3, #0x0e04
// 034a 8100 clr $ACC0
// 034b 8973 clr'l $ACC1 : $AC0.M, @$AR3
// 034c 1961 lrri $AR1, @$AR3 // 0x0e05
// 034d 1960 lrri $AR0, @$AR3 // 0x0e06
// 034e 7800 decm $AC0.M
// 034f 00fe 0e04 sr @0x0e04, $AC0.M
// 0351 0294 0253 jnz 0x0253
ms_remaining--
if (ms_remaining)
goto NextMillisecUpd
// 0353 8e00 set16
// 0354 8100 clr $ACC0
// 0355 00de 0b9b lr $AC0.M, @0x0b9b
// 0357 b100 tst $ACC0
// 0358 0295 036a jz 0x036a
if (pb.itd.flag != AX_PB_ITD_OFF) {
// 035a 00de 0b9c lr $AC0.M, @0x0b9c
// 035c 00dc 0b9d lr $AC0.L, @0x0b9d
// 035e 2ece srs @DSMAH, $AC0.M
// 035f 2ccf srs @DSMAL, $AC0.L
// 0360 8100 clr $ACC0
// 0361 00de 0e1c lr $AC0.M, @0x0e1c
// 0363 2ecd srs @DSPA, $AC0.M
// 0364 16c9 0001 si @DSCR, #0x0001
// 0366 16cb 0040 si @DSBL, #0x0040
// DMA 0x40bytes from DRAM @ (*0x0e1c) to CPU @ ((pb.itd.bufferHi << 16) | pb.itd.bufferLo)
// 0368 02bf 055c call 0x055c
WaitDMA();
}
// 036a 8100 clr $ACC0
// 036b 8900 clr $ACC1
// 036c 00de 0b82 lr $AC0.M, @0x0b82
// 036e 00df 0b83 lr $AC1.M, @0x0b83
u16 maddrh = pb.currHi
u16 maddrl = pb.currLo
// This writes back the whole PB to mram from dsp
// 0370 2ece srs @DSMAH, $AC0.M
// 0371 2fcf srs @DSMAL, $AC1.M
// 0372 16cd 0b80 si @DSPA, #0x0b80
// 0374 16c9 0001 si @DSCR, #0x0001
// 0376 16cb 00c0 si @DSBL, #0x00c0
// DMA 0xc0bytes from DRAM @ 0x0b80 to CPU @ maddr
// 0378 02bf 055c call 0x055c
WaitDMA();
// 037a 8100 clr $ACC0
// 037b 00de 0b80 lr $AC0.M, @0x0b80
// 037d 00dc 0b81 lr $AC0.L, @0x0b81
// 037f b100 tst $ACC0
// 0380 0294 0386 jnz 0x0386
if (((pb.nextHi << 16) | pb.nextLo) == 0) {
// No more PBs!
// Restore CmdBlockBuf ptr
0382 00c0 0e07 lr $AR0, @0x0e07
// 0384 029f 0068 jmp 0x0068
goto DoNextCommand;
}
// DMA in the next PB
// From here on out, it's the same as Cmd2, except it calls itself to process the PB it just loaded
// 0386 2ece srs @DSMAH, $AC0.M
// 0387 2ccf srs @DSMAL, $AC0.L
// 0388 16cd 0b80 si @DSPA, #0x0b80
// 038a 16c9 0000 si @DSCR, #0x0000
// 038c 16cb 00c0 si @DSBL, #0x00c0
// DMA 0xc0bytes from CPU @ ((pb.nextHi << 16) | pb.nextLo) to DRAM @ 0x0b80
// 038e 0082 0e08 lri $AR2, #0x0e08
// 0390 009f 0000 lri $AC1.M, #0x0000
// 0392 1b5f srri @$AR2, $AC1.M
// 0393 009f 0140 lri $AC1.M, #0x0140
// 0395 1b5f srri @$AR2, $AC1.M
// 0396 009f 0280 lri $AC1.M, #0x0280
// 0398 1b5f srri @$AR2, $AC1.M
// 0399 009f 0400 lri $AC1.M, #0x0400
// 039b 1b5f srri @$AR2, $AC1.M
// 039c 009f 0540 lri $AC1.M, #0x0540
// 039e 1b5f srri @$AR2, $AC1.M
// 039f 009f 0680 lri $AC1.M, #0x0680
// 03a1 1b5f srri @$AR2, $AC1.M
// 03a2 009f 07c0 lri $AC1.M, #0x07c0
// 03a4 1b5f srri @$AR2, $AC1.M
// 03a5 009f 0900 lri $AC1.M, #0x0900
// 03a7 1b5f srri @$AR2, $AC1.M
// 03a8 009f 0a40 lri $AC1.M, #0x0a40
// 03aa 1b5f srri @$AR2, $AC1.M
*0x0e08 = 0x0000
*0x0e09 = 0x0140
*0x0e0a = 0x0280
*0x0e0b = 0x0400
*0x0e0c = 0x0540
*0x0e0d = 0x0680
*0x0e0e = 0x07c0
*0x0e0f = 0x0900
*0x0e10 = 0x0a40
// 03ab 02bf 055c call 0x055c
WaitDMA();
// 03ad 00de 0ba7 lr $AC0.M, @0x0ba7
// 03af 00df 0ba8 lr $AC1.M, @0x0ba8
// 03b1 2ece srs @DSMAH, $AC0.M
// 03b2 2fcf srs @DSMAL, $AC1.M
// 03b3 16cd 03c0 si @DSPA, #0x03c0
// 03b5 16c9 0000 si @DSCR, #0x0000
// 03b7 16cb 0080 si @DSBL, #0x0080
// DMA 0x80bytes from CPU @ ((pb.update.dataHi << 16) | pb.update.dataLo) to DRAM @ 0x03c0
// 03b9 8100 clr $ACC0
// 03ba 8900 clr $ACC1
// 03bb 00de 0b84 lr $AC0.M, @0x0b84
// 03bd 009f 0b31 lri $AC1.M, #0x0b31
// 03bf 4c00 add $ACC0, $ACC1
// 03c0 1c7e mrr $AR3, $AC0.M
// 03c1 0213 ilrr $AC0.M, @$AR3
// 03c2 00fe 0e15 sr @0x0e15, $AC0.M
*0x0e15 = *(0x0b31 + pb.srcSelect) // func ptr for src
// 03c4 00de 0b85 lr $AC0.M, @0x0b85
// 03c6 009f 0b34 lri $AC1.M, #0x0b34
// 03c8 4c00 add $ACC0, $ACC1
// 03c9 1c7e mrr $AR3, $AC0.M
// 03ca 0213 ilrr $AC0.M, @$AR3
// 03cb 00fe 0e16 sr @0x0e16, $AC0.M
*0x0e16 = *(0x0b34 + pb.coefSelect) // ptr to coef table
// 03cd 00de 0b86 lr $AC0.M, @0x0b86
// 03cf 009f 0b11 lri $AC1.M, #0x0b11
// 03d1 4c00 add $ACC0, $ACC1
// 03d2 1c7e mrr $AR3, $AC0.M
// 03d3 0213 ilrr $AC0.M, @$AR3
// 03d4 00fe 0e14 sr @0x0e14, $AC0.M
*0x0e14 = *(0x0b11 + pb.mixerCtrl) // func ptr for mixer
// 03d6 8100 clr $ACC0
// 03d7 00de 0b9b lr $AC0.M, @0x0b9b
// 03d9 b100 tst $ACC0
// 03da 0295 0403 jz 0x0403
if (pb.itd.flag != AX_PB_ITD_OFF) {
// 03dc 8900 clr $ACC1
// 03dd 00df 0b9e lr $AC1.M, @0x0b9e
// 03df 0300 0cc0 addi $AC1.M, #0x0cc0
// 03e1 00ff 0e40 sr @0x0e40, $AC1.M
*0x0e40 = 0x0cc0 + pb.itd.shiftL
// 03e3 00df 0b9f lr $AC1.M, @0x0b9f
// 03e5 0300 0cc0 addi $AC1.M, #0x0cc0
// 03e7 00ff 0e41 sr @0x0e41, $AC1.M
*0x0e41 = 0x0cc0 + pb.itd.shiftR
// 03e9 009f 0ce0 lri $AC1.M, #0x0ce0
// 03eb 00ff 0e42 sr @0x0e42, $AC1.M
// 03ed 00ff 0e43 sr @0x0e43, $AC1.M
*0x0e42 = 0x0ce0
*0x0e43 = 0x0ce0
// 03ef 02bf 055c call 0x055c
WaitDMA();
// 03f1 00de 0b9c lr $AC0.M, @0x0b9c
// 03f3 2ece srs @DSMAH, $AC0.M
// 03f4 00de 0b9d lr $AC0.M, @0x0b9d
// 03f6 2ecf srs @DSMAL, $AC0.M
// 03f7 16cd 0cc0 si @DSPA, #0x0cc0
// 03f9 16c9 0000 si @DSCR, #0x0000
// 03fb 16cb 0040 si @DSBL, #0x0040
// DMA 0x0040bytes to DMEM @ 0x0cc0 from CPU @ (pb.itd.bufferHi << 16) | pb.itd.bufferLo
// 03fd 02bf 055c call 0x055c
WaitDMA();
// Restore CmdBlockBuf ptr
03ff 00c0 0e07 lr $AR0, @0x0e07
// 0401 029f 0248 jmp 0x0248
goto Cmd_3() // Calls itself till there are no more PBs linked
} else {
// 0403 009f 0ce0 lri $AC1.M, #0x0ce0
// 0405 00ff 0e42 sr @0x0e42, $AC1.M
// 0407 00ff 0e40 sr @0x0e40, $AC1.M
// 0409 00ff 0e41 sr @0x0e41, $AC1.M
// 040b 00ff 0e43 sr @0x0e43, $AC1.M
*0x0e42 = 0x0ce0
*0x0e40 = 0x0ce0
*0x0e41 = 0x0ce0
*0x0e43 = 0x0ce0
// 040d 02bf 055c call 0x055c
WaitDMA();
// Restore CmdBlockBuf ptr
040f 00c0 0e07 lr $AR0, @0x0e07
// 0411 029f 0248 jmp 0x0248
goto Cmd_3() // Calls itself till there are no more PBs linked
}
}
void Cmd_4() {
0413 8e00 set16
0414 0086 0400 lri $IX2, #0x0400 // buffer in dram
// 0416 8100 clr $ACC0
// 0417 8970 clr'l $ACC1 : $AC0.M, @$AR0
// 0418 191c lrri $AC0.L, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 0419 2ece srs @DSMAH, $AC0.M
// 041a 2ccf srs @DSMAL, $AC0.L
// 041b 1fc6 mrr $AC0.M, $IX2
// 041c 2ecd srs @DSPA, $AC0.M
// 041d 16c9 0001 si @DSCR, #0x0001
// 041f 16cb 0780 si @DSBL, #0x0780
// DMA 0x0780bytes from DRAM @ 0x0400 to CPU @ maddr
// 0421 02bf 055c call 0x055c
WaitDMA();
0423 02bf 0484 call 0x0484
// 0425 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_5() {
0427 8e00 set16
0428 0086 07c0 lri $IX2, #0x07c0
042a 8100 clr $ACC0
042b 8970 clr'l $ACC1 : $AC0.M, @$AR0
042c 191c lrri $AC0.L, @$AR0
042d 2ece srs @DSMAH, $AC0.M
042e 2ccf srs @DSMAL, $AC0.L
042f 1fc6 mrr $AC0.M, $IX2
0430 2ecd srs @DSPA, $AC0.M
0431 16c9 0001 si @DSCR, #0x0001
0433 16cb 0780 si @DSBL, #0x0780
// 0435 02bf 055c call 0x055c
WaitDMA();
0437 02bf 0484 call 0x0484
// 0439 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_E() {
043b 8c00 clr15
043c 8a00 m2
043d 8100 clr $ACC0
043e 8970 clr'l $ACC1 : $AC0.M, @$AR0
043f 191f lrri $AC1.M, @$AR0
0440 2ece srs @DSMAH, $AC0.M
0441 2fcf srs @DSMAL, $AC1.M
0442 16cd 0280 si @DSPA, #0x0280
0444 16c9 0001 si @DSCR, #0x0001 // DMEM -> CPU
0446 16cb 0280 si @DSBL, #0x0280
0448 8f50 set40'l : $AX0.H, @$AR0
0449 8140 clr'l $ACC0 : $AX0.L, @$AR0
044a 0081 0400 lri $AR1, #0x0400
044c 0083 0000 lri $AR3, #0x0000
044e 0082 0140 lri $AR2, #0x0140
0450 0099 0080 lri $AX1.L, #0x0080
// 0452 02bf 055c call 0x055c
WaitDMA();
0454 1105 046c bloopi #0x05, 0x046c
0456 1f61 mrr $AX1.H, $AR1
0457 1120 045e bloopi #0x20, 0x045e
0459 8972 clr'l $ACC1 : $AC0.M, @$AR2
045a 195c lrri $AC0.L, @$AR2
045b f07b lsl16'l $ACC0 : $AC1.M, @$AR3
045c 197d lrri $AC1.L, @$AR3
045d f131 lsl16's $ACC1 : @$AR1, $AC0.M
045e 8139 clr's $ACC0 : @$AR1, $AC1.M
045f 8900 clr $ACC1
0460 6800 movax $ACC0, $AX0
0461 2ece srs @DSMAH, $AC0.M
0462 2ccf srs @DSMAL, $AC0.L
0463 1ffb mrr $AC1.M, $AX1.H
0464 2fcd srs @DSPA, $AC1.M
0465 0f01 lris $AC1.M, #0x01
0466 2fc9 srs @DSCR, $AC1.M
0467 1ff9 mrr $AC1.M, $AX1.L
0468 2fcb srs @DSBL, $AC1.M
0469 7200 addaxl $ACC0, $AX1.L
046a 1f5e mrr $AX0.H, $AC0.M
046b 1f1c mrr $AX0.L, $AC0.L
046c 8100 clr $ACC0
// 046d 26c9 lrs $AC0.M, @DSCR
// 046e 02a0 0004 andf $AC0.M, #0x0004
// 0470 029c 046d jlnz 0x046d
while (@DSCR & 4);
// 0472 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void UnimplimentedCmd_B() {
// 0474 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void UnimplimentedCmd_C() {
// 0476 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void UnimplimentedCmd_A() {
// 0478 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Task_Yield() {
// Send DSP_YIELD mail
// 047a 16fc dcd1 si @DMBH, #0xdcd1
// 047c 16fd 0002 si @DMBL, #0x0002
DMB = 0xdcd10002
// 047e 16fb 0001 si @DIRQ, #0x0001
0480 029f 0c91 jmp 0x0c91
}
// Unused?
// 0482 029f 0045 jmp 0x0045
goto GetNextCmdBlock;
// Called by cmds 4 5 9
// IX2 is always modified before calling...
void UnkFunc() {
0484 8e00 set16
0485 191f lrri $AC1.M, @$AR0
0486 191d lrri $AC1.L, @$AR0
0487 1f5f mrr $AX0.H, $AC1.M
0488 1f1d mrr $AX0.L, $AC1.L
0489 2fce srs @DSMAH, $AC1.M
048a 2dcf srs @DSMAL, $AC1.L
048b 8900 clr $ACC1
048c 1fa6 mrr $AC1.L, $IX2
048d 2dcd srs @DSPA, $AC1.L
048e 0e00 lris $AC0.M, #0x00
048f 2ec9 srs @DSCR, $AC0.M
0490 8100 clr $ACC0
0491 009c 00c0 lri $AC0.L, #0x00c0
0493 2ccb srs @DSBL, $AC0.L
0494 1ca0 mrr $IX1, $AR0
0495 0081 0e44 lri $AR1, #0x0e44
0497 4800 addax $ACC0, $AX0
0498 1b3e srri @$AR1, $AC0.M
0499 1b3c srri @$AR1, $AC0.L
049a 0b00 lris $AX1.H, #0x00
049b 0099 0060 lri $AX1.L, #0x0060
049d 4b00 addax $ACC1, $AX1
049e 1b3d srri @$AR1, $AC1.L
049f 0081 0e44 lri $AR1, #0x0e44
04a1 1c06 mrr $AR0, $IX2
04a2 0083 0000 lri $AR3, #0x0000
04a4 1c43 mrr $AR2, $AR3
04a5 27c9 lrs $AC1.M, @DSCR
04a6 03a0 0004 andf $AC1.M, #0x0004
04a8 029c 04a5 jlnz 0x04a5
04aa 1109 04da bloopi #0x09, 0x04da
04ac 8e00 set16
04ad 193a lrri $AX0.H, @$AR1
04ae 1938 lrri $AX0.L, @$AR1
04af 6900 movax $ACC1, $AX0
04b0 2fce srs @DSMAH, $AC1.M
04b1 2dcf srs @DSMAL, $AC1.L
04b2 8900 clr $ACC1
04b3 193d lrri $AC1.L, @$AR1
04b4 2dcd srs @DSPA, $AC1.L
04b5 16c9 0000 si @DSCR, #0x0000
04b7 8100 clr $ACC0
04b8 009c 00c0 lri $AC0.L, #0x00c0
04ba 2ccb srs @DSBL, $AC0.L
04bb 0081 0e44 lri $AR1, #0x0e44
04bd 4800 addax $ACC0, $AX0
04be 1b3e srri @$AR1, $AC0.M
04bf 1b3c srri @$AR1, $AC0.L
04c0 0b00 lris $AX1.H, #0x00
04c1 0960 lris $AX1.L, #0x60
04c2 4b00 addax $ACC1, $AX1
04c3 1b3d srri @$AR1, $AC1.L
04c4 0081 0e44 lri $AR1, #0x0e44
04c6 8f00 set40
04c7 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04c8 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04c9 6a00 movax $ACC0, $AX1
04ca 4800 addax $ACC0, $AX0
04cb 1117 04d4 bloopi #0x17, 0x04d4
04cd 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04ce 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04cf 6b32 movax's $ACC1, $AX1.L : @$AR2, $AC0.M
04d0 4922 addax's $ACC1, $AX0.L : @$AR2, $AC0.L
04d1 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04d2 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04d3 6a3a movax's $ACC0, $AX1.L : @$AR2, $AC1.M
04d4 482a addax's $ACC0, $AX0.L : @$AR2, $AC1.L
04d5 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04d6 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04d7 6b32 movax's $ACC1, $AX1.L : @$AR2, $AC0.M
04d8 4922 addax's $ACC1, $AX0.L : @$AR2, $AC0.L
04d9 1b5f srri @$AR2, $AC1.M
04da 1b5d srri @$AR2, $AC1.L
04db 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04dc 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04dd 6a00 movax $ACC0, $AX1
04de 4800 addax $ACC0, $AX0
04df 1117 04e8 bloopi #0x17, 0x04e8
04e1 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04e2 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04e3 6b32 movax's $ACC1, $AX1.L : @$AR2, $AC0.M
04e4 4922 addax's $ACC1, $AX0.L : @$AR2, $AC0.L
04e5 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04e6 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04e7 6a3a movax's $ACC0, $AX1.L : @$AR2, $AC1.M
04e8 482a addax's $ACC0, $AX0.L : @$AR2, $AC1.L
04e9 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
04ea 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
04eb 6b32 movax's $ACC1, $AX1.L : @$AR2, $AC0.M
04ec 4922 addax's $ACC1, $AX0.L : @$AR2, $AC0.L
04ed 1b5f srri @$AR2, $AC1.M
04ee 1b5d srri @$AR2, $AC1.L
04ef 1c05 mrr $AR0, $IX1
04f0 02df ret
}
// Only called by Command 1
// AX0 = maddr
// AX1.L = unkForMulBuffer1
// AR1 = unkForMulBuffer2
void Unk(maddr, unkForMulBuffer1, unkForMulBuffer2) {
04f1 8e00 set16
// 04f2 009b 0e44 lri $AX1.H, #0x0e44
// 04f4 009d 00c0 lri $AC1.L, #0x00c0
// 04f6 02bf 0541 call 0x0541
u16 daddr = 0x0e44
const u16 dma_len = 0x00c0
DMA_CPUToDMEM(maddr, daddr, dma_len);
// 04f8 4900 addax $ACC1, $AX0
// 04f9 00ff 0e1d sr @0x0e1d, $AC1.M
// 04fb 00fd 0e1e sr @0x0e1e, $AC1.L
// 04fd 8900 clr $ACC1
maddr += dma_len
// 04fe 02bf 055c call 0x055c
WaitDMA();
// 0500 1104 052c bloopi #0x04, 0x052c
for (u8 i = 0; i < 4; i++) {
// 0502 00da 0e1d lr $AX0.H, @0x0e1d // restore
// 0504 00d8 0e1e lr $AX0.L, @0x0e1e // restore
// 0506 009b 0ea4 lri $AX1.H, #0x0ea4 // buffer 2
// 0508 009d 00c0 lri $AC1.L, #0x00c0 // restore
// 050a 02bf 0541 call 0x0541
daddr = 0x0ea4
DMA_CPUToDMEM(maddr, daddr, dma_len);
// 050c 4900 addax $ACC1, $AX0
// 050d 00ff 0e1d sr @0x0e1d, $AC1.M // update
// 050f 00fd 0e1e sr @0x0e1e, $AC1.L
maddr += dma_len
// 0511 0083 0e44 lri $AR3, #0x0e44
// 0513 02bf 054c call 0x054c
UnknownMulBuffer(0x0e44);
// 0515 8900 clr $ACC1
// 0516 00da 0e1d lr $AX0.H, @0x0e1d // restore
// 0518 00d8 0e1e lr $AX0.L, @0x0e1e // restore
// 051a 009b 0e44 lri $AX1.H, #0x0e44 // buffer 1
// 051c 009d 00c0 lri $AC1.L, #0x00c0 // restore
// 051e 02bf 0541 call 0x0541
daddr = 0x0e44
DMA_CPUToDMEM(maddr, daddr, dma_len);
// 0520 4900 addax $ACC1, $AX0
// 0521 00ff 0e1d sr @0x0e1d, $AC1.M // update
// 0523 00fd 0e1e sr @0x0e1e, $AC1.L
maddr += dma_len
// 0525 0083 0ea4 lri $AR3, #0x0ea4 // buffer 2
// 0527 02bf 054c call 0x054c
UnknownMulBuffer(0x0ea4);
// 0529 0000 nop
// 052a 0000 nop
// 052b 8e00 set16 // restore
// 052c 8900 clr $ACC1
}
// 052d 00da 0e1d lr $AX0.H, @0x0e1d // restore
// 052f 00d8 0e1e lr $AX0.L, @0x0e1e // restore
// 0531 009b 0ea4 lri $AX1.H, #0x0ea4 // buffer 2
// 0533 009d 00c0 lri $AC1.L, #0x00c0 // restore
// 0535 02bf 0541 call 0x0541
DMA_CPUToDMEM(maddr, daddr, dma_len);
// 0537 4900 addax $ACC1, $AX0
maddr += dma_len
// 0538 0083 0e44 lri $AR3, #0x0e44 // buffer 1
// 053a 02bf 054c call 0x054c
UnknownMulBuffer(0x0e44);
// 053c 0083 0ea4 lri $AR3, #0x0ea4 // buffer 2
// 053e 02bf 054c call 0x054c
UnknownMulBuffer(0x0ea4);
0540 02df ret
}
// u32 maddr = AX0
// u16 daddr = AX1.H
// u16 len = AC1.L
// Only transfers from CPU -> DMEM
void DMA_CPUToDMEM() {
0541 8e00 set16
0542 00fa ffce sr @DSMAH, $AX0.H
0544 00f8 ffcf sr @DSMAL, $AX0.L
0546 00fb ffcd sr @DSPA, $AX1.H
0548 16c9 0000 si @DSCR, #0x0000
054a 2dcb srs @DSBL, $AC1.L
054b 02df ret
}
// IX1 = 0xffff
// AX1.L = unkForMulBuffer1 (next value in cmd block)
// AR1 = unkForMulBuffer2 (0, 0x0400, then 0x07c0)
// AR3 is some buffer, either 0x0e44 or 0x0ea4
void UnknownMulBuffer() {
054c 8f00 set40 // Loaded ACx.M values extend to the entire ACC
054d 8d00 set15 // multiplicands unsigned
054e 8a00 m2 // mul results doubled
// 054f 197a lrri $AX0.H, @$AR3
// 0550 1978 lrri $AX0.L, @$AR3
AX0.H = *(AR3++)
AX0.L = *(AR3++)
// 0551 a000 mulx $AX0.L, $AX1.L
// 0552 b600 mulxmv $AX0.H, $AX1.L, $ACC0
ACC0 = (u16)AX0.L * (u16)unkForMulBuffer1 * 2
PROD = (u16)AX0.H * (u16)unkForMulBuffer1 * 2
// 0553 1130 055a bloopi #0x30, 0x055a
for (int i=0; i<48; i++) {
// 0555 9179 asr16'l $ACC0 : $AC1.M, @$AR1
ACC0 >>= 16
AC1.M = *(unkForMulBuffer2++)
// 0556 4e6d addp'ln $ACC0 : $AC1.L, @$AR1
ACC0 += PROD
AC1.L = *unkForMulBuffer2
unkForMulBuffer2 -= 1
// 0557 197a lrri $AX0.H, @$AR3
AX0.H = *(AR3++)
// 0558 4d43 add'l $ACC1, $ACC0 : $AX0.L, @$AR3
ACC1 += ACC0
AX0.L = *(AR3++)
// 0559 a039 mulx's $AX0.L, $AX1.L : @$AR1, $AC1.M
// 055a b629 mulxmv's $AX0.H, $AX1.L, $ACC0 : @$AR1, $AC1.L
ACC0 = (u16)AX0.L * (u16)unkForMulBuffer1 * 2
*(unkForMulBuffer2++) = AC1.M
PROD = (u16)AX0.H * (u16)unkForMulBuffer1 * 2
*(unkForMulBuffer2++) = AC1.L
}
055b 02df ret
}
void WaitDMA() {
// 055c 26c9 lrs $AC0.M, @DSCR
// 055d 02a0 0004 andf $AC0.M, #0x0004
// 055f 029c 055c jlnz 0x055c
while (@DSCR & 4);
// 0561 02df ret
return;
}
// All apparently unused?
void WaitForCPUMailbox() {
0562 26fe lrs $AC0.M, @CMBH
0563 02c0 8000 andcf $AC0.M, #0x8000
0565 029c 0562 jlnz 0x0562
0567 02df ret
}
void WaitForDSPMailbox1() {
0568 26fc lrs $AC0.M, @DMBH
0569 02a0 8000 andf $AC0.M, #0x8000
056b 029c 0568 jlnz 0x0568
056d 02df ret
}
void WaitForDSPMailbox2() {
056e 26fc lrs $AC0.M, @DMBH
056f 02a0 8000 andf $AC0.M, #0x8000
0571 029c 056e jlnz 0x056e
0573 02df ret
}
void Cmd_7() {
// 0574 8100 clr $ACC0
// 0575 8970 clr'l $ACC1 : $AC0.M, @$AR0
// 0576 8e60 set16'l : $AC0.L, @$AR0
u16 maddrh = *(CmdBlockBuf++)
u16 maddrl = *(CmdBlockBuf++)
// 0577 2ece srs @DSMAH, $AC0.M
// 0578 2ccf srs @DSMAL, $AC0.L
// 0579 16cd 0e44 si @DSPA, #0x0e44
// 057b 16c9 0000 si @DSCR, #0x0000
// 057d 8900 clr $ACC1
// 057e 0d20 lris $AC1.L, #0x20
u16 dma_len = 32
// 057f 2dcb srs @DSBL, $AC1.L
// DMA 32bytes from CPU @ maddr -> DMEM @ 0x0e44
// 0580 4c00 add $ACC0, $ACC1
maddr += dma_len
// Push CmdBlockBuf ptr
0581 1c80 mrr $IX0, $AR0
// 0582 0080 0280 lri $AR0, #0x0280
// 0584 0081 0000 lri $AR1, #0x0000
// 0586 0082 0140 lri $AR2, #0x0140
// 0588 0083 0e44 lri $AR3, #0x0e44
u16* unk_buf1 = 0x0280
u16* unk_buf2 = 0x0000
u16* unk_buf3 = 0x0140
u16* dmem_buf = 0x0e44
// 058a 0a00 lris $AX0.H, #0x00
const u16 null = 0 // Guess is that it's faster to use AXx instead of imm value?
// 058b 27c9 lrs $AC1.M, @DSCR
// 058c 03a0 0004 andf $AC1.M, #0x0004
// 058e 029c 058b jlnz 0x058b
while (@DSCR & 4); // Wait for DMA completion
// 0590 2ece srs @DSMAH, $AC0.M
// 0591 2ccf srs @DSMAL, $AC0.L
// 0592 16cd 0e54 si @DSPA, #0x0e54
// 0594 16c9 0000 si @DSCR, #0x0000
// 0596 16cb 0260 si @DSBL, #0x0260
// DMA 0x0260bytes from CPU @ maddr -> DMEM @ 0x0e54
// No waiting for DMA
// 0598 009f 00a0 lri $AC1.M, #0x00a0
u16 size = 0x00a0
// accum loads in the loop are 40bit
// 059a 8f00 set40
// 059b 007f 05a4 bloop $AC1.M, 0x05a4
for (int i = 0; i < size; i++) {
// !!! Doesn't make sense with current understanding of set40
059d 197e lrri $AC0.M, @$AR3
059e 1b1a srri @$AR0, $AX0.H
059f 197c lrri $AC0.L, @$AR3
05a0 1b1a srri @$AR0, $AX0.H
05a1 1b5e srri @$AR2, $AC0.M
05a2 1b5c srri @$AR2, $AC0.L
05a3 1b3e srri @$AR1, $AC0.M
05a4 1b3c srri @$AR1, $AC0.L
}
// Pop CmdBlockBuf ptr
05a5 1c04 mrr $AR0, $IX0
// 05a6 029f 0068 jmp 0x0068
goto DoNextCommand;
}
# Following 3 funcs are the SRCs to select from, in order
void SRC_Polyphase() {
// Copy pb's data [pb.addr.format to pb.adpm.yn2] to corresponding hw regs
// 05a8 0082 0bb8 lri $AR2, #0x0bb8
// 05aa 195e lrri $AC0.M, @$AR2
// 05ab 2ed1 srs @SampleFormat, $AC0.M
// 05ac 195e lrri $AC0.M, @$AR2
// 05ad 2ed4 srs @ACSAH, $AC0.M
// 05ae 195e lrri $AC0.M, @$AR2
// 05af 2ed5 srs @ACSAL, $AC0.M
// 05b0 195e lrri $AC0.M, @$AR2
// 05b1 2ed6 srs @ACEAH, $AC0.M
// 05b2 195e lrri $AC0.M, @$AR2
// 05b3 2ed7 srs @ACEAL, $AC0.M
// 05b4 195e lrri $AC0.M, @$AR2
// 05b5 2ed8 srs @ACCAH, $AC0.M
// 05b6 195e lrri $AC0.M, @$AR2
// 05b7 2ed9 srs @ACCAL, $AC0.M
// 05b8 195e lrri $AC0.M, @$AR2
// 05b9 2ea0 srs @COEF_A1_0, $AC0.M
// 05ba 195e lrri $AC0.M, @$AR2
// 05bb 2ea1 srs @COEF_A2_0, $AC0.M
// 05bc 195e lrri $AC0.M, @$AR2
// 05bd 2ea2 srs @COEF_A1_1, $AC0.M
// 05be 195e lrri $AC0.M, @$AR2
// 05bf 2ea3 srs @COEF_A2_1, $AC0.M
// 05c0 195e lrri $AC0.M, @$AR2
// 05c1 2ea4 srs @COEF_A1_2, $AC0.M
// 05c2 195e lrri $AC0.M, @$AR2
// 05c3 2ea5 srs @COEF_A2_2, $AC0.M
// 05c4 195e lrri $AC0.M, @$AR2
// 05c5 2ea6 srs @COEF_A1_3, $AC0.M
// 05c6 195e lrri $AC0.M, @$AR2
// 05c7 2ea7 srs @COEF_A2_3, $AC0.M
// 05c8 195e lrri $AC0.M, @$AR2
// 05c9 2ea8 srs @COEF_A1_4, $AC0.M
// 05ca 195e lrri $AC0.M, @$AR2
// 05cb 2ea9 srs @COEF_A2_4, $AC0.M
// 05cc 195e lrri $AC0.M, @$AR2
// 05cd 2eaa srs @COEF_A1_5, $AC0.M
// 05ce 195e lrri $AC0.M, @$AR2
// 05cf 2eab srs @COEF_A2_5, $AC0.M
// 05d0 195e lrri $AC0.M, @$AR2
// 05d1 2eac srs @COEF_A1_6, $AC0.M
// 05d2 195e lrri $AC0.M, @$AR2
// 05d3 2ead srs @COEF_A2_6, $AC0.M
// 05d4 195e lrri $AC0.M, @$AR2
// 05d5 2eae srs @COEF_A1_7, $AC0.M
// 05d6 195e lrri $AC0.M, @$AR2
// 05d7 2eaf srs @COEF_A2_7, $AC0.M
// 05d8 195e lrri $AC0.M, @$AR2
// 05d9 2ede srs @GAIN, $AC0.M
// 05da 195e lrri $AC0.M, @$AR2
// 05db 2eda srs @scale, $AC0.M
// 05dc 195e lrri $AC0.M, @$AR2
// 05dd 2edb srs @yn1, $AC0.M
// 05de 195e lrri $AC0.M, @$AR2
// 05df 2edc srs @yn2, $AC0.M
05e0 8c00 clr15
05e1 8a00 m2
05e2 8e00 set16
05e3 00d8 0e16 lr $AX0.L, @0x0e16
05e5 195b lrri $AX1.H, @$AR2
05e6 1959 lrri $AX1.L, @$AR2
05e7 8100 clr $ACC0
05e8 195c lrri $AC0.L, @$AR2
05e9 0080 0e44 lri $AR0, #0x0e44
05eb 195f lrri $AC1.M, @$AR2
05ec 1b1f srri @$AR0, $AC1.M
05ed 195f lrri $AC1.M, @$AR2
05ee 1b1f srri @$AR0, $AC1.M
05ef 195f lrri $AC1.M, @$AR2
05f0 1b1f srri @$AR0, $AC1.M
05f1 185f lrr $AC1.M, @$AR2
05f2 1b1f srri @$AR0, $AC1.M
05f3 6b00 movax $ACC1, $AX1
05f4 1505 lsl $ACC1, #5
05f5 4d00 add $ACC1, $ACC0
05f6 157e lsr $ACC1, #-2
05f7 1c9f mrr $IX0, $AC1.M
05f8 1cbd mrr $IX1, $AC1.L
05f9 05e0 addis $AC1.M, #0xe0
05fa 9900 asr16 $ACC1
05fb 7d00 neg $ACC1
05fc 1cdd mrr $IX2, $AC1.L
05fd 8900 clr $ACC1
05fe 1fa5 mrr $AC1.L, $IX1
05ff 1502 lsl $ACC1, #2
0600 1cbf mrr $IX1, $AC1.M
0601 009a 01fc lri $AX0.H, #0x01fc
0603 009e 0e44 lri $AC0.M, #0x0e44
0605 0081 ffdd lri $AR1, #0xffdd
0607 0083 0d80 lri $AR3, #0x0d80
0609 0064 061a bloop $IX0, 0x061a
060b 1827 lrr $IX3, @$AR1
060c 1b07 srri @$AR0, $IX3
060d 4a00 addax $ACC0, $AX1
060e 1ffc mrr $AC1.M, $AC0.L
060f 1827 lrr $IX3, @$AR1
0610 1b07 srri @$AR0, $IX3
0611 1579 lsr $ACC1, #-7
0612 3500 andr $AC1.M, $AX0.H
0613 1827 lrr $IX3, @$AR1
0614 1b07 srri @$AR0, $IX3
0615 4100 addr $ACC1, $AX0.L
0616 1b7e srri @$AR3, $AC0.M
0617 1827 lrr $IX3, @$AR1
0618 1b07 srri @$AR0, $IX3
0619 1b7f srri @$AR3, $AC1.M
061a 0000 nop
061b 0065 0620 bloop $IX1, 0x0620
061d 1827 lrr $IX3, @$AR1
061e 1b07 srri @$AR0, $IX3
061f 0000 nop
0620 0000 nop
0621 0007 dar $AR3
0622 187f lrr $AC1.M, @$AR3
0623 0066 0629 bloop $IX2, 0x0629
0625 4a3b addax's $ACC0, $AX1.L : @$AR3, $AC1.M
0626 1ffc mrr $AC1.M, $AC0.L
0627 1579 lsr $ACC1, #-7
0628 3533 andr's $AC1.M, $AX0.H : @$AR3, $AC0.M
0629 4100 addr $ACC1, $AX0.L
062a 1b7f srri @$AR3, $AC1.M
062b 0004 dar $AR0
062c 189f lrrd $AC1.M, @$AR0
062d 1adf srrd @$AR2, $AC1.M
062e 189f lrrd $AC1.M, @$AR0
062f 1adf srrd @$AR2, $AC1.M
0630 189f lrrd $AC1.M, @$AR0
0631 1adf srrd @$AR2, $AC1.M
0632 189f lrrd $AC1.M, @$AR0
0633 1adf srrd @$AR2, $AC1.M
0634 1adc srrd @$AR2, $AC0.L
0635 0082 0bd2 lri $AR2, #0x0bd2
0637 27dc lrs $AC1.M, @yn2
0638 1adf srrd @$AR2, $AC1.M
0639 27db lrs $AC1.M, @yn1
063a 1adf srrd @$AR2, $AC1.M
063b 27da lrs $AC1.M, @scale
063c 1adf srrd @$AR2, $AC1.M
063d 0082 0bbe lri $AR2, #0x0bbe
063f 27d9 lrs $AC1.M, @ACCAL
0640 1adf srrd @$AR2, $AC1.M
0641 27d8 lrs $AC1.M, @ACCAH
0642 1adf srrd @$AR2, $AC1.M
0643 8f00 set40
0644 00c1 0e42 lr $AR1, @0x0e42
0646 0082 0d80 lri $AR2, #0x0d80
0648 1940 lrri $AR0, @$AR2
0649 1943 lrri $AR3, @$AR2
064a 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
064b b8c0 mulx'ld $AX0.H, $AX1.H : $AX0.L, $AX1.L, @$AR0
064c 111f 0654 bloopi #0x1f, 0x0654
064e a6f0 mulxmv'ld $AX0.L, $AX1.L, $ACC0 : $AX0.H, $AX1.H, @$AR0
064f bcf0 mulxac'ld $AX0.H, $AX1.H, $ACC0 : $AX0.H, $AX1.H, @$AR0
0650 1940 lrri $AR0, @$AR2
0651 1943 lrri $AR3, @$AR2
0652 bcf0 mulxac'ld $AX0.H, $AX1.H, $ACC0 : $AX0.H, $AX1.H, @$AR0
0653 4ec0 addp'ld $ACC0 : $AX0.L, $AX1.L, @$AR0
0654 b831 mulx's $AX0.H, $AX1.H : @$AR1, $AC0.M
0655 a6f0 mulxmv'ld $AX0.L, $AX1.L, $ACC0 : $AX0.H, $AX1.H, @$AR0
0656 bcf0 mulxac'ld $AX0.H, $AX1.H, $ACC0 : $AX0.H, $AX1.H, @$AR0
0657 bc00 mulxac $AX0.H, $AX1.H, $ACC0
0658 4e00 addp $ACC0
0659 1b3e srri @$AR1, $AC0.M
065a 00e1 0e42 sr @0x0e42, $AR1
065c 02df ret
}
void SRC_Linear() {
// Copy pb's data [pb.addr.format to pb.adpm.yn2] to corresponding hw regs
// 065d 0082 0bb8 lri $AR2, #0x0bb8
// 065f 195e lrri $AC0.M, @$AR2
// 0660 2ed1 srs @SampleFormat, $AC0.M
// 0661 195e lrri $AC0.M, @$AR2
// 0662 2ed4 srs @ACSAH, $AC0.M
// 0663 195e lrri $AC0.M, @$AR2
// 0664 2ed5 srs @ACSAL, $AC0.M
// 0665 195e lrri $AC0.M, @$AR2
// 0666 2ed6 srs @ACEAH, $AC0.M
// 0667 195e lrri $AC0.M, @$AR2
// 0668 2ed7 srs @ACEAL, $AC0.M
// 0669 195e lrri $AC0.M, @$AR2
// 066a 2ed8 srs @ACCAH, $AC0.M
// 066b 195e lrri $AC0.M, @$AR2
// 066c 2ed9 srs @ACCAL, $AC0.M
// 066d 195e lrri $AC0.M, @$AR2
// 066e 2ea0 srs @COEF_A1_0, $AC0.M
// 066f 195e lrri $AC0.M, @$AR2
// 0670 2ea1 srs @COEF_A2_0, $AC0.M
// 0671 195e lrri $AC0.M, @$AR2
// 0672 2ea2 srs @COEF_A1_1, $AC0.M
// 0673 195e lrri $AC0.M, @$AR2
// 0674 2ea3 srs @COEF_A2_1, $AC0.M
// 0675 195e lrri $AC0.M, @$AR2
// 0676 2ea4 srs @COEF_A1_2, $AC0.M
// 0677 195e lrri $AC0.M, @$AR2
// 0678 2ea5 srs @COEF_A2_2, $AC0.M
// 0679 195e lrri $AC0.M, @$AR2
// 067a 2ea6 srs @COEF_A1_3, $AC0.M
// 067b 195e lrri $AC0.M, @$AR2
// 067c 2ea7 srs @COEF_A2_3, $AC0.M
// 067d 195e lrri $AC0.M, @$AR2
// 067e 2ea8 srs @COEF_A1_4, $AC0.M
// 067f 195e lrri $AC0.M, @$AR2
// 0680 2ea9 srs @COEF_A2_4, $AC0.M
// 0681 195e lrri $AC0.M, @$AR2
// 0682 2eaa srs @COEF_A1_5, $AC0.M
// 0683 195e lrri $AC0.M, @$AR2
// 0684 2eab srs @COEF_A2_5, $AC0.M
// 0685 195e lrri $AC0.M, @$AR2
// 0686 2eac srs @COEF_A1_6, $AC0.M
// 0687 195e lrri $AC0.M, @$AR2
// 0688 2ead srs @COEF_A2_6, $AC0.M
// 0689 195e lrri $AC0.M, @$AR2
// 068a 2eae srs @COEF_A1_7, $AC0.M
// 068b 195e lrri $AC0.M, @$AR2
// 068c 2eaf srs @COEF_A2_7, $AC0.M
// 068d 195e lrri $AC0.M, @$AR2
// 068e 2ede srs @GAIN, $AC0.M
// 068f 195e lrri $AC0.M, @$AR2
// 0690 2eda srs @scale, $AC0.M
// 0691 195e lrri $AC0.M, @$AR2
// 0692 2edb srs @yn1, $AC0.M
// 0693 195e lrri $AC0.M, @$AR2
// 0694 2edc srs @yn2, $AC0.M
// 0695 8c00 clr15 // signed mulx
// 0696 8a00 m2 // *2
// 0697 8e00 set16 // no sign extend
// 0698 195b lrri $AX1.H, @$AR2
// 0699 1959 lrri $AX1.L, @$AR2
// 069a 8100 clr $ACC0
// 069b 195c lrri $AC0.L, @$AR2
// 069c 0080 0e44 lri $AR0, #0x0e44
// 069e 195f lrri $AC1.M, @$AR2
// 069f 195f lrri $AC1.M, @$AR2
// 06a0 195f lrri $AC1.M, @$AR2
// 06a1 1b1f srri @$AR0, $AC1.M
AR0 = 0x0e44
AX1.H = pb.src.ratioHi
AX1.L = pb.src.ratioLo
AC0.L = pb.src.currentAddressFrac
AC1.M = pb.src.last_samples[2]
*0x0e44 = pb.src.last_samples[2]
*0x0e45 = pb.src.last_samples[3]
// 06a2 185f lrr $AC1.M, @$AR2
// 06a3 1b1f srri @$AR0, $AC1.M
// 06a4 6b00 movax $ACC1, $AX1
// 06a5 1505 lsl $ACC1, #5
// 06a6 4d00 add $ACC1, $ACC0
// 06a7 157e lsr $ACC1, #-2
// 06a8 1c9f mrr $IX0, $AC1.M
// 06a9 1cbd mrr $IX1, $AC1.L
ACC1 = (pb.src.currentAddressFrac + (pb.src.ratio << 5)) >> 2
IX0 = ACC1 >> 16
IX1 = ((ACC1 & 0xffff) & 0xc000) >> 14
IX2 = ~((ACC1 >> 16) - 32)
AX0.H = 0x01fc
AC0.M = 0x0e45
AR1 = 0xffdd // DSP_ACCELERATOR
AR3 = 0x0d80
// 06aa 05e0 addis $AC1.M, #0xe0
// 06ab 9900 asr16 $ACC1
// 06ac 7d00 neg $ACC1
// 06ad 1cdd mrr $IX2, $AC1.L
// 06ae 8900 clr $ACC1
// 06af 1fa5 mrr $AC1.L, $IX1
// 06b0 1502 lsl $ACC1, #2
// 06b1 1cbf mrr $IX1, $AC1.M
// 06b2 009a 01fc lri $AX0.H, #0x01fc
// 06b4 009e 0e45 lri $AC0.M, #0x0e45
// 06b6 0081 ffdd lri $AR1, #0xffdd
// 06b8 0083 0d80 lri $AR3, #0x0d80
// 06ba 0064 06cb bloop $IX0, 0x06cb
// 06bc 1827 lrr $IX3, @$AR1
// 06bd 1b07 srri @$AR0, $IX3
// 06be 4a00 addax $ACC0, $AX1
// 06bf 1b7e srri @$AR3, $AC0.M
// 06c0 1827 lrr $IX3, @$AR1
// 06c1 1b07 srri @$AR0, $IX3
// 06c2 1b7c srri @$AR3, $AC0.L
// 06c3 0000 nop
// 06c4 1827 lrr $IX3, @$AR1
// 06c5 1b07 srri @$AR0, $IX3
// 06c6 0000 nop
// 06c7 0000 nop
// 06c8 1827 lrr $IX3, @$AR1
// 06c9 1b07 srri @$AR0, $IX3
// 06ca 0000 nop
// 06cb 0000 nop
ACCO = (0x0e45 << 16) + pb.src.currentAddressFrac
for (i = 0; i < IX0; i++) {
ACC0 += pb.src.ratio
*(0x0d80++) = ACC0 >> 16
*(0x0d80++) = ACC0 & 0xffff
*(0x0e46++) = *DSP_ACCELERATOR
*(0x0e46++) = *DSP_ACCELERATOR
*(0x0e46++) = *DSP_ACCELERATOR
*(0x0e46++) = *DSP_ACCELERATOR
}
// 06cc 0065 06d1 bloop $IX1, 0x06d1
// 06ce 1827 lrr $IX3, @$AR1
// 06cf 1b07 srri @$AR0, $IX3
// 06d0 0000 nop
// 06d1 0000 nop
for (i = 0; i < IX1; i++) {
*(0x0e46++) = *DSP_ACCELERATOR
}
// 06d2 0066 06d6 bloop $IX2, 0x06d6
// 06d4 4a00 addax $ACC0, $AX1
// 06d5 1b7e srri @$AR3, $AC0.M
// 06d6 1b7c srri @$AR3, $AC0.L
for (i = 0; i < IX2; i++) {
ACC0 += pb.src.ratio
*(0x0d80++) = ACC0 >> 16
*(0x0d80++) = ACC0 & 0xffff
}
// 06d7 0004 dar $AR0
// 06d8 189f lrrd $AC1.M, @$AR0
// 06d9 1adf srrd @$AR2, $AC1.M
// 06da 189f lrrd $AC1.M, @$AR0
// 06db 1adf srrd @$AR2, $AC1.M
// 06dc 189f lrrd $AC1.M, @$AR0
// 06dd 1adf srrd @$AR2, $AC1.M
// 06de 189f lrrd $AC1.M, @$AR0
// 06df 1adf srrd @$AR2, $AC1.M
// 06e0 1adc srrd @$AR2, $AC0.L
*(0x0e46++)--
pb.src.last_samples[3] = *(0x0e46--)
pb.src.last_samples[2] = *(0x0e46--)
pb.src.last_samples[1] = *(0x0e46--)
pb.src.last_samples[0] = *(0x0e46--)
pb.src.currentAddressFrac = ACC0 & 0xffff
// 06e1 0082 0bd2 lri $AR2, #0x0bd2
// 06e3 27dc lrs $AC1.M, @yn2
// 06e4 1adf srrd @$AR2, $AC1.M
// 06e5 27db lrs $AC1.M, @yn1
// 06e6 1adf srrd @$AR2, $AC1.M
// 06e7 27da lrs $AC1.M, @scale
// 06e8 1adf srrd @$AR2, $AC1.M
// 06e9 0082 0bbe lri $AR2, #0x0bbe
// 06eb 27d9 lrs $AC1.M, @ACCAL
// 06ec 1adf srrd @$AR2, $AC1.M
// 06ed 27d8 lrs $AC1.M, @ACCAH
// 06ee 1adf srrd @$AR2, $AC1.M
pb.adpm.yn2 = *yn2
pb.adpm.yn1 = *yn1
pb.adpm.pred_scale = *scale
pb.addr.currentAddressLo = *ACCAL // Current playback position
pb.addr.currentAddressHi = *ACCAH
06ef 8d00 set15 // unsigned mulx
06f0 8b00 m0 // no *2
06f1 8f00 set40 // sign extend
06f2 00c1 0e42 lr $AR1, @0x0e42
06f4 0082 0d80 lri $AR2, #0x0d80
06f6 8100 clr $ACC0
06f7 1120 0703 bloopi #0x20, 0x0703
06f9 8900 clr $ACC1
06fa 1940 lrri $AR0, @$AR2
06fb 189e lrrd $AC0.M, @$AR0
06fc 181b lrr $AX1.H, @$AR0
06fd 199a lrrn $AX0.H, @$AR0
06fe 5400 subr $ACC0, $AX0.H
06ff 1f5e mrr $AX0.H, $AC0.M
0700 1959 lrri $AX1.L, @$AR2
0701 b000 mulx $AX0.H, $AX1.L
0702 fb00 addpaxz $ACC1, $AX1
0703 8139 clr's $ACC0 : @$AR1, $AC1.M
0704 00e1 0e42 sr @0x0e42, $AR1
0706 02df ret
}
void SRC_None() {
// Copy pb's data [pb.addr.format to pb.adpm.yn2] to corresponding hw regs
// 0707 0082 0bb8 lri $AR2, #0x0bb8
// 0709 195e lrri $AC0.M, @$AR2
// 070a 2ed1 srs @SampleFormat, $AC0.M
// 070b 195e lrri $AC0.M, @$AR2
// 070c 2ed4 srs @ACSAH, $AC0.M
// 070d 195e lrri $AC0.M, @$AR2
// 070e 2ed5 srs @ACSAL, $AC0.M
// 070f 195e lrri $AC0.M, @$AR2
// 0710 2ed6 srs @ACEAH, $AC0.M
// 0711 195e lrri $AC0.M, @$AR2
// 0712 2ed7 srs @ACEAL, $AC0.M
// 0713 195e lrri $AC0.M, @$AR2
// 0714 2ed8 srs @ACCAH, $AC0.M
// 0715 195e lrri $AC0.M, @$AR2
// 0716 2ed9 srs @ACCAL, $AC0.M
// 0717 195e lrri $AC0.M, @$AR2
// 0718 2ea0 srs @COEF_A1_0, $AC0.M
// 0719 195e lrri $AC0.M, @$AR2
// 071a 2ea1 srs @COEF_A2_0, $AC0.M
// 071b 195e lrri $AC0.M, @$AR2
// 071c 2ea2 srs @COEF_A1_1, $AC0.M
// 071d 195e lrri $AC0.M, @$AR2
// 071e 2ea3 srs @COEF_A2_1, $AC0.M
// 071f 195e lrri $AC0.M, @$AR2
// 0720 2ea4 srs @COEF_A1_2, $AC0.M
// 0721 195e lrri $AC0.M, @$AR2
// 0722 2ea5 srs @COEF_A2_2, $AC0.M
// 0723 195e lrri $AC0.M, @$AR2
// 0724 2ea6 srs @COEF_A1_3, $AC0.M
// 0725 195e lrri $AC0.M, @$AR2
// 0726 2ea7 srs @COEF_A2_3, $AC0.M
// 0727 195e lrri $AC0.M, @$AR2
// 0728 2ea8 srs @COEF_A1_4, $AC0.M
// 0729 195e lrri $AC0.M, @$AR2
// 072a 2ea9 srs @COEF_A2_4, $AC0.M
// 072b 195e lrri $AC0.M, @$AR2
// 072c 2eaa srs @COEF_A1_5, $AC0.M
// 072d 195e lrri $AC0.M, @$AR2
// 072e 2eab srs @COEF_A2_5, $AC0.M
// 072f 195e lrri $AC0.M, @$AR2
// 0730 2eac srs @COEF_A1_6, $AC0.M
// 0731 195e lrri $AC0.M, @$AR2
// 0732 2ead srs @COEF_A2_6, $AC0.M
// 0733 195e lrri $AC0.M, @$AR2
// 0734 2eae srs @COEF_A1_7, $AC0.M
// 0735 195e lrri $AC0.M, @$AR2
// 0736 2eaf srs @COEF_A2_7, $AC0.M
// 0737 195e lrri $AC0.M, @$AR2
// 0738 2ede srs @GAIN, $AC0.M
// 0739 195e lrri $AC0.M, @$AR2
// 073a 2eda srs @scale, $AC0.M
// 073b 195e lrri $AC0.M, @$AR2
// 073c 2edb srs @yn1, $AC0.M
// 073d 195e lrri $AC0.M, @$AR2
// 073e 2edc srs @yn2, $AC0.M
// 073f 00c0 0e42 lr $AR0, @0x0e42
// 0741 0081 ffdd lri $AR1, #0xffdd // DSP_ACCELERATOR
// 0743 1120 0748 bloopi #0x20, 0x0748
// 0745 1824 lrr $IX0, @$AR1
// 0746 1b04 srri @$AR0, $IX0
// 0747 0000 nop
// 0748 0000 nop
// 0749 00e0 0e42 sr @0x0e42, $AR0
u16 i = *0x0e42
for (; i < ((*0x0e42) + 0x20); i++) {
*i = *DSP_ACCELERATOR
}
*0x0e42 = i
// 074b 0082 0bd9 lri $AR2, #0x0bd9 // pb.src.last_samples[3]
// 074d 0004 dar $AR0
// 074e 189f lrrd $AC1.M, @$AR0
// 074f 1adf srrd @$AR2, $AC1.M
// 0750 189f lrrd $AC1.M, @$AR0
// 0751 1adf srrd @$AR2, $AC1.M
// 0752 189f lrrd $AC1.M, @$AR0
// 0753 1adf srrd @$AR2, $AC1.M
// 0754 189f lrrd $AC1.M, @$AR0
// 0755 1adf srrd @$AR2, $AC1.M
// 0756 8900 clr $ACC1
// 0757 1adc srrd @$AR2, $AC0.L // uhhh assume AC0.L is 0?
i-- // Guess that 0x0e42 points to struct of 1 pointer and 32 values
pb.src.last_samples[3] = *(i--)
pb.src.last_samples[2] = *(i--)
pb.src.last_samples[1] = *(i--)
pb.src.last_samples[0] = *(i--)
pb.src.currentAddressFrac = 0
// 0758 27dc lrs $AC1.M, @yn2
// 0759 00ff 0bd2 sr @0x0bd2, $AC1.M
// 075b 27db lrs $AC1.M, @yn1
// 075c 00ff 0bd1 sr @0x0bd1, $AC1.M
// 075e 27da lrs $AC1.M, @scale
// 075f 00ff 0bd0 sr @0x0bd0, $AC1.M
// 0761 27d9 lrs $AC1.M, @ACCAL
// 0762 00ff 0bbe sr @0x0bbe, $AC1.M
// 0764 27d8 lrs $AC1.M, @ACCAH
// 0765 00ff 0bbd sr @0x0bbd, $AC1.M
pb.adpm.yn2 = *yn2
pb.adpm.yn1 = *yn1
pb.adpm.pred_scale = *scale
pb.addr.currentAddressLo = *ACCAL // Current playback position
pb.addr.currentAddressHi = *ACCAH
0767 02df ret
}
# From here to the jump tables, all the funcs just wrap calls to mixer(s) in IROM
void Mixer_0() {
0768 00c0 0e40 lr $AR0, @0x0e40
076a 0081 0b89 lri $AR1, #0x0b89
076c 00c2 0e08 lr $AR2, @0x0e08
076e 1c62 mrr $AR3, $AR2
076f 00c4 0e41 lr $IX0, @0x0e41
0771 00c5 0e09 lr $IX1, @0x0e09
0773 02bf 80e7 call 0x80e7
0775 00f8 0ba9 sr @0x0ba9, $AX0.L
0777 00fb 0bac sr @0x0bac, $AX1.H
0779 02df ret
}
void Mixer_1() {
077a 00c0 0e40 lr $AR0, @0x0e40
077c 0081 0b89 lri $AR1, #0x0b89
077e 00c2 0e08 lr $AR2, @0x0e08
0780 1c62 mrr $AR3, $AR2
0781 00c4 0e41 lr $IX0, @0x0e41
0783 00c5 0e09 lr $IX1, @0x0e09
0785 02bf 80e7 call 0x80e7
0787 00f8 0ba9 sr @0x0ba9, $AX0.L
0789 00fb 0bac sr @0x0bac, $AX1.H
078b 00c0 0e40 lr $AR0, @0x0e40
078d 0081 0b8d lri $AR1, #0x0b8d
078f 00c2 0e0b lr $AR2, @0x0e0b
0791 1c62 mrr $AR3, $AR2
0792 00c4 0e41 lr $IX0, @0x0e41
0794 00c5 0e0c lr $IX1, @0x0e0c
0796 02bf 80e7 call 0x80e7
0798 00f8 0baa sr @0x0baa, $AX0.L
079a 00fb 0bad sr @0x0bad, $AX1.H
079c 02df ret
}
void Mixer_2() {
079d 00c0 0e40 lr $AR0, @0x0e40
079f 0081 0b89 lri $AR1, #0x0b89
07a1 00c2 0e08 lr $AR2, @0x0e08
07a3 1c62 mrr $AR3, $AR2
07a4 00c4 0e41 lr $IX0, @0x0e41
07a6 00c5 0e09 lr $IX1, @0x0e09
07a8 02bf 80e7 call 0x80e7
07aa 00f8 0ba9 sr @0x0ba9, $AX0.L
07ac 00fb 0bac sr @0x0bac, $AX1.H
07ae 00c0 0e40 lr $AR0, @0x0e40
07b0 0081 0b91 lri $AR1, #0x0b91
07b2 00c2 0e0e lr $AR2, @0x0e0e
07b4 1c62 mrr $AR3, $AR2
07b5 00c4 0e41 lr $IX0, @0x0e41
07b7 00c5 0e0f lr $IX1, @0x0e0f
07b9 02bf 80e7 call 0x80e7
07bb 00f8 0bab sr @0x0bab, $AX0.L
07bd 00fb 0bae sr @0x0bae, $AX1.H
07bf 02df ret
}
void Unk() {
07c0 00c0 0e40 lr $AR0, @0x0e40
07c2 0081 0b89 lri $AR1, #0x0b89
07c4 00c2 0e08 lr $AR2, @0x0e08
07c6 1c62 mrr $AR3, $AR2
07c7 00c4 0e41 lr $IX0, @0x0e41
07c9 00c5 0e09 lr $IX1, @0x0e09
07cb 02bf 80e7 call 0x80e7
07cd 00f8 0ba9 sr @0x0ba9, $AX0.L
07cf 00fb 0bac sr @0x0bac, $AX1.H
07d1 00c0 0e40 lr $AR0, @0x0e40
07d3 0081 0b8d lri $AR1, #0x0b8d
07d5 00c2 0e0b lr $AR2, @0x0e0b
07d7 1c62 mrr $AR3, $AR2
07d8 00c4 0e41 lr $IX0, @0x0e41
07da 00c5 0e0c lr $IX1, @0x0e0c
07dc 02bf 80e7 call 0x80e7
07de 00f8 0baa sr @0x0baa, $AX0.L
07e0 00fb 0bad sr @0x0bad, $AX1.H
07e2 00c0 0e40 lr $AR0, @0x0e40
07e4 0081 0b91 lri $AR1, #0x0b91
07e6 00c2 0e0e lr $AR2, @0x0e0e
07e8 1c62 mrr $AR3, $AR2
07e9 00c4 0e41 lr $IX0, @0x0e41
07eb 00c5 0e0f lr $IX1, @0x0e0f
07ed 02bf 80e7 call 0x80e7
07ef 00f8 0bab sr @0x0bab, $AX0.L
07f1 00fb 0bae sr @0x0bae, $AX1.H
07f3 02df ret
}
void Unk() {
07f4 00c0 0e40 lr $AR0, @0x0e40
07f6 0081 0b89 lri $AR1, #0x0b89
07f8 00c2 0e08 lr $AR2, @0x0e08
07fa 1c62 mrr $AR3, $AR2
07fb 00c4 0e41 lr $IX0, @0x0e41
07fd 00c5 0e09 lr $IX1, @0x0e09
07ff 02bf 80e7 call 0x80e7
0801 00f8 0ba9 sr @0x0ba9, $AX0.L
0803 00fb 0bac sr @0x0bac, $AX1.H
0805 00c0 0e43 lr $AR0, @0x0e43
0807 0081 0b97 lri $AR1, #0x0b97
0809 00c2 0e0a lr $AR2, @0x0e0a
080b 1c62 mrr $AR3, $AR2
080c 02bf 81f9 call 0x81f9
080e 00f8 0baf sr @0x0baf, $AX0.L
0810 02df ret
}
void Unk() {
0811 00c0 0e40 lr $AR0, @0x0e40
0813 0081 0b89 lri $AR1, #0x0b89
0815 00c2 0e08 lr $AR2, @0x0e08
0817 1c62 mrr $AR3, $AR2
0818 00c4 0e41 lr $IX0, @0x0e41
081a 00c5 0e09 lr $IX1, @0x0e09
081c 02bf 80e7 call 0x80e7
081e 00f8 0ba9 sr @0x0ba9, $AX0.L
0820 00fb 0bac sr @0x0bac, $AX1.H
0822 00c0 0e40 lr $AR0, @0x0e40
0824 0081 0b8d lri $AR1, #0x0b8d
0826 00c2 0e0b lr $AR2, @0x0e0b
0828 1c62 mrr $AR3, $AR2
0829 00c4 0e41 lr $IX0, @0x0e41
082b 00c5 0e0c lr $IX1, @0x0e0c
082d 02bf 80e7 call 0x80e7
082f 00f8 0baa sr @0x0baa, $AX0.L
0831 00fb 0bad sr @0x0bad, $AX1.H
0833 00c0 0e43 lr $AR0, @0x0e43
0835 0081 0b97 lri $AR1, #0x0b97
0837 00c2 0e0a lr $AR2, @0x0e0a
0839 1c62 mrr $AR3, $AR2
083a 1c80 mrr $IX0, $AR0
083b 00c5 0e0d lr $IX1, @0x0e0d
083d 02bf 80e7 call 0x80e7
083f 00f8 0baf sr @0x0baf, $AX0.L
0841 00fb 0bb0 sr @0x0bb0, $AX1.H
0843 02df ret
}
void Unk() {
0844 00c0 0e40 lr $AR0, @0x0e40
0846 0081 0b89 lri $AR1, #0x0b89
0848 00c2 0e08 lr $AR2, @0x0e08
084a 1c62 mrr $AR3, $AR2
084b 00c4 0e41 lr $IX0, @0x0e41
084d 00c5 0e09 lr $IX1, @0x0e09
084f 02bf 80e7 call 0x80e7
0851 00f8 0ba9 sr @0x0ba9, $AX0.L
0853 00fb 0bac sr @0x0bac, $AX1.H
0855 00c0 0e40 lr $AR0, @0x0e40
0857 0081 0b91 lri $AR1, #0x0b91
0859 00c2 0e0e lr $AR2, @0x0e0e
085b 1c62 mrr $AR3, $AR2
085c 00c4 0e41 lr $IX0, @0x0e41
085e 00c5 0e0f lr $IX1, @0x0e0f
0860 02bf 80e7 call 0x80e7
0862 00f8 0bab sr @0x0bab, $AX0.L
0864 00fb 0bae sr @0x0bae, $AX1.H
0866 00c0 0e43 lr $AR0, @0x0e43
0868 0081 0b95 lri $AR1, #0x0b95
086a 00c2 0e10 lr $AR2, @0x0e10
086c 1c62 mrr $AR3, $AR2
086d 1c80 mrr $IX0, $AR0
086e 00c5 0e0a lr $IX1, @0x0e0a
0870 02bf 80e7 call 0x80e7
0872 00f8 0bb1 sr @0x0bb1, $AX0.L
0874 00fb 0baf sr @0x0baf, $AX1.H
0876 02df ret
}
void Unk() {
0877 00c0 0e40 lr $AR0, @0x0e40
0879 0081 0b89 lri $AR1, #0x0b89
087b 00c2 0e08 lr $AR2, @0x0e08
087d 1c62 mrr $AR3, $AR2
087e 00c4 0e41 lr $IX0, @0x0e41
0880 00c5 0e09 lr $IX1, @0x0e09
0882 02bf 80e7 call 0x80e7
0884 00f8 0ba9 sr @0x0ba9, $AX0.L
0886 00fb 0bac sr @0x0bac, $AX1.H
0888 00c0 0e40 lr $AR0, @0x0e40
088a 0081 0b8d lri $AR1, #0x0b8d
088c 00c2 0e0b lr $AR2, @0x0e0b
088e 1c62 mrr $AR3, $AR2
088f 00c4 0e41 lr $IX0, @0x0e41
0891 00c5 0e0c lr $IX1, @0x0e0c
0893 02bf 80e7 call 0x80e7
0895 00f8 0baa sr @0x0baa, $AX0.L
0897 00fb 0bad sr @0x0bad, $AX1.H
0899 00c0 0e40 lr $AR0, @0x0e40
089b 0081 0b91 lri $AR1, #0x0b91
089d 00c2 0e0e lr $AR2, @0x0e0e
089f 1c62 mrr $AR3, $AR2
08a0 00c4 0e41 lr $IX0, @0x0e41
08a2 00c5 0e0f lr $IX1, @0x0e0f
08a4 02bf 80e7 call 0x80e7
08a6 00f8 0bab sr @0x0bab, $AX0.L
08a8 00fb 0bae sr @0x0bae, $AX1.H
08aa 00c0 0e43 lr $AR0, @0x0e43
08ac 0081 0b97 lri $AR1, #0x0b97
08ae 00c2 0e0a lr $AR2, @0x0e0a
08b0 1c62 mrr $AR3, $AR2
08b1 1c80 mrr $IX0, $AR0
08b2 00c5 0e0d lr $IX1, @0x0e0d
08b4 02bf 80e7 call 0x80e7
08b6 00f8 0baf sr @0x0baf, $AX0.L
08b8 00fb 0bb0 sr @0x0bb0, $AX1.H
08ba 00c0 0e43 lr $AR0, @0x0e43
08bc 0081 0b95 lri $AR1, #0x0b95
08be 00c2 0e10 lr $AR2, @0x0e10
08c0 1c62 mrr $AR3, $AR2
08c1 02bf 81f9 call 0x81f9
08c3 00f8 0bb1 sr @0x0bb1, $AX0.L
08c5 02df ret
}
void Unk() {
08c6 00c0 0e40 lr $AR0, @0x0e40
08c8 0081 0b89 lri $AR1, #0x0b89
08ca 00c2 0e08 lr $AR2, @0x0e08
08cc 0083 0e44 lri $AR3, #0x0e44
08ce 00c4 0e41 lr $IX0, @0x0e41
08d0 00c5 0e09 lr $IX1, @0x0e09
08d2 02bf 8282 call 0x8282
08d4 00f8 0ba9 sr @0x0ba9, $AX0.L
08d6 00fb 0bac sr @0x0bac, $AX1.H
08d8 02df ret
}
void Unk() {
08d9 00c0 0e40 lr $AR0, @0x0e40
08db 0081 0b89 lri $AR1, #0x0b89
08dd 00c2 0e08 lr $AR2, @0x0e08
08df 0083 0e44 lri $AR3, #0x0e44
08e1 00c4 0e41 lr $IX0, @0x0e41
08e3 00c5 0e09 lr $IX1, @0x0e09
08e5 02bf 8282 call 0x8282
08e7 00f8 0ba9 sr @0x0ba9, $AX0.L
08e9 00fb 0bac sr @0x0bac, $AX1.H
08eb 00c0 0e40 lr $AR0, @0x0e40
08ed 0081 0b8d lri $AR1, #0x0b8d
08ef 00c2 0e0b lr $AR2, @0x0e0b
08f1 0083 0e44 lri $AR3, #0x0e44
08f3 00c4 0e41 lr $IX0, @0x0e41
08f5 00c5 0e0c lr $IX1, @0x0e0c
08f7 02bf 8282 call 0x8282
08f9 00f8 0baa sr @0x0baa, $AX0.L
08fb 00fb 0bad sr @0x0bad, $AX1.H
08fd 02df ret
}
void Unk() {
08fe 00c0 0e40 lr $AR0, @0x0e40
0900 0081 0b89 lri $AR1, #0x0b89
0902 00c2 0e08 lr $AR2, @0x0e08
0904 0083 0e44 lri $AR3, #0x0e44
0906 00c4 0e41 lr $IX0, @0x0e41
0908 00c5 0e09 lr $IX1, @0x0e09
090a 02bf 8282 call 0x8282
090c 00f8 0ba9 sr @0x0ba9, $AX0.L
090e 00fb 0bac sr @0x0bac, $AX1.H
0910 00c0 0e40 lr $AR0, @0x0e40
0912 0081 0b91 lri $AR1, #0x0b91
0914 00c2 0e0e lr $AR2, @0x0e0e
0916 0083 0e44 lri $AR3, #0x0e44
0918 00c4 0e41 lr $IX0, @0x0e41
091a 00c5 0e0f lr $IX1, @0x0e0f
091c 02bf 8282 call 0x8282
091e 00f8 0bab sr @0x0bab, $AX0.L
0920 00fb 0bae sr @0x0bae, $AX1.H
0922 02df ret
}
void Unk() {
0923 00c0 0e40 lr $AR0, @0x0e40
0925 0081 0b89 lri $AR1, #0x0b89
0927 00c2 0e08 lr $AR2, @0x0e08
0929 0083 0e44 lri $AR3, #0x0e44
092b 00c4 0e41 lr $IX0, @0x0e41
092d 00c5 0e09 lr $IX1, @0x0e09
092f 02bf 8282 call 0x8282
0931 00f8 0ba9 sr @0x0ba9, $AX0.L
0933 00fb 0bac sr @0x0bac, $AX1.H
0935 00c0 0e40 lr $AR0, @0x0e40
0937 0081 0b8d lri $AR1, #0x0b8d
0939 00c2 0e0b lr $AR2, @0x0e0b
093b 0083 0e44 lri $AR3, #0x0e44
093d 00c4 0e41 lr $IX0, @0x0e41
093f 00c5 0e0c lr $IX1, @0x0e0c
0941 02bf 8282 call 0x8282
0943 00f8 0baa sr @0x0baa, $AX0.L
0945 00fb 0bad sr @0x0bad, $AX1.H
0947 00c0 0e40 lr $AR0, @0x0e40
0949 0081 0b91 lri $AR1, #0x0b91
094b 00c2 0e0e lr $AR2, @0x0e0e
094d 0083 0e44 lri $AR3, #0x0e44
094f 00c4 0e41 lr $IX0, @0x0e41
0951 00c5 0e0f lr $IX1, @0x0e0f
0953 02bf 8282 call 0x8282
0955 00f8 0bab sr @0x0bab, $AX0.L
0957 00fb 0bae sr @0x0bae, $AX1.H
0959 02df ret
}
void Unk() {
095a 00c0 0e40 lr $AR0, @0x0e40
095c 0081 0b89 lri $AR1, #0x0b89
095e 00c2 0e08 lr $AR2, @0x0e08
0960 0083 0e44 lri $AR3, #0x0e44
0962 00c4 0e41 lr $IX0, @0x0e41
0964 00c5 0e09 lr $IX1, @0x0e09
0966 02bf 8282 call 0x8282
0968 00f8 0ba9 sr @0x0ba9, $AX0.L
096a 00fb 0bac sr @0x0bac, $AX1.H
096c 00c0 0e43 lr $AR0, @0x0e43
096e 0081 0b97 lri $AR1, #0x0b97
0970 00c2 0e0a lr $AR2, @0x0e0a
0972 0083 0e44 lri $AR3, #0x0e44
0974 02bf 845d call 0x845d
0976 00f8 0baf sr @0x0baf, $AX0.L
0978 02df ret
}
void Unk() {
0979 00c0 0e40 lr $AR0, @0x0e40
097b 0081 0b89 lri $AR1, #0x0b89
097d 00c2 0e08 lr $AR2, @0x0e08
097f 0083 0e44 lri $AR3, #0x0e44
0981 00c4 0e41 lr $IX0, @0x0e41
0983 00c5 0e09 lr $IX1, @0x0e09
0985 02bf 8282 call 0x8282
0987 00f8 0ba9 sr @0x0ba9, $AX0.L
0989 00fb 0bac sr @0x0bac, $AX1.H
098b 00c0 0e40 lr $AR0, @0x0e40
098d 0081 0b8d lri $AR1, #0x0b8d
098f 00c2 0e0b lr $AR2, @0x0e0b
0991 0083 0e44 lri $AR3, #0x0e44
0993 00c4 0e41 lr $IX0, @0x0e41
0995 00c5 0e0c lr $IX1, @0x0e0c
0997 02bf 8282 call 0x8282
0999 00f8 0baa sr @0x0baa, $AX0.L
099b 00fb 0bad sr @0x0bad, $AX1.H
099d 00c0 0e43 lr $AR0, @0x0e43
099f 0081 0b97 lri $AR1, #0x0b97
09a1 00c2 0e0a lr $AR2, @0x0e0a
09a3 0083 0e44 lri $AR3, #0x0e44
09a5 1c80 mrr $IX0, $AR0
09a6 00c5 0e0d lr $IX1, @0x0e0d
09a8 02bf 8282 call 0x8282
09aa 00f8 0baf sr @0x0baf, $AX0.L
09ac 00fb 0bb0 sr @0x0bb0, $AX1.H
09ae 02df ret
}
void Unk() {
09af 00c0 0e40 lr $AR0, @0x0e40
09b1 0081 0b89 lri $AR1, #0x0b89
09b3 00c2 0e08 lr $AR2, @0x0e08
09b5 0083 0e44 lri $AR3, #0x0e44
09b7 00c4 0e41 lr $IX0, @0x0e41
09b9 00c5 0e09 lr $IX1, @0x0e09
09bb 02bf 8282 call 0x8282
09bd 00f8 0ba9 sr @0x0ba9, $AX0.L
09bf 00fb 0bac sr @0x0bac, $AX1.H
09c1 00c0 0e40 lr $AR0, @0x0e40
09c3 0081 0b91 lri $AR1, #0x0b91
09c5 00c2 0e0e lr $AR2, @0x0e0e
09c7 0083 0e44 lri $AR3, #0x0e44
09c9 00c4 0e41 lr $IX0, @0x0e41
09cb 00c5 0e0f lr $IX1, @0x0e0f
09cd 02bf 8282 call 0x8282
09cf 00f8 0bab sr @0x0bab, $AX0.L
09d1 00fb 0bae sr @0x0bae, $AX1.H
09d3 00c0 0e43 lr $AR0, @0x0e43
09d5 0081 0b95 lri $AR1, #0x0b95
09d7 00c2 0e10 lr $AR2, @0x0e10
09d9 0083 0e44 lri $AR3, #0x0e44
09db 1c80 mrr $IX0, $AR0
09dc 00c5 0e0a lr $IX1, @0x0e0a
09de 02bf 8282 call 0x8282
09e0 00f8 0bb1 sr @0x0bb1, $AX0.L
09e2 00fb 0baf sr @0x0baf, $AX1.H
09e4 02df ret
}
void Unk() {
09e5 00c0 0e40 lr $AR0, @0x0e40
09e7 0081 0b89 lri $AR1, #0x0b89
09e9 00c2 0e08 lr $AR2, @0x0e08
09eb 0083 0e44 lri $AR3, #0x0e44
09ed 00c4 0e41 lr $IX0, @0x0e41
09ef 00c5 0e09 lr $IX1, @0x0e09
09f1 02bf 8282 call 0x8282
09f3 00f8 0ba9 sr @0x0ba9, $AX0.L
09f5 00fb 0bac sr @0x0bac, $AX1.H
09f7 00c0 0e40 lr $AR0, @0x0e40
09f9 0081 0b8d lri $AR1, #0x0b8d
09fb 00c2 0e0b lr $AR2, @0x0e0b
09fd 0083 0e44 lri $AR3, #0x0e44
09ff 00c0 0e41 lr $AR0, @0x0e41
0a01 00c5 0e0c lr $IX1, @0x0e0c
0a03 02bf 8282 call 0x8282
0a05 00f8 0baa sr @0x0baa, $AX0.L
0a07 00fb 0bad sr @0x0bad, $AX1.H
0a09 00c0 0e40 lr $AR0, @0x0e40
0a0b 0081 0b91 lri $AR1, #0x0b91
0a0d 00c2 0e0e lr $AR2, @0x0e0e
0a0f 0083 0e44 lri $AR3, #0x0e44
0a11 00c4 0e41 lr $IX0, @0x0e41
0a13 00c5 0e0f lr $IX1, @0x0e0f
0a15 02bf 8282 call 0x8282
0a17 00f8 0bab sr @0x0bab, $AX0.L
0a19 00fb 0bae sr @0x0bae, $AX1.H
0a1b 00c0 0e43 lr $AR0, @0x0e43
0a1d 0081 0b97 lri $AR1, #0x0b97
0a1f 00c2 0e0a lr $AR2, @0x0e0a
0a21 0083 0e44 lri $AR3, #0x0e44
0a23 1c80 mrr $IX0, $AR0
0a24 00c5 0e0d lr $IX1, @0x0e0d
0a26 02bf 8282 call 0x8282
0a28 00f8 0baf sr @0x0baf, $AX0.L
0a2a 00fb 0bb0 sr @0x0bb0, $AX1.H
0a2c 00c0 0e43 lr $AR0, @0x0e43
0a2e 0081 0b95 lri $AR1, #0x0b95
0a30 00c2 0e10 lr $AR2, @0x0e10
0a32 0083 0e44 lri $AR3, #0x0e44
0a34 02bf 845d call 0x845d
0a36 00f8 0bb1 sr @0x0bb1, $AX0.L
0a38 02df ret
}
void Unk() {
0a39 00c0 0e40 lr $AR0, @0x0e40
0a3b 0081 0b89 lri $AR1, #0x0b89
0a3d 00c2 0e08 lr $AR2, @0x0e08
0a3f 1c62 mrr $AR3, $AR2
0a40 00c4 0e41 lr $IX0, @0x0e41
0a42 00c5 0e09 lr $IX1, @0x0e09
0a44 02bf 80e7 call 0x80e7
0a46 00f8 0ba9 sr @0x0ba9, $AX0.L
0a48 00fb 0bac sr @0x0bac, $AX1.H
0a4a 00c0 0e43 lr $AR0, @0x0e43
0a4c 0081 0b91 lri $AR1, #0x0b91
0a4e 00c2 0e0e lr $AR2, @0x0e0e
0a50 1c62 mrr $AR3, $AR2
0a51 1c80 mrr $IX0, $AR0
0a52 00c5 0e0f lr $IX1, @0x0e0f
0a54 02bf 80e7 call 0x80e7
0a56 00f8 0bab sr @0x0bab, $AX0.L
0a58 00fb 0bae sr @0x0bae, $AX1.H
0a5a 02df ret
}
void Unk() {
0a5b 00c0 0e40 lr $AR0, @0x0e40
0a5d 0081 0b89 lri $AR1, #0x0b89
0a5f 00c2 0e08 lr $AR2, @0x0e08
0a61 1c62 mrr $AR3, $AR2
0a62 00c4 0e41 lr $IX0, @0x0e41
0a64 00c5 0e09 lr $IX1, @0x0e09
0a66 02bf 80e7 call 0x80e7
0a68 00f8 0ba9 sr @0x0ba9, $AX0.L
0a6a 00fb 0bac sr @0x0bac, $AX1.H
0a6c 00c0 0e43 lr $AR0, @0x0e43
0a6e 0081 0b91 lri $AR1, #0x0b91
0a70 00c2 0e0e lr $AR2, @0x0e0e
0a72 1c62 mrr $AR3, $AR2
0a73 1c80 mrr $IX0, $AR0
0a74 00c5 0e0f lr $IX1, @0x0e0f
0a76 02bf 80e7 call 0x80e7
0a78 00f8 0bab sr @0x0bab, $AX0.L
0a7a 00fb 0bae sr @0x0bae, $AX1.H
0a7c 00c0 0e40 lr $AR0, @0x0e40
0a7e 0081 0b8d lri $AR1, #0x0b8d
0a80 00c2 0e0b lr $AR2, @0x0e0b
0a82 1c62 mrr $AR3, $AR2
0a83 00c4 0e41 lr $IX0, @0x0e41
0a85 00c5 0e0c lr $IX1, @0x0e0c
0a87 02bf 80e7 call 0x80e7
0a89 00f8 0baa sr @0x0baa, $AX0.L
0a8b 00fb 0bad sr @0x0bad, $AX1.H
0a8d 00c0 0e43 lr $AR0, @0x0e43
0a8f 0081 0b99 lri $AR1, #0x0b99
0a91 00c2 0e0d lr $AR2, @0x0e0d
0a93 1c62 mrr $AR3, $AR2
0a94 02bf 81f9 call 0x81f9
0a96 00f8 0bb0 sr @0x0bb0, $AX0.L
0a98 02df ret
}
void Unk() {
0a99 00c0 0e40 lr $AR0, @0x0e40
0a9b 0081 0b89 lri $AR1, #0x0b89
0a9d 00c2 0e08 lr $AR2, @0x0e08
0a9f 0083 0e44 lri $AR3, #0x0e44
0aa1 00c4 0e41 lr $IX0, @0x0e41
0aa3 00c5 0e09 lr $IX1, @0x0e09
0aa5 02bf 8282 call 0x8282
0aa7 00f8 0ba9 sr @0x0ba9, $AX0.L
0aa9 00fb 0bac sr @0x0bac, $AX1.H
0aab 00c0 0e43 lr $AR0, @0x0e43
0aad 0081 0b91 lri $AR1, #0x0b91
0aaf 00c2 0e0e lr $AR2, @0x0e0e
0ab1 0083 0e44 lri $AR3, #0x0e44
0ab3 1c80 mrr $IX0, $AR0
0ab4 00c5 0e0f lr $IX1, @0x0e0f
0ab6 02bf 8282 call 0x8282
0ab8 00f8 0bab sr @0x0bab, $AX0.L
0aba 00fb 0bae sr @0x0bae, $AX1.H
0abc 02df ret
}
void Unk() {
0abd 00c0 0e40 lr $AR0, @0x0e40
0abf 0081 0b89 lri $AR1, #0x0b89
0ac1 00c2 0e08 lr $AR2, @0x0e08
0ac3 0083 0e44 lri $AR3, #0x0e44
0ac5 00c4 0e41 lr $IX0, @0x0e41
0ac7 00c5 0e09 lr $IX1, @0x0e09
0ac9 02bf 8282 call 0x8282
0acb 00f8 0ba9 sr @0x0ba9, $AX0.L
0acd 00fb 0bac sr @0x0bac, $AX1.H
0acf 00c0 0e43 lr $AR0, @0x0e43
0ad1 0081 0b91 lri $AR1, #0x0b91
0ad3 00c2 0e0e lr $AR2, @0x0e0e
0ad5 0083 0e44 lri $AR3, #0x0e44
0ad7 1c80 mrr $IX0, $AR0
0ad8 00c5 0e0f lr $IX1, @0x0e0f
0ada 02bf 8282 call 0x8282
0adc 00f8 0bab sr @0x0bab, $AX0.L
0ade 00fb 0bae sr @0x0bae, $AX1.H
0ae0 00c0 0e40 lr $AR0, @0x0e40
0ae2 0081 0b8d lri $AR1, #0x0b8d
0ae4 00c2 0e0b lr $AR2, @0x0e0b
0ae6 0083 0e44 lri $AR3, #0x0e44
0ae8 00c4 0e41 lr $IX0, @0x0e41
0aea 00c5 0e0c lr $IX1, @0x0e0c
0aec 02bf 8282 call 0x8282
0aee 00f8 0baa sr @0x0baa, $AX0.L
0af0 00fb 0bad sr @0x0bad, $AX1.H
0af2 00c0 0e43 lr $AR0, @0x0e43
0af4 0081 0b99 lri $AR1, #0x0b99
0af6 00c2 0e0d lr $AR2, @0x0e0d
0af8 0083 0e44 lri $AR3, #0x0e44
0afa 02bf 845d call 0x845d
0afc 00f8 0bb0 sr @0x0bb0, $AX0.L
0afe 02df ret
}
# Jump table for main commands
0aff 0082 // Jump 0
0b00 013e // Jump 1
0b01 01bc // Jump 2
0b02 0248 // Jump 3
0b03 0413 // Jump 4
0b04 0427 // Jump 5
0b05 0165 // Jump 6
0b06 0574 // Jump 7
0b07 0b37 // Jump 8
0b08 015f // Jump 9
0b09 0478 // Jump a
0b0a 0474 // Jump b
0b0b 0476 // Jump c
0b0c 01a9 // Jump d
0b0d 043b // Jump e
0b0e 047a // Jump f Task_Yield()
0b0f 0bb1 // Jump 10
0b10 0175 // Jump 11
# LUT for pb.mixerCtrl
0b11 0768 // Jump3 0
0b12 077a // Jump3 1
0b13 079d // Jump3 2
0b14 07c0 // Jump3 3
0b15 07f4 // Jump3 4
0b16 0811 // Jump3 5
0b17 0844 // Jump3 6
0b18 0877 // Jump3 7
0b19 08c6 // Jump3 8
0b1a 08d9 // Jump3 9
0b1b 08fe // Jump3 a
0b1c 0923 // Jump3 b
0b1d 095a // Jump3 c
0b1e 0979 // Jump3 d
0b1f 09af // Jump3 e
0b20 09e5 // Jump3 f
0b21 0a39 // Jump3 10
0b22 0a5b // Jump3 11
0b23 0768 // Jump3 12
0b24 0768 // Jump3 13
0b25 0768 // Jump3 14
0b26 0768 // Jump3 15
0b27 0768 // Jump3 16
0b28 0768 // Jump3 17
0b29 0a99 // Jump3 18
0b2a 0abd // Jump3 19
0b2b 0768 // Jump3 1a
0b2c 0768 // Jump3 1b
0b2d 0768 // Jump3 1c
0b2e 0768 // Jump3 1d
0b2f 0768 // Jump3 1e
0b30 0768 // Jump3 1f
# LUT for pb.srcSelect
0b31 05a8 // Jump4 0
0b32 065d // Jump4 1
0b33 0707 // Jump4 2
# LUT for pb.coefSelect tables (in drom)
0b34 1000
0b35 1200
0b36 1400
# End of noise - back to code.
void Cmd_8() {
0b37 8e00 set16
0b38 8100 clr $ACC0
0b39 8970 clr'l $ACC1 : $AC0.M, @$AR0
0b3a 191c lrri $AC0.L, @$AR0
0b3b 2ece srs @DSMAH, $AC0.M
0b3c 2ccf srs @DSMAL, $AC0.L
0b3d 16cd 0e80 si @DSPA, #0x0e80
0b3f 16c9 0000 si @DSCR, #0x0000
0b41 16cb 0100 si @DSBL, #0x0100
0b43 1f7e mrr $AX1.H, $AC0.M
0b44 1f3c mrr $AX1.L, $AC0.L
0b45 8100 clr $ACC0
0b46 26c9 lrs $AC0.M, @DSCR
0b47 02a0 0004 andf $AC0.M, #0x0004
0b49 029c 0b46 jlnz 0x0b46
0b4b 191e lrri $AC0.M, @$AR0
0b4c 191c lrri $AC0.L, @$AR0
0b4d 2ece srs @DSMAH, $AC0.M
0b4e 2ccf srs @DSMAL, $AC0.L
0b4f 16cd 0280 si @DSPA, #0x0280
0b51 16c9 0000 si @DSCR, #0x0000
0b53 16cb 0280 si @DSBL, #0x0280
0b55 1c80 mrr $IX0, $AR0
0b56 0080 0280 lri $AR0, #0x0280
0b58 00c1 0e1b lr $AR1, @0x0e1b
0b5a 0085 0000 lri $IX1, #0x0000
0b5c 0089 007f lri $WR1, #0x007f
0b5e 0082 0f00 lri $AR2, #0x0f00
0b60 0083 16b4 lri $AR3, #0x16b4
0b62 1ce3 mrr $IX3, $AR3
0b63 8100 clr $ACC0
0b64 26c9 lrs $AC0.M, @DSCR
0b65 02a0 0004 andf $AC0.M, #0x0004
0b67 029c 0b64 jlnz 0x0b64
0b69 8f00 set40
0b6a 8a78 m2'l : $AC1.M, @$AR0
0b6b 8c68 clr15'l : $AC1.L, @$AR0
0b6c f100 lsl16 $ACC1
0b6d 1a3f srr @$AR1, $AC1.M
0b6e 84e3 clrp'ld : $AX0.H, $AX1.L, @$AR3
0b6f 107e loopi #0x7e
0b70 f2e3 madd'ld $AX0.L, $AX0.H : $AX0.H, $AX1.L, @$AR3
0b71 f2e7 madd'ldn $AX0.L, $AX0.H : $AX0.H, $AX1.L, @$AR3
0b72 f278 madd'l $AX0.L, $AX0.H : $AC1.M, @$AR0
0b73 6e68 movp'l $ACC0 : $AC1.L, @$AR0
0b74 f132 lsl16's $ACC1 : @$AR2, $AC0.M
0b75 1a3f srr @$AR1, $AC1.M
0b76 119e 0b80 bloopi #0x9e, 0x0b80
0b78 1c67 mrr $AR3, $IX3
0b79 84e3 clrp'ld : $AX0.H, $AX1.L, @$AR3
0b7a 107e loopi #0x7e
0b7b f2e3 madd'ld $AX0.L, $AX0.H : $AX0.H, $AX1.L, @$AR3
0b7c f2e7 madd'ldn $AX0.L, $AX0.H : $AX0.H, $AX1.L, @$AR3
0b7d f278 madd'l $AX0.L, $AX0.H : $AC1.M, @$AR0
0b7e 6e68 movp'l $ACC0 : $AC1.L, @$AR0
0b7f f132 lsl16's $ACC1 : @$AR2, $AC0.M
0b80 1a3f srr @$AR1, $AC1.M
0b81 1c67 mrr $AR3, $IX3
0b82 84e3 clrp'ld : $AX0.H, $AX1.L, @$AR3
0b83 107e loopi #0x7e
0b84 f2e3 madd'ld $AX0.L, $AX0.H : $AX0.H, $AX1.L, @$AR3
0b85 f2e7 madd'ldn $AX0.L, $AX0.H : $AX0.H, $AX1.L, @$AR3
0b86 f200 madd $AX0.L, $AX0.H
0b87 6e00 movp $ACC0
0b88 1b5e srri @$AR2, $AC0.M
0b89 00e1 0e1b sr @0x0e1b, $AR1
0b8b 0080 0280 lri $AR0, #0x0280
0b8d 0083 0f00 lri $AR3, #0x0f00
0b8f 0081 0000 lri $AR1, #0x0000
0b91 0082 0140 lri $AR2, #0x0140
0b93 0089 ffff lri $WR1, #0xffff
0b95 8900 clr $ACC1
0b96 8100 clr $ACC0
0b97 8f00 set40
0b98 11a0 0ba0 bloopi #0xa0, 0x0ba0
0b9a 197f lrri $AC1.M, @$AR3
0b9b 9930 asr16's $ACC1 : @$AR0, $AC0.M
0b9c 1b1e srri @$AR0, $AC0.M
0b9d 1b3f srri @$AR1, $AC1.M
0b9e 7d29 neg's $ACC1 : @$AR1, $AC1.L
0b9f 1b5f srri @$AR2, $AC1.M
0ba0 1b5d srri @$AR2, $AC1.L
0ba1 8e00 set16
0ba2 1fdb mrr $AC0.M, $AX1.H
0ba3 1f99 mrr $AC0.L, $AX1.L
0ba4 2ece srs @DSMAH, $AC0.M
0ba5 2ccf srs @DSMAL, $AC0.L
0ba6 16cd 0e80 si @DSPA, #0x0e80
0ba8 16c9 0001 si @DSCR, #0x0001
0baa 16cb 0100 si @DSBL, #0x0100
// 0bac 02bf 055c call 0x055c
WaitDMA();
0bae 1c04 mrr $AR0, $IX0
// 0baf 029f 0068 jmp 0x0068
goto DoNextCommand;
}
void Cmd_10() {
0bb1 8e00 set16
0bb2 8100 clr $ACC0
0bb3 8970 clr'l $ACC1 : $AC0.M, @$AR0
0bb4 191c lrri $AC0.L, @$AR0
0bb5 2ece srs @DSMAH, $AC0.M
0bb6 2ccf srs @DSMAL, $AC0.L
0bb7 16cd 07c0 si @DSPA, #0x07c0
0bb9 16c9 0001 si @DSCR, #0x0001
0bbb 16cb 0500 si @DSBL, #0x0500
// 0bbd 02bf 055c call 0x055c
WaitDMA();
0bbf 8100 clr $ACC0
0bc0 8970 clr'l $ACC1 : $AC0.M, @$AR0
0bc1 191c lrri $AC0.L, @$AR0
0bc2 2ece srs @DSMAH, $AC0.M
0bc3 2ccf srs @DSMAL, $AC0.L
0bc4 16cd 07c0 si @DSPA, #0x07c0
0bc6 16c9 0000 si @DSCR, #0x0000
0bc8 8900 clr $ACC1
0bc9 0d20 lris $AC1.L, #0x20
0bca 2dcb srs @DSBL, $AC1.L
0bcb 4c00 add $ACC0, $ACC1
0bcc 1c80 mrr $IX0, $AR0
0bcd 0080 07c0 lri $AR0, #0x07c0
0bcf 0083 0000 lri $AR3, #0x0000
0bd1 1c43 mrr $AR2, $AR3
0bd2 0a00 lris $AX0.H, #0x00
0bd3 27c9 lrs $AC1.M, @DSCR
0bd4 03a0 0004 andf $AC1.M, #0x0004
0bd6 029c 0bd3 jlnz 0x0bd3
0bd8 2ece srs @DSMAH, $AC0.M
0bd9 2ccf srs @DSMAL, $AC0.L
0bda 16cd 07d0 si @DSPA, #0x07d0
0bdc 16c9 0000 si @DSCR, #0x0000
0bde 16cb 04e0 si @DSBL, #0x04e0
0be0 8f00 set40
0be1 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0be2 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0be3 6a00 movax $ACC0, $AX1
0be4 4800 addax $ACC0, $AX0
0be5 114f 0bee bloopi #0x4f, 0x0bee
0be7 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0be8 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0be9 6b32 movax's $ACC1, $AX1.L : @$AR2, $AC0.M
0bea 4922 addax's $ACC1, $AX0.L : @$AR2, $AC0.L
0beb 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0bec 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0bed 6a3a movax's $ACC0, $AX1.L : @$AR2, $AC1.M
0bee 482a addax's $ACC0, $AX0.L : @$AR2, $AC1.L
0bef 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0bf0 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0bf1 6b32 movax's $ACC1, $AX1.L : @$AR2, $AC0.M
0bf2 4922 addax's $ACC1, $AX0.L : @$AR2, $AC0.L
0bf3 1b5f srri @$AR2, $AC1.M
0bf4 1b5d srri @$AR2, $AC1.L
0bf5 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0bf6 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0bf7 6800 movax $ACC0, $AX0
0bf8 7c00 neg $ACC0
0bf9 4a00 addax $ACC0, $AX1
0bfa 114f 0c05 bloopi #0x4f, 0x0c05
0bfc 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0bfd 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0bfe 6932 movax's $ACC1, $AX0.L : @$AR2, $AC0.M
0bff 7d00 neg $ACC1
0c00 4b22 addax's $ACC1, $AX1.L : @$AR2, $AC0.L
0c01 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0c02 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0c03 683a movax's $ACC0, $AX0.L : @$AR2, $AC1.M
0c04 7c00 neg $ACC0
0c05 4a2a addax's $ACC0, $AX1.L : @$AR2, $AC1.L
0c06 80f0 nx'ld : $AX0.H, $AX1.H, @$AR0
0c07 80c0 nx'ld : $AX0.L, $AX1.L, @$AR0
0c08 6932 movax's $ACC1, $AX0.L : @$AR2, $AC0.M
0c09 7d00 neg $ACC1
0c0a 4b22 addax's $ACC1, $AX1.L : @$AR2, $AC0.L
0c0b 1b5f srri @$AR2, $AC1.M
0c0c 1b5d srri @$AR2, $AC1.L
0c0d 1c04 mrr $AR0, $IX0
// 0c0e 029f 0068 jmp 0x0068
goto DoNextCommand;
}
# Begin interrupt handlers
// Sends mail with value on top of callstack and rti's
void ResetAndStackUOFlow_Handler() {
0c10 8e00 set16
// 0c11 16fc ecc0 si @DMBH, #0xecc0
// 0c13 1fcc mrr $AC0.M, $ST0
// 0c14 1d9e mrr $ST0, $AC0.M
// 0c15 2efd srs @DMBL, $AC0.M
DMB = 0xecc00000 | $ST0
// 0c16 26fc lrs $AC0.M, @DMBH
// 0c17 02a0 8000 andf $AC0.M, #0x8000
// 0c19 029c 0c16 jlnz 0x0c16
while (@DMBH & 0x8000 == 0);
// 0c1b 0000 nop
// 0c1c 0000 nop
// 0c1d 0000 nop
// 0c1e 02ff rti
return;
}
// Saves/Restores whole ACC0, but only modifies AC0.M. strange
void Int2_Handler() {
0c1f 8e00 set16
// Save ACC0
0c20 00f0 0e17 sr @0x0e17, $AC0.H
0c22 00fe 0e18 sr @0x0e18, $AC0.M
0c24 00fc 0e19 sr @0x0e19, $AC0.L
// 0c26 1fcc mrr $AC0.M, $ST0
// 0c27 1d9e mrr $ST0, $AC0.M
// 0c28 16fc feed si @DMBH, #0xfeed
// 0c2a 2efd srs @DMBL, $AC0.M
DMB = 0xfeed0000 | $ST0
// 0c2b 26fc lrs $AC0.M, @DMBH
// 0c2c 02a0 8000 andf $AC0.M, #0x8000
// 0c2e 029c 0c2b jlnz 0x0c2b
while (@DMBH & 0x8000 == 0);
// Restore ACC0
0c30 00d0 0e17 lr $AC0.H, @0x0e17
0c32 00de 0e18 lr $AC0.M, @0x0e18
0c34 00dc 0e19 lr $AC0.L, @0x0e19
// 0c36 0000 nop
// 0c37 0000 nop
// 0c38 0000 nop
// 0c39 0000 nop
// 0c3a 02ff rti
return;
}
void Int3_Handler() {
0c3b 8e00 set16
// Save AC0.L, AC0.M
0c3c 1dbc mrr $ST1, $AC0.L
0c3d 1dbe mrr $ST1, $AC0.M
// 0c3e 8100 clr $ACC0
// 0c3f 00de 0bb7 lr $AC0.M, @0x0bb7
// 0c41 0601 cmpis $AC0.M, #0x01
// 0c42 0295 0c47 jz 0x0c47
// 0c44 0e00 lris $AC0.M, #0x00
// 0c45 00fe 0b87 sr @0x0b87, $AC0.M
if (*0x0bb7 != 1) { // pb.addr != AXPBADDR_LOOP_ON
*0x0b87 = 0; // pb.state = AX_PB_STATE_STOP
}
// Restore AC0.L, AC0.M
0c47 1fcd mrr $AC0.M, $ST1
0c48 1f8d mrr $AC0.L, $ST1
// 0c49 02ff rti
return;
}
void Int4_Handler() {
// 0c4a 0000 nop
// 0c4b 0000 nop
// 0c4c 0000 nop
// 0c4d 0000 nop
// 0c4e 0000 nop
// 0c4f 02ff rti
return;
}
void Int5_Handler() {
0c50 8e00 set16
// Save AC0.L, AC0.M
0c51 1dbc mrr $ST1, $AC0.L
0c52 1dbe mrr $ST1, $AC0.M
// 0c53 8100 clr $ACC0
// 0c54 00de 0bb7 lr $AC0.M, @0x0bb7
// 0c56 0601 cmpis $AC0.M, #0x01
// 0c57 0295 0c5f jz 0x0c5f
if (*0x0bb7 != 1) // pb.addr != AXPBADDR_LOOP_ON
{
// 0c59 0e00 lris $AC0.M, #0x00
// 0c5a 00fe 0b87 sr @0x0b87, $AC0.M
*0x0b87 = 0; // pb.state = AX_PB_STATE_STOP
// Restore AC0.L, AC0.M
0c5c 1fcd mrr $AC0.M, $ST1
0c5d 1f8d mrr $AC0.L, $ST1
// 0c5e 02ff rti
return;
}
// 0c5f 8100 clr $ACC0
// 0c60 00de 0b88 lr $AC0.M, @0x0b88
// 0c62 0601 cmpis $AC0.M, #0x01
// 0c63 0295 0c71 jz 0x0c71
if (*0x0b88 != 1) { // pb.type != AX_PB_TYPE_STREAM
// 0c65 00de 0bda lr $AC0.M, @0x0bda
// 0c67 2eda srs @scale, $AC0.M
// 0c68 00de 0bdb lr $AC0.M, @0x0bdb
// 0c6a 2edb srs @yn1, $AC0.M
// 0c6b 00de 0bdc lr $AC0.M, @0x0bdc
// 0c6d 2edc srs @yn2, $AC0.M
@scale = pb.adpcmLoop.loop_pred_scale
@yn1 = pb.adpcmLoop.loop_yn1
@yn2 = pb.adpcmLoop.loop_yn2
// Restore AC0.L, AC0.M
0c6e 1fcd mrr $AC0.M, $ST1
0c6f 1f8d mrr $AC0.L, $ST1
// 0c70 02ff rti
return;
} else {
// 0c71 00de 0bda lr $AC0.M, @0x0bda
// 0c73 2eda srs @scale, $AC0.M
// 0c74 26db lrs $AC0.M, @yn1
// 0c75 2edb srs @yn1, $AC0.M
// 0c76 26dc lrs $AC0.M, @yn2
// 0c77 2edc srs @yn2, $AC0.M
@scale = pb.adpcmLoop.loop_pred_scale
// refresh @yn1, @yn2....why?
@yn1 = @yn1
@yn2 = @yn2
// Well helllloooo there, padding
// 0c78 8100 clr $ACC0
// 0c79 00dc 0bdd lr $AC0.L, @0x0bdd
// 0c7b 7600 inc $ACC0
// 0c7c 00fc 0bdd sr @0x0bdd, $AC0.L
// 0c7e 8100 clr $ACC0
pb.pad[0]++
// Restore AC0.L, AC0.M
0c7f 1fcd mrr $AC0.M, $ST1
0c80 1f8d mrr $AC0.L, $ST1
// 0c81 02ff rti
return;
}
}
void Int6_Handler() {
0c82 0000 nop
0c83 0000 nop
0c84 0000 nop
0c85 0000 nop
0c86 0000 nop
0c87 02ff rti
}
void Int7_Handler() {
0c88 0000 nop
0c89 0000 nop
0c8a 0000 nop
0c8b 0000 nop
0c8c 02ff rti
}
# End of interrupt handlers
// Jump table for the next function.
0c8d 0c9f // some kind of soft-reset for the UCode
0c8e 0ca2 // looks like code to dump the UCode memory for debugging
0c8f 0cda // rest the UCode and jump to ROM
0c90 0cdd // normal case to return to the main-loop
// Called only from Task_Yield()
// Decides what to do next (this cmdblock is done)
void JumpThroughTable2() {
0c91 8e00 set16
0c92 8100 clr $ACC0
0c93 8900 clr $ACC1
// 0c94 02bf 0ce0 call 0x0ce0
WaitForCPUMail0();
// 0c96 27ff lrs $AC1.M, @CMBL
// 0c97 009e 0c8d lri $AC0.M, #0x0c8d
// 0c99 4c00 add $ACC0, $ACC1
// 0c9a 1c7e mrr $AR3, $AC0.M
// 0c9b 0313 ilrr $AC1.M, @$AR3
// 0c9c 1c7f mrr $AR3, $AC1.M
// 0c9d 176f jmpr $AR3
switch(@CMBL) {
case 0: AX_ResumeTask(); break;
case 1: JumpTable2_1(); break;
case 2: IROM_Reset(); break;
case 3: AX_GetNextCmdBlock(); break;
}
0c9e 0021 halt
}
// case 0:
void AX_ResumeTask() {
0c9f 029f 0030 jmp 0x0030
0ca1 0021 halt
}
// case 1:
// funky...calls the mbox funcs, sometimes prefilling ACx regs...
// Perhaps DMAs some stuff and yields?
// Need to RE the ROM to figure this func out completely
void JumpTable2_1() {
// 0ca2 8100 clr $ACC0
// 0ca3 8900 clr $ACC1
// 0ca4 02bf 0ce0 call 0x0ce0
WaitForCPUMail0();
// 0ca6 24ff lrs $AC0.L, @CMBL
// 0ca7 02bf 0ce6 call 0x0ce6
WaitForCPUMail1();
// 0ca9 25ff lrs $AC1.L, @CMBL
// 0caa 02bf 0ce6 call 0x0ce6
WaitForCPUMail1();
0cac 27ff lrs $AC1.M, @CMBL
0cad 2ece srs @DSMAH, $AC0.M
0cae 2ccf srs @DSMAL, $AC0.L
0caf 16c9 0001 si @DSCR, #0x0001
0cb1 2fcd srs @DSPA, $AC1.M
0cb2 2dcb srs @DSBL, $AC1.L
// 0cb3 8100 clr $ACC0
// 0cb4 8900 clr $ACC1
// 0cb5 02bf 0ce0 call 0x0ce0
WaitForCPUMail0();
0cb7 24ff lrs $AC0.L, @CMBL
0cb8 1c9e mrr $IX0, $AC0.M
0cb9 1cbc mrr $IX1, $AC0.L
0cba 02bf 0ce6 call 0x0ce6
WaitForCPUMail1();
0cbc 25ff lrs $AC1.L, @CMBL
0cbd 02bf 0ce6 call 0x0ce6
WaitForCPUMail1();
0cbf 27ff lrs $AC1.M, @CMBL
0cc0 1cdf mrr $IX2, $AC1.M
0cc1 1cfd mrr $IX3, $AC1.L
// 0cc2 8100 clr $ACC0
// 0cc3 02bf 0ce0 call 0x0ce0
WaitForCPUMail0();
0cc5 26ff lrs $AC0.M, @CMBL
0cc6 1c1e mrr $AR0, $AC0.M
0cc7 8900 clr $ACC1
0cc8 02bf 0ce6 call 0x0ce6
WaitForCPUMail1();
0cca 20ff lrs $AX0.L, @CMBL
0ccb 1f5f mrr $AX0.H, $AC1.M
0ccc 02bf 0ce0 call 0x0ce0
WaitForCPUMail0();
0cce 21ff lrs $AX1.L, @CMBL
0ccf 02bf 0ce0 call 0x0ce0
WaitForCPUMail0();
0cd1 23ff lrs $AX1.H, @CMBL
// 0cd2 26c9 lrs $AC0.M, @DSCR
// 0cd3 02a0 0004 andf $AC0.M, #0x0004
// 0cd5 029c 0cd2 jlnz 0x0cd2
while (@DSCR & 0x0004 != 0); // Wait for DMA to complete
// 0cd7 029f 80b5 jmp 0x80b5
// 0cd9 0021 halt
IROM_ErrorAndDie(); // Not sure...gotta RE the ROM
}
// case 2:
void IROM_Reset() {
0cda 029f 8000 jmp 0x8000
0cdc 0021 halt
}
// case 3:
void AX_GetNextCmdBlock() {
// 0cdd 029f 0045 jmp 0x0045
goto GetNextCmdBlock;
0cdf 0021 halt
}
void WaitForCPUMail0() {
// 0ce0 26fe lrs $AC0.M, @CMBH
// 0ce1 02c0 8000 andcf $AC0.M, #0x8000
// 0ce3 029c 0ce0 jlnz 0x0ce0
while (@CMBH & 0x8000 == 0);
// 0ce5 02df ret
return;
}
void WaitForCPUMail1() {
// 0ce6 27fe lrs $AC1.M, @CMBH
// 0ce7 03c0 8000 andcf $AC1.M, #0x8000
// 0ce9 029c 0ce6 jlnz 0x0ce6
while (@CMBH & 0x8000 == 0);
// 0ceb 02df ret
return;
}
0cec 0000 nop
0ced 0000 nop
0cee 0000 nop
0cef 0000 nop