// Zelda UCode - CRC: 0x09CD143F

// This is a very complex little ucode. Quite a bit more so than AX.
// It also seems to use features of the DSP that AX neglects (the reverse is true as well,
// this ucode doesn't seem to use the hardware ADPCM feature at all, instead opting to
// decode a different ADPCM format manually).

// The value 0x50 is VERY common as a loop size. Many, especially intermediate/output
// sample buffers seem to be of this size. Half that size, 0x28, is also seen.

// MemMap

 
// 0x0400 to 0x04C0				- Some kind of CommandoBlock
 
 
 
// exception vector
0000 029f 0012 jmp         0x0012
0002 0000      nop         
0003 0000      nop         
0004 02ff      rti         
0005 0000      nop         
0006 02ff      rti         
0007 0000      nop         
0008 02ff      rti         
0009 0000      nop         
000a 02ff      rti         
000b 0000      nop         
000c 02ff      rti         
000d 0000      nop         
000e 029f 05b8 jmp         0x05b8


0010 029f 004e jmp         0x004e

// Handler for 0000 exception (reset?)
0012 1205      sbclr       #0x05   // interesting, what is this flag? must be important.
0013 02bf 0057 call        0x0057					// InitHardware()

// clear memory
0015 8100      clr         $ACC0
0016 009f 1000 lri         $AC1.M, #0x1000
0018 0080 0000 lri         $AR0, #0x0000
001a 005f      loop        $AC1.M
001b 1b1e      srri        @$AR0, $AC0.M

001c 02bf 0688 call        0x0688					// InitGlobalsVars()
001e 02bf 04c0 call        0x04c0
0020 02bf 0e14 call        0x0e14					// Init some kind of table
0022 0e00      lris        $AC0.M, #0x00
0023 02bf 066a call        0x066a					// SendMessageViaDSPMailBox_DCD1(AC0.M)
0025 009e 1111 lri         $AC0.M, #0x1111
0027 02bf 0674 call        0x0674					// SendMessageViaDSPMailBox_F355(AC0.M)
0029 0e00      lris        $AC0.M, #0x00
002a 00fe 034e sr          @0x034e, $AC0.M
002c 1305      sbset       #0x05
002d 029f 06c5 jmp         0x06c5					-> jump to MessageLoop()

// CommandHandler()
002f 00df 0357 lr          $AC1.M, @0x0357
0031 00ff 0345 sr          @0x0345, $AC1.M
0033 00de 0356 lr          $AC0.M, @0x0356
0035 1ffe      mrr         $AC1.M, $AC0.M
0036 0340 00ff andi        $AC1.M, #0x00ff
0038 00ff 0344 sr          @0x0344, $AC1.M
003a 1479      lsr         $ACC0, #-7
003b 0240 007e andi        $AC0.M, #0x007e
003d 00fe 0343 sr          @0x0343, $AC0.M
003f 0200 0075 addi        $AC0.M, #0x0075			// offset of "JMP Table Opcodes"
0041 1c1e      mrr         $AR0, $AC0.M
0042 170f      jmpr        $AR0					// JMP to OpcodeHandler
0043 0092 00ff lri         $CR, #0x00ff
0045 0e04      lris        $AC0.M, #0x04
0046 02bf 066a call        0x066a					// SendMessageViaDSPMailBox_DCD1(AC0.M)
0048 00de 0356 lr          $AC0.M, @0x0356
004a 02bf 0674 call        0x0674					// SendMessageViaDSPMailBox_F355(AC0.M)
004c 029f 002d jmp         0x002d


// task start vector (0x0010) jumps here immediately.
004e 1205      sbclr       #0x05
004f 02bf 0057 call        0x0057					// InitHardware()	
0051 0e01      lris        $AC0.M, #0x01
0052 02bf 066a call        0x066a					// SendMessageViaDSPMailBox_DCD1(AC0.M)
0054 1305      sbset       #0x05
0055 029f 002d jmp         0x002d


// InitHardware()
0057 1202      sbclr       #0x02
0058 1203      sbclr       #0x03
0059 1204      sbclr       #0x04
005a 1306      sbset       #0x06
005b 8e00      set16       
005c 8c00      clr15       
005d 8b00      m0          
// Initialize the loop index registers to #ffff to neutralize them.
005e 009e ffff lri         $AC0.M, #0xffff
0060 1d1e      mrr         $WR0, $AC0.M
0061 1d3e      mrr         $WR1, $AC0.M
0062 1d5e      mrr         $WR2, $AC0.M
0063 1d7e      mrr         $WR3, $AC0.M
0064 0092 00ff lri         $CR, #0x00ff
0066 02df      ret         


// ReadWholeMessage($R00)
0067 0090 0000 lri         $AC0.H, #0x0000
0069 0c00      lris        $AC0.L, #0x00
006a 0081 0358 lri         $AR1, #0x0358
006c 007e 0071 bloop       $AC0.M, 0x0071
006e 193e      lrri        $AC0.M, @$AR1
006f 1b1e      srri        @$AR0, $AC0.M
0070 193e      lrri        $AC0.M, @$AR1
0071 1b1e      srri        @$AR0, $AC0.M
0072 02df      ret         

// Opcode_03() -> direct return
0073 029f 0043 jmp         0x0043

// JMP Table Opcodes
0075 029f 0043 jmp         0x0043					// dummy handler -> direct return
0077 029f 0095 jmp         0x0095
0079 029f 0243 jmp         0x0243
007b 029f 0073 jmp         0x0073
007d 029f 0580 jmp         0x0580
007f 029f 0592 jmp         0x0592
0081 029f 0469 jmp         0x0469
0083 029f 041d jmp         0x041d
0085 029f 0485 jmp         0x0485
0087 029f 044d jmp         0x044d
0089 029f 0043 jmp         0x0043					// dummy handler -> direct return
008b 029f 0043 jmp         0x0043					// dummy handler -> direct return
008d 029f 0043 jmp         0x0043					// dummy handler -> direct return
008f 029f 00b2 jmp         0x00b2
0091 029f 0043 jmp         0x0043					// dummy handler -> direct return
0093 029f 0043 jmp         0x0043					// dummy handler -> direct return


// Opcode_01() - DsetupTable()
0095 0080 0380 lri         $AR0, #0x0380
0097 0e04      lris        $AC0.M, #0x04
0098 02bf 0067 call        0x0067					// ReadWholeMessage($R00)
009a 0081 0382 lri         $AR1, #0x0382
009c 009f 0000 lri         $AC1.M, #0x0000
009e 0080 0280 lri         $AR0, #0x0280
00a0 02bf 0523 call        0x0523					// RAMtoDMEM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
00a2 0081 0384 lri         $AR1, #0x0384
00a4 009f 0300 lri         $AC1.M, #0x0300
00a6 0080 0020 lri         $AR0, #0x0020
00a8 02bf 0523 call        0x0523					// RAMtoDMEM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
00aa 00de 0345 lr          $AC0.M, @0x0345
00ac 00fe 0342 sr          @0x0342, $AC0.M
00ae 02bf 0bec call        0x0bec
00b0 029f 0043 jmp         0x0043

// Opcode_0D() - DsetDolbyDelay
00b2 0080 0374 lri         $AR0, #0x0374
00b4 0e01      lris        $AC0.M, #0x01
00b5 00fe 0377 sr          @0x0377, $AC0.M
00b7 00fe 037c sr          @0x037c, $AC0.M
00b9 02bf 0067 call        0x0067					// ReadWholeMessage($R00)
00bb 00de 0345 lr          $AC0.M, @0x0345
00bd 00fe 0376 sr          @0x0376, $AC0.M
00bf 029f 0043 jmp         0x0043

// Load some kind of command block with size C0
00c1 0081 034c lri         $AR1, #0x034c
00c3 009f 0400 lri         $AC1.M, #0x0400
00c5 0080 00c0 lri         $AR0, #0x00c0
00c7 02bf 0523 call        0x0523					// RAMtoDMEM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
00c9 02df      ret         

// Copy something out.
00ca 0081 034c lri         $AR1, #0x034c
00cc 009f 0400 lri         $AC1.M, #0x0400
00ce 0080 0080 lri         $AR0, #0x0080
00d0 0081 034c lri         $AR1, #0x034c
00d2 193e      lrri        $AC0.M, @$AR1
00d3 193c      lrri        $AC0.L, @$AR1
00d4 0098 0000 lri         $AX0.L, #0x0000
00d6 7000      addaxl      $ACC0, $AX0.L
00d7 02bf 0532 call        0x0532					// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
00d9 02df      ret         

// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
// Hm, is it really? The MOVR loop doesn't involve R03.
00da 191e      lrri        $AC0.M, @$AR0
00db 191a      lrri        $AX0.H, @$AR0
00dc 005f      loop        $AC1.M
00dd 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M			// ??? Does the .LS makes any sense? shouldnt it be just a load? um yeah it makes sense, that's a LOOP, not a BLOOP. wonder about the SRRIs though.
00de 1b7e      srri        @$AR3, $AC0.M
00df 1b7a      srri        @$AR3, $AX0.H
00e0 02df      ret         

// Decrypt???? (btw, wonder if LRRI disasm is broken).
00e1 191e      lrri        $AC0.M, @$AR0
00e2 191a      lrri        $AX0.H, @$AR0
00e3 007f 00e8 bloop       $AC1.M, 0x00e8
00e5 32b2      xorr'sl     $AC0.M, $AX1.H : $AC0.M, $AX1.H
00e6 65a0      movr'ls     $ACC1, $AX0.H : $AX0.H, $AC0.M
00e7 33ba      xorr'slm    $AC1.M, $AX1.H : $AC0.M, $AX1.H
00e8 64a1      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC1.M
00e9 0000      nop         
00ea 02df      ret         

// Multiply loop of some kind...
// Reads from arrays pointed to by R00, R03
// Writes to array pointed to by R00, i think - extensions are unclear.
// TODO: Figure out what LSR $ACC1, #0x3f means .. just a clear?
// Loop count in AC1.M.
00eb 8a00      m2          
00ec 157f      lsr         $ACC1, #-1
00ed 1c20      mrr         $AR1, $AR0
00ee 1c03      mrr         $AR0, $AR3
00ef 193a      lrri        $AX0.H, @$AR1
00f0 9051      mul'l       $AX0.L, $AX0.H : $AX0.H, @$AR1
00f1 925b      mulmvz'l    $AX0.L, $AX0.H, $ACC0 : $AX1.H, @$AR3
00f2 007f 00f7 bloop       $AC1.M, 0x00f7
00f4 4651      addr'l      $ACC0, $AX1.H : $AX0.H, @$AR1
00f5 92b2      mulmvz'sl   $AX0.L, $AX0.H, $ACC0 : $AC0.M, $AX1.H
00f6 4651      addr'l      $ACC0, $AX1.H : $AX0.H, @$AR1
00f7 92b2      mulmvz'sl   $AX0.L, $AX0.H, $ACC0 : $AC0.M, $AX1.H
00f8 8b00      m0          
00f9 02df      ret         

// Another multiply loop of some kind ....
// Loop count in AC1.M.
00fa 8a00      m2          
00fb 191a      lrri        $AX0.H, @$AR0
00fc 9050      mul'l       $AX0.L, $AX0.H : $AX0.H, @$AR0
00fd 9250      mulmvz'l    $AX0.L, $AX0.H, $ACC0 : $AX0.H, @$AR0
00fe 005f      loop        $AC1.M
00ff 92a0      mulmvz'ls   $AX0.L, $AX0.H, $ACC0 : $AX0.H, $AC0.M
0100 8b00      m0          
0101 02df      ret         

// Clear some memory (called by op2)
0102 8100      clr         $ACC0
0103 8900      clr         $ACC1
0104 0e50      lris        $AC0.M, #0x50
0105 0080 0d00 lri         $AR0, #0x0d00
0107 005e      loop        $AC0.M
0108 1b1f      srri        @$AR0, $AC1.M
0109 0080 0d60 lri         $AR0, #0x0d60
010b 005e      loop        $AC0.M
010c 1b1f      srri        @$AR0, $AC1.M
010d 02bf 0e3f call        0x0e3f
010f 8100      clr         $ACC0
0110 8900      clr         $ACC1
0111 0e50      lris        $AC0.M, #0x50
0112 0080 0ca0 lri         $AR0, #0x0ca0
0114 005e      loop        $AC0.M
0115 1b1f      srri        @$AR0, $AC1.M
0116 0080 0f40 lri         $AR0, #0x0f40
0118 005e      loop        $AC0.M
0119 1b1f      srri        @$AR0, $AC1.M
011a 0080 0fa0 lri         $AR0, #0x0fa0
011c 005e      loop        $AC0.M
011d 1b1f      srri        @$AR0, $AC1.M
011e 0080 0a00 lri         $AR0, #0x0a00
0120 005e      loop        $AC0.M
0121 1b1f      srri        @$AR0, $AC1.M
0122 0080 09a0 lri         $AR0, #0x09a0
0124 005e      loop        $AC0.M
0125 1b1f      srri        @$AR0, $AC1.M
0126 02df      ret         


// A function with multiplies that doesn't change the mode?
// Looks like a stereo mixer or something
0127 00c0 03a0 lr          $AR0, @0x03a0
0129 191a      lrri        $AX0.H, @$AR0
012a 00df 03a1 lr          $AC1.M, @0x03a1
012c 009b 00a0 lri         $AX1.H, #0x00a0
012e 0081 0393 lri         $AR1, #0x0393
0130 18bc      lrrd        $AC0.L, @$AR1
0131 b871      mulx'l      $AX0.H, $AX1.H : $AC0.M, @$AR1
0132 bc00      mulxac      $AX0.H, $AX1.H, $ACC0
0133 0080 0050 lri         $AR0, #0x0050
0135 0508      addis       $ACC1, #0x08
0136 02bf 0525 call        0x0525						// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0138 00de 0390 lr          $AC0.M, @0x0390
013a 02a0 0001 andf        $AC0.M, #0x0001
013c 029d 0145 jlz         0x0145
013e 0080 0398 lri         $AR0, #0x0398
0140 0e08      lris        $AC0.M, #0x08
0141 00c1 03a1 lr          $AR1, @0x03a1
0143 02bf 0b2e call        0x0b2e
0145 0f50      lris        $AC1.M, #0x50
0146 00c0 03a1 lr          $AR0, @0x03a1
0148 00da 0394 lr          $AX0.H, @0x0394
//..
014a 8600      tstaxh      $AX0.H
014b 0295 0152 jz          0x0152
014d 1c7a      mrr         $AR3, $AX0.H
014e 00d8 0395 lr          $AX0.L, @0x0395
0150 02bf 00eb call        0x00eb  // one of the multiply loops
0152 0f50      lris        $AC1.M, #0x50
0153 00c0 03a1 lr          $AR0, @0x03a1
0155 00da 0396 lr          $AX0.H, @0x0396
//..
0157 8600      tstaxh      $AX0.H
0158 0295 015f jz          0x015f
015a 1c7a      mrr         $AR3, $AX0.H
015b 00d8 0397 lr          $AX0.L, @0x0397
015d 02bf 00eb call        0x00eb  // one of the multiply loops
015f 00de 0390 lr          $AC0.M, @0x0390
0161 02a0 0002 andf        $AC0.M, #0x0002
0163 02dd      retlz       
//..
0164 0080 0398 lri         $AR0, #0x0398
0166 0e08      lris        $AC0.M, #0x08
0167 00c1 03a1 lr          $AR1, @0x03a1
0169 02bf 0b2e call        0x0b2e
016b 02df      ret         

// Yet another mixer? this one does both 0x50 and 0x28 loops.
016c 8900      clr         $ACC1
016d 009f 0dc0 lri         $AC1.M, #0x0dc0
016f 00ff 03a1 sr          @0x03a1, $AC1.M
0171 009f 03a8 lri         $AC1.M, #0x03a8
0173 00ff 03a2 sr          @0x03a2, $AC1.M
0175 009f 03a4 lri         $AC1.M, #0x03a4
0177 00ff 03a0 sr          @0x03a0, $AC1.M
0179 1104 019f bloopi      #0x04, 0x019f   // scary bloopi - end of instruction!
017b 00c0 03a2 lr          $AR0, @0x03a2
017d 0083 0390 lri         $AR3, #0x0390
017f 0f0e      lris        $AC1.M, #0x0e
0180 02bf 00da call        0x00da						// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
0182 00da 0390 lr          $AX0.H, @0x0390
0184 8600      tstaxh      $AX0.H
0185 0295 0191 jz          0x0191
0187 00df 03a1 lr          $AC1.M, @0x03a1
0189 1c7f      mrr         $AR3, $AC1.M
018a 0550      addis       $ACC1, #0x50
018b 1c1f      mrr         $AR0, $AC1.M
018c 0f06      lris        $AC1.M, #0x06
018d 02bf 00da call        0x00da						// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
018f 02bf 0127 call        0x0127
//..
0191 00de 03a2 lr          $AC0.M, @0x03a2
0193 0410      addis       $ACC0, #0x10
0194 00fe 03a2 sr          @0x03a2, $AC0.M
0196 00de 03a1 lr          $AC0.M, @0x03a1
0198 0460      addis       $ACC0, #0x60
0199 00fe 03a1 sr          @0x03a1, $AC0.M
019b 00de 03a0 lr          $AC0.M, @0x03a0
019d 7400      incm        $AC0.M
019e 00fe 03a0 sr          @0x03a0, $AC0.M
// end of BLOOPI 0179
01a0 0f50      lris        $AC1.M, #0x50
01a1 0080 0c00 lri         $AR0, #0x0c00
01a3 0083 0e80 lri         $AR3, #0x0e80
01a5 0098 7fff lri         $AX0.L, #0x7fff
01a7 02bf 00eb call        0x00eb  // one of the multiply loops
01a9 0f50      lris        $AC1.M, #0x50
01aa 0080 0c00 lri         $AR0, #0x0c00
01ac 0083 0ee0 lri         $AR3, #0x0ee0
01ae 0098 b820 lri         $AX0.L, #0xb820
01b0 02bf 00eb call        0x00eb  // one of the multiply loops
01b2 0f28      lris        $AC1.M, #0x28   // half size!
01b3 0080 0c78 lri         $AR0, #0x0c78
01b5 0083 0e80 lri         $AR3, #0x0e80
01b7 0098 b820 lri         $AX0.L, #0xb820
01b9 02bf 00eb call        0x00eb  // one of the multiply loops
01bb 0f28      lris        $AC1.M, #0x28   // half size!
01bc 0080 0c78 lri         $AR0, #0x0c78
01be 0083 0ee0 lri         $AR3, #0x0ee0
01c0 0098 7fff lri         $AX0.L, #0x7fff
01c2 02bf 00eb call        0x00eb  // one of the multiply loops
01c4 8100      clr         $ACC0
01c5 8900      clr         $ACC1
01c6 0e50      lris        $AC0.M, #0x50   // bufsize. looks like buf clearing
01c7 0080 0c00 lri         $AR0, #0x0c00
01c9 005e      loop        $AC0.M
01ca 1b1f      srri        @$AR0, $AC1.M
01cb 0080 0c50 lri         $AR0, #0x0c50
01cd 005e      loop        $AC0.M
01ce 1b1f      srri        @$AR0, $AC1.M
01cf 02df      ret         



01d0 00c0 03a0 lr          $AR0, @0x03a0
01d2 181a      lrr         $AX0.H, @$AR0
01d3 8100      clr         $ACC0
01d4 181e      lrr         $AC0.M, @$AR0
01d5 00db 0391 lr          $AX1.H, @0x0391
01d7 7400      incm        $AC0.M
01d8 d100      cmpar       $ACC1, $AX0.H
01d9 0270      ifns        
01da 8100      clr         $ACC0
01db 1b1e      srri        @$AR0, $AC0.M
01dc 00df 03a1 lr          $AC1.M, @0x03a1
01de 009b 00a0 lri         $AX1.H, #0x00a0
01e0 0081 0393 lri         $AR1, #0x0393
01e2 18bc      lrrd        $AC0.L, @$AR1
01e3 b871      mulx'l      $AX0.H, $AX1.H : $AC0.M, @$AR1
01e4 bc00      mulxac      $AX0.H, $AX1.H, $ACC0
01e5 0080 0050 lri         $AR0, #0x0050
01e7 02bf 0532 call        0x0532					// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
01e9 02df      ret         


