1986 lines
70 KiB
Plaintext
1986 lines
70 KiB
Plaintext
0000 029f 0010 jmp 0x0010
|
|
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 02ff rti
|
|
000f 0000 nop
|
|
|
|
// Entry
|
|
void 0010_Entry()
|
|
{
|
|
0010 1302 sbset #0x02
|
|
0011 1303 sbset #0x03
|
|
0012 1204 sbclr #0x04
|
|
0013 1305 sbset #0x05
|
|
0014 1306 sbset #0x06
|
|
0015 8e00 set16
|
|
0016 8c00 clr15
|
|
0017 8b00 m0
|
|
0018 009e ffff lri $AC0.M, #0xffff
|
|
001a 1d1e mrr $WR0, $AC0.M
|
|
001b 1d3e mrr $WR1, $AC0.M
|
|
001c 1d5e mrr $WR2, $AC0.M
|
|
001d 1d7e mrr $WR3, $AC0.M
|
|
001e 0092 00ff lri $CR, #0x00ff
|
|
0020 8100 clr $ACC0
|
|
0021 009f 1000 lri $AC1.M, #0x1000
|
|
0023 0080 0000 lri $AR0, #0x0000
|
|
0025 005f loop $AC1.M
|
|
0026 1b1e srri @$AR0, $AC0.M // clear dram
|
|
0027 26ff lrs $AC0.M, @CMBL
|
|
0028 16fc 8888 si @DMBH, #0x8888
|
|
002a 16fd 1111 si @DMBL, #0x1111 // SENDMAIL 0x88881111
|
|
002c 26fc lrs $AC0.M, @DMBH
|
|
002d 02a0 8000 andf $AC0.M, #0x8000
|
|
002f 029c 002c jlnz 0x002c
|
|
}
|
|
|
|
void 0031_MainLoop()
|
|
{
|
|
0031 8100 clr $ACC0
|
|
0032 8900 clr $ACC1
|
|
0033 26fe lrs $AC0.M, @CMBH
|
|
0034 02c0 8000 andcf $AC0.M, #0x8000
|
|
0036 029c 0031 jlnz 0x0031 // wait for mail
|
|
0038 27ff lrs $AC1.M, @CMBL
|
|
0039 00ff 0345 sr @0x0345, $AC1.M
|
|
003b 1ffe mrr $AC1.M, $AC0.M
|
|
003c 0340 00ff andi $AC1.M, #0x00ff
|
|
003e 00ff 0344 sr @0x0344, $AC1.M
|
|
0040 1479 lsr $ACC0, #-7
|
|
0041 0240 007e andi $AC0.M, #0x007e
|
|
0043 0200 0062 addi $AC0.M, #0x0062
|
|
0045 00fe 0343 sr @0x0343, $AC0.M
|
|
0047 1c1e mrr $AR0, $AC0.M
|
|
0048 170f jmpr $AR0 // jump on CMD?
|
|
0049 009e 8000 lri $AC0.M, #0x8000
|
|
004b 00dc 0343 lr $AC0.L, @0x0343
|
|
004d 02bf 005a call 005a_SendMail(AC0.M,AC0.L) // sendmail 0x8000????
|
|
004f 029f 0031 jmp 0x0031
|
|
}
|
|
|
|
void 0051_WaitForMailAndStoreIt(DEST $AR0)
|
|
{
|
|
0051 26fe lrs $AC0.M, @CMBH
|
|
0052 02c0 8000 andcf $AC0.M, #0x8000
|
|
0054 029c 0051 jlnz 0x0051
|
|
0056 24ff lrs $AC0.L, @CMBL
|
|
0057 1b1e srri @$AR0, $AC0.M
|
|
0058 1b1c srri @$AR0, $AC0.L
|
|
0059 02df ret
|
|
}
|
|
|
|
void 005a_SendMail(AC0.M,AC0.L)
|
|
{
|
|
005a 2efc srs @DMBH, $AC0.M
|
|
005b 2cfd srs @DMBL, $AC0.L
|
|
005c 26fc lrs $AC0.M, @DMBH
|
|
005d 02a0 8000 andf $AC0.M, #0x8000
|
|
005f 029c 005c jlnz 0x005c
|
|
0061 02df ret
|
|
}
|
|
|
|
//CMDs
|
|
0062 029f 0049 jmp 0x0049 // CMD_0
|
|
0064 029f 02bd jmp 0x02bd // CMD_1
|
|
0066 029f 0470 jmp 0x0470 // CMD_2
|
|
0068 029f 0031 jmp 0x0031 // CMD_3
|
|
006a 029f 00df jmp 0x00df // CMD_4
|
|
006c 029f 00f1 jmp 0x00f1 // CMD_5
|
|
006e 029f 05bb jmp 0x05bb // CMD_6
|
|
0070 029f 056f jmp 0x056f // CMD_7
|
|
0072 029f 05d7 jmp 0x05d7 // CMD_8
|
|
0074 029f 059f jmp 0x059f // CMD_9
|
|
0076 029f 0741 jmp 0x0741 // CMD_A
|
|
0078 029f 0618 jmp 0x0618 // CMD_B - jump to IROM area (0x8644)
|
|
007a 029f 0203 jmp 0x0203 // CMD_C
|
|
|
|
{
|
|
007c 193e lrri $AC0.M, @$AR1
|
|
007d 193c lrri $AC0.L, @$AR1
|
|
007e 2fcd srs @DSPA, $AC1.M
|
|
007f 0f00 lris $AC1.M, #0x00
|
|
0080 2fc9 srs @DSCR, $AC1.M // DMEM->CPU
|
|
0081 2ece srs @DSMAH, $AC0.M
|
|
0082 2ccf srs @DSMAL, $AC0.L
|
|
0083 1fe0 mrr $AC1.M, $AR0
|
|
0084 1501 lsl $ACC1, #1
|
|
0085 2fcb srs @DSBL, $AC1.M
|
|
0086 02bf 008f call 0x008f
|
|
0088 02df ret
|
|
}
|
|
|
|
{
|
|
0089 193e lrri $AC0.M, @$AR1
|
|
008a 193c lrri $AC0.L, @$AR1
|
|
008b 2fcd srs @DSPA, $AC1.M
|
|
008c 0f01 lris $AC1.M, #0x01
|
|
008d 029f 0080 jmp 0x0080
|
|
}
|
|
|
|
{
|
|
008f 26c9 lrs $AC0.M, @DSCR
|
|
0090 02a0 0004 andf $AC0.M, #0x0004
|
|
0092 029c 008f jlnz 0x008f
|
|
0094 02df ret
|
|
}
|
|
|
|
{
|
|
0095 193e lrri $AC0.M, @$AR1
|
|
0096 193c lrri $AC0.L, @$AR1
|
|
0097 00ff ffcd sr @DSPA, $AC1.M
|
|
0099 0f00 lris $AC1.M, #0x00
|
|
009a 00ff ffc9 sr @DSCR, $AC1.M
|
|
009c 00fe ffce sr @DSMAH, $AC0.M
|
|
009e 00fc ffcf sr @DSMAL, $AC0.L
|
|
00a0 1fe0 mrr $AC1.M, $AR0
|
|
00a1 1501 lsl $ACC1, #1
|
|
00a2 00ff ffcb sr @DSBL, $AC1.M
|
|
00a4 02df ret
|
|
}
|
|
|
|
void 00a5_WaitForDMAend()
|
|
{
|
|
00a5 00de ffc9 lr $AC0.M, @DSCR
|
|
00a7 02a0 0004 andf $AC0.M, #0x0004
|
|
00a9 029c 00a5 jlnz 0x00a5
|
|
00ab 02df ret
|
|
}
|
|
|
|
void 00ac_AccZeldaTypeRead()
|
|
{
|
|
00ac 193e lrri $AC0.M, @$AR1
|
|
00ad 193c lrri $AC0.L, @$AR1
|
|
00ae 0240 7fff andi $AC0.M, #0x7fff
|
|
00b0 02bf 00ba call 00ba_AccSetup()
|
|
00b2 007a 00b8 bloop $AX0.H, 0x00b8
|
|
00b4 26d3 lrs $AC0.M, @UnkZelda
|
|
00b5 1b3e srri @$AR1, $AC0.M
|
|
00b6 0000 nop
|
|
00b7 0000 nop
|
|
00b8 0000 nop
|
|
00b9 02df ret
|
|
}
|
|
|
|
void 00ba_AccSetup()
|
|
{
|
|
00ba 1c3f mrr $AR1, $AC1.M
|
|
00bb 009f 0005 lri $AC1.M, #0x0005
|
|
00bd 2fd1 srs @SampleFormat, $AC1.M // reads will be u8
|
|
00be 1f5e mrr $AX0.H, $AC0.M
|
|
00bf 1f1c mrr $AX0.L, $AC0.L
|
|
00c0 2ed4 srs @ACSAH, $AC0.M
|
|
00c1 2cd5 srs @ACSAL, $AC0.L
|
|
00c2 8900 clr $ACC1
|
|
00c3 1fa0 mrr $AC1.L, $AR0
|
|
00c4 4c00 add $ACC0, $ACC1
|
|
00c5 0200 0030 addi $AC0.M, #0x0030
|
|
00c7 2ed6 srs @ACEAH, $AC0.M
|
|
00c8 2cd7 srs @ACEAL, $AC0.L
|
|
00c9 1fda mrr $AC0.M, $AX0.H
|
|
00ca 1f98 mrr $AC0.L, $AX0.L
|
|
00cb 147f lsr $ACC0, #-1
|
|
00cc 2ed8 srs @ACCAH, $AC0.M
|
|
00cd 2cd9 srs @ACCAL, $AC0.L
|
|
00ce 1f40 mrr $AX0.H, $AR0
|
|
00cf 02df ret
|
|
}
|
|
|
|
void 00d0_AccZeldaTypeWrite()
|
|
{
|
|
00d0 193e lrri $AC0.M, @$AR1
|
|
00d1 193c lrri $AC0.L, @$AR1
|
|
00d2 0260 8000 ori $AC0.M, #0x8000
|
|
00d4 02bf 00ba call 00ba_AccSetup()
|
|
00d6 007a 00dd bloop $AX0.H, 0x00dd
|
|
{
|
|
00d8 193e lrri $AC0.M, @$AR1
|
|
00d9 2ed3 srs @UnkZelda, $AC0.M
|
|
00da 0000 nop
|
|
00db 0000 nop
|
|
00dc 0000 nop
|
|
00dd 0000 nop
|
|
}
|
|
00de 02df ret
|
|
}
|
|
|
|
{
|
|
00df 0080 0346 lri $AR0, #0x0346
|
|
00e1 02bf 0051 call 0x0051
|
|
00e3 02bf 0051 call 0x0051
|
|
00e5 0081 0346 lri $AR1, #0x0346
|
|
00e7 00df 0349 lr $AC1.M, @0x0349
|
|
00e9 0340 ffff andi $AC1.M, #0xffff
|
|
00eb 00c0 0345 lr $AR0, @0x0345
|
|
00ed 02bf 007c call 0x007c
|
|
00ef 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
00f1 0080 0346 lri $AR0, #0x0346
|
|
00f3 02bf 0051 call 0x0051
|
|
00f5 02bf 0051 call 0x0051
|
|
00f7 0081 0346 lri $AR1, #0x0346
|
|
00f9 00df 0349 lr $AC1.M, @0x0349
|
|
00fb 0340 ffff andi $AC1.M, #0xffff
|
|
00fd 00c0 0345 lr $AR0, @0x0345
|
|
00ff 02bf 0089 call 0x0089
|
|
0101 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
0103 0092 00ff lri $CR, #0x00ff
|
|
0105 2fd1 srs @SampleFormat, $AC1.M
|
|
0106 0340 0003 andi $AC1.M, #0x0003
|
|
0108 1f7f mrr $AX1.H, $AC1.M
|
|
0109 1f5e mrr $AX0.H, $AC0.M
|
|
010a 1f1c mrr $AX0.L, $AC0.L
|
|
010b 0200 0010 addi $AC0.M, #0x0010
|
|
010d 2ed4 srs @ACSAH, $AC0.M
|
|
010e 2cd5 srs @ACSAL, $AC0.L
|
|
010f 8900 clr $ACC1
|
|
0110 1fa0 mrr $AC1.L, $AR0
|
|
0111 4c00 add $ACC0, $ACC1
|
|
0112 0200 0030 addi $AC0.M, #0x0030
|
|
0114 2ed6 srs @ACEAH, $AC0.M
|
|
0115 2cd7 srs @ACEAL, $AC0.L
|
|
0116 1fda mrr $AC0.M, $AX0.H
|
|
0117 1f98 mrr $AC0.L, $AX0.L
|
|
0118 1ffb mrr $AC1.M, $AX1.H
|
|
0119 7900 decm $AC1.M
|
|
011a 02ca lsrn
|
|
011b 2ed8 srs @ACCAH, $AC0.M
|
|
011c 2cd9 srs @ACCAL, $AC0.L
|
|
011d 02df ret
|
|
}
|
|
|
|
//DSPLLE errors here!!! readw/writes from 0x3???
|
|
{
|
|
011e 1c23 mrr $AR1, $AR3
|
|
011f 197e lrri $AC0.M, @$AR3
|
|
0120 191b lrri $AX1.H, @$AR0
|
|
0121 d858 mulc'l $AC1.M, $AX1.H : $AX1.H, @$AR0
|
|
0122 1128 0128 bloopi #0x28, 0x0128
|
|
0124 dcd3 mulcac'ld $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
|
|
0125 6231 movr's $ACC0, $AX1.L : @$AR1, $AC0.M
|
|
0126 dcd3 mulcac'ld $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
|
|
0127 6231 movr's $ACC0, $AX1.L : @$AR1, $AC0.M
|
|
0128 4900 addax $ACC1, $AX0
|
|
0129 02df ret
|
|
}
|
|
|
|
{
|
|
012a 8f00 set40
|
|
012b 1c03 mrr $AR0, $AR3
|
|
012c 00db 038e lr $AX1.H, @0x038e
|
|
012e 009a 0004 lri $AX0.H, #0x0004
|
|
0130 1978 lrri $AX0.L, @$AR3
|
|
0131 a843 mulx'l $AX0.L, $AX1.H : $AX0.L, @$AR3
|
|
0132 ae00 mulxmv $AX0.L, $AX1.H, $ACC0
|
|
0133 1128 0138 bloopi #0x28, 0x0138
|
|
0135 38c3 asrnrx'l $ACC0, $AX0.H : $AX0.L, @$AR3
|
|
0136 ae30 mulxmv's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC0.M
|
|
0137 38c3 asrnrx'l $ACC0, $AX0.H : $AX0.L, @$AR3
|
|
0138 ae30 mulxmv's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC0.M
|
|
0139 8e00 set16
|
|
013a 02df ret
|
|
}
|
|
|
|
{
|
|
013b 00f9 0361 sr @0x0361, $AX1.L
|
|
013d 1fc0 mrr $AC0.M, $AR0
|
|
013e 0200 fffc addi $AC0.M, #0xfffc
|
|
0140 1c1e mrr $AR0, $AC0.M
|
|
0141 1c5e mrr $AR2, $AC0.M
|
|
0142 0083 0424 lri $AR3, #0x0424
|
|
0144 197e lrri $AC0.M, @$AR3
|
|
0145 197f lrri $AC1.M, @$AR3
|
|
0146 80a2 nx'sl : $AC0.M, $AX0.H
|
|
0147 64a3 movr'sl $ACC0, $AX0.H : $AC1.M, $AX0.H
|
|
0148 6530 movr's $ACC1, $AX0.H : @$AR0, $AC0.M
|
|
0149 1b1f srri @$AR0, $AC1.M
|
|
014a 1c02 mrr $AR0, $AR2
|
|
014b 8100 clr $ACC0
|
|
014c 00de 0402 lr $AC0.M, @0x0402
|
|
014e 00fe 0362 sr @0x0362, $AC0.M
|
|
0150 1474 lsr $ACC0, #-12
|
|
0151 1f7e mrr $AX1.H, $AC0.M
|
|
0152 1f3c mrr $AX1.L, $AC0.L
|
|
0153 8900 clr $ACC1
|
|
0154 00dd 0418 lr $AC1.L, @0x0418
|
|
0156 1504 lsl $ACC1, #4
|
|
0157 0604 cmpis $AC0.M, #0x04
|
|
0158 0290 01b0 jge 0x01b0
|
|
015a 1fdd mrr $AC0.M, $AC1.L
|
|
015b 0082 0c00 lri $AR2, #0x0c00
|
|
015d 1050 loopi #0x50
|
|
015e 4b2a addax's $ACC1, $AX1 : @$AR2, $AC1.L
|
|
015f 1fbe mrr $AC1.L, $AC0.M
|
|
0160 00fe 0360 sr @0x0360, $AC0.M
|
|
0162 8900 clr $ACC1
|
|
0163 1fbe mrr $AC1.L, $AC0.M
|
|
0164 009a fff8 lri $AX0.H, #0xfff8
|
|
0166 009b 00fc lri $AX1.H, #0x00fc
|
|
0168 00d8 0361 lr $AX0.L, @0x0361
|
|
016a 0082 0c00 lri $AR2, #0x0c00
|
|
016c 0083 0c00 lri $AR3, #0x0c00
|
|
016e 195e lrri $AC0.M, @$AR2
|
|
016f 3480 lsrnrx $ACC0, $AX0.H
|
|
0170 1128 0175 bloopi #0x28, 0x0175
|
|
0172 367a andr'l $AC0.M, $AX1.H : $AC1.M, @$AR2
|
|
0173 35b3 lsrnrx's $ACC1, $AX0.H : @$AR3, $AC0.M
|
|
0174 3772 andr'l $AC1.M, $AX1.H : $AC0.M, @$AR2
|
|
0175 34bb lsrnrx's $ACC0, $AX0.H : @$AR3, $AC1.M
|
|
0176 8a00 m2
|
|
0177 0082 0c00 lri $AR2, #0x0c00
|
|
0179 00dd 0418 lr $AC1.L, @0x0418
|
|
017b 1504 lsl $ACC1, #4
|
|
017c 1fe0 mrr $AC1.M, $AR0
|
|
017d 8100 clr $ACC0
|
|
017e 00de 0362 lr $AC0.M, @0x0362
|
|
0180 1474 lsr $ACC0, #-12
|
|
0181 1f7e mrr $AX1.H, $AC0.M
|
|
0182 1f3c mrr $AX1.L, $AC0.L
|
|
0183 8f00 set40
|
|
0184 1943 lrri $AR3, @$AR2
|
|
0185 4bc3 addax'ld $ACC1, $AX1 : $AX0.L, $AX1.L, @$AR3
|
|
0186 90c3 mul'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
0187 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
0188 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
0189 f200 madd $AX0.L, $AX0.H
|
|
018a fe00 movpz $ACC0
|
|
018b 1c1f mrr $AR0, $AC1.M
|
|
018c 1943 lrri $AR3, @$AR2
|
|
018d 4bc3 addax'ld $ACC1, $AX1 : $AX0.L, $AX1.L, @$AR3
|
|
018e 90c3 mul'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
018f 114e 0197 bloopi #0x4e, 0x0197
|
|
0191 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
0192 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
0193 f231 madd's $AX0.L, $AX0.H : @$AR1, $AC0.M
|
|
0194 1c1f mrr $AR0, $AC1.M
|
|
0195 1943 lrri $AR3, @$AR2
|
|
0196 4bc3 addax'ld $ACC1, $AX1 : $AX0.L, $AX1.L, @$AR3
|
|
0197 92c3 mulmvz'ld $AX0.L, $AX0.H, $ACC0 : $AX0.L, $AX1.L, @$AR3
|
|
0198 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
0199 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
019a f231 madd's $AX0.L, $AX0.H : @$AR1, $AC0.M
|
|
019b fe00 movpz $ACC0
|
|
019c 1b3e srri @$AR1, $AC0.M
|
|
019d 8b00 m0
|
|
019e 8e00 set16
|
|
019f 00fe 041b sr @0x041b, $AC0.M
|
|
01a1 1c1f mrr $AR0, $AC1.M
|
|
01a2 150c lsl $ACC1, #12
|
|
01a3 0340 0fff andi $AC1.M, #0x0fff
|
|
01a5 00ff 0418 sr @0x0418, $AC1.M
|
|
01a7 0083 0424 lri $AR3, #0x0424
|
|
01a9 191e lrri $AC0.M, @$AR0
|
|
01aa 191f lrri $AC1.M, @$AR0
|
|
01ab 80a0 nx'ls : $AX0.H, $AC0.M
|
|
01ac 64a1 movr'ls $ACC0, $AX0.H : $AX0.H, $AC1.M
|
|
01ad 6533 movr's $ACC1, $AX0.H : @$AR3, $AC0.M
|
|
01ae 1b7f srri @$AR3, $AC1.M
|
|
01af 02df ret
|
|
}
|
|
|
|
{
|
|
01b0 1fe0 mrr $AC1.M, $AR0
|
|
01b1 1c1f mrr $AR0, $AC1.M
|
|
01b2 1128 01b9 bloopi #0x28, 0x01b9
|
|
01b4 4b70 addax'l $ACC1, $AX1 : $AC0.M, @$AR0
|
|
01b5 1b3e srri @$AR1, $AC0.M
|
|
01b6 1c1f mrr $AR0, $AC1.M
|
|
01b7 4b70 addax'l $ACC1, $AX1 : $AC0.M, @$AR0
|
|
01b8 1b3e srri @$AR1, $AC0.M
|
|
01b9 1c1f mrr $AR0, $AC1.M
|
|
01ba 029f 019f jmp 0x019f
|
|
}
|
|
|
|
{
|
|
01bc 8a00 m2
|
|
01bd 0088 0007 lri $WR0, #0x0007
|
|
01bf 1150 01cc bloopi #0x50, 0x01cc
|
|
{
|
|
01c1 1c61 mrr $AR3, $AR1
|
|
01c2 84c3 clrp'ld : $AX0.L, $AX1.L, @$AR3
|
|
01c3 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01c4 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01c5 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01c6 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01c7 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01c8 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01c9 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
|
|
01ca f200 madd $AX0.L, $AX0.H
|
|
01cb fe00 movpz $ACC0
|
|
01cc 1b3e srri @$AR1, $AC0.M
|
|
}
|
|
01cd 0088 ffff lri $WR0, #0xffff
|
|
01cf 8b00 m0
|
|
01d0 02df ret
|
|
}
|
|
|
|
{
|
|
01d1 0088 0003 lri $WR0, #0x0003
|
|
01d3 0085 0000 lri $IX1, #0x0000
|
|
01d5 0087 0000 lri $IX3, #0x0000
|
|
01d7 1fc2 mrr $AC0.M, $AR2
|
|
01d8 195b lrri $AX1.H, @$AR2
|
|
01d9 1959 lrri $AX1.L, @$AR2
|
|
01da 195f lrri $AC1.M, @$AR2
|
|
01db 195a lrri $AX0.H, @$AR2
|
|
01dc 1c5e mrr $AR2, $AC0.M
|
|
01dd 1fda mrr $AC0.M, $AX0.H
|
|
01de 1c61 mrr $AR3, $AR1
|
|
01df 8a00 m2
|
|
01e0 8f00 set40
|
|
01e1 191a lrri $AX0.H, @$AR0
|
|
01e2 b850 mulx'l $AX0.H, $AX1.H : $AX0.H, @$AR0
|
|
01e3 e250 maddx'l $AX0.H, $AX1.L : $AX0.H, @$AR0
|
|
01e4 ea50 maddc'l $AC1.M, $AX1.L : $AX0.H, @$AR0
|
|
01e5 e8e8 maddc'ldm $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
|
|
01e6 b650 mulxmv'l $AX0.H, $AX1.L, $ACC0 : $AX0.H, @$AR0
|
|
01e7 1127 01f2 bloopi #0x27, 0x01f2
|
|
{
|
|
01e9 e3a8 maddx'lsm $AX0.H, $AX1.H : $AX0.H, $AC0.M
|
|
01ea 197e lrri $AC0.M, @$AR3
|
|
01eb e850 maddc'l $AC0.M, $AX1.L : $AX0.H, @$AR0
|
|
01ec eaf8 maddc'ldm $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
|
|
01ed bf50 mulxmv'l $AX0.H, $AX1.H, $ACC1 : $AX0.H, @$AR0
|
|
01ee e2a9 maddx'lsm $AX0.H, $AX1.L : $AX0.H, $AC1.M
|
|
01ef 197f lrri $AC1.M, @$AR3
|
|
01f0 ea50 maddc'l $AC1.M, $AX1.L : $AX0.H, @$AR0
|
|
01f1 e8e8 maddc'ldm $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
|
|
01f2 b650 mulxmv'l $AX0.H, $AX1.L, $ACC0 : $AX0.H, @$AR0
|
|
}
|
|
01f3 e3a8 maddx'lsm $AX0.H, $AX1.H : $AX0.H, $AC0.M
|
|
01f4 197e lrri $AC0.M, @$AR3
|
|
01f5 e850 maddc'l $AC0.M, $AX1.L : $AX0.H, @$AR0
|
|
01f6 eaf8 maddc'ldm $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
|
|
01f7 bf00 mulxmv $AX0.H, $AX1.H, $ACC1
|
|
01f8 1bff srrn @$AR3, $AC1.M
|
|
01f9 197f lrri $AC1.M, @$AR3
|
|
01fa 8e00 set16
|
|
01fb 8b00 m0
|
|
01fc 0088 ffff lri $WR0, #0xffff
|
|
01fe 1b5b srri @$AR2, $AX1.H
|
|
01ff 1b59 srri @$AR2, $AX1.L
|
|
0200 1b5f srri @$AR2, $AC1.M
|
|
0201 1b5e srri @$AR2, $AC0.M
|
|
0202 02df ret
|
|
}
|
|
|
|
{
|
|
0203 0080 0346 lri $AR0, #0x0346
|
|
0205 02bf 0051 call 0x0051
|
|
0207 02bf 0051 call 0x0051
|
|
0209 0081 0346 lri $AR1, #0x0346
|
|
020b 009f 0580 lri $AC1.M, #0x0580
|
|
020d 0080 0080 lri $AR0, #0x0080
|
|
020f 02bf 007c call 0x007c
|
|
0211 0081 0348 lri $AR1, #0x0348
|
|
0213 009f 0c00 lri $AC1.M, #0x0c00
|
|
0215 0080 0080 lri $AR0, #0x0080
|
|
0217 02bf 007c call 0x007c
|
|
0219 0080 0c00 lri $AR0, #0x0c00
|
|
021b 0081 0580 lri $AR1, #0x0580
|
|
021d 02bf 01d1 call 0x01d1
|
|
021f 0081 0346 lri $AR1, #0x0346
|
|
0221 009f 0580 lri $AC1.M, #0x0580
|
|
0223 0080 0080 lri $AR0, #0x0080
|
|
0225 02bf 0089 call 0x0089
|
|
0227 0081 0348 lri $AR1, #0x0348
|
|
0229 009f 0c00 lri $AC1.M, #0x0c00
|
|
022b 0080 0080 lri $AR0, #0x0080
|
|
022d 02bf 0089 call 0x0089
|
|
022f 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
void 0231_FormatAudioSynths(format AC0.M)
|
|
{
|
|
0231 8100 clr $ACC0
|
|
0232 1f5e mrr $AX0.H, $AC0.M
|
|
0233 00d8 0402 lr $AX0.L, @0x0402
|
|
0235 00dc 0418 lr $AC0.L, @0x0418
|
|
0237 0080 0520 lri $AR0, #0x0520
|
|
0239 00df 0440 lr $AC1.M, @0x0440
|
|
023b 1501 lsl $ACC1, #1
|
|
023c 0340 007e andi $AC1.M, #0x007e
|
|
023e 0300 0246 addi $AC1.M, #0x0246
|
|
0240 1c5f mrr $AR2, $AC1.M
|
|
0241 175f callr $AR2 // call 0x0246
|
|
0242 00fc 0418 sr @0x0418, $AC0.L
|
|
0244 029f 04e7 jmp 0x04e7 // dummy
|
|
0246 029f 0257 jmp 0x0257 // 0x0 - Synth0
|
|
0248 029f 028f jmp 0x028f // 0x1 - Synth1
|
|
024a 029f 0277 jmp 0x0277 // 0x2 - Synth2
|
|
024c 029f 0267 jmp 0x0267 // 0x3 - Synth3
|
|
024e 029f 0292 jmp 0x0292 // 0x4 - Synth4
|
|
0250 029f 0256 jmp 0x0256 // 0x5 - dummy
|
|
0252 029f 02b1 jmp 0x02b1 // 0x6 - Synth6
|
|
0254 029f 02ae jmp 0x02ae // 0x7 - Synth7
|
|
0256 02df ret
|
|
}
|
|
|
|
void 0257_Synth0()
|
|
{
|
|
0257 1401 lsl $ACC0, #1
|
|
0258 009b c000 lri $AX1.H, #0xc000
|
|
025a 0099 4000 lri $AX1.L, #0x4000
|
|
025c 1150 0264 bloopi #0x50, 0x0264
|
|
{
|
|
025e 02c0 0001 andcf $AC0.M, #0x0001
|
|
0260 027c iflnz
|
|
0261 1b1b srri @$AR0, $AX1.H
|
|
0262 027d iflz
|
|
0263 1b19 srri @$AR0, $AX1.L
|
|
0264 4800 addax $ACC0, $AX0
|
|
}
|
|
0265 147f lsr $ACC0, #-1
|
|
0266 02df ret
|
|
}
|
|
|
|
void 0267_Synth3()
|
|
{
|
|
0267 1401 lsl $ACC0, #1
|
|
0268 009b c000 lri $AX1.H, #0xc000
|
|
026a 0099 4000 lri $AX1.L, #0x4000
|
|
026c 1150 0274 bloopi #0x50, 0x0274
|
|
{
|
|
026e 02c0 0003 andcf $AC0.M, #0x0003
|
|
0270 027c iflnz
|
|
0271 1b1b srri @$AR0, $AX1.H
|
|
0272 027d iflz
|
|
0273 1b19 srri @$AR0, $AX1.L
|
|
0274 4800 addax $ACC0, $AX0
|
|
}
|
|
0275 147f lsr $ACC0, #-1
|
|
0276 02df ret
|
|
}
|
|
|
|
void 0277_Synth2()
|
|
{
|
|
0277 1401 lsl $ACC0, #1
|
|
0278 0081 0ca0 lri $AR1, #0x0ca0
|
|
027a 009b c000 lri $AX1.H, #0xc000
|
|
027c 0099 4000 lri $AX1.L, #0x4000
|
|
027e 8900 clr $ACC1
|
|
027f 0082 0000 lri $AR2, #0x0000
|
|
0281 1150 028c bloopi #0x50, 0x028c
|
|
{
|
|
0283 02c0 0001 andcf $AC0.M, #0x0001
|
|
0285 027c iflnz
|
|
0286 1b1b srri @$AR0, $AX1.H
|
|
0287 027d iflz
|
|
0288 1b19 srri @$AR0, $AX1.L
|
|
0289 183d lrr $AC1.L, @$AR1
|
|
028a 4900 addax $ACC1, $AX0
|
|
028b 1fe2 mrr $AC1.M, $AR2
|
|
028c 4c39 add's $ACC0, $ACC1 : @$AR1, $AC1.M
|
|
}
|
|
028d 147f lsr $ACC0, #-1
|
|
028e 02df ret
|
|
}
|
|
|
|
void 028f_Synth1()
|
|
{
|
|
028f 1050 loopi #0x50
|
|
0290 4820 addax's $ACC0, $AX0 : @$AR0, $AC0.L
|
|
0291 02df ret
|
|
}
|
|
|
|
void 0292_Synth4()
|
|
{
|
|
0292 0082 0140 lri $AR2, #0x0140
|
|
0294 008a 003f lri $WR2, #0x003f
|
|
0296 0086 0000 lri $IX2, #0x0000
|
|
0298 1406 lsl $ACC0, #6
|
|
0299 8900 clr $ACC1
|
|
029a 1fb8 mrr $AC1.L, $AX0.L
|
|
029b 1506 lsl $ACC1, #6
|
|
029c 009b 003f lri $AX1.H, #0x003f
|
|
029e 009a 0000 lri $AX0.H, #0x0000
|
|
02a0 3600 andr $AC0.M, $AX1.H
|
|
02a1 1cde mrr $IX2, $AC0.M
|
|
02a2 001a addarn $AR2, $IX2
|
|
02a3 3400 andr $AC0.M, $AX0.H
|
|
02a4 1150 02aa bloopi #0x50, 0x02aa
|
|
{
|
|
02a6 4c00 add $ACC0, $ACC1
|
|
02a7 364a andr'l $AC0.M, $AX1.H : $AX1.L, @$AR2
|
|
02a8 1cde mrr $IX2, $AC0.M
|
|
02a9 340e andr'nr $AC0.M, $AX0.H : $AR2
|
|
02aa 1b19 srri @$AR0, $AX1.L
|
|
}
|
|
02ab 1fc2 mrr $AC0.M, $AR2
|
|
02ac 147a lsr $ACC0, #-6
|
|
02ad 02df ret
|
|
}
|
|
|
|
void 02b1_Synth7()
|
|
{
|
|
02ae 1050 loopi #0x50
|
|
02af 1b18 srri @$AR0, $AX0.L
|
|
02b0 02df ret
|
|
}
|
|
|
|
void 02b1_Synth6()
|
|
{
|
|
02b1 0083 0000 lri $AR3, #0x0000
|
|
02b3 140f lsl $ACC0, #15
|
|
02b4 4853 addax'l $ACC0, $AX0 : $AX0.H, @$AR3
|
|
02b5 1114 02ba bloopi #0x14, 0x02ba
|
|
{
|
|
02b7 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
|
|
02b8 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
|
|
02b9 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
|
|
02ba 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
|
|
}
|
|
02bb 146f lsr $ACC0, #-17
|
|
02bc 02df ret
|
|
}
|
|
|
|
{
|
|
02bd 0080 0380 lri $AR0, #0x0380
|
|
02bf 02bf 0051 call 0x0051
|
|
02c1 02bf 0051 call 0x0051
|
|
02c3 02bf 0051 call 0x0051
|
|
02c5 02bf 0051 call 0x0051
|
|
02c7 0081 0382 lri $AR1, #0x0382
|
|
02c9 009f 0000 lri $AC1.M, #0x0000
|
|
02cb 0080 0200 lri $AR0, #0x0200
|
|
02cd 02bf 007c call 0x007c
|
|
02cf 0081 0384 lri $AR1, #0x0384
|
|
02d1 009f 0300 lri $AC1.M, #0x0300
|
|
02d3 0080 0020 lri $AR0, #0x0020
|
|
02d5 02bf 007c call 0x007c
|
|
02d7 02bf 0351 call 0x0351
|
|
02d9 00de 0345 lr $AC0.M, @0x0345
|
|
02db 00fe 0342 sr @0x0342, $AC0.M
|
|
02dd 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
02df 00de 0344 lr $AC0.M, @0x0344
|
|
02e1 1404 lsl $ACC0, #4
|
|
02e2 0200 03a8 addi $AC0.M, #0x03a8
|
|
02e4 1c1e mrr $AR0, $AC0.M
|
|
02e5 02bf 0051 call 0x0051
|
|
02e7 02bf 0051 call 0x0051
|
|
02e9 02bf 0051 call 0x0051
|
|
02eb 00de 0345 lr $AC0.M, @0x0345
|
|
02ed 1b1e srri @$AR0, $AC0.M
|
|
02ee 00de 0344 lr $AC0.M, @0x0344
|
|
02f0 0200 03a4 addi $AC0.M, #0x03a4
|
|
02f2 1c1e mrr $AR0, $AC0.M
|
|
02f3 8100 clr $ACC0
|
|
02f4 1b1e srri @$AR0, $AC0.M
|
|
02f5 02df ret
|
|
}
|
|
|
|
{
|
|
02f6 00de 0344 lr $AC0.M, @0x0344
|
|
02f8 1404 lsl $ACC0, #4
|
|
02f9 0200 03b0 addi $AC0.M, #0x03b0
|
|
02fb 1c1e mrr $AR0, $AC0.M
|
|
02fc 02bf 0051 call 0x0051
|
|
02fe 02bf 0051 call 0x0051
|
|
0300 02bf 0051 call 0x0051
|
|
0302 02bf 0051 call 0x0051
|
|
0304 02df ret
|
|
}
|
|
|
|
{
|
|
0305 0081 034c lri $AR1, #0x034c
|
|
0307 009f 0400 lri $AC1.M, #0x0400
|
|
0309 0080 0080 lri $AR0, #0x0080
|
|
030b 02bf 007c call 0x007c
|
|
030d 02df ret
|
|
}
|
|
|
|
{
|
|
030e 0081 034c lri $AR1, #0x034c
|
|
0310 009f 0a00 lri $AC1.M, #0x0a00
|
|
0312 0080 0004 lri $AR0, #0x0004
|
|
0314 02bf 00a5 call 00a5_WaitForDMAend()
|
|
0316 02bf 007c call 0x007c
|
|
0318 0081 034c lri $AR1, #0x034c
|
|
031a 009f 0400 lri $AC1.M, #0x0400
|
|
031c 0080 0080 lri $AR0, #0x0080
|
|
031e 02bf 0095 call 0x0095
|
|
0320 02df ret
|
|
}
|
|
|
|
{
|
|
0321 0081 034c lri $AR1, #0x034c
|
|
0323 009f 0400 lri $AC1.M, #0x0400
|
|
0325 0080 0040 lri $AR0, #0x0040
|
|
0327 0081 034c lri $AR1, #0x034c
|
|
0329 193e lrri $AC0.M, @$AR1
|
|
032a 193c lrri $AC0.L, @$AR1
|
|
032b 0098 0000 lri $AX0.L, #0x0000
|
|
032d 7000 addaxl $ACC0, $AX0.L
|
|
032e 02bf 008b call 0x008b
|
|
0330 02df ret
|
|
}
|
|
|
|
{
|
|
0331 191e lrri $AC0.M, @$AR0
|
|
0332 191a lrri $AX0.H, @$AR0
|
|
0333 005f loop $AC1.M
|
|
0334 64a0 movr'ls $ACC0, $AX0.H : $AX0.H, $AC0.M
|
|
0335 1b7e srri @$AR3, $AC0.M
|
|
0336 1b7a srri @$AR3, $AX0.H
|
|
0337 02df ret
|
|
}
|
|
|
|
{
|
|
0338 191e lrri $AC0.M, @$AR0
|
|
0339 191a lrri $AX0.H, @$AR0
|
|
033a 007f 033f bloop $AC1.M, 0x033f
|
|
{
|
|
033c 32b2 not's $AC0.M : @$AR2, $AC0.M
|
|
033d 65a0 movr'ls $ACC1, $AX0.H : $AX0.H, $AC0.M
|
|
033e 33ba not's $AC1.M : @$AR2, $AC1.M
|
|
033f 64a1 movr'ls $ACC0, $AX0.H : $AX0.H, $AC1.M
|
|
}
|
|
0340 0000 nop
|
|
0341 02df ret
|
|
}
|
|
|
|
{
|
|
0342 8a00 m2
|
|
0343 157f lsr $ACC1, #-1
|
|
0344 1c20 mrr $AR1, $AR0
|
|
0345 1c03 mrr $AR0, $AR3
|
|
0346 193a lrri $AX0.H, @$AR1
|
|
0347 9051 mul'l $AX0.L, $AX0.H : $AX0.H, @$AR1
|
|
0348 925b mulmvz'l $AX0.L, $AX0.H, $ACC0 : $AX1.H, @$AR3
|
|
0349 007f 034e bloop $AC1.M, 0x034e
|
|
{
|
|
034b 4651 addr'l $ACC0, $AX1.H : $AX0.H, @$AR1
|
|
034c 92b2 mulmvz'sl $AX0.L, $AX0.H, $ACC0 : $AC0.M, $AX1.H
|
|
034d 4651 addr'l $ACC0, $AX1.H : $AX0.H, @$AR1
|
|
034e 92b2 mulmvz'sl $AX0.L, $AX0.H, $ACC0 : $AC0.M, $AX1.H
|
|
}
|
|
034f 8b00 m0
|
|
0350 02df ret
|
|
}
|
|
|
|
{
|
|
0351 0083 ffa0 lri $AR3, #0xffa0
|
|
0353 0080 0300 lri $AR0, #0x0300
|
|
0355 009f 000e lri $AC1.M, #0x000e
|
|
0357 1108 035c bloopi #0x08, 0x035c
|
|
{
|
|
0359 191e lrri $AC0.M, @$AR0
|
|
035a 1b7e srri @$AR3, $AC0.M
|
|
035b 191e lrri $AC0.M, @$AR0
|
|
035c 1b7e srri @$AR3, $AC0.M
|
|
}
|
|
035d 02df ret
|
|
}
|
|
|
|
{
|
|
035e 0080 0f40 lri $AR0, #0x0f40
|
|
0360 0082 0d00 lri $AR2, #0x0d00
|
|
0362 0083 0d60 lri $AR3, #0x0d60
|
|
0364 009f 0028 lri $AC1.M, #0x0028
|
|
0366 02bf 0338 call 0x0338
|
|
0368 8900 clr $ACC1
|
|
0369 009e 0050 lri $AC0.M, #0x0050
|
|
036b 0080 0ca0 lri $AR0, #0x0ca0
|
|
036d 005e loop $AC0.M
|
|
036e 1b1f srri @$AR0, $AC1.M
|
|
036f 0080 0f40 lri $AR0, #0x0f40
|
|
0371 005e loop $AC0.M
|
|
0372 1b1f srri @$AR0, $AC1.M
|
|
0373 0080 0fa0 lri $AR0, #0x0fa0
|
|
0375 005e loop $AC0.M
|
|
0376 1b1f srri @$AR0, $AC1.M
|
|
0377 02df ret
|
|
}
|
|
|
|
{
|
|
0378 0080 0dc0 lri $AR0, #0x0dc0
|
|
037a 009e 0180 lri $AC0.M, #0x0180
|
|
037c 8900 clr $ACC1
|
|
037d 005e loop $AC0.M
|
|
037e 1b1f srri @$AR0, $AC1.M
|
|
037f 02df ret
|
|
}
|
|
|
|
{
|
|
0380 00c0 03a0 lr $AR0, @0x03a0
|
|
0382 191a lrri $AX0.H, @$AR0
|
|
0383 00df 03a1 lr $AC1.M, @0x03a1
|
|
0385 009b 00a0 lri $AX1.H, #0x00a0
|
|
0387 0081 0393 lri $AR1, #0x0393
|
|
0389 18bc lrrd $AC0.L, @$AR1
|
|
038a b871 mulx'l $AX0.H, $AX1.H : $AC0.M, @$AR1
|
|
038b bc00 mulxac $AX0.H, $AX1.H, $ACC0
|
|
038c 0080 0050 lri $AR0, #0x0050
|
|
038e 0508 addis $AC1.M, #0x08
|
|
038f 02bf 007e call 0x007e
|
|
0391 00de 0390 lr $AC0.M, @0x0390
|
|
0393 02a0 0001 andf $AC0.M, #0x0001
|
|
0395 029d 039f jlz 0x039f
|
|
0397 0080 0398 lri $AR0, #0x0398
|
|
0399 009e 0008 lri $AC0.M, #0x0008
|
|
039b 00c1 03a1 lr $AR1, @0x03a1
|
|
039d 02bf 01bc call 0x01bc
|
|
039f 009f 0050 lri $AC1.M, #0x0050
|
|
03a1 00c0 03a1 lr $AR0, @0x03a1
|
|
03a3 8100 clr $ACC0
|
|
03a4 00de 0394 lr $AC0.M, @0x0394
|
|
03a6 b100 tst $ACC0
|
|
03a7 0295 03ae jz 0x03ae
|
|
03a9 1c7e mrr $AR3, $AC0.M
|
|
03aa 00d8 0395 lr $AX0.L, @0x0395
|
|
03ac 02bf 0342 call 0x0342
|
|
03ae 009f 0050 lri $AC1.M, #0x0050
|
|
03b0 00c0 03a1 lr $AR0, @0x03a1
|
|
03b2 8100 clr $ACC0
|
|
03b3 00de 0396 lr $AC0.M, @0x0396
|
|
03b5 b100 tst $ACC0
|
|
03b6 0295 03bd jz 0x03bd
|
|
03b8 1c7e mrr $AR3, $AC0.M
|
|
03b9 00d8 0397 lr $AX0.L, @0x0397
|
|
03bb 02bf 0342 call 0x0342
|
|
03bd 00de 0390 lr $AC0.M, @0x0390
|
|
03bf 02a0 0002 andf $AC0.M, #0x0002
|
|
03c1 02dd retlz
|
|
03c2 0080 0398 lri $AR0, #0x0398
|
|
03c4 009e 0008 lri $AC0.M, #0x0008
|
|
03c6 00c1 03a1 lr $AR1, @0x03a1
|
|
03c8 02bf 01bc call 0x01bc
|
|
03ca 02df ret
|
|
}
|
|
|
|
{
|
|
03cb 009f 0dc0 lri $AC1.M, #0x0dc0
|
|
03cd 00ff 03a1 sr @0x03a1, $AC1.M
|
|
03cf 009f 03a8 lri $AC1.M, #0x03a8
|
|
03d1 00ff 03a2 sr @0x03a2, $AC1.M
|
|
03d3 009f 03a4 lri $AC1.M, #0x03a4
|
|
03d5 00ff 03a0 sr @0x03a0, $AC1.M
|
|
03d7 1104 0400 bloopi #0x04, 0x0400
|
|
{
|
|
03d9 00c0 03a2 lr $AR0, @0x03a2
|
|
03db 0083 0390 lri $AR3, #0x0390
|
|
03dd 009f 000e lri $AC1.M, #0x000e
|
|
03df 02bf 0331 call 0x0331
|
|
03e1 00da 0390 lr $AX0.H, @0x0390
|
|
03e3 8600 tstaxh $AX0.H
|
|
03e4 0295 03f1 jz 0x03f1
|
|
03e6 00df 03a1 lr $AC1.M, @0x03a1
|
|
03e8 1c7f mrr $AR3, $AC1.M
|
|
03e9 0550 addis $AC1.M, #0x50
|
|
03ea 1c1f mrr $AR0, $AC1.M
|
|
03eb 009f 0006 lri $AC1.M, #0x0006
|
|
03ed 02bf 0331 call 0x0331
|
|
03ef 02bf 0380 call 0x0380
|
|
03f1 00de 03a2 lr $AC0.M, @0x03a2
|
|
03f3 0410 addis $AC0.M, #0x10
|
|
03f4 00fe 03a2 sr @0x03a2, $AC0.M
|
|
03f6 00de 03a1 lr $AC0.M, @0x03a1
|
|
03f8 0460 addis $AC0.M, #0x60
|
|
03f9 00fe 03a1 sr @0x03a1, $AC0.M
|
|
03fb 00de 03a0 lr $AC0.M, @0x03a0
|
|
03fd 7400 incm $AC0.M
|
|
03fe 00fe 03a0 sr @0x03a0, $AC0.M
|
|
0400 0000 nop
|
|
}
|
|
0401 02df ret
|
|
}
|
|
|
|
{
|
|
0402 00c0 03a0 lr $AR0, @0x03a0
|
|
0404 181a lrr $AX0.H, @$AR0
|
|
0405 8100 clr $ACC0
|
|
0406 181e lrr $AC0.M, @$AR0
|
|
0407 00db 0391 lr $AX1.H, @0x0391
|
|
0409 7400 incm $AC0.M
|
|
040a d100 cmpar $ACC1, $AX0.H
|
|
040b 0270 ifge
|
|
040c 8100 clr $ACC0
|
|
040d 1b1e srri @$AR0, $AC0.M
|
|
040e 00df 03a1 lr $AC1.M, @0x03a1
|
|
0410 009b 00a0 lri $AX1.H, #0x00a0
|
|
0412 0081 0393 lri $AR1, #0x0393
|
|
0414 18bc lrrd $AC0.L, @$AR1
|
|
0415 b871 mulx'l $AX0.H, $AX1.H : $AC0.M, @$AR1
|
|
0416 bc00 mulxac $AX0.H, $AX1.H, $ACC0
|
|
0417 0080 0050 lri $AR0, #0x0050
|
|
0419 02bf 008b call 0x008b
|
|
041b 02df ret
|
|
}
|
|
|
|
{
|
|
041c 009f 0dc0 lri $AC1.M, #0x0dc0
|
|
041e 00ff 03a1 sr @0x03a1, $AC1.M
|
|
0420 009f 03a8 lri $AC1.M, #0x03a8
|
|
0422 00ff 03a2 sr @0x03a2, $AC1.M
|
|
0424 009f 03a4 lri $AC1.M, #0x03a4
|
|
0426 00ff 03a0 sr @0x03a0, $AC1.M
|
|
0428 1104 0448 bloopi #0x04, 0x0448
|
|
{
|
|
042a 00c0 03a2 lr $AR0, @0x03a2
|
|
042c 0083 0390 lri $AR3, #0x0390
|
|
042e 009f 000e lri $AC1.M, #0x000e
|
|
0430 02bf 0331 call 0x0331
|
|
0432 00da 0390 lr $AX0.H, @0x0390
|
|
0434 8600 tstaxh $AX0.H
|
|
0435 0295 0439 jz 0x0439
|
|
0437 02bf 0402 call 0x0402
|
|
0439 00de 03a2 lr $AC0.M, @0x03a2
|
|
043b 0410 addis $AC0.M, #0x10
|
|
043c 00fe 03a2 sr @0x03a2, $AC0.M
|
|
043e 00de 03a1 lr $AC0.M, @0x03a1
|
|
0440 0460 addis $AC0.M, #0x60
|
|
0441 00fe 03a1 sr @0x03a1, $AC0.M
|
|
0443 00de 03a0 lr $AC0.M, @0x03a0
|
|
0445 7400 incm $AC0.M
|
|
0446 00fe 03a0 sr @0x03a0, $AC0.M
|
|
0448 0000 nop
|
|
}
|
|
0449 02df ret
|
|
}
|
|
|
|
{
|
|
044a 0081 0386 lri $AR1, #0x0386
|
|
044c 009f 03a8 lri $AC1.M, #0x03a8
|
|
044e 0080 0040 lri $AR0, #0x0040
|
|
0450 02bf 007c call 0x007c
|
|
0452 02df ret
|
|
}
|
|
|
|
{
|
|
0453 191e lrri $AC0.M, @$AR0
|
|
0454 189c lrrd $AC0.L, @$AR0
|
|
0455 4800 addax $ACC0, $AX0
|
|
0456 1b1e srri @$AR0, $AC0.M
|
|
0457 1b1c srri @$AR0, $AC0.L
|
|
0458 02df ret
|
|
0459 8100 clr $ACC0
|
|
045a 26fe lrs $AC0.M, @CMBH
|
|
045b 02c0 8000 andcf $AC0.M, #0x8000
|
|
045d 029c 045a jlnz 0x045a
|
|
045f 26ff lrs $AC0.M, @CMBL
|
|
0460 02df ret
|
|
}
|
|
|
|
{
|
|
0461 0080 0388 lri $AR0, #0x0388
|
|
0463 0081 0051 lri $AR1, #0x0051
|
|
0465 173f callr $AR1 // call 0x0051
|
|
0466 00de 0344 lr $AC0.M, @0x0344
|
|
0468 00fe 0341 sr @0x0341, $AC0.M
|
|
046a 00de 0345 lr $AC0.M, @0x0345
|
|
046c 00fe 038e sr @0x038e, $AC0.M
|
|
046e 173f callr $AR1 // call 0x0051
|
|
046f 02df ret
|
|
}
|
|
|
|
{
|
|
0470 02bf 0461 call 0x0461
|
|
0472 009e 8000 lri $AC0.M, #0x8000
|
|
0474 00dc 0341 lr $AC0.L, @0x0341
|
|
0476 02bf 005a call 005a_SendMail(AC0.M,AC0.L) // 0x8000????
|
|
0478 8100 clr $ACC0
|
|
0479 00fe 0355 sr @0x0355, $AC0.M
|
|
047b 02bf 044a call 0x044a
|
|
047d 00de 0341 lr $AC0.M, @0x0341
|
|
047f 007e 056c bloop $AC0.M, 0x056c
|
|
{
|
|
0481 02bf 035e call 0x035e
|
|
0483 02bf 03cb call 0x03cb
|
|
0485 02bf 0459 call 0x0459
|
|
0487 8100 clr $ACC0
|
|
0488 00fe 0354 sr @0x0354, $AC0.M
|
|
048a 00de 0342 lr $AC0.M, @0x0342
|
|
048c 007e 0538 bloop $AC0.M, 0x0538
|
|
{
|
|
048e 00d8 0354 lr $AX0.L, @0x0354
|
|
0490 009a 0100 lri $AX0.H, #0x0100
|
|
0492 8100 clr $ACC0
|
|
0493 00de 0380 lr $AC0.M, @0x0380
|
|
0495 00dc 0381 lr $AC0.L, @0x0381
|
|
0497 9000 mul $AX0.L, $AX0.H
|
|
0498 9400 mulac $AX0.L, $AX0.H, $ACC0
|
|
0499 00fe 034c sr @0x034c, $AC0.M
|
|
049b 00fc 034d sr @0x034d, $AC0.L
|
|
049d 02bf 0305 call 0x0305
|
|
049f 00da 0400 lr $AX0.H, @0x0400
|
|
04a1 8600 tstaxh $AX0.H
|
|
04a2 0295 0533 jz 0x0533
|
|
04a4 00da 0401 lr $AX0.H, @0x0401
|
|
04a6 8600 tstaxh $AX0.H
|
|
04a7 0294 0533 jnz 0x0533
|
|
04a9 00da 0406 lr $AX0.H, @0x0406
|
|
04ab 8600 tstaxh $AX0.H
|
|
04ac 0294 0930 jnz 0x0930
|
|
04ae 8100 clr $ACC0
|
|
04af 00de 0440 lr $AC0.M, @0x0440
|
|
04b1 0607 cmpis $AC0.M, #0x07 // format 0x7 or less (Synths)
|
|
04b2 0293 0231 jle 0x0231
|
|
04b4 0620 cmpis $AC0.M, #0x20 // format 0x20
|
|
04b5 0295 079e jz 0x079e
|
|
04b7 0621 cmpis $AC0.M, #0x21 // format 0x21
|
|
04b8 0295 07a7 jz 0x07a7
|
|
04ba 00d8 0402 lr $AX0.L, @0x0402
|
|
04bc 8100 clr $ACC0
|
|
04bd 8900 clr $ACC1
|
|
04be 00dc 0418 lr $AC0.L, @0x0418
|
|
04c0 8d00 set15
|
|
04c1 0099 0050 lri $AX1.L, #0x0050
|
|
04c3 a000 mulx $AX0.L, $AX1.L
|
|
04c4 a400 mulxac $AX0.L, $AX1.L, $ACC0
|
|
04c5 1404 lsl $ACC0, #4
|
|
04c6 8c00 clr15
|
|
04c7 1ffe mrr $AC1.M, $AC0.M
|
|
04c8 0083 0580 lri $AR3, #0x0580
|
|
04ca 00da 0441 lr $AX0.H, @0x0441
|
|
04cc 8600 tstaxh $AX0.H
|
|
04cd 0295 04dd jz 0x04dd
|
|
04cf 00da 0449 lr $AX0.H, @0x0449
|
|
04d1 8100 clr $ACC0
|
|
04d2 00de 044b lr $AC0.M, @0x044b
|
|
04d4 3800 orr $AC0.M, $AX0.H
|
|
04d5 0240 000f andi $AC0.M, #0x000f
|
|
04d7 0295 04dd jz 0x04dd
|
|
04d9 02bf 06a6 call 0x06a6
|
|
04db 029f 04df jmp 0x04df
|
|
04dd 02bf 0837 call 0x0837
|
|
//RAW21-jmp
|
|
04df 0080 0580 lri $AR0, #0x0580
|
|
04e1 0081 0520 lri $AR1, #0x0520
|
|
04e3 0099 0000 lri $AX1.L, #0x0000
|
|
04e5 02bf 013b call 0x013b
|
|
//RAW20-jmp
|
|
04e7 0080 0450 lri $AR0, #0x0450
|
|
04e9 0081 0520 lri $AR1, #0x0520
|
|
04eb 0082 0428 lri $AR2, #0x0428
|
|
04ed 0083 0453 lri $AR3, #0x0453
|
|
04ef 18fa lrrd $AX0.H, @$AR3
|
|
04f0 8600 tstaxh $AX0.H
|
|
04f1 0294 0501 jnz 0x0501
|
|
04f3 18fa lrrd $AX0.H, @$AR3
|
|
04f4 8600 tstaxh $AX0.H
|
|
04f5 0294 0501 jnz 0x0501
|
|
04f7 18fa lrrd $AX0.H, @$AR3
|
|
04f8 8600 tstaxh $AX0.H
|
|
04f9 0294 0501 jnz 0x0501
|
|
04fb 8100 clr $ACC0
|
|
04fc 18fe lrrd $AC0.M, @$AR3
|
|
04fd 0280 7fff cmpi $AC0.M, #0x7fff
|
|
04ff 0295 0505 jz 0x0505
|
|
0501 02bf 01d1 call 0x01d1
|
|
0503 029f 0505 jmp 0x0505
|
|
0505 8100 clr $ACC0
|
|
0506 1c9e mrr $IX0, $AC0.M
|
|
0507 1cde mrr $IX2, $AC0.M
|
|
0508 7400 incm $AC0.M
|
|
0509 1cfe mrr $IX3, $AC0.M
|
|
050a 8f00 set40
|
|
050b 0086 0002 lri $IX2, #0x0002
|
|
050d 0082 0408 lri $AR2, #0x0408
|
|
050f 1104 052f bloopi #0x04, 0x052f
|
|
{
|
|
0511 8100 clr $ACC0
|
|
0512 195e lrri $AC0.M, @$AR2
|
|
0513 1200 sbclr #0x00
|
|
0514 b100 tst $ACC0
|
|
0515 0275 ifz
|
|
0516 1300 sbset #0x00
|
|
0517 1c7e mrr $AR3, $AC0.M
|
|
0518 195e lrri $AC0.M, @$AR2
|
|
0519 14fa asr $ACC0, #-6
|
|
051a 1f5e mrr $AX0.H, $AC0.M
|
|
051b 1f1c mrr $AX0.L, $AC0.L
|
|
051c 185f lrr $AC1.M, @$AR2
|
|
051d 0080 0520 lri $AR0, #0x0520
|
|
051f 029d 0523 jlz 0x0523
|
|
0521 02bf 011e call 0x011e
|
|
0523 1b5f srri @$AR2, $AC1.M
|
|
0524 8100 clr $ACC0
|
|
0525 185e lrr $AC0.M, @$AR2
|
|
0526 000e xar $AR2
|
|
//; *** UNKNOWN OPCODE ***
|
|
// 0xc/0xd/0xe/0xf is one opcode where last 2 bits define target $AR? reg
|
|
// (new value is based on orig $AR? and %WR? reg value = unknown)
|
|
0527 b100 tst $ACC0
|
|
0528 0274 ifnz
|
|
0529 7800 decm $AC0.M
|
|
052a b100 tst $ACC0
|
|
052b 8900 clr $ACC1
|
|
052c 0275 ifz
|
|
052d 1a5f srr @$AR2, $AC1.M
|
|
052e 001a addarn $AR2, $IX2
|
|
052f 1b5e srri @$AR2, $AC0.M
|
|
}
|
|
0530 8e00 set16
|
|
0531 02bf 0321 call 0x0321
|
|
0533 00de 0354 lr $AC0.M, @0x0354
|
|
0535 7400 incm $AC0.M
|
|
0536 00fe 0354 sr @0x0354, $AC0.M
|
|
0538 0000 nop
|
|
}
|
|
0539 16fb 0001 si @DIRQ, #0x0001
|
|
053b 0083 0d00 lri $AR3, #0x0d00
|
|
053d 02bf 012a call 0x012a
|
|
053f 0081 0388 lri $AR1, #0x0388
|
|
0541 009f 0d00 lri $AC1.M, #0x0d00
|
|
0543 0080 0050 lri $AR0, #0x0050
|
|
0545 02bf 0089 call 0x0089
|
|
0547 0080 0fa0 lri $AR0, #0x0fa0
|
|
0549 0083 0d60 lri $AR3, #0x0d60
|
|
054b 009f 0050 lri $AC1.M, #0x0050
|
|
054d 0098 8000 lri $AX0.L, #0x8000
|
|
054f 02bf 0342 call 0x0342
|
|
0551 0083 0d60 lri $AR3, #0x0d60
|
|
0553 02bf 012a call 0x012a
|
|
0555 0081 038a lri $AR1, #0x038a
|
|
0557 009f 0d60 lri $AC1.M, #0x0d60
|
|
0559 0080 0050 lri $AR0, #0x0050
|
|
055b 02bf 0089 call 0x0089
|
|
055d 009a 0000 lri $AX0.H, #0x0000
|
|
055f 0098 00a0 lri $AX0.L, #0x00a0
|
|
0561 0080 0388 lri $AR0, #0x0388
|
|
0563 02bf 0453 call 0x0453
|
|
0565 0080 038a lri $AR0, #0x038a
|
|
0567 02bf 0453 call 0x0453
|
|
0569 02bf 041c call 0x041c
|
|
056b 0000 nop
|
|
056c 0000 nop
|
|
}
|
|
056d 029f 0031 jmp 0x0031
|
|
}
|
|
|
|
{
|
|
056f 0080 0346 lri $AR0, #0x0346
|
|
0571 02bf 0051 call 0x0051
|
|
0573 02bf 0051 call 0x0051
|
|
0575 0081 0346 lri $AR1, #0x0346
|
|
0577 193e lrri $AC0.M, @$AR1
|
|
0578 193c lrri $AC0.L, @$AR1
|
|
0579 009f 0400 lri $AC1.M, #0x0400
|
|
057b 00c0 0345 lr $AR0, @0x0345
|
|
057d 02bf 007e call 0x007e
|
|
057f 0081 0348 lri $AR1, #0x0348
|
|
0581 193e lrri $AC0.M, @$AR1
|
|
0582 193c lrri $AC0.L, @$AR1
|
|
0583 009f 0800 lri $AC1.M, #0x0800
|
|
0585 00c0 0345 lr $AR0, @0x0345
|
|
0587 02bf 007e call 0x007e
|
|
0589 0081 0346 lri $AR1, #0x0346
|
|
058b 193e lrri $AC0.M, @$AR1
|
|
058c 193c lrri $AC0.L, @$AR1
|
|
058d 009f 0800 lri $AC1.M, #0x0800
|
|
058f 00c0 0345 lr $AR0, @0x0345
|
|
0591 02bf 008b call 0x008b
|
|
0593 0081 0348 lri $AR1, #0x0348
|
|
0595 193e lrri $AC0.M, @$AR1
|
|
0596 193c lrri $AC0.L, @$AR1
|
|
0597 009f 0400 lri $AC1.M, #0x0400
|
|
0599 00c0 0345 lr $AR0, @0x0345
|
|
059b 02bf 008b call 0x008b
|
|
059d 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
059f 0080 0346 lri $AR0, #0x0346
|
|
05a1 02bf 0051 call 0x0051
|
|
05a3 02bf 0051 call 0x0051
|
|
05a5 0081 0346 lri $AR1, #0x0346
|
|
05a7 193e lrri $AC0.M, @$AR1
|
|
05a8 193c lrri $AC0.L, @$AR1
|
|
05a9 009f 0400 lri $AC1.M, #0x0400
|
|
05ab 00c0 0345 lr $AR0, @0x0345
|
|
05ad 02bf 007e call 0x007e
|
|
05af 0081 0348 lri $AR1, #0x0348
|
|
05b1 193e lrri $AC0.M, @$AR1
|
|
05b2 193c lrri $AC0.L, @$AR1
|
|
05b3 009f 0400 lri $AC1.M, #0x0400
|
|
05b5 00c0 0345 lr $AR0, @0x0345
|
|
05b7 02bf 008b call 0x008b
|
|
05b9 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
05bb 0080 0346 lri $AR0, #0x0346
|
|
05bd 02bf 0051 call 0x0051
|
|
05bf 02bf 0051 call 0x0051
|
|
05c1 0081 0346 lri $AR1, #0x0346
|
|
05c3 193e lrri $AC0.M, @$AR1
|
|
05c4 193c lrri $AC0.L, @$AR1
|
|
05c5 009f 0400 lri $AC1.M, #0x0400
|
|
05c7 00c0 0345 lr $AR0, @0x0345
|
|
05c9 02bf 00ae call 0x00ae
|
|
05cb 0081 0348 lri $AR1, #0x0348
|
|
05cd 193e lrri $AC0.M, @$AR1
|
|
05ce 193c lrri $AC0.L, @$AR1
|
|
05cf 009f 0400 lri $AC1.M, #0x0400
|
|
05d1 00c0 0345 lr $AR0, @0x0345
|
|
05d3 02bf 008b call 0x008b
|
|
05d5 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
05d7 0080 0346 lri $AR0, #0x0346
|
|
05d9 02bf 0051 call 0x0051
|
|
05db 02bf 0051 call 0x0051
|
|
05dd 0081 0346 lri $AR1, #0x0346
|
|
05df 193e lrri $AC0.M, @$AR1
|
|
05e0 193c lrri $AC0.L, @$AR1
|
|
05e1 009f 0400 lri $AC1.M, #0x0400
|
|
05e3 00c0 0344 lr $AR0, @0x0344
|
|
05e5 02bf 007e call 0x007e
|
|
05e7 0081 0348 lri $AR1, #0x0348
|
|
05e9 193e lrri $AC0.M, @$AR1
|
|
05ea 193c lrri $AC0.L, @$AR1
|
|
05eb 009f 0800 lri $AC1.M, #0x0800
|
|
05ed 00c0 0344 lr $AR0, @0x0344
|
|
05ef 02bf 007e call 0x007e
|
|
05f1 0080 0400 lri $AR0, #0x0400
|
|
05f3 0083 0800 lri $AR3, #0x0800
|
|
05f5 0084 0000 lri $IX0, #0x0000
|
|
05f7 00da 0345 lr $AX0.H, @0x0345
|
|
05f9 00df 0344 lr $AC1.M, @0x0344
|
|
05fb 8f00 set40
|
|
05fc 197b lrri $AX1.H, @$AR3
|
|
05fd b800 mulx $AX0.H, $AX1.H
|
|
05fe 197b lrri $AX1.H, @$AR3
|
|
05ff 007f 0604 bloop $AC1.M, 0x0604
|
|
0601 199e lrrn $AC0.M, @$AR0
|
|
0602 bc00 mulxac $AX0.H, $AX1.H, $ACC0
|
|
0603 80b2 nx'sl : $AC0.M, $AX1.H
|
|
0604 0000 nop
|
|
0605 8e00 set16
|
|
0606 0081 0346 lri $AR1, #0x0346
|
|
0608 193e lrri $AC0.M, @$AR1
|
|
0609 193c lrri $AC0.L, @$AR1
|
|
060a 009f 0400 lri $AC1.M, #0x0400
|
|
060c 00c0 0344 lr $AR0, @0x0344
|
|
060e 02bf 008b call 0x008b
|
|
0610 009e 8200 lri $AC0.M, #0x8200
|
|
0612 00dc 0344 lr $AC0.L, @0x0344
|
|
0614 02bf 005a call 005a_SendMail(AC0.M,AC0.L) // 0x8200????
|
|
0616 029f 0031 jmp 0x0031
|
|
}
|
|
|
|
{
|
|
0618 0080 0346 lri $AR0, #0x0346
|
|
061a 02bf 0051 call 0x0051
|
|
061c 0081 0346 lri $AR1, #0x0346
|
|
061e 009f 0400 lri $AC1.M, #0x0400
|
|
0620 00c0 0345 lr $AR0, @0x0345
|
|
0622 02bf 007c call 0x007c
|
|
0624 02bf 8644 call 0x8644 // iROM!!!!
|
|
0626 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
{
|
|
0628 009e 0430 lri $AC0.M, #0x0430
|
|
062a 2219 lrs $AX0.H, @0x0019
|
|
062b 4400 addr $ACC0, $AX0.H
|
|
062c 1c1e mrr $AR0, $AC0.M
|
|
062d 1fda mrr $AC0.M, $AX0.H
|
|
062e 3280 not $AC0.M
|
|
062f 7400 incm $AC0.M
|
|
0630 221a lrs $AX0.H, @0x001a
|
|
0631 4400 addr $ACC0, $AX0.H
|
|
0632 0090 0000 lri $AC0.H, #0x0000
|
|
0634 029f 0645 jmp 0x0645
|
|
}
|
|
|
|
{
|
|
0636 009e 0430 lri $AC0.M, #0x0430
|
|
0638 2219 lrs $AX0.H, @0x0019
|
|
0639 4400 addr $ACC0, $AX0.H
|
|
063a 1c1e mrr $AR0, $AC0.M
|
|
063b 1fda mrr $AC0.M, $AX0.H
|
|
063c 3280 not $AC0.M
|
|
063d 7400 incm $AC0.M
|
|
063e 221a lrs $AX0.H, @0x001a
|
|
063f 4400 addr $ACC0, $AX0.H
|
|
0640 0090 0000 lri $AC0.H, #0x0000
|
|
0642 8200 cmp
|
|
0643 0270 ifge
|
|
0644 1fdf mrr $AC0.M, $AC1.M
|
|
0645 1f3e mrr $AX1.L, $AC0.M
|
|
0646 02bf 0699 call 0x0699
|
|
0648 261c lrs $AC0.M, @0x001c
|
|
0649 241d lrs $AC0.L, @0x001d
|
|
064a 7200 addaxl $ACC0, $AX1.L
|
|
064b 5300 subr $ACC1, $AX1.L
|
|
064c 2e1c srs @0x001c, $AC0.M
|
|
064d 2c1d srs @0x001d, $AC0.L
|
|
064e 02df ret
|
|
}
|
|
|
|
{
|
|
064f 8100 clr $ACC0
|
|
0650 221c lrs $AX0.H, @0x001c
|
|
0651 201d lrs $AX0.L, @0x001d
|
|
0652 4800 addax $ACC0, $AX0
|
|
0653 147c lsr $ACC0, #-4
|
|
0654 2e1e srs @0x001e, $AC0.M
|
|
0655 2c1f srs @0x001f, $AC0.L
|
|
0656 2340 lrs $AX1.H, @0x0040
|
|
0657 c814 mulc'mv $AC0.M, $AX1.H : $AX1.L, $AC0.L
|
|
0658 9e00 mulmv $AX1.L, $AX1.H, $ACC0
|
|
0659 f000 lsl16 $ACC0
|
|
065a 4e00 addp $ACC0
|
|
065b 234c lrs $AX1.H, @0x004c
|
|
065c 214d lrs $AX1.L, @0x004d
|
|
065d 4a00 addax $ACC0, $AX1
|
|
065e 2e20 srs @0x0020, $AC0.M
|
|
065f 2c21 srs @0x0021, $AC0.L
|
|
0660 1fd8 mrr $AC0.M, $AX0.L
|
|
0661 0240 000f andi $AC0.M, #0x000f
|
|
0663 2e19 srs @0x0019, $AC0.M
|
|
0664 264a lrs $AC0.M, @0x004a
|
|
0665 244b lrs $AC0.L, @0x004b
|
|
0666 5800 subax $ACC0, $AX0
|
|
0667 2e22 srs @0x0022, $AC0.M
|
|
0668 2c23 srs @0x0023, $AC0.L
|
|
0669 02df ret
|
|
}
|
|
|
|
{
|
|
066a 221e lrs $AX0.H, @0x001e
|
|
066b 201f lrs $AX0.L, @0x001f
|
|
066c 8100 clr $ACC0
|
|
066d 264a lrs $AC0.M, @0x004a
|
|
066e 244b lrs $AC0.L, @0x004b
|
|
066f 147c lsr $ACC0, #-4
|
|
0670 5800 subax $ACC0, $AX0
|
|
0671 0295 067a jz 0x067a
|
|
0673 02bf 06ec call 0x06ec
|
|
0675 0e10 lris $AC0.M, #0x10
|
|
0676 2e1a srs @0x001a, $AC0.M
|
|
0677 8100 clr $ACC0
|
|
0678 2e19 srs @0x0019, $AC0.M
|
|
0679 02df ret
|
|
}
|
|
|
|
{
|
|
067a 224a lrs $AX0.H, @0x004a
|
|
067b 204b lrs $AX0.L, @0x004b
|
|
067c 8100 clr $ACC0
|
|
067d 261c lrs $AC0.M, @0x001c
|
|
067e 241d lrs $AC0.L, @0x001d
|
|
067f 5800 subax $ACC0, $AX0
|
|
0680 0290 0687 jge 0x0687
|
|
0682 02bf 06ec call 0x06ec
|
|
0684 2623 lrs $AC0.M, @0x0023
|
|
0685 029f 0676 jmp 0x0676
|
|
}
|
|
|
|
{
|
|
0687 2648 lrs $AC0.M, @0x0048
|
|
0688 2449 lrs $AC0.L, @0x0049
|
|
0689 2e1c srs @0x001c, $AC0.M
|
|
068a 2c1d srs @0x001d, $AC0.L
|
|
068b 0e10 lris $AC0.M, #0x10
|
|
068c 2e1a srs @0x001a, $AC0.M
|
|
068d 02bf 064f call 0x064f
|
|
068f 2642 lrs $AC0.M, @0x0042
|
|
0690 2e3f srs @0x003f, $AC0.M
|
|
0691 2643 lrs $AC0.M, @0x0043
|
|
0692 2e3e srs @0x003e, $AC0.M
|
|
0693 8100 clr $ACC0
|
|
0694 00fe 0362 sr @0x0362, $AC0.M
|
|
0696 02bf 06ec call 0x06ec
|
|
0698 02df ret
|
|
}
|
|
|
|
{
|
|
0699 b100 tst $ACC0
|
|
069a 02d5 retz
|
|
069b 04fe addis $AC0.M, #0xfe
|
|
069c 1f1e mrr $AX0.L, $AC0.M
|
|
069d 191e lrri $AC0.M, @$AR0
|
|
069e 0291 06a4 jl 0x06a4
|
|
06a0 191a lrri $AX0.H, @$AR0
|
|
06a1 0058 loop $AX0.L
|
|
06a2 64a0 movr'ls $ACC0, $AX0.H : $AX0.H, $AC0.M
|
|
06a3 6433 movr's $ACC0, $AX0.H : @$AR3, $AC0.M
|
|
06a4 1b7e srri @$AR3, $AC0.M
|
|
06a5 02df ret
|
|
}
|
|
|
|
{
|
|
06a6 0092 0004 lri $CR, #0x0004
|
|
06a8 02bf 064f call 0x064f
|
|
06aa 8100 clr $ACC0
|
|
06ab 00fe 0362 sr @0x0362, $AC0.M
|
|
06ad 8100 clr $ACC0
|
|
06ae 2622 lrs $AC0.M, @0x0022
|
|
06af 2423 lrs $AC0.L, @0x0023
|
|
06b0 b100 tst $ACC0
|
|
06b1 0294 06c3 jnz 0x06c3
|
|
06b3 02bf 066a call 0x066a
|
|
06b5 2219 lrs $AX0.H, @0x0019
|
|
06b6 8600 tstaxh $AX0.H
|
|
06b7 0294 06c0 jnz 0x06c0
|
|
06b9 02bf 0636 call 0x0636
|
|
06bb b900 tst $ACC1
|
|
06bc 0295 06e9 jz 0x06e9
|
|
06be 02bf 064f call 0x064f
|
|
06c0 8100 clr $ACC0
|
|
06c1 2622 lrs $AC0.M, @0x0022
|
|
06c2 2423 lrs $AC0.L, @0x0023
|
|
06c3 1f1f mrr $AX0.L, $AC1.M
|
|
06c4 009a 0000 lri $AX0.H, #0x0000
|
|
06c6 5800 subax $ACC0, $AX0
|
|
06c7 0290 06d6 jge 0x06d6
|
|
06c9 8100 clr $ACC0
|
|
06ca 2619 lrs $AC0.M, @0x0019
|
|
06cb b100 tst $ACC0
|
|
06cc 0294 06d0 jnz 0x06d0
|
|
06ce 02bf 066a call 0x066a
|
|
06d0 02bf 0628 call 0x0628
|
|
06d2 02bf 064f call 0x064f
|
|
06d4 029f 06ad jmp 0x06ad
|
|
}
|
|
|
|
{
|
|
06d6 8100 clr $ACC0
|
|
06d7 2619 lrs $AC0.M, @0x0019
|
|
06d8 b100 tst $ACC0
|
|
06d9 0294 06dd jnz 0x06dd
|
|
06db 02bf 066a call 0x066a
|
|
06dd 02bf 0636 call 0x0636
|
|
06df b900 tst $ACC1
|
|
06e0 0295 06e9 jz 0x06e9
|
|
06e2 02bf 064f call 0x064f
|
|
06e4 029f 06d6 jmp 0x06d6
|
|
}
|
|
|
|
{
|
|
06e6 8100 clr $ACC0
|
|
06e7 005f loop $AC1.M
|
|
06e8 1b7e srri @$AR3, $AC0.M
|
|
06e9 0092 00ff lri $CR, #0x00ff
|
|
06eb 02df ret
|
|
}
|
|
|
|
{
|
|
06ec 00ff 0360 sr @0x0360, $AC1.M
|
|
06ee 00da 0362 lr $AX0.H, @0x0362
|
|
06f0 8600 tstaxh $AX0.H
|
|
06f1 0294 06fe jnz 0x06fe
|
|
06f3 0a01 lris $AX0.H, #0x01
|
|
06f4 00fa 0362 sr @0x0362, $AX0.H
|
|
06f6 2620 lrs $AC0.M, @0x0020
|
|
06f7 2421 lrs $AC0.L, @0x0021
|
|
06f8 009f 0005 lri $AC1.M, #0x0005
|
|
06fa 02bf 0103 call 0x0103
|
|
06fc 0092 0004 lri $CR, #0x0004
|
|
06fe 0080 ffd3 lri $AR0, #0xffd3
|
|
0700 0084 0000 lri $IX0, #0x0000
|
|
0702 199e lrrn $AC0.M, @$AR0
|
|
0703 1ffe mrr $AC1.M, $AC0.M
|
|
0704 1401 lsl $ACC0, #1
|
|
0705 0240 001e andi $AC0.M, #0x001e
|
|
0707 0200 0300 addi $AC0.M, #0x0300
|
|
0709 1c3e mrr $AR1, $AC0.M
|
|
070a 157c lsr $ACC1, #-4
|
|
070b 0340 000f andi $AC1.M, #0x000f
|
|
070d 0a11 lris $AX0.H, #0x11
|
|
070e 5500 subr $ACC1, $AX0.H
|
|
070f 009a 00f0 lri $AX0.H, #0x00f0
|
|
0711 009b 000f lri $AX1.H, #0x000f
|
|
0713 0082 0370 lri $AR2, #0x0370
|
|
0715 1998 lrrn $AX0.L, @$AR0
|
|
0716 6000 movr $ACC0, $AX0.L
|
|
0717 1107 071e bloopi #0x07, 0x071e
|
|
{
|
|
0719 3400 andr $AC0.M, $AX0.H
|
|
071a 1408 lsl $ACC0, #8
|
|
071b 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
|
|
071c 3644 andr'ln $AC0.M, $AX1.H : $AX0.L, @$AR0
|
|
071d 140c lsl $ACC0, #12
|
|
071e 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
|
|
}
|
|
071f 3400 andr $AC0.M, $AX0.H
|
|
0720 1408 lsl $ACC0, #8
|
|
0721 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
|
|
0722 3600 andr $AC0.M, $AX1.H
|
|
0723 140c lsl $ACC0, #12
|
|
0724 1b5e srri @$AR2, $AC0.M
|
|
0725 8f00 set40
|
|
0726 1f7f mrr $AX1.H, $AC1.M
|
|
0727 203e lrs $AX0.L, @0x003e
|
|
0728 273f lrs $AC1.M, @0x003f
|
|
0729 193a lrri $AX0.H, @$AR1
|
|
072a 1939 lrri $AX1.L, @$AR1
|
|
072b 0080 0370 lri $AR0, #0x0370
|
|
072d 0081 0430 lri $AR1, #0x0430
|
|
072f 1c80 mrr $IX0, $AR0
|
|
0730 a000 mulx $AX0.L, $AX1.L
|
|
0731 ea70 maddc'l $AC1.M, $AX1.L : $AC0.M, @$AR0
|
|
0732 1108 073b bloopi #0x08, 0x073b
|
|
0734 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
|
|
0735 a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
|
|
0736 1485 asl $ACC0, #5
|
|
0737 e831 maddc's $AC0.M, $AX1.L : @$AR1, $AC0.M
|
|
0738 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
|
|
0739 a570 mulxac'l $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
|
|
073a 1585 asl $ACC1, #5
|
|
073b ea39 maddc's $AC1.M, $AX1.L : @$AR1, $AC1.M
|
|
073c 8e00 set16
|
|
073d 8900 clr $ACC1
|
|
073e 00df 0360 lr $AC1.M, @0x0360
|
|
0740 02df ret
|
|
}
|
|
|
|
{
|
|
0741 0080 0346 lri $AR0, #0x0346
|
|
0743 02bf 0051 call 0x0051
|
|
0745 8100 clr $ACC0
|
|
0746 0080 0430 lri $AR0, #0x0430
|
|
0748 1010 loopi #0x10
|
|
0749 1b1e srri @$AR0, $AC0.M
|
|
074a 00fe 0442 sr @0x0442, $AC0.M
|
|
074c 00fe 0443 sr @0x0443, $AC0.M
|
|
074e 009c 0000 lri $AC0.L, #0x0000
|
|
0750 00fe 041c sr @0x041c, $AC0.M
|
|
0752 00fc 041d sr @0x041d, $AC0.L
|
|
0754 009e 0100 lri $AC0.M, #0x0100
|
|
0756 009c f100 lri $AC0.L, #0xf100
|
|
0758 00fe 044e sr @0x044e, $AC0.M
|
|
075a 00fc 044f sr @0x044f, $AC0.L
|
|
075c 009e 0040 lri $AC0.M, #0x0040
|
|
075e 009c 0000 lri $AC0.L, #0x0000
|
|
0760 00fe 044c sr @0x044c, $AC0.M
|
|
0762 00fc 044d sr @0x044d, $AC0.L
|
|
0764 009e 0009 lri $AC0.M, #0x0009
|
|
0766 00fe 0440 sr @0x0440, $AC0.M
|
|
0768 009e 0010 lri $AC0.M, #0x0010
|
|
076a 00fe 041a sr @0x041a, $AC0.M
|
|
076c 009e 0100 lri $AC0.M, #0x0100
|
|
076e 009c f250 lri $AC0.L, #0xf250
|
|
0770 00fe 044a sr @0x044a, $AC0.M
|
|
0772 00fc 044b sr @0x044b, $AC0.L
|
|
0774 009c 0000 lri $AC0.L, #0x0000
|
|
0776 00fe 0448 sr @0x0448, $AC0.M
|
|
0778 00fc 0449 sr @0x0449, $AC0.L
|
|
077a 009e 0001 lri $AC0.M, #0x0001
|
|
077c 00fe 0441 sr @0x0441, $AC0.M
|
|
077e 8900 clr $ACC1
|
|
077f 00ff 0401 sr @0x0401, $AC1.M
|
|
0781 1180 079b bloopi #0x80, 0x079b
|
|
{
|
|
0783 0083 0580 lri $AR3, #0x0580
|
|
0785 009f 0100 lri $AC1.M, #0x0100
|
|
0787 02bf 06a6 call 0x06a6
|
|
0789 0081 0346 lri $AR1, #0x0346
|
|
078b 193e lrri $AC0.M, @$AR1
|
|
078c 18bc lrrd $AC0.L, @$AR1
|
|
078d 009f 0580 lri $AC1.M, #0x0580
|
|
078f 0080 0100 lri $AR0, #0x0100
|
|
0791 02bf 008b call 0x008b
|
|
0793 0081 0346 lri $AR1, #0x0346
|
|
0795 193e lrri $AC0.M, @$AR1
|
|
0796 18bc lrrd $AC0.L, @$AR1
|
|
0797 0098 0200 lri $AX0.L, #0x0200
|
|
0799 7000 addaxl $ACC0, $AX0.L
|
|
079a 1b3e srri @$AR1, $AC0.M
|
|
079b 1abc srrd @$AR1, $AC0.L
|
|
}
|
|
079c 029f 0049 jmp 0x0049
|
|
}
|
|
|
|
void 079e_AudioFormatRAW20()
|
|
{
|
|
079e 8900 clr $ACC1
|
|
079f 009f 0050 lri $AC1.M, #0x0050
|
|
07a1 0083 0520 lri $AR3, #0x0520
|
|
07a3 02bf 07b9 call 0x07b9
|
|
07a5 029f 04e7 jmp 0x04e7
|
|
}
|
|
|
|
void 07a7_AudioFormatRAW21()
|
|
{
|
|
07a7 00d8 0402 lr $AX0.L, @0x0402
|
|
07a9 8100 clr $ACC0
|
|
07aa 8900 clr $ACC1
|
|
07ab 00dc 0418 lr $AC0.L, @0x0418
|
|
07ad 009a 0050 lri $AX0.H, #0x0050
|
|
07af 9000 mul $AX0.L, $AX0.H
|
|
07b0 9400 mulac $AX0.L, $AX0.H, $ACC0
|
|
07b1 1404 lsl $ACC0, #4
|
|
07b2 1ffe mrr $AC1.M, $AC0.M
|
|
07b3 0083 0580 lri $AR3, #0x0580
|
|
07b5 02bf 07b9 call 0x07b9
|
|
07b7 029f 04df jmp 0x04df
|
|
}
|
|
|
|
{
|
|
07b9 0092 0004 lri $CR, #0x0004
|
|
07bb 8100 clr $ACC0
|
|
07bc 2622 lrs $AC0.M, @0x0022
|
|
07bd 2423 lrs $AC0.L, @0x0023
|
|
07be 1f1f mrr $AX0.L, $AC1.M
|
|
07bf 009a 0000 lri $AX0.H, #0x0000
|
|
07c1 5800 subax $ACC0, $AX0
|
|
07c2 0290 07d9 jge 0x07d9
|
|
07c4 8900 clr $ACC1
|
|
07c5 00c0 0423 lr $AR0, @0x0423
|
|
07c7 02bf 07fe call 0x07fe
|
|
07c9 8100 clr $ACC0
|
|
07ca 1fd8 mrr $AC0.M, $AX0.L
|
|
07cb 2223 lrs $AX0.H, @0x0023
|
|
07cc 5400 subr $ACC0, $AX0.H
|
|
07cd 0007 dar $AR3
|
|
07ce 1979 lrri $AX1.L, @$AR3
|
|
07cf 005e loop $AC0.M
|
|
07d0 1b79 srri @$AR3, $AX1.L
|
|
07d1 009f 0001 lri $AC1.M, #0x0001
|
|
07d3 2f01 srs @0x0001, $AC1.M
|
|
07d4 8900 clr $ACC1
|
|
07d5 2f23 srs @0x0023, $AC1.M
|
|
07d6 0092 00ff lri $CR, #0x00ff
|
|
07d8 02df ret
|
|
}
|
|
|
|
{
|
|
07d9 2e22 srs @0x0022, $AC0.M
|
|
07da 2c23 srs @0x0023, $AC0.L
|
|
07db 8100 clr $ACC0
|
|
07dc 8900 clr $ACC1
|
|
07dd 264a lrs $AC0.M, @0x004a
|
|
07de 271c lrs $AC1.M, @0x001c
|
|
07df 5c00 sub $ACC0, $ACC1
|
|
07e0 2e1e srs @0x001e, $AC0.M
|
|
07e1 5000 subr $ACC0, $AX0.L
|
|
07e2 0290 07f8 jge 0x07f8
|
|
07e4 00c0 041e lr $AR0, @0x041e
|
|
07e6 02bf 07fe call 0x07fe
|
|
07e8 8100 clr $ACC0
|
|
07e9 1fd8 mrr $AC0.M, $AX0.L
|
|
07ea 221e lrs $AX0.H, @0x001e
|
|
07eb 5400 subr $ACC0, $AX0.H
|
|
07ec 1c1e mrr $AR0, $AC0.M
|
|
07ed 8100 clr $ACC0
|
|
07ee 2e1c srs @0x001c, $AC0.M
|
|
07ef 2648 lrs $AC0.M, @0x0048
|
|
07f0 2449 lrs $AC0.L, @0x0049
|
|
07f1 2e4c srs @0x004c, $AC0.M
|
|
07f2 2c4d srs @0x004d, $AC0.L
|
|
07f3 02bf 07fe call 0x07fe
|
|
07f5 0092 00ff lri $CR, #0x00ff
|
|
07f7 02df ret
|
|
}
|
|
|
|
{
|
|
07f8 1c18 mrr $AR0, $AX0.L
|
|
07f9 02bf 07fe call 0x07fe
|
|
07fb 0092 00ff lri $CR, #0x00ff
|
|
07fd 02df ret
|
|
}
|
|
|
|
{
|
|
07fe 8100 clr $ACC0
|
|
07ff 1fc0 mrr $AC0.M, $AR0
|
|
0800 b100 tst $ACC0
|
|
0801 02d5 retz
|
|
0802 8900 clr $ACC1
|
|
0803 271c lrs $AC1.M, @0x001c
|
|
0804 0340 0001 andi $AC1.M, #0x0001
|
|
0806 009b 0000 lri $AX1.H, #0x0000
|
|
0808 1f3f mrr $AX1.L, $AC1.M
|
|
0809 264c lrs $AC0.M, @0x004c
|
|
080a 244d lrs $AC0.L, @0x004d
|
|
080b 8900 clr $ACC1
|
|
080c 251c lrs $AC1.L, @0x001c
|
|
080d 1501 lsl $ACC1, #1
|
|
080e 4c00 add $ACC0, $ACC1
|
|
080f 5a00 subax $ACC0, $AX1
|
|
0810 5a00 subax $ACC0, $AX1
|
|
0811 1c20 mrr $AR1, $AR0
|
|
0812 1fe0 mrr $AC1.M, $AR0
|
|
0813 0502 addis $AC1.M, #0x02
|
|
0814 1c1f mrr $AR0, $AC1.M
|
|
0815 009f 0a00 lri $AC1.M, #0x0a00
|
|
0817 0092 00ff lri $CR, #0x00ff
|
|
0819 02bf 007e call 0x007e
|
|
081b 0092 0004 lri $CR, #0x0004
|
|
081d 271c lrs $AC1.M, @0x001c
|
|
081e 1f61 mrr $AX1.H, $AR1
|
|
081f 4700 addr $ACC1, $AX1.H
|
|
0820 2f1c srs @0x001c, $AC1.M
|
|
0821 0080 0a00 lri $AR0, #0x0a00
|
|
0823 8900 clr $ACC1
|
|
0824 1ff9 mrr $AC1.M, $AX1.L
|
|
0825 b900 tst $ACC1
|
|
0826 0274 ifnz
|
|
0827 0008 iar $AR0
|
|
0828 8900 clr $ACC1
|
|
0829 1fe1 mrr $AC1.M, $AR1
|
|
082a 191e lrri $AC0.M, @$AR0
|
|
082b 0701 cmpis $AC1.M, #0x01
|
|
082c 0293 0835 jle 0x0835
|
|
082e 191a lrri $AX0.H, @$AR0
|
|
082f 05fe addis $AC1.M, #0xfe
|
|
0830 005f loop $AC1.M
|
|
0831 64a0 movr'ls $ACC0, $AX0.H : $AX0.H, $AC0.M
|
|
0832 1b7e srri @$AR3, $AC0.M
|
|
0833 1b7a srri @$AR3, $AX0.H
|
|
0834 02df ret
|
|
}
|
|
|
|
{
|
|
0835 1b7e srri @$AR3, $AC0.M
|
|
0836 02df ret
|
|
}
|
|
|
|
{
|
|
0837 0092 0004 lri $CR, #0x0004
|
|
0839 2201 lrs $AX0.H, @0x0001
|
|
083a 8600 tstaxh $AX0.H
|
|
083b 0294 0868 jnz 0x0868
|
|
083d 2204 lrs $AX0.H, @0x0004
|
|
083e 8600 tstaxh $AX0.H
|
|
083f 02b4 08bc callnz 0x08bc
|
|
0841 2219 lrs $AX0.H, @0x0019
|
|
0842 8600 tstaxh $AX0.H
|
|
0843 0295 085d jz 0x085d
|
|
0845 009e 0430 lri $AC0.M, #0x0430
|
|
0847 4400 addr $ACC0, $AX0.H
|
|
0848 1c1e mrr $AR0, $AC0.M
|
|
0849 0e10 lris $AC0.M, #0x10
|
|
084a 5400 subr $ACC0, $AX0.H
|
|
084b 1f7e mrr $AX1.H, $AC0.M
|
|
084c 02bf 0699 call 0x0699
|
|
084e d900 cmpar $ACC1, $AX1.H
|
|
084f 0292 085c jg 0x085c
|
|
0851 0295 0858 jz 0x0858
|
|
0853 2619 lrs $AC0.M, @0x0019
|
|
0854 4c00 add $ACC0, $ACC1
|
|
0855 2e19 srs @0x0019, $AC0.M
|
|
0856 029f 08b9 jmp 0x08b9
|
|
|
|
0858 8100 clr $ACC0
|
|
0859 2e19 srs @0x0019, $AC0.M
|
|
085a 029f 08b9 jmp 0x08b9
|
|
|
|
085c 5700 subr $ACC1, $AX1.H
|
|
085d 8100 clr $ACC0
|
|
085e 2605 lrs $AC0.M, @0x0005
|
|
085f b100 tst $ACC0
|
|
0860 0295 0879 jz 0x0879
|
|
0862 8100 clr $ACC0
|
|
0863 2e05 srs @0x0005, $AC0.M
|
|
0864 2241 lrs $AX0.H, @0x0041
|
|
0865 8600 tstaxh $AX0.H
|
|
0866 0294 086f jnz 0x086f
|
|
0868 8100 clr $ACC0
|
|
0869 005f loop $AC1.M
|
|
086a 1b7e srri @$AR3, $AC0.M
|
|
086b 7400 incm $AC0.M
|
|
086c 2e01 srs @0x0001, $AC0.M
|
|
086d 029f 08b9 jmp 0x08b9
|
|
|
|
086f 2648 lrs $AC0.M, @0x0048
|
|
0870 2449 lrs $AC0.L, @0x0049
|
|
0871 2e1c srs @0x001c, $AC0.M
|
|
0872 2c1d srs @0x001d, $AC0.L
|
|
0873 02bf 08c1 call 0x08c1
|
|
0875 2642 lrs $AC0.M, @0x0042
|
|
0876 2443 lrs $AC0.L, @0x0043
|
|
0877 2e3f srs @0x003f, $AC0.M
|
|
0878 2c3e srs @0x003e, $AC0.L
|
|
0879 00ff 0360 sr @0x0360, $AC1.M
|
|
087b 2620 lrs $AC0.M, @0x0020
|
|
087c 2421 lrs $AC0.L, @0x0021
|
|
087d 009f 0005 lri $AC1.M, #0x0005
|
|
087f 02bf 0103 call 0x0103
|
|
0881 0092 0004 lri $CR, #0x0004
|
|
0883 8900 clr $ACC1
|
|
0884 00ff 0362 sr @0x0362, $AC1.M
|
|
0886 00df 0360 lr $AC1.M, @0x0360
|
|
0888 02bf 08db call 0x08db
|
|
088a 8100 clr $ACC0
|
|
088b 00de 0362 lr $AC0.M, @0x0362
|
|
088d 2240 lrs $AX0.H, @0x0040
|
|
088e 4400 addr $ACC0, $AX0.H
|
|
088f 00fe 0362 sr @0x0362, $AC0.M
|
|
0891 8100 clr $ACC0
|
|
0892 2622 lrs $AC0.M, @0x0022
|
|
0893 2423 lrs $AC0.L, @0x0023
|
|
0894 0a01 lris $AX0.H, #0x01
|
|
0895 0081 0405 lri $AR1, #0x0405
|
|
0897 7a00 dec $ACC0
|
|
0898 b100 tst $ACC0
|
|
0899 0275 ifz
|
|
089a 1a3a srr @$AR1, $AX0.H
|
|
089b 2e22 srs @0x0022, $AC0.M
|
|
089c 2c23 srs @0x0023, $AC0.L
|
|
089d 0710 cmpis $AC1.M, #0x10
|
|
089e 0293 08a7 jle 0x08a7
|
|
08a0 05f0 addis $AC1.M, #0xf0
|
|
08a1 2205 lrs $AX0.H, @0x0005
|
|
08a2 8600 tstaxh $AX0.H
|
|
08a3 0294 0862 jnz 0x0862
|
|
08a5 029f 0888 jmp 0x0888
|
|
08a7 0275 ifz
|
|
08a8 8900 clr $ACC1
|
|
08a9 2f19 srs @0x0019, $AC1.M
|
|
08aa 1fc3 mrr $AC0.M, $AR3
|
|
08ab 04f0 addis $AC0.M, #0xf0
|
|
08ac 1c1e mrr $AR0, $AC0.M
|
|
08ad 0083 0430 lri $AR3, #0x0430
|
|
08af 0e10 lris $AC0.M, #0x10
|
|
08b0 02bf 0699 call 0x0699
|
|
08b2 2620 lrs $AC0.M, @0x0020
|
|
08b3 2421 lrs $AC0.L, @0x0021
|
|
08b4 00d8 0362 lr $AX0.L, @0x0362
|
|
08b6 7000 addaxl $ACC0, $AX0.L
|
|
08b7 2c21 srs @0x0021, $AC0.L
|
|
08b8 2e20 srs @0x0020, $AC0.M
|
|
08b9 0092 00ff lri $CR, #0x00ff
|
|
08bb 02df ret
|
|
}
|
|
|
|
{
|
|
08bc 8100 clr $ACC0
|
|
08bd 2e1c srs @0x001c, $AC0.M
|
|
08be 2e1d srs @0x001d, $AC0.M
|
|
08bf 2e3e srs @0x003e, $AC0.M
|
|
08c0 2e3f srs @0x003f, $AC0.M
|
|
08c1 231c lrs $AX1.H, @0x001c
|
|
08c2 211d lrs $AX1.L, @0x001d
|
|
08c3 264a lrs $AC0.M, @0x004a
|
|
08c4 244b lrs $AC0.L, @0x004b
|
|
08c5 5a00 subax $ACC0, $AX1
|
|
08c6 147c lsr $ACC0, #-4
|
|
08c7 2e22 srs @0x0022, $AC0.M
|
|
08c8 2c23 srs @0x0023, $AC0.L
|
|
08c9 261c lrs $AC0.M, @0x001c
|
|
08ca 241d lrs $AC0.L, @0x001d
|
|
08cb 147c lsr $ACC0, #-4
|
|
08cc 2240 lrs $AX0.H, @0x0040
|
|
08cd c010 mulc'mv $AC0.M, $AX0.H : $AX0.L, $AC0.L
|
|
08ce 9600 mulmv $AX0.L, $AX0.H, $ACC0
|
|
08cf f000 lsl16 $ACC0
|
|
08d0 4e00 addp $ACC0
|
|
08d1 234c lrs $AX1.H, @0x004c
|
|
08d2 214d lrs $AX1.L, @0x004d
|
|
08d3 4a00 addax $ACC0, $AX1
|
|
08d4 2e20 srs @0x0020, $AC0.M
|
|
08d5 2c21 srs @0x0021, $AC0.L
|
|
08d6 8100 clr $ACC0
|
|
08d7 2e05 srs @0x0005, $AC0.M
|
|
08d8 2e19 srs @0x0019, $AC0.M
|
|
08d9 2e04 srs @0x0004, $AC0.M
|
|
08da 02df ret
|
|
}
|
|
|
|
{
|
|
08db 00ff 0360 sr @0x0360, $AC1.M
|
|
08dd 0080 ffd3 lri $AR0, #0xffd3
|
|
08df 0084 0000 lri $IX0, #0x0000
|
|
08e1 199e lrrn $AC0.M, @$AR0
|
|
08e2 1ffe mrr $AC1.M, $AC0.M
|
|
08e3 1401 lsl $ACC0, #1
|
|
08e4 0240 001e andi $AC0.M, #0x001e
|
|
08e6 0200 0300 addi $AC0.M, #0x0300
|
|
08e8 1c3e mrr $AR1, $AC0.M
|
|
08e9 157c lsr $ACC1, #-4
|
|
08ea 0340 000f andi $AC1.M, #0x000f
|
|
08ec 0a11 lris $AX0.H, #0x11
|
|
08ed 5500 subr $ACC1, $AX0.H
|
|
08ee 009a 00f0 lri $AX0.H, #0x00f0
|
|
08f0 009b 000f lri $AX1.H, #0x000f
|
|
08f2 0082 0370 lri $AR2, #0x0370
|
|
08f4 1998 lrrn $AX0.L, @$AR0
|
|
08f5 6000 movr $ACC0, $AX0.L
|
|
08f6 1107 08fd bloopi #0x07, 0x08fd
|
|
{
|
|
08f8 3400 andr $AC0.M, $AX0.H
|
|
08f9 1408 lsl $ACC0, #8
|
|
08fa 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
|
|
08fb 3644 andr'ln $AC0.M, $AX1.H : $AX0.L, @$AR0
|
|
08fc 140c lsl $ACC0, #12
|
|
08fd 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
|
|
}
|
|
08fe 3400 andr $AC0.M, $AX0.H
|
|
08ff 1408 lsl $ACC0, #8
|
|
0900 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
|
|
0901 3600 andr $AC0.M, $AX1.H
|
|
0902 140c lsl $ACC0, #12
|
|
0903 1b5e srri @$AR2, $AC0.M
|
|
0904 8f00 set40
|
|
0905 1f7f mrr $AX1.H, $AC1.M
|
|
0906 203e lrs $AX0.L, @0x003e
|
|
0907 273f lrs $AC1.M, @0x003f
|
|
0908 193a lrri $AX0.H, @$AR1
|
|
0909 1939 lrri $AX1.L, @$AR1
|
|
090a 0080 0370 lri $AR0, #0x0370
|
|
090c 1c80 mrr $IX0, $AR0
|
|
090d a000 mulx $AX0.L, $AX1.L
|
|
090e ea70 maddc'l $AC1.M, $AX1.L : $AC0.M, @$AR0
|
|
090f 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
|
|
0910 a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
|
|
0911 1485 asl $ACC0, #5
|
|
0912 e833 maddc's $AC0.M, $AX1.L : @$AR3, $AC0.M
|
|
0913 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
|
|
0914 a570 mulxac'l $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
|
|
0915 1585 asl $ACC1, #5
|
|
0916 ea3b maddc's $AC1.M, $AX1.L : @$AR3, $AC1.M
|
|
0917 1106 0920 bloopi #0x06, 0x0920
|
|
{
|
|
0919 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
|
|
091a a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
|
|
091b 1485 asl $ACC0, #5
|
|
091c e833 maddc's $AC0.M, $AX1.L : @$AR3, $AC0.M
|
|
091d 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
|
|
091e a570 mulxac'l $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
|
|
091f 1585 asl $ACC1, #5
|
|
0920 ea3b maddc's $AC1.M, $AX1.L : @$AR3, $AC1.M
|
|
}
|
|
0921 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
|
|
0922 a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
|
|
0923 1485 asl $ACC0, #5
|
|
0924 e833 maddc's $AC0.M, $AX1.L : @$AR3, $AC0.M
|
|
0925 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
|
|
0926 a500 mulxac $AX0.L, $AX1.L, $ACC1
|
|
0927 1585 asl $ACC1, #5
|
|
0928 1b7f srri @$AR3, $AC1.M
|
|
0929 2e3e srs @0x003e, $AC0.M
|
|
092a 2f3f srs @0x003f, $AC1.M
|
|
092b 8e00 set16
|
|
092c 8900 clr $ACC1
|
|
092d 00df 0360 lr $AC1.M, @0x0360
|
|
092f 02df ret
|
|
}
|
|
|
|
{
|
|
0930 0083 0520 lri $AR3, #0x0520
|
|
0932 00de 041b lr $AC0.M, @0x041b
|
|
0934 1050 loopi #0x50
|
|
0935 1b7e srri @$AR3, $AC0.M
|
|
0936 029f 04e7 jmp 0x04e7
|
|
}
|
|
|
|
0938 0000 nop
|
|
0939 0000 nop
|
|
093a 0000 nop
|
|
093b 0000 nop
|
|
093c 0000 nop
|
|
093d 0000 nop
|
|
093e 0000 nop
|
|
093f 0000 nop
|