// Another zany mixer... this time on half-length buffers (0x28 instead of 0x50)?
01ea 8900      clr         $ACC1
01eb 0f28      lris        $AC1.M, #0x28
01ec 0080 0c50 lri         $AR0, #0x0c50
01ee 0083 0ea8 lri         $AR3, #0x0ea8
01f0 0098 b820 lri         $AX0.L, #0xb820
01f2 02bf 00eb call        0x00eb  // one of the multiply loops
01f4 8900      clr         $ACC1
01f5 0f28      lris        $AC1.M, #0x28
01f6 0080 0c50 lri         $AR0, #0x0c50
01f8 0083 0f08 lri         $AR3, #0x0f08
01fa 0098 7fff lri         $AX0.L, #0x7fff
01fc 02bf 00eb call        0x00eb  // one of the multiply loops
01fe 009f 0dc0 lri         $AC1.M, #0x0dc0
0200 00ff 03a1 sr          @0x03a1, $AC1.M
0202 009f 03a8 lri         $AC1.M, #0x03a8
0204 00ff 03a2 sr          @0x03a2, $AC1.M
0206 009f 03a4 lri         $AC1.M, #0x03a4
0208 00ff 03a0 sr          @0x03a0, $AC1.M
020a 1104 0228 bloopi      #0x04, 0x0228
020c 00c0 03a2 lr          $AR0, @0x03a2
020e 0083 0390 lri         $AR3, #0x0390
0210 0f0e      lris        $AC1.M, #0x0e
0211 02bf 00da call        0x00da					// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
0213 00da 0390 lr          $AX0.H, @0x0390
0215 8600      tstaxh      $AX0.H
0216 0295 021a jz          0x021a
0218 02bf 01d0 call        0x01d0
021a 00de 03a2 lr          $AC0.M, @0x03a2
021c 0410      addis       $ACC0, #0x10
021d 00fe 03a2 sr          @0x03a2, $AC0.M
021f 00de 03a1 lr          $AC0.M, @0x03a1
0221 0460      addis       $ACC0, #0x60
0222 00fe 03a1 sr          @0x03a1, $AC0.M
0224 00de 03a0 lr          $AC0.M, @0x03a0
0226 7400      incm        $AC0.M
0227 00fe 03a0 sr          @0x03a0, $AC0.M
0229 02df      ret         



022a 0081 0386 lri         $AR1, #0x0386
022c 009f 03a8 lri         $AC1.M, #0x03a8
022e 0080 0040 lri         $AR0, #0x0040
0230 02bf 0523 call        0x0523						// RAMtoDMEM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)	
0232 02df      ret         


// Load 32-bit value, add AX0 to it, store it back. Trash ACC0.
0233 191e      lrri        $AC0.M, @$AR0
0234 189c      lrrd        $AC0.L, @$AR0
0235 4800      addax       $ACC0, $AX0.L
0236 1b1e      srri        @$AR0, $AC0.M
0237 1b1c      srri        @$AR0, $AC0.L
0238 02df      ret         


// This looks like some sort of crazy wait loop, waiting for one value to equal the other.
// Must be interrupt-driven?
0239 8100      clr         $ACC0
023a 8900      clr         $ACC1
023b 00df 0354 lr          $AC1.M, @0x0354
023d 00de 034e lr          $AC0.M, @0x034e
023f 8200      cmp         
0240 0293 0239 jle         0x0239
0242 02df      ret         

// Opcode_02() - SyncFrame
0243 0080 0388 lri         $AR0, #0x0388
0245 0081 0067 lri         $AR1, #0x0067
0247 0e02      lris        $AC0.M, #0x02
0248 173f      callr       $AR1      // Strange call - seems to always go to 0067 .. unless we can get here in another way than from above.
0249 00de 0344 lr          $AC0.M, @0x0344
024b 00fe 0341 sr          @0x0341, $AC0.M
024d 00de 0345 lr          $AC0.M, @0x0345
024f 00fe 038e sr          @0x038e, $AC0.M
0251 8100      clr         $ACC0
0252 00fe 0355 sr          @0x0355, $AC0.M
0254 02bf 022a call        0x022a
0256 02bf 05a4 call        0x05a4						// ClearAccelerator()
0258 00de 0341 lr          $AC0.M, @0x0341
025a 007e 0418 bloop       $AC0.M, 0x0418
025c 02bf 0102 call        0x0102						// Clear some memory areas...
025e 02bf 016c call        0x016c    // mix in background music? or something? dunno
0260 02bf 095f call        0x095f         // recalc some table?
0262 00de 0355 lr          $AC0.M, @0x0355  // Increase counter at 0x0355
0264 7400      incm        $AC0.M
0265 00fe 0355 sr          @0x0355, $AC0.M
0267 8100      clr         $ACC0
0268 00fe 0354 sr          @0x0354, $AC0.M  // Zero counter at 0x0354
026a 00de 0342 lr          $AC0.M, @0x0342  // Read 0x0342, that number of times, process the loop.
026c 007e 03c0 bloop       $AC0.M, 0x03c0  // Strange loop - goes outside this function...
026e 02bf 0239 call        0x0239  // This one waits for interrupts.
0270 8100      clr         $ACC0
0271 8900      clr         $ACC1
0272 00de 0354 lr          $AC0.M, @0x0354  // 0x354 is obviously interesting.
0274 147c      lsr         $ACC0, #-4
0275 0200 04fc addi        $AC0.M, #0x04fc
0277 1c1e      mrr         $AR0, $AC0.M
0278 181f      lrr         $AC1.M, @$AR0  // Table lookup from DRAM @ 0x04fc. Something must have initialized it.
0279 00de 0354 lr          $AC0.M, @0x0354
027b 0240 000f andi        $AC0.M, #0x000f
027d 3d80      andc'ls     $AC1.M : $AX0.L, $AC0.M
027e 03c0 8000 andcf       $AC1.M, #0x8000
0280 029c 03bc jlnz        0x03bc
0282 00d8 0354 lr          $AX0.L, @0x0354
0284 009a 0180 lri         $AX0.H, #0x0180
0286 8100      clr         $ACC0
0287 00de 0380 lr          $AC0.M, @0x0380
0289 00dc 0381 lr          $AC0.L, @0x0381
028b 9000      mul         $AX0.L, $AX0.H
028c 9400      mulac       $AX0.L, $AX0.H, $ACC0
028d 00fe 034c sr          @0x034c, $AC0.M
028f 00fc 034d sr          @0x034d, $AC0.L
0291 02bf 00c1 call        0x00c1
0293 00da 0400 lr          $AX0.H, @0x0400
0295 8600      tstaxh      $AX0.H
0296 0295 03bc jz          0x03bc
0298 00da 0401 lr          $AX0.H, @0x0401
029a 8600      tstaxh      $AX0.H
029b 0294 03bc jnz         0x03bc
029d 00da 0433 lr          $AX0.H, @0x0433
029f 00fa 03f8 sr          @0x03f8, $AX0.H
02a1 00da 0406 lr          $AX0.H, @0x0406
02a3 8600      tstaxh      $AX0.H
02a4 0294 0dff jnz         0x0dff
02a6 8100      clr         $ACC0
02a7 00de 0480 lr          $AC0.M, @0x0480
02a9 0609      cmpis       $ACC0, #0x09
02aa 0295 02bd jz          0x02bd
02ac 0605      cmpis       $ACC0, #0x05
02ad 0295 02bd jz          0x02bd
02af 0608      cmpis       $ACC0, #0x08
02b0 0295 098f jz          0x098f
02b2 0610      cmpis       $ACC0, #0x10
02b3 0295 0a14 jz          0x0a14
02b5 0620      cmpis       $ACC0, #0x20
02b6 0295 0a9a jz          0x0a9a
02b8 0621      cmpis       $ACC0, #0x21
02b9 0295 0aa2 jz          0x0aa2
02bb 029f 087c jmp         0x087c

// Choose from one of several 0x50 size buffers and do something?
02bd 00d8 0402 lr          $AX0.L, @0x0402
02bf 8100      clr         $ACC0
02c0 8900      clr         $ACC1
02c1 00dc 0430 lr          $AC0.L, @0x0430
02c3 8d00      set15       
02c4 0950      lris        $AX1.L, #0x50
02c5 a000      mulx        $AX0.L, $AX1.L
02c6 a400      mulxac      $AX0.L, $AX1.L, $ACC0
02c7 1404      lsl         $ACC0, #4
02c8 8c00      clr15       
02c9 1ffe      mrr         $AC1.M, $AC0.M
02ca 0083 0580 lri         $AR3, #0x0580
02cc 02bf 073d call        0x073d
02ce 029f 02d0 jmp         0x02d0


02d0 0080 0580 lri         $AR0, #0x0580
02d2 0081 0520 lri         $AR1, #0x0520
02d4 0099 0000 lri         $AX1.L, #0x0000
02d6 02bf 0d7f call        0x0d7f
02d8 00da 04a8 lr          $AX0.H, @0x04a8
02da 8600      tstaxh      $AX0.H
02db 0295 02e1 jz          0x02e1
02dd 0080 0520 lri         $AR0, #0x0520
02df 02bf 0c84 call        0x0c84
02e1 009e 0520 lri         $AC0.M, #0x0520
02e3 00fe 038f sr          @0x038f, $AC0.M
02e5 8900      clr         $ACC1
02e6 00df 0484 lr          $AC1.M, @0x0484
02e8 0340 001f andi        $AC1.M, #0x001f
02ea b900      tst         $ACC1
02eb 0295 0311 jz          0x0311
02ed 00de 038f lr          $AC0.M, @0x038f
02ef 5c00      sub         $ACC0, $AC1.L
02f0 00fe 038f sr          @0x038f, $AC0.M
02f2 1c7e      mrr         $AR3, $AC0.M
02f3 0080 0440 lri         $AR0, #0x0440
02f5 05fe      addis       $ACC1, #0xfe
02f6 02bf 00da call        0x00da						// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
02f8 0080 0490 lri         $AR0, #0x0490
02fa 00c1 038f lr          $AR1, @0x038f
02fc 8900      clr         $ACC1
02fd 00df 0484 lr          $AC1.M, @0x0484
02ff 0340 001f andi        $AC1.M, #0x001f
0301 02bf 0b4d call        0x0b4d
0303 00de 038f lr          $AC0.M, @0x038f
0305 0450      addis       $ACC0, #0x50
0306 1c1e      mrr         $AR0, $AC0.M
0307 0083 0440 lri         $AR3, #0x0440
0309 8900      clr         $ACC1
030a 00df 0484 lr          $AC1.M, @0x0484
030c 0340 001f andi        $AC1.M, #0x001f
030e 05fe      addis       $ACC1, #0xfe
030f 02bf 00da call        0x00da						// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
0311 00de 0484 lr          $AC0.M, @0x0484
0313 0240 0020 andi        $AC0.M, #0x0020
0315 0295 0333 jz          0x0333
0317 0080 04a4 lri         $AR0, #0x04a4
0319 00c1 038f lr          $AR1, @0x038f
031b 0082 0454 lri         $AR2, #0x0454
031d 0083 04a7 lri         $AR3, #0x04a7
031f 18fa      lrrd        $AX0.H, @$AR3
0320 8600      tstaxh      $AX0.H
0321 0294 0331 jnz         0x0331
0323 18fa      lrrd        $AX0.H, @$AR3
0324 8600      tstaxh      $AX0.H
0325 0294 0331 jnz         0x0331
0327 18fa      lrrd        $AX0.H, @$AR3
0328 8600      tstaxh      $AX0.H
0329 0294 0331 jnz         0x0331
032b 8100      clr         $ACC0
032c 18fe      lrrd        $AC0.M, @$AR3
032d 0280 7fff cmpi        $AC0.M, #0x7fff
032f 0295 0333 jz          0x0333
0331 02bf 0b68 call        0x0b68
0333 8100      clr         $ACC0
0334 00de 042c lr          $AC0.M, @0x042c
0336 b100      tst         $ACC0
0337 0295 033d jz          0x033d
0339 02bf 0cd3 call        0x0cd3
033b 029f 03b2 jmp         0x03b2
033d 8100      clr         $ACC0
033e 1c9e      mrr         $IX0, $AC0.M
033f 1cde      mrr         $IX2, $AC0.M
0340 7400      incm        $AC0.M
0341 1cfe      mrr         $IX3, $AC0.M
0342 8100      clr         $ACC0
0343 00de 0407 lr          $AC0.M, @0x0407
0345 b100      tst         $ACC0
0346 0295 0355 jz          0x0355
0348 00c3 038f lr          $AR3, @0x038f
034a 0007      dar         $AR3
034b 0080 0477 lri         $AR0, #0x0477
034d 0084 ffff lri         $IX0, #0xffff
034f 0087 ffff lri         $IX3, #0xffff
0351 199a      lrrn        $AX0.H, @$AR0
0352 6554      movr'ln     $ACC1, $AX0.H : $AX0.H, @$AR0
0353 005e      loop        $AC0.M
0354 65ad      movr'lsnm   $ACC1, $AX0.H : $AX0.H, $AC1.M
0355 00da 0485 lr          $AX0.H, @0x0485
0357 8600      tstaxh      $AX0.H
0358 0295 036b jz          0x036b
035a 8900      clr         $ACC1
035b 0086 0005 lri         $IX2, #0x0005
035d 0082 040a lri         $AR2, #0x040a
035f 1106 0363 bloopi      #0x06, 0x0363
0361 18de      lrrd        $AC0.M, @$AR2
0362 147f      lsr         $ACC0, #-1
0363 4d36      add'sn      $ACC1, $AC0.L : @$AR2, $AC0.M
0364 b900      tst         $ACC1
0365 0294 036b jnz         0x036b
0367 009a 0001 lri         $AX0.H, #0x0001
0369 00fa 0401 sr          @0x0401, $AX0.H
036b 8f00      set40       
036c 0086 0002 lri         $IX2, #0x0002
036e 0082 0408 lri         $AR2, #0x0408
0370 1106 039b bloopi      #0x06, 0x039b
0372 8100      clr         $ACC0
0373 195e      lrri        $AC0.M, @$AR2
0374 1200      sbclr       #0x00
0375 b100      tst         $ACC0
0376 0275      ifz         
0377 1300      sbset       #0x00
0378 1c7e      mrr         $AR3, $AC0.M
0379 195e      lrri        $AC0.M, @$AR2
037a 195f      lrri        $AC1.M, @$AR2
037b 5c00      sub         $ACC0, $AC1.L
037c 14fb      asr         $ACC0, #-5
037d 1f5e      mrr         $AX0.H, $AC0.M
037e 1f1c      mrr         $AX0.L, $AC0.L
037f 185e      lrr         $AC0.M, @$AR2
0380 0240 00ff andi        $AC0.M, #0x00ff
0382 1f7e      mrr         $AX1.H, $AC0.M
0383 185e      lrr         $AC0.M, @$AR2
0384 1478      lsr         $ACC0, #-8
0385 009c 0000 lri         $AC0.L, #0x0000
0387 d100      cmpar       $ACC1, $AX0.H
0388 0295 0390 jz          0x0390
038a 185e      lrr         $AC0.M, @$AR2
038b 0272      ifg         
038c 7400      incm        $AC0.M
038d 0271      ifs         
038e 7800      decm        $AC0.M
038f 1a5e      srr         @$AR2, $AC0.M
0390 0006      dar         $AR2
0391 00de 038f lr          $AC0.M, @0x038f
0393 5600      subr        $ACC0, $AX1.H
0394 029d 0399 jlz         0x0399
0396 1c1e      mrr         $AR0, $AC0.M
0397 02bf 0ca9 call        0x0ca9
0399 0000      nop         
039a 1b5f      srri        @$AR2, $AC1.M
039b 000a      iar         $AR2
039c 8e00      set16       
039d 8100      clr         $ACC0
039e 00de 0407 lr          $AC0.M, @0x0407
03a0 b100      tst         $ACC0
03a1 0295 03b2 jz          0x03b2
03a3 00c3 038f lr          $AR3, @0x038f
03a5 0087 004f lri         $IX3, #0x004f   // does this have something to do with the common 0x50 buffer size?
03a7 001f      addarn      $AR3, $IX3
03a8 0080 0477 lri         $AR0, #0x0477
03aa 0084 ffff lri         $IX0, #0xffff
03ac 0087 ffff lri         $IX3, #0xffff
03ae 19fa      lrrn        $AX0.H, @$AR3
03af 6557      movr'ln     $ACC1, $AX0.H : $AX0.H, @$AR3
03b0 005e      loop        $AC0.M
03b1 65af      movr'slnm   $ACC1, $AX0.H : $AC1.M, $AX0.H
03b2 00da 0406 lr          $AX0.H, @0x0406
03b4 8600      tstaxh      $AX0.H
03b5 0294 03ba jnz         0x03ba
03b7 8100      clr         $ACC0
03b8 00fe 0404 sr          @0x0404, $AC0.M
03ba 02bf 00ca call        0x00ca
03bc 00de 0354 lr          $AC0.M, @0x0354
03be 7400      incm        $AC0.M
03bf 00fe 0354 sr          @0x0354, $AC0.M
03c1 0e00      lris        $AC0.M, #0x00
03c2 00fe 034e sr          @0x034e, $AC0.M
03c4 0e04      lris        $AC0.M, #0x04
03c5 02bf 066a call        0x066a						// SendMessageViaDSPMailBox_DCD1(AC0.M)
03c7 00de 0355 lr          $AC0.M, @0x0355
03c9 0260 ff00 ori         $AC0.M, #0xff00
03cb 02bf 0674 call        0x0674						// SendMessageViaDSPMailBox_F355(AC0.M)
03cd 02bf 0c0a call        0x0c0a
03cf 02bf 0c1c call        0x0c1c
03d1 02bf 0c71 call        0x0c71
03d3 00de 0341 lr          $AC0.M, @0x0341
03d5 7800      decm        $AC0.M
03d6 00fe 0341 sr          @0x0341, $AC0.M
03d8 0080 09a0 lri         $AR0, #0x09a0
03da 0083 0d00 lri         $AR3, #0x0d00
03dc 0f50      lris        $AC1.M, #0x50
03dd 0098 5a82 lri         $AX0.L, #0x5a82
03df 02bf 00eb call        0x00eb  // one of the multiply loops
03e1 0080 09a0 lri         $AR0, #0x09a0
03e3 0083 0d60 lri         $AR3, #0x0d60
03e5 0f50      lris        $AC1.M, #0x50
03e6 02bf 00eb call        0x00eb  // one of the multiply loops
03e8 0083 0d00 lri         $AR3, #0x0d00
03ea 02bf 0cc1 call        0x0cc1
03ec 0081 0388 lri         $AR1, #0x0388
03ee 009f 0d00 lri         $AC1.M, #0x0d00
03f0 0080 0050 lri         $AR0, #0x0050
03f2 02bf 0530 call        0x0530						// DMEMtoRAM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
03f4 0080 0fa0 lri         $AR0, #0x0fa0
03f6 0083 0d60 lri         $AR3, #0x0d60
03f8 0f50      lris        $AC1.M, #0x50
03f9 0098 8000 lri         $AX0.L, #0x8000
03fb 02bf 00eb call        0x00eb  // one of the multiply loops
03fd 0083 0d60 lri         $AR3, #0x0d60
03ff 02bf 0cc1 call        0x0cc1
0401 0081 038a lri         $AR1, #0x038a
0403 009f 0d60 lri         $AC1.M, #0x0d60
0405 0080 0050 lri         $AR0, #0x0050
0407 02bf 0530 call        0x0530						// DMEMtoRAM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
0409 009a 0000 lri         $AX0.H, #0x0000
040b 0098 00a0 lri         $AX0.L, #0x00a0
040d 0080 0388 lri         $AR0, #0x0388
040f 02bf 0233 call        0x0233
0411 0080 038a lri         $AR0, #0x038a
0413 02bf 0233 call        0x0233
0415 02bf 01ea call        0x01ea
0417 0000      nop         
0418 0000      nop         
0419 0080 002d lri         $AR0, #0x002d
041b 029f 0603 jmp         0x0603



// Opcode_07()
041d 0080 0346 lri         $AR0, #0x0346
041f 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
0421 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
0423 0081 0346 lri         $AR1, #0x0346
0425 193e      lrri        $AC0.M, @$AR1
0426 193c      lrri        $AC0.L, @$AR1
0427 009f 0400 lri         $AC1.M, #0x0400
0429 00c0 0345 lr          $AR0, @0x0345
042b 02bf 0525 call        0x0525						// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
042d 0081 0348 lri         $AR1, #0x0348
042f 193e      lrri        $AC0.M, @$AR1
0430 193c      lrri        $AC0.L, @$AR1
0431 009f 0800 lri         $AC1.M, #0x0800
0433 00c0 0345 lr          $AR0, @0x0345
0435 02bf 0525 call        0x0525						// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0437 0081 0346 lri         $AR1, #0x0346
0439 193e      lrri        $AC0.M, @$AR1
043a 193c      lrri        $AC0.L, @$AR1
043b 009f 0800 lri         $AC1.M, #0x0800
043d 00c0 0345 lr          $AR0, @0x0345
043f 02bf 0532 call        0x0532						// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0441 0081 0348 lri         $AR1, #0x0348
0443 193e      lrri        $AC0.M, @$AR1
0444 193c      lrri        $AC0.L, @$AR1
0445 009f 0400 lri         $AC1.M, #0x0400
0447 00c0 0345 lr          $AR0, @0x0345
0449 02bf 0532 call        0x0532						// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
044b 029f 0043 jmp         0x0043


// Opcode_09()
044d 0080 0346 lri         $AR0, #0x0346
044f 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
0451 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
0453 0081 0346 lri         $AR1, #0x0346
0455 193e      lrri        $AC0.M, @$AR1
0456 193c      lrri        $AC0.L, @$AR1
0457 009f 0400 lri         $AC1.M, #0x0400
0459 00c0 0345 lr          $AR0, @0x0345
045b 02bf 0525 call        0x0525						// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
045d 0081 0348 lri         $AR1, #0x0348
045f 193e      lrri        $AC0.M, @$AR1
0460 193c      lrri        $AC0.L, @$AR1
0461 009f 0400 lri         $AC1.M, #0x0400
0463 00c0 0345 lr          $AR0, @0x0345
0465 02bf 0532 call        0x0532						// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0467 029f 0043 jmp         0x0043

// Opcode_06()
0469 0080 0346 lri         $AR0, #0x0346
046b 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
046d 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
046f 0081 0346 lri         $AR1, #0x0346
0471 193e      lrri        $AC0.M, @$AR1
0472 193c      lrri        $AC0.L, @$AR1
0473 009f 0400 lri         $AC1.M, #0x0400
0475 00c0 0345 lr          $AR0, @0x0345
0477 02bf 0555 call        0x0555
0479 0081 0348 lri         $AR1, #0x0348
047b 193e      lrri        $AC0.M, @$AR1
047c 193c      lrri        $AC0.L, @$AR1
047d 009f 0400 lri         $AC1.M, #0x0400
047f 00c0 0345 lr          $AR0, @0x0345
0481 02bf 0532 call        0x0532						// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0483 029f 0043 jmp         0x0043


// Opcode_08() - Mixer
0485 0080 0346 lri         $AR0, #0x0346
0487 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
0489 02bf 0067 call        0x0067						// ReadWholeMessage($R00)
048b 0081 0346 lri         $AR1, #0x0346
048d 193e      lrri        $AC0.M, @$AR1
048e 193c      lrri        $AC0.L, @$AR1
048f 009f 0400 lri         $AC1.M, #0x0400
0491 00c0 0344 lr          $AR0, @0x0344
0493 02bf 0525 call        0x0525						// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0495 0081 0348 lri         $AR1, #0x0348
0497 193e      lrri        $AC0.M, @$AR1
0498 193c      lrri        $AC0.L, @$AR1
0499 009f 0800 lri         $AC1.M, #0x0800
049b 00c0 0344 lr          $AR0, @0x0344
049d 02bf 0525 call        0x0525						// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
049f 0080 0400 lri         $AR0, #0x0400
04a1 0083 0800 lri         $AR3, #0x0800
04a3 0084 0000 lri         $IX0, #0x0000
04a5 00da 0345 lr          $AX0.H, @0x0345
04a7 00df 0344 lr          $AC1.M, @0x0344
04a9 8f00      set40       
04aa 197b      lrri        $AX1.H, @$AR3
04ab b800      mulx        $AX0.H, $AX1.H
04ac 197b      lrri        $AX1.H, @$AR3
04ad 007f 04b2 bloop       $AC1.M, 0x04b2
04af 199e      lrrn        $AC0.M, @$AR0
04b0 bc00      mulxac      $AX0.H, $AX1.H, $ACC0
04b1 80b2      nx'sl       : $AC0.M, $AX1.H
04b2 0000      nop         
04b3 8e00      set16       
04b4 0081 0346 lri         $AR1, #0x0346
04b6 193e      lrri        $AC0.M, @$AR1
04b7 193c      lrri        $AC0.L, @$AR1
04b8 009f 0400 lri         $AC1.M, #0x0400
04ba 00c0 0344 lr          $AR0, @0x0344
04bc 02bf 0532 call        0x0532						// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
04be 029f 0043 jmp         0x0043


// dunno... is called by InitCode()
04c0 0092 00ff lri         $CR, #0x00ff
04c2 8100      clr         $ACC0
04c3 0080 0b00 lri         $AR0, #0x0b00
04c5 10ff      loopi       #0xff
04c6 1b1e      srri        @$AR0, $AC0.M
04c7 1b1e      srri        @$AR0, $AC0.M
04c8 8100      clr         $ACC0
04c9 009f 0b00 lri         $AC1.M, #0x0b00
04cb 0080 0100 lri         $AR0, #0x0100
04cd 02bf 0573 call        0x0573
04cf 02df      ret         

//
04d0 02bf 04e1 call        0x04e1
04d2 00df 04fb lr          $AC1.M, @0x04fb
04d4 009e 0b00 lri         $AC0.M, #0x0b00
04d6 4c00      add         $ACC0, $AC1.L
04d7 1c1e      mrr         $AR0, $AC0.M
04d8 181e      lrr         $AC0.M, @$AR0
04d9 7400      incm        $AC0.M
04da 1a1e      srr         @$AR0, $AC0.M
04db 02bf 04ea call        0x04ea
04dd 8100      clr         $ACC0
04de 00fe 04fb sr          @0x04fb, $AC0.M
04e0 02df      ret         


// This is called by the thing above.
04e1 0092 00ff lri         $CR, #0x00ff
04e3 8100      clr         $ACC0
04e4 009f 0b00 lri         $AC1.M, #0x0b00
04e6 0080 0040 lri         $AR0, #0x0040
04e8 029f 0555 jmp         0x0555   ///oookay..

// 
04ea 8100      clr         $ACC0
04eb 009f 0b00 lri         $AC1.M, #0x0b00
04ed 0080 0050 lri         $AR0, #0x0050
04ef 029f 0573 jmp         0x0573

// 
04f1 02bf 04e1 call        0x04e1
04f3 8900      clr         $ACC1
04f4 0080 04fc lri         $AR0, #0x04fc
04f6 8100      clr         $ACC0
04f7 1104 0505 bloopi      #0x04, 0x0505
04f9 0000      nop         
04fa 191e      lrri        $AC0.M, @$AR0
04fb 0000      nop         
04fc 1110 0503 bloopi      #0x10, 0x0503
04fe 02c0 0001 andcf       $AC0.M, #0x0001
0500 027d      iflz        
0501 7500      incm        $AC1.M
0502 147f      lsr         $ACC0, #-1   // Another bizarre super shift.
0503 0000      nop         	// Do these shifts have latency?
0504 0000      nop         
0505 0000      nop         


0506 00de 04fc lr          $AC0.M, @0x04fc
0508 00fe 0b48 sr          @0x0b48, $AC0.M
050a 00de 04fd lr          $AC0.M, @0x04fd
050c 00fe 0b49 sr          @0x0b49, $AC0.M
050e 00de 04fe lr          $AC0.M, @0x04fe
0510 00fe 0b4a sr          @0x0b4a, $AC0.M
0512 00de 04ff lr          $AC0.M, @0x04ff
0514 00fe 0b4b sr          @0x0b4b, $AC0.M
0516 009e 0b00 lri         $AC0.M, #0x0b00
0518 4c00      add         $ACC0, $AC1.L
0519 1c1e      mrr         $AR0, $AC0.M
051a 181e      lrr         $AC0.M, @$AR0
051b 7400      incm        $AC0.M
051c 1a1e      srr         @$AR0, $AC0.M
051d 02bf 04ea call        0x04ea
051f 02df      ret         


0520 02bf 04ea call        0x04ea
0522 02df      ret         

// RAMtoDMEM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
0523 193e      lrri        $AC0.M, @$AR1
0524 193c      lrri        $AC0.L, @$AR1
// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0525 2fcd      srs         @DSPA, $AC1.M
0526 0f00      lris        $AC1.M, #0x00
0527 2fc9      srs         @DSCR, $AC1.M
0528 2ece      srs         @DSMAH, $AC0.M
0529 2ccf      srs         @DSMAL, $AC0.L
052a 1fe0      mrr         $AC1.M, $AR0
052b 1501      lsl         $ACC1, #1
052c 2fcb      srs         @DSBL, $AC1.M
052d 02bf 0536 call        0x0536						// WaitForDMATransfer()
052f 02df      ret         


// DMEMtoRAM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
0530 193e      lrri        $AC0.M, @$AR1
0531 193c      lrri        $AC0.L, @$AR1
// DMEMtoRAM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0532 2fcd      srs         @DSPA, $AC1.M
0533 0f01      lris        $AC1.M, #0x01
0534 029f 0527 jmp         0x0527

// WaitForDMATransfer()
0536 26c9      lrs         $AC0.M, @DSCR
0537 02a0 0004 andf        $AC0.M, #0x0004
0539 029c 0536 jlnz        0x0536
053b 02df      ret         

// Setup DMA conroller and do a transfer. Should figure out exactly how.
053c 193e      lrri        $AC0.M, @$AR1
053d 193c      lrri        $AC0.L, @$AR1
053e 00ff ffcd sr          @DSPA, $AC1.M
0540 0f00      lris        $AC1.M, #0x00
0541 00ff ffc9 sr          @DSCR, $AC1.M
0543 00fe ffce sr          @DSMAH, $AC0.M
0545 00fc ffcf sr          @DSMAL, $AC0.L
0547 1fe0      mrr         $AC1.M, $AR0
0548 1501      lsl         $ACC1, #1
0549 00ff ffcb sr          @DSBL, $AC1.M
054b 02df      ret         

// An identical copy of WaitForDMATransfer from 0536
054c 00de ffc9 lr          $AC0.M, @DSCR
054e 02a0 0004 andf        $AC0.M, #0x0004
0550 029c 054c jlnz        0x054c
0552 02df      ret         


0553 193e      lrri        $AC0.M, @$AR1
0554 193c      lrri        $AC0.L, @$AR1
0555 0240 7fff andi        $AC0.M, #0x7fff
0557 02bf 0561 call        0x0561  // SetupAccelerator()
0559 007a 055f bloop       $AX0.H, 0x055f
055b 26d3      lrs         $AC0.M, @Unk Zelda
055c 1b3e      srri        @$AR1, $AC0.M
055d 0000      nop         
055e 0000      nop         
055f 0000      nop         
0560 02df      ret         

// SetupAccelerator()
0561 1c3f      mrr         $AR1, $AC1.M
0562 0f0a      lris        $AC1.M, #0x0a
0563 2fd1      srs         @SampleFormat, $AC1.M
0564 1f5e      mrr         $AX0.H, $AC0.M
0565 1f1c      mrr         $AX0.L, $AC0.L
0566 009e ffff lri         $AC0.M, #0xffff
0568 2ed6      srs         @ACEAH, $AC0.M
0569 2ed7      srs         @ACEAL, $AC0.M
056a 1fda      mrr         $AC0.M, $AX0.H
056b 1f98      mrr         $AC0.L, $AX0.L
056c 147f      lsr         $ACC0, #-1
056d 2ed8      srs         @ACCAH, $AC0.M
056e 2cd9      srs         @ACCAL, $AC0.L
056f 1f40      mrr         $AX0.H, $AR0
0570 02df      ret         

// AC1.M is input which also falls into 0x0561.
0571 193e      lrri        $AC0.M, @$AR1
0572 193c      lrri        $AC0.L, @$AR1
0573 0090 0001 lri         $AC0.H, #0x0001
0575 02bf 0561 call        0x0561					// SetupAccelerator()
0577 007a 057e bloop       $AX0.H, 0x057e
0579 193e      lrri        $AC0.M, @$AR1
057a 2ed3      srs         @Unk Zelda, $AC0.M
057b 0000      nop         
057c 0000      nop         
057d 0000      nop         
057e 0000      nop         
057f 02df      ret         


// Opcode_04()
0580 0080 0346 lri         $AR0, #0x0346
0582 02bf 0067 call        0x0067					// ReadWholeMessage($R00)
0584 02bf 0067 call        0x0067					// ReadWholeMessage($R00)
0586 0081 0346 lri         $AR1, #0x0346
0588 00df 0349 lr          $AC1.M, @0x0349
058a 0340 ffff andi        $AC1.M, #0xffff
058c 00c0 0345 lr          $AR0, @0x0345
058e 02bf 0523 call        0x0523					// RAMtoDMEM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
0590 029f 0043 jmp         0x0043

// Opcode_05()
0592 0080 0346 lri         $AR0, #0x0346
0594 02bf 0067 call        0x0067					// ReadWholeMessage($R00)
0596 02bf 0067 call        0x0067					// ReadWholeMessage($R00)
0598 0081 0346 lri         $AR1, #0x0346
059a 00df 0349 lr          $AC1.M, @0x0349
059c 0340 ffff andi        $AC1.M, #0xffff
059e 00c0 0345 lr          $AR0, @0x0345
05a0 02bf 0530 call        0x0530					// DMEMtoRAM(DMEM=$AC1.M, *R01=MEMADDR, R00=Len)
05a2 029f 0043 jmp         0x0043

// ClearAccelerator()
05a4 0092 00ff lri         $CR, #0x00ff
05a6 009e ffff lri         $AC0.M, #0xffff
05a8 2ed4      srs         @ACSAH, $AC0.M
05a9 2ed5      srs         @ACSAL, $AC0.M
05aa 2ed6      srs         @ACEAH, $AC0.M
05ab 2ed7      srs         @ACEAL, $AC0.M
05ac 02df      ret         

// Set up accelerator to a sample format and point to a read location
05ad 00ff ffd1 sr          @SampleFormat, $AC1.M
05af 0340 0003 andi        $AC1.M, #0x0003
05b1 7900      decm        $AC1.M
05b2 02ca      cw          0x02ca		; *** UNKNOWN OPCODE ***
05b3 00fe ffd8 sr          @ACCAH, $AC0.M
05b5 00fc ffd9 sr          @ACCAL, $AC0.L
05b7 02df      ret         

// Is this statement really true? :
// Exception Handler (lvl 7) is called on new mails
05b8 1205      sbclr       #0x05
05b9 8e00      set16       
05ba 00f0 03fd sr          @0x03fd, $AC0.H
05bc 00fc 03ff sr          @0x03ff, $AC0.L
05be f400      lsr16       $ACC0
05bf 00fc 03fe sr          @0x03fe, $AC0.L
05c1 00fa 03fa sr          @0x03fa, $AX0.H
05c3 8100      clr         $ACC0
05c4 00de fffe lr          $AC0.M, @CMBH  // Read mailbox
05c6 02c0 8000 andcf       $AC0.M, #0x8000
05c8 029c 06b9 jlnz        0x06b9
05ca 00da ffff lr          $AX0.H, @CMBL
05cc 8600      tstaxh      $AX0.H
05cd 0294 0692 jnz         0x0692
05cf 00de fffe lr          $AC0.M, @CMBH
05d1 02c0 8000 andcf       $AC0.M, #0x8000
05d3 029c 05cf jlnz        0x05cf
05d5 0240 000f andi        $AC0.M, #0x000f
05d7 1f5e      mrr         $AX0.H, $AC0.M
05d8 7400      incm        $AC0.M
05d9 0c00      lris        $AC0.L, #0x00
05da 1404      lsl         $ACC0, #4
05db 00fe 034e sr          @0x034e, $AC0.M
05dd 1fda      mrr         $AC0.M, $AX0.H
05de 1f40      mrr         $AX0.H, $AR0
05df 0200 04fc addi        $AC0.M, #0x04fc
05e1 1c1e      mrr         $AR0, $AC0.M
05e2 00de ffff lr          $AC0.M, @CMBL
05e4 1a1e      srr         @$AR0, $AC0.M
05e5 1c1a      mrr         $AR0, $AX0.H
05e6 00de 03fe lr          $AC0.M, @0x03fe
05e8 00dc 03ff lr          $AC0.L, @0x03ff
05ea 00d0 03fd lr          $AC0.H, @0x03fd
05ec 00da 03fa lr          $AX0.H, @0x03fa
05ee 1305      sbset       #0x05
05ef 02ff      rti         

// StopUCode()
05f0 009a 0002 lri         $AX0.H, #0x0002
05f2 00fa 03a3 sr          @0x03a3, $AX0.H
05f4 00e0 03f9 sr          @0x03f9, $AR0
05f6 02bf 067c call        0x067c						// WaitForEmptyDSPMailBox_ovAC0.M()
05f8 16fc dcd1 si          @DMBH, #0xdcd1
05fa 16fd 0002 si          @DMBL, #0x0002
05fc 16fb 0001 si          @DIRQ, #0x0001
05fe 0021      halt        

// Looks like data more than it looks like code... yep, see 613.
05ff 0617      cmpis       $ACC0, #0x17
0600 0618      cmpis       $ACC0, #0x18
0601 0658      cmpis       $ACC0, #0x58
0602 065b      cmpis       $ACC0, #0x5b

// Store a jump destination to RAM. Then get some data from the CPU. This data controls whether
// we will halt, reset, boot task or jump to function.
// This could very well be debug code.
0603 00e0 03f9 sr          @0x03f9, $AR0
0605 009e 0005 lri         $AC0.M, #0x0005
0607 02bf 066a call        0x066a						// SendMessageViaDSPMailBox_DCD1(AC0.M)
0609 8e00      set16       
060a 8100      clr         $ACC0
060b 8900      clr         $ACC1
060c 02bf 065e call        0x065e
060e 27ff      lrs         $AC1.M, @CMBL
060f 009e 05ff lri         $AC0.M, #0x05ff
0611 4c00      add         $ACC0, $AC1.L
0612 1c7e      mrr         $AR3, $AC0.M
0613 0313      ilrr        $AC1.M, @$AR3   // Jump table lookup.
0614 1c7f      mrr         $AR3, $AC1.M
0615 176f      jmpr        $AR3
0616 0021      halt        

// Jump table alt 0. A bit too simple :p
0617 0021      halt        

// Jump table alt 1. Seems to simply receive a big list of register initialization
// values from the CPU.
// Ends by jumping into the rom - boot task?
// ATTENTION - sets up R06 and R07.
0618 009a 0002 lri         $AX0.H, #0x0002
061a 00fa 03a3 sr          @0x03a3, $AX0.H
061c 8100      clr         $ACC0
061d 8900      clr         $ACC1
061e 02bf 065e call        0x065e  // wait for cpu mailbox
0620 24ff      lrs         $AC0.L, @CMBL
0621 02bf 0664 call        0x0664  // wait for cpu mailbox
0623 25ff      lrs         $AC1.L, @CMBL
0624 02bf 0664 call        0x0664  // wait for cpu mailbox
0626 27ff      lrs         $AC1.M, @CMBL
0627 2ece      srs         @DSMAH, $AC0.M
0628 2ccf      srs         @DSMAL, $AC0.L
0629 16c9 0001 si          @DSCR, #0x0001
062b 2fcd      srs         @DSPA, $AC1.M
062c 2dcb      srs         @DSBL, $AC1.L
062d 8100      clr         $ACC0
062e 8900      clr         $ACC1
062f 02bf 065e call        0x065e  // wait for cpu mailbox
0631 24ff      lrs         $AC0.L, @CMBL
0632 1c9e      mrr         $IX0, $AC0.M
0633 1cbc      mrr         $IX1, $AC0.L
0634 02bf 0664 call        0x0664  // wait for cpu mailbox
0636 25ff      lrs         $AC1.L, @CMBL
0637 02bf 0664 call        0x0664  // wait for cpu mailbox
0639 27ff      lrs         $AC1.M, @CMBL
063a 1cdf      mrr         $IX2, $AC1.M
063b 1cfd      mrr         $IX3, $AC1.L
063c 8100      clr         $ACC0
063d 02bf 065e call        0x065e  // wait for cpu mailbox
063f 26ff      lrs         $AC0.M, @CMBL
0640 1c1e      mrr         $AR0, $AC0.M
0641 8900      clr         $ACC1
0642 02bf 0664 call        0x0664  // wait for cpu mailbox
0644 20ff      lrs         $AX0.L, @CMBL
0645 1f5f      mrr         $AX0.H, $AC1.M
0646 02bf 065e call        0x065e  // wait for cpu mailbox
0648 21ff      lrs         $AX1.L, @CMBL
0649 02bf 065e call        0x065e  // wait for cpu mailbox
064b 23ff      lrs         $AX1.H, @CMBL
064c 26c9      lrs         $AC0.M, @DSCR
064d 02a0 0004 andf        $AC0.M, #0x0004
064f 029c 064c jlnz        0x064c
// Clear some bits in SR.
0651 1206      sbclr       #0x06
0652 1203      sbclr       #0x03
0653 1204      sbclr       #0x04
0654 1205      sbclr       #0x05
// Jump into the ROM. (!) Boot task?
0655 029f 80b5 jmp         0x80b5
0657 0021      halt        

// Jump table alt 2.  (reset DSP?)
0658 029f 8000 jmp         0x8000
065a 0021      halt        

// Jump table alt 3. Loads another jump destination and jumps there.
065b 00c0 03f9 lr          $AR0, @0x03f9
065d 170f      jmpr        $AR0

// Wait for CPU mailbox, trash ACC0.
065e 26fe      lrs         $AC0.M, @CMBH
065f 02c0 8000 andcf       $AC0.M, #0x8000
0661 029c 065e jlnz        0x065e
0663 02df      ret         

// Wait for CPU mailbox, trash ACC1.
0664 27fe      lrs         $AC1.M, @CMBH
0665 03c0 8000 andcf       $AC1.M, #0x8000
0667 029c 0664 jlnz        0x0664
0669 02df      ret         

// SendMessageViaDSPMailBox_DCD1(AC0.M)
066a 02bf 0682 call        0x0682					// WaitForEmptyDSPMailBox_ovAC1.M()
066c 16fc dcd1 si          @DMBH, #0xdcd1
066e 2efd      srs         @DMBL, $AC0.M
066f 16fb 0001 si          @DIRQ, #0x0001
0671 02bf 0682 call        0x0682					// WaitForEmptyDSPMailBox_ovAC1.M()
0673 02df      ret         



// SendMessageViaDSPMailBox_F355(AC0.M)	
0674 02bf 0682 call        0x0682					// WaitForEmptyDSPMailBox_ovAC1.M()
0676 16fc f355 si          @DMBH, #0xf355
0678 2efd      srs         @DMBL, $AC0.M
0679 02bf 0682 call        0x0682					// WaitForEmptyDSPMailBox_ovAC1.M()
067b 02df      ret         

// WaitForEmptyDSPMailBox_ovAC0.M()
067c 26fc      lrs         $AC0.M, @DMBH
067d 02c0 8000 andcf       $AC0.M, #0x8000
067f 029d 067c jlz         0x067c
0681 02df      ret         

// WaitForEmptyDSPMailBox_ovAC1.M()
0682 27fc      lrs         $AC1.M, @DMBH
0683 03c0 8000 andcf       $AC1.M, #0x8000
0685 029d 0682 jlz         0x0682
0687 02df      ret         

// InitGlobalsVars()
0688 009a 0280 lri         $AX0.H, #0x0280
068a 00fa 0350 sr          @0x0350, $AX0.H
068c 00fa 0351 sr          @0x0351, $AX0.H
068e 0a00      lris        $AX0.H, #0x00
068f 00fa 0352 sr          @0x0352, $AX0.H
0691 02df      ret         

// Huh, the 7 exception handler sends us here?
// Uses loop indexing (R08)
0692 00e0 03fb sr          @0x03fb, $AR0
0694 00e8 03fc sr          @0x03fc, $WR0
0696 00c0 0350 lr          $AR0, @0x0350
0698 0088 002f lri         $WR0, #0x002f
069a 1b1a      srri        @$AR0, $AX0.H
069b 00de fffe lr          $AC0.M, @CMBH
069d 02c0 8000 andcf       $AC0.M, #0x8000
069f 029c 069b jlnz        0x069b
06a1 00dc ffff lr          $AC0.L, @CMBL
06a3 1b1e      srri        @$AR0, $AC0.M
06a4 1b1c      srri        @$AR0, $AC0.L
06a5 1fda      mrr         $AC0.M, $AX0.H
06a6 7800      decm        $AC0.M
06a7 1f5e      mrr         $AX0.H, $AC0.M
06a8 8600      tstaxh      $AX0.H
06a9 0294 069b jnz         0x069b
06ab 8100      clr         $ACC0
06ac 00de 0352 lr          $AC0.M, @0x0352
06ae 7400      incm        $AC0.M
06af 00fe 0352 sr          @0x0352, $AC0.M
06b1 00e0 0350 sr          @0x0350, $AR0
06b3 00c0 03fb lr          $AR0, @0x03fb
06b5 00c8 03fc lr          $WR0, @0x03fc
06b7 029f 05e6 jmp         0x05e6
06b9 00e0 03fb sr          @0x03fb, $AR0
06bb 00e8 03fc sr          @0x03fc, $WR0
06bd 00c0 0350 lr          $AR0, @0x0350
06bf 0088 002f lri         $WR0, #0x002f
06c1 0a00      lris        $AX0.H, #0x00
06c2 1b1a      srri        @$AR0, $AX0.H
06c3 029f 06ab jmp         0x06ab


// MessageLoop() 
06c5 00c0 0351 lr          $AR0, @0x0351
06c7 0088 002f lri         $WR0, #0x002f

06c9 00da 0352 lr          $AX0.H, @0x0352
06cb 8600      tstaxh      $AX0.H
06cc 0295 06ed jz          0x06ed
06ce 1205      sbclr       #0x05
06cf 00da 0352 lr          $AX0.H, @0x0352
06d1 1fda      mrr         $AC0.M, $AX0.H
06d2 7800      decm        $AC0.M
06d3 00fe 0352 sr          @0x0352, $AC0.M
06d5 1305      sbset       #0x05
06d6 0081 0356 lri         $AR1, #0x0356
06d8 191e      lrri        $AC0.M, @$AR0
06d9 02c0 8000 andcf       $AC0.M, #0x8000
06db 029d 06f1 jlz         0x06f1
06dd 1f5e      mrr         $AX0.H, $AC0.M
06de 8600      tstaxh      $AX0.H
06df 0295 06f5 jz          0x06f5
06e1 007a 06e6 bloop       $AX0.H, 0x06e6
06e3 191e      lrri        $AC0.M, @$AR0
06e4 1b3e      srri        @$AR1, $AC0.M
06e5 191e      lrri        $AC0.M, @$AR0
06e6 1b3e      srri        @$AR1, $AC0.M
06e7 00e0 0351 sr          @0x0351, $AR0
06e9 0088 ffff lri         $WR0, #0xffff
06eb 029f 002f jmp         0x002f  // Command handler.

06ed 0088 ffff lri         $WR0, #0xffff
06ef 029f 002d jmp         0x002d  // Just jumps back to MessageLoop

// Store the current command, jump back to MessageLoop+2.
06f1 00e0 0351 sr          @0x0351, $AR0
06f3 029f 06c9 jmp         0x06c9

// Default command, jump back to MessageLoop?
06f5 0080 06c5 lri         $AR0, #0x06c5
06f7 029f 05f0 jmp         0x05f0					// StopUCode()


// Tests the value at M(0x0032)
06f9 8100      clr         $ACC0
06fa 0e10      lris        $AC0.M, #0x10
06fb 2232      lrs         $AX0.H, @0x0032
06fc 8600      tstaxh      $AX0.H
06fd 02d5      retz        
06fe 5400      subr        $ACC0, $AX0.H
06ff 0200 0458 addi        $AC0.M, #0x0458
0701 1c1e      mrr         $AR0, $AC0.M
0702 1fda      mrr         $AC0.M, $AX0.H
0703 04fe      addis       $ACC0, #0xfe
0704 1f1e      mrr         $AX0.L, $AC0.M
0705 191e      lrri        $AC0.M, @$AR0
0706 0291 070c js          0x070c
0708 191a      lrri        $AX0.H, @$AR0
0709 0058      loop        $AX0.L
070a 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
070b 6433      movr's      $ACC0, $AX0.H : @$AR3, $AC0.M
070c 1b7e      srri        @$AR3, $AC0.M
070d 02df      ret         


// M(0x0032) must be important...
070e 02bf 06f9 call        0x06f9
0710 8100      clr         $ACC0
0711 2632      lrs         $AC0.M, @0x0032
0712 5c00      sub         $ACC0, $AC1.L
0713 2e32      srs         @0x0032, $AC0.M
0714 0092 00ff lri         $CR, #0x00ff
0716 02df      ret         


// Copies some values from hardware to dram.
0717 00de 04fb lr          $AC0.M, @0x04fb
0719 7400      incm        $AC0.M
071a 00fe 04fb sr          @0x04fb, $AC0.M
071c 8100      clr         $ACC0
071d 2e32      srs         @0x0032, $AC0.M
071e 2e66      srs         @0x0066, $AC0.M
071f 2e67      srs         @0x0067, $AC0.M
0720 268a      lrs         $AC0.M, @0xff8a  // What HW is this?
0721 248b      lrs         $AC0.L, @0xff8b
0722 2e3a      srs         @0x003a, $AC0.M
0723 2c3b      srs         @0x003b, $AC0.L
0724 268c      lrs         $AC0.M, @0xff8c
0725 248d      lrs         $AC0.L, @0xff8d
0726 2e38      srs         @0x0038, $AC0.M
0727 2c39      srs         @0x0039, $AC0.L
0728 02df      ret         



0729 8100      clr         $ACC0
072a 2689      lrs         $AC0.M, @0xff89
072b 0240 000f andi        $AC0.M, #0x000f
072d 1f5e      mrr         $AX0.H, $AC0.M
072e 8100      clr         $ACC0
072f 0e10      lris        $AC0.M, #0x10
0730 5400      subr        $ACC0, $AX0.H
0731 2e32      srs         @0x0032, $AC0.M
0732 268a      lrs         $AC0.M, @0xff8a
0733 248b      lrs         $AC0.L, @0xff8b
0734 2288      lrs         $AX0.H, @0xff88
0735 2089      lrs         $AX0.L, @0xff89
0736 5800      subax       $ACC0, $AX0.L
0737 0a00      lris        $AX0.H, #0x00
0738 2032      lrs         $AX0.L, @0x0032
0739 5800      subax       $ACC0, $AX0.L
073a 2e3a      srs         @0x003a, $AC0.M
073b 2c3b      srs         @0x003b, $AC0.L
073c 02df      ret         


// Call, or not, 0x717 with some params.
// CR loading is .. suspicious :P
073d 0092 0004 lri         $CR, #0x0004
073f 8100      clr         $ACC0
0740 2604      lrs         $AC0.M, @0x0004
0741 b100      tst         $ACC0
0742 02b4 0717 callne      0x0717
0744 8100      clr         $ACC0
0745 2601      lrs         $AC0.M, @0x0001
0746 b100      tst         $ACC0
0747 0294 07e5 jnz         0x07e5
//..
0749 2232      lrs         $AX0.H, @0x0032
074a c900      cmpar       $ACC0, $AX1.H
074b 0293 070e jle         0x070e
074d 5500      subr        $ACC1, $AX0.H
074e 02bf 06f9 call        0x06f9
0750 223a      lrs         $AX0.H, @0x003a
0751 8600      tstaxh      $AX0.H
0752 0294 0759 jnz         0x0759
0754 8100      clr         $ACC0
0755 263b      lrs         $AC0.M, @0x003b
0756 8200      cmp         
0757 0291 07ab js          0x07ab
0759 8100      clr         $ACC0
075a 1fdf      mrr         $AC0.M, $AC1.M
075b 040f      addis       $ACC0, #0x0f
075c 147c      lsr         $ACC0, #-4
075d 1f7e      mrr         $AX1.H, $AC0.M
075e 0c00      lris        $AC0.L, #0x00
075f 1404      lsl         $ACC0, #4
0760 1f1e      mrr         $AX0.L, $AC0.M
0761 0a00      lris        $AX0.H, #0x00
0762 8100      clr         $ACC0
0763 263a      lrs         $AC0.M, @0x003a
0764 243b      lrs         $AC0.L, @0x003b
0765 5800      subax       $ACC0, $AX0.L
0766 0290 0771 jns         0x0771
0768 8100      clr         $ACC0
0769 263b      lrs         $AC0.M, @0x003b
076a 5c00      sub         $ACC0, $AC1.L
076b 2e32      srs         @0x0032, $AC0.M
076c 8100      clr         $ACC0
076d 2e3a      srs         @0x003a, $AC0.M
076e 2e3b      srs         @0x003b, $AC0.M
076f 029f 0777 jmp         0x0777

//.. Jump target from 0766
0771 2e3a      srs         @0x003a, $AC0.M
0772 2c3b      srs         @0x003b, $AC0.L
0773 0c00      lris        $AC0.L, #0x00
0774 1fd8      mrr         $AC0.M, $AX0.L
0775 5c00      sub         $ACC0, $AC1.L
0776 2e32      srs         @0x0032, $AC0.M
//.. Jump target from 076f
0777 8100      clr         $ACC0
0778 1fdb      mrr         $AC0.M, $AX1.H
0779 02bf 07eb call        0x07eb
077b 2232      lrs         $AX0.H, @0x0032
077c 8600      tstaxh      $AX0.H
077d 0295 07a8 jz          0x07a8  // bail
077f 0a10      lris        $AX0.H, #0x10
0780 8100      clr         $ACC0
0781 1fc3      mrr         $AC0.M, $AR3
0782 5400      subr        $ACC0, $AX0.H
0783 1c7e      mrr         $AR3, $AC0.M
0784 0080 0458 lri         $AR0, #0x0458
0786 197e      lrri        $AC0.M, @$AR3
0787 197a      lrri        $AX0.H, @$AR3
0788 100e      loopi       #0x0e
0789 64a2      movr'sl     $ACC0, $AX0.H : $AC0.M, $AX0.H
078a 1b1e      srri        @$AR0, $AC0.M
078b 1b1a      srri        @$AR0, $AX0.H
078c 8100      clr         $ACC0
078d 263a      lrs         $AC0.M, @0x003a
078e 243b      lrs         $AC0.L, @0x003b
078f b100      tst         $ACC0
0790 0294 07a8 jnz         0x07a8   // bail
0792 2232      lrs         $AX0.H, @0x0032
0793 8600      tstaxh      $AX0.H
0794 0295 07a8 jz          0x07a8   // bail
0796 0080 0467 lri         $AR0, #0x0467
0798 8100      clr         $ACC0
0799 268b      lrs         $AC0.M, @0xff8b
079a b100      tst         $ACC0
079b 0295 07a8 jz          0x07a8  // bail
079d 0200 000f addi        $AC0.M, #0x000f
079f 0240 000f andi        $AC0.M, #0x000f
07a1 0200 0458 addi        $AC0.M, #0x0458
07a3 1c7e      mrr         $AR3, $AC0.M
07a4 007a 07a7 bloop       $AX0.H, 0x07a7
07a6 18fe      lrrd        $AC0.M, @$AR3
07a7 1a9e      srrd        @$AR0, $AC0.M
//..
07a8 0092 00ff lri         $CR, #0x00ff
07aa 02df      ret         



07ab b100      tst         $ACC0
07ac 0295 07bb jz          0x07bb
07ae 5d00      sub         $ACC1, $AC0.L
07af 040f      addis       $ACC0, #0x0f
07b0 147c      lsr         $ACC0, #-4
07b1 0c00      lris        $AC0.L, #0x00
07b2 00e3 0363 sr          @0x0363, $AR3
07b4 02bf 07eb call        0x07eb
07b6 00de 0363 lr          $AC0.M, @0x0363
07b8 223b      lrs         $AX0.H, @0x003b
07b9 4400      addr        $ACC0, $AX0.H
07ba 1c7e      mrr         $AR3, $AC0.M
07bb 8100      clr         $ACC0
07bc 2681      lrs         $AC0.M, @0xff81
07bd b100      tst         $ACC0
07be 0295 07e3 jz          0x07e3   // memset
07c0 2380      lrs         $AX1.H, @0xff80
07c1 2688      lrs         $AC0.M, @0xff88
07c2 2489      lrs         $AC0.L, @0xff89
07c3 1408      lsl         $ACC0, #8
07c4 14f4      asr         $ACC0, #-12
07c5 2380      lrs         $AX1.H, @0xff80
07c6 8d00      set15       
07c7 c810      mulc'mv     $AC0.M, $AX1.H : $AX0.L, $AC0.L
07c8 ae00      mulxmv      $AX0.L, $AX1.H, $ACC0
07c9 8c00      clr15       
07ca f000      lsl16       $ACC0
07cb 4e00      addp        $ACC0
07cc 238c      lrs         $AX1.H, @0xff8c
07cd 218d      lrs         $AX1.L, @0xff8d
07ce 4a00      addax       $ACC0, $AX1.L
07cf 2e38      srs         @0x0038, $AC0.M
07d0 2c39      srs         @0x0039, $AC0.L
07d1 2682      lrs         $AC0.M, @0xff82
07d2 2e67      srs         @0x0067, $AC0.M
07d3 2683      lrs         $AC0.M, @0xff83
07d4 2e66      srs         @0x0066, $AC0.M
07d5 00e3 0363 sr          @0x0363, $AR3
07d7 0083 0458 lri         $AR3, #0x0458
07d9 8100      clr         $ACC0
07da 0e01      lris        $AC0.M, #0x01
07db 02bf 07eb call        0x07eb
07dd 00c3 0363 lr          $AR3, @0x0363
07df 02bf 0729 call        0x0729
07e1 029f 0749 jmp         0x0749


// loop count = AC1.M
// strange - stores the value 1 at [1].
// then just memset 0 and a CR=0xff.
07e3 0e01      lris        $AC0.M, #0x01
07e4 2e01      srs         @0x0001, $AC0.M
07e5 8100      clr         $ACC0
07e6 005f      loop        $AC1.M
07e7 1b7e      srri        @$AR3, $AC0.M
07e8 0092 00ff lri         $CR, #0x00ff
07ea 02df      ret         



07eb 00ff 0360 sr          @0x0360, $AC1.M
07ed 00fe 0361 sr          @0x0361, $AC0.M
07ef 2638      lrs         $AC0.M, @0x0038
07f0 2439      lrs         $AC0.L, @0x0039
07f1 0f05      lris        $AC1.M, #0x05
07f2 02bf 05ad call        0x05ad
07f4 2638      lrs         $AC0.M, @0x0038
07f5 2439      lrs         $AC0.L, @0x0039
07f6 8900      clr         $ACC1
07f7 00df 0361 lr          $AC1.M, @0x0361
07f9 2280      lrs         $AX0.H, @0xff80
07fa d000      mulc        $AC1.M, $AX0.H
07fb 6f00      movp        $ACC1
07fc 4c00      add         $ACC0, $AC1.L
07fd 2e38      srs         @0x0038, $AC0.M
07fe 2c39      srs         @0x0039, $AC0.L
07ff 8100      clr         $ACC0
0800 00de 0361 lr          $AC0.M, @0x0361
0802 007e 086b bloop       $AC0.M, 0x086b
0804 0080 ffd3 lri         $AR0, #0xffd3
0806 0084 0000 lri         $IX0, #0x0000
0808 199e      lrrn        $AC0.M, @$AR0
0809 8900      clr         $ACC1
080a 1ffe      mrr         $AC1.M, $AC0.M
080b 1401      lsl         $ACC0, #1
080c 0240 001e andi        $AC0.M, #0x001e
080e 0200 0300 addi        $AC0.M, #0x0300
0810 1c3e      mrr         $AR1, $AC0.M
0811 157c      lsr         $ACC1, #-4
0812 0340 000f andi        $AC1.M, #0x000f
0814 0a11      lris        $AX0.H, #0x11
0815 5500      subr        $ACC1, $AX0.H
0816 8100      clr         $ACC0
0817 2680      lrs         $AC0.M, @0xff80
0818 0605      cmpis       $ACC0, #0x05
0819 0295 0832 jz          0x0832
081b 009a 00f0 lri         $AX0.H, #0x00f0
081d 0b0f      lris        $AX1.H, #0x0f
081e 0082 0364 lri         $AR2, #0x0364
0820 1998      lrrn        $AX0.L, @$AR0
0821 6000      movr        $ACC0, $AX0.L
0822 1107 0829 bloopi      #0x07, 0x0829
0824 3400      andr        $AC0.M, $AX0.H
0825 1408      lsl         $ACC0, #8
0826 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
0827 3644      andr'ln     $AC0.M, $AX1.H : $AX0.L, @$AR0
0828 140c      lsl         $ACC0, #12
0829 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
082a 3400      andr        $AC0.M, $AX0.H
082b 1408      lsl         $ACC0, #8
082c 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
082d 3600      andr        $AC0.M, $AX1.H
082e 140c      lsl         $ACC0, #12
082f 1b5e      srri        @$AR2, $AC0.M
0830 029f 0852 jmp         0x0852



0832 009a c000 lri         $AX0.H, #0xc000
0834 0082 0364 lri         $AR2, #0x0364
0836 1998      lrrn        $AX0.L, @$AR0
0837 6000      movr        $ACC0, $AX0.L
0838 1103 0845 bloopi      #0x03, 0x0845
083a 1408      lsl         $ACC0, #8
083b 3400      andr        $AC0.M, $AX0.H
083c 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
083d 140a      lsl         $ACC0, #10
083e 3400      andr        $AC0.M, $AX0.H
083f 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
0840 140c      lsl         $ACC0, #12
0841 3400      andr        $AC0.M, $AX0.H
0842 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
0843 140e      lsl         $ACC0, #14
0844 3444      andr'ln     $AC0.M, $AX0.H : $AX0.L, @$AR0
0845 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
0846 1408      lsl         $ACC0, #8
0847 3400      andr        $AC0.M, $AX0.H
0848 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
0849 140a      lsl         $ACC0, #10
084a 3400      andr        $AC0.M, $AX0.H
084b 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
084c 140c      lsl         $ACC0, #12
084d 3400      andr        $AC0.M, $AX0.H
084e 6032      movr's      $ACC0, $AX0.L : @$AR2, $AC0.M
084f 140e      lsl         $ACC0, #14
0850 3400      andr        $AC0.M, $AX0.H
0851 1b5e      srri        @$AR2, $AC0.M
0852 8f00      set40       
0853 1f7f      mrr         $AX1.H, $AC1.M
0854 2066      lrs         $AX0.L, @0x0066
0855 2767      lrs         $AC1.M, @0x0067
0856 193a      lrri        $AX0.H, @$AR1
0857 1939      lrri        $AX1.L, @$AR1
0858 0080 0364 lri         $AR0, #0x0364
085a 1c80      mrr         $IX0, $AR0
085b a000      mulx        $AX0.L, $AX1.L
085c ea70      maddc'l     $AC1.M, $AX1.L : $AC0.M, @$AR0
085d 1108 0866 bloopi      #0x08, 0x0866
085f 3a93      orr'sl      $AC0.M, $AX1.H : $AC1.M, $AX1.L
0860 a478      mulxac'l    $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
0861 1485      asl         $ACC0, #5
0862 e833      maddc's     $AC0.M, $AX1.L : @$AR3, $AC0.M
0863 3b92      orr'sl      $AC1.M, $AX1.H : $AC0.M, $AX1.L
0864 a570      mulxac'l    $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
0865 1585      asl         $ACC1, #5
0866 ea3b      maddc's     $AC1.M, $AX1.L : @$AR3, $AC1.M
0867 2f67      srs         @0x0067, $AC1.M
0868 8e00      set16       
0869 1ff8      mrr         $AC1.M, $AX0.L
086a 2f66      srs         @0x0066, $AC1.M
086b 8900      clr         $ACC1
086c 00df 0360 lr          $AC1.M, @0x0360
086e 02df      ret         


086f b100      tst         $ACC0
0870 02d5      retz        
0871 04fe      addis       $ACC0, #0xfe
0872 1f1e      mrr         $AX0.L, $AC0.M
0873 191e      lrri        $AC0.M, @$AR0
0874 0291 087a js          0x087a
0876 191a      lrri        $AX0.H, @$AR0
0877 0058      loop        $AX0.L
0878 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0879 6433      movr's      $ACC0, $AX0.H : @$AR3, $AC0.M
087a 1b7e      srri        @$AR3, $AC0.M
087b 02df      ret         


// Another jump table dispatcher. Not sure what it is.
087c 8100      clr         $ACC0
087d 1f5e      mrr         $AX0.H, $AC0.M
087e 00d8 0402 lr          $AX0.L, @0x0402
0880 00dc 0430 lr          $AC0.L, @0x0430
0882 0080 0520 lri         $AR0, #0x0520
0884 00df 0480 lr          $AC1.M, @0x0480
0886 1501      lsl         $ACC1, #1
0887 0340 007e andi        $AC1.M, #0x007e
0889 0300 0891 addi        $AC1.M, #0x0891
088b 1c5f      mrr         $AR2, $AC1.M
088c 175f      callr       $AR2
088d 00fc 0430 sr          @0x0430, $AC0.L
088f 029f 02d8 jmp         0x02d8   // 0
0891 029f 08b2 jmp         0x08b2   // 1
0893 029f 08ed jmp         0x08ed   // 2
0895 029f 08d5 jmp         0x08d5   // 3
0897 029f 08c2 jmp         0x08c2   // 4
0899 029f 08fb jmp         0x08fb   // 5
089b 029f 08b1 jmp         0x08b1   // 6
089d 029f 0919 jmp         0x0919   // 7
089f 029f 091c jmp         0x091c   // 8
08a1 029f 08b1 jmp         0x08b1   // 9
08a3 029f 08b1 jmp         0x08b1   // 10
08a5 029f 093a jmp         0x093a   // 11
08a7 029f 08f3 jmp         0x08f3   // 12
08a9 029f 08f7 jmp         0x08f7   // 13
08ab 029f 08b1 jmp         0x08b1   // 14
08ad 029f 08b1 jmp         0x08b1   // 15
08af 029f 08b1 jmp         0x08b1   // 16 (huh? one too much)

// 88c Call targets 6, 9, 10, 14, 15, 16.  (Nop)
08b1 02df      ret         

// Could this stuff be some zany audio decompression?
// CT1 seems to unpack the bits of ac0 and write either
// 0xc000 or 0x4000 to the output depending on 1 bit of acc0.
// CT4 does the same but depends on 2 bits of acc0.
// CT3 is similar but also seems to accumulate some value.
// CT2 just stores a ramp.
// Not sure what CT5 does.
// CT12 and CT13 are variants of CT5.
// CT7 is just a memset.
//

// 88c Call target 1.
08b2 1401      lsl         $ACC0, #1
08b3 009b c000 lri         $AX1.H, #0xc000
08b5 0099 4000 lri         $AX1.L, #0x4000
08b7 1150 08bf bloopi      #0x50, 0x08bf
08b9 02c0 0001 andcf       $AC0.M, #0x0001
08bb 027c      iflnz       
08bc 1b1b      srri        @$AR0, $AX1.H
08bd 027d      iflz        
08be 1b19      srri        @$AR0, $AX1.L
08bf 4800      addax       $ACC0, $AX0.L
08c0 147f      lsr         $ACC0, #-1
08c1 02df      ret         

// 88c Call target 4.
08c2 1402      lsl         $ACC0, #2
08c3 8900      clr         $ACC1
08c4 1fb8      mrr         $AC1.L, $AX0.L
08c5 1501      lsl         $ACC1, #1
08c6 009b c000 lri         $AX1.H, #0xc000
08c8 0099 4000 lri         $AX1.L, #0x4000
08ca 1150 08d2 bloopi      #0x50, 0x08d2
08cc 02c0 0003 andcf       $AC0.M, #0x0003
08ce 027c      iflnz       
08cf 1b1b      srri        @$AR0, $AX1.H
08d0 027d      iflz        
08d1 1b19      srri        @$AR0, $AX1.L
08d2 4c00      add         $ACC0, $AC1.L
08d3 147e      lsr         $ACC0, #-2
08d4 02df      ret         

// 88c Call target 3.
08d5 1401      lsl         $ACC0, #1
08d6 0081 0ca0 lri         $AR1, #0x0ca0
08d8 009b c000 lri         $AX1.H, #0xc000
08da 0099 4000 lri         $AX1.L, #0x4000
08dc 8900      clr         $ACC1
08dd 0082 0000 lri         $AR2, #0x0000
08df 1150 08ea bloopi      #0x50, 0x08ea
08e1 02c0 0001 andcf       $AC0.M, #0x0001
08e3 027c      iflnz       
08e4 1b1b      srri        @$AR0, $AX1.H
08e5 027d      iflz        
08e6 1b19      srri        @$AR0, $AX1.L
08e7 183d      lrr         $AC1.L, @$AR1
08e8 4900      addax       $ACC1, $AX0.L
08e9 1fe2      mrr         $AC1.M, $AR2
08ea 4c39      add's       $ACC0, $AC1.L : @$AR1, $AC1.M
08eb 147f      lsr         $ACC0, #-1
08ec 02df      ret         

// 88c Call target 2.
08ed 8900      clr         $ACC1
08ee 1fb8      mrr         $AC1.L, $AX0.L
08ef 157f      lsr         $ACC1, #-1
08f0 1050      loopi       #0x50
08f1 4c20      add's       $ACC0, $AC1.L : @$AR0, $AC0.L
08f2 02df      ret         

// 88c Call target 12.
08f3 0082 0180 lri         $AR2, #0x0180
08f5 029f 08fd jmp         0x08fd

// 88c Call target 13.
08f7 0082 01c0 lri         $AR2, #0x01c0
08f9 029f 08fd jmp         0x08fd

// 88c Call target 5.
08fb 0082 0140 lri         $AR2, #0x0140
// 88c targets 12 and 13 forward here with different R02 value.
08fd 008a 003f lri         $WR2, #0x003f
08ff 0086 0000 lri         $IX2, #0x0000
0901 1406      lsl         $ACC0, #6
0902 8900      clr         $ACC1
0903 1fb8      mrr         $AC1.L, $AX0.L
0904 1505      lsl         $ACC1, #5
0905 009b 003f lri         $AX1.H, #0x003f
0907 009a 0000 lri         $AX0.H, #0x0000
0909 3600      andr        $AC0.M, $AX1.H
090a 1cde      mrr         $IX2, $AC0.M
090b 001a      addarn      $AR2, $IX2
090c 3400      andr        $AC0.M, $AX0.H
090d 1150 0913 bloopi      #0x50, 0x0913
090f 4c4a      add'l       $ACC0, $AC1.L : $AX1.L, @$AR2
0910 3606      andr'dr     $AC0.M, $AX1.H : $AR2
0911 1cde      mrr         $IX2, $AC0.M
0912 340e      andr'nr     $AC0.M, $AX0.H : $AR2
0913 1b19      srri        @$AR0, $AX1.L
0914 1fc2      mrr         $AC0.M, $AR2
0915 147a      lsr         $ACC0, #-6
0916 008a ffff lri         $WR2, #0xffff
0918 02df      ret         

// 88c Call target 7.
0919 1050      loopi       #0x50
091a 1b18      srri        @$AR0, $AX0.L
091b 02df      ret         

// 88c Call target 8.
091c 0082 0100 lri         $AR2, #0x0100
091e 008a 003f lri         $WR2, #0x003f
0920 0086 0000 lri         $IX2, #0x0000
0922 1406      lsl         $ACC0, #6
0923 8900      clr         $ACC1
0924 1fb8      mrr         $AC1.L, $AX0.L
0925 1505      lsl         $ACC1, #5
0926 009b 003f lri         $AX1.H, #0x003f
0928 009a 0000 lri         $AX0.H, #0x0000
092a 3600      andr        $AC0.M, $AX1.H
092b 1cde      mrr         $IX2, $AC0.M
092c 001a      addarn      $AR2, $IX2
092d 3400      andr        $AC0.M, $AX0.H
092e 1150 0934 bloopi      #0x50, 0x0934
0930 4c4a      add'l       $ACC0, $AC1.L : $AX1.L, @$AR2
0931 3606      andr'dr     $AC0.M, $AX1.H : $AR2
0932 1cde      mrr         $IX2, $AC0.M
0933 340e      andr'nr     $AC0.M, $AX0.H : $AR2
0934 1b19      srri        @$AR0, $AX1.L
0935 1fc2      mrr         $AC0.M, $AR2
0936 147a      lsr         $ACC0, #-6
0937 008a ffff lri         $WR2, #0xffff
0939 02df      ret         


// 88c Call target 11.
093a 0082 0100 lri         $AR2, #0x0100
093c 008a 003f lri         $WR2, #0x003f
093e 0086 0000 lri         $IX2, #0x0000
0940 0081 0ca0 lri         $AR1, #0x0ca0
0942 1406      lsl         $ACC0, #6
0943 8900      clr         $ACC1
0944 1fb8      mrr         $AC1.L, $AX0.L
0945 1505      lsl         $ACC1, #5
0946 009b 003f lri         $AX1.H, #0x003f
0948 009a 0000 lri         $AX0.H, #0x0000
094a 3600      andr        $AC0.M, $AX1.H
094b 1cde      mrr         $IX2, $AC0.M
094c 001a      addarn      $AR2, $IX2
094d 3400      andr        $AC0.M, $AX0.H
094e 1150 0959 bloopi      #0x50, 0x0959
0950 1939      lrri        $AX1.L, @$AR1
0951 a000      mulx        $AX0.L, $AX1.L
0952 140a      lsl         $ACC0, #10
0953 4e00      addp        $ACC0
0954 1476      lsr         $ACC0, #-10
0955 4c4a      add'l       $ACC0, $AC1.L : $AX1.L, @$AR2
0956 3606      andr'dr     $AC0.M, $AX1.H : $AR2
0957 1cde      mrr         $IX2, $AC0.M
0958 340e      andr'nr     $AC0.M, $AX0.H : $AR2
0959 1b19      srri        @$AR0, $AX1.L
095a 1fc2      mrr         $AC0.M, $AR2
095b 147a      lsr         $ACC0, #-6
095c 008a ffff lri         $WR2, #0xffff
095e 02df      ret         


// recalculate some 020-sized table?
095f 0080 01be lri         $AR0, #0x01be
0961 1918      lrri        $AX0.L, @$AR0
0962 191a      lrri        $AX0.H, @$AR0
0963 0080 0180 lri         $AR0, #0x0180
0965 0083 0180 lri         $AR3, #0x0180
0967 9070      mul'l       $AX0.L, $AX0.H : $AC0.M, @$AR0
0968 1ffe      mrr         $AC1.M, $AC0.M
0969 1120 0970 bloopi      #0x20, 0x0970
096b 7c00      neg         $ACC0
096c d450      mulcac'l    $AC1.M, $AX0.H, $ACC0 : $AX0.H, @$AR0
096d 6533      movr's      $ACC1, $AX0.H : @$AR3, $AC0.M
096e c550      mulcac'l    $AC0.M, $AX0.H, $ACC1 : $AX0.H, @$AR0
096f 1501      lsl         $ACC1, #1
0970 643b      movr's      $ACC0, $AX0.H : @$AR3, $AC1.M
0971 0080 01fe lri         $AR0, #0x01fe
0973 191a      lrri        $AX0.H, @$AR0
0974 1918      lrri        $AX0.L, @$AR0
0975 0080 01c0 lri         $AR0, #0x01c0
0977 0083 01c0 lri         $AR3, #0x01c0
0979 1ff8      mrr         $AC1.M, $AX0.L
097a 9070      mul'l       $AX0.L, $AX0.H : $AC0.M, @$AR0
097b f800      addpaxz     $ACC0, $AX0.H
097c 0240 01ff andi        $AC0.M, #0x01ff
097e 0260 2000 ori         $AC0.M, #0x2000
0980 02bf 0983 call        0x0983
0982 02df      ret         



0983 b900      tst         $ACC1
0984 0272      ifg         
0985 7c00      neg         $ACC0
0986 1f7e      mrr         $AX1.H, $AC0.M
0987 4700      addr        $ACC1, $AX1.H
0988 1110 098d bloopi      #0x10, 0x098d
098a 473b      addr's      $ACC1, $AX1.H : @$AR3, $AC1.M
098b 473b      addr's      $ACC1, $AX1.H : @$AR3, $AC1.M
098c 473b      addr's      $ACC1, $AX1.H : @$AR3, $AC1.M
098d 473b      addr's      $ACC1, $AX1.H : @$AR3, $AC1.M
098e 02df      ret         


098f 0092 0004 lri         $CR, #0x0004
0991 2002      lrs         $AX0.L, @0x0002
0992 8100      clr         $ACC0
0993 8900      clr         $ACC1
0994 2430      lrs         $AC0.L, @0x0030
0995 8d00      set15       
0996 0950      lris        $AX1.L, #0x50
0997 a000      mulx        $AX0.L, $AX1.L
0998 a400      mulxac      $AX0.L, $AX1.L, $ACC0
0999 1404      lsl         $ACC0, #4
099a 8c00      clr15       
099b 1ffe      mrr         $AC1.M, $AC0.M
099c 0083 0580 lri         $AR3, #0x0580
099e 2201      lrs         $AX0.H, @0x0001
099f 8600      tstaxh      $AX0.H
09a0 0294 09b1 jnz         0x09b1
09a2 2204      lrs         $AX0.H, @0x0004
09a3 8600      tstaxh      $AX0.H
09a4 02b4 09f9 callne      0x09f9
09a6 8100      clr         $ACC0
09a7 2605      lrs         $AC0.M, @0x0005
09a8 b100      tst         $ACC0
09a9 0295 09be jz          0x09be
09ab 8100      clr         $ACC0
09ac 2e05      srs         @0x0005, $AC0.M
09ad 2281      lrs         $AX0.H, @0xff81
09ae 8600      tstaxh      $AX0.H
09af 0294 09b8 jnz         0x09b8
09b1 8100      clr         $ACC0
09b2 005f      loop        $AC1.M
09b3 1b7e      srri        @$AR3, $AC0.M
09b4 7400      incm        $AC0.M
09b5 2e01      srs         @0x0001, $AC0.M
09b6 029f 09f2 jmp         0x09f2


// called from 9af above.
09b8 2688      lrs         $AC0.M, @0xff88
09b9 2489      lrs         $AC0.L, @0xff89
09ba 2e34      srs         @0x0034, $AC0.M
09bb 2c35      srs         @0x0035, $AC0.L
09bc 02bf 09f9 call        0x09f9
09be 00ff 0360 sr          @0x0360, $AC1.M
09c0 2638      lrs         $AC0.M, @0x0038
09c1 2439      lrs         $AC0.L, @0x0039
09c2 0f05      lris        $AC1.M, #0x05
09c3 02bf 05ad call        0x05ad
09c5 00df 0360 lr          $AC1.M, @0x0360
09c7 8100      clr         $ACC0
09c8 263a      lrs         $AC0.M, @0x003a
09c9 b100      tst         $ACC0
09ca 0294 09d9 jnz         0x09d9
09cc 263b      lrs         $AC0.M, @0x003b
09cd 5c00      sub         $ACC0, $AC1.L
09ce 0290 09d9 jns         0x09d9
09d0 223b      lrs         $AX0.H, @0x003b
09d1 02bf 0a0a call        0x0a0a  // weird little loop. count = ax0.h
09d3 5500      subr        $ACC1, $AX0.H
09d4 0a01      lris        $AX0.H, #0x01
09d5 00fa 0405 sr          @0x0405, $AX0.H
09d7 029f 09ab jmp         0x09ab



09d9 1f5f      mrr         $AX0.H, $AC1.M
09da 02bf 0a0a call        0x0a0a  // weird little loop. count = ax0.h
09dc 00fa 0362 sr          @0x0362, $AX0.H
09de 8100      clr         $ACC0
09df 263a      lrs         $AC0.M, @0x003a
09e0 243b      lrs         $AC0.L, @0x003b
09e1 1570      lsr         $ACC1, #-16
09e2 0a01      lris        $AX0.H, #0x01
09e3 0081 0405 lri         $AR1, #0x0405
09e5 5c00      sub         $ACC0, $AC1.L
09e6 b100      tst         $ACC0
09e7 0275      ifz         
09e8 1a3a      srr         @$AR1, $AX0.H
09e9 2e3a      srs         @0x003a, $AC0.M
09ea 2c3b      srs         @0x003b, $AC0.L
09eb 2638      lrs         $AC0.M, @0x0038
09ec 2439      lrs         $AC0.L, @0x0039
09ed 00d8 0362 lr          $AX0.L, @0x0362
09ef 7000      addaxl      $ACC0, $AX0.L
09f0 2c39      srs         @0x0039, $AC0.L
09f1 2e38      srs         @0x0038, $AC0.M
09f2 0092 00ff lri         $CR, #0x00ff
09f4 029f 02d0 jmp         0x02d0


// Nobody every calls 9f6... probably 3 lines of dead code.
09f6 8100      clr         $ACC0
09f7 2e34      srs         @0x0034, $AC0.M
09f8 2e35      srs         @0x0035, $AC0.M


//..  entry point here from 9a4, 9bc. Looks kind of like a 32-bit butterfly computation?
09f9 2334      lrs         $AX1.H, @0x0034
09fa 2135      lrs         $AX1.L, @0x0035
09fb 268a      lrs         $AC0.M, @0xff8a
09fc 248b      lrs         $AC0.L, @0xff8b
09fd 5a00      subax       $ACC0, $AX1.L
09fe 2e3a      srs         @0x003a, $AC0.M
09ff 2c3b      srs         @0x003b, $AC0.L
0a00 2634      lrs         $AC0.M, @0x0034
0a01 2435      lrs         $AC0.L, @0x0035
0a02 238c      lrs         $AX1.H, @0xff8c
0a03 218d      lrs         $AX1.L, @0xff8d
0a04 4a00      addax       $ACC0, $AX1.L
0a05 2e38      srs         @0x0038, $AC0.M
0a06 2c39      srs         @0x0039, $AC0.L
0a07 8100      clr         $ACC0
0a08 2e05      srs         @0x0005, $AC0.M
0a09 02df      ret         


// weird little loop. out[i] = in[i] << 8; ?
0a0a 0080 ffd3 lri         $AR0, #0xffd3
0a0c 0084 0000 lri         $IX0, #0x0000
0a0e 007a 0a12 bloop       $AX0.H, 0x0a12
0a10 199e      lrrn        $AC0.M, @$AR0
0a11 1488      asl         $ACC0, #8
0a12 1b7e      srri        @$AR3, $AC0.M
0a13 02df      ret         


0a14 0092 0004 lri         $CR, #0x0004
0a16 2002      lrs         $AX0.L, @0x0002
0a17 8100      clr         $ACC0
0a18 8900      clr         $ACC1
0a19 2430      lrs         $AC0.L, @0x0030
0a1a 8d00      set15       
0a1b 0950      lris        $AX1.L, #0x50
0a1c a000      mulx        $AX0.L, $AX1.L
0a1d a400      mulxac      $AX0.L, $AX1.L, $ACC0
0a1e 1404      lsl         $ACC0, #4
0a1f 8c00      clr15       
0a20 1ffe      mrr         $AC1.M, $AC0.M
0a21 0083 0580 lri         $AR3, #0x0580
0a23 2201      lrs         $AX0.H, @0x0001
0a24 8600      tstaxh      $AX0.H
0a25 0294 0a36 jnz         0x0a36
0a27 2204      lrs         $AX0.H, @0x0004
0a28 8600      tstaxh      $AX0.H
0a29 02b4 0a7f callne      0x0a7f
0a2b 8100      clr         $ACC0
0a2c 2605      lrs         $AC0.M, @0x0005
0a2d b100      tst         $ACC0
0a2e 0295 0a43 jz          0x0a43
0a30 8100      clr         $ACC0  // 0x0a5c jumps here.
0a31 2e05      srs         @0x0005, $AC0.M
0a32 2281      lrs         $AX0.H, @0xff81
0a33 8600      tstaxh      $AX0.H
0a34 0294 0a3d jnz         0x0a3d
0a36 8100      clr         $ACC0
0a37 005f      loop        $AC1.M
0a38 1b7e      srri        @$AR3, $AC0.M
0a39 7400      incm        $AC0.M
0a3a 2e01      srs         @0x0001, $AC0.M
0a3b 029f 0a78 jmp         0x0a78


// VERY similar to 9b8, just a different call.
0a3d 2688      lrs         $AC0.M, @0xff88
0a3e 2489      lrs         $AC0.L, @0xff89
0a3f 2e34      srs         @0x0034, $AC0.M
0a40 2c35      srs         @0x0035, $AC0.L
0a41 02bf 0a7f call        0x0a7f
0a43 00ff 0360 sr          @0x0360, $AC1.M
0a45 2638      lrs         $AC0.M, @0x0038
0a46 2439      lrs         $AC0.L, @0x0039
0a47 0f06      lris        $AC1.M, #0x06
0a48 02bf 05ad call        0x05ad
0a4a 00df 0360 lr          $AC1.M, @0x0360
0a4c 8100      clr         $ACC0
0a4d 263a      lrs         $AC0.M, @0x003a
0a4e b100      tst         $ACC0
0a4f 0294 0a5e jnz         0x0a5e
0a51 263b      lrs         $AC0.M, @0x003b
0a52 5c00      sub         $ACC0, $AC1.L
0a53 0290 0a5e jns         0x0a5e
0a55 223b      lrs         $AX0.H, @0x003b
0a56 02bf 0a91 call        0x0a91
0a58 5500      subr        $ACC1, $AX0.H
0a59 0a01      lris        $AX0.H, #0x01
0a5a 00fa 0405 sr          @0x0405, $AX0.H
0a5c 029f 0a30 jmp         0x0a30


// Identical to 9d9 except an extra ADDAXL.
0a5e 1f5f      mrr         $AX0.H, $AC1.M
0a5f 02bf 0a91 call        0x0a91
0a61 00fa 0362 sr          @0x0362, $AX0.H
0a63 8100      clr         $ACC0
0a64 263a      lrs         $AC0.M, @0x003a
0a65 243b      lrs         $AC0.L, @0x003b
0a66 1570      lsr         $ACC1, #-16
0a67 0a01      lris        $AX0.H, #0x01
0a68 0081 0405 lri         $AR1, #0x0405
0a6a 5c00      sub         $ACC0, $AC1.L
0a6b b100      tst         $ACC0
0a6c 0275      ifz         
0a6d 1a3a      srr         @$AR1, $AX0.H
0a6e 2e3a      srs         @0x003a, $AC0.M
0a6f 2c3b      srs         @0x003b, $AC0.L
0a70 2638      lrs         $AC0.M, @0x0038
0a71 2439      lrs         $AC0.L, @0x0039
0a72 00d8 0362 lr          $AX0.L, @0x0362
0a74 7000      addaxl      $ACC0, $AX0.L
0a75 7000      addaxl      $ACC0, $AX0.L
0a76 2c39      srs         @0x0039, $AC0.L
0a77 2e38      srs         @0x0038, $AC0.M
0a78 0092 00ff lri         $CR, #0x00ff
0a7a 029f 02d0 jmp         0x02d0



0a7c 8100      clr         $ACC0
0a7d 2e34      srs         @0x0034, $AC0.M
0a7e 2e35      srs         @0x0035, $AC0.M
0a7f 2334      lrs         $AX1.H, @0x0034
0a80 2135      lrs         $AX1.L, @0x0035
0a81 268a      lrs         $AC0.M, @0xff8a
0a82 248b      lrs         $AC0.L, @0xff8b
0a83 5a00      subax       $ACC0, $AX1.L
0a84 2e3a      srs         @0x003a, $AC0.M
0a85 2c3b      srs         @0x003b, $AC0.L
0a86 2634      lrs         $AC0.M, @0x0034
0a87 2435      lrs         $AC0.L, @0x0035
0a88 1401      lsl         $ACC0, #1
0a89 238c      lrs         $AX1.H, @0xff8c
0a8a 218d      lrs         $AX1.L, @0xff8d
0a8b 4a00      addax       $ACC0, $AX1.L
0a8c 2e38      srs         @0x0038, $AC0.M
0a8d 2c39      srs         @0x0039, $AC0.L
0a8e 8100      clr         $ACC0
0a8f 2e05      srs         @0x0005, $AC0.M
0a90 02df      ret         




0a91 0080 ffd3 lri         $AR0, #0xffd3
0a93 0084 0000 lri         $IX0, #0x0000
0a95 007a 0a98 bloop       $AX0.H, 0x0a98
0a97 199e      lrrn        $AC0.M, @$AR0
0a98 1b7e      srri        @$AR3, $AC0.M
0a99 02df      ret         



0a9a 8900      clr         $ACC1
0a9b 0f50      lris        $AC1.M, #0x50
0a9c 0083 0520 lri         $AR3, #0x0520
0a9e 02bf 0ab3 call        0x0ab3
0aa0 029f 02d8 jmp         0x02d8



0aa2 00d8 0402 lr          $AX0.L, @0x0402
0aa4 8100      clr         $ACC0
0aa5 8900      clr         $ACC1
0aa6 00dc 0430 lr          $AC0.L, @0x0430
0aa8 0a50      lris        $AX0.H, #0x50
0aa9 9000      mul         $AX0.L, $AX0.H
0aaa 9400      mulac       $AX0.L, $AX0.H, $ACC0
0aab 1404      lsl         $ACC0, #4
0aac 1ffe      mrr         $AC1.M, $AC0.M
0aad 0083 0580 lri         $AR3, #0x0580
0aaf 02bf 0ab3 call        0x0ab3
0ab1 029f 02d0 jmp         0x02d0



0ab3 0092 0004 lri         $CR, #0x0004
0ab5 8100      clr         $ACC0
0ab6 263a      lrs         $AC0.M, @0x003a
0ab7 243b      lrs         $AC0.L, @0x003b
0ab8 1f1f      mrr         $AX0.L, $AC1.M
0ab9 0a00      lris        $AX0.H, #0x00
0aba 5800      subax       $ACC0, $AX0.L
0abb 0292 0ad1 jg          0x0ad1
0abd 8900      clr         $ACC1
0abe 00c0 043b lr          $AR0, @0x043b
0ac0 02bf 0af6 call        0x0af6
0ac2 8100      clr         $ACC0
0ac3 1fd8      mrr         $AC0.M, $AX0.L
0ac4 223b      lrs         $AX0.H, @0x003b
0ac5 5400      subr        $ACC0, $AX0.H
0ac6 0007      dar         $AR3
0ac7 1979      lrri        $AX1.L, @$AR3
0ac8 005e      loop        $AC0.M
0ac9 1b79      srri        @$AR3, $AX1.L
0aca 0f01      lris        $AC1.M, #0x01
0acb 2f01      srs         @0x0001, $AC1.M
0acc 8900      clr         $ACC1
0acd 2f3b      srs         @0x003b, $AC1.M
0ace 0092 00ff lri         $CR, #0x00ff
0ad0 02df      ret         



0ad1 2e3a      srs         @0x003a, $AC0.M
0ad2 2c3b      srs         @0x003b, $AC0.L
0ad3 8100      clr         $ACC0
0ad4 8900      clr         $ACC1
0ad5 268a      lrs         $AC0.M, @0xff8a
0ad6 2734      lrs         $AC1.M, @0x0034
0ad7 5c00      sub         $ACC0, $AC1.L
0ad8 2e36      srs         @0x0036, $AC0.M
0ad9 5000      subr        $ACC0, $AX0.L
0ada 0290 0af0 jns         0x0af0
0adc 00c0 0436 lr          $AR0, @0x0436
0ade 02bf 0af6 call        0x0af6
0ae0 8100      clr         $ACC0
0ae1 1fd8      mrr         $AC0.M, $AX0.L
0ae2 2236      lrs         $AX0.H, @0x0036
0ae3 5400      subr        $ACC0, $AX0.H
0ae4 1c1e      mrr         $AR0, $AC0.M
0ae5 8100      clr         $ACC0
0ae6 2e34      srs         @0x0034, $AC0.M
0ae7 2688      lrs         $AC0.M, @0xff88
0ae8 2489      lrs         $AC0.L, @0xff89
0ae9 2e8c      srs         @0xff8c, $AC0.M
0aea 2c8d      srs         @0xff8d, $AC0.L
0aeb 02bf 0af6 call        0x0af6
0aed 0092 00ff lri         $CR, #0x00ff
0aef 02df      ret         



0af0 1c18      mrr         $AR0, $AX0.L
0af1 02bf 0af6 call        0x0af6
0af3 0092 00ff lri         $CR, #0x00ff
0af5 02df      ret         
0af6 8100      clr         $ACC0
0af7 1fc0      mrr         $AC0.M, $AR0
0af8 b100      tst         $ACC0
0af9 02d5      retz        
0afa 8900      clr         $ACC1
0afb 2734      lrs         $AC1.M, @0x0034
0afc 0340 0001 andi        $AC1.M, #0x0001
0afe 0b00      lris        $AX1.H, #0x00
0aff 1f3f      mrr         $AX1.L, $AC1.M
0b00 268c      lrs         $AC0.M, @0xff8c
0b01 248d      lrs         $AC0.L, @0xff8d
0b02 8900      clr         $ACC1
0b03 2534      lrs         $AC1.L, @0x0034
0b04 1501      lsl         $ACC1, #1
0b05 4c00      add         $ACC0, $AC1.L
0b06 5a00      subax       $ACC0, $AX1.L
0b07 5a00      subax       $ACC0, $AX1.L
0b08 1c20      mrr         $AR1, $AR0
0b09 1fe0      mrr         $AC1.M, $AR0
0b0a 0502      addis       $ACC1, #0x02
0b0b 1c1f      mrr         $AR0, $AC1.M
0b0c 009f 0b00 lri         $AC1.M, #0x0b00
0b0e 0092 00ff lri         $CR, #0x00ff
0b10 02bf 0525 call        0x0525					// RAMtoDMEM(DMEM=$AC1.M, AC0=MEMADDR, R00=Len)
0b12 0092 0004 lri         $CR, #0x0004
0b14 2734      lrs         $AC1.M, @0x0034
0b15 1f61      mrr         $AX1.H, $AR1
0b16 4700      addr        $ACC1, $AX1.H
0b17 2f34      srs         @0x0034, $AC1.M
0b18 0080 0b00 lri         $AR0, #0x0b00
0b1a 8900      clr         $ACC1
0b1b 1ff9      mrr         $AC1.M, $AX1.L
0b1c b900      tst         $ACC1
0b1d 0274      ifnz        
0b1e 0008      iar         $AR0
0b1f 8900      clr         $ACC1
0b20 1fe1      mrr         $AC1.M, $AR1
0b21 191e      lrri        $AC0.M, @$AR0
0b22 0701      cmpis       $ACC1, #0x01
0b23 0293 0b2c jle         0x0b2c
0b25 191a      lrri        $AX0.H, @$AR0
0b26 05fe      addis       $ACC1, #0xfe
0b27 005f      loop        $AC1.M
0b28 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0b29 1b7e      srri        @$AR3, $AC0.M
0b2a 1b7a      srri        @$AR3, $AX0.H
0b2b 02df      ret         



0b2c 1b7e      srri        @$AR3, $AC0.M
0b2d 02df      ret         



0b2e 8a00      m2          
0b2f 0083 03e8 lri         $AR3, #0x03e8
0b31 191e      lrri        $AC0.M, @$AR0
0b32 191a      lrri        $AX0.H, @$AR0
0b33 1006      loopi       #0x06
0b34 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0b35 1b7e      srri        @$AR3, $AC0.M
0b36 1b7a      srri        @$AR3, $AX0.H
0b37 0080 03e8 lri         $AR0, #0x03e8
0b39 0088 0007 lri         $WR0, #0x0007
0b3b 1150 0b48 bloopi      #0x50, 0x0b48
0b3d 1c61      mrr         $AR3, $AR1
0b3e 84c3      clrp'ld     : $AX0.L, $AX1.L, @$AR3
0b3f f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b40 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b41 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b42 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b43 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b44 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b45 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b46 f200      madd        $AX0.L, $AX0.H
0b47 fe00      movpz       $ACC0
0b48 1b3e      srri        @$AR1, $AC0.M
0b49 0088 ffff lri         $WR0, #0xffff
0b4b 8b00      m0          
0b4c 02df      ret         



0b4d 8a00      m2          
0b4e 05fe      addis       $ACC1, #0xfe
0b4f 0083 03e8 lri         $AR3, #0x03e8
0b51 191e      lrri        $AC0.M, @$AR0
0b52 191a      lrri        $AX0.H, @$AR0
0b53 005f      loop        $AC1.M
0b54 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0b55 1b7e      srri        @$AR3, $AC0.M
0b56 1b7a      srri        @$AR3, $AX0.H
0b57 0080 03e8 lri         $AR0, #0x03e8
0b59 0501      addis       $ACC1, #0x01
0b5a 1d1f      mrr         $WR0, $AC1.M
0b5b 1150 0b63 bloopi      #0x50, 0x0b63
0b5d 1c61      mrr         $AR3, $AR1
0b5e 84c3      clrp'ld     : $AX0.L, $AX1.L, @$AR3
0b5f 005f      loop        $AC1.M
0b60 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0b61 f200      madd        $AX0.L, $AX0.H
0b62 fe00      movpz       $ACC0
0b63 1b3e      srri        @$AR1, $AC0.M
0b64 0088 ffff lri         $WR0, #0xffff
0b66 8b00      m0          
0b67 02df      ret         



0b68 0083 03e8 lri         $AR3, #0x03e8
0b6a 191e      lrri        $AC0.M, @$AR0
0b6b 191a      lrri        $AX0.H, @$AR0
0b6c 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0b6d 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0b6e 1b7e      srri        @$AR3, $AC0.M
0b6f 1b7a      srri        @$AR3, $AX0.H
0b70 0080 03e8 lri         $AR0, #0x03e8
0b72 0088 0003 lri         $WR0, #0x0003
0b74 0085 0000 lri         $IX1, #0x0000
0b76 0087 0000 lri         $IX3, #0x0000
0b78 1fc2      mrr         $AC0.M, $AR2
0b79 195b      lrri        $AX1.H, @$AR2
0b7a 1959      lrri        $AX1.L, @$AR2
0b7b 195f      lrri        $AC1.M, @$AR2
0b7c 195a      lrri        $AX0.H, @$AR2
0b7d 1c5e      mrr         $AR2, $AC0.M
0b7e 1fda      mrr         $AC0.M, $AX0.H
0b7f 1c61      mrr         $AR3, $AR1
0b80 8a00      m2          
0b81 8f00      set40       
0b82 191a      lrri        $AX0.H, @$AR0
0b83 b850      mulx'l      $AX0.H, $AX1.H : $AX0.H, @$AR0
0b84 e250      maddx'l     $AX0.H, $AX1.L : $AX0.H, @$AR0
0b85 ea50      maddc'l     $AC1.M, $AX1.L : $AX0.H, @$AR0
0b86 e8e8      maddc'ldm   $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
0b87 b650      mulxmv'l    $AX0.H, $AX1.L, $ACC0 : $AX0.H, @$AR0
0b88 1127 0b93 bloopi      #0x27, 0x0b93
0b8a e3a8      maddx'lsm   $AX0.H, $AX1.H : $AX0.H, $AC0.M
0b8b 197e      lrri        $AC0.M, @$AR3
0b8c e850      maddc'l     $AC0.M, $AX1.L : $AX0.H, @$AR0
0b8d eaf8      maddc'ldm   $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
0b8e bf50      mulxmv'l    $AX0.H, $AX1.H, $ACC1 : $AX0.H, @$AR0
0b8f e2a9      maddx'lsm   $AX0.H, $AX1.L : $AX0.H, $AC1.M
0b90 197f      lrri        $AC1.M, @$AR3
0b91 ea50      maddc'l     $AC1.M, $AX1.L : $AX0.H, @$AR0
0b92 e8e8      maddc'ldm   $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
0b93 b650      mulxmv'l    $AX0.H, $AX1.L, $ACC0 : $AX0.H, @$AR0
0b94 e3a8      maddx'lsm   $AX0.H, $AX1.H : $AX0.H, $AC0.M
0b95 197e      lrri        $AC0.M, @$AR3
0b96 e850      maddc'l     $AC0.M, $AX1.L : $AX0.H, @$AR0
0b97 eaf8      maddc'ldm   $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
0b98 bf00      mulxmv      $AX0.H, $AX1.H, $ACC1
0b99 1bff      srrn        @$AR3, $AC1.M
0b9a 197f      lrri        $AC1.M, @$AR3
0b9b 8e00      set16       
0b9c 8b00      m0          
0b9d 0088 ffff lri         $WR0, #0xffff
0b9f 1b5b      srri        @$AR2, $AX1.H
0ba0 1b59      srri        @$AR2, $AX1.L
0ba1 1b5f      srri        @$AR2, $AC1.M
0ba2 1b5e      srri        @$AR2, $AC0.M
0ba3 02df      ret         



0ba4 0083 03e8 lri         $AR3, #0x03e8
0ba6 191e      lrri        $AC0.M, @$AR0
0ba7 191a      lrri        $AX0.H, @$AR0
0ba8 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0ba9 64a0      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC0.M
0baa 1b7e      srri        @$AR3, $AC0.M
0bab 1b7a      srri        @$AR3, $AX0.H
0bac 0080 03e8 lri         $AR0, #0x03e8
0bae 0088 0003 lri         $WR0, #0x0003
0bb0 0085 0000 lri         $IX1, #0x0000
0bb2 0087 0000 lri         $IX3, #0x0000
0bb4 1fc2      mrr         $AC0.M, $AR2
0bb5 195b      lrri        $AX1.H, @$AR2
0bb6 1959      lrri        $AX1.L, @$AR2
0bb7 195f      lrri        $AC1.M, @$AR2
0bb8 195a      lrri        $AX0.H, @$AR2
0bb9 1c5e      mrr         $AR2, $AC0.M
0bba 1fda      mrr         $AC0.M, $AX0.H
0bbb 1c61      mrr         $AR3, $AR1
0bbc 8a00      m2          
0bbd 8f00      set40       
0bbe 191a      lrri        $AX0.H, @$AR0
0bbf b800      mulx        $AX0.H, $AX1.H
0bc0 e350      maddx'l     $AX0.H, $AX1.H : $AX0.H, @$AR0
0bc1 e250      maddx'l     $AX0.H, $AX1.L : $AX0.H, @$AR0
0bc2 ea00      maddc       $AC1.M, $AX1.L
0bc3 ea50      maddc'l     $AC1.M, $AX1.L : $AX0.H, @$AR0
0bc4 e877      maddc'ln    $AC0.M, $AX1.L : $AC0.M, @$AR3
0bc5 ece8      msubc'ldm   $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
0bc6 b200      mulxmvz     $AX0.H, $AX1.L, $ACC0
0bc7 1127 0bd8 bloopi      #0x27, 0x0bd8
0bc9 e250      maddx'l     $AX0.H, $AX1.L : $AX0.H, @$AR0
0bca e3a8      maddx'lsm   $AX0.H, $AX1.H : $AX0.H, $AC0.M
0bcb 197e      lrri        $AC0.M, @$AR3
0bcc e800      maddc       $AC0.M, $AX1.L
0bcd e850      maddc'l     $AC0.M, $AX1.L : $AX0.H, @$AR0
0bce ea7f      maddc'ln    $AC1.M, $AX1.L : $AC1.M, @$AR3
0bcf eef8      msubc'ldm   $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
0bd0 bb00      mulxmvz     $AX0.H, $AX1.H, $ACC1
0bd1 e350      maddx'l     $AX0.H, $AX1.H : $AX0.H, @$AR0
0bd2 e2a9      maddx'lsm   $AX0.H, $AX1.L : $AX0.H, $AC1.M
0bd3 197f      lrri        $AC1.M, @$AR3
0bd4 ea00      maddc       $AC1.M, $AX1.L
0bd5 ea50      maddc'l     $AC1.M, $AX1.L : $AX0.H, @$AR0
0bd6 e877      maddc'ln    $AC0.M, $AX1.L : $AC0.M, @$AR3
0bd7 ece8      msubc'ldm   $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
0bd8 b200      mulxmvz     $AX0.H, $AX1.L, $ACC0
0bd9 e250      maddx'l     $AX0.H, $AX1.L : $AX0.H, @$AR0
0bda e3a8      maddx'lsm   $AX0.H, $AX1.H : $AX0.H, $AC0.M
0bdb 197e      lrri        $AC0.M, @$AR3
0bdc e800      maddc       $AC0.M, $AX1.L
0bdd e850      maddc'l     $AC0.M, $AX1.L : $AX0.H, @$AR0
0bde ea7f      maddc'ln    $AC1.M, $AX1.L : $AC1.M, @$AR3
0bdf eef8      msubc'ldm   $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
0be0 bb00      mulxmvz     $AX0.H, $AX1.H, $ACC1
0be1 1bff      srrn        @$AR3, $AC1.M
0be2 197f      lrri        $AC1.M, @$AR3
0be3 8e00      set16       
0be4 8b00      m0          
0be5 0088 ffff lri         $WR0, #0xffff
0be7 1b5b      srri        @$AR2, $AX1.H
0be8 1b59      srri        @$AR2, $AX1.L
0be9 1b5f      srri        @$AR2, $AC1.M
0bea 1b5e      srri        @$AR2, $AC0.M
0beb 02df      ret         



0bec 0eff      lris        $AC0.M, #0xff
0bed 00fe 03f2 sr          @0x03f2, $AC0.M
0bef 8100      clr         $ACC0
0bf0 00fe 03f0 sr          @0x03f0, $AC0.M
0bf2 00fe 03f6 sr          @0x03f6, $AC0.M
0bf4 009e 0100 lri         $AC0.M, #0x0100
0bf6 00fe 03f7 sr          @0x03f7, $AC0.M
0bf8 00da 03f7 lr          $AX0.H, @0x03f7
0bfa 009e 8000 lri         $AC0.M, #0x8000
0bfc 5400      subr        $ACC0, $AX0.H
0bfd 00fe 03f5 sr          @0x03f5, $AC0.M
0bff 0e30      lris        $AC0.M, #0x30
0c00 00fe 03f3 sr          @0x03f3, $AC0.M
0c02 0e10      lris        $AC0.M, #0x10
0c03 00fe 03f4 sr          @0x03f4, $AC0.M
0c05 009e 0096 lri         $AC0.M, #0x0096
0c07 00fe 03f1 sr          @0x03f1, $AC0.M
0c09 02df      ret         



0c0a 0080 0a00 lri         $AR0, #0x0a00
0c0c 8100      clr         $ACC0
0c0d 00de 03f0 lr          $AC0.M, @0x03f0
0c0f 8900      clr         $ACC1
0c10 b100      tst         $ACC0
0c11 0275      ifz         
0c12 0550      addis       $ACC1, #0x50
0c13 00ff 03f0 sr          @0x03f0, $AC1.M
0c15 0200 0a60 addi        $AC0.M, #0x0a60
0c17 1c7e      mrr         $AR3, $AC0.M
0c18 0f4e      lris        $AC1.M, #0x4e
0c19 02bf 00da call        0x00da					// CopyMemory(LEN=$AC1.M, *R00=SRC, *R03=DEST)
0c1b 02df      ret         



0c1c 00de 03f1 lr          $AC0.M, @0x03f1
0c1e 0200 0a60 addi        $AC0.M, #0x0a60
0c20 1c7e      mrr         $AR3, $AC0.M
0c21 8100      clr         $ACC0
0c22 8900      clr         $ACC1
0c23 009f 00a0 lri         $AC1.M, #0x00a0
0c25 00de 03f1 lr          $AC0.M, @0x03f1
0c27 5d00      sub         $ACC1, $AC0.L
0c28 0e50      lris        $AC0.M, #0x50
0c29 0750      cmpis       $ACC1, #0x50
0c2a 0270      ifns        
0c2b 5d00      sub         $ACC1, $AC0.L
0c2c 00da 03f2 lr          $AX0.H, @0x03f2
0c2e 8600      tstaxh      $AX0.H
0c2f 0290 0c4d jns         0x0c4d
0c31 00de 03f3 lr          $AC0.M, @0x03f3
0c33 5c00      sub         $ACC0, $AC1.L
0c34 0293 0c38 jle         0x0c38
0c36 029f 0c52 jmp         0x0c52
0c38 00db 03f7 lr          $AX1.H, @0x03f7
0c3a 009e 8000 lri         $AC0.M, #0x8000
0c3c 4600      addr        $ACC0, $AX1.H
0c3d 029f 0c44 jmp         0x0c44
0c3f 00db 03f7 lr          $AX1.H, @0x03f7
0c41 009e 8000 lri         $AC0.M, #0x8000
0c43 5600      subr        $ACC0, $AX1.H
0c44 00fe 03f5 sr          @0x03f5, $AC0.M
0c46 1fda      mrr         $AC0.M, $AX0.H
0c47 7c00      neg         $ACC0
0c48 1f5e      mrr         $AX0.H, $AC0.M
0c49 00fe 03f2 sr          @0x03f2, $AC0.M
0c4b 029f 0c52 jmp         0x0c52
0c4d 00de 03f4 lr          $AC0.M, @0x03f4
0c4f 5d00      sub         $ACC1, $AC0.L
0c50 0293 0c3f jle         0x0c3f
0c52 8900      clr         $ACC1
0c53 00dd 03f5 lr          $AC1.L, @0x03f5
0c55 1501      lsl         $ACC1, #1
0c56 8100      clr         $ACC0
0c57 00dc 03f6 lr          $AC0.L, @0x03f6
0c59 008b 009f lri         $WR3, #0x009f
0c5b 0080 0a00 lri         $AR0, #0x0a00
0c5d 0900      lris        $AX1.L, #0x00
0c5e 1150 0c65 bloopi      #0x50, 0x0c65
0c60 1878      lrr         $AX0.L, @$AR3
0c61 4c00      add         $ACC0, $AC1.L
0c62 1cfe      mrr         $IX3, $AC0.M
0c63 001f      addarn      $AR3, $IX3
0c64 1fd9      mrr         $AC0.M, $AX1.L
0c65 1b18      srri        @$AR0, $AX0.L
0c66 009f 0a60 lri         $AC1.M, #0x0a60
0c68 1fc3      mrr         $AC0.M, $AR3
0c69 5c00      sub         $ACC0, $AC1.L
0c6a 00fe 03f1 sr          @0x03f1, $AC0.M
0c6c 00fc 03f6 sr          @0x03f6, $AC0.L
0c6e 008b ffff lri         $WR3, #0xffff
0c70 02df      ret         



0c71 0f50      lris        $AC1.M, #0x50
0c72 0080 0a00 lri         $AR0, #0x0a00
0c74 0083 0d60 lri         $AR3, #0x0d60
0c76 0098 3fff lri         $AX0.L, #0x3fff
0c78 02bf 00eb call        0x00eb  // one of the multiply loops
0c7a 0f50      lris        $AC1.M, #0x50
0c7b 0080 0a00 lri         $AR0, #0x0a00
0c7d 0083 0d00 lri         $AR3, #0x0d00
0c7f 0098 3fff lri         $AX0.L, #0x3fff
0c81 02bf 00eb call        0x00eb  // one of the multiply loops
0c83 02df      ret         



0c84 8a00      m2          
0c85 8f00      set40       
0c86 8100      clr         $ACC0
0c87 00de 0404 lr          $AC0.M, @0x0404
0c89 b100      tst         $ACC0
0c8a 0295 0c91 jz          0x0c91
0c8c 8100      clr         $ACC0
0c8d 00fe 0478 sr          @0x0478, $AC0.M
0c8f 00fe 0479 sr          @0x0479, $AC0.M
0c91 00df 0479 lr          $AC1.M, @0x0479
0c93 00db 0478 lr          $AX1.H, @0x0478
0c95 0900      lris        $AX1.L, #0x00
0c96 0084 0000 lri         $IX0, #0x0000
0c98 1150 0ca1 bloopi      #0x50, 0x0ca1
0c9a 199e      lrrn        $AC0.M, @$AR0
0c9b 5c7c      sub'ln      $ACC0, $AC1.L : $AC1.M, @$AR0
0c9c c000      mulc        $AC0.M, $AX0.H
0c9d 6e00      movp        $ACC0
0c9e 1488      asl         $ACC0, #8
0c9f 4a00      addax       $ACC0, $AX1.L
0ca0 1b1e      srri        @$AR0, $AC0.M
0ca1 1f7e      mrr         $AX1.H, $AC0.M
0ca2 00fb 0478 sr          @0x0478, $AX1.H
0ca4 00ff 0479 sr          @0x0479, $AC1.M
0ca6 8b00      m0          
0ca7 8e00      set16       
0ca8 02df      ret         


0ca9 b900      tst         $ACC1
0caa 0294 0caf jnz         0x0caf
0cac 6800      movax       $ACC0, $AX0.L
0cad b100      tst         $ACC0
0cae 02d5      retz        
//...
0caf 1c23      mrr         $AR1, $AR3
0cb0 197e      lrri        $AC0.M, @$AR3
0cb1 191b      lrri        $AX1.H, @$AR0
0cb2 d858      mulc'l      $AC1.M, $AX1.H : $AX1.H, @$AR0
0cb3 1120 0cb9 bloopi      #0x20, 0x0cb9
0cb5 dcd3      mulcac'ld   $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
0cb6 6231      movr's      $ACC0, $AX1.L : @$AR1, $AC0.M
0cb7 dcd3      mulcac'ld   $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
0cb8 6231      movr's      $ACC0, $AX1.L : @$AR1, $AC0.M
0cb9 4900      addax       $ACC1, $AX0.L
0cba 1108 0cbf bloopi      #0x08, 0x0cbf
0cbc dcd3      mulcac'ld   $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
0cbd 6231      movr's      $ACC0, $AX1.L : @$AR1, $AC0.M
0cbe dcd3      mulcac'ld   $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
0cbf 6231      movr's      $ACC0, $AX1.L : @$AR1, $AC0.M
0cc0 02df      ret         


// Yet another multiply loop. bufsize = 0x28
0cc1 8f00      set40       
0cc2 8d00      set15       
0cc3 1c03      mrr         $AR0, $AR3
0cc4 00d9 038e lr          $AX1.L, @0x038e
0cc6 0b04      lris        $AX1.H, #0x04
0cc7 197a      lrri        $AX0.H, @$AR3
0cc8 b053      mulx'l      $AX0.H, $AX1.L : $AX0.H, @$AR3
0cc9 b600      mulxmv      $AX0.H, $AX1.L, $ACC0
0cca 1128 0ccf bloopi      #0x28, 0x0ccf
0ccc 3ad3      orr'ld      $AC0.M, $AX1.H : $AX0.L, $AX1.H, @$AR3
0ccd b630      mulxmv's    $AX0.H, $AX1.L, $ACC0 : @$AR0, $AC0.M
0cce 3ad3      orr'ld      $AC0.M, $AX1.H : $AX0.L, $AX1.H, @$AR3
0ccf b630      mulxmv's    $AX0.H, $AX1.L, $ACC0 : @$AR0, $AC0.M
0cd0 8c00      clr15       
0cd1 8e00      set16       
0cd2 02df      ret         



0cd3 00da 0485 lr          $AX0.H, @0x0485
0cd5 8600      tstaxh      $AX0.H
0cd6 0295 0ce5 jz          0x0ce5
0cd8 8100      clr         $ACC0
0cd9 00de 042a lr          $AC0.M, @0x042a
0cdb 147f      lsr         $ACC0, #-1
0cdc 00fe 042b sr          @0x042b, $AC0.M
0cde b100      tst         $ACC0
0cdf 0294 0ce5 jnz         0x0ce5
0ce1 009a 0001 lri         $AX0.H, #0x0001
0ce3 00fa 0401 sr          @0x0401, $AX0.H
0ce5 8f00      set40       
0ce6 8100      clr         $ACC0
0ce7 00de 0428 lr          $AC0.M, @0x0428
0ce9 1478      lsr         $ACC0, #-8
0cea 00df 0428 lr          $AC1.M, @0x0428
0cec 0340 007f andi        $AC1.M, #0x007f
0cee 1f1e      mrr         $AX0.L, $AC0.M
0cef 1f5f      mrr         $AX0.H, $AC1.M
0cf0 0220 007f xori        $ACC0, #0x007f
0cf2 1f3e      mrr         $AX1.L, $AC0.M
0cf3 0320 007f xori        $ACC1, #0x007f
0cf5 1f7f      mrr         $AX1.H, $AC1.M
0cf6 8100      clr         $ACC0
0cf7 8900      clr         $ACC1
0cf8 009f 0200 lri         $AC1.M, #0x0200
0cfa 1fd8      mrr         $AC0.M, $AX0.L
0cfb 4c00      add         $ACC0, $AC1.L
0cfc 1c1e      mrr         $AR0, $AC0.M
0cfd 1818      lrr         $AX0.L, @$AR0
0cfe 1fda      mrr         $AC0.M, $AX0.H
0cff 4c00      add         $ACC0, $AC1.L
0d00 1c1e      mrr         $AR0, $AC0.M
0d01 181a      lrr         $AX0.H, @$AR0
0d02 1fd9      mrr         $AC0.M, $AX1.L
0d03 4c00      add         $ACC0, $AC1.L
0d04 1c1e      mrr         $AR0, $AC0.M
0d05 1819      lrr         $AX1.L, @$AR0
0d06 1fdb      mrr         $AC0.M, $AX1.H
0d07 4c00      add         $ACC0, $AC1.L
0d08 1c1e      mrr         $AR0, $AC0.M
0d09 181b      lrr         $AX1.H, @$AR0
0d0a 0080 0b00 lri         $AR0, #0x0b00
0d0c 9800      mul         $AX1.L, $AX1.H
0d0d ae00      mulxmv      $AX0.L, $AX1.H, $ACC0
0d0e b630      mulxmv's    $AX0.H, $AX1.L, $ACC0 : @$AR0, $AC0.M
0d0f 9630      mulmv's     $AX0.L, $AX0.H, $ACC0 : @$AR0, $AC0.M
0d10 6e30      movp's      $ACC0 : @$AR0, $AC0.M
0d11 1b1e      srri        @$AR0, $AC0.M
0d12 0080 0b00 lri         $AR0, #0x0b00
0d14 0081 0b04 lri         $AR1, #0x0b04
0d16 00da 042a lr          $AX0.H, @0x042a
0d18 02bf 0d62 call        0x0d62
0d1a 0081 0b08 lri         $AR1, #0x0b08
0d1c 0080 0b04 lri         $AR0, #0x0b04
0d1e 00da 042a lr          $AX0.H, @0x042a
0d20 00de 0429 lr          $AC0.M, @0x0429
0d22 c000      mulc        $AC0.M, $AX0.H
0d23 6e00      movp        $ACC0
0d24 1481      asl         $ACC0, #1
0d25 1f5e      mrr         $AX0.H, $AC0.M
0d26 02bf 0d62 call        0x0d62
0d28 0080 0b00 lri         $AR0, #0x0b00
0d2a 0081 0b0c lri         $AR1, #0x0b0c
0d2c 8100      clr         $ACC0
0d2d 8900      clr         $ACC1
0d2e 00de 042b lr          $AC0.M, @0x042b
0d30 00df 042a lr          $AC1.M, @0x042a
0d32 00fe 042a sr          @0x042a, $AC0.M
0d34 5c00      sub         $ACC0, $AC1.L
0d35 1f5e      mrr         $AX0.H, $AC0.M
0d36 02bf 0d6b call        0x0d6b
0d38 0080 0b0c lri         $AR0, #0x0b0c
0d3a 0081 0b10 lri         $AR1, #0x0b10
0d3c 00da 0429 lr          $AX0.H, @0x0429
0d3e 02bf 0d62 call        0x0d62
0d40 0081 0b04 lri         $AR1, #0x0b04
0d42 0082 0b0c lri         $AR2, #0x0b0c
0d44 0083 0d77 lri         $AR3, #0x0d77
0d46 1108 0d5f bloopi      #0x08, 0x0d5f  // 8 iterations, = data table size below
0d48 195f      lrri        $AC1.M, @$AR2
0d49 15fb      asr         $ACC1, #-5
0d4a 1f1d      mrr         $AX0.L, $AC1.L
0d4b 1f5f      mrr         $AX0.H, $AC1.M
0d4c 193f      lrri        $AC1.M, @$AR1
0d4d 00e1 0b24 sr          @0x0b24, $AR1
0d4f 00e2 0b25 sr          @0x0b25, $AR2
0d51 021b      ilrri       $AC0.M, @$AR3  // Read from data table at 0d77, increment R03
0d52 00e3 0b26 sr          @0x0b26, $AR3
0d54 1c7e      mrr         $AR3, $AC0.M
0d55 00c0 038f lr          $AR0, @0x038f
0d57 02bf 0ca9 call        0x0ca9
0d59 00c1 0b24 lr          $AR1, @0x0b24
0d5b 00c2 0b25 lr          $AR2, @0x0b25
0d5d 00c3 0b26 lr          $AR3, @0x0b26
0d5f 0000      nop            	// BLOOPI end
0d60 8e00      set16       
0d61 02df      ret         


// Compute something.... load @R00 store @R01
0d62 191f      lrri        $AC1.M, @$AR0
0d63 d078      mulc'l      $AC1.M, $AX0.H : $AC1.M, @$AR0
0d64 d678      mulcmv'l    $AC1.M, $AX0.H, $ACC0 : $AC1.M, @$AR0
0d65 d631      mulcmv's    $AC1.M, $AX0.H, $ACC0 : @$AR1, $AC0.M
0d66 191f      lrri        $AC1.M, @$AR0
0d67 d631      mulcmv's    $AC1.M, $AX0.H, $ACC0 : @$AR1, $AC0.M
0d68 6e31      movp's      $ACC0 : @$AR1, $AC0.M
0d69 1b3e      srri        @$AR1, $AC0.M
0d6a 02df      ret         


// Compute something... load @R00 store @R01
// Similar to 0d62 but different register usage.
// Surrounded with SET15/CLR15.
0d6b 8d00      set15       
0d6c 1f7e      mrr         $AX1.H, $AC0.M
0d6d 1918      lrri        $AX0.L, @$AR0
0d6e a840      mulx'l      $AX0.L, $AX1.H : $AX0.L, @$AR0
0d6f ae40      mulxmv'l    $AX0.L, $AX1.H, $ACC0 : $AX0.L, @$AR0
0d70 ae31      mulxmv's    $AX0.L, $AX1.H, $ACC0 : @$AR1, $AC0.M
0d71 1918      lrri        $AX0.L, @$AR0
0d72 ae31      mulxmv's    $AX0.L, $AX1.H, $ACC0 : @$AR1, $AC0.M
0d73 6e31      movp's      $ACC0 : @$AR1, $AC0.M
0d74 1b3e      srri        @$AR1, $AC0.M
0d75 8c00      clr15       
0d76 02df      ret         


// This would appear to be a data table.
0d77 0d00      lris        $AC1.L, #0x00
0d78 0d60      lris        $AC1.L, #0x60
0d79 0f40      lris        $AC1.M, #0x40
0d7a 0ca0      lris        $AC0.L, #0xa0
0d7b 0e80      lris        $AC0.M, #0x80
0d7c 0ee0      lris        $AC0.M, #0xe0
0d7d 0c00      lris        $AC0.L, #0x00
0d7e 0c50      lris        $AC0.L, #0x50

// Function starts here? 0x28 bufsize.
0d7f 00f9 0361 sr          @0x0361, $AX1.L
0d81 1fc0      mrr         $AC0.M, $AR0
0d82 0200 fffc addi        $AC0.M, #0xfffc
0d84 1c1e      mrr         $AR0, $AC0.M
0d85 1c5e      mrr         $AR2, $AC0.M
0d86 0083 043c lri         $AR3, #0x043c
0d88 197e      lrri        $AC0.M, @$AR3
0d89 197f      lrri        $AC1.M, @$AR3
0d8a 80a2      nx'sl       : $AC0.M, $AX0.H
0d8b 64a3      movr'sl     $ACC0, $AX0.H : $AC1.M, $AX0.H
0d8c 6530      movr's      $ACC1, $AX0.H : @$AR0, $AC0.M
0d8d 1b1f      srri        @$AR0, $AC1.M
0d8e 1c02      mrr         $AR0, $AR2
0d8f 8100      clr         $ACC0
0d90 00de 0402 lr          $AC0.M, @0x0402
0d92 00fe 0362 sr          @0x0362, $AC0.M
0d94 1474      lsr         $ACC0, #-12
0d95 1f7e      mrr         $AX1.H, $AC0.M
0d96 1f3c      mrr         $AX1.L, $AC0.L
0d97 8900      clr         $ACC1
0d98 00dd 0430 lr          $AC1.L, @0x0430
0d9a 1504      lsl         $ACC1, #4
0d9b 0604      cmpis       $ACC0, #0x04
0d9c 0290 0df3 jns         0x0df3
0d9e 1fdd      mrr         $AC0.M, $AC1.L
0d9f 0082 02b0 lri         $AR2, #0x02b0
0da1 1050      loopi       #0x50
0da2 4b2a      addax's     $ACC1, $AX1.L : @$AR2, $AC1.L
0da3 1fbe      mrr         $AC1.L, $AC0.M
0da4 00fe 0360 sr          @0x0360, $AC0.M
0da6 8900      clr         $ACC1
0da7 1fbe      mrr         $AC1.L, $AC0.M
0da8 0af8      lris        $AX0.H, #0xf8
0da9 009b 00fc lri         $AX1.H, #0x00fc
0dab 00d8 0361 lr          $AX0.L, @0x0361
0dad 0082 02b0 lri         $AR2, #0x02b0
0daf 0083 02b0 lri         $AR3, #0x02b0
0db1 195e      lrri        $AC0.M, @$AR2
0db2 3480      andr'ls     $AC0.M, $AX0.H : $AX0.L, $AC0.M
0db3 1128 0db8 bloopi      #0x28, 0x0db8
0db5 367a      andr'l      $AC0.M, $AX1.H : $AC1.M, @$AR2
0db6 35b3      andr'sl     $AC1.M, $AX0.H : $AC1.M, $AX1.H
0db7 3772      andr'l      $AC1.M, $AX1.H : $AC0.M, @$AR2
0db8 34bb      andr'slm    $AC0.M, $AX0.H : $AC1.M, $AX1.H
0db9 8a00      m2          
0dba 0082 02b0 lri         $AR2, #0x02b0
0dbc 00dd 0430 lr          $AC1.L, @0x0430
0dbe 1504      lsl         $ACC1, #4
0dbf 1fe0      mrr         $AC1.M, $AR0
0dc0 8100      clr         $ACC0
0dc1 00de 0362 lr          $AC0.M, @0x0362
0dc3 1474      lsr         $ACC0, #-12
0dc4 1f7e      mrr         $AX1.H, $AC0.M
0dc5 1f3c      mrr         $AX1.L, $AC0.L
0dc6 8f00      set40       
0dc7 1943      lrri        $AR3, @$AR2
0dc8 4bc3      addax'ld    $ACC1, $AX1.L : $AX0.L, $AX1.L, @$AR3
0dc9 90c3      mul'ld      $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0dca f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0dcb f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0dcc f200      madd        $AX0.L, $AX0.H
0dcd fe00      movpz       $ACC0
0dce 1c1f      mrr         $AR0, $AC1.M
0dcf 1943      lrri        $AR3, @$AR2
0dd0 4bc3      addax'ld    $ACC1, $AX1.L : $AX0.L, $AX1.L, @$AR3
0dd1 90c3      mul'ld      $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0dd2 114e 0dda bloopi      #0x4e, 0x0dda
0dd4 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0dd5 f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0dd6 f231      madd's      $AX0.L, $AX0.H : @$AR1, $AC0.M
0dd7 1c1f      mrr         $AR0, $AC1.M
0dd8 1943      lrri        $AR3, @$AR2
0dd9 4bc3      addax'ld    $ACC1, $AX1.L : $AX0.L, $AX1.L, @$AR3
0dda 92c3      mulmvz'ld   $AX0.L, $AX0.H, $ACC0 : $AX0.L, $AX1.L, @$AR3
0ddb f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0ddc f2c3      madd'ld     $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
0ddd f231      madd's      $AX0.L, $AX0.H : @$AR1, $AC0.M
0dde fe00      movpz       $ACC0
0ddf 1b3e      srri        @$AR1, $AC0.M
0de0 8b00      m0          
0de1 8e00      set16       
0de2 00fe 0433 sr          @0x0433, $AC0.M
0de4 1c1f      mrr         $AR0, $AC1.M
0de5 150c      lsl         $ACC1, #12
0de6 0340 0fff andi        $AC1.M, #0x0fff
0de8 00ff 0430 sr          @0x0430, $AC1.M
0dea 0083 043c lri         $AR3, #0x043c
0dec 191e      lrri        $AC0.M, @$AR0
0ded 191f      lrri        $AC1.M, @$AR0
0dee 80a0      nx'ls       : $AX0.H, $AC0.M
0def 64a1      movr'ls     $ACC0, $AX0.H : $AX0.H, $AC1.M
0df0 6533      movr's      $ACC1, $AX0.H : @$AR3, $AC0.M
0df1 1b7f      srri        @$AR3, $AC1.M
0df2 02df      ret         



// bufsize = 0x28
0df3 1fe0      mrr         $AC1.M, $AR0
0df4 1c1f      mrr         $AR0, $AC1.M
0df5 1128 0dfc bloopi      #0x28, 0x0dfc
0df7 4b70      addax'l     $ACC1, $AX1.L : $AC0.M, @$AR0
0df8 1b3e      srri        @$AR1, $AC0.M
0df9 1c1f      mrr         $AR0, $AC1.M
0dfa 4b70      addax'l     $ACC1, $AX1.L : $AC0.M, @$AR0
0dfb 1b3e      srri        @$AR1, $AC0.M
0dfc 1c1f      mrr         $AR0, $AC1.M
0dfd 029f 0de2 jmp         0x0de2
0dff 0083 0520 lri         $AR3, #0x0520
0e01 00de 0433 lr          $AC0.M, @0x0433
0e03 1050      loopi       #0x50
0e04 1b7e      srri        @$AR3, $AC0.M
0e05 029f 02d8 jmp         0x02d8
0e07 1c20      mrr         $AR1, $AR0
0e08 185f      lrr         $AC1.M, @$AR2
0e09 1f7f      mrr         $AX1.H, $AC1.M
0e0a 193a      lrri        $AX0.H, @$AR1
0e0b 6400      movr        $ACC0, $AX0.H
0e0c 0078 0e11 bloop       $AX0.L, 0x0e11
0e0e 5659      subr'l      $ACC0, $AX1.H : $AX1.H, @$AR1
0e0f 6730      movr's      $ACC1, $AX1.H : @$AR0, $AC0.M
0e10 5551      subr'l      $ACC1, $AX0.H : $AX0.H, @$AR1
0e11 6438      movr's      $ACC0, $AX0.H : @$AR0, $AC1.M
0e12 1a5b      srr         @$AR2, $AX1.H
0e13 02df      ret         



// called by init code
{
	a_04e8[0]=0x8240;
	a_04e8[1]=0x7fff;
	a_04e8[2]=0x7dbf;
	a_04e8[3]=0x843f;
	a_04f0[0]=0xb23b;
	a_04f0[1]=0x7fff;
	a_04f0[2]=0x4dc4;
	a_04f0[3]=0xd808;
	a_04ec[0]=a_04ec[1]=a_04ec[2]=a_04ec[3]=0;
	a_04f4[0]=a_04f4[1]=a_04f4[2]=a_04f4[3]=0;
}
0e14 0098 8240 lri         $AX0.L, #0x8240
0e16 00f8 04e8 sr          @0x04e8, $AX0.L
0e18 0098 7fff lri         $AX0.L, #0x7fff
0e1a 00f8 04e9 sr          @0x04e9, $AX0.L
0e1c 0098 7dbf lri         $AX0.L, #0x7dbf
0e1e 00f8 04ea sr          @0x04ea, $AX0.L
0e20 0098 843f lri         $AX0.L, #0x843f
0e22 00f8 04eb sr          @0x04eb, $AX0.L
0e24 0098 b23b lri         $AX0.L, #0xb23b
0e26 00f8 04f0 sr          @0x04f0, $AX0.L
0e28 0098 7fff lri         $AX0.L, #0x7fff
0e2a 00f8 04f1 sr          @0x04f1, $AX0.L
0e2c 0098 4dc4 lri         $AX0.L, #0x4dc4
0e2e 00f8 04f2 sr          @0x04f2, $AX0.L
0e30 0098 d808 lri         $AX0.L, #0xd808
0e32 00f8 04f3 sr          @0x04f3, $AX0.L
0e34 0098 0000 lri         $AX0.L, #0x0000
0e36 0080 04ec lri         $AR0, #0x04ec
0e38 1004      loopi       #0x04
0e39 1b18      srri        @$AR0, $AX0.L
0e3a 0080 04f4 lri         $AR0, #0x04f4
0e3c 1004      loopi       #0x04
0e3d 1b18      srri        @$AR0, $AX0.L
0e3e 02df      ret         


// Main Stereo (or dolby) Mixer?
// Is the source sample at 0x0b00?
// 0x50 seems to be a buffer size. Strange one.
0e3f 0080 0f40 lri         $AR0, #0x0f40
0e41 0083 0b00 lri         $AR3, #0x0b00
0e43 8900      clr         $ACC1
0e44 0f50      lris        $AC1.M, #0x50
0e45 0098 6784 lri         $AX0.L, #0x6784
0e47 02bf 00fa call        0x00fa  // multiply loop
0e49 0080 04e8 lri         $AR0, #0x04e8
0e4b 0082 04ec lri         $AR2, #0x04ec
0e4d 0081 0b00 lri         $AR1, #0x0b00
0e4f 02bf 0ba4 call        0x0ba4  // complex multiply loop
0e51 8900      clr         $ACC1
0e52 0f50      lris        $AC1.M, #0x50
0e53 0080 0b00 lri         $AR0, #0x0b00
0e55 0083 0d00 lri         $AR3, #0x0d00
0e57 0098 7fff lri         $AX0.L, #0x7fff
0e59 02bf 00eb call        0x00eb  // one of the multiply loops
0e5b 8900      clr         $ACC1
0e5c 0f50      lris        $AC1.M, #0x50
0e5d 0080 0b00 lri         $AR0, #0x0b00
0e5f 0083 0d60 lri         $AR3, #0x0d60
0e61 0098 b820 lri         $AX0.L, #0xb820
0e63 02bf 00eb call        0x00eb  // one of the multiply loops
// Stereo mixer? (cont'd, other channel starts here?)
0e65 0080 0ca0 lri         $AR0, #0x0ca0
0e67 0083 0b00 lri         $AR3, #0x0b00
0e69 8900      clr         $ACC1
0e6a 0f50      lris        $AC1.M, #0x50
0e6b 0098 6784 lri         $AX0.L, #0x6784
0e6d 02bf 00fa call        0x00fa  // multiply loop
0e6f 0080 04e8 lri         $AR0, #0x04e8
0e71 0082 04f4 lri         $AR2, #0x04f4
0e73 0081 0b00 lri         $AR1, #0x0b00
0e75 02bf 0ba4 call        0x0ba4   // complex multiply loop
0e77 8900      clr         $ACC1
0e78 0f50      lris        $AC1.M, #0x50
0e79 0080 0b00 lri         $AR0, #0x0b00
0e7b 0083 0d00 lri         $AR3, #0x0d00
0e7d 0098 47e0 lri         $AX0.L, #0x47e0
0e7f 02bf 00eb call        0x00eb  // one of the multiply loops
0e81 8900      clr         $ACC1
0e82 0f50      lris        $AC1.M, #0x50
0e83 0080 0b00 lri         $AR0, #0x0b00
0e85 0083 0d60 lri         $AR3, #0x0d60
0e87 0098 8001 lri         $AX0.L, #0x8001
0e89 02bf 00eb call        0x00eb  // one of the multiply loops
0e8b 02df      ret         
0e8c 0000      nop         
0e8d 0000      nop         
0e8e 0000      nop         
0e8f 0000      nop         
